diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2011-03-23 18:42:21 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2011-03-23 18:42:21 +0000 |
commit | d4c01e66fa990f9497da5fb3ab14e23315235999 (patch) | |
tree | 397fc6ec3c506dab1c3d093677d525a2daf820aa /ACE/bin/fuzz.pl | |
parent | 37fb80d678c61841aa1a7fb81df6f00f6672311e (diff) | |
download | ATCD-d4c01e66fa990f9497da5fb3ab14e23315235999.tar.gz |
Wed Mar 23 18:36:19 UTC 2011 Johnny Willemsen <jwillemsen@remedy.nl>
* bin/fuzz.pl:
Also check numeric log level for dds4ccm
Diffstat (limited to 'ACE/bin/fuzz.pl')
-rwxr-xr-x | ACE/bin/fuzz.pl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/ACE/bin/fuzz.pl b/ACE/bin/fuzz.pl index ae92bf24362..99f6aad77f1 100755 --- a/ACE/bin/fuzz.pl +++ b/ACE/bin/fuzz.pl @@ -1641,9 +1641,9 @@ sub check_for_generated_headers() } } -sub check_for_numeric_dance_log() +sub check_for_numeric_log() { - print "Running check for numeric flags in DAnCE\n"; + print "Running check for numeric flags in DAnCE and DDS4CCM\n"; foreach $file (@files_inl, @files_cpp, @files_h) { if (open (FILE, $file)) { @@ -1658,6 +1658,12 @@ sub check_for_numeric_dance_log() if (m/DANCE_TRACE_LOG\s*\(\s*\d\s*,/) { print_warning ("$file:$.: Found numeric log level in trace log statement"); } + if (m/DDS4CCM_DEBUG\s*\(\s*\d*\s*,/) { + print_warning ("$file:$.: Found numeric log level in debug statement"); + } + if (m/DDS4CCM_ERROR\s*\(\s*\d\s*,/) { + print_warning ("$file:$.: Found numeric log level in error statement"); + } } close (FILE); @@ -2270,9 +2276,9 @@ check_for_non_bool_operators () if ($opt_l > 2); check_for_long_file_names () if ($opt_l >= 1); check_for_improper_main_declaration () if ($opt_l >= 1); check_for_TAO_Local_RefCounted_Object () if ($opt_l >= 1); -check_for_ORB_init () if ($opt_l >= 1); check_for_include_OS_h () if ($opt_l >= 1); -check_for_numeric_dance_log () if ($opt_l >= 3); +check_for_numeric_log () if ($opt_l >= 3); +check_for_ORB_init () if ($opt_l >= 1); print "\nfuzz.pl - $errors error(s), $warnings warning(s)\n"; |