rstrip.sh: fix handling variations in "file" output
[openwrt/openwrt.git] / scripts / kconfig.pl
1 #!/usr/bin/env perl
2 #
3 # Copyright (C) 2006 Felix Fietkau <nbd@nbd.name>
4 #
5 # This is free software, licensed under the GNU General Public License v2.
6 # See /LICENSE for more information.
7 #
8
9 use warnings;
10 use strict;
11
12 my @arg;
13 my $PREFIX = "CONFIG_";
14
15 sub set_config($$$$) {
16 my $config = shift;
17 my $idx = shift;
18 my $newval = shift;
19 my $mod_plus = shift;
20
21 if (!defined($config->{$idx}) or !$mod_plus or
22 $config->{$idx} eq '#undef' or $newval eq 'y') {
23 $config->{$idx} = $newval;
24 }
25 }
26
27 sub load_config($$) {
28 my $file = shift;
29 my $mod_plus = shift;
30 my %config;
31
32 open FILE, "$file" or die "can't open file '$file'";
33 while (<FILE>) {
34 chomp;
35 /^$PREFIX(.+?)=(.+)/ and do {
36 set_config(\%config, $1, $2, $mod_plus);
37 next;
38 };
39 /^# $PREFIX(.+?) is not set/ and do {
40 set_config(\%config, $1, "#undef", $mod_plus);
41 next;
42 };
43 /^#/ and next;
44 /^(.+)$/ and warn "WARNING: can't parse line: $1\n";
45 }
46 return \%config;
47 }
48
49
50 sub config_and($$) {
51 my $cfg1 = shift;
52 my $cfg2 = shift;
53 my %config;
54
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;
60 };
61 }
62 return \%config;
63 }
64
65
66 sub config_add($$$) {
67 my $cfg1 = shift;
68 my $cfg2 = shift;
69 my $mod_plus = shift;
70 my %config;
71
72 for ($cfg1, $cfg2) {
73 my %cfg = %$_;
74
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';
79 }
80 $config{$config} = $cfg{$config};
81 }
82 }
83 return \%config;
84 }
85
86 sub config_diff($$$) {
87 my $cfg1 = shift;
88 my $cfg2 = shift;
89 my $new_only = shift;
90 my %config;
91
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};
96 }
97 }
98 return \%config
99 }
100
101 sub config_sub($$) {
102 my $cfg1 = shift;
103 my $cfg2 = shift;
104 my %config = %{$cfg1};
105
106 foreach my $config (keys %$cfg2) {
107 delete $config{$config};
108 }
109 return \%config;
110 }
111
112 sub print_cfgline($$) {
113 my $name = shift;
114 my $val = shift;
115 if ($val eq '#undef' or $val eq 'n') {
116 print "# $PREFIX$name is not set\n";
117 } else {
118 print "$PREFIX$name=$val\n";
119 }
120 }
121
122
123 sub dump_config($) {
124 my $cfg = shift;
125 die "argument error in dump_config" unless ($cfg);
126 my %config = %$cfg;
127 foreach my $config (sort keys %config) {
128 print_cfgline($config, $config{$config});
129 }
130 }
131
132 sub parse_expr {
133 my $pos = shift;
134 my $mod_plus = shift;
135 my $arg = $arg[$$pos++];
136
137 die "Parse error" if (!$arg);
138
139 if ($arg eq '&') {
140 my $arg1 = parse_expr($pos);
141 my $arg2 = parse_expr($pos);
142 return config_and($arg1, $arg2);
143 } elsif ($arg =~ /^\+/) {
144 my $arg1 = parse_expr($pos);
145 my $arg2 = parse_expr($pos);
146 return config_add($arg1, $arg2, 0);
147 } elsif ($arg =~ /^m\+/) {
148 my $arg1 = parse_expr($pos);
149 my $arg2 = parse_expr($pos, 1);
150 return config_add($arg1, $arg2, 1);
151 } elsif ($arg eq '>') {
152 my $arg1 = parse_expr($pos);
153 my $arg2 = parse_expr($pos);
154 return config_diff($arg1, $arg2, 0);
155 } elsif ($arg eq '>+') {
156 my $arg1 = parse_expr($pos);
157 my $arg2 = parse_expr($pos);
158 return config_diff($arg1, $arg2, 1);
159 } elsif ($arg eq '-') {
160 my $arg1 = parse_expr($pos);
161 my $arg2 = parse_expr($pos);
162 return config_sub($arg1, $arg2);
163 } else {
164 return load_config($arg, $mod_plus);
165 }
166 }
167
168 while (@ARGV > 0 and $ARGV[0] =~ /^-\w+$/) {
169 my $cmd = shift @ARGV;
170 if ($cmd =~ /^-n$/) {
171 $PREFIX = "";
172 } elsif ($cmd =~ /^-p$/) {
173 $PREFIX = shift @ARGV;
174 } else {
175 die "Invalid option: $cmd\n";
176 }
177 }
178 @arg = @ARGV;
179
180 my $pos = 0;
181 dump_config(parse_expr(\$pos));
182 die "Parse error" if ($arg[$pos]);