1 | #!/usr/bin/perl |
2 | # |
3 | # Copyright (C) 2006 OpenWrt.org |
4 | # |
5 | # This is free software, licensed under the GNU General Public License v2. |
6 | # See /LICENSE for more information. |
7 | # |
8 | |
9 | use strict; |
10 | my $PATH = $ARGV[0]; |
11 | ($PATH and -d $PATH) or die 'invalid path'; |
12 | my $DEFCONFIG = $ARGV[1]; |
13 | ($DEFCONFIG and -f $DEFCONFIG) or die 'invalid config file'; |
14 | |
15 | my %config; |
16 | |
17 | open CONFIG, $DEFCONFIG or die 'cannot open config file'; |
18 | while (<CONFIG>) { |
19 | /^CONFIG_([\w_]+)=([ym])/ and $config{$1} = $2; |
20 | /^CONFIG_([\w_]+)=(\d+)/ and $config{$1} = $2; |
21 | /^CONFIG_([\w_]+)=(".+")/ and $config{$1} = $2; |
22 | } |
23 | close CONFIG; |
24 | |
25 | open FIND, "find \"$PATH\" -name Config.in |"; |
26 | while (<FIND>) { |
27 | chomp; |
28 | my $input = $_; |
29 | s/^$PATH\///g; |
30 | s/sysdeps\/linux\///g; |
31 | my $output = $_; |
32 | print STDERR "$input => $output\n"; |
33 | $output =~ /^(.+)\/[^\/]+$/ and system("mkdir -p $1"); |
34 | |
35 | open INPUT, $input; |
36 | open OUTPUT, ">$output"; |
37 | my ($cur, $default_set, $line); |
38 | while ($line = <INPUT>) { |
39 | next if $line =~ /^\s*mainmenu/; |
40 | |
41 | # FIXME: make this dynamic |
42 | $line =~ s/default FEATURE_BUFFERS_USE_MALLOC/default FEATURE_BUFFERS_GO_ON_STACK/; |
43 | $line =~ s/default FEATURE_SH_IS_NONE/default FEATURE_SH_IS_ASH/; |
44 | |
45 | if ($line =~ /^\s*config\s*([\w_]+)/) { |
46 | $cur = $1; |
47 | undef $default_set; |
48 | } |
49 | if ($line =~ /^\s*(menu|choice|end|source)/) { |
50 | undef $cur; |
51 | undef $default_set; |
52 | } |
53 | $line =~ s/^(\s*source\s+)/$1package\/busybox\/config\//; |
54 | |
55 | $line =~ s/^(\s*(prompt "[^"]+" if|config|depends|depends on|select|default|default \w if)\s+\!?)([A-Z_])/$1BUSYBOX_CONFIG_$3/g; |
56 | $line =~ s/(( \|\| | \&\& | \( )!?)([A-Z_])/$1BUSYBOX_CONFIG_$3/g; |
57 | $line =~ s/(\( ?!?)([A-Z_]+ (\|\||&&))/$1BUSYBOX_CONFIG_$2/g; |
58 | |
59 | if ($cur) { |
60 | ($cur eq 'LFS') and do { |
61 | $line =~ s/^(\s*(bool|tristate|string))\s*".+"$/$1/; |
62 | }; |
63 | if ($line =~ /^\s*default/) { |
64 | my $c; |
65 | $default_set = 1; |
66 | $c = $config{$cur} or $c = 'n'; |
67 | |
68 | $line =~ s/^(\s*default\s*)(\w+|"[^"]*")(.*)/$1$c$3/; |
69 | } |
70 | } |
71 | |
72 | print OUTPUT $line; |
73 | } |
74 | close OUTPUT; |
75 | close INPUT; |
76 | |
77 | } |
78 | close FIND; |
79 | |