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 }