git-svn-id: svn://svn.openwrt.org/openwrt/branches/buildroot-ng/openwrt@4200
3c298f89-4303-0410-b956-
a3cf2f4a3e73
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;
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";
$pkg->{config} and print $pkg->{config}."\n";
}
}
+ close_submenu();
print "endmenu\n\n";
undef $category{$cat};