Archived
1
0
This repository has been archived on 2024-07-22. You can view files and clone it, but cannot push or open issues or pull requests.
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";
};
}