e345c9a277
git-svn-id: svn://svn.openwrt.org/openwrt/branches/barrier_breaker@41864 3c298f89-4303-0410-b956-a3cf2f4a3e73
40 lines
527 B
Perl
Executable file
40 lines
527 B
Perl
Executable file
#!/usr/bin/env perl
|
|
use strict;
|
|
|
|
print <<EOF;
|
|
config ALL
|
|
bool
|
|
default y
|
|
|
|
EOF
|
|
|
|
while (<>) {
|
|
chomp;
|
|
next unless /^CONFIG_([^=]+)=(.*)$/;
|
|
|
|
my $var = $1;
|
|
my $val = $2;
|
|
my $type;
|
|
|
|
next if $var eq 'ALL';
|
|
|
|
if ($val eq 'y') {
|
|
$type = "bool";
|
|
} elsif ($val eq 'm') {
|
|
$type = "tristate";
|
|
} elsif ($val =~ /^".*"$/) {
|
|
$type = "string";
|
|
} elsif ($val =~ /^\d+$/) {
|
|
$type = "int";
|
|
} else {
|
|
warn "WARNING: no type found for symbol CONFIG_$var=$val\n";
|
|
next;
|
|
}
|
|
|
|
print <<EOF;
|
|
config $var
|
|
$type
|
|
default $val
|
|
|
|
EOF
|
|
}
|