mirror of
git://projects.qi-hardware.com/openwrt-xburst.git
synced 2024-12-25 20:51:42 +02:00
5b6977f54e
allows selection between multiple packages providing the same feature, which affects dependencies of other packages. will be used e.g. for choosing between DirectFB and X.org for libraries like GTK2 git-svn-id: svn://svn.openwrt.org/openwrt/trunk@18056 3c298f89-4303-0410-b956-a3cf2f4a3e73
797 lines
18 KiB
Perl
Executable File
797 lines
18 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use FindBin;
|
|
use lib "$FindBin::Bin";
|
|
use strict;
|
|
use metadata;
|
|
|
|
my %board;
|
|
|
|
sub confstr($) {
|
|
my $conf = shift;
|
|
$conf =~ tr#/\.\-/#___#;
|
|
return $conf;
|
|
}
|
|
|
|
sub parse_target_metadata() {
|
|
my $file = shift @ARGV;
|
|
my ($target, @target, $profile);
|
|
my %target;
|
|
|
|
open FILE, "<$file" or do {
|
|
warn "Can't open file '$file': $!\n";
|
|
return;
|
|
};
|
|
while (<FILE>) {
|
|
chomp;
|
|
/^Target:\s*(.+)\s*$/ and do {
|
|
my $name = $1;
|
|
$target = {
|
|
id => $name,
|
|
board => $name,
|
|
boardconf => confstr($name),
|
|
conf => confstr($name),
|
|
profiles => [],
|
|
features => [],
|
|
depends => [],
|
|
subtargets => []
|
|
};
|
|
push @target, $target;
|
|
$target{$name} = $target;
|
|
if ($name =~ /([^\/]+)\/([^\/]+)/) {
|
|
push @{$target{$1}->{subtargets}}, $2;
|
|
$target->{board} = $1;
|
|
$target->{boardconf} = confstr($1);
|
|
$target->{subtarget} = 1;
|
|
$target->{parent} = $target{$1};
|
|
}
|
|
};
|
|
/^Target-Kernel:\s*(\d+\.\d+)\s*$/ and $target->{kernel} = $1;
|
|
/^Target-Name:\s*(.+)\s*$/ and $target->{name} = $1;
|
|
/^Target-Path:\s*(.+)\s*$/ and $target->{path} = $1;
|
|
/^Target-Arch:\s*(.+)\s*$/ and $target->{arch} = $1;
|
|
/^Target-Features:\s*(.+)\s*$/ and $target->{features} = [ split(/\s+/, $1) ];
|
|
/^Target-Depends:\s*(.+)\s*$/ and $target->{depends} = [ split(/\s+/, $1) ];
|
|
/^Target-Description:/ and $target->{desc} = get_multiline(*FILE);
|
|
/^Target-Optimization:\s*(.+)\s*$/ and $target->{cflags} = $1;
|
|
/^Linux-Version:\s*(.+)\s*$/ and $target->{version} = $1;
|
|
/^Linux-Release:\s*(.+)\s*$/ and $target->{release} = $1;
|
|
/^Linux-Kernel-Arch:\s*(.+)\s*$/ and $target->{karch} = $1;
|
|
/^Default-Packages:\s*(.+)\s*$/ and $target->{packages} = [ split(/\s+/, $1) ];
|
|
/^Target-Profile:\s*(.+)\s*$/ and do {
|
|
$profile = {
|
|
id => $1,
|
|
name => $1,
|
|
packages => []
|
|
};
|
|
push @{$target->{profiles}}, $profile;
|
|
};
|
|
/^Target-Profile-Name:\s*(.+)\s*$/ and $profile->{name} = $1;
|
|
/^Target-Profile-Packages:\s*(.*)\s*$/ and $profile->{packages} = [ split(/\s+/, $1) ];
|
|
/^Target-Profile-Description:\s*(.*)\s*/ and $profile->{desc} = get_multiline(*FILE);
|
|
/^Target-Profile-Config:/ and $profile->{config} = get_multiline(*FILE, "\t");
|
|
/^Target-Profile-Kconfig:/ and $profile->{kconfig} = 1;
|
|
}
|
|
close FILE;
|
|
foreach my $target (@target) {
|
|
next if @{$target->{subtargets}} > 0;
|
|
@{$target->{profiles}} > 0 or $target->{profiles} = [
|
|
{
|
|
id => 'Default',
|
|
name => 'Default',
|
|
packages => []
|
|
}
|
|
];
|
|
}
|
|
return @target;
|
|
}
|
|
|
|
sub gen_kconfig_overrides() {
|
|
my %config;
|
|
my %kconfig;
|
|
my $package;
|
|
my $pkginfo = shift @ARGV;
|
|
my $cfgfile = shift @ARGV;
|
|
|
|
# parameter 2: build system config
|
|
open FILE, "<$cfgfile" or return;
|
|
while (<FILE>) {
|
|
/^(CONFIG_.+?)=(.+)$/ and $config{$1} = 1;
|
|
}
|
|
close FILE;
|
|
|
|
# parameter 1: package metadata
|
|
open FILE, "<$pkginfo" or return;
|
|
while (<FILE>) {
|
|
/^Package:\s*(.+?)\s*$/ and $package = $1;
|
|
/^Kernel-Config:\s*(.+?)\s*$/ and do {
|
|
my @config = split /\s+/, $1;
|
|
foreach my $config (@config) {
|
|
my $val = 'm';
|
|
my $override;
|
|
if ($config =~ /^(.+?)=(.+)$/) {
|
|
$config = $1;
|
|
$override = 1;
|
|
$val = $2;
|
|
}
|
|
if ($config{"CONFIG_PACKAGE_$package"} and ($config ne 'n')) {
|
|
$kconfig{$config} = $val;
|
|
} elsif (!$override) {
|
|
$kconfig{$config} or $kconfig{$config} = 'n';
|
|
}
|
|
}
|
|
};
|
|
};
|
|
close FILE;
|
|
|
|
foreach my $kconfig (sort keys %kconfig) {
|
|
if ($kconfig{$kconfig} eq 'n') {
|
|
print "# $kconfig is not set\n";
|
|
} else {
|
|
print "$kconfig=$kconfig{$kconfig}\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
sub merge_package_lists($$) {
|
|
my $list1 = shift;
|
|
my $list2 = shift;
|
|
my @l = ();
|
|
my %pkgs;
|
|
|
|
foreach my $pkg (@$list1, @$list2) {
|
|
$pkgs{$pkg} = 1;
|
|
}
|
|
foreach my $pkg (keys %pkgs) {
|
|
push @l, $pkg unless ($pkg =~ /^-/ or $pkgs{"-$pkg"});
|
|
}
|
|
return sort(@l);
|
|
}
|
|
|
|
sub target_config_features(@) {
|
|
my $ret;
|
|
|
|
while ($_ = shift @_) {
|
|
/broken/ and $ret .= "\tdepends BROKEN\n";
|
|
/display/ and $ret .= "\tselect DISPLAY_SUPPORT\n";
|
|
/gpio/ and $ret .= "\tselect GPIO_SUPPORT\n";
|
|
/pci/ and $ret .= "\tselect PCI_SUPPORT\n";
|
|
/pcie/ and $ret .= "\tselect PCIE_SUPPORT\n";
|
|
/usb/ and $ret .= "\tselect USB_SUPPORT\n";
|
|
/pcmcia/ and $ret .= "\tselect PCMCIA_SUPPORT\n";
|
|
/squashfs/ and $ret .= "\tselect USES_SQUASHFS\n";
|
|
/jffs2/ and $ret .= "\tselect USES_JFFS2\n";
|
|
/ext2/ and $ret .= "\tselect USES_EXT2\n";
|
|
/tgz/ and $ret .= "\tselect USES_TGZ\n";
|
|
/cpiogz/ and $ret .= "\tselect USES_CPIOGZ\n";
|
|
/fpu/ and $ret .= "\tselect HAS_FPU\n";
|
|
/ramdisk/ and $ret .= "\tselect USES_INITRAMFS\n";
|
|
/powerpc64/ and $ret .= "\tselect powerpc64\n";
|
|
/nommu/ and $ret .= "\tselect NOMMU\n";
|
|
}
|
|
return $ret;
|
|
}
|
|
|
|
sub target_name($) {
|
|
my $target = shift;
|
|
my $parent = $target->{parent};
|
|
if ($parent) {
|
|
return $target->{parent}->{name}." - ".$target->{name};
|
|
} else {
|
|
return $target->{name};
|
|
}
|
|
}
|
|
|
|
sub kver($) {
|
|
my $v = shift;
|
|
$v =~ tr/\./_/;
|
|
$v =~ /(\d+_\d+_\d+)(_\d+)?/ and $v = $1;
|
|
return $v;
|
|
}
|
|
|
|
sub print_target($) {
|
|
my $target = shift;
|
|
my $features = target_config_features(@{$target->{features}});
|
|
my $help = $target->{desc};
|
|
my $kernel = $target->{kernel};
|
|
my $confstr;
|
|
$kernel =~ tr/./_/;
|
|
|
|
chomp $features;
|
|
$features .= "\n";
|
|
if ($help =~ /\w+/) {
|
|
$help =~ s/^\s*/\t /mg;
|
|
$help = "\thelp\n$help";
|
|
} else {
|
|
undef $help;
|
|
}
|
|
|
|
my $v = kver($target->{version});
|
|
if (@{$target->{subtargets}} == 0) {
|
|
$confstr = <<EOF;
|
|
config TARGET_$target->{conf}
|
|
bool "$target->{name}"
|
|
select LINUX_$kernel
|
|
select LINUX_$v
|
|
EOF
|
|
}
|
|
else {
|
|
$confstr = <<EOF;
|
|
config TARGET_$target->{conf}
|
|
bool "$target->{name}"
|
|
EOF
|
|
}
|
|
if ($target->{subtarget}) {
|
|
$confstr .= "\tdepends TARGET_$target->{boardconf}\n";
|
|
}
|
|
if (@{$target->{subtargets}} > 0) {
|
|
$confstr .= "\tselect HAS_SUBTARGETS\n";
|
|
} else {
|
|
$confstr .= "\tselect $target->{arch}\n";
|
|
foreach my $dep (@{$target->{depends}}) {
|
|
my $mode = "depends";
|
|
my $flags;
|
|
my $name;
|
|
|
|
$dep =~ /^([@\+\-]+)(.+)$/;
|
|
$flags = $1;
|
|
$name = $2;
|
|
|
|
next if $name =~ /:/;
|
|
$flags =~ /-/ and $mode = "deselect";
|
|
$flags =~ /\+/ and $mode = "select";
|
|
$flags =~ /@/ and $confstr .= "\t$mode $name\n";
|
|
}
|
|
$confstr .= $features;
|
|
}
|
|
|
|
$confstr .= "$help\n\n";
|
|
print $confstr;
|
|
}
|
|
|
|
sub gen_target_config() {
|
|
my @target = parse_target_metadata();
|
|
my %defaults;
|
|
|
|
my @target_sort = sort {
|
|
target_name($a) cmp target_name($b);
|
|
} @target;
|
|
|
|
|
|
print <<EOF;
|
|
choice
|
|
prompt "Target System"
|
|
default TARGET_brcm_2_4
|
|
reset if !DEVEL
|
|
|
|
EOF
|
|
|
|
foreach my $target (@target_sort) {
|
|
next if $target->{subtarget};
|
|
print_target($target);
|
|
}
|
|
|
|
print <<EOF;
|
|
endchoice
|
|
|
|
choice
|
|
prompt "Subtarget" if HAS_SUBTARGETS
|
|
|
|
EOF
|
|
foreach my $target (@target) {
|
|
next unless $target->{subtarget};
|
|
print_target($target);
|
|
}
|
|
|
|
print <<EOF;
|
|
endchoice
|
|
|
|
choice
|
|
prompt "Target Profile"
|
|
|
|
EOF
|
|
|
|
foreach my $target (@target) {
|
|
my $profiles = $target->{profiles};
|
|
|
|
foreach my $profile (@$profiles) {
|
|
print <<EOF;
|
|
config TARGET_$target->{conf}_$profile->{id}
|
|
bool "$profile->{name}"
|
|
depends TARGET_$target->{conf}
|
|
$profile->{config}
|
|
EOF
|
|
$profile->{kconfig} and print "\tselect PROFILE_KCONFIG\n";
|
|
my @pkglist = merge_package_lists($target->{packages}, $profile->{packages});
|
|
foreach my $pkg (@pkglist) {
|
|
print "\tselect DEFAULT_$pkg\n";
|
|
$defaults{$pkg} = 1;
|
|
}
|
|
my $help = $profile->{desc};
|
|
if ($help =~ /\w+/) {
|
|
$help =~ s/^\s*/\t /mg;
|
|
$help = "\thelp\n$help";
|
|
} else {
|
|
undef $help;
|
|
}
|
|
print "$help\n";
|
|
}
|
|
}
|
|
|
|
print <<EOF;
|
|
endchoice
|
|
|
|
config HAS_SUBTARGETS
|
|
bool
|
|
|
|
config TARGET_BOARD
|
|
string
|
|
|
|
EOF
|
|
foreach my $target (@target) {
|
|
$target->{subtarget} or print "\t\tdefault \"".$target->{board}."\" if TARGET_".$target->{conf}."\n";
|
|
}
|
|
print <<EOF;
|
|
|
|
config DEFAULT_TARGET_OPTIMIZATION
|
|
string
|
|
EOF
|
|
foreach my $target (@target) {
|
|
next if @{$target->{subtargets}} > 0;
|
|
print "\tdefault \"".$target->{cflags}."\" if TARGET_".$target->{conf}."\n";
|
|
}
|
|
print "\tdefault \"-Os -pipe -funit-at-a-time\"\n";
|
|
|
|
my %kver;
|
|
foreach my $target (@target) {
|
|
my $v = kver($target->{version});
|
|
next if $kver{$v};
|
|
$kver{$v} = 1;
|
|
print <<EOF;
|
|
|
|
config LINUX_$v
|
|
bool
|
|
|
|
EOF
|
|
}
|
|
foreach my $def (sort keys %defaults) {
|
|
print "\tconfig DEFAULT_".$def."\n";
|
|
print "\t\tbool\n\n";
|
|
}
|
|
}
|
|
|
|
my %dep_check;
|
|
sub __find_package_dep($$) {
|
|
my $pkg = shift;
|
|
my $name = shift;
|
|
my $deps = ($pkg->{vdepends} or $pkg->{depends});
|
|
|
|
return 0 unless defined $deps;
|
|
foreach my $dep (@{$deps}) {
|
|
next if $dep_check{$dep};
|
|
$dep_check{$dep} = 1;
|
|
return 1 if $dep eq $name;
|
|
return 1 if ($package{$dep} and (__find_package_dep($package{$dep},$name) == 1));
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
# wrapper to avoid infinite recursion
|
|
sub find_package_dep($$) {
|
|
my $pkg = shift;
|
|
my $name = shift;
|
|
|
|
%dep_check = ();
|
|
return __find_package_dep($pkg, $name);
|
|
}
|
|
|
|
sub package_depends($$) {
|
|
my $a = shift;
|
|
my $b = shift;
|
|
my $ret;
|
|
|
|
return 0 if ($a->{submenu} ne $b->{submenu});
|
|
if (find_package_dep($a, $b->{name}) == 1) {
|
|
$ret = 1;
|
|
} elsif (find_package_dep($b, $a->{name}) == 1) {
|
|
$ret = -1;
|
|
} else {
|
|
return 0;
|
|
}
|
|
return $ret;
|
|
}
|
|
|
|
sub mconf_depends {
|
|
my $pkgname = shift;
|
|
my $depends = shift;
|
|
my $only_dep = shift;
|
|
my $res;
|
|
my $dep = shift;
|
|
my $seen = shift;
|
|
my $parent_condition = shift;
|
|
$dep or $dep = {};
|
|
$seen or $seen = {};
|
|
|
|
$depends or return;
|
|
my @depends = @$depends;
|
|
foreach my $depend (@depends) {
|
|
my $m = "depends";
|
|
my $flags = "";
|
|
$depend =~ s/^([@\+]+)// and $flags = $1;
|
|
my $vdep;
|
|
my $condition = $parent_condition;
|
|
|
|
if ($depend =~ /^(.+):(.+)$/) {
|
|
if ($1 ne "PACKAGE_$pkgname") {
|
|
if ($condition) {
|
|
$condition = "$condition && $1";
|
|
} else {
|
|
$condition = $1;
|
|
}
|
|
}
|
|
$depend = $2;
|
|
}
|
|
next if $seen->{$depend};
|
|
next if $package{$depend} and $package{$depend}->{buildonly};
|
|
$seen->{$depend} = 1;
|
|
if ($vdep = $package{$depend}->{vdepends}) {
|
|
$depend = join("||", map { "PACKAGE_".$_ } @$vdep);
|
|
} else {
|
|
$flags =~ /\+/ and do {
|
|
# Menuconfig will not treat 'select FOO' as a real dependency
|
|
# thus if FOO depends on other config options, these dependencies
|
|
# will not be checked. To fix this, we simply emit all of FOO's
|
|
# depends here as well.
|
|
$package{$depend} and mconf_depends($pkgname, $package{$depend}->{depends}, 1, $dep, $seen, $condition);
|
|
|
|
$m = "select";
|
|
next if $only_dep;
|
|
};
|
|
$flags =~ /@/ or $depend = "PACKAGE_$depend";
|
|
if ($condition) {
|
|
if ($m =~ /select/) {
|
|
$depend = "$depend if $condition";
|
|
} else {
|
|
$depend = "!($condition) || $depend";
|
|
}
|
|
}
|
|
}
|
|
$dep->{$depend} =~ /select/ or $dep->{$depend} = $m;
|
|
}
|
|
foreach my $depend (keys %$dep) {
|
|
my $m = $dep->{$depend};
|
|
$res .= "\t\t$m $depend\n";
|
|
}
|
|
return $res;
|
|
}
|
|
|
|
sub print_package_config_category($) {
|
|
my $cat = shift;
|
|
my %menus;
|
|
my %menu_dep;
|
|
|
|
return unless $category{$cat};
|
|
|
|
print "menu \"$cat\"\n\n";
|
|
my %spkg = %{$category{$cat}};
|
|
|
|
foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) {
|
|
foreach my $pkg (@{$spkg{$spkg}}) {
|
|
next if $pkg->{buildonly};
|
|
my $menu = $pkg->{submenu};
|
|
if ($menu) {
|
|
$menu_dep{$menu} or $menu_dep{$menu} = $pkg->{submenudep};
|
|
} else {
|
|
$menu = 'undef';
|
|
}
|
|
$menus{$menu} or $menus{$menu} = [];
|
|
push @{$menus{$menu}}, $pkg;
|
|
}
|
|
}
|
|
my @menus = sort {
|
|
($a eq 'undef' ? 1 : 0) or
|
|
($b eq 'undef' ? -1 : 0) or
|
|
($a cmp $b)
|
|
} keys %menus;
|
|
|
|
foreach my $menu (@menus) {
|
|
my @pkgs = sort {
|
|
package_depends($a, $b) or
|
|
($a->{name} cmp $b->{name})
|
|
} @{$menus{$menu}};
|
|
if ($menu ne 'undef') {
|
|
$menu_dep{$menu} and print "if $menu_dep{$menu}\n";
|
|
print "menu \"$menu\"\n";
|
|
}
|
|
foreach my $pkg (@pkgs) {
|
|
my $title = $pkg->{name};
|
|
my $c = (72 - length($pkg->{name}) - length($pkg->{title}));
|
|
if ($c > 0) {
|
|
$title .= ("." x $c). " ". $pkg->{title};
|
|
}
|
|
print "\t";
|
|
$pkg->{menu} and print "menu";
|
|
print "config PACKAGE_".$pkg->{name}."\n";
|
|
print "\t\t".($pkg->{tristate} ? 'tristate' : 'bool')." \"$title\"\n";
|
|
print "\t\tdefault y if DEFAULT_".$pkg->{name}."\n";
|
|
foreach my $default (split /\s*,\s*/, $pkg->{default}) {
|
|
print "\t\tdefault $default\n";
|
|
}
|
|
print mconf_depends($pkg->{name}, $pkg->{depends}, 0);
|
|
print "\t\thelp\n";
|
|
print $pkg->{description};
|
|
print "\n";
|
|
|
|
$pkg->{config} and print $pkg->{config}."\n";
|
|
}
|
|
if ($menu ne 'undef') {
|
|
print "endmenu\n";
|
|
$menu_dep{$menu} and print "endif\n";
|
|
}
|
|
}
|
|
print "endmenu\n\n";
|
|
|
|
undef $category{$cat};
|
|
}
|
|
|
|
sub print_package_features() {
|
|
keys %features > 0 or return;
|
|
print "menu \"Package features\"\n";
|
|
foreach my $n (keys %features) {
|
|
my @features = sort { $b->{priority} <=> $a->{priority} or $a->{title} cmp $b->{title} } @{$features{$n}};
|
|
print <<EOF;
|
|
choice
|
|
prompt "$features[0]->{target_title}"
|
|
default FEATURE_$features[0]->{name}
|
|
EOF
|
|
|
|
foreach my $feature (@features) {
|
|
print <<EOF;
|
|
config FEATURE_$feature->{name}
|
|
bool "$feature->{title}"
|
|
help
|
|
$feature->{description}
|
|
EOF
|
|
}
|
|
print "endchoice\n"
|
|
}
|
|
print "endmenu\n\n";
|
|
}
|
|
|
|
sub gen_package_config() {
|
|
parse_package_metadata($ARGV[0]) or exit 1;
|
|
print "menuconfig UCI_PRECONFIG\n\tbool \"Image configuration\"\n" if %preconfig;
|
|
foreach my $preconfig (keys %preconfig) {
|
|
foreach my $cfg (keys %{$preconfig{$preconfig}}) {
|
|
my $conf = $preconfig{$preconfig}->{$cfg}->{id};
|
|
$conf =~ tr/\.-/__/;
|
|
print <<EOF
|
|
config UCI_PRECONFIG_$conf
|
|
string "$preconfig{$preconfig}->{$cfg}->{label}" if UCI_PRECONFIG
|
|
depends PACKAGE_$preconfig
|
|
default "$preconfig{$preconfig}->{$cfg}->{default}"
|
|
|
|
EOF
|
|
}
|
|
}
|
|
print_package_features();
|
|
print_package_config_category 'Base system';
|
|
foreach my $cat (keys %category) {
|
|
print_package_config_category $cat;
|
|
}
|
|
}
|
|
|
|
sub get_conditional_dep($$) {
|
|
my $condition = shift;
|
|
my $depstr = shift;
|
|
if ($condition) {
|
|
if ($condition =~ /^!(.+)/) {
|
|
return "\$(if \$(CONFIG_$1),,$depstr)";
|
|
} else {
|
|
return "\$(if \$(CONFIG_$condition),$depstr)";
|
|
}
|
|
} else {
|
|
return $depstr;
|
|
}
|
|
}
|
|
|
|
sub gen_package_mk() {
|
|
my %conf;
|
|
my %dep;
|
|
my %done;
|
|
my $line;
|
|
|
|
parse_package_metadata($ARGV[0]) or exit 1;
|
|
foreach my $name (sort {uc($a) cmp uc($b)} keys %package) {
|
|
my $config;
|
|
my $pkg = $package{$name};
|
|
my @srcdeps;
|
|
|
|
next if defined $pkg->{vdepends};
|
|
|
|
if ($ENV{SDK}) {
|
|
$conf{$pkg->{src}} or do {
|
|
$config = 'm';
|
|
$conf{$pkg->{src}} = 1;
|
|
};
|
|
} else {
|
|
$config = "\$(CONFIG_PACKAGE_$name)"
|
|
}
|
|
if ($config) {
|
|
$pkg->{buildonly} and $config = "";
|
|
print "package-$config += $pkg->{subdir}$pkg->{src}\n";
|
|
$pkg->{prereq} and print "prereq-$config += $pkg->{subdir}$pkg->{src}\n";
|
|
}
|
|
|
|
next if $done{$pkg->{src}};
|
|
$done{$pkg->{src}} = 1;
|
|
|
|
if (@{$pkg->{buildtypes}} > 0) {
|
|
print "buildtypes-$pkg->{subdir}$pkg->{src} = ".join(' ', @{$pkg->{buildtypes}})."\n";
|
|
}
|
|
|
|
foreach my $spkg (@{$srcpackage{$pkg->{src}}}) {
|
|
foreach my $dep (@{$spkg->{depends}}, @{$spkg->{builddepends}}) {
|
|
$dep =~ /@/ or do {
|
|
$dep =~ s/\+//g;
|
|
push @srcdeps, $dep;
|
|
};
|
|
}
|
|
}
|
|
foreach my $type (@{$pkg->{buildtypes}}) {
|
|
my @extra_deps;
|
|
my %deplines;
|
|
|
|
next unless $pkg->{"builddepends/$type"};
|
|
foreach my $dep (@{$pkg->{"builddepends/$type"}}) {
|
|
my $suffix = "";
|
|
my $condition;
|
|
|
|
if ($dep =~ /^(.+):(.+)/) {
|
|
$condition = $1;
|
|
$dep = $2;
|
|
}
|
|
if ($dep =~ /^(.+)(\/.+)/) {
|
|
$dep = $1;
|
|
$suffix = $2;
|
|
}
|
|
my $pkg_dep = $package{$dep};
|
|
next unless $pkg_dep;
|
|
|
|
my $idx = "";
|
|
if (defined $pkg_dep->{src}) {
|
|
$idx = $pkg_dep->{subdir}.$pkg_dep->{src};
|
|
} elsif (defined($srcpackage{$dep})) {
|
|
$idx = $subdir{$dep}.$dep;
|
|
}
|
|
my $depstr = "\$(curdir)/$idx$suffix/compile";
|
|
my $depline = get_conditional_dep($condition, $depstr);
|
|
if ($depline) {
|
|
$deplines{$dep} = $depline;
|
|
}
|
|
}
|
|
my $depline = join(" ", values %deplines);
|
|
if ($depline) {
|
|
$line .= "\$(curdir)/".$pkg->{subdir}."$pkg->{src}/$type/compile += $depline\n";
|
|
}
|
|
}
|
|
|
|
my $hasdeps = 0;
|
|
my %deplines;
|
|
foreach my $deps (@srcdeps) {
|
|
my $idx;
|
|
my $condition;
|
|
my $prefix = "";
|
|
my $suffix = "";
|
|
|
|
if ($deps =~ /^(.+):(.+)/) {
|
|
$condition = $1;
|
|
$deps = $2;
|
|
}
|
|
if ($deps =~ /^(.+)(\/.+)/) {
|
|
$deps = $1;
|
|
$suffix = $2;
|
|
}
|
|
|
|
my $pkg_dep = $package{$deps};
|
|
my @deps;
|
|
|
|
if ($pkg_dep->{vdepends}) {
|
|
@deps = @{$pkg_dep->{vdepends}};
|
|
} else {
|
|
@deps = ($deps);
|
|
}
|
|
|
|
foreach my $dep (@deps) {
|
|
$pkg_dep = $package{$deps};
|
|
if (defined $pkg_dep->{src}) {
|
|
($pkg->{src} ne $pkg_dep->{src}.$suffix) and $idx = $pkg_dep->{subdir}.$pkg_dep->{src};
|
|
} elsif (defined($srcpackage{$dep})) {
|
|
$idx = $subdir{$dep}.$dep;
|
|
}
|
|
$idx .= $suffix;
|
|
undef $idx if $idx =~ /^(kernel)|(base-files)$/;
|
|
if ($idx) {
|
|
my $depline;
|
|
next if $pkg->{src} eq $pkg_dep->{src}.$suffix;
|
|
next if $dep{$pkg->{src}."->".$idx};
|
|
next if $dep{$pkg->{src}."->($dep)".$idx} and $pkg_dep->{vdepends};
|
|
my $depstr;
|
|
|
|
if ($pkg_dep->{vdepends}) {
|
|
$depstr = "\$(if \$(CONFIG_PACKAGE_$dep),\$(curdir)/$idx/compile)";
|
|
$dep{$pkg->{src}."->($dep)".$idx} = 1;
|
|
} else {
|
|
$depstr = "\$(curdir)/$idx/compile";
|
|
$dep{$pkg->{src}."->".$idx} = 1;
|
|
}
|
|
$depline = get_conditional_dep($condition, $depstr);
|
|
if ($depline) {
|
|
$deplines{$idx.$dep} = $depline;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
my $depline = join(" ", values %deplines);
|
|
if ($depline) {
|
|
$line .= "\$(curdir)/".$pkg->{subdir}."$pkg->{src}/compile += $depline\n";
|
|
}
|
|
}
|
|
|
|
if ($line ne "") {
|
|
print "\n$line";
|
|
}
|
|
foreach my $preconfig (keys %preconfig) {
|
|
my $cmds;
|
|
foreach my $cfg (keys %{$preconfig{$preconfig}}) {
|
|
my $conf = $preconfig{$preconfig}->{$cfg}->{id};
|
|
$conf =~ tr/\.-/__/;
|
|
$cmds .= "\techo \"uci set '$preconfig{$preconfig}->{$cfg}->{id}=\$(subst \",,\$(CONFIG_UCI_PRECONFIG_$conf))'\"; \\\n";
|
|
}
|
|
next unless $cmds;
|
|
print <<EOF
|
|
|
|
\$(TARGET_DIR)/etc/uci-defaults/$preconfig: FORCE
|
|
( \\
|
|
$cmds \\
|
|
) > \$@
|
|
|
|
ifneq (\$(UCI_PRECONFIG)\$(CONFIG_UCI_PRECONFIG),)
|
|
package/preconfig: \$(TARGET_DIR)/etc/uci-defaults/$preconfig
|
|
endif
|
|
EOF
|
|
}
|
|
}
|
|
|
|
sub gen_package_source() {
|
|
parse_package_metadata($ARGV[0]) or exit 1;
|
|
foreach my $name (sort {uc($a) cmp uc($b)} keys %package) {
|
|
my $pkg = $package{$name};
|
|
if ($pkg->{name} && $pkg->{source}) {
|
|
print "$pkg->{name}: ";
|
|
print "$pkg->{source}\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
sub parse_command() {
|
|
my $cmd = shift @ARGV;
|
|
for ($cmd) {
|
|
/^target_config$/ and return gen_target_config();
|
|
/^package_mk$/ and return gen_package_mk();
|
|
/^package_config$/ and return gen_package_config();
|
|
/^kconfig/ and return gen_kconfig_overrides();
|
|
/^package_source$/ and return gen_package_source();
|
|
}
|
|
print <<EOF
|
|
Available Commands:
|
|
$0 target_config [file] Target metadata in Kconfig format
|
|
$0 package_mk [file] Package metadata in makefile format
|
|
$0 package_config [file] Package metadata in Kconfig format
|
|
$0 kconfig [file] [config] Kernel config overrides
|
|
$0 package_source [file] Package source file information
|
|
|
|
EOF
|
|
}
|
|
|
|
parse_command();
|