summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-12 15:53:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-12 15:53:37 +0000
commit4bd77b159315f5c646efb2ed622b929ae5904551 (patch)
tree165ab84f1fc32695f20e3b1ebb239752883bf173 /perl-install/pkgs.pm
parent18a5572ee8e3850f1d1f928d43d2e1799594dbd9 (diff)
downloaddrakx-4bd77b159315f5c646efb2ed622b929ae5904551.tar
drakx-4bd77b159315f5c646efb2ed622b929ae5904551.tar.gz
drakx-4bd77b159315f5c646efb2ed622b929ae5904551.tar.bz2
drakx-4bd77b159315f5c646efb2ed622b929ae5904551.tar.xz
drakx-4bd77b159315f5c646efb2ed622b929ae5904551.zip
(computeGroupSize): created
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm74
1 files changed, 71 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c345b5f17..cc3d083a7 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -495,7 +495,7 @@ sub getOtherDeps($$) {
or log::l("other depslist has not same package as hdlist file");
}
-sub getDeps($) {
+sub getDeps {
my ($prefix, $packages) = @_;
#- this is necessary for urpmi.
@@ -684,7 +684,7 @@ sub readCompssUsers {
}
sub setSelectedFromCompssList {
- my ($packages, $compssUsersChoice, $min_level, $max_size, $install_class) = @_;
+ my ($packages, $compssUsersChoice, $min_level, $max_size) = @_;
$compssUsersChoice->{TRUE} = 1; #- ensure TRUE is set
my $nb = selectedSize($packages);
foreach my $p (sort { packageRate($b) <=> packageRate($a) } values %{$packages->{names}}) {
@@ -727,6 +727,74 @@ sub restoreSelected {
mapn { pkgs::packageSetFlagSelected(@_) } $l, $flags;
}
+sub computeGroupSize {
+ my ($packages, $min_level) = @_;
+
+ sub inside {
+ my ($l1, $l2) = @_;
+ my $i = 0;
+ return if @$l1 > @$l2;
+ foreach (@$l1) {
+ my $c;
+ while ($c = $l2->[$i++] cmp $_ ) {
+ return if $c == 1 || $i > @$l2;
+ }
+ }
+ 1;
+ }
+
+ sub or_ify {
+ my ($first, @other) = @_;
+ my @l = split('\|\|', $first);
+ foreach (@other) {
+ @l = map {
+ my $n = $_;
+ map { "$_&&$n" } @l;
+ } split('\|\|');
+ }
+ @l;
+ }
+ sub or_clean {
+ my (@l) = map { [ sort split('&&') ] } @_;
+ my @r;
+ B: while (@l) {
+ my $e = shift @l;
+ foreach (@r, @l) {
+ inside($e, $_) and next B;
+ }
+ push @r, $e;
+ }
+ join("\t", map { join('&&', @$_) } @r);
+ }
+ my (%group, %memo);
+
+ foreach my $p (values %{$packages->{names}}) {
+ my ($rate, @flags) = packageRateRFlags($p);
+ next if !$rate || $rate < $min_level;
+
+ my $flags = join("\t", @flags = or_ify(@flags));
+ $group{$_} = $flags =~ /SYSTEM/ ? 'SYSTEM' : ($memo{$flags} ||= or_clean(@flags));
+
+ #- determine the packages that will be selected when selecting $p. the packages are not selected.
+ my %newSelection;
+ selectPackage($packages, $p, 0, \%newSelection);
+ foreach (grep { $newSelection{$_} } keys %newSelection) {
+ my $s = $group{$_} || do {
+ $packages->{names}{$_}[$VALUES] =~ /\t(.*)/;
+ join("\t", or_ify(split("\t", $1)));
+ };
+ my $m = "$flags\t$s";
+ $group{$_} = $m =~ /SYSTEM/ ? 'SYSTEM' : ($memo{$m} ||= or_clean(@flags, split("\t", $s)));
+ }
+ }
+ my (%sizes);
+ while (my ($k, $v) = each %group) {
+ $sizes{$v} += packageSize($packages->{names}{$k});
+ }
+ print formatXiB($sizes{$_}) , " => $_ ", join(",", @{$pkgs{$_}}), "\n" foreach sort keys %sizes;
+ \%sizes;
+}
+
sub init_db {
my ($prefix) = @_;
@@ -1066,7 +1134,7 @@ sub selectPackagesToUpgrade($$$;$$) {
close OUTPUT;
open STDIN, "<&INPUT_CHILD";
open STDOUT, ">&OUTPUT_CHILD";
- exec if_($ENV{LD_LOADER}, $ENV{LD_LOADER}), "parsehdlist", "--interactive", map { "/tmp/$_->{hdlist}" } values %{$packages->{mediums}}
+ exec "parsehdlist", "--interactive", map { "/tmp/$_->{hdlist}" } values %{$packages->{mediums}}
or c::_exit(1);
}