3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
17 // Changer la langue courante
19 // http://doc.spip.org/@changer_langue
20 function changer_langue($lang) {
21 global $spip_lang_rtl, $spip_lang_right, $spip_lang_left;
23 $liste_langues = ',' . @$GLOBALS['meta']['langues_proposees']
24 . ',' . @$GLOBALS['meta']['langues_multilingue'] . ',';
26 // Si la langue demandee n'existe pas, on essaie d'autres variantes
27 // Exemple : 'pt-br' => 'pt_br' => 'pt'
28 $lang = str_replace('-', '_', trim($lang));
32 if (strpos($liste_langues,",$lang,")!==false
33 OR ($lang = preg_replace(',_.*,', '', $lang)
34 AND strpos($liste_langues,",$lang,")!==false)) {
36 $spip_lang_rtl = lang_dir($lang, '', '_rtl');
37 $spip_lang_right = $spip_lang_rtl ?
'left' : 'right';
38 $spip_lang_left = $spip_lang_rtl ?
'right' : 'left';
40 return $GLOBALS['spip_lang'] = $lang;
46 // Gestion des blocs multilingues
47 // Selection dans un tableau dont les index sont des noms de langues
48 // de la valeur associee a la langue en cours
49 // si absente, retourne le premier
50 // remarque : on pourrait aussi appeler un service de traduction externe
51 // ou permettre de choisir une langue "plus proche",
52 // par exemple le francais pour l'espagnol, l'anglais pour l'allemand, etc.
54 function choisir_traduction ($trads, $lang='') {
55 $k = approcher_langue($trads, $lang);
56 return $k ?
$trads[$k] : array_shift($trads);
59 // retourne son 2e argument si c'est un index du premier
60 // ou un index approchant sinon et si possible,
61 // la langue X etant consideree comme une approche de X_Y
62 function approcher_langue ($trads, $lang='') {
64 if (!$lang) $lang = $GLOBALS['spip_lang'];
66 if (isset($trads[$lang])) {
69 // cas des langues xx_yy
71 $r = explode('_', $lang);
72 if (isset($trads[$r[0]]))
78 // http://doc.spip.org/@traduire_nom_langue
79 function traduire_nom_langue($lang) {
80 include_spip('inc/lang_liste');
81 include_spip('inc/charsets');
82 return html2unicode(isset($GLOBALS['codes_langues'][$lang]) ?
$GLOBALS['codes_langues'][$lang] : $lang);
89 // Donne la direction d'ecriture a partir de la langue. Retourne 'gaucher' si
90 // la langue est arabe, persan, kurde, pachto, ourdou (langues ecrites en
91 // alphabet arabe a priori), hebreu, yiddish (langues ecrites en alphabet
92 // hebreu a priori), 'droitier' sinon.
93 // C'est utilise par #LANG_DIR, #LANG_LEFT, #LANG_RIGHT.
94 // http://doc.spip.org/@lang_dir
95 function lang_dir($lang='', $droitier='ltr', $gaucher='rtl') {
96 static $lang_rtl = array('ar', 'fa', 'ku', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi');
98 return in_array(($lang ?
$lang : $GLOBALS['spip_lang']), $lang_rtl) ?
102 // typo francaise ou anglaise ?
103 // $lang_objet est fixee dans l'interface privee pour editer
104 // un texte anglais en interface francaise (ou l'inverse) ;
105 // sinon determiner la typo en fonction de la langue courante
107 // http://doc.spip.org/@lang_typo
108 function lang_typo($lang='') {
110 $lang = isset($GLOBALS['lang_objet'])
111 ?
$GLOBALS['lang_objet']
112 : $GLOBALS['spip_lang'];
116 OR substr($lang, 0, 3) == 'fr_'
123 // gestion de la globale $lang_objet pour que les textes soient affiches
124 // avec les memes typo et direction dans l'espace prive que dans le public
125 // http://doc.spip.org/@changer_typo
126 function changer_typo($lang = '') {
129 return $lang_objet = $lang ?
$lang : $GLOBALS['meta']['langue_site'];
133 // Afficher un menu de selection de langue
134 // - 'var_lang_ecrire' = langue interface privee,
135 // pour var_lang' = langue de l'article, espace public, voir les squelettes
136 // pour 'changer_lang' (langue de l'article, espace prive), c'est en Ajax
138 // http://doc.spip.org/@menu_langues
139 function menu_langues($nom_select) {
140 include_spip('inc/actions');
142 $ret = liste_options_langues($nom_select);
144 if (!$ret) return '';
146 if (!test_espace_prive()) {
151 $base = spip_connect() ?
'base' : '';
154 $change = ' onchange="this.parentNode.parentNode.submit()"';
155 return generer_action_auteur('converser',$base, $cible,
156 (select_langues($nom_select, $change, $ret)
157 . "<noscript><div style='display:inline'><input type='submit' value='". _T('bouton_changer')."' /></div></noscript>"),
161 // http://doc.spip.org/@select_langues
162 function select_langues($nom_select, $change, $options, $label="")
165 $id = "menu_langues" . $cpt++
;
167 "<label for='$id'>".($label?
$label:_T('info_langues'))."</label> ".
168 "<select name='$nom_select' id='$id' "
169 . ((!test_espace_prive()) ?
170 ("class='forml menu_langues'") :
171 (($nom_select == 'var_lang_ecrire') ?
172 ("class='lang_ecrire'") :
180 // http://doc.spip.org/@liste_options_langues
181 function liste_options_langues($nom_select, $default='', $herit='') {
183 if ($default == '') $default = $GLOBALS['spip_lang'];
184 switch($nom_select) {
187 # menu de changement de la langue d'un article
188 # les langues selectionnees dans la configuration "multilinguisme"
190 $langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
192 # menu de l'interface (privee, installation et panneau de login)
193 # les langues presentes sous forme de fichiers de langue
194 # on force la relecture du repertoire des langues pour etre synchrone.
195 case 'var_lang_ecrire':
197 $GLOBALS['meta']['langues_proposees'] = '';
199 $langues = explode(',', $GLOBALS['meta']['langues_proposees']);
202 # dernier choix possible : toutes les langues = langues_proposees
203 # + langues_multilingues ; mais, ne sert pas
204 # $langues = explode(',', $GLOBALS['all_langs']);
206 if (count($langues) <= 1) return '';
209 foreach ($langues as $l) {
210 $selected = ($l == $default) ?
' selected=\'selected\'' : '';
212 $ret .= "<option class='maj-debut' style='font-weight: bold;' value='herit'$selected>"
213 .traduire_nom_langue($herit)." ("._T('info_multi_herit').")</option>\n";
215 ## ici ce serait bien de pouvoir choisir entre "langue par defaut"
216 ## et "langue heritee"
218 $ret .= "<option class='maj-debut' value='$l'$selected>".traduire_nom_langue($l)."</option>\n";
225 // Cette fonction est appelee depuis public/global si on a installe
226 // la variable de personnalisation $forcer_lang ; elle renvoie le brouteur
227 // si necessaire vers l'URL xxxx?lang=ll
229 // http://doc.spip.org/@verifier_lang_url
230 function verifier_lang_url() {
233 // quelle langue est demandee ?
234 $lang_demandee = $GLOBALS['meta']['langue_site'];
235 if (isset($_COOKIE['spip_lang_ecrire']))
236 $lang_demandee = $_COOKIE['spip_lang_ecrire'];
237 if (isset($_COOKIE['spip_lang']))
238 $lang_demandee = $_COOKIE['spip_lang'];
239 if (isset($_GET['lang']))
240 $lang_demandee = $_GET['lang'];
242 // Renvoyer si besoin (et si la langue demandee existe)
243 if ($spip_lang != $lang_demandee
244 AND changer_langue($lang_demandee)
245 AND $lang_demandee != @$_GET['lang']) {
246 $destination = parametre_url(self(),'lang', $lang_demandee, '&');
247 // ici on a besoin des var_truc
248 foreach ($_GET as $var => $val) {
249 if (!strncmp('var_', $var, 4))
250 $destination = parametre_url($destination, $var, $val, '&');
252 include_spip('inc/headers');
253 redirige_par_entete($destination);
256 // Subtilite : si la langue demandee par cookie est la bonne
257 // alors on fait comme si $lang etait passee dans l'URL
258 // (pour criteres {lang}).
259 $GLOBALS['lang'] = $_GET['lang'] = $spip_lang;
264 // Selection de langue haut niveau
266 // http://doc.spip.org/@utiliser_langue_site
267 function utiliser_langue_site() {
268 if (isset($GLOBALS['meta']['langue_site'])
269 AND $GLOBALS['spip_lang']!=$GLOBALS['meta']['langue_site'])
270 return changer_langue($GLOBALS['meta']['langue_site']);//@:install
271 return $GLOBALS['spip_lang'];
274 // http://doc.spip.org/@utiliser_langue_visiteur
275 function utiliser_langue_visiteur() {
277 $l = (!test_espace_prive() ?
'spip_lang' : 'spip_lang_ecrire');
278 if (isset($_COOKIE[$l]))
279 if (changer_langue($l = $_COOKIE[$l])) return $l;
281 if (isset($GLOBALS['visiteur_session']['lang']))
282 if (changer_langue($l = $GLOBALS['visiteur_session']['lang']))
285 foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $s) {
286 if (preg_match('#^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$#i', trim($s), $r)) {
287 if (changer_langue($l=strtolower($r[1]))) return $l;
291 return utiliser_langue_site();
294 // Une fonction qui donne le repertoire ou trouver des fichiers de langue
295 // note : pourrait en donner une liste... complique
296 // http://doc.spip.org/@repertoire_lang
297 function repertoire_lang($module='spip', $lang='fr') {
298 # valeur forcee (par ex.sur spip.net), old style, a faire disparaitre
299 if (defined('_DIR_LANG'))
302 # regarder s'il existe une v.f. qq part
303 if ($f = find_in_path($module.'_'.$lang . '.php', 'lang/'))
304 return dirname($f).'/';
306 # sinon, je ne sais trop pas quoi dire...
307 return _DIR_RESTREINT
. 'lang/';
311 // Initialisation des meta
312 // - langues proposees
315 // http://doc.spip.org/@init_langues
316 function init_langues() {
318 // liste des langues dans les meta, sauf a l'install
320 $all_langs = @$GLOBALS['meta']['langues_proposees'];
324 if (!$d = @opendir
(repertoire_lang())) break;
325 while (($f = readdir($d)) !== false) {
326 if (preg_match(',^spip_([a-z_]+)\.php[3]?$,', $f, $regs))
331 $tout = join(',', $tout);
332 // Si les langues n'ont pas change, ne rien faire
333 if ($tout != $all_langs) {
334 $GLOBALS['meta']['langues_proposees'] = $tout;
335 include_spip('inc/meta');
336 ecrire_meta('langues_proposees', $tout);
339 if (!isset($GLOBALS['meta']['langue_site'])) {
340 // Initialisation : le francais si dispo, sinon la premiere langue trouvee
341 $GLOBALS['meta']['langue_site'] = $tout =
342 (!$all_langs OR (strpos(',fr,',",$all_langs,")!==false))
343 ?
'fr' : substr($all_langs,0,strpos($all_langs,','));
344 ecrire_meta('langue_site', $tout);
348 // http://doc.spip.org/@html_lang_attributes
349 function html_lang_attributes()
351 return "<html lang='"
352 . $GLOBALS['spip_lang']
354 . ($GLOBALS['spip_lang_rtl'] ?
'rtl' : 'ltr')
358 utiliser_langue_site();