Subversion Repositories or1k

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

}