next;
};
/^# CONFIG_(.+?) is not set/ and do {
- $config{$1} = -1;
+ $config{$1} = "#undef";
next;
};
/^#/ and next;
}
-sub config_add($$) {
+sub config_add($$$) {
my $cfg1 = shift;
my $cfg2 = shift;
+ my $mod_plus = shift;
my %config;
for ($cfg1, $cfg2) {
my %cfg = %$_;
foreach my $config (keys %cfg) {
+ next if $mod_plus and $config{$config} and $config{$config} eq "y";
$config{$config} = $cfg{$config};
}
}
sub print_cfgline($$) {
my $name = shift;
my $val = shift;
- if ($val eq '-1') {
+ if ($val eq '#undef') {
print "# CONFIG_$name is not set\n";
} else {
print "CONFIG_$name=$val\n";
} elsif ($arg =~ /^\+/) {
my $arg1 = parse_expr($pos);
my $arg2 = parse_expr($pos);
- return config_add($arg1, $arg2);
+ return config_add($arg1, $arg2, 0);
+ } elsif ($arg =~ /^m\+/) {
+ my $arg1 = parse_expr($pos);
+ my $arg2 = parse_expr($pos);
+ return config_add($arg1, $arg2, 1);
} elsif ($arg eq '>') {
my $arg1 = parse_expr($pos);
my $arg2 = parse_expr($pos);