mr/openwrt
2
0
Fork 1
Code Issues 7 Pull Requests Releases Wiki Activity

menuconfig: include dependency checking in submenu sorting function

Browse Source 
SVN-Revision: 5193
This commit is contained in:
Felix Fietkau 2006-10-17 17:45:14 +00:00
parent e2434a5515
commit 634a6d7f86
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
scripts/gen_menuconfig.pl
View File

@ -11,6 +11,7 @@ use strict;
my $src; my $src;
my $makefile; my $makefile;
my $pkg; my $pkg;
my %package;
my %category; my %category;
my $cur_menu; my $cur_menu;
my $cur_menu_dep; my $cur_menu_dep;
@ -26,6 +27,35 @@ sub close_submenu {
} }
} }
sub find_dep($$) {
my $pkg = shift;
my $name = shift;
return 0 unless defined $pkg->{depends};
foreach my $dep (@{$pkg->{depends}}) {
return 1 if $dep eq $name;
return 1 if ($package{$dep} and (find_dep($package{$dep},$name) == 1));
}
return 0;
}
sub depends($$) {
my $a = shift;
my $b = shift;
my $ret;
if (find_dep($a, $b->{name}) == 1) {
$ret = 1;
} elsif (find_dep($b, $a->{name}) == 1) {
$ret = -1;
} else {
$ret = 0;
}
# print STDERR "depends($a->{name}, $b->{name}) == $ret\n";
return $ret;
}
sub print_category($) { sub print_category($) {
my $cat = shift; my $cat = shift;
@ -35,6 +65,7 @@ sub print_category($) {
my %spkg = %{$category{$cat}}; my %spkg = %{$category{$cat}};
foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) { foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) {
my @pkgs = sort { my @pkgs = sort {
depends($a, $b) or
$a->{submenu}."->".$a->{name} cmp $b->{submenu}."->".$b->{name} $a->{submenu}."->".$a->{name} cmp $b->{submenu}."->".$b->{name}
} @{$spkg{$spkg}}; } @{$spkg{$spkg}};
foreach my $pkg (@pkgs) { foreach my $pkg (@pkgs) {
@ -93,6 +124,7 @@ while ($line = <>) {
$pkg->{makefile} = $makefile; $pkg->{makefile} = $makefile;
$pkg->{name} = $1; $pkg->{name} = $1;
$pkg->{default} = "m if ALL"; $pkg->{default} = "m if ALL";
$package{$1} = $pkg;
}; };
$line =~ /^Version: \s*(.+)\s*$/ and $pkg->{version} = $1; $line =~ /^Version: \s*(.+)\s*$/ and $pkg->{version} = $1;
$line =~ /^Title: \s*(.+)\s*$/ and $pkg->{title} = $1; $line =~ /^Title: \s*(.+)\s*$/ and $pkg->{title} = $1;