Root/
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 | |
6 | foreach $file (@ARGV) { |
7 | open(FILE, $file) or die "Cannot open $file: $!.\n"; |
8 | |
9 | my %includedfiles = (); |
10 | |
11 | while (<FILE>) { |
12 | if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) { |
13 | ++$includedfiles{$1}; |
14 | } |
15 | } |
16 | |
17 | foreach $filename (keys %includedfiles) { |
18 | if ($includedfiles{$filename} > 1) { |
19 | print "$file: $filename is included more than once.\n"; |
20 | } |
21 | } |
22 | |
23 | close(FILE); |
24 | } |
25 |
Branches:
ben-wpan
ben-wpan-stefan
javiroman/ks7010
jz-2.6.34
jz-2.6.34-rc5
jz-2.6.34-rc6
jz-2.6.34-rc7
jz-2.6.35
jz-2.6.36
jz-2.6.37
jz-2.6.38
jz-2.6.39
jz-3.0
jz-3.1
jz-3.11
jz-3.12
jz-3.13
jz-3.15
jz-3.16
jz-3.18-dt
jz-3.2
jz-3.3
jz-3.4
jz-3.5
jz-3.6
jz-3.6-rc2-pwm
jz-3.9
jz-3.9-clk
jz-3.9-rc8
jz47xx
jz47xx-2.6.38
master
Tags:
od-2011-09-04
od-2011-09-18
v2.6.34-rc5
v2.6.34-rc6
v2.6.34-rc7
v3.9