X-Git-Url: https://git.rohieb.name/openwrt.git/blobdiff_plain/29ec5d802c648afb89dd4f326bc4752f40ad7416..479aa972adba698fd9d2d81ff9ca67c101b30380:/scripts/kconfig.pl?ds=inline diff --git a/scripts/kconfig.pl b/scripts/kconfig.pl index d22af9fe6..c76e2978b 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 () { 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; }; @@ -93,10 +94,10 @@ sub config_sub($$) { sub print_cfgline($$) { my $name = shift; my $val = shift; - if ($val eq '#undef') { - print "# CONFIG_$name is not set\n"; + if ($val eq '#undef' or $val eq '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]);