aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-07 17:55:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-07 17:55:13 +0000
commit18d7a48cbac8145294f93311b573714d11eca823 (patch)
tree27722957e1471d35ed7e5faddf10faaaa1e14453 /URPM
parent9ea3a8cea53cacffc0527966646b26bc1f90ad45 (diff)
downloadperl-URPM-18d7a48cbac8145294f93311b573714d11eca823.tar
perl-URPM-18d7a48cbac8145294f93311b573714d11eca823.tar.gz
perl-URPM-18d7a48cbac8145294f93311b573714d11eca823.tar.bz2
perl-URPM-18d7a48cbac8145294f93311b573714d11eca823.tar.xz
perl-URPM-18d7a48cbac8145294f93311b573714d11eca823.zip
remove unused compute_deps() \o/
Diffstat (limited to 'URPM')
-rw-r--r--URPM/Build.pm213
1 files changed, 0 insertions, 213 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm
index 72df420..b1efee3 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -179,219 +179,6 @@ sub fuzzy_parse {
return ();
}
-#- compute dependencies, result in stored in info values of urpm.
-#- operations are incremental, it is possible to read just one hdlist, compute
-#- dependencies and read another hdlist, and again.
-#- parameters are :
-#- callback : callback to relocate reference to package id.
-sub compute_deps {
- my ($urpm, %options) = @_;
- my %propagated_weight = (
- basesystem => 10000,
- msec => 20000,
- filesystem => 50000,
- );
- my ($locales_weight, $step_weight, $fixed_weight) = (-5000, 10000, $propagated_weight{basesystem});
-
- #- avoid recomputing already present infos, take care not to modify
- #- existing entries, as the array here is used instead of values of infos.
- my $start = @{$urpm->{deps} ||= []};
- my $end = $#{$urpm->{depslist} || []};
-
- #- check if something has to be done.
- $start > $end and return;
-
- #- keep track of prereqs.
- my %prereqs;
-
- #- take into account in which hdlist a package has been found.
- #- this can be done by an incremental take into account generation
- #- of depslist.ordered part corresponding to the hdlist.
- #- compute closed requires, do not take into account choices.
- foreach ($start .. $end) {
- my $pkg = $urpm->{depslist}[$_];
-
- my %required_packages;
- my @required_packages;
- my %requires;
-
- foreach ($pkg->requires) {
- my ($n, $prereq) = /^([^\s\[]*)(\[\*\])?/;
- $requires{$n} = $prereq && 1;
- }
- my @requires = keys %requires;
-
- while (my $req = shift @requires) {
- $req =~ /^basesystem/ and next; #- never need to requires basesystem directly as always required! what a speed up!
- my $treq = (
- $req =~ /^\d+$/ ? [ $req ]
- : $urpm->{provides}{$req} ? [ keys %{$urpm->{provides}{$req}} ]
- : [ ($req !~ /NOTFOUND_/ ? "NOTFOUND_" : "") . $req ]
- );
- if (@$treq > 1) {
- #- this is a choice, no closure need to be done here.
- push @required_packages, $treq;
- } else {
- #- this could be nothing if the provides is a file not found.
- #- and this has been fixed above.
- foreach (@$treq) {
- my $pkg_ = /^\d+$/ && $urpm->{depslist}[$_];
- exists $required_packages{$_} and $pkg_ = undef;
- $required_packages{$_} ||= $requires{$req}; $pkg_ or next;
- foreach ($pkg_->requires_nosense) {
- exists $requires{$_} or push @requires, $_;
- $requires{$_} ||= $requires{$req};
- }
- }
- }
- }
- #- examine choice to remove those which are not mandatory.
- foreach (@required_packages) {
- unless (grep { exists $required_packages{$_} } @$_) {
- $required_packages{join '|', sort { $a <=> $b } @$_} = undef;
- }
- }
-
- #- store a short representation of requires.
- $urpm->{requires}[$_] = join ' ', keys %required_packages;
- foreach my $d (keys %required_packages) {
- $required_packages{$d} or next;
- $prereqs{$d}{$_} = undef;
- }
- }
-
- #- expand choices and closure again.
- my %ordered;
- foreach ($start .. $end) {
- my @requires = $_;
- my ($dep, %requires);
- while (defined ($dep = shift @requires)) {
- exists $requires{$dep} || /^[^\d\|]*$/ and next;
- foreach ($dep, split ' ', (defined $urpm->{deps}[$dep] ? $urpm->{deps}[$dep] : $urpm->{requires}[$dep])) {
- if (/\|/) {
- push @requires, split /\|/, $_;
- } else {
- /^\d+$/ and $requires{$_} = undef;
- }
- }
- }
-
- my $pkg = $urpm->{depslist}[$_];
- my $delta = 1 + $propagated_weight{$pkg->name};
- foreach (keys %requires) {
- $ordered{$_} += $delta;
- }
- }
-
- #- some package should be sorted at the beginning.
- foreach (qw(basesystem msec rpm locales filesystem setup glibc sash bash libtermcap2 termcap readline ldconfig)) {
- foreach (keys %{$urpm->{provides}{$_} || {}}) {
- /^\d+$/ and $ordered{$_} = $fixed_weight;
- }
- /locales/ and $locales_weight += $fixed_weight;
- $fixed_weight += $step_weight;
- }
- foreach ($start .. $end) {
- my $pkg = $urpm->{depslist}[$_];
-
- $pkg->name =~ /locales-[a-zA-Z]/ and $ordered{$_} = $locales_weight;
- }
-
- #- compute base flag, consists of packages which are required without
- #- choices of basesystem and are ALWAYS installed. these packages can
- #- safely be removed from requires of others packages.
- foreach (qw(basesystem glibc kernel)) {
- foreach (keys %{$urpm->{provides}{$_} || {}}) {
- foreach ($_, split ' ', (defined $urpm->{deps}[$_] ? $urpm->{deps}[$_] : $urpm->{requires}[$_])) {
- /^\d+$/ and $urpm->{depslist}[$_] and $urpm->{depslist}[$_]->set_flag_base(1);
- }
- }
- }
-
- #- give an id to each packages, start from number of package already
- #- registered in depslist.
- my %remap_ids; @remap_ids{sort {
- exists $prereqs{$b}{$a} && ! exists $prereqs{$a}{$b} ? 1 :
- $ordered{$b} <=> $ordered{$a} or do {
- my ($na, $nb) = map { $urpm->{depslist}[$_]->name } ($a, $b);
- my ($sa, $sb) = map { /^lib(.*)/ ? $1 : '' } ($na, $nb);
- $sa && $sb ? $sa cmp $sb : $sa ? -1 : $sb ? 1 : $na cmp $nb;
- } } ($start .. $end)} = ($start .. $end);
-
- #- now it is possible to clean ordered and prereqs.
- %ordered = %prereqs = ();
-
- #- recompute requires to use packages id, drop any base packages or
- #- reference of a package to itself.
- my @depslist;
- foreach ($start .. $end) {
- my $pkg = $urpm->{depslist}[$_];
-
- #- set new id.
- $pkg->set_id($remap_ids{$_});
-
- my ($id, $base, %requires_id, %not_founds);
- foreach (split ' ', $urpm->{requires}[$_]) {
- if (/\|/) {
- #- all choices are grouped together at the end of requires,
- #- this allow computation of dropable choices.
- my ($to_drop, @choices_base_id, @choices_id);
- foreach (split /\|/, $_) {
- my ($id, $base) = (exists($remap_ids{$_}) ? $remap_ids{$_} : $_, $urpm->{depslist}[$_]->flag_base);
- $base and push @choices_base_id, $id;
- $base &&= ! $pkg->flag_base;
- $to_drop ||= $id == $pkg->id || exists $requires_id{$id} || $base;
- push @choices_id, $id;
- }
-
- #- package can safely be dropped as it will be selected in requires directly.
- $to_drop and next;
-
- #- if a base package is in a list, keep it instead of the choice.
- if (@choices_base_id) {
- @choices_id = @choices_base_id;
- $base = 1;
- }
- if (@choices_id == 1) {
- $id = $choices_id[0];
- } else {
- my $choices_key = join '|', sort { $a <=> $b } @choices_id;
- $requires_id{$choices_key} = undef;
- next;
- }
- } elsif (/^\d+$/) {
- ($id, $base) = (exists($remap_ids{$_}) ? $remap_ids{$_} : $_, $urpm->{depslist}[$_]->flag_base);
- } else {
- $not_founds{$_} = undef;
- next;
- }
-
- #- select individual package from choices or defined package.
- $base &&= ! $pkg->flag_base;
- $base || $id == $pkg->id or $requires_id{$id} = undef;
- }
- #- be smart with memory usage.
- delete $urpm->{requires}[$_];
- $urpm->{deps}[$remap_ids{$_}] = join ' ', ((sort { ($a =~ /^(\d+)/)[0] <=> ($b =~ /^(\d+)/)[0] } keys %requires_id),
- keys %not_founds);
- $depslist[$remap_ids{$_}-$start] = $pkg;
- }
-
- #- remap all provides ids for new package position and update depslist.
- delete $urpm->{requires};
- @{$urpm->{depslist}}[$start .. $end] = @depslist;
- foreach my $h (values %{$urpm->{provides}}) {
- my %provided;
- foreach (keys %{$h || {}}) {
- $provided{exists($remap_ids{$_}) ? $remap_ids{$_} : $_} = delete $h->{$_};
- }
- $h = \%provided;
- }
- $options{callback} and $options{callback}->($urpm, \%remap_ids, %options);
-
- ($start, $end);
-}
-
#- build an hdlist from existing depslist, from start to end inclusive.
#- parameters are :
#- hdlist : hdlist file to use.