Ignore:
Timestamp:
2009-03-24T02:34:14+01:00 (8 years ago)
Author:
nbd
Message:

kconfig.pl: add support for custom prefixes instead of CONFIG_

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/kconfig.pl

    r14807 r15002  
    1010use strict; 
    1111 
    12 my @arg = @ARGV; 
     12my @arg; 
     13my $PREFIX = "CONFIG_"; 
    1314 
    1415sub load_config($) { 
     
    1920        while (<FILE>) { 
    2021                chomp; 
    21                 /^CONFIG_(.+?)=(.+)/ and do { 
     22                /^$PREFIX(.+?)=(.+)/ and do { 
    2223                        $config{$1} = $2; 
    2324                        next; 
    2425                }; 
    25                 /^# CONFIG_(.+?) is not set/ and do { 
     26                /^# $PREFIX(.+?) is not set/ and do { 
    2627                        $config{$1} = "#undef"; 
    2728                        next; 
     
    9596        my $val = shift; 
    9697        if ($val eq '#undef') { 
    97                 print "# CONFIG_$name is not set\n"; 
     98                print "# $PREFIX$name is not set\n"; 
    9899        } else { 
    99                 print "CONFIG_$name=$val\n"; 
     100                print "$PREFIX$name=$val\n"; 
    100101        } 
    101102} 
     
    144145} 
    145146 
     147while (@ARGV > 0 and $ARGV[0] =~ /^-\w+$/) { 
     148        my $cmd = shift @ARGV; 
     149        if ($cmd =~ /^-n$/) { 
     150                $PREFIX = ""; 
     151        } elsif ($cmd =~ /^-p$/) { 
     152                $PREFIX = shift @ARGV; 
     153        } else { 
     154                die "Invalid option: $cmd\n"; 
     155        } 
     156} 
     157@arg = @ARGV; 
     158 
    146159my $pos = 0; 
    147160dump_config(parse_expr(\$pos)); 
Note: See TracChangeset for help on using the changeset viewer.