|
|
|
@ -5,6 +5,7 @@ my $src; |
|
|
|
|
my $makefile; |
|
|
|
|
my $pkg; |
|
|
|
|
my %category; |
|
|
|
|
my $cur_menu; |
|
|
|
|
|
|
|
|
|
sub print_category($) { |
|
|
|
|
my $cat = shift; |
|
|
|
@ -15,6 +16,16 @@ sub print_category($) { |
|
|
|
|
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) { |
|
|
|
@ -65,6 +76,7 @@ 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 =~ /^Submenu: \s*(.+)\s*$/ and $pkg->{submenu} = $1; |
|
|
|
|
$line =~ /^Default: \s*(.+)\s*$/ and $pkg->{default} = $1; |
|
|
|
|
$line =~ /^Depends: \s*(.+)\s*$/ and do { |
|
|
|
|
my @dep = split /\s+/, $1; |
|
|
|
|