mgaonline - Mageia Desktop Applet

diff options

author	Thierry Vignaud <tv@mandriva.org>	2009-09-18 13:44:13 +0000
committer	Thierry Vignaud <tv@mandriva.org>	2009-09-18 13:44:13 +0000
commit	3f7b9b0433bf8b330b1f057662bf4180b4916b90 (patch)
tree	51687a01528e9805b637d04ef475863fd7d7c2a2 /po/ga.po
parent	980eb84784616e48cdb43fb80c795e9bca3ae97f (diff)
download	mgaonline-3f7b9b0433bf8b330b1f057662bf4180b4916b90.tar mgaonline-3f7b9b0433bf8b330b1f057662bf4180b4916b90.tar.gz mgaonline-3f7b9b0433bf8b330b1f057662bf4180b4916b90.tar.bz2 mgaonline-3f7b9b0433bf8b330b1f057662bf4180b4916b90.tar.xz mgaonline-3f7b9b0433bf8b330b1f057662bf4180b4916b90.zip

sync with code

Diffstat (limited to 'po/ga.po')

-rw-r--r--

po/ga.po

1 files changed, 5 insertions, 4 deletions

package urpm::select; # $Id$ use urpm::msg; use urpm::util; use urpm::sys; use URPM; my $default_priority_list = 'rpm,perl-URPM,perl-MDV-Distribconf,urpmi,meta-task,glibc'; my @priority_list = split(',', $default_priority_list); sub add_packages_to_priority_upgrade_list { @priority_list = uniq(@priority_list, @_); } sub set_priority_upgrade_option { my ($urpm, $previous) = @_; exists $urpm->{options}{'priority-upgrade'} and return; # comma-separated list of packages that should be installed first, # and that trigger an urpmi restart my $list = join(',', @priority_list); if ($previous) { if ($previous eq $list) { $list = ''; $urpm->{log}(N("urpmi was restarted, and the list of priority packages did not change")); } else { $urpm->{log}(N("urpmi was restarted, and the list of priority packages did change: %s vs %s", $previous, $list)); } } $urpm->{options}{'priority-upgrade'} = $list; } sub _findindeps { my ($urpm, $found, $qv, $v, $caseinsensitive, $src) = @_; foreach (keys %{$urpm->{provides}}) { #- search through provides to find if a provide matches this one; #- but manage choices correctly (as a provides may be virtual or #- defined several times). /$qv/ || !$caseinsensitive && /$qv/i or next; my @list = grep { defined $_ } map { my $pkg = $_; $pkg && ($src ? $pkg->arch eq 'src' : $pkg->arch ne 'src') ? $pkg->id : undef; } $urpm->packages_providing($_); @list > 0 and push @{$found->{$v}}, join '|', @list; } } sub pkg_in_searchmedia { my ($urpm, $pkg) = @_; foreach my $medium (grep { $_->{searchmedia} } @{$urpm->{media}}) { $medium->{start} <= $pkg->id && $medium->{end} >= $pkg->id and return 1; } 0; } sub searchmedia_idlist { my ($urpm) = @_; $urpm->{searchmedia} && [ map { $_->{start} .. $_->{end} } grep { $_->{searchmedia} } @{$urpm->{media}} ]; } sub build_listid_ { my ($urpm) = @_; $urpm->build_listid(undef, undef, searchmedia_idlist($urpm)); } #- search packages registered by their names by storing their ids into the $packages hash. #- Recognized options: #- all #- caseinsensitive #- fuzzy #- src #- use_provides #- #- side-effects: $packages, flag_skip sub search_packages { my ($urpm, $packages, $names, %options) = @_; my ($name2ids, $result) = _search_packages($urpm, $names, %options) or return; foreach my $v (@$names) { my @ids = split /\|/, $name2ids->{$v}; #- in case we have a substring match, we want individual selection (for urpmq --fuzzy) $packages->{$_} = 1 foreach $result eq 'substring' || $options{all} ? @ids : $name2ids->{$v}; foreach (@ids) { my $pkg = $urpm->{depslist}[$_] or next; $urpm->{debug} and $urpm->{debug}("search_packages: found " . $pkg->fullname . " matching $v"); $pkg->set_flag_skip(0); #- reset skip flag as manually selected. } } $result; } #- side-effects: none sub _search_packages { my ($urpm, $names, %options) = @_; my (%exact, %exact_a, %exact_ra, %found, %foundi); foreach my $v (@$names) { my $qv = quotemeta $v; $qv = '(?i)' . $qv if $options{caseinsensitive}; unless ($options{fuzzy}) { #- try to search through provides. if (my @l = map { $_ && ($options{src} ? $_->arch eq 'src' : $_->is_arch_compat) && ($options{use_provides} || $_->name eq $v) && defined($_->id) && (!$urpm->{searchmedia} || pkg_in_searchmedia($urpm, $_)) ? $_ : @{[]}; } $urpm->packages_providing($v)) { #- find the lowest value of is_arch_compat my ($noarch, $arch) = partition { $_->arch eq 'noarch' } @l; my %compats; push @{$compats{$_->is_arch_compat}}, $_ foreach @$arch; delete $compats{0}; #- means not compatible #- if there are pkgs matching arch, prefer them if (%compats && !$options{all}) { my $best_arch = min(keys %compats); %compats = ($best_arch => $compats{$best_arch}); } if (%compats) { @l = (@$noarch, map { @$_ } values %compats); } #- we assume that if there is at least one package providing #- the resource exactly, this should be the best one; but we #- first check if one of the packages has the same name as searched. if (my @l2 = grep { $_->name eq $v } @l) { @l = @l2; } $exact{$v} = join('|', map { $_->id } @l); next; } } if ($options{use_provides} && $options{fuzzy}) { _findindeps($urpm, \%found, $qv, $v, $options{caseinsensitive}, $options{src}); } foreach my $id (build_listid_($urpm)) { my $pkg = $urpm->{depslist}[$id]; ($options{src} ? $pkg->arch eq 'src' : $pkg->is_arch_compat) or next; my $pack_name = $pkg->name; my $pack_ra = $pack_name . '-' . $pkg->version; my $pack_a = "$pack_ra-" . $pkg->release; my $pack = "$pack_a." . $pkg->arch; unless ($options{fuzzy}) { if ($pack eq $v) { $exact{$v} = $id; next; } elsif ($pack_a eq $v) { push @{$exact_a{$v}}, $id; next; } elsif ($pack_ra eq $v || $options{src} && $pack_name eq $v) { push @{$exact_ra{$v}}, $id; next; } } $pack =~ /$qv/ and push @{$found{$v}}, $id; $pack =~ /$qv/i and push @{$foundi{$v}}, $id unless $options{caseinsensitive}; } } my $result = 1; my %name2ids; foreach my $v (@$names) { if (defined $exact{$v}) { $name2ids{$v} = $exact{$v}; } else { #- at this level, we need to search the best package given for a given name, #- always prefer already found package. my %l; foreach (@{$exact_a{$v} || $exact_ra{$v} || $found{$v} || $foundi{$v} || []}) { my $pkg = $urpm->{depslist}[$_]; push @{$l{$pkg->name}}, $pkg; } if (values(%l) == 0 || values(%l) > 1 && !$options{all}) { $urpm->{error}(N("No package named %s", $v)); values(%l) != 0 and $urpm->{error}( N("The following packages contain %s: %s", $v, "\n" . join("\n", sort { $a cmp $b } keys %l)) ); $result = 0; } else { if (!@{$exact_a{$v} || $exact_ra{$v} || []}) { #- we found a non-exact match $result = 'substring'; } $name2ids{$v} = join('|', map { my $best; foreach (@$_) { if ($best && $best != $_) { $_->compare_pkg($best) > 0 and $best = $_; } else { $best = $_; } } map { $_->id } grep { $_->fullname eq $best->fullname } @$_; } values %l); } } } #- return 0 if error, 'substring' if fuzzy match, 1 if ok \%name2ids, $result; } #- Resolves dependencies between requested packages (and auto selection if any). #- handles parallel option if any. #- The return value is true if program should be restarted (in order to take #- care of important packages being upgraded (priority upgrades) #- %options : #- rpmdb #- auto_select #- install_src #- priority_upgrade #- %options passed to ->resolve_requested: #- callback_choices #- keep #- nodeps #- no_suggests sub resolve_dependencies { #- $state->{selected} will contain the selection of packages to be #- installed or upgraded my ($urpm, $state, $requested, %options) = @_; my $need_restart; if ($urpm->{parallel_handler}) { require urpm::parallel; #- help perl_checker; urpm::parallel::resolve_dependencies($urpm, $state, $requested, %options); } else { my $db; if ($options{rpmdb}) { $db = new URPM; $db->parse_synthesis($options{rpmdb}); } else { $db = urpm::db_open_or_die_($urpm); } my $sig_handler = sub { undef $db; exit 3 }; local $SIG{INT} = $sig_handler; local $SIG{QUIT} = $sig_handler; #- auto select package for upgrading the distribution. if ($options{auto_select}) { $urpm->request_packages_to_upgrade($db, $state, $requested, requested => undef, $urpm->{searchmedia} ? (idlist => searchmedia_idlist($urpm)) : (), ); } if ($options{priority_upgrade} && !$options{rpmdb}) { #- first check if a priority_upgrade package is requested #- (it should catch all occurences in --auto-select mode) #- (nb: a package "foo" may appear twice, and only one will be set flag_upgrade) $need_restart = resolve_priority_upgrades_after_auto_select($urpm, $db, $state, $requested, %options); } if (!$need_restart) { $urpm->resolve_requested($db, $state, $requested, %options); #- now check if a priority_upgrade package has been required #- by a requested package if (my @l = grep { $state->{selected}{$_->id} } _priority_upgrade_pkgs($urpm, $options{priority_upgrade})) { $need_restart = _resolve_priority_upgrades($urpm, $db, $state, $state->{selected}, \@l, %options); } } } $need_restart; }


context:
space:
mode: