| #!/usr/bin/perl -T |
| |
| use lib '.'; use lib 't'; |
| use SATest; sa_t_init("cpp_comments_in_spamc"); |
| use Test::More tests => 1; |
| |
| # --------------------------------------------------------------------------- |
| # by simply reading the files directly in perl, we avoid all sorts |
| # of C-compilation portability issues... |
| |
| my $ok = 1; |
| foreach my $f (<../spamc/*.c>, <../spamc/*.h>) { |
| open (IN, "<$f"); |
| my $str = join('', <IN>); |
| close IN; |
| |
| $str =~ s{/\*.*?\*/}{}gs; # remove C comments |
| $str =~ s{".*?"}{}gs; # quoted strings |
| |
| if ($str =~ m{(.{0,99}//.{0,99})}s) { |
| warn "found C-style comment: '$1' in $f"; |
| $ok = 0; |
| } |
| } |
| |
| ok ($ok); |