]>
Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | #!/usr/bin/perl |
2 | # | |
3 | # checkincludes: Find files included more than once in (other) files. | |
4 | # Copyright abandoned, 2000, Niels Kristian Bech Jensen <nkbj@image.dk>. | |
5 | ||
f9d490ab LR |
6 | sub usage { |
7 | print "Usage: checkincludes.pl <file list>\n"; | |
8 | exit 1; | |
9 | } | |
10 | ||
11 | if ($#ARGV < 0) { | |
12 | usage(); | |
13 | } | |
14 | ||
1da177e4 LT |
15 | foreach $file (@ARGV) { |
16 | open(FILE, $file) or die "Cannot open $file: $!.\n"; | |
17 | ||
18 | my %includedfiles = (); | |
19 | ||
20 | while (<FILE>) { | |
21 | if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) { | |
22 | ++$includedfiles{$1}; | |
23 | } | |
24 | } | |
d9a7a2bd LR |
25 | |
26 | close(FILE); | |
1da177e4 LT |
27 | |
28 | foreach $filename (keys %includedfiles) { | |
29 | if ($includedfiles{$filename} > 1) { | |
30 | print "$file: $filename is included more than once.\n"; | |
31 | } | |
32 | } | |
1da177e4 | 33 | } |