scripts/checkconfig.pl

   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 }