From 0706075d85e3a59e8a1f5ba2187701a278ecf88a Mon Sep 17 00:00:00 2001
From: thomascube <thomas@roundcube.net>
Date: Wed, 07 Dec 2011 03:51:01 -0500
Subject: [PATCH] Fix newline handling in gettext export; add import script to read .po localization files
---
bin/importgettext.sh | 194 ++++++++++++++++++++++++++++++++++++++++++++++++
bin/exportgettext.sh | 7 -
2 files changed, 197 insertions(+), 4 deletions(-)
diff --git a/bin/exportgettext.sh b/bin/exportgettext.sh
index f59474e..9a935da 100755
--- a/bin/exportgettext.sh
+++ b/bin/exportgettext.sh
@@ -7,7 +7,7 @@
| |
| This file is part of the Roundcube Webmail client |
| Copyright (C) 2011, The Roundcube Dev Team |
- | Licensed under the GNU GPLv3 |
+ | Licensed under the GNU General Public License |
| |
| PURPOSE: |
| Export PHP-based localization files to PO files for gettext |
@@ -187,10 +187,9 @@
function gettext_quote($str)
{
$out = "";
- $lines = explode("\n", stripslashes($str));
- $suffix = count($lines) > 1 ? '\n' : '';
+ $lines = explode("\n", wordwrap(stripslashes($str)));
foreach ($lines as $line)
- $out .= '"' . addcslashes($line, '"') . $suffix . "\"\n";
+ $out .= '"' . addcslashes($line, '"') . "\"\n";
return rtrim($out);
}
diff --git a/bin/importgettext.sh b/bin/importgettext.sh
new file mode 100755
index 0000000..d9c34ec
--- /dev/null
+++ b/bin/importgettext.sh
@@ -0,0 +1,194 @@
+#!/usr/bin/env php
+<?php
+/*
+
+ +-----------------------------------------------------------------------+
+ | bin/importgettext.sh |
+ | |
+ | This file is part of the Roundcube Webmail client |
+ | Copyright (C) 2011, The Roundcube Dev Team |
+ | Licensed under the GNU General Public License |
+ | |
+ | PURPOSE: |
+ | Import localizations from gettext PO format |
+ +-----------------------------------------------------------------------+
+ | Author: Thomas Bruederli <roundcube@gmail.com> |
+ +-----------------------------------------------------------------------+
+
+ $Id$
+
+*/
+
+define('INSTALL_PATH', realpath(dirname(__FILE__) . '/..') . '/' );
+require INSTALL_PATH.'program/include/clisetup.php';
+
+if ($argc < 2) {
+ die("Usage: " . basename($argv[0]) . " SRCDIR\n");
+}
+
+$srcdir = unslashify(realpath($argv[1]));
+
+if (is_dir($srcdir)) {
+ $out = import_dir($srcdir);
+}
+else if (is_file($srcdir)) {
+ $out = import_file($srcdir);
+}
+
+// write output files
+foreach ($out as $outfn => $texts) {
+ $lang = preg_match('!/([a-z]{2}(_[A-Z]{2})?)[./]!', $outfn, $m) ? $m[1] : '';
+ $varname = strpos($outfn, 'messages.inc') !== false ? 'messages' : 'labels';
+
+ $header = <<<EOF
+<?php
+
+/*
+ +-----------------------------------------------------------------------+
+ | localization/%s/%-51s|
+ | |
+ | Language file of the Roundcube Webmail client |
+ | Copyright (C) %s, The Roundcube Dev Team |
+ | Licensed under the GNU General Public License |
+ | |
+ +-----------------------------------------------------------------------+
+ | Author: %-62s|
+ +-----------------------------------------------------------------------+
+ @version $Id$
+*/
+
+$%s = array();
+
+EOF;
+
+ $output = sprintf($header, $lang, $varname.'.inc', date('Y'), $texts['_translator'], $varname);
+
+ foreach ($texts as $label => $value) {
+ if ($label[0] != '_')
+ $output .= sprintf("\$%s['%s'] = '%s';\n", $varname, $label, strtr(addcslashes($value, "'"), array("\r" => '', "\n" => '\n')));
+ }
+
+ $output .= "\n";
+ $dir = dirname($outfn);
+ @mkdir($dir, 664, true);
+ if (file_put_contents($outfn, $output))
+ echo "-> $outfn\n";
+}
+
+
+/**
+ * Convert all .po files in the given src directory
+ */
+function import_dir($indir)
+{
+ $out = array();
+ foreach (glob($indir.'/*.po') as $fn) {
+ $out = array_merge_recursive($out, import_file($fn));
+ }
+ return $out;
+}
+
+/**
+ * Convert the given .po file into a Roundcube localization array
+ */
+function import_file($fn)
+{
+ $out = array();
+ $lines = file($fn);
+ $language = 'xx_XX';
+ $translator = '';
+
+ $is_header = true;
+ $msgid = null;
+ $msgstr = '';
+ $dests = array();
+ foreach ($lines as $i => $line) {
+ $line = trim($line);
+
+ // parse header
+ if ($is_header && $line[0] == '"') {
+ list($key, $val) = explode(": ", preg_replace('/\\\n$/', '', trim($line, '"')), 2);
+ switch (strtolower($key)) {
+ case 'language':
+ $language = expand_langcode($val);
+ break;
+ case 'last-translator':
+ $translator = $val;
+ break;
+ }
+ }
+
+ // empty line
+ if ($line == '') {
+ if ($msgid && $dests) {
+ foreach ($dests as $dest) {
+ list($file, $label) = explode(':', $dest);
+ $out[$file][$label] = $msgstr;
+ }
+ }
+
+ $msgid = null;
+ $msgstr = '';
+ $dests = array();
+ }
+
+ // meta line
+ if ($line[0] == '#') {
+ $value = trim(substr($line, 2));
+ if ($line[1] == ':')
+ $dests[] = str_replace('en_US', $language, $value);
+ }
+ else if (strpos($line, 'msgid') === 0) {
+ $msgid = gettext_decode(substr($line, 6));
+
+ if (!empty($msgid))
+ $is_header = false;
+ }
+ else if (strpos($line, 'msgstr') === 0) {
+ $msgstr = gettext_decode(substr($line, 7));
+ }
+ else if ($msgid && $line[0] == '"') {
+ $msgstr .= gettext_decode($line);
+ }
+ else if ($msgid !== null && $line[0] == '"') {
+ $msgid .= gettext_decode($line);
+ }
+ }
+
+ if ($msgid && $dests) {
+ foreach ($dests as $dest) {
+ list($file, $label) = explode(':', $dest);
+ $out[$file][$label] = $msgstr;
+ $out[$file]['_translator'] = $translator;
+ }
+ }
+
+ return $out;
+}
+
+
+function gettext_decode($str)
+{
+ return stripslashes(trim($str, '"'));
+}
+
+/**
+ * Translate two-chars language codes to our internally used language identifiers
+ */
+function expand_langcode($lang)
+{
+ static $rcube_language_aliases;
+
+ if (!$rcube_language_aliases)
+ include(INSTALL_PATH . 'program/localization/index.inc');
+
+ if ($rcube_language_aliases[$lang])
+ return $rcube_language_aliases[$lang];
+ else if (strlen($lang) == 2)
+ return strtolower($lang) . '_' . strtoupper($lang);
+ else
+ return $lang;
+}
+
+
+?>
\ No newline at end of file
--
Gitblit v1.9.1