| 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 | |
