diff options
author | Felix Fietkau <nbd@openwrt.org> | 2009-03-24 01:34:14 +0000 |
---|---|---|
committer | Felix Fietkau <nbd@openwrt.org> | 2009-03-24 01:34:14 +0000 |
commit | 59848db7da1fbefbcccea1f87cdfc7f94211c3cb (patch) | |
tree | 7ee0918752cf3c7ce743a24eee775a784deba07d /scripts/kconfig.pl | |
parent | 746544db799201924a51af2c439a5b962578f46a (diff) | |
download | openwrt-59848db7da1fbefbcccea1f87cdfc7f94211c3cb.tar.gz openwrt-59848db7da1fbefbcccea1f87cdfc7f94211c3cb.tar.bz2 openwrt-59848db7da1fbefbcccea1f87cdfc7f94211c3cb.zip |
kconfig.pl: add support for custom prefixes instead of CONFIG_
SVN-Revision: 15002
Diffstat (limited to 'scripts/kconfig.pl')
-rwxr-xr-x | scripts/kconfig.pl | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/scripts/kconfig.pl b/scripts/kconfig.pl index d22af9fe62..07f03c42bd 100755 --- a/scripts/kconfig.pl +++ b/scripts/kconfig.pl @@ -9,7 +9,8 @@ use warnings; use strict; -my @arg = @ARGV; +my @arg; +my $PREFIX = "CONFIG_"; sub load_config($) { my $file = shift; @@ -18,11 +19,11 @@ sub load_config($) { open FILE, "$file" or die "can't open file"; while (<FILE>) { chomp; - /^CONFIG_(.+?)=(.+)/ and do { + /^$PREFIX(.+?)=(.+)/ and do { $config{$1} = $2; next; }; - /^# CONFIG_(.+?) is not set/ and do { + /^# $PREFIX(.+?) is not set/ and do { $config{$1} = "#undef"; next; }; @@ -94,9 +95,9 @@ sub print_cfgline($$) { my $name = shift; my $val = shift; if ($val eq '#undef') { - print "# CONFIG_$name is not set\n"; + print "# $PREFIX$name is not set\n"; } else { - print "CONFIG_$name=$val\n"; + print "$PREFIX$name=$val\n"; } } @@ -143,6 +144,18 @@ sub parse_expr($) { } } +while (@ARGV > 0 and $ARGV[0] =~ /^-\w+$/) { + my $cmd = shift @ARGV; + if ($cmd =~ /^-n$/) { + $PREFIX = ""; + } elsif ($cmd =~ /^-p$/) { + $PREFIX = shift @ARGV; + } else { + die "Invalid option: $cmd\n"; + } +} +@arg = @ARGV; + my $pos = 0; dump_config(parse_expr(\$pos)); die "Parse error" if ($arg[$pos]); |