1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/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);
|
