git-hooks: new scripts

move up the adjustment of emerge/equo arguments, avoid to copy artifacts when PRETEND mode is on

builder

@@ -41,6 +41,8 @@ my $qualityassurance_checks   = $ENV{QA_CHECKS} // 0;
 my $remote_conf_portdir       = $ENV{REMOTE_CONF_PORTDIR};
 my $remote_portdir            = $ENV{REMOTE_PORTDIR};
 my $pretend                   = $ENV{PRETEND} // 0;
+my $obsoleted                 = $ENV{DETECT_OBSOLETE} // 0;
+my $target_overlay            = $ENV{TARGET_OVERLAY};
 
 my $make_conf = $ENV{MAKE_CONF};
 
@@ -236,8 +238,9 @@ sub uniq {
     keys %{ { map { $_ => 1 } @_ } };
 }
 
-sub detect_useflags
-{ # Detect useflags defined as [-alsa,avahi] in atom, and fill $hash within the $target sub-hash
+# Detect useflags defined as [-alsa,avahi] in atom,
+# and fill $hash within the $target sub-hash
+sub detect_useflags {
     my ( $target, $packages ) = @_;
     my @packs = @{$packages};
     for my $i ( 0 .. $#packs ) {
@@ -316,6 +319,14 @@ say "\t* " . $_ for @ARGV;
 
 say "[*] Syncing configurations files, Layman and Portage";
 
+if ($pretend) {
+    say "[*] PRETEND enabled, no real action will be performed.";
+    say "    Bear in mind that in such way the list of packages";
+    say "    that emerge will try to compile will be bigger";
+    $equo_install_args    .= " -p";
+    $emerge_defaults_args .= " -p";
+}
+
 # Syncronizing portage configuration and adding overlays
 system("echo 'en_US.UTF-8 UTF-8' > /etc/locale.gen");    #be sure about that.
 
@@ -524,7 +535,7 @@ if ($use_equo) {
         safe_call("equo i $equo_install_args --bdeps $_")
             for ( @packages_deps, @equo_install )
             ; ## bail out here, if installs fails. emerge will compile a LOT of stuff
-        if ( @equo_remove > 0 and !$pretend) {
+        if ( @equo_remove > 0 and !$pretend ) {
             say "Removing with equo: @equo_remove";
             system("equo rm --nodeps $_") for (@equo_remove);
         }
@@ -550,18 +561,12 @@ if ( $qualityassurance_checks == 1 ) {
 
 say "*** Ready to compile, finger crossed ***";
 
-if($pretend){
-  say "----> PRETEND mode <----";
-  $equo_install_args.=" -p";
-  $emerge_defaults_args.=" -p"
-}
-
 system("emerge --info")
     ; #always give detailed information about the building environment, helpful to debug
 
 my $rt;
 
-if ( $emerge_remove and $emerge_remove ne "" and !$pretend) {
+if ( $emerge_remove and $emerge_remove ne "" ) {
     say "Removing with emerge: $emerge_remove";
     system("emerge -C $_") for split( / /, $emerge_remove );
 }
@@ -579,7 +584,7 @@ my $return = $rt >> 8;
 # best effort -B
 compile_packs( "injected_targets", @injected_packages );
 
-if ($preserved_rebuild and !$pretend) {
+if ( $preserved_rebuild and !$pretend ) {
 
     system("emerge -j $jobs --buildpkg \@preserved-rebuild");
     system("revdep-rebuild");
@@ -595,9 +600,14 @@ if ( $qualityassurance_checks == 1 ) {
     }
 }
 
+if ( $obsoleted and $target_overlay ) {
+    say "*** Detecting obsoletes ***";
+    system("sabayon-detectobsolete --overlay ${target_overlay}");
+}
+
 # Copy files to artifacts folder
 system(
     "mkdir -p $artifacts_folder;cp -rfv /usr/portage/packages $artifacts_folder"
-) if ( $artifacts_folder and !$return );
+) if ( $artifacts_folder and !$return and !$pretend );
 
 exit($return);

git-hooks/overlays-commit-msg.pl

@@ -0,0 +1,84 @@
+#!/usr/bin/env perl
+# This code is licenced GPLv2 or newer.
+
+use warnings;
+use strict;
+use 5.010;
+
+my $g_thres = shift // 3;
+
+sub set_atoms {
+	my %atoms = ();
+	my $fh = shift;
+	while (my $line = <$fh>) {
+		chomp $line;
+		my @words = split(' ', $line, 2);
+		next if $words[0] eq "??"; # allow "dangling" files
+		my $what = $words[1];
+		@words = split(m:/:, $what);
+		my $pkg;
+		if (@words >= 2) {
+			$pkg = join("/", @words[0..1]);
+		} else {
+			$pkg = $words[0]
+		}
+		$atoms{$pkg} = 1;
+	}
+	keys %atoms
+}
+
+sub num {
+	my $what = shift;
+	my @arr = @_;
+	my $num = 0;
+	for (@arr) {
+		$num++ if index($_, "$what-") == 0
+	}
+	$num
+}
+
+sub replace {
+	my $atom = shift;
+	my @arr = @_;
+	my @new_arr;
+	for my $item (@arr) {
+		if( index($item, $atom) == 0 ) {
+			1;
+		} else {
+			push @new_arr, $item;
+		}
+	}
+	push @new_arr, "$atom*";
+	@new_arr;
+}
+
+# try to make (a*, b, c*) from (a-1, a, a-2, b, c, c-1),
+# for example, if numberOf(/^a-?/) >= $thres
+sub do_reduce {
+	my $thres = shift;
+	my @atoms = @_;
+	my @processed_atoms = @atoms;
+	for my $atom (@atoms) {
+		@processed_atoms = replace($atom, @processed_atoms)
+			if (num($atom, @processed_atoms) >= $thres);
+	}
+	@processed_atoms
+}
+
+#my @atoms = set_atoms(*DATA);
+my @atoms = set_atoms(*STDIN);
+@atoms = do_reduce($g_thres, @atoms);
+say join ",", sort @atoms;
+
+__DATA__
+ M net-p2p/transmission-base/metadata.xml
+ M net-p2p/transmission-cli/metadata.xml
+ M net-p2p/transmission-daemon/metadata.xml
+ M net-p2p/transmission-gtk/metadata.xml
+ M net-p2p/transmission-qt4/metadata.xml
+ M net-p2p/transmission/metadata.xml
+ M cat/pkg-1
+ M cat/pkg-2
+ M cat/pkg
+ M net-p2p/nic
+?? betr.pl

git-hooks/prepare-commit-msg.sab-overlay

@@ -0,0 +1,20 @@
+#!/bin/sh
+# This code is licenced GPLv2 or newer.
+
+# An example hook script to prepare the commit log message.
+# Called by "git commit" with the name of the file that has the
+# commit message, followed by the description of the commit
+# message's source.  The hook's purpose is to edit the commit
+# message file.  If the hook fails with a non-zero status,
+# the commit is aborted.
+
+_out=$(git status -s | overlays-commit-msg.pl)
+_ver=$(git status -s | sed -rn 's/^[AR] *(.* -> )?.*-([^-]+)\.ebuild$/\2/p' | head -n 1)
+_bump=${_ver:+version bump to $_ver}
+
+case $2 in
+#message)
+#	sed -i -e "1s:^:[$_subdir/$_curdir] :" "$1" ;;
+"")
+	sed -i -e "1i[$_out] $_bump" "$1" ;;
+esac

sabayon-buildpackages

@@ -57,6 +57,8 @@ docker_volumes=( -v "$OUTPUT_DIR:/usr/portage/packages" )
 [ -z "$REMOTE_PORTDIR" ] || docker_env+=(-e "REMOTE_PORTDIR=$REMOTE_PORTDIR")
 [ -z "$ETP_NOCACHE" ] || docker_env+=(-e "ETP_NOCACHE=$ETP_NOCACHE")
 [ -z "$PRETEND" ] || docker_env+=(-e "PRETEND=$PRETEND")
+[ -z "$DETECT_OBSOLETE" ] || docker_env+=(-e "DETECT_OBSOLETE=$DETECT_OBSOLETE")
+[ -z "$TARGET_OVERLAY" ] || docker_env+=(-e "TARGET_OVERLAY=$TARGET_OVERLAY")
 [ -d "$LOCAL_OVERLAY" ] && docker_volumes+=(-v "$LOCAL_OVERLAY:/usr/local/local_portage")
 
 if [ -e $MAKE_CONF ]; then

sabayon-detectobsolete

@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+# mudler <mudler@sabayon.org>
+# this tool requires querypkg
+use Getopt::Long;
+use strict;
+use warnings;
+my $arch;
+my $verbose;
+my $overlay;
+GetOptions(
+    "arch=s"    => \$arch,
+    "overlay=s" => \$overlay,
+    "verbose"   => \$verbose
+) or die("Error in command line arguments\n");
+
+die("You should at least supply an overlay with --overlay") if !$overlay;
+
+# Input: Overlay absolute path
+# Output: array with package names (category/name)
+sub get_packages {
+    keys %{
+        {   map {
+                s/$overlay\/|\.ebuild//g;
+                $_ = join( '/', ( split( /\//, $_ ) )[ 0, 1 ] );
+                $_ => 1
+            } glob( $_[0] . "/*/*/*.ebuild" )
+        }
+    };
+}
+
+# Input: package (category/name)
+# Output: returns 1 if obsolete and can be removed
+sub obsolete_package($$) {
+    my $package = $_[0];
+    my $arch    = $_[1];
+    my $l_arch  = ( defined $arch and $arch ne "" ? "--arch $arch" : "" );
+    print "querypkg -q $l_arch $package --show spm_repo\n" if $verbose;
+    my @out = `querypkg -q $l_arch $package --show spm_repo`;
+    chomp(@out);
+    return 1 if "@out" eq "";
+    foreach my $l (@out) {
+        print " >> $l\n" if $verbose;
+        return 1 if ( $l =~ /$package.*\{spm_repo\:gent.*/ );
+    }
+    return 0;
+}
+
+my @packages = get_packages($overlay);
+my @obsoletes;
+
+foreach my $p (@packages) {
+    print "[$p] Checking if there is a version in the repositories.... ";
+    print "\n" if $verbose;
+    if ( obsolete_package( $p, $arch ) ) {
+        print " OBSOLETE! \n";
+        push( @obsoletes, $p );
+    }
+    else {
+        print " ok  \n";
+    }
+}
+
+print "\n";
+print "Obsoletes found:\n\n";
+print "$_\n" for @obsoletes;