3 # Copyright (C) 2006 Felix Fietkau <nbd@nbd.name>
5 # This is free software, licensed under the GNU General Public License v2.
6 # See /LICENSE for more information.
13 my $PREFIX = "CONFIG_";
15 sub set_config
($$$$) {
21 if (!defined($config->{$idx}) or !$mod_plus or
22 $config->{$idx} eq '#undef' or $newval eq 'y') {
23 $config->{$idx} = $newval;
32 open FILE
, "$file" or die "can't open file '$file'";
35 /^$PREFIX(.+?)=(.+)/ and do {
36 set_config
(\
%config, $1, $2, $mod_plus);
39 /^# $PREFIX(.+?) is not set/ and do {
40 set_config
(\
%config, $1, "#undef", $mod_plus);
44 /^(.+)$/ and warn "WARNING: can't parse line: $1\n";
55 foreach my $config (keys %$cfg1) {
56 my $val1 = $cfg1->{$config};
57 my $val2 = $cfg2->{$config};
58 $val2 and ($val1 eq $val2) and do {
59 $config{$config} = $val1;
75 foreach my $config (keys %cfg) {
76 if ($mod_plus and $config{$config}) {
77 next if $config{$config} eq "y";
78 next if $cfg{$config} eq '#undef';
80 $config{$config} = $cfg{$config};
86 sub config_diff
($$$) {
92 foreach my $config (keys %$cfg2) {
93 if (!defined($cfg1->{$config}) or $cfg1->{$config} ne $cfg2->{$config}) {
94 next if $new_only and !defined($cfg1->{$config}) and $cfg2->{$config} eq '#undef';
95 $config{$config} = $cfg2->{$config};
104 my %config = %{$cfg1};
110 } keys %config : $expr;
113 foreach my $config (@keys) {
114 delete $config{$config};
119 sub print_cfgline
($$) {
122 if ($val eq '#undef' or $val eq 'n') {
123 print "# $PREFIX$name is not set\n";
125 print "$PREFIX$name=$val\n";
132 die "argument error in dump_config" unless ($cfg);
134 foreach my $config (sort keys %config) {
135 print_cfgline
($config, $config{$config});
141 my $mod_plus = shift;
142 my $arg = $arg[$$pos++];
144 die "Parse error" if (!$arg);
147 my $arg1 = parse_expr
($pos);
148 my $arg2 = parse_expr
($pos);
149 return config_and
($arg1, $arg2);
150 } elsif ($arg =~ /^\+/) {
151 my $arg1 = parse_expr
($pos);
152 my $arg2 = parse_expr
($pos);
153 return config_add
($arg1, $arg2, 0);
154 } elsif ($arg =~ /^m\+/) {
155 my $arg1 = parse_expr
($pos);
156 my $arg2 = parse_expr
($pos, 1);
157 return config_add
($arg1, $arg2, 1);
158 } elsif ($arg eq '>') {
159 my $arg1 = parse_expr
($pos);
160 my $arg2 = parse_expr
($pos);
161 return config_diff
($arg1, $arg2, 0);
162 } elsif ($arg eq '>+') {
163 my $arg1 = parse_expr
($pos);
164 my $arg2 = parse_expr
($pos);
165 return config_diff
($arg1, $arg2, 1);
166 } elsif ($arg eq '-') {
167 my $arg1 = parse_expr
($pos);
168 my $arg2 = parse_expr
($pos);
169 return config_sub
($arg1, $arg2);
171 return load_config
($arg, $mod_plus);
175 while (@ARGV > 0 and $ARGV[0] =~ /^-\w+$/) {
176 my $cmd = shift @ARGV;
177 if ($cmd =~ /^-n$/) {
179 } elsif ($cmd =~ /^-p$/) {
180 $PREFIX = shift @ARGV;
182 die "Invalid option: $cmd\n";
188 dump_config
(parse_expr
(\
$pos));
189 die "Parse error" if ($arg[$pos]);