package/utils/busybox/convert_defaults.pl

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