follow the xtables changes in 2.6.17

[openwrt.git] / scripts / gen_menuconfig.pl

diff --git a/scripts/gen_menuconfig.pl b/scripts/gen_menuconfig.pl
index 70e31a4..c40e1ca 100755 (executable)
--- a/scripts/gen_menuconfig.pl
+++ b/scripts/gen_menuconfig.pl
@@ -24,11 +24,22 @@ sub print_category($) {
                        $pkg->{menu} and print "menu";
                        print "config PACKAGE_".$pkg->{name}."\n";
                        print "\t\ttristate \"$title\"\n";
                        $pkg->{menu} and print "menu";
                        print "config PACKAGE_".$pkg->{name}."\n";
                        print "\t\ttristate \"$title\"\n";

-                       print "\t\tdefault ".$pkg->{default}."\n";
+                       foreach my $default (split /\s*,\s*/, $pkg->{default}) {
+                               print "\t\tdefault $default\n";
+                       }

                        foreach my $depend (@{$pkg->{depends}}) {
                        foreach my $depend (@{$pkg->{depends}}) {

-                               print "\t\tdepends PACKAGE_$depend\n";
+                               my $m = "depends";
+                               $depend =~ s/^([@\+])//;
+                               my $flags = $1;
+                               $flags =~ /@/ or $depend = "PACKAGE_$depend";
+                               $flags =~ /\+/ and $m = "select";
+                               print "\t\t$m $depend\n";

                        }
                        }

-                       print "\n"
+                       print "\t\thelp\n";
+                       print $pkg->{description};
+                       print "\n";
+
+                       $pkg->{config} and print $pkg->{config}."\n";

                }
        }
        print "endmenu\n\n";
                }
        }
        print "endmenu\n\n";


@@ -56,7 +67,7 @@ while ($line = <>) {
        $line =~ /^Menu: \s*(.+)\s*$/ and $pkg->{menu} = $1;
        $line =~ /^Default: \s*(.+)\s*$/ and $pkg->{default} = $1;
        $line =~ /^Depends: \s*(.+)\s*$/ and do {
        $line =~ /^Menu: \s*(.+)\s*$/ and $pkg->{menu} = $1;
        $line =~ /^Default: \s*(.+)\s*$/ and $pkg->{default} = $1;
        $line =~ /^Depends: \s*(.+)\s*$/ and do {

-               my @dep = split /,\s*/, $1;
+               my @dep = split /\s+/, $1;

                $pkg->{depends} = \@dep;
        };
        $line =~ /^Category: \s*(.+)\s*$/ and do {
                $pkg->{depends} = \@dep;
        };
        $line =~ /^Category: \s*(.+)\s*$/ and do {


@@ -66,13 +77,22 @@ while ($line = <>) {
                push @{$category{$1}->{$src}}, $pkg;
        };
        $line =~ /^Description: \s*(.*)\s*$/ and do {
                push @{$category{$1}->{$src}}, $pkg;
        };
        $line =~ /^Description: \s*(.*)\s*$/ and do {

-               my $desc = $1;
+               my $desc = "\t\t$1\n\n";

                my $line;
                my $line;

-               while (<>) {
-                       last if /^@@/;
-                       $desc .= $1;
+               while ($line = <>) {
+                       last if $line =~ /^@@/;
+                       $desc .= "\t\t$line";

                }
                $pkg->{description} = $desc;
                }
                $pkg->{description} = $desc;

+       };
+       $line =~ /^Config: \s*(.*)\s*$/ and do {
+               my $conf = "$1\n";
+               my $line;
+               while ($line = <>) {
+                       last if $line =~ /^@@/;
+                       $conf .= "$line";
+               }
+               $pkg->{config} = $conf;

        }
 }
 
        }
 }