<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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 (&lt;FILE&gt;) {
		# 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);
}
</pre></body></html>