Contents of /alx-src/tags/kernel26-2.6.12-alx-r9/scripts/checkincludes.pl
Parent Directory | Revision Log
Revision 630 -
(show annotations)
(download)
Wed Mar 4 11:03:09 2009 UTC (15 years, 6 months ago) by niro
File MIME type: text/plain
File size: 529 byte(s)
Wed Mar 4 11:03:09 2009 UTC (15 years, 6 months ago) by niro
File MIME type: text/plain
File size: 529 byte(s)
Tag kernel26-2.6.12-alx-r9
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 | } |
Properties
Name | Value |
---|---|
svn:executable | * |