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 1164f4c51c9SSteven Rostedt# Read in the entire config file into config_file 1174f4c51c9SSteven Rostedtmy @config_file = <CIN>; 1184f4c51c9SSteven Rostedtclose CIN; 1194f4c51c9SSteven Rostedt 12022d550aeSArnaud Lacombe# Parse options 12122d550aeSArnaud Lacombemy $localmodconfig = 0; 12222d550aeSArnaud Lacombemy $localyesconfig = 0; 12322d550aeSArnaud Lacombe 12422d550aeSArnaud LacombeGetOptions("localmodconfig" => \$localmodconfig, 12522d550aeSArnaud Lacombe "localyesconfig" => \$localyesconfig); 12622d550aeSArnaud Lacombe 127463bf900SSteven Rostedt# Get the build source and top level Kconfig file (passed in) 128463bf900SSteven Rostedtmy $ksource = $ARGV[0]; 129463bf900SSteven Rostedtmy $kconfig = $ARGV[1]; 130f597a718SArnaud Lacombemy $lsmod_file = $ENV{'LSMOD'}; 131463bf900SSteven Rostedt 13217431928SToralf Förstermy @makefiles = `find $ksource -name Makefile 2>/dev/null`; 13317431928SToralf Försterchomp @makefiles; 13417431928SToralf Förster 135dcc60243SSteven Rostedtmy %depends; 136dcc60243SSteven Rostedtmy %selects; 137dcc60243SSteven Rostedtmy %prompts; 138dcc60243SSteven Rostedtmy %objects; 139dcc60243SSteven Rostedtmy $var; 14013d7e938SSteven Rostedtmy $iflevel = 0; 14113d7e938SSteven Rostedtmy @ifdeps; 142dcc60243SSteven Rostedt 143dcc60243SSteven Rostedt# prevent recursion 144dcc60243SSteven Rostedtmy %read_kconfigs; 145dcc60243SSteven Rostedt 146dcc60243SSteven Rostedtsub read_kconfig { 147dcc60243SSteven Rostedt my ($kconfig) = @_; 148dcc60243SSteven Rostedt 149dcc60243SSteven Rostedt my $state = "NONE"; 150dcc60243SSteven Rostedt my $config; 151dcc60243SSteven Rostedt my @kconfigs; 152dcc60243SSteven Rostedt 15320d19047SSteven Rostedt my $cont = 0; 15420d19047SSteven Rostedt my $line; 15520d19047SSteven Rostedt 1564908980bSSteven Rostedt my $source = "$ksource/$kconfig"; 1574908980bSSteven Rostedt my $last_source = ""; 1584908980bSSteven Rostedt 1594908980bSSteven Rostedt # Check for any environment variables used 1604908980bSSteven Rostedt while ($source =~ /\$(\w+)/ && $last_source ne $source) { 1614908980bSSteven Rostedt my $env = $1; 1624908980bSSteven Rostedt $last_source = $source; 1634908980bSSteven Rostedt $source =~ s/\$$env/$ENV{$env}/; 1644908980bSSteven Rostedt } 1654908980bSSteven Rostedt 1664908980bSSteven Rostedt open(KIN, "$source") || die "Can't open $kconfig"; 167dcc60243SSteven Rostedt while (<KIN>) { 168dcc60243SSteven Rostedt chomp; 169dcc60243SSteven Rostedt 17020d19047SSteven Rostedt # Make sure that lines ending with \ continue 17120d19047SSteven Rostedt if ($cont) { 17220d19047SSteven Rostedt $_ = $line . " " . $_; 17320d19047SSteven Rostedt } 17420d19047SSteven Rostedt 17520d19047SSteven Rostedt if (s/\\$//) { 17620d19047SSteven Rostedt $cont = 1; 17720d19047SSteven Rostedt $line = $_; 17820d19047SSteven Rostedt next; 17920d19047SSteven Rostedt } 18020d19047SSteven Rostedt 18120d19047SSteven Rostedt $cont = 0; 18220d19047SSteven Rostedt 183dcc60243SSteven Rostedt # collect any Kconfig sources 184dcc60243SSteven Rostedt if (/^source\s*"(.*)"/) { 185dcc60243SSteven Rostedt $kconfigs[$#kconfigs+1] = $1; 186dcc60243SSteven Rostedt } 187dcc60243SSteven Rostedt 188dcc60243SSteven Rostedt # configs found 1898ef17fa2SSteven Rostedt if (/^\s*(menu)?config\s+(\S+)\s*$/) { 190dcc60243SSteven Rostedt $state = "NEW"; 1918ef17fa2SSteven Rostedt $config = $2; 192dcc60243SSteven Rostedt 1930b58a99eSSteven Rostedt # Add depends for 'if' nesting 19413d7e938SSteven Rostedt for (my $i = 0; $i < $iflevel; $i++) { 19513d7e938SSteven Rostedt if ($i) { 19613d7e938SSteven Rostedt $depends{$config} .= " " . $ifdeps[$i]; 19713d7e938SSteven Rostedt } else { 19813d7e938SSteven Rostedt $depends{$config} = $ifdeps[$i]; 19913d7e938SSteven Rostedt } 20013d7e938SSteven Rostedt $state = "DEP"; 20113d7e938SSteven Rostedt } 20213d7e938SSteven Rostedt 203dcc60243SSteven Rostedt # collect the depends for the config 204dcc60243SSteven Rostedt } elsif ($state eq "NEW" && /^\s*depends\s+on\s+(.*)$/) { 205dcc60243SSteven Rostedt $state = "DEP"; 206dcc60243SSteven Rostedt $depends{$config} = $1; 207dcc60243SSteven Rostedt } elsif ($state eq "DEP" && /^\s*depends\s+on\s+(.*)$/) { 208dcc60243SSteven Rostedt $depends{$config} .= " " . $1; 209dcc60243SSteven Rostedt 210dcc60243SSteven Rostedt # Get the configs that select this config 211dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*select\s+(\S+)/) { 2120b58a99eSSteven Rostedt my $conf = $1; 2130b58a99eSSteven Rostedt if (defined($selects{$conf})) { 2140b58a99eSSteven Rostedt $selects{$conf} .= " " . $config; 215dcc60243SSteven Rostedt } else { 2160b58a99eSSteven Rostedt $selects{$conf} = $config; 217dcc60243SSteven Rostedt } 218dcc60243SSteven Rostedt 219dcc60243SSteven Rostedt # configs without prompts must be selected 220dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*tristate\s\S/) { 221dcc60243SSteven Rostedt # note if the config has a prompt 222ccece60aShiromu yagura $prompts{$config} = 1; 223dcc60243SSteven Rostedt 22413d7e938SSteven Rostedt # Check for if statements 22513d7e938SSteven Rostedt } elsif (/^if\s+(.*\S)\s*$/) { 22613d7e938SSteven Rostedt my $deps = $1; 22713d7e938SSteven Rostedt # remove beginning and ending non text 22813d7e938SSteven Rostedt $deps =~ s/^[^a-zA-Z0-9_]*//; 22913d7e938SSteven Rostedt $deps =~ s/[^a-zA-Z0-9_]*$//; 23013d7e938SSteven Rostedt 23113d7e938SSteven Rostedt my @deps = split /[^a-zA-Z0-9_]+/, $deps; 23213d7e938SSteven Rostedt 23313d7e938SSteven Rostedt $ifdeps[$iflevel++] = join ':', @deps; 23413d7e938SSteven Rostedt 23513d7e938SSteven Rostedt } elsif (/^endif/) { 23613d7e938SSteven Rostedt 23713d7e938SSteven Rostedt $iflevel-- if ($iflevel); 23813d7e938SSteven Rostedt 239dcc60243SSteven Rostedt # stop on "help" 240dcc60243SSteven Rostedt } elsif (/^\s*help\s*$/) { 241dcc60243SSteven Rostedt $state = "NONE"; 242dcc60243SSteven Rostedt } 243dcc60243SSteven Rostedt } 244dcc60243SSteven Rostedt close(KIN); 245dcc60243SSteven Rostedt 246dcc60243SSteven Rostedt # read in any configs that were found. 247dcc60243SSteven Rostedt foreach $kconfig (@kconfigs) { 248dcc60243SSteven Rostedt if (!defined($read_kconfigs{$kconfig})) { 249dcc60243SSteven Rostedt $read_kconfigs{$kconfig} = 1; 250dcc60243SSteven Rostedt read_kconfig($kconfig); 251dcc60243SSteven Rostedt } 252dcc60243SSteven Rostedt } 253dcc60243SSteven Rostedt} 254dcc60243SSteven Rostedt 255dcc60243SSteven Rostedtif ($kconfig) { 256dcc60243SSteven Rostedt read_kconfig($kconfig); 257dcc60243SSteven Rostedt} 258dcc60243SSteven Rostedt 2590b58a99eSSteven Rostedt# Makefiles can use variables to define their dependencies 260364212fdSSteven Rostedtsub convert_vars { 261364212fdSSteven Rostedt my ($line, %vars) = @_; 262364212fdSSteven Rostedt 263364212fdSSteven Rostedt my $process = ""; 264364212fdSSteven Rostedt 265364212fdSSteven Rostedt while ($line =~ s/^(.*?)(\$\((.*?)\))//) { 266364212fdSSteven Rostedt my $start = $1; 267364212fdSSteven Rostedt my $variable = $2; 268364212fdSSteven Rostedt my $var = $3; 269364212fdSSteven Rostedt 270364212fdSSteven Rostedt if (defined($vars{$var})) { 271364212fdSSteven Rostedt $process .= $start . $vars{$var}; 272364212fdSSteven Rostedt } else { 273364212fdSSteven Rostedt $process .= $start . $variable; 274364212fdSSteven Rostedt } 275364212fdSSteven Rostedt } 276364212fdSSteven Rostedt 277364212fdSSteven Rostedt $process .= $line; 278364212fdSSteven Rostedt 279364212fdSSteven Rostedt return $process; 280364212fdSSteven Rostedt} 281364212fdSSteven Rostedt 282dcc60243SSteven Rostedt# Read all Makefiles to map the configs to the objects 283dcc60243SSteven Rostedtforeach my $makefile (@makefiles) { 284dcc60243SSteven Rostedt 285d060d963SSteven Rostedt my $line = ""; 286364212fdSSteven Rostedt my %make_vars; 28720d19047SSteven Rostedt 288dcc60243SSteven Rostedt open(MIN,$makefile) || die "Can't open $makefile"; 289dcc60243SSteven Rostedt while (<MIN>) { 290d060d963SSteven Rostedt # if this line ends with a backslash, continue 291d060d963SSteven Rostedt chomp; 292d060d963SSteven Rostedt if (/^(.*)\\$/) { 293d060d963SSteven Rostedt $line .= $1; 294d060d963SSteven Rostedt next; 295dcc60243SSteven Rostedt } 296d060d963SSteven Rostedt 297d060d963SSteven Rostedt $line .= $_; 298d060d963SSteven Rostedt $_ = $line; 299d060d963SSteven Rostedt $line = ""; 300d060d963SSteven Rostedt 301d060d963SSteven Rostedt my $objs; 302dcc60243SSteven Rostedt 3030b58a99eSSteven Rostedt # Convert variables in a line (could define configs) 304364212fdSSteven Rostedt $_ = convert_vars($_, %make_vars); 305364212fdSSteven Rostedt 306dcc60243SSteven Rostedt # collect objects after obj-$(CONFIG_FOO_BAR) 307dcc60243SSteven Rostedt if (/obj-\$\((CONFIG_[^\)]*)\)\s*[+:]?=\s*(.*)/) { 308dcc60243SSteven Rostedt $var = $1; 309dcc60243SSteven Rostedt $objs = $2; 310364212fdSSteven Rostedt 311364212fdSSteven Rostedt # check if variables are set 312364212fdSSteven Rostedt } elsif (/^\s*(\S+)\s*[:]?=\s*(.*\S)/) { 313364212fdSSteven Rostedt $make_vars{$1} = $2; 314dcc60243SSteven Rostedt } 315dcc60243SSteven Rostedt if (defined($objs)) { 316dcc60243SSteven Rostedt foreach my $obj (split /\s+/,$objs) { 317dcc60243SSteven Rostedt $obj =~ s/-/_/g; 318dcc60243SSteven Rostedt if ($obj =~ /(.*)\.o$/) { 3191d1d1feaSToralf Foerster # Objects may be enabled by more than one config. 320dcc60243SSteven Rostedt # Store configs in an array. 321dcc60243SSteven Rostedt my @arr; 322dcc60243SSteven Rostedt 323dcc60243SSteven Rostedt if (defined($objects{$1})) { 324dcc60243SSteven Rostedt @arr = @{$objects{$1}}; 325dcc60243SSteven Rostedt } 326dcc60243SSteven Rostedt 327dcc60243SSteven Rostedt $arr[$#arr+1] = $var; 328dcc60243SSteven Rostedt 329dcc60243SSteven Rostedt # The objects have a hash mapping to a reference 330dcc60243SSteven Rostedt # of an array of configs. 331dcc60243SSteven Rostedt $objects{$1} = \@arr; 332dcc60243SSteven Rostedt } 333dcc60243SSteven Rostedt } 334dcc60243SSteven Rostedt } 335dcc60243SSteven Rostedt } 336dcc60243SSteven Rostedt close(MIN); 337dcc60243SSteven Rostedt} 338dcc60243SSteven Rostedt 339dcc60243SSteven Rostedtmy %modules; 340dcc60243SSteven Rostedt 341615f0833SSteven Rostedtif (defined($lsmod_file)) { 342615f0833SSteven Rostedt if ( ! -f $lsmod_file) { 343f597a718SArnaud Lacombe if ( -f $ENV{'objtree'}."/".$lsmod_file) { 344f597a718SArnaud Lacombe $lsmod_file = $ENV{'objtree'}."/".$lsmod_file; 345f597a718SArnaud Lacombe } else { 346615f0833SSteven Rostedt die "$lsmod_file not found"; 347615f0833SSteven Rostedt } 348f597a718SArnaud Lacombe } 349615f0833SSteven Rostedt if ( -x $lsmod_file) { 350615f0833SSteven Rostedt # the file is executable, run it 351615f0833SSteven Rostedt open(LIN, "$lsmod_file|"); 352615f0833SSteven Rostedt } else { 353615f0833SSteven Rostedt # Just read the contents 354615f0833SSteven Rostedt open(LIN, "$lsmod_file"); 355615f0833SSteven Rostedt } 356615f0833SSteven Rostedt} else { 357615f0833SSteven Rostedt 358dcc60243SSteven Rostedt # see what modules are loaded on this system 35988f66ea9SSteven Rostedt my $lsmod; 36088f66ea9SSteven Rostedt 361cf5a189dShiromu foreach my $dir ( ("/sbin", "/bin", "/usr/sbin", "/usr/bin") ) { 36288f66ea9SSteven Rostedt if ( -x "$dir/lsmod" ) { 36388f66ea9SSteven Rostedt $lsmod = "$dir/lsmod"; 36488f66ea9SSteven Rostedt last; 36588f66ea9SSteven Rostedt } 36688f66ea9SSteven Rostedt} 36788f66ea9SSteven Rostedt if (!defined($lsmod)) { 36888f66ea9SSteven Rostedt # try just the path 36988f66ea9SSteven Rostedt $lsmod = "lsmod"; 37088f66ea9SSteven Rostedt } 37188f66ea9SSteven Rostedt 37288f66ea9SSteven Rostedt open(LIN,"$lsmod|") || die "Can not call lsmod with $lsmod"; 373615f0833SSteven Rostedt} 374615f0833SSteven Rostedt 375dcc60243SSteven Rostedtwhile (<LIN>) { 376dcc60243SSteven Rostedt next if (/^Module/); # Skip the first line. 377dcc60243SSteven Rostedt if (/^(\S+)/) { 378dcc60243SSteven Rostedt $modules{$1} = 1; 379dcc60243SSteven Rostedt } 380dcc60243SSteven Rostedt} 381dcc60243SSteven Rostedtclose (LIN); 382dcc60243SSteven Rostedt 383dcc60243SSteven Rostedt# add to the configs hash all configs that are needed to enable 3840b58a99eSSteven Rostedt# a loaded module. This is a direct obj-${CONFIG_FOO} += bar.o 3850b58a99eSSteven Rostedt# where we know we need bar.o so we add FOO to the list. 386dcc60243SSteven Rostedtmy %configs; 387dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 388dcc60243SSteven Rostedt if (defined($objects{$module})) { 389e5199edbSToralf Foerster my @arr = @{$objects{$module}}; 390dcc60243SSteven Rostedt foreach my $conf (@arr) { 391dcc60243SSteven Rostedt $configs{$conf} = $module; 392dcc60243SSteven Rostedt } 393dcc60243SSteven Rostedt } else { 394dcc60243SSteven Rostedt # Most likely, someone has a custom (binary?) module loaded. 395dcc60243SSteven Rostedt print STDERR "$module config not found!!\n"; 396dcc60243SSteven Rostedt } 397dcc60243SSteven Rostedt} 398dcc60243SSteven Rostedt 3994f4c51c9SSteven Rostedt# Read the current config, and see what is enabled. We want to 4004f4c51c9SSteven Rostedt# ignore configs that we would not enable anyway. 4014f4c51c9SSteven Rostedt 4024f4c51c9SSteven Rostedtmy %orig_configs; 403dcc60243SSteven Rostedtmy $valid = "A-Za-z_0-9"; 4044f4c51c9SSteven Rostedt 4054f4c51c9SSteven Rostedtforeach my $line (@config_file) { 4064f4c51c9SSteven Rostedt $_ = $line; 4074f4c51c9SSteven Rostedt 4084f4c51c9SSteven Rostedt if (/(CONFIG_[$valid]*)=(m|y)/) { 4094f4c51c9SSteven Rostedt $orig_configs{$1} = $2; 4104f4c51c9SSteven Rostedt } 4114f4c51c9SSteven Rostedt} 4124f4c51c9SSteven Rostedt 413dcc60243SSteven Rostedtmy $repeat = 1; 414dcc60243SSteven Rostedt 415dcc60243SSteven Rostedt# 416dcc60243SSteven Rostedt# Note, we do not care about operands (like: &&, ||, !) we want to add any 417dcc60243SSteven Rostedt# config that is in the depend list of another config. This script does 418dcc60243SSteven Rostedt# not enable configs that are not already enabled. If we come across a 419dcc60243SSteven Rostedt# config A that depends on !B, we can still add B to the list of depends 420dcc60243SSteven Rostedt# to keep on. If A was on in the original config, B would not have been 421dcc60243SSteven Rostedt# and B would not be turned on by this script. 422dcc60243SSteven Rostedt# 423*d4bb58b5SSteven Rostedtsub parse_config_depends 424dcc60243SSteven Rostedt{ 425dcc60243SSteven Rostedt my ($p) = @_; 426dcc60243SSteven Rostedt 427dcc60243SSteven Rostedt while ($p =~ /[$valid]/) { 428dcc60243SSteven Rostedt 429dcc60243SSteven Rostedt if ($p =~ /^[^$valid]*([$valid]+)/) { 430dcc60243SSteven Rostedt my $conf = "CONFIG_" . $1; 431dcc60243SSteven Rostedt 432dcc60243SSteven Rostedt $p =~ s/^[^$valid]*[$valid]+//; 433dcc60243SSteven Rostedt 4344f4c51c9SSteven Rostedt # We only need to process if the depend config is a module 4354f4c51c9SSteven Rostedt if (!defined($orig_configs{$conf}) || !$orig_configs{conf} eq "m") { 4364f4c51c9SSteven Rostedt next; 4374f4c51c9SSteven Rostedt } 4384f4c51c9SSteven Rostedt 439dcc60243SSteven Rostedt if (!defined($configs{$conf})) { 440dcc60243SSteven Rostedt # We must make sure that this config has its 441dcc60243SSteven Rostedt # dependencies met. 442dcc60243SSteven Rostedt $repeat = 1; # do again 443dcc60243SSteven Rostedt $configs{$conf} = 1; 444dcc60243SSteven Rostedt } 445dcc60243SSteven Rostedt } else { 446dcc60243SSteven Rostedt die "this should never happen"; 447dcc60243SSteven Rostedt } 448dcc60243SSteven Rostedt } 449dcc60243SSteven Rostedt} 450dcc60243SSteven Rostedt 451*d4bb58b5SSteven Rostedt# Select is treated a bit differently than depends. We call this 452*d4bb58b5SSteven Rostedt# when a config has no prompt and requires another config to be 453*d4bb58b5SSteven Rostedt# selected. We use to just select all configs that selected this 454*d4bb58b5SSteven Rostedt# config, but found that that can balloon into enabling hundreds 455*d4bb58b5SSteven Rostedt# of configs that we do not care about. 456*d4bb58b5SSteven Rostedt# 457*d4bb58b5SSteven Rostedt# The idea is we look at all the configs that select it. If one 458*d4bb58b5SSteven Rostedt# is already in our list of configs to enable, then there's nothing 459*d4bb58b5SSteven Rostedt# else to do. If there isn't, we pick the first config that was 460*d4bb58b5SSteven Rostedt# enabled in the orignal config and use that. 461*d4bb58b5SSteven Rostedtsub parse_config_selects 462*d4bb58b5SSteven Rostedt{ 463*d4bb58b5SSteven Rostedt my ($config, $p) = @_; 464*d4bb58b5SSteven Rostedt 465*d4bb58b5SSteven Rostedt my $next_config; 466*d4bb58b5SSteven Rostedt 467*d4bb58b5SSteven Rostedt while ($p =~ /[$valid]/) { 468*d4bb58b5SSteven Rostedt 469*d4bb58b5SSteven Rostedt if ($p =~ /^[^$valid]*([$valid]+)/) { 470*d4bb58b5SSteven Rostedt my $conf = "CONFIG_" . $1; 471*d4bb58b5SSteven Rostedt 472*d4bb58b5SSteven Rostedt $p =~ s/^[^$valid]*[$valid]+//; 473*d4bb58b5SSteven Rostedt 474*d4bb58b5SSteven Rostedt # Make sure that this config exists in the current .config file 475*d4bb58b5SSteven Rostedt if (!defined($orig_configs{$conf})) { 476*d4bb58b5SSteven Rostedt next; 477*d4bb58b5SSteven Rostedt } 478*d4bb58b5SSteven Rostedt 479*d4bb58b5SSteven Rostedt # Check if something other than a module selects this config 480*d4bb58b5SSteven Rostedt if (defined($orig_configs{$conf}) && $orig_configs{$conf} ne "m") { 481*d4bb58b5SSteven Rostedt # we are good with this 482*d4bb58b5SSteven Rostedt return; 483*d4bb58b5SSteven Rostedt } 484*d4bb58b5SSteven Rostedt if (defined($configs{$conf})) { 485*d4bb58b5SSteven Rostedt # A set config selects this config, we are good 486*d4bb58b5SSteven Rostedt return; 487*d4bb58b5SSteven Rostedt } 488*d4bb58b5SSteven Rostedt # Set this config to be selected 489*d4bb58b5SSteven Rostedt if (!defined($next_config)) { 490*d4bb58b5SSteven Rostedt $next_config = $conf; 491*d4bb58b5SSteven Rostedt } 492*d4bb58b5SSteven Rostedt } else { 493*d4bb58b5SSteven Rostedt die "this should never happen"; 494*d4bb58b5SSteven Rostedt } 495*d4bb58b5SSteven Rostedt } 496*d4bb58b5SSteven Rostedt 497*d4bb58b5SSteven Rostedt # If no possible config selected this, then something happened. 498*d4bb58b5SSteven Rostedt if (!defined($next_config)) { 499*d4bb58b5SSteven Rostedt print STDERR "WARNING: $config is required, but nothing in the\n"; 500*d4bb58b5SSteven Rostedt print STDERR " current config selects it.\n"; 501*d4bb58b5SSteven Rostedt return; 502*d4bb58b5SSteven Rostedt } 503*d4bb58b5SSteven Rostedt 504*d4bb58b5SSteven Rostedt # If we are here, then we found no config that is set and 505*d4bb58b5SSteven Rostedt # selects this config. Repeat. 506*d4bb58b5SSteven Rostedt $repeat = 1; 507*d4bb58b5SSteven Rostedt # Make this config need to be selected 508*d4bb58b5SSteven Rostedt $configs{$next_config} = 1; 509*d4bb58b5SSteven Rostedt} 510*d4bb58b5SSteven Rostedt 511*d4bb58b5SSteven Rostedtmy %process_selects; 512*d4bb58b5SSteven Rostedt 513*d4bb58b5SSteven Rostedt# loop through all configs, select their dependencies. 514*d4bb58b5SSteven Rostedtsub loop_depend { 515*d4bb58b5SSteven Rostedt $repeat = 1; 516*d4bb58b5SSteven Rostedt 517dcc60243SSteven Rostedt while ($repeat) { 518dcc60243SSteven Rostedt $repeat = 0; 519dcc60243SSteven Rostedt 520*d4bb58b5SSteven Rostedt forloop: 521dcc60243SSteven Rostedt foreach my $config (keys %configs) { 522*d4bb58b5SSteven Rostedt 523*d4bb58b5SSteven Rostedt # If this config is not a module, we do not need to process it 524*d4bb58b5SSteven Rostedt if (defined($orig_configs{$config}) && $orig_configs{$config} ne "m") { 525*d4bb58b5SSteven Rostedt next forloop; 526*d4bb58b5SSteven Rostedt } 527*d4bb58b5SSteven Rostedt 528dcc60243SSteven Rostedt $config =~ s/^CONFIG_//; 529dcc60243SSteven Rostedt 53074398d32SSteven Rostedt if (defined($depends{$config})) { 531dcc60243SSteven Rostedt # This config has dependencies. Make sure they are also included 532*d4bb58b5SSteven Rostedt parse_config_depends $depends{$config}; 53374398d32SSteven Rostedt } 534dcc60243SSteven Rostedt 535*d4bb58b5SSteven Rostedt # If the config has no prompt, then we need to check if a config 536*d4bb58b5SSteven Rostedt # that is enabled selected it. Or if we need to enable one. 537*d4bb58b5SSteven Rostedt if (!defined($prompts{$config}) && defined($selects{$config})) { 538*d4bb58b5SSteven Rostedt $process_selects{$config} = 1; 539dcc60243SSteven Rostedt } 540*d4bb58b5SSteven Rostedt } 541*d4bb58b5SSteven Rostedt } 542*d4bb58b5SSteven Rostedt} 543*d4bb58b5SSteven Rostedt 544*d4bb58b5SSteven Rostedtsub loop_select { 545*d4bb58b5SSteven Rostedt 546*d4bb58b5SSteven Rostedt foreach my $config (keys %process_selects) { 547*d4bb58b5SSteven Rostedt $config =~ s/^CONFIG_//; 548dcc60243SSteven Rostedt 549dcc60243SSteven Rostedt # config has no prompt and must be selected. 550*d4bb58b5SSteven Rostedt parse_config_selects $config, $selects{$config}; 551dcc60243SSteven Rostedt } 552dcc60243SSteven Rostedt} 553dcc60243SSteven Rostedt 554*d4bb58b5SSteven Rostedtwhile ($repeat) { 555*d4bb58b5SSteven Rostedt # Get the first set of configs and their dependencies. 556*d4bb58b5SSteven Rostedt loop_depend; 557*d4bb58b5SSteven Rostedt 558*d4bb58b5SSteven Rostedt $repeat = 0; 559*d4bb58b5SSteven Rostedt 560*d4bb58b5SSteven Rostedt # Now we need to see if we have to check selects; 561*d4bb58b5SSteven Rostedt loop_select; 562*d4bb58b5SSteven Rostedt} 563*d4bb58b5SSteven Rostedt 564dcc60243SSteven Rostedtmy %setconfigs; 565dcc60243SSteven Rostedt 566dcc60243SSteven Rostedt# Finally, read the .config file and turn off any module enabled that 567dcc60243SSteven Rostedt# we could not find a reason to keep enabled. 5684f4c51c9SSteven Rostedtforeach my $line (@config_file) { 5694f4c51c9SSteven Rostedt $_ = $line; 570744ffcbeSSteven Rostedt 571744ffcbeSSteven Rostedt if (/CONFIG_IKCONFIG/) { 572744ffcbeSSteven Rostedt if (/# CONFIG_IKCONFIG is not set/) { 573744ffcbeSSteven Rostedt # enable IKCONFIG at least as a module 574744ffcbeSSteven Rostedt print "CONFIG_IKCONFIG=m\n"; 575744ffcbeSSteven Rostedt # don't ask about PROC 576d08ca277SSteven Rostedt print "# CONFIG_IKCONFIG_PROC is not set\n"; 577744ffcbeSSteven Rostedt } else { 578744ffcbeSSteven Rostedt print; 579744ffcbeSSteven Rostedt } 580744ffcbeSSteven Rostedt next; 581744ffcbeSSteven Rostedt } 582744ffcbeSSteven Rostedt 583ea2c1894SSteven Rostedt if (/^(CONFIG.*)=(m|y)/) { 584dcc60243SSteven Rostedt if (defined($configs{$1})) { 58522d550aeSArnaud Lacombe if ($localyesconfig) { 58622d550aeSArnaud Lacombe $setconfigs{$1} = 'y'; 58722d550aeSArnaud Lacombe } else { 588ea2c1894SSteven Rostedt $setconfigs{$1} = $2; 58922d550aeSArnaud Lacombe } 590ea2c1894SSteven Rostedt } elsif ($2 eq "m") { 591dcc60243SSteven Rostedt print "# $1 is not set\n"; 592d08ca277SSteven Rostedt next; 593dcc60243SSteven Rostedt } 594dcc60243SSteven Rostedt } 595d08ca277SSteven Rostedt print; 596dcc60243SSteven Rostedt} 597dcc60243SSteven Rostedt 598dcc60243SSteven Rostedt# Integrity check, make sure all modules that we want enabled do 599dcc60243SSteven Rostedt# indeed have their configs set. 600dcc60243SSteven Rostedtloop: 601dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 602dcc60243SSteven Rostedt if (defined($objects{$module})) { 603dcc60243SSteven Rostedt my @arr = @{$objects{$module}}; 604dcc60243SSteven Rostedt foreach my $conf (@arr) { 605dcc60243SSteven Rostedt if (defined($setconfigs{$conf})) { 606dcc60243SSteven Rostedt next loop; 607dcc60243SSteven Rostedt } 608dcc60243SSteven Rostedt } 609dcc60243SSteven Rostedt print STDERR "module $module did not have configs"; 610dcc60243SSteven Rostedt foreach my $conf (@arr) { 611dcc60243SSteven Rostedt print STDERR " " , $conf; 612dcc60243SSteven Rostedt } 613dcc60243SSteven Rostedt print STDERR "\n"; 614dcc60243SSteven Rostedt } 615dcc60243SSteven Rostedt} 616