?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Doxygen changes
[ACE_TAO.git] / ACE / bin / fuzz.pl
blobcbe752d84a643bbb0cf0a226f75cb2ec8072abac
1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
2 & eval 'exec perl -S $0 $argv:q'
3 if 0;
4
5 # Fuzz is a script whose purpose is to check through ACE/TAO/CIAO files for
6 # easy to spot (by a perl script, at least) problems.
7
8 use lib "$ENV{ACE_ROOT}/bin";
9 if (defined $ENV{srcdir}) {
10 use lib "$ENV{srcdir}/bin";
11 }
12
13 use Cwd;
14 use File::Find;
15 use File::Basename;
16 use Getopt::Std;
17 use PerlACE::Run_Test;
18
19 ###### TODO
20 #
21 # Add tests for these:
22 #
23 # - Guards in .h files
24 # - no global functions
25 # - other commit_check checks
26 #
27 # And others in ACE_Guidelines and Design Rules
28 #
29 # Also add a -g flag to ignore tao_idl generated files
30 #
31 ###### END TODO
32
33 # Lists of all the files
34 @files_cdp = ();
35 @files_cpp = ();
36 @files_inl = ();
37 @files_h = ();
38 @files_html = ();
39 @files_dsp = ();
40 @files_dsw = ();
41 @files_gnu = ();
42 @files_idl = ();
43 @files_pl = ();
44 @files_py = ();
45 @files_changelog = ();
46 @files_makefile = ();
47 @files_mpc = ();
48 @files_bor = ();
49 @files_noncvs = ();
50 @files_sln = ();
51 @files_vcproj = ();
52 @files_run_pl = ();
53 @files_generic = ();
54 @files_doxygen = ();
55 @files_conf = ();
56 @files_rb = ();
57 @files_features = ();
58
59 # To keep track of errors and warnings
60 $errors = 0;
61 $warnings = 0;
62
63 # to register suppressed tests
64 %suppressed_tests = ();
65
66 # to register excluded directories
67 @excluded_dirs = ();
68
69 ##############################################################################
70
71 # Use 'svn -q st' to get a list of locally modified
72 # files to look through
73 sub find_mod_svn_files ()
74 {
75 unless (open (SVN, "svn -q st |")) {
76 print STDERR "Error: Could not run svn\n";
77 return 0;
78 }
79
80 while (<SVN>) {
81 # 1234567 (see "svn help st" for column definitions)
82 if (/^[MA].....\s+(.*)$/) {
83 store_file ($1);
84 }
85 }
86 close (SVN);
87 return 1;
88 }
89
90 # Use 'git status -s' to get a list of locally modified
91 # files to look through
92 sub find_mod_git_files ()
93 {
94 unless (open (GIT, "git status -s |")) {
95 print STDERR "Error: Could not run git\n";
96 return 0;
97 }
98
99 while (<GIT>) {
100 if (/^ [MA] +(.*)$/) {
101 store_file ($1);
102 }
103 }
104 close (GIT);
105 return 1;
106 }
107
108 sub find_mod_files ()
109 {
110 if (!(find_mod_svn_files() && find_mod_git_files())) {
111 print "Could use neither svn nor git to find modified files\n";
112 exit (1);
113 }
114 }
115
116
117 sub is_excluded ($)
118 {
119 # exclude will contain the full file name
120 my $exclude = shift;
121 foreach (@excluded_dirs) {
122 if ($exclude =~ /$_/) {
123 return 1;
124 }
125 }
126 return 0;
127 }
128
129 # Find_Files will search for files with certain extensions in the
130 # directory tree
131 sub find_files ()
132 {
133 # wanted is only used for the File::Find
134 sub wanted
135 {
136 store_file ($File::Find::name);
137 }
138
139 find (\&wanted, '.');
140 }
141
142 #
143 sub store_file ($)
144 {
145 my $name = shift;
146
147 return if is_excluded ($name);
148
149 if ($name =~ /\.(c|cc|cpp|cxx|tpp)$/i) {
150 push @files_cpp, ($name);
151 }
152 elsif ($name =~ /\.(inl|i)$/i) {
153 push @files_inl, ($name);
154 }
155 elsif ($name =~ /\.(h|hh|hpp|hxx)$/i) {
156 push @files_h, ($name);
157 }
158 elsif ($name =~ /\.(htm|html)$/i) {
159 push @files_html, ($name);
160 }
161 elsif ($name =~ /\.(bor)$/i) {
162 push @files_bor, ($name);
163 }
164 elsif ($name =~ /\.(GNU)$/i) {
165 push @files_gnu, ($name);
166 }
167 elsif ($name =~ /\.(dsp|vcp)$/i) {
168 push @files_dsp, ($name);
169 }
170 elsif ($name =~ /\.(dsw|vcp)$/i) {
171 push @files_dsw, ($name);
172 }
173 elsif ($name =~ /\.(pidl|idl|idl3|idl3p)$/i) {
174 push @files_idl, ($name);
175 }
176 elsif ($name =~ /\.pl$/i) {
177 if ($name =~ /fuzz.pl/) {
178 return;
179 }
180 push @files_pl, ($name);
181 if ($name =~ /^run.*\.pl$/i) {
182 push @files_run_pl, ($name);
183 }
184 }
185 elsif ($name =~ /\.py$/i) {
186 push @files_py, ($name);
187 }
188 elsif ($name =~ /\.(rb|erb)$/i) {
189 push @files_rb, ($name);
190 }
191 elsif ($name =~ /\.features$/i) {
192 push @files_features, ($name);
193 }
194 elsif ($name =~ /\.vcproj$/i) {
195 push @files_vcproj, ($name);
196 }
197 elsif ($name =~ /\.sln$/i) {
198 push @files_sln, ($name);
199 }
200 elsif ($name =~ /ChangeLog/i && -f $name) {
201 push @files_changelog, ($name);
202 }
203 elsif ($name =~ /\/GNUmakefile.*.[^~]$/) {
204 push @files_makefile, ($name);
205 }
206 elsif ($name =~ /\.(mpc|mwc|mpb|mpt)$/i) {
207 push @files_mpc, ($name);
208 }
209 elsif ($name =~ /\.(icc|ncb|zip)$/i) {
210 push @files_noncvs, ($name);
211 }
212 elsif ($name =~ /\.(cdp)$/i) {
213 push @files_cdp, ($name);
214 }
215 elsif ($name =~ /\.(doxygen)$/i) {
216 push @files_doxygen, ($name);
217 }
218 elsif ($name =~ /\.(conf)$/i) {
219 if ($name =~ /\.(WCHAR_T.conf|UTF-16.conf)$/i) {
220 return;
221 }
222 push @files_conf, ($name);
223 }
224 elsif ($name =~ /\.(conf.xml)$/i) {
225 if ($name =~ /\.(WCHAR_T.conf.xml|UTF-16.conf.xml)$/i) {
226 return;
227 }
228 push @files_conf, ($name);
229 }
230 elsif ($name =~ /\.(pm|cmd|java|sh|txt|xml)$/i) {
231 push @files_generic, ($name);
232 }
233 elsif ($name =~ /README$/i) {
234 push @files_generic, ($name);
235 }
236 }
237
238 ##############################################################################
239 ## Just messages
240
241 sub print_error ($)
242 {
243 my $msg = shift;
244 print "Error: $msg\n";
245 ++$errors;
246 }
247
248
249 sub print_warning ($)
250 {
251 my $msg = shift;
252 print "Warning: $msg\n";
253 ++$warnings;
254 }
255
256 ##############################################################################
257 ## Check if test is suppressed
258
259 sub is_suppressed ()
260 {
261 my $method = (split (/::/, (caller(1))[3]))[-1];
262 return (defined $suppressed_tests{$method} ? 1 : 0);
263 }
264
265 ##############################################################################
266 ## Tests
267
268 # The point of this test is to check for the existence of ACE_INLINE
269 # or ASYS_INLINE in a .cpp file. This is most commonly caused by
270 # copy/pasted code from a .inl/.i file
271 sub check_for_inline_in_cpp ()
272 {
273 return if is_suppressed ();
274
275 print "Running ACE_INLINE/ASYS_INLINE check\n";
276 foreach $file (@files_cpp) {
277 if (open (FILE, $file)) {
278 print "Looking at file $file\n" if $opt_d;
279 while (<FILE>) {
280 if (/^ACE_INLINE/) {
281 print_error ("$file:$.: ACE_INLINE found");
282 }
283 if (/^ASYS_INLINE/) {
284 print_error ("$file:$.: ASYS_INLINE found");
285 }
286 }
287 close (FILE);
288 }
289 else {
290 print STDERR "Error: Could not open $file\n";
291 }
292 }
293 }
294
295 # This test checks to make sure we have no files with $Id string in them.
296 sub check_for_id_string ()
297 {
298 return if is_suppressed ();
299
300 print "Running \$Id\$ string check\n";
301 foreach $file (@files_cpp, @files_inl, @files_h, @files_mpc, @files_bor,
302 @files_gnu, @files_html, @files_idl, @files_pl,
303 @files_cdp, @files_py, @files_conf, @files_generic, @files_features) {
304 my $found = 0;
305 if (open (FILE, $file)) {
306 print "Looking at file $file\n" if $opt_d;
307 while (<FILE>) {
308 if (/\$id\$/) {
309 print_error ("$file:$.: Incorrect \$id\$ found (correct casing)");
310 }
311 if (/\$Id:\$/) {
312 print_error ("$file:$.: Incorrect \$Id:\$ found (remove colon)");
313 }
314 if (/\$Id\$/ || /\$Id: /) {
315 $found = 1;
316 }
317 }
318 close (FILE);
319 if ($found == 1) {
320 print_error ("$file: \$Id\$ string found, not used anymore.");
321 }
322 }
323 else {
324 print STDERR "Error: Could not open $file\n";
325 }
326 }
327 }
328
329 # check for _MSC_VER
330 sub check_for_msc_ver_string ()
331 {
332 return if is_suppressed ();
333
334 print "Running _MSC_VER check\n";
335 foreach $file (@files_cpp, @files_inl, @files_h) {
336 my $found = 0;
337 if (open (FILE, $file)) {
338 my $disable = 0;
339 my $mscline = 0;
340 print "Looking at file $file\n" if $opt_d;
341 while (<FILE>) {
342 if (/FUZZ\: disable check_for_msc_ver/) {
343 $disable = 1;
344 }
345 if (/FUZZ\: enable check_for_msc_ver/) {
346 $disable = 0;
347 }
348 if ($disable == 0 and /\_MSC_VER \<= 1200/) {
349 $found = 1;
350 $mscline = $.;
351 }
352 if ($disable == 0 and /\_MSC_VER \>= 1200/) {
353 $found = 1;
354 $mscline = $.;
355 }
356 if ($disable == 0 and /\_MSC_VER \> 1200/) {
357 $found = 1;
358 $mscline = $.;
359 }
360 if ($disable == 0 and /\_MSC_VER \< 1300/) {
361 $found = 1;
362 $mscline = $.;
363 }
364 if ($disable == 0 and /\_MSC_VER \<= 1300/) {
365 $found = 1;
366 $mscline = $.;
367 }
368 if ($disable == 0 and /\_MSC_VER \>= 1300/) {
369 $found = 1;
370 $mscline = $.;
371 }
372 if ($disable == 0 and /\_MSC_VER \< 1310/) {
373 $found = 1;
374 $mscline = $.;
375 }
376 if ($disable == 0 and /\_MSC_VER \>= 1310/) {
377 $found = 1;
378 $mscline = $.;
379 }
380 }
381 close (FILE);
382 if ($found == 1) {
383 print_error ("$file:$mscline: Incorrect _MSC_VER check found");
384 }
385 }
386 else {
387 print STDERR "Error: Could not open $file\n";
388 }
389 }
390 }
391
392 # This test checks for the newline at the end of a file
393 sub check_for_newline ()
394 {
395 return if is_suppressed ();
396
397 print "Running newline check\n";
398 foreach $file (@files_cpp, @files_inl, @files_h,
399 @files_html, @files_idl, @files_pl) {
400 if (open (FILE, $file)) {
401 my $line;
402 print "Looking at file $file\n" if $opt_d;
403 while (<FILE>) {
404 $line = $_
405 }
406 close (FILE);
407 if ($line !~ /\n$/) {
408 print_error ("$file:$.: No ending newline found in $file");
409 }
410 }
411 else {
412 print STDERR "Error: Could not open $file\n";
413 }
414 }
415 }
416
417
418 # This test checks for files that are not allowed to be in svn
419 sub check_for_noncvs_files ()
420 {
421 return if is_suppressed ();
422
423 print "Running non svn files check\n";
424 foreach $file (@files_noncvs, @files_dsp, @files_dsw, @files_makefile, @files_bor) {
425 print_error ("File $file should not be in svn!");
426 }
427 }
428
429 # This test checks for the use of ACE_SYNCH_MUTEX in TAO/CIAO,
430 # TAO_SYNCH_MUTEX should used instead.
431
432 sub check_for_ACE_SYNCH_MUTEX ()
433 {
434 return if is_suppressed ();
435
436 print "Running ACE_SYNCH_MUTEX check\n";
437 ITERATION: foreach $file (@files_cpp, @files_inl, @files_h) {
438 if (open (FILE, $file)) {
439 my $disable = 0;
440 print "Looking at file $file\n" if $opt_d;
441 while (<FILE>) {
442 if (/FUZZ\: disable check_for_ACE_SYNCH_MUTEX/) {
443 $disable = 1;
444 }
445 if (/FUZZ\: enable check_for_ACE_SYNCH_MUTEX/) {
446 $disable = 0;
447 next;
448 }
449 if ($disable == 0 and /ACE_SYNCH_MUTEX/) {
450 # It is okay to use ACE_SYNCH_MUTEX in ACE
451 # so don't check the ACE directory. The below
452 # will check it for TAO and CIAO.
453 if (($file !~ /.*TAO.*/)) {
454 next ITERATION;
455 }
456
457 # Disable the check in the ESF directory for the
458 # time being until we fix the issues there.
459 if(($file =~ /.*TAO\/orbsvcs\/orbsvcs\/ESF.*/)) {
460 next ITERATION;
461 }
462
463 print_error ("$file:$.: found ACE_SYNCH_MUTEX, use TAO_SYNCH_MUTEX instead");
464 }
465 }
466 close (FILE);
467 }
468 else {
469 print STDERR "Error: Could not open $file\n";
470 }
471 }
472 }
473
474 # This test checks for not having export files in CIAO, all have to be ---
475 # generated using TAO_IDL. If you have a file that must be in the repository
476 # remove the generated automatically by line
477 sub check_for_export_file ()
478 {
479 return if is_suppressed ();
480
481 print "Running export file check\n";
482 ITERATION: foreach $file (@files_h) {
483 if (($file =~ /.*CIAO.*export.h/) || ($file =~ /.*DAnCE.*export.h/)) {
484 if (open (FILE, $file)) {
485 print "Looking at file $file\n" if $opt_d;
486 while (<FILE>) {
487 if (/generated automatically by/) {
488 print_error ("$file:$.: file should be generated by TAO_IDL, check -Gxh** option");
489 }
490 }
491 close (FILE);
492 }
493 else {
494 print STDERR "Error: Could not open $file\n";
495 }
496 }
497 }
498 }
499
500
501 # This test checks for the use of ACE_Thread_Mutex in TAO/CIAO,
502 # TAO_SYNCH_MUTEX should used instead to make the code build
503 # in single-threaded builds.
504 sub check_for_ACE_Thread_Mutex ()
505 {
506 return if is_suppressed ();
507
508 print "Running ACE_Thread_Mutex check\n";
509 ITERATION: foreach $file (@files_cpp, @files_inl, @files_h) {
510 if (open (FILE, $file)) {
511 my $disable = 0;
512 print "Looking at file $file\n" if $opt_d;
513 while (<FILE>) {
514 if (/FUZZ\: disable check_for_ACE_Thread_Mutex/) {
515 $disable = 1;
516 }
517 if (/FUZZ\: enable check_for_ACE_Thread_Mutex/) {
518 $disable = 0;
519 next;
520 }
521 if ($disable == 0 and /ACE_Thread_Mutex/) {
522 # It is okay to use ACE_Thread_Mutex in ACE
523 # so don't check the ACE directory. The below
524 # will check it for TAO and CIAO.
525 if (($file !~ /.*TAO.*/)) {
526 next ITERATION;
527 }
528
529 print_error ("$file:$.: found ACE_Thread_Mutex, use TAO_SYNCH_MUTEX instead to allow the code to work in single-threaded builds");
530 }
531 }
532 close (FILE);
533 }
534 else {
535 print STDERR "Error: Could not open $file\n";
536 }
537 }
538 }
539
540 # This test checks for the use of ACE_Guard
541 # ACE_GUARD should used because it checks if we really got a lock
542 # in single-threaded builds.
543 sub check_for_ACE_Guard ()
544 {
545 return if is_suppressed ();
546
547 print "Running ACE_Guard check\n";
548 ITERATION: foreach $file (@files_cpp, @files_inl, @files_h) {
549 if (open (FILE, $file)) {
550 my $disable = 0;
551 print "Looking at file $file\n" if $opt_d;
552 while (<FILE>) {
553 if (/FUZZ\: disable check_for_ACE_Guard/) {
554 $disable = 1;
555 }
556 if (/FUZZ\: enable check_for_ACE_Guard/) {
557 $disable = 0;
558 next;
559 }
560 if ($disable == 0 and /ACE_Guard/) {
561 print_error ("$file:$.: found ACE_Guard, use ACE_GUARD");
562 }
563 if ($disable == 0 and /ACE_Read_Guard/) {
564 print_error ("$file:$.: found ACE_Read_Guard, use ACE_READ_GUARD");
565 }
566 if ($disable == 0 and /ACE_Write_Guard/) {
567 print_error ("$file:$.: found ACE_Write_Guard, use ACE_WRITE_GUARD");
568 }
569 }
570 close (FILE);
571 }
572 else {
573 print STDERR "Error: Could not open $file\n";
574 }
575 }
576 }
577
578 # This test checks for the use of tabs, spaces should be used instead of tabs
579 sub check_for_tab ()
580 {
581 return if is_suppressed ();
582
583 print "Running tabs check\n";
584 ITERATION: foreach $file (@files_cpp, @files_inl, @files_h, @files_idl, @files_cdp, @files_doxygen, @files_changelog) {
585 if (open (FILE, $file)) {
586 my $disable = 0;
587 print "Looking at file $file\n" if $opt_d;
588 while (<FILE>) {
589 if (/FUZZ\: disable check_for_tab/) {
590 $disable = 1;
591 }
592 if (/FUZZ\: enable check_for_tab/) {
593 $disable = 0;
594 }
595 if ($disable == 0 and /.*\t.*/) {
596 print_error ("$file:$.: found tab");
597 }
598 }
599 close (FILE);
600 }
601 else {
602 print STDERR "Error: Could not open $file\n";
603 }
604 }
605 }
606
607 sub check_for_trailing_whitespace ()
608 {
609 return if is_suppressed ();
610
611 print "Running trailing_whitespaces check\n";
612 ITERATION: foreach $file (@files_cpp, @files_inl, @files_h, @files_idl,
613 @files_cdp, @files_pl, @files_py, @files_generic) {
614 if (open (FILE, $file)) {
615 my $disable = 0;
616 print "Looking at file $file\n" if $opt_d;
617 while (<FILE>) {
618 if (/FUZZ\: disable check_for_trailing_whitespace/) {
619 $disable = 1;
620 }
621 if (/FUZZ\: enable check_for_trailing_whitespace/) {
622 $disable = 0;
623 }
624 if ($disable == 0 and /\s\n$/) {
625 print_error ("$file:$.: found trailing whitespace");
626 }
627 }
628 close (FILE);
629 }
630 else {
631 print STDERR "Error: Could not open $file\n";
632 }
633 }
634 }
635
636 # This test checks for the lack of ACE_OS
637 sub check_for_lack_ACE_OS ()
638 {
639 return if is_suppressed ();
640
641 $OS_NS_arpa_inet_symbols = "inet_addr|inet_aton|inet_ntoa|inet_ntop|inet_pton";
642
643 $OS_NS_ctype_symbols = "isalnum|isalpha|iscntrl|isdigit|isgraph|islower|isprint|ispunct|isspace|isupper|isxdigit|tolower|toupper|isblank|isascii|isctype|iswctype";
644
645 $OS_NS_dirent_symbols = "closedir|opendir|readdir|readdir_r|rewinddir|scandir|alphasort|seekdir|telldir|opendir_emulation|scandir_emulation|closedir_emulation|readdir_emulation";
646
647 $OS_NS_dlfcn_symbols = "dlclose|dlerror|dlopen|dlsym";
648
649 $OS_NS_errno_symbols = "last_error|set_errno_to_last_error|set_errno_to_wsa_last_error";
650
651 $OS_NS_fcntl_symbols = "fcntl|open";
652
653 $OS_NS_math_symbols = "floor|ceil|log2";
654
655 $OS_NS_netdb_symbols = "gethostbyaddr|gethostbyaddr_r|gethostbyname|gethostbyname_r|getipnodebyaddr|getipnodebyname|getmacaddress|getprotobyname|getprotobyname_r|getprotobynumber|getprotobynumber_r|getservbyname|getservbyname_r|netdb_acquire|netdb_release";
656
657 $OS_NS_poll_symbols = "poll";
658
659 $OS_NS_pwd_symbols = "endpwent|getpwent|getpwnam|getpwnam_r|setpwent";
660
661 $OS_NS_regex_symbols = "compile|step";
662
663 $OS_NS_signal_symbols = "kill|pthread_sigmask|sigaction|sigaddset|sigdelset|sigemptyset|sigfillset|sigismember|signal|sigprocmask|sigsuspend|raise";
664
665 $OS_NS_stdio_symbols = "fileno|checkUnicodeFormat|clearerr|cuserid|fclose|fdopen|fflush|fgetc|getc|fgetpos|fgets|flock_adjust_params|flock_init|flock_destroy|flock_rdlock|flock_tryrdlock|flock_trywrlock|flock_unlock|flock_wrlock|fopen|default_win32_security_attributes|default_win32_security_attributes_r|get_win32_versioninfo|get_win32_resource_module|set_win32_resource_module|fprintf|ungetc|fputc|putc|fputs|fread|freopen|fseek|fsetpos|ftell|fwrite|perror|printf|puts|rename|rewind|snprintf|sprintf|tempnam|vsprintf|vsnprintf|asprintf|aswprintf|vasprintf|vaswprintf";
666
667 $OS_NS_stdlib_symbols = "_exit|abort|atexit|atof|atol|atoi|atop|bsearch|calloc|exit|free|getenv|getenvstrings|itoa|itoa_emulation|itow_emulation|malloc|mkstemp|mkstemp_emulation|mktemp|setenv|unsetenv|putenv|qsort|rand|rand_r|realloc|realpath|set_exit_hook|srand|strenvdup|strtod|strtol|strtol_emulation|strtoul|strtoul_emulation|strtoll|strtoll_emulation|strtoull|strtoull_emulation|system|getprogname|setprogname";
668
669 $OS_NS_string_symbols = "memchr|memchr_emulation|memcmp|memcpy|fast_memcpy|memmove|memset|strcat|strchr|strcmp|strcpy|strcspn|strdup|strdup_emulation|strecpy|strerror|strerror_emulation|strsignal|strlen|strncat|strnchr|strncmp|strncpy|strnlen|strnstr|strpbrk|strrchr|strrchr_emulation|strsncpy|strspn|strstr|strtok|strtok_r|strtok_r_emulation";
670
671 $OS_NS_strings_symbols = "strcasecmp|strncasecmp|strcasecmp_emulation";
672
673 $OS_NS_stropts_symbols = "getmsg|getpmsg|fattach|fdetach|ioctl|isastream|putmsg|putpmsg";
674
675 $OS_NS_sys_mman_symbols = "madvise|mmap|mprotect|msync|munmap|shm_open|shm_unlink";
676
677 $OS_NS_sys_msg_symbols = "msgctl|msgget|msgrcv|msgsnd";
678
679 $OS_NS_sys_resource_symbols = "getrlimit|getrusage|setrlimit";
680
681 $OS_NS_sys_select_symbols = "select";
682
683 $OS_NS_sys_sendfile_symbols = "sendfile|sendfile_emulation";
684
685 $OS_NS_sys_shm_symbols = "shmat|shmctl|shmdt|shmget";
686
687 $OS_NS_sys_socket_symbols = "accept|bind|closesocket|connect|enum_protocols|getpeername|getsockname|getsockopt|join_leaf|listen|recv|recvfrom|recvmsg|recvv|send|sendmsg|sendto|sendv|setsockopt|shutdown|if_nametoindex|if_indextoname|if_nameindex|socket_init|socket_fini|socket|socketpair";
688
689 $OS_NS_sys_stat_symbols = "creat|filesize|fstat|lstat|mkdir|mkfifo|stat|umask";
690
691 $OS_NS_sys_time_symbols = "gettimeofday";
692
693 $OS_NS_sys_uio_symbols = "readv|readv_emulation|writev|writev_emulation";
694
695 $OS_NS_sys_utsname_symbols = "uname";
696
697 $OS_NS_sys_wait_symbols = "wait|waitpid";
698
699 $OS_NS_Thread_symbols = "cleanup_tss|condattr_init|condattr_destroy|cond_broadcast|cond_destroy|cond_init|cond_signal|cond_timedwait|cond_wait|event_destroy|event_init|event_pulse|event_reset|event_signal|event_timedwait|event_wait|lwp_getparams|lwp_setparams|mutex_destroy|mutex_init|mutex_lock|mutex_lock_cleanup|mutex_trylock|mutex_unlock|priority_control|recursive_mutex_cond_unlock|recursive_mutex_cond_relock|recursive_mutex_destroy|recursive_mutex_init|recursive_mutex_lock|recursive_mutex_trylock|recursive_mutex_unlock|rw_rdlock|rw_tryrdlock|rw_trywrlock|rw_trywrlock_upgrade|rw_unlock|rw_wrlock|rwlock_destroy|rwlock_init|sched_params|scheduling_class|sema_destroy|sema_init|sema_post|sema_trywait|sema_wait|semctl|semget|semop|set_scheduling_params|sigtimedwait|sigwait|sigwaitinfo|thr_cancel|thr_cmp|thr_continue|thr_create|thr_equal|thr_exit|thr_getconcurrency|thr_getprio|thr_getspecific_native|thr_getspecific|thr_join|thr_get_affinity|thr_set_affinity|thr_key_detach|thr_key_used|thr_keycreate_native|thr_keycreate|thr_keyfree|thr_kill|thr_min_stack|thr_self|thr_setcancelstate|thr_setcanceltype|thr_setconcurrency|thr_setprio|thr_setspecific_native|thr_setspecific|thr_sigsetmask|thr_suspend|thr_testcancel|thr_yield|thread_mutex_destroy|thread_mutex_init|thread_mutex_lock|thread_mutex_trylock|thread_mutex_unlock|unique_name";
700
701 $OS_NS_time_symbols = "asctime|asctime_r|clock_gettime|clock_settime|ctime|ctime_r|difftime|gmtime|gmtime_r|localtime|localtime_r|mktime|nanosleep|readPPCTimeBase|strftime|strptime|strptime_emulation|strptime_getnum|time|timezone|tzset";
702
703 $OS_NS_unistd_symbols = "access|alarm|allocation_granularity|argv_to_string|chdir|rmdir|close|dup|dup2|execl|execle|execlp|execv|execve|execvp|fork|fork_exec|fsync|ftruncate|getcwd|getgid|getegid|getopt|getpagesize|getpgid|getpid|getppid|getuid|geteuid|hostname|isatty|lseek|llseek|num_processors|num_processors_online|pipe|pread|pwrite|read|read_n|readlink|sbrk|setgid|setegid|setpgid|setregid|setreuid|setsid|setuid|seteuid|sleep|string_to_argv|swab|sysconf|sysinfo|truncate|ualarm|unlink|write|write_n";
704
705 $OS_NS_wchar_symbols = "fgetwc|wcscat_emulation|wcschr_emulation|wcscmp_emulation|wcscpy_emulation|wcscspn_emulation|wcsicmp_emulation|wcslen_emulation|wcsncat_emulation|wcsncmp_emulation|wcsncpy_emulation|wcsnicmp_emulation|wcspbrk_emulation|wcsrchr_emulation|wcsrchr_emulation|wcsspn_emulation|wcsstr_emulation|wslen|wscpy|wscmp|wsncmp|ungetwc";
706
707 print "Running ACE_OS check\n";
708 foreach $file (@files_cpp, @files_inl) {
709 if (open (FILE, $file)) {
710 my $disable = 0;
711 print "Looking at file $file\n" if $opt_d;
712 while (<FILE>) {
713 if (/FUZZ\: disable check_for_lack_ACE_OS/) {
714 $disable = 1;
715 }
716 if (/FUZZ\: enable check_for_lack_ACE_OS/) {
717 $disable = 0;
718 }
719 if ($disable == 0) {
720 if($file !~ /.c$/ && $file !~ /S.cpp$/ && $file !~ /S.inl$/ && $file !~ /C.cpp$/ && $file !~ /C.inl$/) {
721 if($file !~ /OS_NS_arpa_inet/) {
722 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_arpa_inet_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
723 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_arpa_inet.h");
724 }
725 }
726 if($file !~ /OS_NS_ctype/) {
727 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_ctype_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
728 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_ctype.h");
729 }
730 }
731 if($file !~ /OS_NS_dirent/) {
732 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_dirent_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
733 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_dirent.h");
734 }
735 }
736 if($file !~ /OS_NS_dlfcn/) {
737 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_dlfcn_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
738 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_dlfcn.h");
739 }
740 }
741 if($file !~ /OS_NS_errno/) {
742 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_errno_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
743 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_errno.h");
744 }
745 }
746 if($file !~ /OS_NS_fcntl/) {
747 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_fcntl_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
748 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_fcntl.h");
749 }
750 }
751 if($file !~ /OS_NS_math/) {
752 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_math_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
753 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_math.");
754 }
755 }
756 if($file !~ /OS_NS_netdb/) {
757 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_netdb_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
758 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_netdb.h");
759 }
760 }
761 if($file !~ /OS_NS_poll/) {
762 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_netdb_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
763 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_poll.h");
764 }
765 }
766 if($file !~ /OS_NS_pwd/) {
767 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_pwd_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
768 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_pwd.h");
769 }
770 }
771 if($file !~ /OS_NS_regex/) {
772 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_regex_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
773 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_regex.h");
774 }
775 }
776 if($file !~ /OS_NS_signal/) {
777 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_signal_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
778 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_signal.h");
779 }
780 }
781 if($file !~ /OS_NS_stdlib/) {
782 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_stdlib_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
783 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_stdlib.h");
784 }
785 }
786 if($file !~ /OS_NS_stdio/) {
787 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_stdio_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
788 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_stdio.h");
789 }
790 }
791 if($file !~ /OS_NS_string/) {
792 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_string_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
793 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_string.h");
794 }
795 }
796 if($file !~ /OS_NS_strings/) {
797 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_strings_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
798 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_strings.h");
799 }
800 }
801 if($file !~ /OS_NS_stropts/) {
802 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_stropts_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
803 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_stropts.h");
804 }
805 }
806 if($file !~ /OS_NS_sys_mman/) {
807 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_mman_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
808 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_mman.h");
809 }
810 }
811 if($file !~ /OS_NS_sys_msg/) {
812 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_msg_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
813 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_msg.h");
814 }
815 }
816 if($file !~ /OS_NS_sys_resource/) {
817 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_resource_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
818 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_resource.h");
819 }
820 }
821 if($file !~ /OS_NS_sys_select/) {
822 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_select_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
823 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_select.h");
824 }
825 }
826 if($file !~ /OS_NS_sys_sendfile/) {
827 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_sendfile_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
828 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_sendfile.h");
829 }
830 }
831 if($file !~ /OS_NS_sys_shm/) {
832 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_shm_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
833 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_shm.h");
834 }
835 }
836 if($file !~ /OS_NS_sys_socket/) {
837 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_socket_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
838 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_socket.h");
839 }
840 }
841 if($file !~ /OS_NS_sys_stat/) {
842 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_stat_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
843 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_stat.h");
844 }
845 }
846 if($file !~ /OS_NS_sys_time/) {
847 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_time_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
848 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_time.h");
849 }
850 }
851 if($file !~ /OS_NS_sys_uio/) {
852 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_uio_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
853 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_uio.h");
854 }
855 }
856 if($file !~ /OS_NS_sys_utsname/) {
857 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_utsname_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
858 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_utsname.h");
859 }
860 }
861 if($file !~ /OS_NS_sys_wait/) {
862 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_sys_wait_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
863 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_sys_wait.h");
864 }
865 }
866 if($file !~ /OS_NS_Thread/) {
867 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_Thread_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
868 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_Thread.h");
869 }
870 }
871 if($file !~ /OS_NS_time/) {
872 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_time_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
873 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_time.h");
874 }
875 }
876 if($file !~ /OS_NS_unistd/) {
877 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_unistd_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
878 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_unistd.h");
879 }
880 }
881 if($file !~ /OS_NS_wchar/) {
882 if(/(\s+:{0,2}|\(:{0,2}|\s*!:{0,2}|^|\):{0,2})($OS_NS_wchar_symbols)\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
883 print_error ("$file:$.: missing ACE_OS use ace/OS_NS_wchar.h");
884 }
885 }
886 }
887 }
888 }
889 close (FILE);
890 }
891 else {
892 print STDERR "Error: Could not open $file\n";
893 }
894 }
895 }
896
897 # This test checks for the use of exception specification,
898 # exception specification has fallen out of favor, and generally
899 # should not be used.
900 sub check_for_exception_spec ()
901 {
902 return if is_suppressed ();
903
904 print "Running exception specification check\n";
905
906 foreach $file (@files_cpp, @files_inl, @files_h) {
907 if (open (FILE, $file)) {
908 my $disable = 0;
909 print "Looking at file $file\n" if $opt_d;
910 while (<FILE>) {
911 if (/FUZZ\: disable check_for_exception_sepc/) {
912 $disable = 1;
913 }
914 if (/FUZZ\: enable check_for_exception_sepc/) {
915 $disable = 0;
916 }
917 if ($disable == 0) {
918 if(/throw\s*\(\s*\)/) {
919 #next;
920 }
921 elsif(/(^|\s+)throw\s*\(/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
922 print_error ("$file:$.: exception specification found");
923 }
924 }
925 }
926 close (FILE);
927 }
928 else {
929 print STDERR "Error: Could not open $file\n";
930 }
931 }
932 }
933
934 # This test checks for the use of NULL,
935 # NULL shouldn't be used, use 0 instead
936 sub check_for_NULL ()
937 {
938 return if is_suppressed ();
939
940 print "Running NULL usage check\n";
941
942 foreach $file (@files_cpp, @files_inl, @files_h) {
943 if (open (FILE, $file)) {
944 my $disable = 0;
945 print "Looking at file $file\n" if $opt_d;
946 while (<FILE>) {
947 if (/FUZZ\: disable check_for_NULL/) {
948 $disable = 1;
949 }
950 if (/FUZZ\: enable check_for_NULL/) {
951 $disable = 0;
952 }
953 if ($disable == 0) {
954 if(/(\(|\)|\s+|=)NULL(\)|\s+|\;|\,)/ and $` !~ /\/\// and $` !~ /\/\*/ and $` !~ /\*\*+/ and $` !~ /\s+\*+\s+/) {
955 print_error ("$file:$.: NULL found");
956 }
957 }
958 }
959 close (FILE);
960 }
961 else {
962 print STDERR "Error: Could not open $file\n";
963 }
964 }
965 }
966
967 # This test checks for improper main declaration,
968 # the proper form should look like:
969 # int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
970 sub check_for_improper_main_declaration ()
971 {
972 return if is_suppressed ();
973
974 print "Running Improper main() declaration check\n";
975
976 foreach $file (@files_cpp) {
977 if (open (FILE, $file)) {
978 my $disable = 0;
979 my $type_of_main;
980 my $multi_line;
981 my $not_found_end_line_count= 0;
982 print "Looking at file $file\n" if $opt_d;
983 while (<FILE>) {
984 if (!defined $multi_line) {
985 if (/FUZZ\: disable check_for_improper_main_declaration/) {
986 $disable = 1;
987 next;
988 }
989 elsif (/FUZZ\: enable check_for_improper_main_declaration/) {
990 $disable = 0;
991 next;
992 }
993 elsif ($disable == 0) {
994 s/^\s+//; ## Remove leading space
995 s/\s*(\/\/.*)?$//; ## Remove trailing space and line comments
996 if (s/^(?:.*\s)?(main|ACE_TMAIN)\s*//) {
997 $type_of_main = $1; ## main or ACE_TMAIN
998 $multi_line = $_; ## Rest of the line
999 }
1000 else {
1001 next;
1002 }
1003 }
1004 }
1005 else {
1006 $_ =~ s/^\s+//; ## Remove leading space
1007 $_ =~ s/\s*(\/\/.*)?$//; ## Remove trailling space and line comments
1008 if ($multi_line eq "") { ## Append this line to existing statement.
1009 $multi_line = $_;
1010 }
1011 else {
1012 $multi_line .= ' ' . $_;
1013 }
1014 }
1015 $multi_line =~ s!^(/+\*.*?\*/\s*)*!!; ## Remove leading /* ... */ comments
1016 next if ($multi_line eq ""); ## Must have something after main
1017 if ($multi_line !~ m/^\(/) {
1018 ## Not a function opening bracket, we will ignore this one
1019 ## it is not a main function.
1020 undef $multi_line;
1021 $not_found_end_line_count = 0;
1022 }
1023 elsif ($multi_line =~ s/^\(\s*([^\)]*?)\s*\)[^;\{]*?\{//) {
1024 $multi_line = $1; ## What was between the main's ( and )
1025 $multi_line =~ s/\s{2,}/ /g; ## Compress white space
1026 my $was = $multi_line;
1027 $multi_line =~ s!([^/])\*\s([^/])!$1\*$2!g; ## Remove space after * (except around comment)
1028 $multi_line =~ s!([^/])\s\[!$1\[!g; ## Remove space before [ (except following comment)
1029 $multi_line =~ s!\s?\*/\s?/\*\s?! !g; ## Connect seporate adjacent /* ... */ comments
1030 if ($multi_line =~ s!^([^,]*?)\s?,\s?(/+\*.*?\*/\s?)*!!) { # Fails if only 1 parameter (ignore this main)
1031 my $arg1 = $1;
1032 if ($multi_line =~ s/^(\w[\w\d]*)\s?//) { # Fails if no type for 2nd parameter (ignore this main)
1033 my $arg2_type = $1;
1034 $multi_line =~ s!^(?:/+\*.*?\*/\s?)?(\**)(\w[\w\d]*|\s?/\*.*?\*/\s?)?!!;
1035 my $prefix = $1; ## should be * or **
1036 my $name = $2; ## is now arg2's variable name
1037 $multi_line =~ s!\s?\*/\s?/\*\s?! !g; ## Connect seporate adjacent /* ... */ comments
1038
1039 ## remove any comment after postfix
1040 if ($multi_line =~ s!\s?(/+\*.*?\*/)$!! && $name eq '') {
1041 $name = "$1 "; ## Some name argv in comment after []
1042 }
1043 ## multi_line now postfix, should be []
1044
1045 if ($type_of_main ne 'ACE_TMAIN' ||
1046 $arg2_type ne 'ACE_TCHAR' ||
1047 !(($prefix eq '*' && $multi_line eq '[]') ||
1048 ($prefix eq '**' && $multi_line eq '' )) ) {
1049 print_error ("$file:$.: $type_of_main ($was) should be ACE_TMAIN ($arg1, ACE_TCHAR \*$name\[])");
1050 }
1051 }
1052 }
1053
1054 undef $multi_line;
1055 $not_found_end_line_count = 0;
1056 }
1057 elsif ($not_found_end_line_count < 10) { # Limit the search for ( ... ) following main to ten lines
1058 ++$not_found_end_line_count;
1059 }
1060 else {
1061 undef $multi_line;
1062 $not_found_end_line_count = 0;
1063 }
1064 }
1065 close (FILE);
1066 }
1067 else {
1068 print STDERR "Error: Could not open $file\n";
1069 }
1070 }
1071 }
1072
1073 # This test checks for the use of "inline" instead of ACE_INLINE
1074 sub check_for_inline ()
1075 {
1076 return if is_suppressed ();
1077
1078 print "Running inline check\n";
1079 foreach $file (@files_inl) {
1080 if (open (FILE, $file)) {
1081 my $disable = 0;
1082 print "Looking at file $file\n" if $opt_d;
1083 while (<FILE>) {
1084 if (/FUZZ\: disable check_for_inline/) {
1085 $disable = 1;
1086 }
1087 if (/FUZZ\: enable check_for_inline/) {
1088 $disable = 0;
1089 }
1090 if ($disable == 0 and m/^\s*inline/) {
1091 print_error ("$file:$.: 'inline' keyword found");
1092 }
1093 }
1094 close (FILE);
1095 }
1096 else {
1097 print STDERR "Error: Could not open $file\n";
1098 }
1099 }
1100 }
1101
1102
1103 # This test checks for the inclusion of math.h. math.h should be avoided
1104 # since on some platforms, "exceptions" is defined as a struct, which will
1105 # cause problems with exception handling
1106 sub check_for_math_include ()
1107 {
1108 return if is_suppressed ();
1109
1110 print "Running math.h test\n";
1111 foreach $file (@files_h, @files_cpp, @files_inl) {
1112 if (open (FILE, $file)) {
1113 my $disable = 0;
1114 print "Looking at file $file\n" if $opt_d;
1115 while (<FILE>) {
1116 if (/FUZZ\: disable check_for_math_include/) {
1117 $disable = 1;
1118 }
1119 if (/FUZZ\: enable check_for_math_include/) {
1120 $disable = 0;
1121 }
1122 if ($disable == 0
1123 and /^\s*#\s*include\s*(\/\*\*\/){0,1}\s*\<math\.h\>/) {
1124 print_error ("$file:$.: <math.h> included");
1125 }
1126 }
1127 close (FILE);
1128 }
1129 else {
1130 print STDERR "Error: Could not open $file\n";
1131 }
1132 }
1133 }
1134
1135 # This test checks for the inclusion of streams.h.
1136 # // FUZZ: disable check_for_streams_include
1137 sub check_for_streams_include ()
1138 {
1139 return if is_suppressed ();
1140
1141 print "Running ace/streams.h test\n";
1142 foreach $file (@files_h, @files_cpp, @files_inl) {
1143 if (open (FILE, $file)) {
1144 my $disable = 0;
1145 print "Looking at file $file\n" if $opt_d;
1146 while (<FILE>) {
1147 if (/FUZZ\: disable check_for_streams_include/) {
1148 $disable = 1;
1149 }
1150 if (/FUZZ\: enable check_for_streams_include/) {
1151 $disable = 0;
1152 }
1153 if ($disable == 0
1154 and /^\s*#\s*include\s*\"ace\/streams\.h\"/) {
1155 print_error ("$file:$.: expensive ace/streams.h included; consider ace/iosfwd.h");
1156 print " ace/streams.h is very expensive in both ";
1157 print "compile-time and footprint. \n";
1158 print " Please consider including ace/iosfwd.h instead.\n\n";
1159 }
1160 }
1161 close (FILE);
1162 }
1163 else {
1164 print STDERR "Error: Could not open $file\n";
1165 }
1166 }
1167 }
1168
1169 # This test checks for the inclusion of Synch*.h.
1170 sub check_for_synch_include ()
1171 {
1172 return if is_suppressed ();
1173
1174 print "Running ace/Synch*.h test\n";
1175 foreach $file (@files_h, @files_cpp, @files_inl) {
1176 if (open (FILE, $file)) {
1177 my $disable = 0;
1178 print "Looking at file $file\n" if $opt_d;
1179 while (<FILE>) {
1180 if (/FUZZ\: disable check_for_synch_include/) {
1181 $disable = 1;
1182 }
1183 if (/FUZZ\: enable check_for_synch_include/) {
1184 $disable = 0;
1185 }
1186 if ($disable == 0
1187 and (/^\s*#\s*include\s*\"(ace\/Synch\.h)\"/
1188 or /^\s*#\s*include\s*\"(ace\/Synch_T\.h)\"/)) {
1189 my $synch = $1;
1190 print_error ("$file:$.: expensive $synch included; consider individual synch file");
1191 print " $synch is very expensive in both ";
1192 print "compile-time and footprint. \n";
1193 print " Please consider including one of the ";
1194 print "individual synch files instead.\n\n";
1195 }
1196 }
1197 close (FILE);
1198 }
1199 else {
1200 print STDERR "Error: Could not open $file\n";
1201 }
1202 }
1203 }
1204
1205 # For general readability, lines should not contain more than 80 characters
1206 sub check_for_line_length ()
1207 {
1208 return if is_suppressed ();
1209
1210 print "Running line length test\n";
1211 foreach $file (@files_h, @files_cpp, @files_inl) {
1212 if (open (FILE, $file)) {
1213 print "Looking at file $file\n" if $opt_d;
1214 while (<FILE>) {
1215
1216 # Make sure to ignore ACE_RCSID lines, since they
1217 # are difficult to get under 80 chars.
1218 if (/.{80,}/ and !/^ACE_RCSID/) {
1219 print_error ("$file:$.: line longer than 80 chars");
1220 }
1221 }
1222 close (FILE);
1223 }
1224 else {
1225 print STDERR "Error: Could not open $file\n";
1226 }
1227 }
1228 }
1229
1230
1231 # For preprocessor directives, only the old C style comments (/* */)
1232 # should be used, not the newer // style.
1233 sub check_for_preprocessor_comments ()
1234 {
1235 return if is_suppressed ();
1236
1237 print "Running preprocessor comment test\n";
1238 foreach $file (@files_h, @files_cpp, @files_inl) {
1239 if (open (FILE, $file)) {
1240 print "Looking at file $file\n" if $opt_d;
1241 while (<FILE>) {
1242 if (/^\#.*\/\//) {
1243 print_error ("$file:$.: C++ comment in directive");
1244 }
1245 }
1246 close (FILE);
1247 }
1248 else {
1249 print STDERR "Error: Could not open $file\n";
1250 }
1251 }
1252 }
1253
1254 # We should not have empty files in the repo
1255 sub check_for_empty_files ()
1256 {
1257 return if is_suppressed ();
1258
1259 print "Running empty file test\n";
1260 foreach $file (@files_inl, @files_cpp, @files_rb) {
1261 my $found_non_empty_line = 0;
1262 if (open (FILE, $file)) {
1263 print "Looking at file $file\n" if $opt_d;
1264 while (<FILE>) {
1265 next if /^[[:blank:]]*$/; # skip empty lines
1266 next if /^[[:blank:]]*\/\//; # skip C++ comments
1267 next if /^[[:blank:]]*\/\*/; # skip C++ comments
1268 $found_non_empty_line = 1;
1269 last;
1270 }
1271 close (FILE);
1272 if ($found_non_empty_line == 0) {
1273 print_error ("$file:1: empty file should not be in the repository");
1274 }
1275 }
1276 else {
1277 print STDERR "Error: Could not open $file\n";
1278 }
1279 }
1280 }
1281
1282
1283 # This test checks for the use of the Win32 Unicode string defines
1284 # or outdated ASYS_* macros
1285 # We should only be using the ACE_TCHAR, ACE_TEXT macros instead.
1286 sub check_for_tchar
1287 {
1288 return if is_suppressed ();
1289
1290 print "Running TCHAR test\n";
1291 foreach $file (@files_h, @files_cpp, @files_inl) {
1292 if (open (FILE, $file)) {
1293 my $disable = 0;
1294 print "Looking at file $file\n" if $opt_d;
1295 while (<FILE>) {
1296 if (/FUZZ\: disable check_for_tchar/) {
1297 $disable = 1;
1298 }
1299 if (/FUZZ\: enable check_for_tchar/) {
1300 $disable = 0;
1301 }
1302 if ($disable == 0) {
1303 if (/LPTSTR/) {
1304 print_error ("$file:$.: LPTSTR found");
1305 }
1306
1307 if (/LPCTSTR/) {
1308 print_error ("$file:$.: LPCTSTR found");
1309 }
1310
1311 if (/ASYS_TCHAR/) {
1312 print_error ("$file:$.: ASYS_TCHAR found");
1313 }
1314 elsif (/TCHAR/ and !/ACE_TCHAR/) {
1315 ### Do a double check, since some macros do have TCHAR
1316 ### (like DEFAULTCHARS)
1317 if (/^TCHAR[^\w_]/ or /[^\w_]TCHAR[^\w_]/) {
1318 print_error ("$file:$.: TCHAR found");
1319 }
1320 }
1321
1322 if (/ASYS_TEXT/) {
1323 print_error ("$file:$.: ASYS_TEXT found");
1324 }
1325 elsif (/TEXT/ and !/ACE_TEXT/) {
1326 ### Do a double check, since there are several macros
1327 ### that end with TEXT
1328 if (/^TEXT\s*\(/ or /[^\w_]TEXT\s*\(/) {
1329 print_error ("$file:$.: TEXT found");
1330 }
1331 }
1332 }
1333 }
1334 close (FILE);
1335 }
1336 else {
1337 print STDERR "Error: Could not open $file\n";
1338 }
1339 }
1340 }
1341
1342 # This checks to see if Makefiles define a DEPENDENCY_FILE, and if they do
1343 # whether or not it's in the cvs repo.
1344 sub check_for_dependency_file ()
1345 {
1346 return if is_suppressed ();
1347
1348 print "Running DEPENDENCY_FILE test\n";
1349 foreach $file (@files_makefile) {
1350 if (open (FILE, $file)) {
1351 print "Looking at file $file\n" if $opt_d;
1352 while (<FILE>) {
1353 if (/^DEPENDENCY_FILE\s* =\s*(.*)/) {
1354 my $depend = $1;
1355 my $path = $file;
1356 $path =~ s/\/GNUmakefile.*/\//;
1357 $depend = $path . $depend;
1358 unless (open (DFILE, $depend)) {
1359 print_error ("DEPENDENCY_FILE \"$depend\" not found");
1360 print " Either add \"$depend\" to svn ";
1361 print "or remove DEPENDENCY_FILE variable\n";
1362 print " from $file\n\n";
1363 }
1364 close (DFILE);
1365 }
1366 }
1367 close (FILE);
1368 }
1369 else {
1370 print_error ("cannot open $file");
1371 }
1372 }
1373 }
1374
1375 # This checks to see if GNUmakefiles define a MAKEFILE, and if it matches the
1376 # name of the GNUmakefile
1377 sub check_for_makefile_variable ()
1378 {
1379 return if is_suppressed ();
1380
1381 print "Running MAKEFILE variable test\n";
1382 foreach $file (@files_makefile) {
1383 if (!(substr($file,-4) eq ".bor")
1384 and !(substr($file,-3) eq ".am")
1385 and !(substr($file,-4) eq ".vac")
1386 and !(substr($file,-4) eq ".alt")) {
1387 if (open (FILE, $file)) {
1388 print "Looking at file $file\n" if $opt_d;
1389 my $makevarfound = 0;
1390 my $filename = basename($file,"");
1391 while (<FILE>) {
1392 if (/^MAKEFILE\s*=\s*(.*)/) {
1393 $makevarfound = 1;
1394 $makevar = $1;
1395 if (!($makevar eq $filename)) {
1396 print_error ("$file:$.: MAKEFILE variable $makevar != $filename");
1397 print " Change MAKEFILE = $filename in $file.\n\n";
1398 }
1399 }
1400 }
1401 if ($makevarfound == 0 and !($filename eq "GNUmakefile")) {
1402 print_error ("$file:$.: MAKEFILE variable missing in $file");
1403 print " Add MAKEFILE = $filename to the top of $file.\n\n";
1404 }
1405 close (FILE);
1406 }
1407 else {
1408 print_error ("cannot open $file");
1409 }
1410 }
1411 }
1412 }
1413
1414
1415 # This checks to make sure files include ace/post.h if ace/pre.h is included
1416 # and vice versa.
1417 sub check_for_pre_and_post ()
1418 {
1419 return if is_suppressed ();
1420
1421 print "Running pre.h/post.h test\n";
1422 foreach $file (@files_h) {
1423 my $pre = 0;
1424 my $post = 0;
1425 if (open (FILE, $file)) {
1426 my $disable = 0;
1427 print "Looking at file $file\n" if $opt_d;
1428 while (<FILE>) {
1429 if (/FUZZ\: disable check_for_pre_and_post/) {
1430 $disable = 1;
1431 }
1432 if (/FUZZ\: enable check_for_pre_and_post/) {
1433 $disable = 0;
1434 }
1435 if ($disable == 0) {
1436 if (/^\s*#\s*include\s*\"ace\/pre\.h\"/) {
1437 print_error ("$file:$.: pre.h missing \"/**/\"");
1438 ++$pre;
1439 }
1440 if (/^\s*#\s*include\s*\s*\"ace\/post\.h\"/) {
1441 print_error ("$file:$.: post.h missing \"/**/\"");
1442 ++$post;
1443 }
1444 if (/^\s*#\s*include\s*\/\*\*\/\s*\"ace\/pre\.h\"/) {
1445 ++$pre;
1446 }
1447 if (/^\s*#\s*include\s*\/\*\*\/\s*\"ace\/post\.h\"/) {
1448 ++$post;
1449 }
1450 }
1451 }
1452 close (FILE);
1453
1454 if ($disable == 0 && $pre != $post) {
1455 print_error ("$file:1: pre.h/post.h mismatch");
1456 }
1457 }
1458 else {
1459 print STDERR "Error: Could not open $file\n";
1460 }
1461 }
1462 }
1463
1464 # This test verifies that the same number of "#pragma warning(push)" and
1465 # "#pragma warning(pop)" pragmas are used in a given header.
1466 sub check_for_push_and_pop ()
1467 {
1468 return if is_suppressed ();
1469
1470 print "Running #pragma (push)/(pop) test\n";
1471 foreach $file (@files_h) {
1472 my $push_count = 0;
1473 my $pop_count = 0;
1474 if (open (FILE, $file)) {
1475 my $disable = 0;
1476 print "Looking at file $file\n" if $opt_d;
1477 while (<FILE>) {
1478 if (/FUZZ\: disable check_for_push_and_pop/) {
1479 $disable = 1;
1480 }
1481 if (/FUZZ\: enable check_for_push_and_pop/) {
1482 $disable = 0;
1483 }
1484 if ($disable == 0) {
1485 if (/^\s*#\s*pragma\s*warning\s*\(\s*push[,1-4]*\s*\)/) {
1486 ++$push_count;
1487 }
1488 if (/^\s*#\s*pragma\s*warning\s*\(\s*pop\s*\)/) {
1489 ++$pop_count;
1490 }
1491 }
1492 }
1493 close (FILE);
1494
1495 if ($disable == 0 && $push_count != $pop_count) {
1496 print_error ("$file: #pragma warning(push)/(pop) mismatch");
1497 }
1498 }
1499 else {
1500 print STDERR "Error: Could not open $file\n";
1501 }
1502 }
1503 }
1504
1505 # This test verifies that the same number of
1506 # "ACE_VERSIONED_NAMESPACE_BEGIN_DECL" and
1507 # "ACE_END_VERSIONED_NAMESPACE_DECL" macros are used in a given
1508 # source file.
1509 sub check_for_versioned_namespace_begin_end ()
1510 {
1511 return if is_suppressed ();
1512
1513 print "Running versioned namespace begin/end test\n";
1514 foreach $file (@files_cpp, @files_inl, @files_h) {
1515 my $begin_count = 0;
1516 my $end_count = 0;
1517 if (open (FILE, $file)) {
1518 print "Looking at file $file\n" if $opt_d;
1519 while (<FILE>) {
1520 if (/^\s*\w+_BEGIN_VERSIONED_NAMESPACE_DECL/) {
1521 ++$begin_count;
1522 }
1523 if (/^\s*\w+_END_VERSIONED_NAMESPACE_DECL/) {
1524 ++$end_count;
1525 }
1526 if ($begin_count > $end_count and
1527 /^\s*#\s*include(\s*\/\*\*\/)?\s*"/) {
1528 print_error ("$file:$.: #include directive within Versioned namespace block");
1529 }
1530 }
1531
1532 close (FILE);
1533
1534 if ($begin_count != $end_count) {
1535 print_error ("$file: Versioned namespace begin($begin_count)/end($end_count) mismatch");
1536 }
1537 }
1538 else {
1539 print STDERR "Error: Could not open $file\n";
1540 }
1541 }
1542 }
1543
1544
1545 # Check doxygen @file comments
1546 sub check_for_mismatched_filename ()
1547 {
1548 return if is_suppressed ();
1549
1550 print "Running doxygen \@file test\n";
1551 foreach $file (@files_h, @files_cpp, @files_inl, @files_idl) {
1552 if (open (FILE, $file)) {
1553 my $disable = 0;
1554 print "Looking at file $file\n" if $opt_d;
1555 while (<FILE>) {
1556 if (m/\@file\s*([^\s]+)/){
1557 # $file includes complete path, $1 is the name after
1558 # @file. We must check whether the last part of $file
1559 # is equal to $1
1560 if ($file !~ /$1$/) {
1561 print_error ("$file:$.: \@file mismatch in $file, found $1");
1562 }
1563 }
1564 }
1565 close (FILE);
1566 }
1567 else {
1568 print STDERR "Error: Could not open $file\n";
1569 }
1570 }
1571 }
1572
1573 # check for bad run_test
1574 sub check_for_bad_run_test ()
1575 {
1576 return if is_suppressed ();
1577
1578 print "Running run_test.pl test\n";
1579 foreach $file (@files_run_pl) {
1580 if (open (FILE, $file)) {
1581 my $is_run_test = 0;
1582 my $sub = 0;
1583
1584 if (($file =~ /.*TAO\/examples\/Advanced.*/)) {
1585 next ITERATION;
1586 }
1587 if (($file =~ /.*TAO\/orbsvcs\/examples\/Security\/Send_File.*/)) {
1588 next ITERATION;
1589 }
1590
1591 print "Looking at file $file\n" if $opt_d;
1592
1593 while (<FILE>) {
1594 if (m/PerlACE/ || m/ACEutils/) {
1595 $is_run_test = 1;
1596 }
1597
1598 if ($is_run_test == 1) {
1599 if (m/ACEutils/) {
1600 print_error ("$file:$.: ACEutils.pm still in use");
1601 }
1602
1603 if (m/unshift \@INC/) {
1604 print_error ("$file:$.: unshifting \@INC; use \"use lib\"");
1605 }
1606
1607 if (m/\$EXEPREFIX/) {
1608 print_error ("$file:$.: using \$EXEPREFIX");
1609 }
1610
1611 if (m/\$EXE_EXT/) {
1612 print_error ("$file:$.: using \$EXE_EXT");
1613 }
1614
1615 if (m/Sys::Hostname/) {
1616 print_error ("$file:$.: using Sys::Hostname");
1617 }
1618
1619 if (m/PerlACE::wait_interval_for_process_creation/) {
1620 print_error ("$file:$.: using PerlACE::wait_interval_for_process_creation");
1621 }
1622
1623 if (m/PerlACE::waitforfile_timed/) {
1624 print_error ("$file:$.: using PerlACE::waitforfile_timed");
1625 }
1626
1627 if (m/PerlACE::is_vxworks_test/) {
1628 print_error ("$file:$.: using PerlACE::is_vxworks_test");
1629 }
1630
1631 if (m/PerlACE::add_lib_path/) {
1632 print_error ("$file:$.: using PerlACE::add_lib_path, use AddLibPath on the target");
1633 }
1634
1635 if (m/PerlACE::Run_Test/) {
1636 print_error ("$file:$.: using PerlACE::Run_Test, use PerlACE::TestTarget");
1637 }
1638
1639 if (m/PerlACE::random_port/) {
1640 print_error ("$file:$.: using PerlACE::random_port, use TestTarget::random_port");
1641 }
1642
1643 if (m/PerlACE::Process/) {
1644 print_error ("$file:$.: using PerlACE::Process");
1645 }
1646
1647 if (m/PerlACE::TestConfig/) {
1648 print_error ("$file:$.: using PerlACE::TestConfig");
1649 }
1650
1651 if (m/ACE_RUN_VX_TGTHOST/) {
1652 print_error ("$file:$.: using ACE_RUN_VX_TGTHOST, use TestTarget::HostName");
1653 }
1654
1655 if (m/Spawn(Wait(Kill)?)?\s*\(.+\->ProcessStop.*\)/) {
1656 print_error ("$file:$.: uses Stop together with Spawn");
1657 }
1658
1659 if (m/Spawn(Wait(Kill)?)?\s*\(\d+\)/) {
1660 print_error ("$file:$.: uses hardcoded timeout for Spawn");
1661 }
1662
1663 if (m/Kill\s*\(\d+\)/) {
1664 print_error ("$file:$.: uses hardcoded timeout for Kill");
1665 }
1666
1667 if (m/unlink/) {
1668 print_error ("$file:$.: using unlink");
1669 }
1670
1671 if (m/PerlACE::LocalFile/) {
1672 print_error ("$file:$.: using PerlACE::LocalFile");
1673 }
1674
1675 if (m/\$DIR_SEPARATOR/) {
1676 print_error ("$file:$.: using \$DIR_SEPARATOR");
1677 }
1678 if (m/ACE\:\:/ && !m/PerlACE\:\:/) {
1679 print_error ("$file:$.: using ACE::*");
1680 }
1681
1682 if (m/Process\:\:/ && !m/PerlACE\:\:Process\:\:/) {
1683 print_error ("$file:$.: using Process::*");
1684 }
1685
1686 if (m/Process\:\:Create/) {
1687 print_error ("$file:$.: using Process::Create");
1688 }
1689
1690 if (m/^ [^ ]/) {
1691 print_warning ("$file:$.: using two-space indentation");
1692 }
1693
1694 if (m/^\s*\t/) {
1695 print_error ("$file:$.: Indenting using tabs");
1696 }
1697
1698 if (m/^\s*\{/ && $sub != 1) {
1699 print_warning ("$file:$.: Using Curly Brace alone");
1700 }
1701
1702 if (m/timedout/i && !m/\#/) {
1703 print_error ("$file:$.: timedout message found");
1704 }
1705
1706 if (m/^\s*sub/) {
1707 $sub = 1;
1708 }
1709 else {
1710 $sub = 0;
1711 }
1712 }
1713 }
1714
1715 close (FILE);
1716
1717 if ($is_run_test) {
1718 my @output = `perl -wc $file 2>&1`;
1719
1720 foreach $output (@output) {
1721 chomp $output;
1722 if ($output =~ m/error/i) {
1723 print_error ($output);
1724 }
1725 elsif ($output !~ m/syntax OK/) {
1726 print_warning ($output);
1727 }
1728 }
1729 }
1730 }
1731 }
1732 }
1733
1734
1735 # Check for links to ~schmidt/ACE_wrappers/, which should not be in the
1736 # documentation
1737 sub check_for_absolute_ace_wrappers()
1738 {
1739 return if is_suppressed ();
1740
1741 print "Running absolute ACE_wrappers test\n";
1742 foreach $file (@files_html) {
1743 if (open (FILE, $file)) {
1744 print "Looking at file $file\n" if $opt_d;
1745 while (<FILE>) {
1746 if (m/\~schmidt\/ACE_wrappers\//) {
1747 chomp;
1748 print_error ("$file:$.: ~schmidt/ACE_wrappers found");
1749 print_error ($_);
1750 }
1751 }
1752 close (FILE);
1753 }
1754 else {
1755 print STDERR "Error: Could not open $file\n";
1756 }
1757 }
1758 }
1759
1760 # Check for generated headers in the code documentation
1761 sub check_for_generated_headers()
1762 {
1763 return if is_suppressed ();
1764
1765 print "Running generated headers test\n";
1766 foreach $file (@files_cpp, @files_inl, @files_h) {
1767 if (open (FILE, $file)) {
1768 print "Looking at file $file\n" if $opt_d;
1769 while (<FILE>) {
1770 if (m/Code generated by the The ACE ORB \(TAO\) IDL Compiler/) {
1771 chomp;
1772 print_error ("$file:$.: header found");
1773 print_error ($_);
1774 }
1775 }
1776 close (FILE);
1777 }
1778 else {
1779 print STDERR "Error: Could not open $file\n";
1780 }
1781 }
1782 }
1783
1784 sub check_for_numeric_log()
1785 {
1786 return if is_suppressed ();
1787
1788 print "Running check for numeric flags in DAnCE and DDS4CCM\n";
1789
1790 foreach $file (@files_inl, @files_cpp, @files_h) {
1791 if (open (FILE, $file)) {
1792 while (<FILE>) {
1793 # look for debug statements
1794 if (m/DANCE_DEBUG\s*\(\s*\d*\s*,/) {
1795 print_warning ("$file:$.: Found numeric log level in debug statement");
1796 }
1797 if (m/DANCE_ERROR\s*\(\s*\d\s*,/) {
1798 print_warning ("$file:$.: Found numeric log level in error statement");
1799 }
1800 if (m/DANCE_TRACE_LOG\s*\(\s*\d\s*,/) {
1801 print_warning ("$file:$.: Found numeric log level in trace log statement");
1802 }
1803 if (m/DDS4CCM_DEBUG\s*\(\s*\d*\s*,/) {
1804 print_warning ("$file:$.: Found numeric log level in debug statement");
1805 }
1806 if (m/DDS4CCM_ERROR\s*\(\s*\d\s*,/) {
1807 print_warning ("$file:$.: Found numeric log level in error statement");
1808 }
1809 }
1810
1811 close (FILE);
1812 }
1813 else {
1814 print STDERR "Error: Could not open $file\n";
1815 }
1816 }
1817 }
1818
1819 # Make sure ACE_[OS_]TRACE matches the function/method
1820 sub check_for_bad_ace_trace()
1821 {
1822 return if is_suppressed ();
1823
1824 print "Running TRACE test\n";
1825 foreach $file (@files_inl, @files_cpp) {
1826 if (open (FILE, $file)) {
1827 my $class;
1828 my $function;
1829
1830 print "Looking at file $file\n" if $opt_d;
1831 while (<FILE>) {
1832
1833 # look for methods or functions
1834 if (m/(^[^\s][^\(]*)\:\:([^\:^\(]*[^\s^\(])\s*/) {
1835 $class = $1;
1836 $function = $2;
1837 }
1838 elsif (m/^([^\s^\(^\#]*) \(/i) {
1839 $class = "";
1840 $function = $1;
1841 }
1842 elsif (m/^(operator.*) \(/i) {
1843 $class = "";
1844 $function = $1;
1845 }
1846 elsif (m/^class (.*)\s*:/) {
1847 $class = $1;
1848 $function = "";
1849 }
1850 elsif (m/^class (.*)\s*$/) {
1851 $class = $1;
1852 $function = "";
1853 }
1854
1855 # print "TRACE_CHECK. Class = $class\n";
1856
1857 # Look for TRACE statements
1858 if (m/ACE_OS_TRACE\s*\(\s*\"(.*)\"/
1859 || m/ACE_TRACE\s*\(\s*\"(.*)\"/
1860 || m/CIAO_TRACE\s*\(\s*\"(.*)\"/
1861 || m/DANCE_TRACE\s*\(\s*\"(.*)\"/
1862 || m/DDS4CCM_TRACE\s*\(\s*\"(.*)\"/) {
1863 my $trace = $1;
1864
1865 # reduce the classname
1866 if ($class =~ m/([^\s][^\<^\s]*)\s*\</) {
1867 $class = $1;
1868 }
1869
1870 # print "TRACE_CHECK. Found a trace. Class = $class\n";
1871
1872 if ($class =~ m/([^\s^\&^\*]*)\s*$/) {
1873 $class = $1;
1874 }
1875
1876 # print "TRACE_CHECK. Augmenting class. Class = $class\n";
1877
1878 if ($trace !~ m/\Q$function\E/
1879 || ($trace =~ m/\:\:/ && !($trace =~ m/\Q$class\E/ && $trace =~ m/\Q$function\E/))) {
1880 print_error ("$file:$.: Mismatched TRACE");
1881 print_error ("$file:$.: I see \"$trace\" but I think I'm in \""
1882 . $class . "::" . $function . "\"");
1883 }
1884 }
1885 }
1886 close (FILE);
1887 }
1888 else {
1889 print STDERR "Error: Could not open $file\n";
1890 }
1891 }
1892 }
1893
1894
1895 # This test checks for broken ChangeLog entries.
1896 sub check_for_changelog_errors ()
1897 {
1898 return if is_suppressed ();
1899
1900 print "Running ChangeLog check\n";
1901 foreach $file (@files_changelog) {
1902 if (open (FILE, $file)) {
1903 my $found_backslash = 0;
1904 my $found_cvs_conflict = 0;
1905
1906 print "Looking at file $file\n" if $opt_d;
1907 while (<FILE>) {
1908
1909 next if m/^\s*\/\//;
1910 next if m/^\s*$/;
1911
1912 # Check for backslashes in paths.
1913 if (m/\*.*\\[^ ]*:/) {
1914 print_error ("$file:$.: Backslashes in file path");
1915 }
1916
1917 # Check for svn conflict tags
1918 if (m/^<<<<</ || m/^=====/ || m/^>>>>>/) {
1919 print_error ("$file:$.: svn conflict markers");
1920 }
1921 }
1922 close (FILE);
1923 }
1924 else {
1925 print STDERR "Error: Could not open $file\n";
1926 }
1927 }
1928 }
1929
1930 sub check_for_deprecated_macros ()
1931 {
1932 return if is_suppressed ();
1933
1934 ## Take the current working directory and remove everything up to
1935 ## ACE_wrappers (or ACE for the peer-style checkout). This will be
1936 ## used to determine when the use of ACE_THROW_SPEC is an error.
1937 my($cwd) = getcwd();
1938 if ($cwd =~ s/.*(ACE_wrappers)/$1/) {
1939 }
1940 elsif ($cwd =~ s/.*(ACE)/$1/) {
1941 }
1942
1943 print "Running deprecated macros check\n";
1944 foreach $file (@files_cpp, @files_inl, @files_h) {
1945 if (open (FILE, $file)) {
1946
1947 print "Looking at file $file\n" if $opt_d;
1948 while (<FILE>) {
1949 if (/ACE_THROW_SPEC/) {
1950 ## Do not use ACE_THROW_SPEC in TAO or CIAO.
1951 if ($file =~ /TAO|CIAO/i || $cwd =~ /TAO|CIAO/i) {
1952 print_error ("$file:$.: ACE_THROW_SPEC found.");
1953 }
1954 }
1955 }
1956 close (FILE);
1957 }
1958 else {
1959 print STDERR "Error: Could not open $file\n";
1960 }
1961 }
1962 }
1963 # This test checks for ptr_arith_t usage in source code. ptr_arith_t
1964 # is non-portable. Use ptrdiff_t instead.
1965 sub check_for_ptr_arith_t ()
1966 {
1967 return if is_suppressed ();
1968
1969 print "Running ptr_arith_t check\n";
1970 foreach $file (@files_cpp, @files_inl, @files_h) {
1971 if (open (FILE, $file)) {
1972
1973 print "Looking at file $file\n" if $opt_d;
1974 while (<FILE>) {
1975
1976 next if m/^\s*\/\//; # Ignore C++ comments.
1977 next if m/^\s*$/; # Skip lines only containing
1978 # whitespace.
1979
1980 # Check for ptr_arith_t usage. This test should
1981 # ignore typedefs, and should only catch variable
1982 # declarations and parameter types.
1983 if (m/ptr_arith_t / || m/ptr_arith_t,/) {
1984 print_error ("$file:$.: ptr_arith_t; use ptrdiff_t instead.");
1985 }
1986 }
1987 close (FILE);
1988 }
1989 else {
1990 print STDERR "Error: Could not open $file\n";
1991 }
1992 }
1993 }
1994
1995 # This test checks for the #include <ace/...>
1996 # This check is suggested by Don Hinton to force user to use
1997 # " " instead of <> to avoid confict with Doxygen.
1998 sub check_for_include ()
1999 {
2000 return if is_suppressed ();
2001
2002 print "Running the include check\n";
2003 foreach $file (@files_h, @files_cpp, @files_inl, @files_idl) {
2004 my $bad_occurance = 0;
2005 if (open (FILE, $file)) {
2006 my $disable = 0;
2007 print "Looking at file $file\n" if $opt_d;
2008 while (<FILE>) {
2009 if (/FUZZ\: disable check_for_include/) {
2010 $disable = 1;
2011 }
2012 if (/FUZZ\: enable check_for_include/) {
2013 $disable = 0;
2014 }
2015 if ($disable == 0) {
2016 if (/^\s*#\s*include\s*<[(ace)|(TAO)|(CIAO)]\/.*>/) {
2017 print_error ("$file:$.: include <ace\/..> used");
2018 ++$bad_occurance;
2019 }
2020 if (/^\s*#\s*include\s*<tao\/.*>/) {
2021 print_error ("$file:$.: include <tao\/..> used");
2022 ++$bad_occurance;
2023 }
2024 if (/^\s*#\s*include\s*<ciao\/.*>/) {
2025 print_error ("$file:$.: include <ciao\/..> used");
2026 ++$bad_occurance;
2027 }
2028 }
2029 }
2030 close (FILE);
2031
2032 if ($disable == 0 && $bad_occurance > 0 ) {
2033 print_error ("$file:1: found $bad_occurance usage(s) of #include <> of ace\/tao\/ciao.");
2034 }
2035 }
2036 else {
2037 print STDERR "Error: Could not open $file\n";
2038 }
2039 }
2040 }
2041
2042 # This test verifies that all equality, relational and logical
2043 # operators return bool, as is the norm for modern C++.
2044 #
2045 # NOTE: This test isn't fool proof yet.
2046 sub check_for_non_bool_operators ()
2047 {
2048 return if is_suppressed ();
2049
2050 print "Running non-bool equality, relational and logical operator check\n";
2051 foreach $file (@files_h, @files_inl, @files_cpp) {
2052 if (open (FILE, $file)) {
2053 print "Looking at file $file\n" if $opt_d;
2054 my $found_bool = 0;
2055 my $found_return_type = 0;
2056 while (<FILE>) {
2057
2058 if ($found_bool == 0
2059 && (/[^\w]bool\s*$/
2060 || /^bool\s*$/
2061 || /\sbool\s+\w/
2062 || /^bool\s+\w/
2063 || /[^\w]return\s*$/))
2064 {
2065 $found_bool = 1;
2066 $found_return_type = 0;
2067 next;
2068 }
2069
2070 if ($found_bool == 0 && $found_return_type == 0
2071 && /^(?:\w+|\s+\w+)\s*$/
2072 && !/[^\w]return\s*$/)
2073 {
2074 $found_return_type = 1;
2075 $found_bool = 0;
2076 next;
2077 }
2078
2079 if ($found_bool == 0
2080 && /(?<![^\w]bool)(\s+|\w+::|>\s*::)operator\s*(?:!|<|<=|>|>=|==|!=|&&|\|\|)\s*\(/
2081 && !/\(.*operator\s*(?:!|<|<=|>|>=|==|!=|&&|\|\|)\s*\(/
2082 && !/^\s*return\s+/) {
2083 print_error ("$file:$.: non-bool return type for operator");
2084 }
2085
2086 $found_return_type = 0;
2087 $found_bool = 0;
2088 }
2089 close (FILE);
2090 }
2091 else {
2092 print STDERR "Error: Could not open $file\n";
2093 }
2094 }
2095 }
2096
2097 # This test verifies that all filenames are short enough
2098 sub check_for_long_file_names ()
2099 {
2100 return if is_suppressed ();
2101
2102 my $max_filename = 50;
2103 my $max_mpc_projectname = $max_filename - 12; ## GNUmakefile.[project_name]
2104 print "Running file names check\n";
2105
2106 foreach $file (@files_cpp, @files_inl, @files_h, @files_html,
2107 @files_dsp, @files_dsw, @files_gnu, @files_idl,
2108 @files_pl, @files_changelog, @files_makefile,
2109 @files_bor, @files_mpc, @files_generic) {
2110 if ( length( basename($file) ) >= $max_filename )
2111 {
2112 print_error ("File name $file meets or exceeds $max_filename chars.");
2113 }
2114 }
2115 foreach $file (grep(/\.mpc$/, @files_mpc)) {
2116 if (open(FH, $file)) {
2117 my($blen) = length(basename($file)) - 4; ## .mpc
2118 while(<FH>) {
2119 if (/project\s*(:.*)\s*{/) {
2120 if ($blen >= $max_mpc_projectname) {
2121 print_warning ("File name $file meets or exceeds $max_mpc_projectname chars.");
2122 }
2123 }
2124 elsif (/project\s*\(([^\)]+)\)/) {
2125 my($name) = $1;
2126 if ($name =~ /\*/) {
2127 my($length) = length($name) + (($name =~ tr/*//) * $blen);
2128 if ($length >= $max_mpc_projectname) {
2129 print_warning ("Project name ($name) from $file will meet or exceed $max_mpc_projectname chars when expanded by MPC.");
2130 }
2131 }
2132 else {
2133 if (length($name) >= $max_mpc_projectname) {
2134 print_warning ("Project name ($name) from $file meets or exceeds $max_mpc_projectname chars.");
2135 }
2136 }
2137 }
2138 }
2139 close(FH);
2140 }
2141 }
2142 }
2143
2144 sub check_for_refcountservantbase ()
2145 {
2146 return if is_suppressed ();
2147
2148 print "Running PortableServer::RefCountServantBase derivation check\n";
2149
2150 foreach $file (@files_h, @files_cpp, @files_inl) {
2151 if (open (FILE, $file)) {
2152 print "Looking at file $file\n" if $opt_d;
2153 while (<FILE>) {
2154
2155 if (/PortableServer::RefCountServantBase/) {
2156 print_error ("$file:$.: reference to deprecated PortableServer::RefCountServantBase");
2157 }
2158 }
2159 close (FILE);
2160 }
2161 else {
2162 print STDERR "Error: Could not open $file\n";
2163 }
2164 }
2165 }
2166
2167 sub check_for_old_documentation_style ()
2168 {
2169 return if is_suppressed ();
2170
2171 print "Running documentation style check\n";
2172
2173 foreach $file (@files_h, @files_cpp, @files_inl) {
2174 if (open (FILE, $file)) {
2175 print "Looking at file $file\n" if $opt_d;
2176 while (<FILE>) {
2177
2178 if (/\/\/\s*\= TITLE/) {
2179 print_error ("$file:$.: found old documentation style // = TITLE");
2180 }
2181 }
2182 close (FILE);
2183 }
2184 else {
2185 print STDERR "Error: Could not open $file\n";
2186 }
2187 }
2188 }
2189
2190 sub check_for_TAO_Local_RefCounted_Object ()
2191 {
2192 return if is_suppressed ();
2193
2194 print "Running TAO_Local_RefCounted_Object check\n";
2195
2196 ITERATION: foreach $file (@files_h, @files_cpp, @files_inl) {
2197 if (open (FILE, $file)) {
2198 my $disable = 0;
2199 print "Looking at file $file\n" if $opt_d;
2200 while (<FILE>) {
2201 if (/FUZZ\: disable check_for_TAO_Local_RefCounted_Object/) {
2202 $disable = 1;
2203 }
2204 if (/FUZZ\: enable check_for_TAO_Local_RefCounted_Object/) {
2205 $disable = 0;
2206 }
2207
2208 if ($disable == 0 and /TAO_Local_RefCounted_Object/) {
2209 print_error ("$file:$.: TAO_Local_RefCounted_Object is deprecated, use CORBA::LocalObject instead");
2210 }
2211 }
2212 close (FILE);
2213 }
2214 else {
2215 print STDERR "Error: Could not open $file\n";
2216 }
2217 }
2218 }
2219
2220 # This test checks for the correct use of ORB_init() so as
2221 # to be compatible with wide character builds.
2222 sub check_for_ORB_init ()
2223 {
2224 return if is_suppressed ();
2225
2226 print "Running the ORB_init() wide character incompatibility check\n";
2227 foreach $file (@files_cpp, @files_inl) {
2228 if (open (FILE, $file)) {
2229 my $disable = 0;
2230 my $multi_line;
2231 my $not_found_end_line_count= 0;
2232 print "Looking at file $file\n" if $opt_d;
2233 while (<FILE>) {
2234 if (!defined $multi_line) {
2235 if (/FUZZ\: disable check_for_ORB_init/) {
2236 $disable = 1;
2237 next;
2238 }
2239 elsif (/FUZZ\: enable check_for_ORB_init/) {
2240 $disable = 0;
2241 next;
2242 }
2243 elsif ($disable == 0) {
2244 s/^\s+//; ## Remove leading space
2245 s/\s*(\/\/.*)?$//; ## Remove trailling space and line comments
2246 if (s/^([^=]*=)?\s*(CORBA\s*::\s*)?ORB_init\s*//) {
2247 $multi_line = $_; ## Rest of the line
2248 }
2249 else {
2250 next;
2251 }
2252 }
2253 }
2254 else {
2255 $_ =~ s/^\s+//; ## Remove leading space
2256 $_ =~ s/\s*(\/\/.*)?$//; ## Remove trailling space and line comments
2257 if ($multi_line eq "") { ## Append this line to existing statement.
2258 $multi_line = $_;
2259 }
2260 else {
2261 $multi_line .= ' ' . $_;
2262 }
2263 }
2264 my $testing = $multi_line;
2265 if ($testing =~ s/^\(([^\"\/\)]*(\"([^\"\\]*(\\.)*)\")?(\/+\*.*?\*\/\s*)*)*\)//) {
2266 # $testing has thrown away what we actually want, i.e.
2267 # we want to ignore what's left in $testing.
2268
2269 $multi_line = substr ($multi_line, 0, -length ($testing));
2270 $multi_line =~ s!/\*.*?\*/! !g; ## Remove any internal /* ... */ comments
2271 $multi_line =~ s!\s{2,}! !g; ## collapse multi spaces
2272 $multi_line =~ s/^\(\s*//; ## Trim leading ( and space
2273 $multi_line =~ s/\s*\)$//; ## Trim trailing space and )
2274
2275 if ($multi_line =~ s/^[^,]*,\s*//) { # If this fails there is only 1 parameter (which we will ignore)
2276 # 1st parameter has been removed by the above, split up remaining 2 & 3
2277 $multi_line =~ s/^([^,]*),?\s*//;
2278 my $param2 = $1;
2279 $param2 =~ s/\s+$//; # Trim trailing spaces
2280
2281 print_error ("$file:$.: ORB_init() 2nd parameter requires static_cast<ACE_TCHAR **>(0)") if ($param2 eq '0');
2282 print_error ("$file:$.: ORB_init() 3rd parameter is redundant (default orbID or give as string)") if ($multi_line eq '0');
2283 print_error ("$file:$.: ORB_init() 3rd parameter is redundant (default orbID already \"\")") if ($multi_line eq '""');
2284 }
2285
2286 undef $multi_line;
2287 $not_found_end_line_count = 0;
2288 }
2289 elsif ($not_found_end_line_count < 10) { # Limit the search for ( ... ) following ORB_init to ten lines
2290 ++$not_found_end_line_count;
2291 }
2292 else {
2293 undef $multi_line;
2294 $not_found_end_line_count = 0;
2295 }
2296 }
2297 close (FILE);
2298 }
2299 else {
2300 print STDERR "Error: Could not open $file\n";
2301 }
2302 }
2303 }
2304
2305 # This test checks for the presence of an include for ace/OS.h
2306 # which should never occur. Only user code is allowed to include OS.h.
2307 sub check_for_include_OS_h ()
2308 {
2309 return if is_suppressed ();
2310
2311 print "Running the OS.h inclusion check\n";
2312 foreach $file (@files_h, @files_cpp, @files_inl) {
2313 if (open (FILE, $file)) {
2314 my $disable = 0;
2315 print "Looking at file $file\n" if $opt_d;
2316 while (<FILE>) {
2317 if (/FUZZ\: disable check_for_include_OS_h/) {
2318 $disable = 1;
2319 next;
2320 }
2321 elsif (/FUZZ\: enable check_for_include_OS_h/) {
2322 $disable = 0;
2323 next;
2324 }
2325 elsif ($disable == 0 and /^\s*#\s*include\s*<[(ace)|(TAO)|(CIAO)]\/.*>/) {
2326 print_error ("$file:$.: include <ace\/..> used");
2327 }
2328 else {
2329 if ($disable == 0 and /^\s*#\s*include\s*"ace\/OS.h"/) {
2330 print_error ("$file:$.: include ace/OS.h used");
2331 }
2332 }
2333 }
2334 close (FILE);
2335 }
2336 else {
2337 print STDERR "Error: Could not open $file\n";
2338 }
2339 }
2340 }
2341
2342 sub check_for_ace_log_categories ()
2343 {
2344 return if is_suppressed ();
2345
2346 print "Running the ACE log categories check\n";
2347
2348 my @macros = qw/HEX_DUMP ERROR ERROR_RETURN ERROR_BREAK DEBUG/;
2349 my $macros = join ('|', @macros);
2350
2351 for my $f (@files_h, @files_cpp, @files_inl) {
2352 my $cat = 'ACE';
2353 $f =~ s!\\!/!g;
2354 if ($f =~ /\bace\/(\w+)/) {
2355 next if $1 eq 'Log_Msg' || $` =~ /\/protocols\/$/;
2356 $cat = 'ACELIB';
2357 }
2358 elsif ($f =~ /tao\// && $f !~ /interop-tests\//) {
2359 $cat = 'TAOLIB';
2360 }
2361 elsif ($f =~ /\/orbsvcs\// && $f !~ /tests|examples/i) {
2362 $cat = 'ORBSVCS';
2363 }
2364 elsif ($f =~ /CIAO\// || $f =~ /DAnCE\//) {
2365 next;
2366 }
2367 elsif ($f =~ /tests\/Log_Msg_Test\.cpp/) {
2368 next;
2369 }
2370
2371 if (open (IN, $f)) {
2372 print "Looking at file $f for category $cat\n" if $opt_d;
2373 my $disable = 0;
2374 while (<IN>) {
2375 if (/FUZZ: disable check_for_ace_log_categories/) {
2376 $disable = 1;
2377 next;
2378 }
2379 elsif (/FUZZ: enable check_for_ace_log_categories/) {
2380 $disable = 0;
2381 next;
2382 }
2383 elsif ($disable == 0
2384 && /\b(ACE|ACELIB|TAOLIB|ORBSVCS)_($macros)\b/g
2385 && $1 ne $cat) {
2386 print_error ("$f:$.: found log macro $1_$2, "
2387 . "expecting ${cat}_$2");
2388 }
2389 }
2390 close IN;
2391 }
2392 else {
2393 print STDERR "Error: Could not open $f\n";
2394 }
2395 }
2396 }
2397
2398
2399 ##############################################################################
2400
2401 use vars qw/$opt_c $opt_d $opt_x $opt_h $opt_l $opt_t $opt_s $opt_m/;
2402
2403 if (!getopts ('cdx:hl:t:s:mv') || $opt_h) {
2404 print "fuzz.pl [-cdhm] [-l level] [-t test_names] [file1, file2, ...]\n";
2405 print "\n";
2406 print " -c only look at the files passed in\n";
2407 print " -d turn on debugging\n";
2408 print " -x specify comma-separated list of path masks\n";
2409 " (regex) to exclude\n";
2410 print " -h display this help\n";
2411 print " -l level set detection level (default = 5)\n";
2412 print " -t test_names specify comma-separated list of tests to run\n".
2413 " this will disable the run level setting\n";
2414 print " -s test_names specify comma-separated list of tests to suppress\n".
2415 " this will supplement the run level setting\n";
2416 print " -m only check locally modified files (uses svn)\n";
2417 print "======================================================\n";
2418 print "list of the tests that could be run or suppressed:\n";
2419 print <<EOT;
2420 check_for_noncvs_files
2421 check_for_generated_headers
2422 check_for_synch_include
2423 check_for_streams_include
2424 check_for_dependency_file
2425 check_for_makefile_variable
2426 check_for_inline_in_cpp
2427 check_for_id_string
2428 check_for_newline
2429 check_for_ACE_SYNCH_MUTEX
2430 check_for_ACE_Thread_Mutex
2431 check_for_tab
2432 check_for_exception_spec
2433 check_for_NULL
2434 check_for_improper_main_declaration
2435 check_for_lack_ACE_OS
2436 check_for_inline
2437 check_for_math_include
2438 check_for_line_length
2439 check_for_preprocessor_comments
2440 check_for_tchar
2441 check_for_pre_and_post
2442 check_for_push_and_pop
2443 check_for_versioned_namespace_begin_end
2444 check_for_mismatched_filename
2445 check_for_bad_run_test
2446 check_for_absolute_ace_wrappers
2447 check_for_bad_ace_trace
2448 check_for_changelog_errors
2449 check_for_ptr_arith_t
2450 check_for_include (disabled by default)
2451 check_for_non_bool_operators
2452 check_for_long_file_names
2453 check_for_refcountservantbase
2454 check_for_TAO_Local_RefCounted_Object
2455 check_for_ORB_init
2456 check_for_trailing_whitespace
2457 check_for_include_OS_h
2458 check_for_numeric_log
2459 check_for_ORB_init
2460 check_for_old_documentation_style
2461 check_for_ace_log_categories
2462 EOT
2463 exit (1);
2464 }
2465
2466 if (!$opt_l) {
2467 $opt_l = 5;
2468 }
2469
2470 # Before opt_m is read!
2471 if ($opt_x) {
2472 my @excludes = split '\s*,\s*', $opt_x;
2473 for my $exclude (@excludes) {
2474 push (@excluded_dirs, $exclude);
2475 }
2476 }
2477
2478 if ($opt_c) {
2479 foreach $file (@ARGV) {
2480 store_file ($file);
2481 }
2482 }
2483 elsif ($opt_m) {
2484 find_mod_files ();
2485 }
2486 else {
2487 find_files ();
2488 }
2489
2490 if ($opt_t) {
2491 my @tests = split '\s*,\s*', $opt_t;
2492 for my $test (@tests) {
2493 &$test();
2494 }
2495 print "\nfuzz.pl - $errors error(s), $warnings warning(s)\n";
2496 exit ($errors > 0) ? 1 : 0;
2497 }
2498
2499 if ($opt_s) {
2500 my @tests = split '\s*,\s*', $opt_s;
2501 for my $test (@tests) {
2502 $suppressed_tests{$test} = 1;
2503 }
2504 }
2505
2506 print "--------------------Configuration: Fuzz - Level ",$opt_l,
2507 "--------------------\n";
2508
2509 check_for_export_file () if ($opt_l >= 4);
2510 check_for_trailing_whitespace () if ($opt_l >= 4);
2511 check_for_lack_ACE_OS () if ($opt_l >= 6);
2512 check_for_ACE_Guard () if ($opt_l >= 1);
2513 check_for_generated_headers () if ($opt_l >= 6);
2514 check_for_bad_run_test () if ($opt_l >= 5);
2515 check_for_deprecated_macros () if ($opt_l >= 1);
2516 check_for_refcountservantbase () if ($opt_l >= 1);
2517 check_for_msc_ver_string () if ($opt_l >= 3);
2518 check_for_empty_files () if ($opt_l >= 1);
2519 check_for_noncvs_files () if ($opt_l >= 1);
2520 check_for_streams_include () if ($opt_l >= 6);
2521 check_for_dependency_file () if ($opt_l >= 1);
2522 check_for_makefile_variable () if ($opt_l >= 1);
2523 check_for_inline_in_cpp () if ($opt_l >= 2);
2524 check_for_id_string () if ($opt_l >= 1);
2525 check_for_newline () if ($opt_l >= 1);
2526 check_for_ACE_Thread_Mutex () if ($opt_l >= 1);
2527 check_for_ACE_SYNCH_MUTEX () if ($opt_l >= 1);
2528 check_for_tab () if ($opt_l >= 1);
2529 check_for_exception_spec () if ($opt_l >= 1);
2530 check_for_NULL () if ($opt_l >= 1);
2531 check_for_inline () if ($opt_l >= 2);
2532 check_for_math_include () if ($opt_l >= 3);
2533 check_for_synch_include () if ($opt_l >= 6);
2534 check_for_line_length () if ($opt_l >= 8);
2535 check_for_preprocessor_comments () if ($opt_l >= 7);
2536 check_for_tchar () if ($opt_l >= 4);
2537 check_for_pre_and_post () if ($opt_l >= 4);
2538 check_for_push_and_pop () if ($opt_l >= 4);
2539 check_for_versioned_namespace_begin_end () if ($opt_l >= 4);
2540 check_for_mismatched_filename () if ($opt_l >= 2);
2541 check_for_absolute_ace_wrappers () if ($opt_l >= 3);
2542 check_for_bad_ace_trace () if ($opt_l >= 4);
2543 check_for_changelog_errors () if ($opt_l >= 4);
2544 check_for_ptr_arith_t () if ($opt_l >= 4);
2545 check_for_non_bool_operators () if ($opt_l > 2);
2546 check_for_long_file_names () if ($opt_l >= 1);
2547 check_for_improper_main_declaration () if ($opt_l >= 1);
2548 check_for_TAO_Local_RefCounted_Object () if ($opt_l >= 1);
2549 check_for_include_OS_h () if ($opt_l >= 1);
2550 check_for_numeric_log () if ($opt_l >= 3);
2551 check_for_ORB_init () if ($opt_l >= 1);
2552 check_for_old_documentation_style () if ($opt_l >= 6);
2553 check_for_ace_log_categories () if ($opt_l >= 5);
2554
2555 print "\nfuzz.pl - $errors error(s), $warnings warning(s)\n";
2556
2557 exit (1) if $errors > 0;