diff options
author | nbd <nbd@3c298f89-4303-0410-b956-a3cf2f4a3e73> | 2010-01-28 19:27:43 +0000 |
---|---|---|
committer | nbd <nbd@3c298f89-4303-0410-b956-a3cf2f4a3e73> | 2010-01-28 19:27:43 +0000 |
commit | ddac78a7682a411dfc3e06971c14c216c35cce00 (patch) | |
tree | dd89f08e373abf7ec272d0605bad560a22e87a10 /scripts | |
parent | b10341b15c80422f5257fbeab05e4185f5b145d4 (diff) |
kconfig.pl: fix handling of multiple kmod-* package referencing the same KCONFIG symbols
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@19366 3c298f89-4303-0410-b956-a3cf2f4a3e73
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/kconfig.pl | 32 |
1 files changed, 22 insertions, 10 deletions
diff --git a/scripts/kconfig.pl b/scripts/kconfig.pl index c76e2978b2..7073e3b1ae 100755 --- a/scripts/kconfig.pl +++ b/scripts/kconfig.pl @@ -12,19 +12,32 @@ use strict; my @arg; my $PREFIX = "CONFIG_"; -sub load_config($) { +sub set_config($$$$) { + my $config = shift; + my $idx = shift; + my $newval = shift; + my $mod_plus = shift; + + if (!defined($config->{$idx}) or !$mod_plus or + $config->{$idx} eq '#undef' or $newval eq 'y') { + $config->{$idx} = $newval; + } +} + +sub load_config($$) { my $file = shift; + my $mod_plus = shift; my %config; open FILE, "$file" or die "can't open file"; while (<FILE>) { chomp; /^$PREFIX(.+?)=(.+)/ and do { - $config{$1} = $2; + set_config(\%config, $1, $2, $mod_plus); next; }; /^# $PREFIX(.+?) is not set/ and do { - $config{$1} = "#undef"; + set_config(\%config, $1, "#undef", $mod_plus); next; }; /^#/ and next; @@ -111,14 +124,13 @@ sub dump_config($) { } } -sub parse_expr($); - -sub parse_expr($) { +sub parse_expr { my $pos = shift; + my $mod_plus = shift; my $arg = $arg[$$pos++]; - + die "Parse error" if (!$arg); - + if ($arg eq '&') { my $arg1 = parse_expr($pos); my $arg2 = parse_expr($pos); @@ -129,7 +141,7 @@ sub parse_expr($) { return config_add($arg1, $arg2, 0); } elsif ($arg =~ /^m\+/) { my $arg1 = parse_expr($pos); - my $arg2 = parse_expr($pos); + my $arg2 = parse_expr($pos, 1); return config_add($arg1, $arg2, 1); } elsif ($arg eq '>') { my $arg1 = parse_expr($pos); @@ -140,7 +152,7 @@ sub parse_expr($) { my $arg2 = parse_expr($pos); return config_sub($arg1, $arg2); } else { - return load_config($arg); + return load_config($arg, $mod_plus); } } |