checkhelp.pl

嵌入式系统设计与实例开发实验教材二源码 多线程应用程序设计 串行端口程序设计 AD接口实验 CAN总线通信实验 GPS通信实验 Linux内核移植与编译实验 IC卡读写实验 SD驱动使

#!/usr/bin/perl
# checkhelp.pl - finds configuration options that have no
#                corresponding section in the help file
#
# made by Meelis Roos ([e-mail])

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