implement sorting for menuconfig submenus
authornbd <nbd@3c298f89-4303-0410-b956-a3cf2f4a3e73>
Tue, 17 Oct 2006 13:08:57 +0000 (13:08 +0000)
committernbd <nbd@3c298f89-4303-0410-b956-a3cf2f4a3e73>
Tue, 17 Oct 2006 13:08:57 +0000 (13:08 +0000)
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@5182 3c298f89-4303-0410-b956-a3cf2f4a3e73

scripts/gen_menuconfig.pl

index fe013109288243cf089efbdcccba7a365447160d..c0279d54520277c098cf2b4d5823422e801f68e1 100755 (executable)
@@ -34,7 +34,10 @@ sub print_category($) {
        print "menu \"$cat\"\n\n";
        my %spkg = %{$category{$cat}};
        foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) {
-               foreach my $pkg (@{$spkg{$spkg}}) {
+               my @pkgs = sort {
+                       $a->{submenu}."->".$a->{name} cmp $b->{submenu}."->".$b->{name}
+               } @{$spkg{$spkg}};
+               foreach my $pkg (@pkgs) {
                        if ($cur_menu ne $pkg->{submenu}) {
                                close_submenu();
                                if ($pkg->{submenu}) {