/**
* poFile2moFile
*
* That's a simple fake of the 'msgfmt' console command. It reads the
* contents of a GNU PO file and saves them to a GNU MO file.
*
* @param string $pofile path to GNU PO file
* @param string $mofile path to GNU MO file
*
* @static
* @access public
* @return mixed Returns true on success or PEAR_Error on failure.
*/
function poFile2moFile($pofile, $mofile)
{
if (!is_file($pofile)) {
return File_Gettext::raiseError("File {$pofile} doesn't exist.");
}
include_once 'File/Gettext/PO.php';
$PO = new File_Gettext_PO($pofile);
if (true !== ($e = $PO->load())) {
return $e;
}
$MO =& $PO->toMO();
if (true !== ($e = $MO->save($mofile))) {
return $e;
}
unset($PO, $MO);
return true;
}
function macro_MsgTrans($formatter, $value, $param = array())
{
global $DBInfo;
$user =& $DBInfo->user;
if (empty($param['init']) and (!is_array($DBInfo->owners) or !in_array($user->id, $DBInfo->owners))) {
return sprintf(_("You are not allowed to \"%s\" !"), "msgtrans");
}
if (!$pagename) {
$pagename = $DBInfo->default_translation ? $DBInfo->default_translation : 'LocalTranslationKo';
}
$page = $DBInfo->getPage($pagename);
$strs = array();
$charset = strtoupper($DBInfo->charset);
$lang = !empty($value) ? $value : ($DBInfo->lang ? $DBInfo->lang : 'en_US.' . $charset);
if ($page->exists()) {
$raw = $page->get_raw_body();
$raw = rtrim($raw);
$lines = explode("\n", $raw);
foreach ($lines as $l) {
$l = trim($l);
if ($l[0] == '#') {
if (preg_match('/^#lang(?' . '>uage)? (ko_KR|en_US|fr_FR)$/', $l, $m)) {
$lang = $m[1];
if ($DBInfo->charset) {
$lang .= '.' . $charset;
}
}
continue;
}
if ($l[0] == '"') {
if (preg_match('/^(("(([^"]|\\\\")*?)"\\s*)+)\\s*(.*)$/', $l, $m)) {
$smap = array('/"\\s+"/', '/\\\\n/', '/\\\\r/', '/\\\\t/', '/\\\\"/');
$rmap = array('', "\n", "\r", "\t", '"');
$w = preg_replace($smap, $rmap, $m[3]);
$t = preg_replace($smap, $rmap, $m[5]);
}
} else {
list($w, $t) = explode(" ", $l, 2);
}
$strs[$w] = $t;
}
}
if (getenv("OS") == "Windows_NT") {
$lang = substr($lang, 0, 2);
}
//print_r($strs);
if (!empty($strs) or !empty($param['init'])) {
$myMO = null;
$ldir = 'locale/' . $lang . '/LC_MESSAGES';
$mofile = $ldir . '/moniwiki.mo';
if (!file_exists($mofile)) {
# load *.po file
$e = false;
$mylang = substr($lang, 0, 2);
$pofile = 'locale/po/' . $mylang . '.po';
if (!file_exists($pofile)) {
$pofile = dirname(__FILE__) . '/../locale/po/' . $mylang . '.po';
}
if (file_exists($pofile)) {
include_once 'lib/Gettext/PO.php';
$myPO = new File_Gettext_PO();
if (($e = $myPO->load($pofile)) == true) {
$myMO = $myPO->toMO();
preg_match('/charset=(.*)$/', $myMO->meta['Content-Type'], $cs);
if (strtoupper($cs[1]) != $charset) {
if (function_exists("iconv")) {
$myMO->meta['Content-Type'] = 'text/plain; charset=' . $charset;
foreach ($myMO->strings as $k => $v) {
$nv = iconv($cs[1], $charset, $v);
if (isset($nv)) {
$myMO->strings[$k] = $nv;
}
}
} else {
$e = false;
}
}
}
}
} else {
# load *.mo file
include_once 'lib/Gettext/MO.php';
$myMO = new File_Gettext_MO();
$e = $myMO->load($mofile);
}
if (!is_object($myMO)) {
return;
}
if ($e == true) {
$myMO->strings = array_merge($myMO->strings, $strs);
#$myMO->meta['PO-Revision-Date']= date('Y-m-d H:iO');
ksort($myMO->strings);
// important!
#print_r($myMO->strings);
} else {
$meta = array('Content-Type' => 'text/plain; charset=' . $charset, 'Last-Translator' => 'MoniWiki Translator', 'PO-Revision-Date' => date('Y-m-d H:iO'), 'MIME-Version' => '1.0', 'Language-Team' => 'MoniWiki Translator');
if (true !== ($e = $myMO->fromArray(array('meta' => $meta, 'strings' => $strs)))) {
return "Fail to make a mo file.\n";
}
}
$vartmp_dir = $DBInfo->vartmp_dir;
$tmp = tempnam($vartmp_dir, "GETTEXT");
#$tmp=$vartmp_dir."/GETTEXT.mo";
if (true !== ($e = $myMO->save($tmp))) {
return "Fail to save mo file.\n";
}
if (!function_exists('bindtextdomain')) {
// FIXME use cache class
$tmp2 = tempnam($vartmp_dir, "GETTEXT");
$fp = fopen($tmp2, 'w');
if (is_resource($fp)) {
fwrite($fp, _msgs_to_php($myMO->strings));
fclose($fp);
$ldir2 = $DBInfo->cache_dir . '/' . $ldir;
if (!rename($tmp2, $ldir2 . '/moniwiki.php')) {
unlink($tmp2);
// fail to copy ?
}
}
}
# gettext cache workaround
# http://kr2.php.net/manual/en/function.gettext.php#58310
# use md5sum instead
$md5 = md5_file($tmp);
$md5file = $DBInfo->cache_dir . '/' . $ldir . '/md5sum';
$ldir = $DBInfo->cache_dir . '/' . $ldir;
_mkdir_p($ldir, 0777);
$f = fopen($md5file, 'w');
if (is_resource($f)) {
fwrite($f, $md5);
fclose($f);
}
if (!rename($tmp, $ldir . '/moniwiki-' . $md5 . '.mo')) {
unlink($md5file);
// fail to copy ?
return "Fail to save mo file.\n";
}
return _("Local translation files are successfully translated !\n");
}
return "Empty !\n";
}