Contents of /alx-src/tags/kernel26-2.6.12-alx-r9/scripts/checkconfig.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: 1726 byte(s)
Wed Mar 4 11:03:09 2009 UTC (15 years, 6 months ago) by niro
File MIME type: text/plain
File size: 1726 byte(s)
Tag kernel26-2.6.12-alx-r9
1 | #! /usr/bin/perl |
2 | # |
3 | # checkconfig: find uses of CONFIG_* names without matching definitions. |
4 | # Copyright abandoned, 1998, Michael Elizabeth Chastain <mailto:mec@shout.net>. |
5 | |
6 | use integer; |
7 | |
8 | $| = 1; |
9 | |
10 | foreach $file (@ARGV) |
11 | { |
12 | # Open this file. |
13 | open(FILE, $file) || die "Can't open $file: $!\n"; |
14 | |
15 | # Initialize variables. |
16 | my $fInComment = 0; |
17 | my $fInString = 0; |
18 | my $fUseConfig = 0; |
19 | my $iLinuxConfig = 0; |
20 | my %configList = (); |
21 | |
22 | LINE: while ( <FILE> ) |
23 | { |
24 | # Strip comments. |
25 | $fInComment && (s+^.*?\*/+ +o ? ($fInComment = 0) : next); |
26 | m+/\*+o && (s+/\*.*?\*/+ +go, (s+/\*.*$+ +o && ($fInComment = 1))); |
27 | |
28 | # Pick up definitions. |
29 | if ( m/^\s*#/o ) |
30 | { |
31 | $iLinuxConfig = $. if m/^\s*#\s*include\s*"linux\/config\.h"/o; |
32 | $configList{uc $1} = 1 if m/^\s*#\s*include\s*"config\/(\S*)\.h"/o; |
33 | } |
34 | |
35 | # Strip strings. |
36 | $fInString && (s+^.*?"+ +o ? ($fInString = 0) : next); |
37 | m+"+o && (s+".*?"+ +go, (s+".*$+ +o && ($fInString = 1))); |
38 | |
39 | # Pick up definitions. |
40 | if ( m/^\s*#/o ) |
41 | { |
42 | $iLinuxConfig = $. if m/^\s*#\s*include\s*<linux\/config\.h>/o; |
43 | $configList{uc $1} = 1 if m/^\s*#\s*include\s*<config\/(\S*)\.h>/o; |
44 | $configList{$1} = 1 if m/^\s*#\s*define\s+CONFIG_(\w*)/o; |
45 | $configList{$1} = 1 if m/^\s*#\s*undef\s+CONFIG_(\w*)/o; |
46 | } |
47 | |
48 | # Look for usages. |
49 | next unless m/CONFIG_/o; |
50 | WORD: while ( m/\bCONFIG_(\w+)/og ) |
51 | { |
52 | $fUseConfig = 1; |
53 | last LINE if $iLinuxConfig; |
54 | next WORD if exists $configList{$1}; |
55 | print "$file: $.: need CONFIG_$1.\n"; |
56 | $configList{$1} = 0; |
57 | } |
58 | } |
59 | |
60 | # Report superfluous includes. |
61 | if ( $iLinuxConfig && ! $fUseConfig ) |
62 | { print "$file: $iLinuxConfig: linux/config.h not needed.\n"; } |
63 | |
64 | close(FILE); |
65 | } |
Properties
Name | Value |
---|---|
svn:executable | * |