openwrt_archive/package/utils/busybox/convert_defaults.pl

14 lines
327 B
Perl
Executable File

#!/usr/bin/env perl
while (<>) {
/^(# )?CONFIG_([^=]+)(=(.+)| is not set)/ and do {
my $default = $4;
$1 and $default = "n";
my $name = $2;
my $type = "bool";
$default =~ /^\"/ and $type = "string";
$default =~ /^\d/ and $type = "int";
print "config BUSYBOX_DEFAULT_$name\n\t$type\n\tdefault $default\n";
};
}