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`;
9die "Can't read Documentation/Configure.help\n" if $#options == -1;
10
11#read all the files
12foreach $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}
31