openwrt-archive/package/utils/busybox/convert_defaults.pl

#!/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";
	};
}