Mise en route du suivi.
[aidenligne_francais_universite.git] / plugins / couteau_suisse / outils / guillemets.php
1 <?php
2 // integration 2007 : Patrice Vanneufville
3 // Toutes les infos sur : http://www.spip-contrib.net/?article1592
4
5 /*
6 Fichier de formatage typographique des guillemets, par Vincent Ramos
7 <www-lansargues AD kailaasa POINT net>, sous licence GNU/GPL.
8
9 Ne sont touchees que les paires de guillemets.
10
11 Le formatage des guillemets est tire de
12 <http://en.wikipedia.org/wiki/Quotation_mark%2C_non-English_usage>
13 Certains des usages indiques ne correspondent pas a ceux que la
14 barre d'insertion de caracteres speciaux de SPIP propose.
15
16 Les variables suivies du commentaire LRTEUIN sont confirmees par le
17 _Lexique des regles typographiques en usage a l'Imprimerie nationale_.
18
19 Les variables entierement commentees sont celles pour lesquelles
20 aucune information n'a ete trouvee. Par defaut, les guillements sont alors
21 de la forme &ldquo;mot&rdquo;, sauf si la barre d'insertion de SPIP proposait
22 deja une autre forme.
23 */
24
25 // voir aussi : http://trac.rezo.net/trac/spip/changeset/9429
26
27 // definitions des chaines de remplacement
28 define('_GUILLEMETS_defaut', '&ldquo;$1&rdquo;');
29 define('_GUILLEMETS_fr', '&laquo;&nbsp;$1&nbsp;&raquo;'); //LRTEUIN
30 //define('_GUILLEMETS_ar', '');
31 define('_GUILLEMETS_bg', '&bdquo;$1&ldquo;');
32 //define('_GUILLEMETS_br', '');
33 //define('_GUILLEMETS_bs', '');
34 define('_GUILLEMETS_ca', '&laquo;$1&raquo;');
35 define('_GUILLEMETS_cpf', '&laquo;&nbsp;$1&nbsp;&raquo;');
36 //define('_GUILLEMETS_cpf_hat', '');
37 define('_GUILLEMETS_cs', '&bdquo;$1&ldquo;');
38 define('_GUILLEMETS_da', '&raquo;$1&laquo;');
39 define('_GUILLEMETS_de', '&bdquo;$1&ldquo;'); //ou "&raquo;$1&laquo;" // LRTEUIN
40 define('_GUILLEMETS_en', '&ldquo;$1&rdquo;'); //LRTEUIN
41 define('_GUILLEMETS_eo', '&laquo;$1&raquo;');
42 define('_GUILLEMETS_es', '&laquo;$1&raquo;');
43 //define('_GUILLEMETS_eu', '');
44 //define('_GUILLEMETS_fa', '');
45 //define('_GUILLEMETS_fon', '');
46 //define('_GUILLEMETS_gl', '');
47 define('_GUILLEMETS_hu', '&bdquo;$1&rdquo;');
48 define('_GUILLEMETS_it', '&laquo;$1&raquo;');
49 define('_GUILLEMETS_it_fem', '&laquo;$1&raquo;');
50 define('_GUILLEMETS_ja', '&#12300;$1&#12301;');
51 //define('_GUILLEMETS_lb', '');
52 define('_GUILLEMETS_nl', '&bdquo;$1&rdquo;');
53 //define('_GUILLEMETS_oc_auv', '');
54 //define('_GUILLEMETS_oc_gsc', '');
55 //define('_GUILLEMETS_oc_lms', '');
56 //define('_GUILLEMETS_oc_lnc', '');
57 //define('_GUILLEMETS_oc_ni', '');
58 //define('_GUILLEMETS_oc_ni_la', '');
59 //define('_GUILLEMETS_oc_prv', '');
60 //define('_GUILLEMETS_oc_va', '');
61 define('_GUILLEMETS_pl', '&bdquo;$1&rdquo;');
62 define('_GUILLEMETS_pt', '&laquo;$1&raquo;');
63 define('_GUILLEMETS_pt_br', '&laquo;$1&raquo;');
64 define('_GUILLEMETS_ro', '&bdquo;$1&rdquo;');
65 define('_GUILLEMETS_ru', '&laquo;$1&raquo;');
66 define('_GUILLEMETS_tr', '&laquo;$1&raquo;');
67 //define('_GUILLEMETS_vi', '');
68 define('_GUILLEMETS_zh', '&#12300;$1&#12301;'); // ou "&ldquo;$1&rdquo;" en chinois simplifie
69
70 function typo_guillemets_echappe_balises_callback($matches) {
71 return cs_code_echappement($matches[1], 'GUILL');
72 }
73
74 function typo_guillemets_rempl($texte){
75 // on s'en va si pas de guillemets...
76 if (strpos($texte, '"')===false) return $texte;
77 // prudence : on protege TOUTES les balises contenant des doubles guillemets droits
78 if (strpos($texte, '<')!==false)
79 $texte = preg_replace_callback('/(<[^>]+"[^>]*>)/Ums', 'typo_guillemets_echappe_balises_callback', $texte);
80 // $texte = preg_replace('/(<[^>]+"[^>]*>)/Umse', 'cs_code_echappement("\\1", "GUILL")', $texte);
81 ;
82 // choix de la langue, de la constante et de la chaine de remplacement
83 if (!$lang = $GLOBALS['lang_objet']) $lang = $GLOBALS['spip_lang'];
84 $constante = '_GUILLEMETS_'.$lang;
85 $guilles = defined($constante)?constant($constante):_GUILLEMETS_defaut;
86
87 // Remplacement des autres paires de guillemets (et suppression des espaces apres/avant)
88 // Et retour des balises contenant des doubles guillemets droits
89 return echappe_retour(preg_replace('/"\s*(.*?)\s*"/', $guilles, $texte), 'GUILL');
90 }
91
92 function typo_guillemets($texte){
93 if (strpos($texte, '"')===false) return $texte;
94 return cs_echappe_balises('html|code|cadre|frame|script|acronym|cite', 'typo_guillemets_rempl', $texte);
95 }
96
97 ?>