X-Git-Url: https://git.archive.openwrt.org/?a=blobdiff_plain;f=scripts%2Fkconfig.pl;h=45c565e7a992c06e36cb64acd73a54fa65b4b0a1;hb=df6b7cd94981d718b97ac90d8c9290fafce784e6;hp=7073e3b1ae426fedcf86d3034f713b1e320fa734;hpb=ddac78a7682a411dfc3e06971c14c216c35cce00;p=openwrt.git diff --git a/scripts/kconfig.pl b/scripts/kconfig.pl index 7073e3b1ae..45c565e7a9 100755 --- a/scripts/kconfig.pl +++ b/scripts/kconfig.pl @@ -29,7 +29,7 @@ sub load_config($$) { my $mod_plus = shift; my %config; - open FILE, "$file" or die "can't open file"; + open FILE, "$file" or die "can't open file '$file'"; while () { chomp; /^$PREFIX(.+?)=(.+)/ and do { @@ -73,20 +73,25 @@ sub config_add($$$) { my %cfg = %$_; foreach my $config (keys %cfg) { - next if $mod_plus and $config{$config} and $config{$config} eq "y"; + if ($mod_plus and $config{$config}) { + next if $config{$config} eq "y"; + next if $cfg{$config} eq '#undef'; + } $config{$config} = $cfg{$config}; } } return \%config; } -sub config_diff($$) { +sub config_diff($$$) { my $cfg1 = shift; my $cfg2 = shift; + my $new_only = shift; my %config; foreach my $config (keys %$cfg2) { if (!defined($cfg1->{$config}) or $cfg1->{$config} ne $cfg2->{$config}) { + next if $new_only and !defined($cfg1->{$config}) and $cfg2->{$config} eq '#undef'; $config{$config} = $cfg2->{$config}; } } @@ -146,7 +151,11 @@ sub parse_expr { } elsif ($arg eq '>') { my $arg1 = parse_expr($pos); my $arg2 = parse_expr($pos); - return config_diff($arg1, $arg2); + return config_diff($arg1, $arg2, 0); + } elsif ($arg eq '>+') { + my $arg1 = parse_expr($pos); + my $arg2 = parse_expr($pos); + return config_diff($arg1, $arg2, 1); } elsif ($arg eq '-') { my $arg1 = parse_expr($pos); my $arg2 = parse_expr($pos);