From cbc25c22fcb8ea12ba98386e1489bf8f02e4e86a Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sun, 19 May 2013 12:17:57 +0200 Subject: makepkg-template: Add gettext support This also slighty changes the word order in the description for --newest. Signed-off-by: Florian Pritz Signed-off-by: Allan McRae --- scripts/makepkg-template.pl.in | 74 +++++++++++++++++++++++++++--------------- scripts/po/POTFILES.in | 1 + 2 files changed, 48 insertions(+), 27 deletions(-) (limited to 'scripts') diff --git a/scripts/makepkg-template.pl.in b/scripts/makepkg-template.pl.in index 1ba007bb..6997a835 100755 --- a/scripts/makepkg-template.pl.in +++ b/scripts/makepkg-template.pl.in @@ -3,9 +3,9 @@ use warnings; use strict; use v5.10.1; use Cwd qw(abs_path); -use File::Spec; use Getopt::Long; -use Pod::Usage; +use Module::Load; +use Module::Load::Conditional qw(can_load); my %opts = ( input => '@BUILDSCRIPT@', @@ -15,9 +15,26 @@ my %opts = ( my $template_name_charset = qr/[[:alnum:]+_.@-]/; my $template_marker = qr/# template/; +# runtime loading to avoid dependency on cpan since this is the only non-core module +my $loaded_gettext = can_load(modules => {'Locale::gettext' => undef}); +if ($loaded_gettext) { + Locale::gettext::bindtextdomain("pacman-scripts", '@localedir@'); + Locale::gettext::textdomain("pacman-scripts"); +} + +sub gettext { + my ($string) = @_; + + if ($loaded_gettext) { + return Locale::gettext::gettext($string); + } else { + return $string; + } +} + sub burp { my ($file_name, @lines) = @_; - open (my $fh, ">", $file_name) || die "can't create $file_name $!" ; + open (my $fh, ">", $file_name) || die sprintf(gettext("can't create '%s': %s"), $file_name, $!); print $fh @lines; close $fh; } @@ -34,20 +51,22 @@ sub parse_template_line { foreach my $element (@elements) { my ($key, $val) = ($element =~ /^([a-z0-9]+)=(.*)$/); - die "invalid key/value pair $filename:$linenumber: $line" - unless $key and $val; + unless ($key and $val) { + die gettext("invalid key/value pair\n%s:%s: %s"), + "$filename:$linenumber: $line"; + } $values{$key} = $val; } # end doesn't take arguments if ($values{command} ne "end") { if (!$values{name}) { - die "invalid template line: can't find template name\n", + die gettext("invalid template line: can't find template name\n"), "$filename:$linenumber: $line"; } unless ($values{name} =~ /^$template_name_charset+$/) { - die "invalid chars used in name '$values{name}'. allowed: [:alnum:]+_.@-\n", + die sprintf(gettext("invalid chars used in name '%s'. allowed: [:alnum:]+_.\@-\n"), $values{name}), "$filename:$linenumber: $line"; } } @@ -72,7 +91,7 @@ sub load_template { my ($version) = (abs_path($path) =~ /-([0-9.]+)[.]template$/); if (!$version) { - die "Couldn't detect version for template '$values->{name}'"; + die sprintf(gettext("Couldn't detect version for template '%s'"), $values->{name}); } my $parsed = process_file($path); @@ -91,7 +110,7 @@ sub process_file { my $nesting_level = 0; my $linenumber = 0; - open (my $fh, "<", $filename) or die "failed to open '$filename': $!"; + open (my $fh, "<", $filename) or die sprintf(gettext("failed to open '%s': %s"), $filename, $!); my @lines = <$fh>; close $fh; @@ -113,7 +132,7 @@ sub process_file { } default { - die "Unknown template marker '$values->{command}'\n", + die sprintf(gettext("Unknown template marker '%s'\n"), $values->{command}), "$filename:$linenumber: $line"; } } @@ -134,15 +153,30 @@ sub process_file { return $ret; } +sub usage { + my ($exitstatus) = @_; + print gettext("makepkg-template [options]\n"); + print "\n"; + print gettext("Options:\n"); + printf(gettext(" --input, -p Build script to read (default: %s)\n"), '@BUILDSCRIPT@'); + print gettext(" --output, -o file to output to (default: input file)\n"); + print gettext(" --newest, -n update templates to newest version\n"); + print gettext(" (default: use version specified in the template markers)\n"); + print gettext(" --template-dir directory to search for templates\n"); + printf(gettext(" (default: %s)\n"), '@TEMPLATE_DIR@'); + print "\n"; + exit($exitstatus); +} + Getopt::Long::Configure ("bundling"); GetOptions( - "help" => sub {pod2usage(-exitval => 0, -verbose => 1); }, - "h" => sub {pod2usage(-exitval => 0, -verbose => 0); }, + "help" => sub {usage(0); }, + "h" => sub {usage(0); }, "input|p=s" => \$opts{input}, "output|o=s" => \$opts{output}, "newest|n" => \$opts{newest}, "template-dir=s" => \$opts{template_dir}, -) or pod2usage(1); +) or usage(1); $opts{output} = $opts{input} unless $opts{output}; @@ -151,18 +185,4 @@ $opts{output} = "/dev/stdout" if $opts{output} eq "-"; burp($opts{output}, process_file($opts{input})); -__END__ -=head1 SYNOPSIS - -makepkg-template [options] - - Options: - --input, -p Build script to read (default: @BUILDSCRIPT@) - --output, -o file to output to (default: input file) - --newest, -n update templates to newest version - (default: use specified version in the template markers) - --template-dir directory to search for templates - (default: @TEMPLATE_DIR@) - -=cut # vim: set noet: diff --git a/scripts/po/POTFILES.in b/scripts/po/POTFILES.in index 162731b9..f9e8a481 100644 --- a/scripts/po/POTFILES.in +++ b/scripts/po/POTFILES.in @@ -2,6 +2,7 @@ # scripts with gettext translations scripts/makepkg.sh.in +scripts/makepkg-template.pl.in scripts/pacman-db-upgrade.sh.in scripts/pacman-key.sh.in scripts/pacman-optimize.sh.in -- cgit v1.2.3-24-g4f1b