scripts/checkhelp.pl

   1 #!/usr/bin/perl
   2 # checkhelp.pl - finds configuration options that have no
   3 #                corresponding section in the help file
   4 #
   5 # made by Meelis Roos (mroos@tartu.cyber.ee)
   6
   7 # read the help file
   8 @options=split /\n/, `grep '^CONFIG' Documentation/Configure.help`;
   9 die "Can't read Documentation/Configure.help\n" if $#options == -1;
  10
  11 #read all the files
  12 foreach $file (@ARGV)
  13 {
  14         open (FILE, $file) || die "Can't open $file: $!\n";
  15         while (<FILE>) {
  16                 # repeat until no CONFIG_* are left
  17                 while (/^\s*(bool|tristate|dep_tristate|string|int|hex).*' *(.*)'.*(CONFIG_\w*)/) {
  18                         $what=$3;
  19                         $name=$2;
  20                         s/$3//;
  21                         @found = grep (/$what$/, @options);
  22                         if ($#found == -1) {
  23                                 next if $nohelp{$what};
  24                                 print "$name\n$what\n  No help for $what\n\n";
  25                                 $nohelp{$what}=1;
  26                         }
  27                 }
  28         }
  29         close (FILE);
  30 }