|
|
|
@@ -2,6 +2,7 @@
|
|
|
|
|
|
|
|
|
|
use Getopt::Long;
|
|
|
|
|
use v5.10;
|
|
|
|
|
no feature "say";
|
|
|
|
|
|
|
|
|
|
my $profile = $ENV{BUILDER_PROFILE} // 3;
|
|
|
|
|
my $jobs = $ENV{BUILDER_JOBS} // 1;
|
|
|
|
@@ -22,6 +23,8 @@ my $dep_scan_depth = $ENV{DEPENDENCY_SCAN_DEPTH} // 2;
|
|
|
|
|
my $skip_portage_sync = $ENV{SKIP_PORTAGE_SYNC} // 0;
|
|
|
|
|
my $emerge_split_install = $ENV{EMERGE_SPLIT_INSTALL} // 0;
|
|
|
|
|
my $webrsync = $ENV{WEBRSYNC} // 0;
|
|
|
|
|
my $enman_repositories = $ENV{ENMAN_REPOSITORIES};
|
|
|
|
|
my $prune_virtuals = $ENV{PRUNE_VIRTUALS} // 0;
|
|
|
|
|
|
|
|
|
|
my $make_conf = $ENV{MAKE_CONF};
|
|
|
|
|
|
|
|
|
@@ -85,25 +88,27 @@ sub available_packages {
|
|
|
|
|
sub calculate_missing {
|
|
|
|
|
my $package = shift;
|
|
|
|
|
my $depth = shift;
|
|
|
|
|
|
|
|
|
|
my @Installed_Packages = @{+shift};
|
|
|
|
|
my @Available_Packages = @{+shift};
|
|
|
|
|
my $prune_virtuals = shift;
|
|
|
|
|
|
|
|
|
|
# Getting the package dependencies and the installed packages
|
|
|
|
|
say "[$package] Getting the package dependencies and the installed packages";
|
|
|
|
|
my @dependencies = package_deps( $package, $depth, 1 );
|
|
|
|
|
|
|
|
|
|
my %install_dependencies = map { $_ => 1 } @dependencies;
|
|
|
|
|
# Look for any virtuals and remove its immediate dependencies to avoid
|
|
|
|
|
# installing multiple conflicting packages one by one
|
|
|
|
|
my @virtual_deps;
|
|
|
|
|
for my $dep (@dependencies) {
|
|
|
|
|
push(@virtual_deps, package_deps( $dep, 1, 1 )) if ( $dep =~ /^virtual\// );
|
|
|
|
|
if ($prune_virtuals) {
|
|
|
|
|
say "[$package] Pruning dependencies of virtual packages";
|
|
|
|
|
my %install_dependencies = map { $_ => 1 } @dependencies;
|
|
|
|
|
# Look for any virtuals and remove its immediate dependencies to avoid
|
|
|
|
|
# installing multiple conflicting packages one by one
|
|
|
|
|
my @virtual_deps;
|
|
|
|
|
for my $dep (@dependencies) {
|
|
|
|
|
push(@virtual_deps, package_deps( $dep, 1, 1 )) if ( $dep =~ /^virtual\// );
|
|
|
|
|
}
|
|
|
|
|
for my $dep (@virtual_deps) {
|
|
|
|
|
$install_dependencies{$dep} = 0 if ( $dep !~ /^virtual\// );
|
|
|
|
|
}
|
|
|
|
|
@dependencies = grep { $install_dependencies{$_} } @dependencies;
|
|
|
|
|
}
|
|
|
|
|
for my $dep (@virtual_deps) {
|
|
|
|
|
$install_dependencies{$dep} = 0 if ( $dep !~ /^virtual\// );
|
|
|
|
|
}
|
|
|
|
|
@dependencies = grep { $install_dependencies{$_} } @dependencies;
|
|
|
|
|
|
|
|
|
|
#taking only the 4th column of output as key of the hashmap
|
|
|
|
|
my %installed_packs =
|
|
|
|
@@ -135,11 +140,12 @@ sub help {
|
|
|
|
|
"\t$0 app-foo/foobar --equo foo-misc/foobar --equo net-foo/foobar --layman foo --layman bar foo",
|
|
|
|
|
"**************************", "",
|
|
|
|
|
"You can supply multiple overlays as well: $0 plasma-meta --layman kde plab",
|
|
|
|
|
"The documentation is available at https://github.com/Sabayon/devkit",
|
|
|
|
|
"";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
say
|
|
|
|
|
"************* IF YOU WANT TO SUPPLY ADDITIONAL ARGS TO EMERGE, pass to docker EMERGE_DEFAULT_OPTS env with your options *************";
|
|
|
|
|
"****************************************************";
|
|
|
|
|
|
|
|
|
|
if ( @overlays > 0 ) {
|
|
|
|
|
say "Overlay(s) to add";
|
|
|
|
@@ -148,11 +154,11 @@ if ( @overlays > 0 ) {
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
say "Installing:";
|
|
|
|
|
say "[*] Installing:";
|
|
|
|
|
|
|
|
|
|
say "\t* " . $_ for @ARGV;
|
|
|
|
|
|
|
|
|
|
say "* Syncing stuff for you, if it's the first time, can take a while";
|
|
|
|
|
say "[*] Syncing configurations files, Layman and Portage";
|
|
|
|
|
|
|
|
|
|
# Syncronizing portage configuration and adding overlays
|
|
|
|
|
system("echo 'en_US.UTF-8 UTF-8' > /etc/locale.gen"); #be sure about that.
|
|
|
|
@@ -220,6 +226,10 @@ if ($use_equo && $entropy_repository eq "weekly" ) {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ($use_equo) {
|
|
|
|
|
if ($enman_repositories and $enman_repositories ne "") {
|
|
|
|
|
my @enman_toadd=split(/ /,$enman_repositories);
|
|
|
|
|
system("enman add $_") for @enman_toadd;
|
|
|
|
|
}
|
|
|
|
|
system("equo repo mirrorsort sabayonlinux.org") if $equo_mirrorsort;
|
|
|
|
|
system("equo up && equo u")
|
|
|
|
|
}
|
|
|
|
@@ -235,16 +245,22 @@ if ($use_equo) {
|
|
|
|
|
my @Installed_Packages = qx/equo q list installed --quiet/;
|
|
|
|
|
my @Available_Packages = available_packages();
|
|
|
|
|
chomp(@Installed_Packages);
|
|
|
|
|
|
|
|
|
|
my %installed_packs =
|
|
|
|
|
map { $_ => 1 } @Installed_Packages;
|
|
|
|
|
|
|
|
|
|
# Remove any already installed packages from the list of entropy packages to install in the build spec
|
|
|
|
|
@equo_install = grep { ! exists $installed_packs{$_} } @equo_install;
|
|
|
|
|
|
|
|
|
|
foreach my $p (@packages) {
|
|
|
|
|
say "[$p] Getting the package dependencies which aren't already installed on the system.. ";
|
|
|
|
|
push( @packages_deps, calculate_missing( $p , $dep_scan_depth,\@Installed_Packages,\@Available_Packages) )
|
|
|
|
|
push( @packages_deps, calculate_missing( $p , $dep_scan_depth,\@Installed_Packages,\@Available_Packages, $prune_virtuals) )
|
|
|
|
|
if $equo_install_atoms;
|
|
|
|
|
push( @packages_deps, package_deps( $p, $dep_scan_depth, 0 ) )
|
|
|
|
|
if $equo_install_version;
|
|
|
|
|
say "[$p] Done"
|
|
|
|
|
}
|
|
|
|
|
@packages_deps = grep { defined() and length() } @packages_deps; #cleaning
|
|
|
|
|
say "", "[install] Installing missing dependencies with equo", @packages_deps, "";
|
|
|
|
|
say "", "[install] Those dependencies will be installed with equo :", @packages_deps, "";
|
|
|
|
|
if ($equo_split_install) {
|
|
|
|
|
system("equo i --bdeps $_") for (@packages_deps,@equo_install);
|
|
|
|
|
if (@equo_remove > 0){
|
|
|
|
@@ -257,22 +273,23 @@ if ($use_equo) {
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
say "* Ready to compile, finger crossed";
|
|
|
|
|
say "*** Ready to compile, finger crossed ***";
|
|
|
|
|
|
|
|
|
|
system("emerge --info"); #always give detailed information about the building environment, helpful to debug
|
|
|
|
|
|
|
|
|
|
my $rt;
|
|
|
|
|
|
|
|
|
|
if ($emerge_split_install) {
|
|
|
|
|
for my $pack (@packages){
|
|
|
|
|
my $tmp_rt=system("emerge $emerge_defaults_args -j $jobs $pack");
|
|
|
|
|
$rt=$tmp_rt if ($? == -1 or $? & 127 or !$rt); # if one fails, the build should be considered failed!
|
|
|
|
|
# $rt=$tmp_rt if ($? == -1 or $? & 127 or !$rt); # if one fails, the build should be considered failed!
|
|
|
|
|
}
|
|
|
|
|
$rt=0; #consider the build good anyway, like a "keep-going"
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
$rt = system("emerge $emerge_defaults_args -j $jobs @packages");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
my $rt = system("emerge $emerge_defaults_args -j $jobs @packages");
|
|
|
|
|
|
|
|
|
|
my $return = $rt >> 8;
|
|
|
|
|
|
|
|
|
|
if ($preserved_rebuild) {
|
|
|
|
|
Ettore Di Giacinto
Ben Roberts
mudler