4.0-23mdk

1 files changed, 66 insertions, 1 deletions

diff --git a/urpmq b/urpmq
index 47e8d9a5..9822c828 100755
--- a/urpmq
+++ b/urpmq
@@ -64,6 +64,7 @@ usage:
 ") . _("  -u             - remove package if a more recent version is already installed.
 ") . _("  -c             - choose complete method for resolving requires closure.
 ") . _("  -P             - do not search in provides to find package.
+") . _("  -R             - reverse search to what requires package.
 ") . _("  -y             - impose fuzzy search (same as --fuzzy).
 ") . _("  -s             - next package is a source package (same as --src).
 ") . _("  -g             - print groups with name also.
@@ -126,6 +127,7 @@ for (@ARGV) {
 	/g/ and do { $query->{group} = 1; next };
 	/p/ and do { $query->{use_provides} = 1; next };
 	/P/ and do { $query->{use_provides} = 0; next };
+	/R/ and do { $query->{what_requires} = 1; next };
 	/y/ and do { $query->{fuzzy} = 1; next };
 	/s/ and do { $query->{src} = 1; next };
 	/v/ and do { $query->{verbose} = 1; next };
@@ -208,7 +210,70 @@ if ($query->{list_aliases}) {
     };
     #- open/close of database should be moved here, in order to allow testing
     #- some bogus case and check for integrity. (note auto_select implies upgrade).
-    if ($query->{auto_select} || $query->{upgrade}) {
+    if ($query->{what_requires}) {
+	#- search for packages that requires on of the package proposed.
+	my (@properties, %requires, %properties, $dep);
+
+	#- keep in mind the requested id (if given) in order to prefer these packages
+	#- on choices instead of anything other one.
+	@properties = keys %requested;
+
+	if (@properties) {
+	    require URPM::Resolve;
+
+	    #- build a requires to packages id hash.
+	    foreach my $pkg (@{$urpm->{depslist}}) {
+		foreach ($pkg->requires_nosense) {
+		    $requires{$_}{$pkg->id} = undef;
+		}
+	    }
+
+	    #- for each dep property evaluated, examine which package will be obsoleted on $db,
+	    #- then examine provides that will be removed (which need to be satisfied by another
+	    #- package present or by a new package to upgrade), then requires not satisfied and
+	    #- finally conflicts that will force a new upgrade or a remove.
+	    while (defined ($dep = shift @properties)) {
+		#- take the best package for each choices of same name.
+		my $packages = $urpm->find_candidate_packages($dep);
+		foreach (values %$packages) {
+		    my ($best_requested, $best);
+		    foreach (@$_) {
+			if ($best_requested || exists $requested{$_->id}) {
+			    if ($best_requested && $best_requested != $_) {
+				$_->compare_pkg($best_requested) > 0 and $best_requested = $_;
+			    } else {
+				$best_requested = $_;
+			    }
+			} elsif ($best && $best != $_) {
+			    $_->compare_pkg($best) > 0 and $best = $_;
+			} else {
+			    $best = $_;
+			}
+		    }
+
+		    #- examine all choice proposed.
+		    my $pkg = $best_requested || $best or next;
+		    exists $state->{selected}{$pkg->id} and next;
+		    $state->{selected}{$pkg->id} = undef;
+
+		    #- for all provides of package, look of what is requiring them.
+		    foreach ($pkg->provides) {
+			if (my ($n, $s) = /^([^\s\[]*)(?:\[\*\])?\[?([^\s\]]*\s*[^\s\]]*)/) {
+			    foreach (map { $urpm->{depslist}[$_] }
+				     grep { ! exists $state->{selected}{$_} && ! exists $properties{$_} }
+				     keys %{$requires{$n} || {}}) {
+				print "examining ".$_->fullname." from $n $s\n";
+				if (grep { URPM::ranges_overlap("$n $s", $_) } $_->requires) {
+				    push @properties, $_->id;
+				    $properties{$_->id} = undef;
+				}
+			    }
+			}
+		    }
+		}
+	    }
+	}
+    } elsif ($query->{auto_select} || $query->{upgrade}) {
 	$urpm->resolve_dependencies($state, \%requested,
 				    auto_select => $query->{auto_select},
 				    callback_choices => $stop_on_choices);