scripts/gen_busybox_config.pl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 my $line;
   5 my $l1 = '';
   6 my $l2 = '=y';
   7 while (<>) {
   8         chomp;
   9         /^(# )CONFIG_LARGEFILE(.+)$/ and do {
  10                 $l1 = $1;
  11                 $l2 = $2;
  12         };
  13         /^(# )?CONFIG_BUSYBOX_(.+)/ and do {
  14                 my $p1 = $1;
  15                 my $p2 = $2;
  16                 $p2 =~ /(CONFIG_LFS|FDISK_SUPPORT_LARGE_DISKS)/ and do {
  17                         $p1 = $l1;
  18                         $p2 = "$1$l2";
  19                 };
  20                 print "$p1$p2\n";
  21         }
  22 }