From c19e3039a252f50b986a2e4b8e66817395f512ee Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Wed, 5 Mar 2003 20:06:46 +0000 Subject: changed name of _() function to N() use of perl_checker to create pot file --- urpmf | 58 +++++++++++++++++++++++++++++----------------------------- 1 file changed, 29 insertions(+), 29 deletions(-) (limited to 'urpmf') diff --git a/urpmf b/urpmf index 1e6c1906..bb621543 100755 --- a/urpmf +++ b/urpmf @@ -20,42 +20,42 @@ use urpm; #- get I18N translation method. -import urpm _; +import urpm N; sub usage { - print STDERR _("urpmf version %s + print STDERR N("urpmf version %s Copyright (C) 2002 MandrakeSoft. This is free software and may be redistributed under the terms of the GNU GPL. usage: -", $urpm::VERSION) . _(" --help - print this help message. -") . _(" --update - use only update media. -") . _(" --media - use only the given media, separated by comma. -") . _(" --synthesis - use the synthesis given instead of urpmi db. -") . _(" --verbose - verbose mode. -") . _(" --quiet - do not print tag name (default if no tag given on command +", $urpm::VERSION) . N(" --help - print this help message. +") . N(" --update - use only update media. +") . N(" --media - use only the given media, separated by comma. +") . N(" --synthesis - use the synthesis given instead of urpmi db. +") . N(" --verbose - verbose mode. +") . N(" --quiet - do not print tag name (default if no tag given on command line, incompatible with interactive mode). -") . _(" --all - print all tags. -") . _(" --name - print tag name: rpm filename (assumed if no tag given on +") . N(" --all - print all tags. +") . N(" --name - print tag name: rpm filename (assumed if no tag given on command line but without package name). -") . _(" --group - print tag group: group. -") . _(" --size - print tag size: size. -") . _(" --epoch - print tag epoch: epoch. -") . _(" --summary - print tag summary: summary. -") . _(" --description - print tag description: description. -") . _(" --provides - print tag provides: all provides (multiple lines). -") . _(" --requires - print tag requires: all requires (multiple lines). -") . _(" --files - print tag files: all files (multiple lines). -") . _(" --conflicts - print tag conflicts: all conflicts (multiple lines). -") . _(" --obsoletes - print tag obsoletes: all obsoletes (multiple lines). -") . _(" -i - ignore case distinctions in every pattern. -") . _(" -f - print version, release and arch with name. -") . _(" -e - include perl code directly as perl -e. -") . _(" -a - binary AND operator, true if both expression are true. -") . _(" -o - binary OR operator, true if one expression is true. -") . _(" ! - unary NOT, true if expression is false. -") . _(" ( - left parenthesis to open group expression. -") . _(" ) - right parenthesis to close group expression. +") . N(" --group - print tag group: group. +") . N(" --size - print tag size: size. +") . N(" --epoch - print tag epoch: epoch. +") . N(" --summary - print tag summary: summary. +") . N(" --description - print tag description: description. +") . N(" --provides - print tag provides: all provides (multiple lines). +") . N(" --requires - print tag requires: all requires (multiple lines). +") . N(" --files - print tag files: all files (multiple lines). +") . N(" --conflicts - print tag conflicts: all conflicts (multiple lines). +") . N(" --obsoletes - print tag obsoletes: all obsoletes (multiple lines). +") . N(" -i - ignore case distinctions in every pattern. +") . N(" -f - print version, release and arch with name. +") . N(" -e - include perl code directly as perl -e. +") . N(" -a - binary AND operator, true if both expression are true. +") . N(" -o - binary OR operator, true if one expression is true. +") . N(" ! - unary NOT, true if expression is false. +") . N(" ( - left parenthesis to open group expression. +") . N(" ) - right parenthesis to close group expression. "); exit(0); } @@ -112,7 +112,7 @@ foreach (qw(group size epoch summary description provides requires files conflic $params{$_} and $callback .= 'foreach my $e ($pkg->'.$_.') { local $_ = $pkg->'.$full.'name."'.(!$quiet && ":$_").':$e"; '.$expr.' or next; print "$_\n" }'; } $callback .= ' 1; }'; -$urpm->{log}(_("callback is :\n%s\n", $callback)); +$urpm->{log}(N("callback is :\n%s\n", $callback)); $callback = eval $callback; $@ and usage; -- cgit v1.2.1