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 484503379cSSteven Rostedt# set the environment variable LOCALMODCONFIG_DEBUG to get 494503379cSSteven Rostedt# debug output. 504503379cSSteven Rostedtmy $debugprint = 0; 514503379cSSteven Rostedt$debugprint = 1 if (defined($ENV{LOCALMODCONFIG_DEBUG})); 524503379cSSteven Rostedt 534503379cSSteven Rostedtsub dprint { 544503379cSSteven Rostedt return if (!$debugprint); 554503379cSSteven Rostedt print STDERR @_; 564503379cSSteven Rostedt} 574503379cSSteven Rostedt 58dcc60243SSteven Rostedtmy $config = ".config"; 59dcc60243SSteven Rostedt 60cdfc4795SSteven Rostedtmy $uname = `uname -r`; 61cdfc4795SSteven Rostedtchomp $uname; 62cdfc4795SSteven Rostedt 63cdfc4795SSteven Rostedtmy @searchconfigs = ( 64cdfc4795SSteven Rostedt { 65a9024838SSteven Rostedt "file" => ".config", 66a9024838SSteven Rostedt "exec" => "cat", 67a9024838SSteven Rostedt }, 68a9024838SSteven Rostedt { 69cdfc4795SSteven Rostedt "file" => "/proc/config.gz", 70cdfc4795SSteven Rostedt "exec" => "zcat", 71cdfc4795SSteven Rostedt }, 72cdfc4795SSteven Rostedt { 73810b2be6SSteven Rostedt "file" => "/boot/config-$uname", 74810b2be6SSteven Rostedt "exec" => "cat", 75810b2be6SSteven Rostedt }, 76810b2be6SSteven Rostedt { 77cdfc4795SSteven Rostedt "file" => "/boot/vmlinuz-$uname", 78cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 79cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 80cdfc4795SSteven Rostedt }, 81cdfc4795SSteven Rostedt { 82cdfc4795SSteven Rostedt "file" => "vmlinux", 83cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 84cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 85cdfc4795SSteven Rostedt }, 86cdfc4795SSteven Rostedt { 87cdfc4795SSteven Rostedt "file" => "/lib/modules/$uname/kernel/kernel/configs.ko", 88cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 89cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 90cdfc4795SSteven Rostedt }, 91cdfc4795SSteven Rostedt { 92cdfc4795SSteven Rostedt "file" => "kernel/configs.ko", 93cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 94cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 95cdfc4795SSteven Rostedt }, 96cdfc4795SSteven Rostedt { 97cdfc4795SSteven Rostedt "file" => "kernel/configs.o", 98cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 99cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 100cdfc4795SSteven Rostedt }, 101cdfc4795SSteven Rostedt); 102cdfc4795SSteven Rostedt 103*3f0c5413SBill Pembertonsub read_config { 104cdfc4795SSteven Rostedt foreach my $conf (@searchconfigs) { 105cdfc4795SSteven Rostedt my $file = $conf->{"file"}; 106cdfc4795SSteven Rostedt 107cdfc4795SSteven Rostedt next if ( ! -f "$file"); 108cdfc4795SSteven Rostedt 109cdfc4795SSteven Rostedt if (defined($conf->{"test"})) { 110cdfc4795SSteven Rostedt `$conf->{"test"} $conf->{"file"} 2>/dev/null`; 111cdfc4795SSteven Rostedt next if ($?); 112cdfc4795SSteven Rostedt } 113cdfc4795SSteven Rostedt 114cdfc4795SSteven Rostedt my $exec = $conf->{"exec"}; 115cdfc4795SSteven Rostedt 116cdfc4795SSteven Rostedt print STDERR "using config: '$file'\n"; 117cdfc4795SSteven Rostedt 118*3f0c5413SBill Pemberton open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file"; 119*3f0c5413SBill Pemberton my @x = <$infile>; 120*3f0c5413SBill Pemberton close $infile; 121*3f0c5413SBill Pemberton return @x; 122cdfc4795SSteven Rostedt } 123cdfc4795SSteven Rostedt die "No config file found"; 124cdfc4795SSteven Rostedt} 125cdfc4795SSteven Rostedt 126*3f0c5413SBill Pembertonmy @config_file = read_config; 1274f4c51c9SSteven Rostedt 12822d550aeSArnaud Lacombe# Parse options 12922d550aeSArnaud Lacombemy $localmodconfig = 0; 13022d550aeSArnaud Lacombemy $localyesconfig = 0; 13122d550aeSArnaud Lacombe 13222d550aeSArnaud LacombeGetOptions("localmodconfig" => \$localmodconfig, 13322d550aeSArnaud Lacombe "localyesconfig" => \$localyesconfig); 13422d550aeSArnaud Lacombe 135463bf900SSteven Rostedt# Get the build source and top level Kconfig file (passed in) 136224a2571SBill Pembertonmy $ksource = ($ARGV[0] ? $ARGV[0] : '.'); 137463bf900SSteven Rostedtmy $kconfig = $ARGV[1]; 138f597a718SArnaud Lacombemy $lsmod_file = $ENV{'LSMOD'}; 139463bf900SSteven Rostedt 14017431928SToralf Förstermy @makefiles = `find $ksource -name Makefile 2>/dev/null`; 14117431928SToralf Försterchomp @makefiles; 14217431928SToralf Förster 143dcc60243SSteven Rostedtmy %depends; 144dcc60243SSteven Rostedtmy %selects; 145dcc60243SSteven Rostedtmy %prompts; 146dcc60243SSteven Rostedtmy %objects; 147dcc60243SSteven Rostedtmy $var; 14813d7e938SSteven Rostedtmy $iflevel = 0; 14913d7e938SSteven Rostedtmy @ifdeps; 150dcc60243SSteven Rostedt 151dcc60243SSteven Rostedt# prevent recursion 152dcc60243SSteven Rostedtmy %read_kconfigs; 153dcc60243SSteven Rostedt 154dcc60243SSteven Rostedtsub read_kconfig { 155dcc60243SSteven Rostedt my ($kconfig) = @_; 156dcc60243SSteven Rostedt 157dcc60243SSteven Rostedt my $state = "NONE"; 158dcc60243SSteven Rostedt my $config; 159dcc60243SSteven Rostedt my @kconfigs; 160dcc60243SSteven Rostedt 16120d19047SSteven Rostedt my $cont = 0; 16220d19047SSteven Rostedt my $line; 16320d19047SSteven Rostedt 1644908980bSSteven Rostedt my $source = "$ksource/$kconfig"; 1654908980bSSteven Rostedt my $last_source = ""; 1664908980bSSteven Rostedt 1674908980bSSteven Rostedt # Check for any environment variables used 1684908980bSSteven Rostedt while ($source =~ /\$(\w+)/ && $last_source ne $source) { 1694908980bSSteven Rostedt my $env = $1; 1704908980bSSteven Rostedt $last_source = $source; 1714908980bSSteven Rostedt $source =~ s/\$$env/$ENV{$env}/; 1724908980bSSteven Rostedt } 1734908980bSSteven Rostedt 1744908980bSSteven Rostedt open(KIN, "$source") || die "Can't open $kconfig"; 175dcc60243SSteven Rostedt while (<KIN>) { 176dcc60243SSteven Rostedt chomp; 177dcc60243SSteven Rostedt 17820d19047SSteven Rostedt # Make sure that lines ending with \ continue 17920d19047SSteven Rostedt if ($cont) { 18020d19047SSteven Rostedt $_ = $line . " " . $_; 18120d19047SSteven Rostedt } 18220d19047SSteven Rostedt 18320d19047SSteven Rostedt if (s/\\$//) { 18420d19047SSteven Rostedt $cont = 1; 18520d19047SSteven Rostedt $line = $_; 18620d19047SSteven Rostedt next; 18720d19047SSteven Rostedt } 18820d19047SSteven Rostedt 18920d19047SSteven Rostedt $cont = 0; 19020d19047SSteven Rostedt 191dcc60243SSteven Rostedt # collect any Kconfig sources 192dcc60243SSteven Rostedt if (/^source\s*"(.*)"/) { 193dcc60243SSteven Rostedt $kconfigs[$#kconfigs+1] = $1; 194dcc60243SSteven Rostedt } 195dcc60243SSteven Rostedt 196dcc60243SSteven Rostedt # configs found 1978ef17fa2SSteven Rostedt if (/^\s*(menu)?config\s+(\S+)\s*$/) { 198dcc60243SSteven Rostedt $state = "NEW"; 1998ef17fa2SSteven Rostedt $config = $2; 200dcc60243SSteven Rostedt 2010b58a99eSSteven Rostedt # Add depends for 'if' nesting 20213d7e938SSteven Rostedt for (my $i = 0; $i < $iflevel; $i++) { 20313d7e938SSteven Rostedt if ($i) { 20413d7e938SSteven Rostedt $depends{$config} .= " " . $ifdeps[$i]; 20513d7e938SSteven Rostedt } else { 20613d7e938SSteven Rostedt $depends{$config} = $ifdeps[$i]; 20713d7e938SSteven Rostedt } 20813d7e938SSteven Rostedt $state = "DEP"; 20913d7e938SSteven Rostedt } 21013d7e938SSteven Rostedt 211dcc60243SSteven Rostedt # collect the depends for the config 212dcc60243SSteven Rostedt } elsif ($state eq "NEW" && /^\s*depends\s+on\s+(.*)$/) { 213dcc60243SSteven Rostedt $state = "DEP"; 214dcc60243SSteven Rostedt $depends{$config} = $1; 215dcc60243SSteven Rostedt } elsif ($state eq "DEP" && /^\s*depends\s+on\s+(.*)$/) { 216dcc60243SSteven Rostedt $depends{$config} .= " " . $1; 217dcc60243SSteven Rostedt 218dcc60243SSteven Rostedt # Get the configs that select this config 219dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*select\s+(\S+)/) { 2200b58a99eSSteven Rostedt my $conf = $1; 2210b58a99eSSteven Rostedt if (defined($selects{$conf})) { 2220b58a99eSSteven Rostedt $selects{$conf} .= " " . $config; 223dcc60243SSteven Rostedt } else { 2240b58a99eSSteven Rostedt $selects{$conf} = $config; 225dcc60243SSteven Rostedt } 226dcc60243SSteven Rostedt 227dcc60243SSteven Rostedt # configs without prompts must be selected 228dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*tristate\s\S/) { 229dcc60243SSteven Rostedt # note if the config has a prompt 230ccece60aShiromu yagura $prompts{$config} = 1; 231dcc60243SSteven Rostedt 23213d7e938SSteven Rostedt # Check for if statements 23313d7e938SSteven Rostedt } elsif (/^if\s+(.*\S)\s*$/) { 23413d7e938SSteven Rostedt my $deps = $1; 23513d7e938SSteven Rostedt # remove beginning and ending non text 23613d7e938SSteven Rostedt $deps =~ s/^[^a-zA-Z0-9_]*//; 23713d7e938SSteven Rostedt $deps =~ s/[^a-zA-Z0-9_]*$//; 23813d7e938SSteven Rostedt 23913d7e938SSteven Rostedt my @deps = split /[^a-zA-Z0-9_]+/, $deps; 24013d7e938SSteven Rostedt 24113d7e938SSteven Rostedt $ifdeps[$iflevel++] = join ':', @deps; 24213d7e938SSteven Rostedt 24313d7e938SSteven Rostedt } elsif (/^endif/) { 24413d7e938SSteven Rostedt 24513d7e938SSteven Rostedt $iflevel-- if ($iflevel); 24613d7e938SSteven Rostedt 247dcc60243SSteven Rostedt # stop on "help" 248dcc60243SSteven Rostedt } elsif (/^\s*help\s*$/) { 249dcc60243SSteven Rostedt $state = "NONE"; 250dcc60243SSteven Rostedt } 251dcc60243SSteven Rostedt } 252dcc60243SSteven Rostedt close(KIN); 253dcc60243SSteven Rostedt 254dcc60243SSteven Rostedt # read in any configs that were found. 255dcc60243SSteven Rostedt foreach $kconfig (@kconfigs) { 256dcc60243SSteven Rostedt if (!defined($read_kconfigs{$kconfig})) { 257dcc60243SSteven Rostedt $read_kconfigs{$kconfig} = 1; 258dcc60243SSteven Rostedt read_kconfig($kconfig); 259dcc60243SSteven Rostedt } 260dcc60243SSteven Rostedt } 261dcc60243SSteven Rostedt} 262dcc60243SSteven Rostedt 263dcc60243SSteven Rostedtif ($kconfig) { 264dcc60243SSteven Rostedt read_kconfig($kconfig); 265dcc60243SSteven Rostedt} 266dcc60243SSteven Rostedt 2670b58a99eSSteven Rostedt# Makefiles can use variables to define their dependencies 268364212fdSSteven Rostedtsub convert_vars { 269364212fdSSteven Rostedt my ($line, %vars) = @_; 270364212fdSSteven Rostedt 271364212fdSSteven Rostedt my $process = ""; 272364212fdSSteven Rostedt 273364212fdSSteven Rostedt while ($line =~ s/^(.*?)(\$\((.*?)\))//) { 274364212fdSSteven Rostedt my $start = $1; 275364212fdSSteven Rostedt my $variable = $2; 276364212fdSSteven Rostedt my $var = $3; 277364212fdSSteven Rostedt 278364212fdSSteven Rostedt if (defined($vars{$var})) { 279364212fdSSteven Rostedt $process .= $start . $vars{$var}; 280364212fdSSteven Rostedt } else { 281364212fdSSteven Rostedt $process .= $start . $variable; 282364212fdSSteven Rostedt } 283364212fdSSteven Rostedt } 284364212fdSSteven Rostedt 285364212fdSSteven Rostedt $process .= $line; 286364212fdSSteven Rostedt 287364212fdSSteven Rostedt return $process; 288364212fdSSteven Rostedt} 289364212fdSSteven Rostedt 290dcc60243SSteven Rostedt# Read all Makefiles to map the configs to the objects 291dcc60243SSteven Rostedtforeach my $makefile (@makefiles) { 292dcc60243SSteven Rostedt 293d060d963SSteven Rostedt my $line = ""; 294364212fdSSteven Rostedt my %make_vars; 29520d19047SSteven Rostedt 296dcc60243SSteven Rostedt open(MIN,$makefile) || die "Can't open $makefile"; 297dcc60243SSteven Rostedt while (<MIN>) { 298d060d963SSteven Rostedt # if this line ends with a backslash, continue 299d060d963SSteven Rostedt chomp; 300d060d963SSteven Rostedt if (/^(.*)\\$/) { 301d060d963SSteven Rostedt $line .= $1; 302d060d963SSteven Rostedt next; 303dcc60243SSteven Rostedt } 304d060d963SSteven Rostedt 305d060d963SSteven Rostedt $line .= $_; 306d060d963SSteven Rostedt $_ = $line; 307d060d963SSteven Rostedt $line = ""; 308d060d963SSteven Rostedt 309d060d963SSteven Rostedt my $objs; 310dcc60243SSteven Rostedt 3110b58a99eSSteven Rostedt # Convert variables in a line (could define configs) 312364212fdSSteven Rostedt $_ = convert_vars($_, %make_vars); 313364212fdSSteven Rostedt 314dcc60243SSteven Rostedt # collect objects after obj-$(CONFIG_FOO_BAR) 315dcc60243SSteven Rostedt if (/obj-\$\((CONFIG_[^\)]*)\)\s*[+:]?=\s*(.*)/) { 316dcc60243SSteven Rostedt $var = $1; 317dcc60243SSteven Rostedt $objs = $2; 318364212fdSSteven Rostedt 319364212fdSSteven Rostedt # check if variables are set 320364212fdSSteven Rostedt } elsif (/^\s*(\S+)\s*[:]?=\s*(.*\S)/) { 321364212fdSSteven Rostedt $make_vars{$1} = $2; 322dcc60243SSteven Rostedt } 323dcc60243SSteven Rostedt if (defined($objs)) { 324dcc60243SSteven Rostedt foreach my $obj (split /\s+/,$objs) { 325dcc60243SSteven Rostedt $obj =~ s/-/_/g; 326dcc60243SSteven Rostedt if ($obj =~ /(.*)\.o$/) { 3271d1d1feaSToralf Foerster # Objects may be enabled by more than one config. 328dcc60243SSteven Rostedt # Store configs in an array. 329dcc60243SSteven Rostedt my @arr; 330dcc60243SSteven Rostedt 331dcc60243SSteven Rostedt if (defined($objects{$1})) { 332dcc60243SSteven Rostedt @arr = @{$objects{$1}}; 333dcc60243SSteven Rostedt } 334dcc60243SSteven Rostedt 335dcc60243SSteven Rostedt $arr[$#arr+1] = $var; 336dcc60243SSteven Rostedt 337dcc60243SSteven Rostedt # The objects have a hash mapping to a reference 338dcc60243SSteven Rostedt # of an array of configs. 339dcc60243SSteven Rostedt $objects{$1} = \@arr; 340dcc60243SSteven Rostedt } 341dcc60243SSteven Rostedt } 342dcc60243SSteven Rostedt } 343dcc60243SSteven Rostedt } 344dcc60243SSteven Rostedt close(MIN); 345dcc60243SSteven Rostedt} 346dcc60243SSteven Rostedt 347dcc60243SSteven Rostedtmy %modules; 348dcc60243SSteven Rostedt 349615f0833SSteven Rostedtif (defined($lsmod_file)) { 350615f0833SSteven Rostedt if ( ! -f $lsmod_file) { 351f597a718SArnaud Lacombe if ( -f $ENV{'objtree'}."/".$lsmod_file) { 352f597a718SArnaud Lacombe $lsmod_file = $ENV{'objtree'}."/".$lsmod_file; 353f597a718SArnaud Lacombe } else { 354615f0833SSteven Rostedt die "$lsmod_file not found"; 355615f0833SSteven Rostedt } 356f597a718SArnaud Lacombe } 357615f0833SSteven Rostedt if ( -x $lsmod_file) { 358615f0833SSteven Rostedt # the file is executable, run it 359615f0833SSteven Rostedt open(LIN, "$lsmod_file|"); 360615f0833SSteven Rostedt } else { 361615f0833SSteven Rostedt # Just read the contents 362615f0833SSteven Rostedt open(LIN, "$lsmod_file"); 363615f0833SSteven Rostedt } 364615f0833SSteven Rostedt} else { 365615f0833SSteven Rostedt 366dcc60243SSteven Rostedt # see what modules are loaded on this system 36788f66ea9SSteven Rostedt my $lsmod; 36888f66ea9SSteven Rostedt 369cf5a189dShiromu foreach my $dir ( ("/sbin", "/bin", "/usr/sbin", "/usr/bin") ) { 37088f66ea9SSteven Rostedt if ( -x "$dir/lsmod" ) { 37188f66ea9SSteven Rostedt $lsmod = "$dir/lsmod"; 37288f66ea9SSteven Rostedt last; 37388f66ea9SSteven Rostedt } 37488f66ea9SSteven Rostedt} 37588f66ea9SSteven Rostedt if (!defined($lsmod)) { 37688f66ea9SSteven Rostedt # try just the path 37788f66ea9SSteven Rostedt $lsmod = "lsmod"; 37888f66ea9SSteven Rostedt } 37988f66ea9SSteven Rostedt 38088f66ea9SSteven Rostedt open(LIN,"$lsmod|") || die "Can not call lsmod with $lsmod"; 381615f0833SSteven Rostedt} 382615f0833SSteven Rostedt 383dcc60243SSteven Rostedtwhile (<LIN>) { 384dcc60243SSteven Rostedt next if (/^Module/); # Skip the first line. 385dcc60243SSteven Rostedt if (/^(\S+)/) { 386dcc60243SSteven Rostedt $modules{$1} = 1; 387dcc60243SSteven Rostedt } 388dcc60243SSteven Rostedt} 389dcc60243SSteven Rostedtclose (LIN); 390dcc60243SSteven Rostedt 391dcc60243SSteven Rostedt# add to the configs hash all configs that are needed to enable 3920b58a99eSSteven Rostedt# a loaded module. This is a direct obj-${CONFIG_FOO} += bar.o 3930b58a99eSSteven Rostedt# where we know we need bar.o so we add FOO to the list. 394dcc60243SSteven Rostedtmy %configs; 395dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 396dcc60243SSteven Rostedt if (defined($objects{$module})) { 397e5199edbSToralf Foerster my @arr = @{$objects{$module}}; 398dcc60243SSteven Rostedt foreach my $conf (@arr) { 399dcc60243SSteven Rostedt $configs{$conf} = $module; 4004503379cSSteven Rostedt dprint "$conf added by direct ($module)\n"; 401dcc60243SSteven Rostedt } 402dcc60243SSteven Rostedt } else { 403dcc60243SSteven Rostedt # Most likely, someone has a custom (binary?) module loaded. 404dcc60243SSteven Rostedt print STDERR "$module config not found!!\n"; 405dcc60243SSteven Rostedt } 406dcc60243SSteven Rostedt} 407dcc60243SSteven Rostedt 4084f4c51c9SSteven Rostedt# Read the current config, and see what is enabled. We want to 4094f4c51c9SSteven Rostedt# ignore configs that we would not enable anyway. 4104f4c51c9SSteven Rostedt 4114f4c51c9SSteven Rostedtmy %orig_configs; 412dcc60243SSteven Rostedtmy $valid = "A-Za-z_0-9"; 4134f4c51c9SSteven Rostedt 4144f4c51c9SSteven Rostedtforeach my $line (@config_file) { 4154f4c51c9SSteven Rostedt $_ = $line; 4164f4c51c9SSteven Rostedt 4174f4c51c9SSteven Rostedt if (/(CONFIG_[$valid]*)=(m|y)/) { 4184f4c51c9SSteven Rostedt $orig_configs{$1} = $2; 4194f4c51c9SSteven Rostedt } 4204f4c51c9SSteven Rostedt} 4214f4c51c9SSteven Rostedt 422dcc60243SSteven Rostedtmy $repeat = 1; 423dcc60243SSteven Rostedt 4244503379cSSteven Rostedtmy $depconfig; 4254503379cSSteven Rostedt 426dcc60243SSteven Rostedt# 427dcc60243SSteven Rostedt# Note, we do not care about operands (like: &&, ||, !) we want to add any 428dcc60243SSteven Rostedt# config that is in the depend list of another config. This script does 429dcc60243SSteven Rostedt# not enable configs that are not already enabled. If we come across a 430dcc60243SSteven Rostedt# config A that depends on !B, we can still add B to the list of depends 431dcc60243SSteven Rostedt# to keep on. If A was on in the original config, B would not have been 432dcc60243SSteven Rostedt# and B would not be turned on by this script. 433dcc60243SSteven Rostedt# 434d4bb58b5SSteven Rostedtsub parse_config_depends 435dcc60243SSteven Rostedt{ 436dcc60243SSteven Rostedt my ($p) = @_; 437dcc60243SSteven Rostedt 438dcc60243SSteven Rostedt while ($p =~ /[$valid]/) { 439dcc60243SSteven Rostedt 440dcc60243SSteven Rostedt if ($p =~ /^[^$valid]*([$valid]+)/) { 441dcc60243SSteven Rostedt my $conf = "CONFIG_" . $1; 442dcc60243SSteven Rostedt 443dcc60243SSteven Rostedt $p =~ s/^[^$valid]*[$valid]+//; 444dcc60243SSteven Rostedt 4454f4c51c9SSteven Rostedt # We only need to process if the depend config is a module 4464f4c51c9SSteven Rostedt if (!defined($orig_configs{$conf}) || !$orig_configs{conf} eq "m") { 4474f4c51c9SSteven Rostedt next; 4484f4c51c9SSteven Rostedt } 4494f4c51c9SSteven Rostedt 450dcc60243SSteven Rostedt if (!defined($configs{$conf})) { 451dcc60243SSteven Rostedt # We must make sure that this config has its 452dcc60243SSteven Rostedt # dependencies met. 453dcc60243SSteven Rostedt $repeat = 1; # do again 4544503379cSSteven Rostedt dprint "$conf selected by depend $depconfig\n"; 455dcc60243SSteven Rostedt $configs{$conf} = 1; 456dcc60243SSteven Rostedt } 457dcc60243SSteven Rostedt } else { 458dcc60243SSteven Rostedt die "this should never happen"; 459dcc60243SSteven Rostedt } 460dcc60243SSteven Rostedt } 461dcc60243SSteven Rostedt} 462dcc60243SSteven Rostedt 463d4bb58b5SSteven Rostedt# Select is treated a bit differently than depends. We call this 464d4bb58b5SSteven Rostedt# when a config has no prompt and requires another config to be 465d4bb58b5SSteven Rostedt# selected. We use to just select all configs that selected this 466d4bb58b5SSteven Rostedt# config, but found that that can balloon into enabling hundreds 467d4bb58b5SSteven Rostedt# of configs that we do not care about. 468d4bb58b5SSteven Rostedt# 469d4bb58b5SSteven Rostedt# The idea is we look at all the configs that select it. If one 470d4bb58b5SSteven Rostedt# is already in our list of configs to enable, then there's nothing 471d4bb58b5SSteven Rostedt# else to do. If there isn't, we pick the first config that was 472d4bb58b5SSteven Rostedt# enabled in the orignal config and use that. 473d4bb58b5SSteven Rostedtsub parse_config_selects 474d4bb58b5SSteven Rostedt{ 475d4bb58b5SSteven Rostedt my ($config, $p) = @_; 476d4bb58b5SSteven Rostedt 477d4bb58b5SSteven Rostedt my $next_config; 478d4bb58b5SSteven Rostedt 479d4bb58b5SSteven Rostedt while ($p =~ /[$valid]/) { 480d4bb58b5SSteven Rostedt 481d4bb58b5SSteven Rostedt if ($p =~ /^[^$valid]*([$valid]+)/) { 482d4bb58b5SSteven Rostedt my $conf = "CONFIG_" . $1; 483d4bb58b5SSteven Rostedt 484d4bb58b5SSteven Rostedt $p =~ s/^[^$valid]*[$valid]+//; 485d4bb58b5SSteven Rostedt 486d4bb58b5SSteven Rostedt # Make sure that this config exists in the current .config file 487d4bb58b5SSteven Rostedt if (!defined($orig_configs{$conf})) { 4884503379cSSteven Rostedt dprint "$conf not set for $config select\n"; 489d4bb58b5SSteven Rostedt next; 490d4bb58b5SSteven Rostedt } 491d4bb58b5SSteven Rostedt 492d4bb58b5SSteven Rostedt # Check if something other than a module selects this config 493d4bb58b5SSteven Rostedt if (defined($orig_configs{$conf}) && $orig_configs{$conf} ne "m") { 4944503379cSSteven Rostedt dprint "$conf (non module) selects config, we are good\n"; 495d4bb58b5SSteven Rostedt # we are good with this 496d4bb58b5SSteven Rostedt return; 497d4bb58b5SSteven Rostedt } 498d4bb58b5SSteven Rostedt if (defined($configs{$conf})) { 4994503379cSSteven Rostedt dprint "$conf selects $config so we are good\n"; 500d4bb58b5SSteven Rostedt # A set config selects this config, we are good 501d4bb58b5SSteven Rostedt return; 502d4bb58b5SSteven Rostedt } 503d4bb58b5SSteven Rostedt # Set this config to be selected 504d4bb58b5SSteven Rostedt if (!defined($next_config)) { 505d4bb58b5SSteven Rostedt $next_config = $conf; 506d4bb58b5SSteven Rostedt } 507d4bb58b5SSteven Rostedt } else { 508d4bb58b5SSteven Rostedt die "this should never happen"; 509d4bb58b5SSteven Rostedt } 510d4bb58b5SSteven Rostedt } 511d4bb58b5SSteven Rostedt 512d4bb58b5SSteven Rostedt # If no possible config selected this, then something happened. 513d4bb58b5SSteven Rostedt if (!defined($next_config)) { 514d4bb58b5SSteven Rostedt print STDERR "WARNING: $config is required, but nothing in the\n"; 515d4bb58b5SSteven Rostedt print STDERR " current config selects it.\n"; 516d4bb58b5SSteven Rostedt return; 517d4bb58b5SSteven Rostedt } 518d4bb58b5SSteven Rostedt 519d4bb58b5SSteven Rostedt # If we are here, then we found no config that is set and 520d4bb58b5SSteven Rostedt # selects this config. Repeat. 521d4bb58b5SSteven Rostedt $repeat = 1; 522d4bb58b5SSteven Rostedt # Make this config need to be selected 523d4bb58b5SSteven Rostedt $configs{$next_config} = 1; 5244503379cSSteven Rostedt dprint "$next_config selected by select $config\n"; 525d4bb58b5SSteven Rostedt} 526d4bb58b5SSteven Rostedt 527d4bb58b5SSteven Rostedtmy %process_selects; 528d4bb58b5SSteven Rostedt 529d4bb58b5SSteven Rostedt# loop through all configs, select their dependencies. 530d4bb58b5SSteven Rostedtsub loop_depend { 531d4bb58b5SSteven Rostedt $repeat = 1; 532d4bb58b5SSteven Rostedt 533dcc60243SSteven Rostedt while ($repeat) { 534dcc60243SSteven Rostedt $repeat = 0; 535dcc60243SSteven Rostedt 536d4bb58b5SSteven Rostedt forloop: 537dcc60243SSteven Rostedt foreach my $config (keys %configs) { 538d4bb58b5SSteven Rostedt 539d4bb58b5SSteven Rostedt # If this config is not a module, we do not need to process it 540d4bb58b5SSteven Rostedt if (defined($orig_configs{$config}) && $orig_configs{$config} ne "m") { 541d4bb58b5SSteven Rostedt next forloop; 542d4bb58b5SSteven Rostedt } 543d4bb58b5SSteven Rostedt 544dcc60243SSteven Rostedt $config =~ s/^CONFIG_//; 5454503379cSSteven Rostedt $depconfig = $config; 546dcc60243SSteven Rostedt 54774398d32SSteven Rostedt if (defined($depends{$config})) { 548dcc60243SSteven Rostedt # This config has dependencies. Make sure they are also included 549d4bb58b5SSteven Rostedt parse_config_depends $depends{$config}; 55074398d32SSteven Rostedt } 551dcc60243SSteven Rostedt 552d4bb58b5SSteven Rostedt # If the config has no prompt, then we need to check if a config 553d4bb58b5SSteven Rostedt # that is enabled selected it. Or if we need to enable one. 554d4bb58b5SSteven Rostedt if (!defined($prompts{$config}) && defined($selects{$config})) { 555d4bb58b5SSteven Rostedt $process_selects{$config} = 1; 556dcc60243SSteven Rostedt } 557d4bb58b5SSteven Rostedt } 558d4bb58b5SSteven Rostedt } 559d4bb58b5SSteven Rostedt} 560d4bb58b5SSteven Rostedt 561d4bb58b5SSteven Rostedtsub loop_select { 562d4bb58b5SSteven Rostedt 563d4bb58b5SSteven Rostedt foreach my $config (keys %process_selects) { 564d4bb58b5SSteven Rostedt $config =~ s/^CONFIG_//; 565dcc60243SSteven Rostedt 5664503379cSSteven Rostedt dprint "Process select $config\n"; 5674503379cSSteven Rostedt 568dcc60243SSteven Rostedt # config has no prompt and must be selected. 569d4bb58b5SSteven Rostedt parse_config_selects $config, $selects{$config}; 570dcc60243SSteven Rostedt } 571dcc60243SSteven Rostedt} 572dcc60243SSteven Rostedt 573d4bb58b5SSteven Rostedtwhile ($repeat) { 574d4bb58b5SSteven Rostedt # Get the first set of configs and their dependencies. 575d4bb58b5SSteven Rostedt loop_depend; 576d4bb58b5SSteven Rostedt 577d4bb58b5SSteven Rostedt $repeat = 0; 578d4bb58b5SSteven Rostedt 579d4bb58b5SSteven Rostedt # Now we need to see if we have to check selects; 580d4bb58b5SSteven Rostedt loop_select; 581d4bb58b5SSteven Rostedt} 582d4bb58b5SSteven Rostedt 583dcc60243SSteven Rostedtmy %setconfigs; 584dcc60243SSteven Rostedt 585dcc60243SSteven Rostedt# Finally, read the .config file and turn off any module enabled that 586dcc60243SSteven Rostedt# we could not find a reason to keep enabled. 5874f4c51c9SSteven Rostedtforeach my $line (@config_file) { 5884f4c51c9SSteven Rostedt $_ = $line; 589744ffcbeSSteven Rostedt 590744ffcbeSSteven Rostedt if (/CONFIG_IKCONFIG/) { 591744ffcbeSSteven Rostedt if (/# CONFIG_IKCONFIG is not set/) { 592744ffcbeSSteven Rostedt # enable IKCONFIG at least as a module 593744ffcbeSSteven Rostedt print "CONFIG_IKCONFIG=m\n"; 594744ffcbeSSteven Rostedt # don't ask about PROC 595d08ca277SSteven Rostedt print "# CONFIG_IKCONFIG_PROC is not set\n"; 596744ffcbeSSteven Rostedt } else { 597744ffcbeSSteven Rostedt print; 598744ffcbeSSteven Rostedt } 599744ffcbeSSteven Rostedt next; 600744ffcbeSSteven Rostedt } 601744ffcbeSSteven Rostedt 602ea2c1894SSteven Rostedt if (/^(CONFIG.*)=(m|y)/) { 603dcc60243SSteven Rostedt if (defined($configs{$1})) { 60422d550aeSArnaud Lacombe if ($localyesconfig) { 60522d550aeSArnaud Lacombe $setconfigs{$1} = 'y'; 60622d550aeSArnaud Lacombe } else { 607ea2c1894SSteven Rostedt $setconfigs{$1} = $2; 60822d550aeSArnaud Lacombe } 609ea2c1894SSteven Rostedt } elsif ($2 eq "m") { 610dcc60243SSteven Rostedt print "# $1 is not set\n"; 611d08ca277SSteven Rostedt next; 612dcc60243SSteven Rostedt } 613dcc60243SSteven Rostedt } 614d08ca277SSteven Rostedt print; 615dcc60243SSteven Rostedt} 616dcc60243SSteven Rostedt 617dcc60243SSteven Rostedt# Integrity check, make sure all modules that we want enabled do 618dcc60243SSteven Rostedt# indeed have their configs set. 619dcc60243SSteven Rostedtloop: 620dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 621dcc60243SSteven Rostedt if (defined($objects{$module})) { 622dcc60243SSteven Rostedt my @arr = @{$objects{$module}}; 623dcc60243SSteven Rostedt foreach my $conf (@arr) { 624dcc60243SSteven Rostedt if (defined($setconfigs{$conf})) { 625dcc60243SSteven Rostedt next loop; 626dcc60243SSteven Rostedt } 627dcc60243SSteven Rostedt } 628dcc60243SSteven Rostedt print STDERR "module $module did not have configs"; 629dcc60243SSteven Rostedt foreach my $conf (@arr) { 630dcc60243SSteven Rostedt print STDERR " " , $conf; 631dcc60243SSteven Rostedt } 632dcc60243SSteven Rostedt print STDERR "\n"; 633dcc60243SSteven Rostedt } 634dcc60243SSteven Rostedt} 635