#!/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);
}