scripts/kconfig/streamline_config.pl

2 # SPDX-License-Identifier: GPL-2.0
4 # Copyright 2005-2009 - Steven Rostedt
11 #   If you have installed a Linux kernel from a distribution
38 #    cd /usr/src/linux-2.6.10
39 #    cp /boot/config-2.6.10-1-686-smp .config
59 my $uname = `uname -r`;
72 	    "file" => "/boot/config-$uname",
76 	    "file" => "/boot/vmlinuz-$uname",
77 	    "exec" => "scripts/extract-ikconfig",
78 	    "test" => "scripts/extract-ikconfig",
82 	    "exec" => "scripts/extract-ikconfig",
83 	    "test" => "scripts/extract-ikconfig",
87 	    "exec" => "scripts/extract-ikconfig",
88 	    "test" => "scripts/extract-ikconfig",
92 	    "exec" => "scripts/extract-ikconfig",
93 	    "test" => "scripts/extract-ikconfig",
97 	    "exec" => "scripts/extract-ikconfig",
98 	    "test" => "scripts/extract-ikconfig",
104 	my $file = $conf->{"file"};
106 	next if ( ! -f "$file");
108 	if (defined($conf->{"test"})) {
109 	    `$conf->{"test"} $conf->{"file"} 2>/dev/null`;
113 	my $exec = $conf->{"exec"};
117 	open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file";
139 my @makefiles = `find $ksource -name Makefile -or -name Kbuild 2>/dev/null`;
242 	    # note if the config has a prompt
249 	    $deps =~ s/^[^a-zA-Z0-9_]*//;
250 	    $deps =~ s/[^a-zA-Z0-9_]*$//;
252 	    my @deps = split /[^a-zA-Z0-9_]+/, $deps;
258 	    $iflevel-- if ($iflevel);
260 	# stop on "help" and keywords that end a menu entry
261 	} elsif (/^\s*(---)?help(---)?\s*$/ || /^(comment|choice|menu)\b/) {
303 	# if this line ends with a backslash, continue
316 	# Convert variables in a line (could define configs)
319 	# collect objects after obj-$(CONFIG_FOO_BAR)
320 	if (/obj-\$\((CONFIG_[^\)]*)\)\s*[+:]?=\s*(.*)/) {
330 		$obj =~ s/-/_/g;
342 		    # The objects have a hash mapping to a reference
356     if ( ! -f $lsmod_file) {
357 	if ( -f $ENV{'objtree'}."/".$lsmod_file) {
364     my $otype = ( -x $lsmod_file) ? '-|' : '<';
373 	if ( -x "$dir/lsmod" ) {
383     open($linfile, '-|', $lsmod) || die "Can not call lsmod with $lsmod";
395 # a loaded module. This is a direct obj-${CONFIG_FOO} += bar.o
415 	# Most likely, someone has a custom (binary?) module loaded.
424 my $valid = "A-Za-z_0-9";
441 # not enable configs that are not already enabled. If we come across a
442 # config A that depends on !B, we can still add B to the list of depends
443 # to keep on. If A was on in the original config, B would not have been
457 	    # We only need to process if the depend config is a module
475 # Select is treated a bit differently than depends. We call this
476 # when a config has no prompt and requires another config to be
504 	    # Check if something other than a module selects this config
512 		# A set config selects this config, we are good
551 	    # If this config is not a module, we do not need to process it
564 	    # If the config has no prompt, then we need to check if a config
615 # we could not find a reason to keep enabled.
621 	    # enable IKCONFIG at least as a module
641         } elsif ($orig_cert ne $default_cert && ! -f $orig_cert) {
655         if (! -f $orig_keys) {