+++ /dev/null
-#!@XML_I18N_TOOLS_PERL@ -w
-
-#
-# The XML Translation Merge Tool
-#
-# Copyright (C) 2000 Free Software Foundation.
-# Copyright (C) 2000, 2001 Eazel, Inc
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License as
-# published by the Free Software Foundation; either version 2 of the
-# License, or (at your option) any later version.
-#
-# This script is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this library; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-# Authors: Maciej Stachowiak <mjs@eazel.com>
-# Kenneth Christiansen <kenneth@gnu.org>
-# Darin Adler <darin@eazel.com>
-#
-
-
-## Release information
-my $PROGRAM = "xml-i18n-merge";
-my $PACKAGE = "xml-i18n-tools";
-my $VERSION = "0.9";
-
-## Script options - Enable by setting value to 1
-my $ENABLE_XML = "1";
-
-## Loaded modules
-use strict;
-use File::Basename;
-use Getopt::Long;
-
-## Scalars used by the option stuff
-my $HELP_ARG = "0";
-my $VERSION_ARG = "0";
-my $OAF_STYLE_ARG = "0";
-my $XML_STYLE_ARG = "0";
-my $KEYS_STYLE_ARG = "0";
-my $DESKTOP_STYLE_ARG = "0";
-my $QUIET_ARG = "0";
-
-
-## Handle options
-GetOptions (
- "help|h|?" => \$HELP_ARG,
- "version|v" => \$VERSION_ARG,
- "quiet|q" => \$QUIET_ARG,
- "oaf-style|o" => \$OAF_STYLE_ARG,
- "xml-style|x" => \$XML_STYLE_ARG,
- "keys-style|k" => \$KEYS_STYLE_ARG,
- "desktop-style|d" => \$DESKTOP_STYLE_ARG
- ) or &error;
-
-
-my $PO_DIR;
-my $FILE;
-my $OUTFILE;
-
-my @languages;
-my %po_files_by_lang = ();
-my %translations = ();
-
-&split_on_argument;
-
-
-## Check for options.
-## This section will check for the different options.
-
-sub split_on_argument {
-
- if ($VERSION_ARG) {
- &version;
-
- } elsif ($HELP_ARG) {
- &help;
- } elsif ($OAF_STYLE_ARG && @ARGV > 2) {
- &place_normal;
- &message;
- &preparation;
- &oaf_merge_translations;
- } elsif ($XML_STYLE_ARG && @ARGV > 2) {
- &place_normal;
- &message;
- &preparation;
- &xml_merge_translations;
- } elsif ($KEYS_STYLE_ARG && @ARGV > 2) {
- &place_normal;
- &message;
- &preparation;
- &keys_merge_translations;
- } elsif ($DESKTOP_STYLE_ARG && @ARGV > 2) {
- &place_normal;
- &message;
- &preparation;
- &desktop_merge_translations;
- } else {
- &help;
- }
-}
-
-
-sub place_normal {
- $PO_DIR = $ARGV[0];
- $FILE = $ARGV[1];
- $OUTFILE = $ARGV[2];
-}
-
-
-## Sub for printing release information
-sub version{
- print "${PROGRAM} (${PACKAGE}) ${VERSION}\n";
- print "Written by Maciej Stachowiak and Kenneth Christiansen, 2000.\n\n";
- print "Copyright (C) 2000 Free Software Foundation, Inc.\n";
- print "Copyright (C) 2000, 2001 Eazel, Inc.\n";
- print "This is free software; see the source for copying conditions. There is NO\n";
- print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n";
- exit;
-}
-
-## Sub for printing usage information
-sub help{
- print "Usage: ${PROGRAM} [OPTIONS] PO_DIRECTORY FILENAME OUTPUT_FILE\n";
- print "Generates an xml file that includes translated versions of some attributes,\n";
- print "from an untranslated source and a po directory that includes translations.\n";
- print " -v, --version shows the version\n";
- print " -h, --help shows this help page\n";
- print " -q, --quiet quiet mode\n";
- print " -o, --oaf-style includes translations in the oaf style\n";
- print " -x, --xml-style includes translations in the xml style\n";
- print " -k, --keys-style includes translations in the keys style\n";
- print " -d, --desktop-style includes translations in the desktop style\n";
- print "\nReport bugs to <mjs\@eazel.com>.\n";
- exit;
-}
-
-
-## Sub for printing error messages
-sub error{
-# print "xml-i18n-merge: invalid option @ARGV\n";
- print "Try `${PROGRAM} --help' for more information.\n";
- exit;
-}
-
-
-sub message {
- print "Merging translations into $OUTFILE.\n" unless $QUIET_ARG;
-}
-
-
-
-sub preparation {
- &gather_po_files;
- &create_translation_database;
-}
-
-
-
-# General-purpose code for looking up translations in .po files
-
-sub gather_po_files
-{
- my @po_files = glob("${PO_DIR}/*.po");
-
- @languages = map (&po_file2lang, @po_files);
-
- foreach my $lang (@languages) {
- $po_files_by_lang{$lang} = shift (@po_files);
- }
-}
-
-sub po_file2lang
-{
- my $tmp = $_;
- $tmp =~ s/^.*\/(.*)\.po$/$1/;
- return $tmp;
-}
-
-
-sub create_translation_database
-{
- foreach my $lang (@languages) {
-
- my $po_file = $po_files_by_lang{$lang};
-
- open PO_FILE, "<$po_file";
-
- while (<PO_FILE>) {
- if (/^#,.*fuzzy/) {
- $_ = <PO_FILE>; next;
- }
- if (/^msgid "(.*)"/ ) {
- my $msgid = $1;
- $_ = <PO_FILE>;
-
- if (/^msgstr "(.+)"/) {
- my $msgstr = $1;
- $translations{$lang . "|" . $msgid} = $msgstr;
- # print "[$lang]$msgstr\n";
- }
- }
- }
- }
-}
-
-sub lookup_translations
-{
- my ($value) = @_;
-
- my %transmap = ();
-
- foreach my $lang (@languages) {
- my $translation = lookup_translation ($value, $lang);
-
- if ($translation) {
- $transmap{$lang} = $translation;
- }
- }
-
- return %transmap;
-}
-
-
-sub lookup_translation
-{
- my ($string, $lang) = @_;
- $string =~ s/\+/\\+/g;
-
- my $salt = "$lang|$string";
-
- if ($translations{$salt}) {
- return $translations{$salt};
- }
-
- return "";
-}
-
-
-sub entity_encode_translations
-{
- my %transmap = @_;
-
- foreach my $key (keys %transmap) {
- $transmap{$key} = entity_encode ($transmap{$key});
- }
-
- return %transmap;
-}
-
-
-sub entity_encode
-{
- my ($pre_encoded) = @_;
-
- $pre_encoded =~ s/\\(.)/$1/g;
- my @list_of_chars = unpack ('C*', $pre_encoded);
-
- return join ('', map (&entity_encode_int, @list_of_chars));
-}
-
-sub entity_encode_int
-{
- if ($_ > 127 || $_ == 34 || $_ == 38) {
- return "&#" . $_ . ";";
- } else {
- return chr $_;
- }
-}
-
-
-## XML/OAF-specific merge code
-
-sub oaf_merge_translations
-{
- my $xml_source; {
- local (*INPUT);
- local $/; # slurp mode
- open INPUT, "<$FILE" or die "can't open $FILE: $!";
- $xml_source = <INPUT>;
- close INPUT;
- }
-
- open OUTPUT, ">$OUTFILE";
-
- while ($xml_source =~ /[ \t]*<[^<]*\s_\w+="[^"]*"[^<]*>/m) {
- print OUTPUT $`;
- my $orig_node = $&;
- $xml_source = $';
-
- my $non_translated_line = $orig_node;
- $non_translated_line =~ s/_(\w+)="/$1="/;
-
- my $new_node = $non_translated_line;
-
- my $value_str = $orig_node;
- $value_str =~ s/.*_\w+="([^"]*)".*/$1/s;
-
- if ($value_str) {
- my %value_translation_map = entity_encode_translations
- (lookup_translations ($value_str));
-
- foreach my $key (sort keys %value_translation_map) {
- my $translation = $value_translation_map{$key};
-
- my $translated_line = $orig_node;
- $translated_line =~ s/name="([^"]*)"/name="$1-$key"/;
- $translated_line =~ s/(\s*)_(\w+)="[^"]*"/$1$2="$translation"/;
-
- $new_node .= "\n$translated_line";
- }
- }
-
- $xml_source = $new_node . $xml_source;
- }
-
- print OUTPUT $xml_source;
-
- close OUTPUT;
-}
-
-
-## XML (non-OAF) merge code
-
-sub xml_merge_translations
-{
- my $xml_source; {
- local (*INPUT);
- local $/; # slurp mode
- open INPUT, "<$FILE" or die "can't open $FILE: $!";
- $xml_source = <INPUT>;
- close INPUT;
- }
-
- open OUTPUT, ">$OUTFILE";
-
- # FIXME: support attribute translations
-
- # First just unmark for translation all empty nodes
- # for example <_foo/> is just replaced by <foo/>
- $xml_source =~ s/<_(\w+)\/>/<$1\/>/mg;
-
- # Support for XML <_foo>blah</_foo> style translations
- while ($xml_source =~ /([ \t]*)<_(\w+)>([^<]+)<\/_\2>/m) {
- print OUTPUT $`;
- $xml_source = $';
-
- my $spaces = $1;
- my $tag_name = $2;
- my $value_str = $3;
-
- my $non_translated_line = "$spaces<$tag_name>$value_str</$tag_name>";
-
- my $new_node = $non_translated_line;
-
- if ($value_str) {
- my %value_translation_map = entity_encode_translations
- (lookup_translations ($value_str));
-
- foreach my $key (sort keys %value_translation_map) {
- my $translation = $value_translation_map{$key};
-
- $new_node .= "\n$spaces<$tag_name xml:lang=\"$key\">$translation</$tag_name>";
- }
- }
-
- $xml_source = $new_node . $xml_source;
- }
-
- print OUTPUT $xml_source;
-
- close OUTPUT;
-}
-
-sub keys_merge_translations
-{
- open INPUT, "<${FILE}";
-
- open OUTPUT, ">${OUTFILE}";
-
- while (<INPUT>) {
- chomp;
- if (/^\s*_\w+=.*/) {
- my $orig_line = $_;
-
- my $non_translated_line = $orig_line;
- $non_translated_line =~ s/_([^="]*)=/$1=/;
-
- print OUTPUT "${non_translated_line}\n";
-
- my $value_str = $orig_line;
- $value_str =~ s/.*_\w+=(.*)/$1/;
-
- if ($value_str) {
- my %value_translation_map = lookup_translations ($value_str);
-
- foreach my $key (sort keys %value_translation_map) {
- my $translation = $value_translation_map{$key};
-
- my $translated_line = $orig_line;
- $translated_line =~ s/_([^="]*)=([^\n]*)/\[$key]$1=$translation/;
- print OUTPUT "$translated_line\n";
- }
- }
- } else {
- print OUTPUT "$_\n";
- }
- }
-
- close OUTPUT;
- close INPUT;
-}
-
-sub desktop_merge_translations
-{
- open INPUT, "<${FILE}";
-
- open OUTPUT, ">${OUTFILE}";
-
- while (<INPUT>) {
- chomp;
- if (/^\s*_\w+=.*/) {
- my $orig_line = $_;
-
- my $non_translated_line = $orig_line;
- $non_translated_line =~ s/_([^="]*)=/$1=/;
-
- print OUTPUT "${non_translated_line}\n";
-
- my $value_str = $orig_line;
- $value_str =~ s/.*_\w+=(.*)/$1/;
-
- if ($value_str) {
- my %value_translation_map = lookup_translations ($value_str);
-
- foreach my $key (sort keys %value_translation_map) {
- my $translation = $value_translation_map{$key};
-
- my $translated_line = $orig_line;
- $translated_line =~ s/^_([^="]*)=([^\n]*)/$1\[$key]=$translation/;
- print OUTPUT "$translated_line\n";
- }
- }
- } else {
- print OUTPUT "$_\n";
- }
- }
-
- close OUTPUT;
- close INPUT;
-
-}
projects / runtime.git / blobdiff