blob: 5c1ce87612055a60e1ae546c132e73d7aec12100 [file] [log] [blame]
Steven Rostedtdcc60242009-04-29 22:52:21 -04001#!/usr/bin/perl -w
2#
Uwe Kleine-Königcce1dac2011-01-24 21:12:01 +01003# Copyright 2005-2009 - Steven Rostedt
Steven Rostedtdcc60242009-04-29 22:52:21 -04004# Licensed under the terms of the GNU GPL License version 2
5#
6# It's simple enough to figure out how this works.
7# If not, then you can ask me at stripconfig@goodmis.org
8#
9# What it does?
10#
11# If you have installed a Linux kernel from a distribution
12# that turns on way too many modules than you need, and
13# you only want the modules you use, then this program
14# is perfect for you.
15#
16# It gives you the ability to turn off all the modules that are
17# not loaded on your system.
18#
19# Howto:
20#
21# 1. Boot up the kernel that you want to stream line the config on.
22# 2. Change directory to the directory holding the source of the
23# kernel that you just booted.
24# 3. Copy the configuraton file to this directory as .config
25# 4. Have all your devices that you need modules for connected and
26# operational (make sure that their corresponding modules are loaded)
27# 5. Run this script redirecting the output to some other file
28# like config_strip.
29# 6. Back up your old config (if you want too).
30# 7. copy the config_strip file to .config
31# 8. Run "make oldconfig"
32#
33# Now your kernel is ready to be built with only the modules that
34# are loaded.
35#
36# Here's what I did with my Debian distribution.
37#
38# cd /usr/src/linux-2.6.10
39# cp /boot/config-2.6.10-1-686-smp .config
40# ~/bin/streamline_config > config_strip
41# mv .config config_sav
42# mv config_strip .config
43# make oldconfig
44#
hiromucf5a1892010-08-17 19:49:18 +090045use strict;
Arnaud Lacombe22d550a2011-07-20 00:40:09 -040046use Getopt::Long;
hiromucf5a1892010-08-17 19:49:18 +090047
Steven Rostedtdcc60242009-04-29 22:52:21 -040048my $config = ".config";
Steven Rostedtdcc60242009-04-29 22:52:21 -040049
Steven Rostedtcdfc4792009-04-30 14:39:48 -040050my $uname = `uname -r`;
51chomp $uname;
52
53my @searchconfigs = (
54 {
Steven Rostedta9024832009-05-07 11:01:34 -040055 "file" => ".config",
56 "exec" => "cat",
57 },
58 {
Steven Rostedtcdfc4792009-04-30 14:39:48 -040059 "file" => "/proc/config.gz",
60 "exec" => "zcat",
61 },
62 {
Steven Rostedt810b2be2009-04-30 19:30:04 -040063 "file" => "/boot/config-$uname",
64 "exec" => "cat",
65 },
66 {
Steven Rostedtcdfc4792009-04-30 14:39:48 -040067 "file" => "/boot/vmlinuz-$uname",
68 "exec" => "scripts/extract-ikconfig",
69 "test" => "scripts/extract-ikconfig",
70 },
71 {
72 "file" => "vmlinux",
73 "exec" => "scripts/extract-ikconfig",
74 "test" => "scripts/extract-ikconfig",
75 },
76 {
77 "file" => "/lib/modules/$uname/kernel/kernel/configs.ko",
78 "exec" => "scripts/extract-ikconfig",
79 "test" => "scripts/extract-ikconfig",
80 },
81 {
82 "file" => "kernel/configs.ko",
83 "exec" => "scripts/extract-ikconfig",
84 "test" => "scripts/extract-ikconfig",
85 },
86 {
87 "file" => "kernel/configs.o",
88 "exec" => "scripts/extract-ikconfig",
89 "test" => "scripts/extract-ikconfig",
90 },
Steven Rostedtcdfc4792009-04-30 14:39:48 -040091);
92
93sub find_config {
94 foreach my $conf (@searchconfigs) {
95 my $file = $conf->{"file"};
96
97 next if ( ! -f "$file");
98
99 if (defined($conf->{"test"})) {
100 `$conf->{"test"} $conf->{"file"} 2>/dev/null`;
101 next if ($?);
102 }
103
104 my $exec = $conf->{"exec"};
105
106 print STDERR "using config: '$file'\n";
107
108 open(CIN, "$exec $file |") || die "Failed to run $exec $file";
109 return;
110 }
111 die "No config file found";
112}
113
114find_config;
115
Arnaud Lacombe22d550a2011-07-20 00:40:09 -0400116# Parse options
117my $localmodconfig = 0;
118my $localyesconfig = 0;
119
120GetOptions("localmodconfig" => \$localmodconfig,
121 "localyesconfig" => \$localyesconfig);
122
Steven Rostedt463bf902009-11-20 09:21:12 -0500123# Get the build source and top level Kconfig file (passed in)
124my $ksource = $ARGV[0];
125my $kconfig = $ARGV[1];
Arnaud Lacombef597a712011-07-01 17:45:31 -0400126my $lsmod_file = $ENV{'LSMOD'};
Steven Rostedt463bf902009-11-20 09:21:12 -0500127
Toralf Förster17431922010-05-26 20:22:02 +0200128my @makefiles = `find $ksource -name Makefile 2>/dev/null`;
129chomp @makefiles;
130
Steven Rostedtdcc60242009-04-29 22:52:21 -0400131my %depends;
132my %selects;
133my %prompts;
134my %objects;
135my $var;
Steven Rostedt13d7e932010-01-06 17:56:12 -0500136my $iflevel = 0;
137my @ifdeps;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400138
Steven Rostedtdcc60242009-04-29 22:52:21 -0400139# prevent recursion
140my %read_kconfigs;
141
142sub read_kconfig {
143 my ($kconfig) = @_;
144
145 my $state = "NONE";
146 my $config;
147 my @kconfigs;
148
Steven Rostedt20d19042010-10-28 22:13:51 -0400149 my $cont = 0;
150 my $line;
151
Steven Rostedt49089802010-10-29 00:56:46 -0400152 my $source = "$ksource/$kconfig";
153 my $last_source = "";
154
155 # Check for any environment variables used
156 while ($source =~ /\$(\w+)/ && $last_source ne $source) {
157 my $env = $1;
158 $last_source = $source;
159 $source =~ s/\$$env/$ENV{$env}/;
160 }
161
162 open(KIN, "$source") || die "Can't open $kconfig";
Steven Rostedtdcc60242009-04-29 22:52:21 -0400163 while (<KIN>) {
164 chomp;
165
Steven Rostedt20d19042010-10-28 22:13:51 -0400166 # Make sure that lines ending with \ continue
167 if ($cont) {
168 $_ = $line . " " . $_;
169 }
170
171 if (s/\\$//) {
172 $cont = 1;
173 $line = $_;
174 next;
175 }
176
177 $cont = 0;
178
Steven Rostedtdcc60242009-04-29 22:52:21 -0400179 # collect any Kconfig sources
180 if (/^source\s*"(.*)"/) {
181 $kconfigs[$#kconfigs+1] = $1;
182 }
183
184 # configs found
Steven Rostedt8ef17fa2010-10-28 22:21:57 -0400185 if (/^\s*(menu)?config\s+(\S+)\s*$/) {
Steven Rostedtdcc60242009-04-29 22:52:21 -0400186 $state = "NEW";
Steven Rostedt8ef17fa2010-10-28 22:21:57 -0400187 $config = $2;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400188
Steven Rostedt0b58a992012-06-18 14:09:22 -0400189 # Add depends for 'if' nesting
Steven Rostedt13d7e932010-01-06 17:56:12 -0500190 for (my $i = 0; $i < $iflevel; $i++) {
191 if ($i) {
192 $depends{$config} .= " " . $ifdeps[$i];
193 } else {
194 $depends{$config} = $ifdeps[$i];
195 }
196 $state = "DEP";
197 }
198
Steven Rostedtdcc60242009-04-29 22:52:21 -0400199 # collect the depends for the config
200 } elsif ($state eq "NEW" && /^\s*depends\s+on\s+(.*)$/) {
201 $state = "DEP";
202 $depends{$config} = $1;
203 } elsif ($state eq "DEP" && /^\s*depends\s+on\s+(.*)$/) {
204 $depends{$config} .= " " . $1;
205
206 # Get the configs that select this config
207 } elsif ($state ne "NONE" && /^\s*select\s+(\S+)/) {
Steven Rostedt0b58a992012-06-18 14:09:22 -0400208 my $conf = $1;
209 if (defined($selects{$conf})) {
210 $selects{$conf} .= " " . $config;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400211 } else {
Steven Rostedt0b58a992012-06-18 14:09:22 -0400212 $selects{$conf} = $config;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400213 }
214
215 # configs without prompts must be selected
216 } elsif ($state ne "NONE" && /^\s*tristate\s\S/) {
217 # note if the config has a prompt
hiromu yaguraccece602010-08-15 13:13:17 +0900218 $prompts{$config} = 1;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400219
Steven Rostedt13d7e932010-01-06 17:56:12 -0500220 # Check for if statements
221 } elsif (/^if\s+(.*\S)\s*$/) {
222 my $deps = $1;
223 # remove beginning and ending non text
224 $deps =~ s/^[^a-zA-Z0-9_]*//;
225 $deps =~ s/[^a-zA-Z0-9_]*$//;
226
227 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
228
229 $ifdeps[$iflevel++] = join ':', @deps;
230
231 } elsif (/^endif/) {
232
233 $iflevel-- if ($iflevel);
234
Steven Rostedtdcc60242009-04-29 22:52:21 -0400235 # stop on "help"
236 } elsif (/^\s*help\s*$/) {
237 $state = "NONE";
238 }
239 }
240 close(KIN);
241
242 # read in any configs that were found.
243 foreach $kconfig (@kconfigs) {
244 if (!defined($read_kconfigs{$kconfig})) {
245 $read_kconfigs{$kconfig} = 1;
246 read_kconfig($kconfig);
247 }
248 }
249}
250
251if ($kconfig) {
252 read_kconfig($kconfig);
253}
254
Steven Rostedt0b58a992012-06-18 14:09:22 -0400255# Makefiles can use variables to define their dependencies
Steven Rostedt364212f2012-01-13 17:53:40 -0500256sub convert_vars {
257 my ($line, %vars) = @_;
258
259 my $process = "";
260
261 while ($line =~ s/^(.*?)(\$\((.*?)\))//) {
262 my $start = $1;
263 my $variable = $2;
264 my $var = $3;
265
266 if (defined($vars{$var})) {
267 $process .= $start . $vars{$var};
268 } else {
269 $process .= $start . $variable;
270 }
271 }
272
273 $process .= $line;
274
275 return $process;
276}
277
Steven Rostedtdcc60242009-04-29 22:52:21 -0400278# Read all Makefiles to map the configs to the objects
279foreach my $makefile (@makefiles) {
Steven Rostedtdcc60242009-04-29 22:52:21 -0400280
Steven Rostedtd060d962012-01-13 17:50:39 -0500281 my $line = "";
Steven Rostedt364212f2012-01-13 17:53:40 -0500282 my %make_vars;
Steven Rostedt20d19042010-10-28 22:13:51 -0400283
Steven Rostedtdcc60242009-04-29 22:52:21 -0400284 open(MIN,$makefile) || die "Can't open $makefile";
285 while (<MIN>) {
Steven Rostedtd060d962012-01-13 17:50:39 -0500286 # if this line ends with a backslash, continue
287 chomp;
288 if (/^(.*)\\$/) {
289 $line .= $1;
290 next;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400291 }
Steven Rostedtd060d962012-01-13 17:50:39 -0500292
293 $line .= $_;
294 $_ = $line;
295 $line = "";
296
297 my $objs;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400298
Steven Rostedt0b58a992012-06-18 14:09:22 -0400299 # Convert variables in a line (could define configs)
Steven Rostedt364212f2012-01-13 17:53:40 -0500300 $_ = convert_vars($_, %make_vars);
301
Steven Rostedtdcc60242009-04-29 22:52:21 -0400302 # collect objects after obj-$(CONFIG_FOO_BAR)
303 if (/obj-\$\((CONFIG_[^\)]*)\)\s*[+:]?=\s*(.*)/) {
304 $var = $1;
305 $objs = $2;
Steven Rostedt364212f2012-01-13 17:53:40 -0500306
307 # check if variables are set
308 } elsif (/^\s*(\S+)\s*[:]?=\s*(.*\S)/) {
309 $make_vars{$1} = $2;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400310 }
311 if (defined($objs)) {
Steven Rostedtdcc60242009-04-29 22:52:21 -0400312 foreach my $obj (split /\s+/,$objs) {
313 $obj =~ s/-/_/g;
314 if ($obj =~ /(.*)\.o$/) {
Toralf Foerster1d1d1fe2010-05-28 10:25:52 +0200315 # Objects may be enabled by more than one config.
Steven Rostedtdcc60242009-04-29 22:52:21 -0400316 # Store configs in an array.
317 my @arr;
318
319 if (defined($objects{$1})) {
320 @arr = @{$objects{$1}};
321 }
322
323 $arr[$#arr+1] = $var;
324
325 # The objects have a hash mapping to a reference
326 # of an array of configs.
327 $objects{$1} = \@arr;
328 }
329 }
330 }
331 }
332 close(MIN);
333}
334
335my %modules;
336
Steven Rostedt615f0832010-02-02 21:51:27 -0500337if (defined($lsmod_file)) {
338 if ( ! -f $lsmod_file) {
Arnaud Lacombef597a712011-07-01 17:45:31 -0400339 if ( -f $ENV{'objtree'}."/".$lsmod_file) {
340 $lsmod_file = $ENV{'objtree'}."/".$lsmod_file;
341 } else {
342 die "$lsmod_file not found";
343 }
Steven Rostedt88f66ea2010-01-06 18:49:44 -0500344 }
Steven Rostedt615f0832010-02-02 21:51:27 -0500345 if ( -x $lsmod_file) {
346 # the file is executable, run it
347 open(LIN, "$lsmod_file|");
348 } else {
349 # Just read the contents
350 open(LIN, "$lsmod_file");
351 }
352} else {
353
354 # see what modules are loaded on this system
355 my $lsmod;
356
hiromucf5a1892010-08-17 19:49:18 +0900357 foreach my $dir ( ("/sbin", "/bin", "/usr/sbin", "/usr/bin") ) {
Steven Rostedt615f0832010-02-02 21:51:27 -0500358 if ( -x "$dir/lsmod" ) {
359 $lsmod = "$dir/lsmod";
360 last;
361 }
Steven Rostedt88f66ea2010-01-06 18:49:44 -0500362}
Steven Rostedt615f0832010-02-02 21:51:27 -0500363 if (!defined($lsmod)) {
364 # try just the path
365 $lsmod = "lsmod";
366 }
367
368 open(LIN,"$lsmod|") || die "Can not call lsmod with $lsmod";
Steven Rostedt88f66ea2010-01-06 18:49:44 -0500369}
370
Steven Rostedtdcc60242009-04-29 22:52:21 -0400371while (<LIN>) {
372 next if (/^Module/); # Skip the first line.
373 if (/^(\S+)/) {
374 $modules{$1} = 1;
375 }
376}
377close (LIN);
378
379# add to the configs hash all configs that are needed to enable
Steven Rostedt0b58a992012-06-18 14:09:22 -0400380# a loaded module. This is a direct obj-${CONFIG_FOO} += bar.o
381# where we know we need bar.o so we add FOO to the list.
Steven Rostedtdcc60242009-04-29 22:52:21 -0400382my %configs;
383foreach my $module (keys(%modules)) {
384 if (defined($objects{$module})) {
Toralf Foerstere5199ed2010-05-28 10:24:59 +0200385 my @arr = @{$objects{$module}};
Steven Rostedtdcc60242009-04-29 22:52:21 -0400386 foreach my $conf (@arr) {
387 $configs{$conf} = $module;
388 }
389 } else {
390 # Most likely, someone has a custom (binary?) module loaded.
391 print STDERR "$module config not found!!\n";
392 }
393}
394
395my $valid = "A-Za-z_0-9";
396my $repeat = 1;
397
398#
399# Note, we do not care about operands (like: &&, ||, !) we want to add any
400# config that is in the depend list of another config. This script does
401# not enable configs that are not already enabled. If we come across a
402# config A that depends on !B, we can still add B to the list of depends
403# to keep on. If A was on in the original config, B would not have been
404# and B would not be turned on by this script.
405#
406sub parse_config_dep_select
407{
408 my ($p) = @_;
409
410 while ($p =~ /[$valid]/) {
411
412 if ($p =~ /^[^$valid]*([$valid]+)/) {
413 my $conf = "CONFIG_" . $1;
414
415 $p =~ s/^[^$valid]*[$valid]+//;
416
417 if (!defined($configs{$conf})) {
418 # We must make sure that this config has its
419 # dependencies met.
420 $repeat = 1; # do again
421 $configs{$conf} = 1;
422 }
423 } else {
424 die "this should never happen";
425 }
426 }
427}
428
429while ($repeat) {
430 $repeat = 0;
431
432 foreach my $config (keys %configs) {
433 $config =~ s/^CONFIG_//;
434
Steven Rostedt74398d32009-04-30 10:17:51 -0400435 if (defined($depends{$config})) {
436 # This config has dependencies. Make sure they are also included
437 parse_config_dep_select $depends{$config};
Steven Rostedtdcc60242009-04-29 22:52:21 -0400438 }
439
hiromu yaguraccece602010-08-15 13:13:17 +0900440 if (defined($prompts{$config}) || !defined($selects{$config})) {
Steven Rostedtdcc60242009-04-29 22:52:21 -0400441 next;
442 }
443
444 # config has no prompt and must be selected.
445 parse_config_dep_select $selects{$config};
446 }
447}
448
449my %setconfigs;
450
451# Finally, read the .config file and turn off any module enabled that
452# we could not find a reason to keep enabled.
453while(<CIN>) {
Steven Rostedt744ffcb2009-04-30 12:15:10 -0400454
455 if (/CONFIG_IKCONFIG/) {
456 if (/# CONFIG_IKCONFIG is not set/) {
457 # enable IKCONFIG at least as a module
458 print "CONFIG_IKCONFIG=m\n";
459 # don't ask about PROC
Steven Rostedtd08ca272009-04-30 19:24:00 -0400460 print "# CONFIG_IKCONFIG_PROC is not set\n";
Steven Rostedtdcc60242009-04-29 22:52:21 -0400461 } else {
Steven Rostedt744ffcb2009-04-30 12:15:10 -0400462 print;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400463 }
Steven Rostedt744ffcb2009-04-30 12:15:10 -0400464 next;
465 }
466
467 if (/^(CONFIG.*)=(m|y)/) {
468 if (defined($configs{$1})) {
Arnaud Lacombe22d550a2011-07-20 00:40:09 -0400469 if ($localyesconfig) {
470 $setconfigs{$1} = 'y';
471 } else {
472 $setconfigs{$1} = $2;
473 }
Steven Rostedt744ffcb2009-04-30 12:15:10 -0400474 } elsif ($2 eq "m") {
475 print "# $1 is not set\n";
Steven Rostedtd08ca272009-04-30 19:24:00 -0400476 next;
Steven Rostedt744ffcb2009-04-30 12:15:10 -0400477 }
Steven Rostedt744ffcb2009-04-30 12:15:10 -0400478 }
Steven Rostedtd08ca272009-04-30 19:24:00 -0400479 print;
Steven Rostedtdcc60242009-04-29 22:52:21 -0400480}
481close(CIN);
482
483# Integrity check, make sure all modules that we want enabled do
484# indeed have their configs set.
485loop:
486foreach my $module (keys(%modules)) {
487 if (defined($objects{$module})) {
488 my @arr = @{$objects{$module}};
489 foreach my $conf (@arr) {
490 if (defined($setconfigs{$conf})) {
491 next loop;
492 }
493 }
494 print STDERR "module $module did not have configs";
495 foreach my $conf (@arr) {
496 print STDERR " " , $conf;
497 }
498 print STDERR "\n";
499 }
500}