1dcc60243SSteven Rostedt#!/usr/bin/perl -w 2dcc60243SSteven Rostedt# 3cce1dac8SUwe Kleine-König# Copyright 2005-2009 - Steven Rostedt 4dcc60243SSteven Rostedt# Licensed under the terms of the GNU GPL License version 2 5dcc60243SSteven Rostedt# 6dcc60243SSteven Rostedt# It's simple enough to figure out how this works. 7dcc60243SSteven Rostedt# If not, then you can ask me at stripconfig@goodmis.org 8dcc60243SSteven Rostedt# 9dcc60243SSteven Rostedt# What it does? 10dcc60243SSteven Rostedt# 11dcc60243SSteven Rostedt# If you have installed a Linux kernel from a distribution 12dcc60243SSteven Rostedt# that turns on way too many modules than you need, and 13dcc60243SSteven Rostedt# you only want the modules you use, then this program 14dcc60243SSteven Rostedt# is perfect for you. 15dcc60243SSteven Rostedt# 16dcc60243SSteven Rostedt# It gives you the ability to turn off all the modules that are 17dcc60243SSteven Rostedt# not loaded on your system. 18dcc60243SSteven Rostedt# 19dcc60243SSteven Rostedt# Howto: 20dcc60243SSteven Rostedt# 21dcc60243SSteven Rostedt# 1. Boot up the kernel that you want to stream line the config on. 22dcc60243SSteven Rostedt# 2. Change directory to the directory holding the source of the 23dcc60243SSteven Rostedt# kernel that you just booted. 24dcc60243SSteven Rostedt# 3. Copy the configuraton file to this directory as .config 25dcc60243SSteven Rostedt# 4. Have all your devices that you need modules for connected and 26dcc60243SSteven Rostedt# operational (make sure that their corresponding modules are loaded) 27dcc60243SSteven Rostedt# 5. Run this script redirecting the output to some other file 28dcc60243SSteven Rostedt# like config_strip. 29dcc60243SSteven Rostedt# 6. Back up your old config (if you want too). 30dcc60243SSteven Rostedt# 7. copy the config_strip file to .config 31dcc60243SSteven Rostedt# 8. Run "make oldconfig" 32dcc60243SSteven Rostedt# 33dcc60243SSteven Rostedt# Now your kernel is ready to be built with only the modules that 34dcc60243SSteven Rostedt# are loaded. 35dcc60243SSteven Rostedt# 36dcc60243SSteven Rostedt# Here's what I did with my Debian distribution. 37dcc60243SSteven Rostedt# 38dcc60243SSteven Rostedt# cd /usr/src/linux-2.6.10 39dcc60243SSteven Rostedt# cp /boot/config-2.6.10-1-686-smp .config 40dcc60243SSteven Rostedt# ~/bin/streamline_config > config_strip 41dcc60243SSteven Rostedt# mv .config config_sav 42dcc60243SSteven Rostedt# mv config_strip .config 43dcc60243SSteven Rostedt# make oldconfig 44dcc60243SSteven Rostedt# 45cf5a189dShiromuuse strict; 4622d550aeSArnaud Lacombeuse Getopt::Long; 47cf5a189dShiromu 48dcc60243SSteven Rostedtmy $config = ".config"; 49dcc60243SSteven Rostedt 50cdfc4795SSteven Rostedtmy $uname = `uname -r`; 51cdfc4795SSteven Rostedtchomp $uname; 52cdfc4795SSteven Rostedt 53cdfc4795SSteven Rostedtmy @searchconfigs = ( 54cdfc4795SSteven Rostedt { 55a9024838SSteven Rostedt "file" => ".config", 56a9024838SSteven Rostedt "exec" => "cat", 57a9024838SSteven Rostedt }, 58a9024838SSteven Rostedt { 59cdfc4795SSteven Rostedt "file" => "/proc/config.gz", 60cdfc4795SSteven Rostedt "exec" => "zcat", 61cdfc4795SSteven Rostedt }, 62cdfc4795SSteven Rostedt { 63810b2be6SSteven Rostedt "file" => "/boot/config-$uname", 64810b2be6SSteven Rostedt "exec" => "cat", 65810b2be6SSteven Rostedt }, 66810b2be6SSteven Rostedt { 67cdfc4795SSteven Rostedt "file" => "/boot/vmlinuz-$uname", 68cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 69cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 70cdfc4795SSteven Rostedt }, 71cdfc4795SSteven Rostedt { 72cdfc4795SSteven Rostedt "file" => "vmlinux", 73cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 74cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 75cdfc4795SSteven Rostedt }, 76cdfc4795SSteven Rostedt { 77cdfc4795SSteven Rostedt "file" => "/lib/modules/$uname/kernel/kernel/configs.ko", 78cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 79cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 80cdfc4795SSteven Rostedt }, 81cdfc4795SSteven Rostedt { 82cdfc4795SSteven Rostedt "file" => "kernel/configs.ko", 83cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 84cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 85cdfc4795SSteven Rostedt }, 86cdfc4795SSteven Rostedt { 87cdfc4795SSteven Rostedt "file" => "kernel/configs.o", 88cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 89cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 90cdfc4795SSteven Rostedt }, 91cdfc4795SSteven Rostedt); 92cdfc4795SSteven Rostedt 93cdfc4795SSteven Rostedtsub find_config { 94cdfc4795SSteven Rostedt foreach my $conf (@searchconfigs) { 95cdfc4795SSteven Rostedt my $file = $conf->{"file"}; 96cdfc4795SSteven Rostedt 97cdfc4795SSteven Rostedt next if ( ! -f "$file"); 98cdfc4795SSteven Rostedt 99cdfc4795SSteven Rostedt if (defined($conf->{"test"})) { 100cdfc4795SSteven Rostedt `$conf->{"test"} $conf->{"file"} 2>/dev/null`; 101cdfc4795SSteven Rostedt next if ($?); 102cdfc4795SSteven Rostedt } 103cdfc4795SSteven Rostedt 104cdfc4795SSteven Rostedt my $exec = $conf->{"exec"}; 105cdfc4795SSteven Rostedt 106cdfc4795SSteven Rostedt print STDERR "using config: '$file'\n"; 107cdfc4795SSteven Rostedt 108cdfc4795SSteven Rostedt open(CIN, "$exec $file |") || die "Failed to run $exec $file"; 109cdfc4795SSteven Rostedt return; 110cdfc4795SSteven Rostedt } 111cdfc4795SSteven Rostedt die "No config file found"; 112cdfc4795SSteven Rostedt} 113cdfc4795SSteven Rostedt 114cdfc4795SSteven Rostedtfind_config; 115cdfc4795SSteven Rostedt 11622d550aeSArnaud Lacombe# Parse options 11722d550aeSArnaud Lacombemy $localmodconfig = 0; 11822d550aeSArnaud Lacombemy $localyesconfig = 0; 11922d550aeSArnaud Lacombe 12022d550aeSArnaud LacombeGetOptions("localmodconfig" => \$localmodconfig, 12122d550aeSArnaud Lacombe "localyesconfig" => \$localyesconfig); 12222d550aeSArnaud Lacombe 123463bf900SSteven Rostedt# Get the build source and top level Kconfig file (passed in) 124463bf900SSteven Rostedtmy $ksource = $ARGV[0]; 125463bf900SSteven Rostedtmy $kconfig = $ARGV[1]; 126f597a718SArnaud Lacombemy $lsmod_file = $ENV{'LSMOD'}; 127463bf900SSteven Rostedt 12817431928SToralf Förstermy @makefiles = `find $ksource -name Makefile 2>/dev/null`; 12917431928SToralf Försterchomp @makefiles; 13017431928SToralf Förster 131dcc60243SSteven Rostedtmy %depends; 132dcc60243SSteven Rostedtmy %selects; 133dcc60243SSteven Rostedtmy %prompts; 134dcc60243SSteven Rostedtmy %objects; 135dcc60243SSteven Rostedtmy $var; 13613d7e938SSteven Rostedtmy $iflevel = 0; 13713d7e938SSteven Rostedtmy @ifdeps; 138dcc60243SSteven Rostedt 139dcc60243SSteven Rostedt# prevent recursion 140dcc60243SSteven Rostedtmy %read_kconfigs; 141dcc60243SSteven Rostedt 142dcc60243SSteven Rostedtsub read_kconfig { 143dcc60243SSteven Rostedt my ($kconfig) = @_; 144dcc60243SSteven Rostedt 145dcc60243SSteven Rostedt my $state = "NONE"; 146dcc60243SSteven Rostedt my $config; 147dcc60243SSteven Rostedt my @kconfigs; 148dcc60243SSteven Rostedt 14920d19047SSteven Rostedt my $cont = 0; 15020d19047SSteven Rostedt my $line; 15120d19047SSteven Rostedt 1524908980bSSteven Rostedt my $source = "$ksource/$kconfig"; 1534908980bSSteven Rostedt my $last_source = ""; 1544908980bSSteven Rostedt 1554908980bSSteven Rostedt # Check for any environment variables used 1564908980bSSteven Rostedt while ($source =~ /\$(\w+)/ && $last_source ne $source) { 1574908980bSSteven Rostedt my $env = $1; 1584908980bSSteven Rostedt $last_source = $source; 1594908980bSSteven Rostedt $source =~ s/\$$env/$ENV{$env}/; 1604908980bSSteven Rostedt } 1614908980bSSteven Rostedt 1624908980bSSteven Rostedt open(KIN, "$source") || die "Can't open $kconfig"; 163dcc60243SSteven Rostedt while (<KIN>) { 164dcc60243SSteven Rostedt chomp; 165dcc60243SSteven Rostedt 16620d19047SSteven Rostedt # Make sure that lines ending with \ continue 16720d19047SSteven Rostedt if ($cont) { 16820d19047SSteven Rostedt $_ = $line . " " . $_; 16920d19047SSteven Rostedt } 17020d19047SSteven Rostedt 17120d19047SSteven Rostedt if (s/\\$//) { 17220d19047SSteven Rostedt $cont = 1; 17320d19047SSteven Rostedt $line = $_; 17420d19047SSteven Rostedt next; 17520d19047SSteven Rostedt } 17620d19047SSteven Rostedt 17720d19047SSteven Rostedt $cont = 0; 17820d19047SSteven Rostedt 179dcc60243SSteven Rostedt # collect any Kconfig sources 180dcc60243SSteven Rostedt if (/^source\s*"(.*)"/) { 181dcc60243SSteven Rostedt $kconfigs[$#kconfigs+1] = $1; 182dcc60243SSteven Rostedt } 183dcc60243SSteven Rostedt 184dcc60243SSteven Rostedt # configs found 1858ef17fa2SSteven Rostedt if (/^\s*(menu)?config\s+(\S+)\s*$/) { 186dcc60243SSteven Rostedt $state = "NEW"; 1878ef17fa2SSteven Rostedt $config = $2; 188dcc60243SSteven Rostedt 189*0b58a99eSSteven Rostedt # Add depends for 'if' nesting 19013d7e938SSteven Rostedt for (my $i = 0; $i < $iflevel; $i++) { 19113d7e938SSteven Rostedt if ($i) { 19213d7e938SSteven Rostedt $depends{$config} .= " " . $ifdeps[$i]; 19313d7e938SSteven Rostedt } else { 19413d7e938SSteven Rostedt $depends{$config} = $ifdeps[$i]; 19513d7e938SSteven Rostedt } 19613d7e938SSteven Rostedt $state = "DEP"; 19713d7e938SSteven Rostedt } 19813d7e938SSteven Rostedt 199dcc60243SSteven Rostedt # collect the depends for the config 200dcc60243SSteven Rostedt } elsif ($state eq "NEW" && /^\s*depends\s+on\s+(.*)$/) { 201dcc60243SSteven Rostedt $state = "DEP"; 202dcc60243SSteven Rostedt $depends{$config} = $1; 203dcc60243SSteven Rostedt } elsif ($state eq "DEP" && /^\s*depends\s+on\s+(.*)$/) { 204dcc60243SSteven Rostedt $depends{$config} .= " " . $1; 205dcc60243SSteven Rostedt 206dcc60243SSteven Rostedt # Get the configs that select this config 207dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*select\s+(\S+)/) { 208*0b58a99eSSteven Rostedt my $conf = $1; 209*0b58a99eSSteven Rostedt if (defined($selects{$conf})) { 210*0b58a99eSSteven Rostedt $selects{$conf} .= " " . $config; 211dcc60243SSteven Rostedt } else { 212*0b58a99eSSteven Rostedt $selects{$conf} = $config; 213dcc60243SSteven Rostedt } 214dcc60243SSteven Rostedt 215dcc60243SSteven Rostedt # configs without prompts must be selected 216dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*tristate\s\S/) { 217dcc60243SSteven Rostedt # note if the config has a prompt 218ccece60aShiromu yagura $prompts{$config} = 1; 219dcc60243SSteven Rostedt 22013d7e938SSteven Rostedt # Check for if statements 22113d7e938SSteven Rostedt } elsif (/^if\s+(.*\S)\s*$/) { 22213d7e938SSteven Rostedt my $deps = $1; 22313d7e938SSteven Rostedt # remove beginning and ending non text 22413d7e938SSteven Rostedt $deps =~ s/^[^a-zA-Z0-9_]*//; 22513d7e938SSteven Rostedt $deps =~ s/[^a-zA-Z0-9_]*$//; 22613d7e938SSteven Rostedt 22713d7e938SSteven Rostedt my @deps = split /[^a-zA-Z0-9_]+/, $deps; 22813d7e938SSteven Rostedt 22913d7e938SSteven Rostedt $ifdeps[$iflevel++] = join ':', @deps; 23013d7e938SSteven Rostedt 23113d7e938SSteven Rostedt } elsif (/^endif/) { 23213d7e938SSteven Rostedt 23313d7e938SSteven Rostedt $iflevel-- if ($iflevel); 23413d7e938SSteven Rostedt 235dcc60243SSteven Rostedt # stop on "help" 236dcc60243SSteven Rostedt } elsif (/^\s*help\s*$/) { 237dcc60243SSteven Rostedt $state = "NONE"; 238dcc60243SSteven Rostedt } 239dcc60243SSteven Rostedt } 240dcc60243SSteven Rostedt close(KIN); 241dcc60243SSteven Rostedt 242dcc60243SSteven Rostedt # read in any configs that were found. 243dcc60243SSteven Rostedt foreach $kconfig (@kconfigs) { 244dcc60243SSteven Rostedt if (!defined($read_kconfigs{$kconfig})) { 245dcc60243SSteven Rostedt $read_kconfigs{$kconfig} = 1; 246dcc60243SSteven Rostedt read_kconfig($kconfig); 247dcc60243SSteven Rostedt } 248dcc60243SSteven Rostedt } 249dcc60243SSteven Rostedt} 250dcc60243SSteven Rostedt 251dcc60243SSteven Rostedtif ($kconfig) { 252dcc60243SSteven Rostedt read_kconfig($kconfig); 253dcc60243SSteven Rostedt} 254dcc60243SSteven Rostedt 255*0b58a99eSSteven Rostedt# Makefiles can use variables to define their dependencies 256364212fdSSteven Rostedtsub convert_vars { 257364212fdSSteven Rostedt my ($line, %vars) = @_; 258364212fdSSteven Rostedt 259364212fdSSteven Rostedt my $process = ""; 260364212fdSSteven Rostedt 261364212fdSSteven Rostedt while ($line =~ s/^(.*?)(\$\((.*?)\))//) { 262364212fdSSteven Rostedt my $start = $1; 263364212fdSSteven Rostedt my $variable = $2; 264364212fdSSteven Rostedt my $var = $3; 265364212fdSSteven Rostedt 266364212fdSSteven Rostedt if (defined($vars{$var})) { 267364212fdSSteven Rostedt $process .= $start . $vars{$var}; 268364212fdSSteven Rostedt } else { 269364212fdSSteven Rostedt $process .= $start . $variable; 270364212fdSSteven Rostedt } 271364212fdSSteven Rostedt } 272364212fdSSteven Rostedt 273364212fdSSteven Rostedt $process .= $line; 274364212fdSSteven Rostedt 275364212fdSSteven Rostedt return $process; 276364212fdSSteven Rostedt} 277364212fdSSteven Rostedt 278dcc60243SSteven Rostedt# Read all Makefiles to map the configs to the objects 279dcc60243SSteven Rostedtforeach my $makefile (@makefiles) { 280dcc60243SSteven Rostedt 281d060d963SSteven Rostedt my $line = ""; 282364212fdSSteven Rostedt my %make_vars; 28320d19047SSteven Rostedt 284dcc60243SSteven Rostedt open(MIN,$makefile) || die "Can't open $makefile"; 285dcc60243SSteven Rostedt while (<MIN>) { 286d060d963SSteven Rostedt # if this line ends with a backslash, continue 287d060d963SSteven Rostedt chomp; 288d060d963SSteven Rostedt if (/^(.*)\\$/) { 289d060d963SSteven Rostedt $line .= $1; 290d060d963SSteven Rostedt next; 291dcc60243SSteven Rostedt } 292d060d963SSteven Rostedt 293d060d963SSteven Rostedt $line .= $_; 294d060d963SSteven Rostedt $_ = $line; 295d060d963SSteven Rostedt $line = ""; 296d060d963SSteven Rostedt 297d060d963SSteven Rostedt my $objs; 298dcc60243SSteven Rostedt 299*0b58a99eSSteven Rostedt # Convert variables in a line (could define configs) 300364212fdSSteven Rostedt $_ = convert_vars($_, %make_vars); 301364212fdSSteven Rostedt 302dcc60243SSteven Rostedt # collect objects after obj-$(CONFIG_FOO_BAR) 303dcc60243SSteven Rostedt if (/obj-\$\((CONFIG_[^\)]*)\)\s*[+:]?=\s*(.*)/) { 304dcc60243SSteven Rostedt $var = $1; 305dcc60243SSteven Rostedt $objs = $2; 306364212fdSSteven Rostedt 307364212fdSSteven Rostedt # check if variables are set 308364212fdSSteven Rostedt } elsif (/^\s*(\S+)\s*[:]?=\s*(.*\S)/) { 309364212fdSSteven Rostedt $make_vars{$1} = $2; 310dcc60243SSteven Rostedt } 311dcc60243SSteven Rostedt if (defined($objs)) { 312dcc60243SSteven Rostedt foreach my $obj (split /\s+/,$objs) { 313dcc60243SSteven Rostedt $obj =~ s/-/_/g; 314dcc60243SSteven Rostedt if ($obj =~ /(.*)\.o$/) { 3151d1d1feaSToralf Foerster # Objects may be enabled by more than one config. 316dcc60243SSteven Rostedt # Store configs in an array. 317dcc60243SSteven Rostedt my @arr; 318dcc60243SSteven Rostedt 319dcc60243SSteven Rostedt if (defined($objects{$1})) { 320dcc60243SSteven Rostedt @arr = @{$objects{$1}}; 321dcc60243SSteven Rostedt } 322dcc60243SSteven Rostedt 323dcc60243SSteven Rostedt $arr[$#arr+1] = $var; 324dcc60243SSteven Rostedt 325dcc60243SSteven Rostedt # The objects have a hash mapping to a reference 326dcc60243SSteven Rostedt # of an array of configs. 327dcc60243SSteven Rostedt $objects{$1} = \@arr; 328dcc60243SSteven Rostedt } 329dcc60243SSteven Rostedt } 330dcc60243SSteven Rostedt } 331dcc60243SSteven Rostedt } 332dcc60243SSteven Rostedt close(MIN); 333dcc60243SSteven Rostedt} 334dcc60243SSteven Rostedt 335dcc60243SSteven Rostedtmy %modules; 336dcc60243SSteven Rostedt 337615f0833SSteven Rostedtif (defined($lsmod_file)) { 338615f0833SSteven Rostedt if ( ! -f $lsmod_file) { 339f597a718SArnaud Lacombe if ( -f $ENV{'objtree'}."/".$lsmod_file) { 340f597a718SArnaud Lacombe $lsmod_file = $ENV{'objtree'}."/".$lsmod_file; 341f597a718SArnaud Lacombe } else { 342615f0833SSteven Rostedt die "$lsmod_file not found"; 343615f0833SSteven Rostedt } 344f597a718SArnaud Lacombe } 345615f0833SSteven Rostedt if ( -x $lsmod_file) { 346615f0833SSteven Rostedt # the file is executable, run it 347615f0833SSteven Rostedt open(LIN, "$lsmod_file|"); 348615f0833SSteven Rostedt } else { 349615f0833SSteven Rostedt # Just read the contents 350615f0833SSteven Rostedt open(LIN, "$lsmod_file"); 351615f0833SSteven Rostedt } 352615f0833SSteven Rostedt} else { 353615f0833SSteven Rostedt 354dcc60243SSteven Rostedt # see what modules are loaded on this system 35588f66ea9SSteven Rostedt my $lsmod; 35688f66ea9SSteven Rostedt 357cf5a189dShiromu foreach my $dir ( ("/sbin", "/bin", "/usr/sbin", "/usr/bin") ) { 35888f66ea9SSteven Rostedt if ( -x "$dir/lsmod" ) { 35988f66ea9SSteven Rostedt $lsmod = "$dir/lsmod"; 36088f66ea9SSteven Rostedt last; 36188f66ea9SSteven Rostedt } 36288f66ea9SSteven Rostedt} 36388f66ea9SSteven Rostedt if (!defined($lsmod)) { 36488f66ea9SSteven Rostedt # try just the path 36588f66ea9SSteven Rostedt $lsmod = "lsmod"; 36688f66ea9SSteven Rostedt } 36788f66ea9SSteven Rostedt 36888f66ea9SSteven Rostedt open(LIN,"$lsmod|") || die "Can not call lsmod with $lsmod"; 369615f0833SSteven Rostedt} 370615f0833SSteven Rostedt 371dcc60243SSteven Rostedtwhile (<LIN>) { 372dcc60243SSteven Rostedt next if (/^Module/); # Skip the first line. 373dcc60243SSteven Rostedt if (/^(\S+)/) { 374dcc60243SSteven Rostedt $modules{$1} = 1; 375dcc60243SSteven Rostedt } 376dcc60243SSteven Rostedt} 377dcc60243SSteven Rostedtclose (LIN); 378dcc60243SSteven Rostedt 379dcc60243SSteven Rostedt# add to the configs hash all configs that are needed to enable 380*0b58a99eSSteven Rostedt# a loaded module. This is a direct obj-${CONFIG_FOO} += bar.o 381*0b58a99eSSteven Rostedt# where we know we need bar.o so we add FOO to the list. 382dcc60243SSteven Rostedtmy %configs; 383dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 384dcc60243SSteven Rostedt if (defined($objects{$module})) { 385e5199edbSToralf Foerster my @arr = @{$objects{$module}}; 386dcc60243SSteven Rostedt foreach my $conf (@arr) { 387dcc60243SSteven Rostedt $configs{$conf} = $module; 388dcc60243SSteven Rostedt } 389dcc60243SSteven Rostedt } else { 390dcc60243SSteven Rostedt # Most likely, someone has a custom (binary?) module loaded. 391dcc60243SSteven Rostedt print STDERR "$module config not found!!\n"; 392dcc60243SSteven Rostedt } 393dcc60243SSteven Rostedt} 394dcc60243SSteven Rostedt 395dcc60243SSteven Rostedtmy $valid = "A-Za-z_0-9"; 396dcc60243SSteven Rostedtmy $repeat = 1; 397dcc60243SSteven Rostedt 398dcc60243SSteven Rostedt# 399dcc60243SSteven Rostedt# Note, we do not care about operands (like: &&, ||, !) we want to add any 400dcc60243SSteven Rostedt# config that is in the depend list of another config. This script does 401dcc60243SSteven Rostedt# not enable configs that are not already enabled. If we come across a 402dcc60243SSteven Rostedt# config A that depends on !B, we can still add B to the list of depends 403dcc60243SSteven Rostedt# to keep on. If A was on in the original config, B would not have been 404dcc60243SSteven Rostedt# and B would not be turned on by this script. 405dcc60243SSteven Rostedt# 406dcc60243SSteven Rostedtsub parse_config_dep_select 407dcc60243SSteven Rostedt{ 408dcc60243SSteven Rostedt my ($p) = @_; 409dcc60243SSteven Rostedt 410dcc60243SSteven Rostedt while ($p =~ /[$valid]/) { 411dcc60243SSteven Rostedt 412dcc60243SSteven Rostedt if ($p =~ /^[^$valid]*([$valid]+)/) { 413dcc60243SSteven Rostedt my $conf = "CONFIG_" . $1; 414dcc60243SSteven Rostedt 415dcc60243SSteven Rostedt $p =~ s/^[^$valid]*[$valid]+//; 416dcc60243SSteven Rostedt 417dcc60243SSteven Rostedt if (!defined($configs{$conf})) { 418dcc60243SSteven Rostedt # We must make sure that this config has its 419dcc60243SSteven Rostedt # dependencies met. 420dcc60243SSteven Rostedt $repeat = 1; # do again 421dcc60243SSteven Rostedt $configs{$conf} = 1; 422dcc60243SSteven Rostedt } 423dcc60243SSteven Rostedt } else { 424dcc60243SSteven Rostedt die "this should never happen"; 425dcc60243SSteven Rostedt } 426dcc60243SSteven Rostedt } 427dcc60243SSteven Rostedt} 428dcc60243SSteven Rostedt 429dcc60243SSteven Rostedtwhile ($repeat) { 430dcc60243SSteven Rostedt $repeat = 0; 431dcc60243SSteven Rostedt 432dcc60243SSteven Rostedt foreach my $config (keys %configs) { 433dcc60243SSteven Rostedt $config =~ s/^CONFIG_//; 434dcc60243SSteven Rostedt 43574398d32SSteven Rostedt if (defined($depends{$config})) { 436dcc60243SSteven Rostedt # This config has dependencies. Make sure they are also included 437dcc60243SSteven Rostedt parse_config_dep_select $depends{$config}; 43874398d32SSteven Rostedt } 439dcc60243SSteven Rostedt 440ccece60aShiromu yagura if (defined($prompts{$config}) || !defined($selects{$config})) { 441dcc60243SSteven Rostedt next; 442dcc60243SSteven Rostedt } 443dcc60243SSteven Rostedt 444dcc60243SSteven Rostedt # config has no prompt and must be selected. 445dcc60243SSteven Rostedt parse_config_dep_select $selects{$config}; 446dcc60243SSteven Rostedt } 447dcc60243SSteven Rostedt} 448dcc60243SSteven Rostedt 449dcc60243SSteven Rostedtmy %setconfigs; 450dcc60243SSteven Rostedt 451dcc60243SSteven Rostedt# Finally, read the .config file and turn off any module enabled that 452dcc60243SSteven Rostedt# we could not find a reason to keep enabled. 453dcc60243SSteven Rostedtwhile(<CIN>) { 454744ffcbeSSteven Rostedt 455744ffcbeSSteven Rostedt if (/CONFIG_IKCONFIG/) { 456744ffcbeSSteven Rostedt if (/# CONFIG_IKCONFIG is not set/) { 457744ffcbeSSteven Rostedt # enable IKCONFIG at least as a module 458744ffcbeSSteven Rostedt print "CONFIG_IKCONFIG=m\n"; 459744ffcbeSSteven Rostedt # don't ask about PROC 460d08ca277SSteven Rostedt print "# CONFIG_IKCONFIG_PROC is not set\n"; 461744ffcbeSSteven Rostedt } else { 462744ffcbeSSteven Rostedt print; 463744ffcbeSSteven Rostedt } 464744ffcbeSSteven Rostedt next; 465744ffcbeSSteven Rostedt } 466744ffcbeSSteven Rostedt 467ea2c1894SSteven Rostedt if (/^(CONFIG.*)=(m|y)/) { 468dcc60243SSteven Rostedt if (defined($configs{$1})) { 46922d550aeSArnaud Lacombe if ($localyesconfig) { 47022d550aeSArnaud Lacombe $setconfigs{$1} = 'y'; 47122d550aeSArnaud Lacombe } else { 472ea2c1894SSteven Rostedt $setconfigs{$1} = $2; 47322d550aeSArnaud Lacombe } 474ea2c1894SSteven Rostedt } elsif ($2 eq "m") { 475dcc60243SSteven Rostedt print "# $1 is not set\n"; 476d08ca277SSteven Rostedt next; 477dcc60243SSteven Rostedt } 478dcc60243SSteven Rostedt } 479d08ca277SSteven Rostedt print; 480dcc60243SSteven Rostedt} 481dcc60243SSteven Rostedtclose(CIN); 482dcc60243SSteven Rostedt 483dcc60243SSteven Rostedt# Integrity check, make sure all modules that we want enabled do 484dcc60243SSteven Rostedt# indeed have their configs set. 485dcc60243SSteven Rostedtloop: 486dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 487dcc60243SSteven Rostedt if (defined($objects{$module})) { 488dcc60243SSteven Rostedt my @arr = @{$objects{$module}}; 489dcc60243SSteven Rostedt foreach my $conf (@arr) { 490dcc60243SSteven Rostedt if (defined($setconfigs{$conf})) { 491dcc60243SSteven Rostedt next loop; 492dcc60243SSteven Rostedt } 493dcc60243SSteven Rostedt } 494dcc60243SSteven Rostedt print STDERR "module $module did not have configs"; 495dcc60243SSteven Rostedt foreach my $conf (@arr) { 496dcc60243SSteven Rostedt print STDERR " " , $conf; 497dcc60243SSteven Rostedt } 498dcc60243SSteven Rostedt print STDERR "\n"; 499dcc60243SSteven Rostedt } 500dcc60243SSteven Rostedt} 501