--- /dev/null
+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2012 *
+ * 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]))
+ 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);
+ } else {
+ $modules = array('spip', 'ecrire');
+ $code = $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]))
+ $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])) {
+ $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
+ if (!strlen($text)
+ AND $lang !== 'fr') {
+ if ($lang !== $GLOBALS['meta']['langue_site'])
+ $text = inc_traduire_dist($ori, $GLOBALS['meta']['langue_site']);
+ else
+ $text = inc_traduire_dist($ori, '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');
+ }
+
+ $deja_vu[$lang][$ori] = $text;
+
+ return $text;
+}
+?>