FreeBSD/Linux Kernel Cross Reference
sys/scripts/checkhelp.pl

     #!/usr/bin/perl
     # checkhelp.pl - finds configuration options that have no
     #                corresponding section in the help file
     #
     # made by Meelis Roos (mroos@tartu.cyber.ee)
     
     # read the help file
     @options=split /\n/, `grep '^CONFIG' Documentation/Configure.help`;
     die "Can't read Documentation/Configure.help\n" if $#options == -1;
    
    #read all the files
    foreach $file (@ARGV)
    {
            open (FILE, $file) || die "Can't open $file: $!\n";
            while (<FILE>) {
                    # repeat until no CONFIG_* are left
                    while (/^\s*(bool|tristate|dep_tristate|string|int|hex).*' *(.*)'.*(CONFIG_\w*)/) {
                            $what=$3;
                            $name=$2;
                            s/$3//;
                            @found = grep (/$what$/, @options);
                            if ($#found == -1) {
                                    next if $nohelp{$what};
                                    print "$name\n$what\n  No help for $what\n\n";
                                    $nohelp{$what}=1;
                            }
                    }
            }
            close (FILE);
    }

Cache object: 358558bd106e7b4c0413f2b7fe6bd321