aboutsummaryrefslogtreecommitdiffstats
path: root/scripts/gen_menuconfig.pl
diff options
context:
space:
mode:
authorFelix Fietkau <nbd@openwrt.org>2006-10-17 19:01:08 +0000
committerFelix Fietkau <nbd@openwrt.org>2006-10-17 19:01:08 +0000
commit38fef4b4a81b849d572c3235f4412d356849236f (patch)
tree8a3951b5782a8f18d2a216f632fac9a279e84fd9 /scripts/gen_menuconfig.pl
parent634a6d7f861165f4275b4eb3c121755dce5e6ceb (diff)
downloadupstream-38fef4b4a81b849d572c3235f4412d356849236f.tar.gz
upstream-38fef4b4a81b849d572c3235f4412d356849236f.tar.bz2
upstream-38fef4b4a81b849d572c3235f4412d356849236f.zip
add PROVIDES option, currently only used for menuconfig
SVN-Revision: 5194
Diffstat (limited to 'scripts/gen_menuconfig.pl')
-rwxr-xr-xscripts/gen_menuconfig.pl28
1 files changed, 21 insertions, 7 deletions
diff --git a/scripts/gen_menuconfig.pl b/scripts/gen_menuconfig.pl
index fe0dc27636..2a2511212b 100755
--- a/scripts/gen_menuconfig.pl
+++ b/scripts/gen_menuconfig.pl
@@ -30,9 +30,10 @@ sub close_submenu {
sub find_dep($$) {
my $pkg = shift;
my $name = shift;
-
- return 0 unless defined $pkg->{depends};
- foreach my $dep (@{$pkg->{depends}}) {
+ my $deps = ($pkg->{vdepends} or $pkg->{depends});
+
+ return 0 unless defined $deps;
+ foreach my $dep (@{$deps}) {
return 1 if $dep eq $name;
return 1 if ($package{$dep} and (find_dep($package{$dep},$name) == 1));
}
@@ -43,13 +44,13 @@ 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;
+ return 0;
}
# print STDERR "depends($a->{name}, $b->{name}) == $ret\n";
return $ret;
@@ -93,8 +94,14 @@ sub print_category($) {
my $m = "depends";
$depend =~ s/^([@\+]+)//;
my $flags = $1;
- $flags =~ /@/ or $depend = "PACKAGE_$depend";
- $flags =~ /\+/ and $m = "select";
+ my $vdep;
+
+ if ($vdep = $package{$depend}->{vdepends}) {
+ $depend = join("||", map { "PACKAGE_".$_ } @$vdep);
+ } else {
+ $flags =~ /@/ or $depend = "PACKAGE_$depend";
+ $flags =~ /\+/ and $m = "select";
+ }
print "\t\t$m $depend\n";
}
print "\t\thelp\n";
@@ -132,6 +139,13 @@ while ($line = <>) {
$line =~ /^Submenu: \s*(.+)\s*$/ and $pkg->{submenu} = $1;
$line =~ /^Submenu-Depends: \s*(.+)\s*$/ and $pkg->{submenudep} = $1;
$line =~ /^Default: \s*(.+)\s*$/ and $pkg->{default} = $1;
+ $line =~ /^Provides: \s*(.+)\s*$/ and do {
+ my @vpkg = split /\s+/, $1;
+ foreach my $vpkg (@vpkg) {
+ $package{$vpkg} or $package{$vpkg} = { vdepends => [] };
+ push @{$package{$vpkg}->{vdepends}}, $pkg->{name};
+ }
+ };
$line =~ /^Depends: \s*(.+)\s*$/ and do {
my @dep = split /\s+/, $1;
$pkg->{depends} = \@dep;