mirror of
https://github.com/VincentWei/MiniGUI.git
synced 2025-05-11 00:53:21 +08:00
31 lines
805 B
Perl
31 lines
805 B
Perl
#!/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);
|
|
}
|