always set NO_TRACE_MAKE

[openwrt.git] / scripts / gen_menuconfig.pl

diff --git a/scripts/gen_menuconfig.pl b/scripts/gen_menuconfig.pl
index e282ee3..e62363e 100755 (executable)
--- a/scripts/gen_menuconfig.pl
+++ b/scripts/gen_menuconfig.pl
@@ -1,10 +1,18 @@
 #!/usr/bin/perl
 #!/usr/bin/perl

+# 
+# Copyright (C) 2006 OpenWrt.org
+#
+# This is free software, licensed under the GNU General Public License v2.
+# See /LICENSE for more information.
+#
+

 use strict;
 
 my $src;
 my $makefile;
 my $pkg;
 my %category;
 use strict;
 
 my $src;
 my $makefile;
 my $pkg;
 my %category;

+my $cur_menu;

 
 sub print_category($) {
        my $cat = shift;
 
 sub print_category($) {
        my $cat = shift;


@@ -15,6 +23,16 @@ sub print_category($) {
        my %spkg = %{$category{$cat}};
        foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) {
                foreach my $pkg (@{$spkg{$spkg}}) {
        my %spkg = %{$category{$cat}};
        foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) {
                foreach my $pkg (@{$spkg{$spkg}}) {

+                       if ($cur_menu ne $pkg->{submenu}) {
+                               if ($cur_menu) {
+                                       print "endmenu\n";
+                                       undef $cur_menu;
+                               } 
+                               if ($pkg->{submenu}) {
+                                       $cur_menu = $pkg->{submenu};
+                                       print "menu \"$cur_menu\"\n";
+                               }
+                       }

                        my $title = $pkg->{name};
                        my $c = (72 - length($pkg->{name}) - length($pkg->{title}));
                        if ($c > 0) {
                        my $title = $pkg->{name};
                        my $c = (72 - length($pkg->{name}) - length($pkg->{title}));
                        if ($c > 0) {


@@ -24,9 +42,16 @@ 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 "\t\thelp\n";
                        print $pkg->{description};
                        }
                        print "\t\thelp\n";
                        print $pkg->{description};


@@ -58,9 +83,10 @@ while ($line = <>) {
        $line =~ /^Version: \s*(.+)\s*$/ and $pkg->{version} = $1;
        $line =~ /^Title: \s*(.+)\s*$/ and $pkg->{title} = $1;
        $line =~ /^Menu: \s*(.+)\s*$/ and $pkg->{menu} = $1;
        $line =~ /^Version: \s*(.+)\s*$/ and $pkg->{version} = $1;
        $line =~ /^Title: \s*(.+)\s*$/ and $pkg->{title} = $1;
        $line =~ /^Menu: \s*(.+)\s*$/ and $pkg->{menu} = $1;

+       $line =~ /^Submenu: \s*(.+)\s*$/ and $pkg->{submenu} = $1;

        $line =~ /^Default: \s*(.+)\s*$/ and $pkg->{default} = $1;
        $line =~ /^Depends: \s*(.+)\s*$/ and do {
        $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 {