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
6use integer;
7
8$| = 1;
9
10foreach $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}
66