summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/help_xml2pm.pl
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2001-09-10 18:47:55 +0000
committerPablo Saratxaga <pablo@mandriva.com>2001-09-10 18:47:55 +0000
commit3f87731ed95331aa116557db8fd8d33a75688e8e (patch)
tree420f191b9966fc33aaa17437847379ec407a267e /perl-install/share/po/help_xml2pm.pl
parent16c55c4bf91d1953482c9bcb9c185e536c24325b (diff)
downloaddrakx-3f87731ed95331aa116557db8fd8d33a75688e8e.tar
drakx-3f87731ed95331aa116557db8fd8d33a75688e8e.tar.gz
drakx-3f87731ed95331aa116557db8fd8d33a75688e8e.tar.bz2
drakx-3f87731ed95331aa116557db8fd8d33a75688e8e.tar.xz
drakx-3f87731ed95331aa116557db8fd8d33a75688e8e.zip
updated German file; added choice of various quotes in help_xml2pm.pl
Diffstat (limited to 'perl-install/share/po/help_xml2pm.pl')
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl25
1 files changed, 16 insertions, 9 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index de63bb436..86aba0292 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -21,7 +21,7 @@ save_help($base);
foreach my $lang (keys %helps) {
local *F;
my ($charset) = cat_("$lang.po") =~ /charset=([^\\]+)/ or die "missing charset in $lang.po\n";
- open F, "| iconv -f utf8 -t $charset > help-$lang.pot";
+ open F, "| iconv -f utf8 -t $charset//TRANSLIT > help-$lang.pot";
print F "\n";
foreach my $id (keys %{$helps{$lang}}) {
$base->{$id} or die "$lang:$id doesn't exist in english\n";
@@ -89,9 +89,14 @@ sub find {
sub rewrite2 {
my ($tree, $lang) = @_;
- my $i18ned_open_quote = $ {{ fr => "«", de => "„"}}{$lang};
- my $i18ned_close_quote = $ {{ fr => "»", de => "“"}}{$lang};
-
+ my $i18ned_open_text_quote = $ {{ fr => "« ", de => "„"}}{$lang};
+ my $i18ned_close_text_quote = $ {{ fr => " »", de => "“"}}{$lang};
+ my $i18ned_open_label_quote = $ {{ fr => "« ", de => "„"}}{$lang};
+ my $i18ned_close_label_quote = $ {{ fr => " »", de => "“"}}{$lang};
+ my $i18ned_open_command_quote = $ {{ fr => "« ", de => "„"}}{$lang};
+ my $i18ned_close_command_quote = $ {{ fr => " »", de => "“"}}{$lang};
+ my $i18ned_open_input_quote = $ {{ fr => "« ", de => "»"}}{$lang};
+ my $i18ned_close_input_quote = $ {{ fr => " »", de => "«"}}{$lang};
# rewrite2_ fills in $help
$help = {};
rewrite2_($tree);
@@ -121,14 +126,16 @@ sub rewrite2_ {
$text =~ s/\s+$//;
qq(\n$text\n);
} elsif (member($tree->{tag}, 'quote', 'citetitle', 'foreignphrase')) {
- ($i18ned_open_quote || "``") . $text . ($i18ned_close_quote || "''");
+ ($i18ned_open_text_quote || "``") . $text . ($i18ned_close_text_quote || "''");
} elsif ($tree->{tag} eq 'guilabel') {
- ($i18ned_open_quote || "\\\"") . $text . ($i18ned_close_quote || "\\\"");
+ ($i18ned_open_label_quote || "\\\"") . $text . ($i18ned_close_label_quote || "\\\"");
} elsif ($tree->{tag} eq 'command') {
- qq(\\"$text\\");
+ ($i18ned_open_command_quote || "\\\"") . $text . ($i18ned_close_command_quote || "\\\"");
} elsif ($tree->{tag} eq 'userinput') {
- qq(>>$text<<);
- } elsif (member($tree->{tag}, 'footnote', 'keysym')) {
+ ($i18ned_open_input_quote || ">>") . $text . ($i18ned_close_input_quote || "<<");
+ } elsif (member($tree->{tag}, 'keysym')) {
+ qq($text);
+ } elsif (member($tree->{tag}, 'footnote')) {
'(*)'
} elsif ($tree->{tag} eq 'warning') {
$text =~ s/^(\s+)/$1!! /;