scripts/kconfig/streamline_config.pl

1 #!/usr/bin/perl -w
3 # Copyright 2005-2009 - Steven Rostedt
38 #    cd /usr/src/linux-2.6.10
39 #    cp /boot/config-2.6.10-1-686-smp .config
60 my $uname = `uname -r`;
73 	    "file" => "/boot/config-$uname",
77 	    "file" => "/boot/vmlinuz-$uname",
78 	    "exec" => "scripts/extract-ikconfig",
79 	    "test" => "scripts/extract-ikconfig",
83 	    "exec" => "scripts/extract-ikconfig",
84 	    "test" => "scripts/extract-ikconfig",
88 	    "exec" => "scripts/extract-ikconfig",
89 	    "test" => "scripts/extract-ikconfig",
93 	    "exec" => "scripts/extract-ikconfig",
94 	    "test" => "scripts/extract-ikconfig",
98 	    "exec" => "scripts/extract-ikconfig",
99 	    "test" => "scripts/extract-ikconfig",
105 	my $file = $conf->{"file"};
107 	next if ( ! -f "$file");
109 	if (defined($conf->{"test"})) {
110 	    `$conf->{"test"} $conf->{"file"} 2>/dev/null`;
114 	my $exec = $conf->{"exec"};
118 	open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file";
140 my @makefiles = `find $ksource -name Makefile -or -name Kbuild 2>/dev/null`;
167     while ($source =~ /\$(\w+)/ && $last_source ne $source) {
231 	} elsif ($state ne "NONE" && /^\s*select\s+(\S+)/) {
240 	} elsif ($state ne "NONE" && /^\s*(tristate\s+\S|prompt\b)/) {
248 	    $deps =~ s/^[^a-zA-Z0-9_]*//;
249 	    $deps =~ s/[^a-zA-Z0-9_]*$//;
251 	    my @deps = split /[^a-zA-Z0-9_]+/, $deps;
257 	    $iflevel-- if ($iflevel);
260 	} elsif (/^\s*(---)?help(---)?\s*$/ || /^(comment|choice|menu)\b/) {
318 	# collect objects after obj-$(CONFIG_FOO_BAR)
319 	if (/obj-\$\((CONFIG_[^\)]*)\)\s*[+:]?=\s*(.*)/) {
329 		$obj =~ s/-/_/g;
355     if ( ! -f $lsmod_file) {
356 	if ( -f $ENV{'objtree'}."/".$lsmod_file) {
363     my $otype = ( -x $lsmod_file) ? '-|' : '<';
372 	if ( -x "$dir/lsmod" ) {
382     open($linfile, '-|', $lsmod) || die "Can not call lsmod with $lsmod";
394 # a loaded module. This is a direct obj-${CONFIG_FOO} += bar.o
423 my $valid = "A-Za-z_0-9";
504 	    if (defined($orig_configs{$conf}) && $orig_configs{$conf} ne "m") {
551 	    if (defined($orig_configs{$config}) && $orig_configs{$config} ne "m") {
623         } elsif ($orig_cert ne $default_cert && ! -f $orig_cert) {
637         if (! -f $orig_keys) {