implement sorting for menuconfig submenus
authorFelix Fietkau <nbd@openwrt.org>
Tue, 17 Oct 2006 13:08:57 +0000 (13:08 +0000)
committerFelix Fietkau <nbd@openwrt.org>
Tue, 17 Oct 2006 13:08:57 +0000 (13:08 +0000)
SVN-Revision: 5182

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}) {