hak5
/
wifipineapple-openwrt
mirror of https://github.com/hak5/wifipineapple-openwrt.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix menu/submenu nesting 

git-svn-id: svn://svn.openwrt.org/openwrt/branches/buildroot-ng/openwrt@4200 3c298f89-4303-0410-b956-a3cf2f4a3e73
master
Felix Fietkau 2006-07-21 22:48:58 +00:00
parent 17dad6fbd2
commit 8b57a39417
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scripts/gen_menuconfig.pl
View File

@ -15,6 +15,17 @@ my %category;
my $cur_menu;
my $cur_menu_dep;
sub close_submenu {
if ($cur_menu) {
print "endmenu\n";
$cur_menu_dep and do {
print "endif\n";
$cur_menu_dep = undef;
};
undef $cur_menu;
}
}
sub print_category($) {
my $cat = shift;
@ -25,14 +36,7 @@ sub print_category($) {
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";
$cur_menu_dep and do {
print "endif\n";
$cur_menu_dep = undef;
};
undef $cur_menu;
}
close_submenu();
if ($pkg->{submenu}) {
$cur_menu = $pkg->{submenu};
$cur_menu_dep = $pkg->{submenudep} and print "if $cur_menu_dep\n";
@ -66,6 +70,7 @@ sub print_category($) {
$pkg->{config} and print $pkg->{config}."\n";
}
}
close_submenu();
print "endmenu\n\n";
undef $category{$cat};