Your IP : 216.73.216.249
<?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2014 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) return;
/**
* Rechercher tous les lang/file dans le path
* qui seront ensuite charges dans l'ordre du path
* version dediee et optimisee pour cet usage de find_in_path
*
* @staticvar <type> $dirs
* @param <type> $file
* @param <type> $dirname
* @return <type>
*/
function find_langs_in_path ($file, $dirname='lang') {
static $dirs=array();
$liste = array();
foreach(creer_chemin() as $dir) {
if (!isset($dirs[$a = $dir . $dirname]))
$dirs[$a] = (is_dir($a) || !$a) ;
if ($dirs[$a]) {
if (is_readable($a .= $file)) {
$liste[] = $a;
}
}
}
return array_reverse($liste);
}
//
// Charger un fichier langue
//
// http://doc.spip.org/@chercher_module_lang
function chercher_module_lang($module, $lang = '') {
if ($lang)
$lang = '_'.$lang;
// 1) dans un repertoire nomme lang/ se trouvant sur le chemin
if ($f = ($module == 'local'
? find_in_path($module.$lang.'.php', 'lang/')
: find_langs_in_path($module.$lang.'.php', 'lang/')))
return is_array($f)?$f:array($f);
// 2) directement dans le chemin (old style, uniquement pour local)
return (($module == 'local') OR strpos($module, '/'))
? (($f = find_in_path($module.$lang. '.php')) ? array($f):false)
: false;
}
// http://doc.spip.org/@charger_langue
function charger_langue($lang, $module = 'spip') {
if ($lang AND $fichiers_lang = chercher_module_lang($module, $lang)) {
$GLOBALS['idx_lang']='i18n_'.$module.'_'.$lang;
include(array_shift($fichiers_lang));
surcharger_langue($fichiers_lang);
} else {
// si le fichier de langue du module n'existe pas, on se rabat sur
// la langue par defaut du site -- et au pire sur le francais, qui
// *par definition* doit exister, et on copie le tableau dans la
// var liee a la langue
$l = $GLOBALS['meta']['langue_site'];
if (!$fichiers_lang = chercher_module_lang($module, $l))
$fichiers_lang = chercher_module_lang($module, 'fr');
if ($fichiers_lang) {
$GLOBALS['idx_lang']='i18n_'.$module.'_' .$l;
include(array_shift($fichiers_lang));
surcharger_langue($fichiers_lang);
$GLOBALS['i18n_'.$module.'_'.$lang]
= &$GLOBALS['i18n_'.$module.'_'.$l];
#spip_log("module de langue : ${module}_$l.php");
}
}
}
//
// Surcharger le fichier de langue courant avec un ou plusieurs autre (tordu, hein...)
//
// http://doc.spip.org/@surcharger_langue
function surcharger_langue($fichiers) {
static $surcharges = array();
if (!isset($GLOBALS['idx_lang'])) return;
if (!is_array($fichiers)) $fichiers = array($fichiers);
if (!count($fichiers)) return;
foreach($fichiers as $fichier){
if (!isset($surcharges[$fichier])) {
$idx_lang_normal = $GLOBALS['idx_lang'];
$GLOBALS['idx_lang'] = $GLOBALS['idx_lang'].'@temporaire';
include($fichier);
$surcharges[$fichier] = $GLOBALS[$GLOBALS['idx_lang']];
unset ($GLOBALS[$GLOBALS['idx_lang']]);
$GLOBALS['idx_lang'] = $idx_lang_normal;
}
if (is_array($surcharges[$fichier])) {
$GLOBALS[$GLOBALS['idx_lang']] = array_merge(
(array)$GLOBALS[$GLOBALS['idx_lang']],
$surcharges[$fichier]
);
}
}
}
//
// Traduire une chaine internationalisee
//
// http://doc.spip.org/@inc_traduire_dist
function inc_traduire_dist($ori, $lang) {
static $deja_vu = array();
static $local = array();
if (isset($deja_vu[$lang][$ori]) AND (_request('var_mode') != 'traduction'))
return $deja_vu[$lang][$ori];
// modules demandes explicitement <xxx|yyy|zzz:code> cf MODULES_IDIOMES
if (strpos($ori,':')) {
list($modules,$code) = explode(':',$ori,2);
$modules = explode('|', $modules);
$ori_complet = $ori;
} else {
$modules = array('spip', 'ecrire');
$code = $ori;
$ori_complet = implode('|', $modules) . ':' . $ori;
}
$text = '';
// parcourir tous les modules jusqu'a ce qu'on trouve
foreach ($modules as $module) {
$var = "i18n_".$module."_".$lang;
if (empty($GLOBALS[$var])) {
charger_langue($lang, $module);
// surcharge perso
// -- on cherche (lang/)local_xx.php ...
if (!isset($local['local_'.$lang])) {
// redéfinir la langue en cours pour les surcharges (chercher_langue a pu le changer)
$GLOBALS['idx_lang']= $var;
$local['local_'.$lang] = chercher_module_lang('local', $lang);
}
if ($local['local_'.$lang])
surcharger_langue($local['local_'.$lang]);
// ... puis (lang/)local.php
if (!isset($local['local']))
$local['local'] = chercher_module_lang('local');
if ($local['local'])
surcharger_langue($local['local']);
}
if (isset($GLOBALS[$var][$code])) {
$module_retenu = $module;
$text = $GLOBALS[$var][$code];
break;
}
}
// Retour aux sources si la chaine est absente dans la langue cible ;
// on essaie d'abord la langue du site, puis a defaut la langue fr
$langue_retenue = $lang;
if (!strlen($text)
AND $lang !== 'fr') {
if ($lang !== $GLOBALS['meta']['langue_site']) {
$text = inc_traduire_dist($ori, $GLOBALS['meta']['langue_site']);
$langue_retenue = (!strlen($text) ? $GLOBALS['meta']['langue_site'] : '');
}
else {
$text = inc_traduire_dist($ori, 'fr');
$langue_retenue = (!strlen($text) ? 'fr' : '');
}
}
// Supprimer la mention <NEW> ou <MODIF>
if (substr($text,0,1) === '<')
$text = str_replace(array('<NEW>', '<MODIF>'), array(), $text);
// Si on n'est pas en utf-8, la chaine peut l'etre...
// le cas echeant on la convertit en entites html &#xxx;
if ($GLOBALS['meta']['charset'] !== 'utf-8'
AND preg_match(',[\x7f-\xff],S', $text)) {
include_spip('inc/charsets');
$text = charset2unicode($text,'utf-8');
}
if (_request('var_mode') == 'traduction') {
if ($text) {
$classe = 'debug-traduction' . ($module_retenu == 'ecrire' ? '-prive' : '');
$text = '<span lang=' . $langue_retenue . ' class=' . $classe . ' title=' . $ori_complet . '(' . $langue_retenue . ')>' . $text . '</span>';
$text = str_replace(
array("$module_retenu:", "$module_retenu|"),
array("*$module_retenu*:", "*$module_retenu*|"),
$text);
}
}
else {
$deja_vu[$lang][$ori] = $text;
}
return $text;
}
?>