zhyang-dev/openfoam
1
0
Fork 0
mirror of https://develop.openfoam.com/Development/openfoam.git synced 2025-11-28 03:28:01 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Revert "DebugSwitches in etc/controlDict is incomplete/incorrect"

Browse Source 
This reverts commit 7446cee720.
This commit is contained in:
andy
2008-07-23 16:51:45 +01:00
parent 1bd82369ff
commit 8136d271e8
4 changed files with 4 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/utilities/mesh/generation/blockMesh/Make/files
View File

@ -26,6 +26,6 @@ blockPoints.C
blockCells.C
blockBoundary.C
genBlockMesh.C
blockMeshApp.C
EXE = $(FOAM_APPBIN)/blockMesh

1
doc/Doxygen/tools/README
View File

@ -12,5 +12,4 @@ Misc Tools
2. find-its
3. find-junkFiles
4. find-longlines
5. find-debugNames (requires git)

62
doc/Doxygen/tools/find-debugNames
View File

@ -1,62 +0,0 @@
#!/usr/bin/perl -w
use strict;
# -----------------------------------------------------------------------------
#
# Script
# find-debugNames
#
# Description
# Use git-grep to find these macros.
#
# defineTypeNameAndDebug
# defineTemplateTypeNameAndDebugWithName
# defineTemplateTypeNameAndDebug
# defineNamedTemplateTypeNameAndDebug
#
# print sorted list
#
# Note
# will miss debug switches that are defined usign two defines
# -----------------------------------------------------------------------------
$ENV{WM_PROJECT_DIR} and chdir "$ENV{WM_PROJECT_DIR}"
or die "cannot change to OpenFOAM dir\n";
local @ARGV =
q{git-grep -e 'define\(Named\)*\(Template\)*TypeNameAndDebug\(WithName\)*' src applications |};
# parse stuff that looks like this:
# ODE/ODESolvers/KRR4/KRR4.C:defineTypeNameAndDebug(Foam::KRR4, 0);
my %debug;
while (<>) {
/#/ and next; # avoid defines
if (s{,\s*(\d+)\s*\)\s*\;\s*$}{}) # get value and chop end
{
my $v = $1;
s{\s*,.*$}{}; # remove all trailing info
s{^(.+?):(.+?)\(\s*(Foam::)?}{} or next; # get file and chop begin
my $file = $1;
my $k = $_;
$debug{$k} = [ $v, $file ];
}
}
print "DebugSwitches\n{\n";
for my $k ( sort keys %debug ) {
my ( $v, $file ) = @{ $debug{$k} };
my $pad = ( 20 - length $k );
while ( $pad <= 1 ) {
$pad += 4;
}
$pad = ' ' x $pad;
print " $k$pad$v; // $file\n";
}
print "}\n";

7
etc/controlDict
View File

@ -57,8 +57,8 @@ DebugSwitches
C8H18 0;
C9H20 0;
CH3OH 0;
CallbackRegistryName 0;
CarnahanStarlingRadial 0;
CallbackRegistry 0;
CarnahanStarling 0;
ChomiakInjector 0;
Cloud<indexedParticle> 0;
Cloud<kinematicParcel> 0;
@ -208,7 +208,7 @@ DebugSwitches
SIBS 0;
SKA 0;
SLTS 0;
STARCDCoordinateRotation 0;
STARCDRotation 0;
Schaeffer 0;
SchillerNaumann 0;
SinclairJackson 0;
@ -781,7 +781,6 @@ DebugSwitches
volVectorField 0;
volVectorField::DimensionedInternalField 0;
vtk 0;
vtkPV3Foam 0;
walkPatch 0;
wall 0;
wallHeatTransfer 0;