From 132e49e3690af938a1039a2d1d037bf2687220f8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 29 Dec 2004 17:48:37 +0000
Subject: in computeGroupSize() - fix old ugly bug (CAT_FOO && CAT_BAR ||
 CAT_FOO  was reduced to CAT_FOO && CAT_BAR) - log the time spent - ignore
 already selected packages - group by same rpmsrate flags (nice speedup :)

---
 perl-install/pkgs.pm | 32 +++++++++++++++++++++-----------
 1 file changed, 21 insertions(+), 11 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 71f7832fc..958983bed 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -755,7 +755,7 @@ sub computeGroupSize {
 	B: while (@l) {
 	    my $e = shift @l;
 	    foreach (@r, @l) {
-		inside($e, $_) and next B;
+		inside($_, $e) and next B;
 	    }
 	    push @r, $e;
 	}
@@ -764,21 +764,31 @@ sub computeGroupSize {
     my (%group, %memo, $slowpart_counter);
 
     log::l("pkgs::computeGroupSize");
+    my $time = time();
 
-    foreach my $p (@{$packages->{depslist}}) {
-	my @flags = $p->rflags;
-	next if !$p->rate || $p->rate < $min_level || @flags == 1 && $flags[0] eq 'FALSE';
+    my %pkgs_with_same_rflags;
+    foreach (@{$packages->{depslist}}) {
+	next if !$_->rate || $_->rate < $min_level || $_->flag_available;
+	my $flags = join(' ', $_->rflags);
+	next if $flags eq 'FALSE';
+	push @{$pkgs_with_same_rflags{$flags}}, $_;
+    }
 
-	my $flags = join("\t", @flags = or_ify(@flags));
-	$group{$p->name} = ($memo{$flags} ||= or_clean(@flags));
+    foreach my $raw_flags (keys %pkgs_with_same_rflags) {
+	my $flags = join("\t", my @flags = or_ify(split(' ', $raw_flags)));
+	my $flag_group = $memo{$flags} ||= or_clean(@flags);
+
+	my @pkgs = @{$pkgs_with_same_rflags{$raw_flags}};
+
+	$group{$_->name} = $flag_group foreach @pkgs;
 
 	#- determine the packages that will be selected when selecting $p.
 	#- make a fast selection (but potentially erroneous).
 	#- installed and upgrade flags must have been computed (see compute_installed_flags).
 	my %newSelection;
-	unless ($p->flag_available) {
-	    my @l2 = $p->id;
-	    my $id;
+			 
+	my @l2 = map { $_->id } @pkgs;
+	my $id;
 
 	    while (defined($id = shift @l2)) {
 		exists $newSelection{$id} and next;
@@ -810,14 +820,13 @@ sub computeGroupSize {
 		    }
 		}
 	    }
-	}
 
 	foreach (keys %newSelection) {
 	    my $p = $packages->{depslist}[$_] or next;
+	    next if $p->flag_selected; #- always installed (accounted in system_size)
 	    my $s = $group{$p->name} || do {
 		join("\t", or_ify($p->rflags));
 	    };
-	    next if length($s) > 120; # HACK, truncated too complicated expressions, too costly
 	    my $m = "$flags\t$s";
 	    $group{$p->name} = ($memo{$m} ||= or_clean(@flags, split("\t", $s)));
 	}
@@ -828,6 +837,7 @@ sub computeGroupSize {
 	push @{$pkgs{$v}}, $k;
 	$sizes{$v} += $pkg->size - $packages->{sizes}{$pkg->name};
     }
+    log::l("pkgs::computeGroupSize took: ", formatTimeRaw(time() - $time));
     log::l(sprintf "%s %dMB %s", $_, $sizes{$_} / sqr(1024), join(',', @{$pkgs{$_}})) foreach keys %sizes;
     \%sizes, \%pkgs;
 }
-- 
cgit v1.2.1