-
Notifications
You must be signed in to change notification settings - Fork 0
/
macro-check.pl
72 lines (62 loc) · 1.74 KB
/
macro-check.pl
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#!/usr/bin/perl
use Getopt::Std;
##############################################################################
#
# This program checks a file for uses of the #define preprocessing directive.
# It flags any use in which a list of parameters is provided to the macro
#
##############################################################################
sub usage
{
printf STDERR "$_[0]\n";
printf STDERR "Usage: $0 [-h] [-i IGNORE_LIST] -f INFILE\n";
printf STDERR "Options:\n";
printf STDERR " -h Print this message\n";
printf STDERR " -i IGNORE_PREFIX Prefix for allowed macros\n";
printf STDERR " -f INFILE Specify input file\n";
die "\n" ;
}
# The following is a list of macros that are provided as part of the sample code.
# These are the only allowed ones
$ok_prefix = "dbg_";
getopts('hi:f:');
if ($opt_h) {
usage($ARGV[0]);
}
$infile = STDIN;
$fwarning = "";
if ($opt_f) {
open($infile, "<", $opt_f) || die "Couldn't open input file '$opt_f'\n";
$fwarning = " File $opt_f.";
}
if ($opt_i) {
$ok_prefix = $opt_i;
}
$lineno = 1;
$startlineno = 1;
$line = "";
while (<$infile>) {
$nextline = $_;
chomp($nextline);
# See if this is line has a continuation
if ($nextline =~ /^(.*)\\[\s]*$/) {
$prefix = $1;
$line = "$line$prefix";
} else {
$line = "$line$nextline";
if ($line =~ /^[\s]*#[\s]*define[\s]+([\w]+)\(/) {
$macname = $1;
if ($lineno == $startlineno) {
$linemsg = "Line $lineno contains";
} else {
$linemsg = "Lines $startlineno-$lineno contain";
}
if ($macname !~ /^$ok_prefix/) {
print "ERROR:$fwarning $linemsg disallowed definition of macro '$macname'\n";
}
}
$line = "";
$startlineno = $lineno+1;
}
$lineno++;
}