Cleanups on romboot and u-boot.
[openwrt/svn-archive/archive.git] / scripts / gen_busybox_config.pl
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
11 my $line;
12 my $l1 = '';
13 my $l2 = '=y';
14 while (<>) {
15 chomp;
16 /^(# )CONFIG_LARGEFILE(.+)$/ and do {
17 $l1 = $1;
18 $l2 = $2;
19 };
20 /^(# )?CONFIG_BUSYBOX_(.+)/ and do {
21 my $p1 = $1;
22 my $p2 = $2;
23 $p2 =~ /(CONFIG_LFS|FDISK_SUPPORT_LARGE_DISKS)/ and do {
24 $p1 = $l1;
25 $p2 = "$1$l2";
26 };
27 print "$p1$p2\n";
28 }
29 }