1 | <?php |
---|
2 | |
---|
3 | /***************************************************************************\ |
---|
4 | * SPIP, Systeme de publication pour l'internet * |
---|
5 | * * |
---|
6 | * Copyright (c) 2001-2011 * |
---|
7 | * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James * |
---|
8 | * * |
---|
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 | \***************************************************************************/ |
---|
12 | |
---|
13 | if (!defined('_ECRIRE_INC_VERSION')) return; |
---|
14 | |
---|
15 | include_spip('inc/texte_mini'); |
---|
16 | include_spip('inc/lien'); |
---|
17 | |
---|
18 | include_spip('inc/textwheel'); |
---|
19 | |
---|
20 | // Avec cette surcharge, cette globale n'est plus définie, et du coup ça plante dans les plugins qui font un foreach dessus comme ZPIP |
---|
21 | $GLOBALS['spip_raccourcis_typo'] = array(); |
---|
22 | |
---|
23 | // class_spip : savoir si on veut class="spip" sur p i strong & li |
---|
24 | // class_spip_plus : class="spip" sur les ul ol h3 hr quote table... |
---|
25 | // la difference c'est que des css specifiques existent pour les seconds |
---|
26 | // |
---|
27 | if (!isset($GLOBALS['class_spip'])) |
---|
28 | $GLOBALS['class_spip'] = ''; |
---|
29 | if (!isset($GLOBALS['class_spip_plus'])) |
---|
30 | $GLOBALS['class_spip_plus'] = ' class="spip"'; |
---|
31 | |
---|
32 | |
---|
33 | // |
---|
34 | // echapper les < script ... |
---|
35 | // |
---|
36 | function echappe_js($t) { |
---|
37 | static $wheel = null; |
---|
38 | |
---|
39 | if (!isset($wheel)) |
---|
40 | $wheel = new TextWheel( |
---|
41 | SPIPTextWheelRuleset::loader($GLOBALS['spip_wheels']['echappe_js']) |
---|
42 | ); |
---|
43 | |
---|
44 | return $wheel->text($t); |
---|
45 | } |
---|
46 | |
---|
47 | |
---|
48 | // Securite : empecher l'execution de code PHP, en le transformant en joli code |
---|
49 | // dans l'espace prive, cette fonction est aussi appelee par propre et typo |
---|
50 | // si elles sont appelees en direct |
---|
51 | // il ne faut pas desactiver globalement la fonction dans l'espace prive car elle protege |
---|
52 | // aussi les balises des squelettes qui ne passent pas forcement par propre ou typo apres |
---|
53 | // http://doc.spip.org/@interdire_scripts |
---|
54 | function interdire_scripts($arg) { |
---|
55 | // on memorise le resultat sur les arguments non triviaux |
---|
56 | static $dejavu = array(); |
---|
57 | static $wheel = null; |
---|
58 | |
---|
59 | // Attention, si ce n'est pas une chaine, laisser intact |
---|
60 | if (!$arg OR !is_string($arg) OR !strstr($arg, '<')) return $arg; |
---|
61 | |
---|
62 | if (isset($dejavu[$GLOBALS['filtrer_javascript']][$arg])) return $dejavu[$GLOBALS['filtrer_javascript']][$arg]; |
---|
63 | |
---|
64 | if (!isset($wheel)){ |
---|
65 | $ruleset = SPIPTextWheelRuleset::loader( |
---|
66 | $GLOBALS['spip_wheels']['interdire_scripts'] |
---|
67 | ); |
---|
68 | // Pour le js, trois modes : parano (-1), prive (0), ok (1) |
---|
69 | // desactiver la regle echappe-js si besoin |
---|
70 | if ($GLOBALS['filtrer_javascript']==1 |
---|
71 | OR ($GLOBALS['filtrer_javascript']==0 AND !test_espace_prive())) |
---|
72 | $ruleset->addRules (array('securite-js'=>array('disabled'=>true))); |
---|
73 | $wheel = new TextWheel($ruleset); |
---|
74 | } |
---|
75 | |
---|
76 | $t = $wheel->text($arg); |
---|
77 | |
---|
78 | // Reinserer les echappements des modeles |
---|
79 | if (defined('_PROTEGE_JS_MODELES')) |
---|
80 | $t = echappe_retour($t,"javascript"._PROTEGE_JS_MODELES); |
---|
81 | if (defined('_PROTEGE_PHP_MODELES')) |
---|
82 | $t = echappe_retour($t,"php"._PROTEGE_PHP_MODELES); |
---|
83 | |
---|
84 | return $dejavu[$GLOBALS['filtrer_javascript']][$arg] = $t; |
---|
85 | } |
---|
86 | |
---|
87 | |
---|
88 | // Typographie generale |
---|
89 | // avec protection prealable des balises HTML et SPIP |
---|
90 | |
---|
91 | // http://doc.spip.org/@typo |
---|
92 | function typo($letexte, $echapper=true, $connect=null) { |
---|
93 | // Plus vite ! |
---|
94 | if (!$letexte) return $letexte; |
---|
95 | |
---|
96 | // les appels directs a cette fonction depuis le php de l'espace |
---|
97 | // prive etant historiquement ecrit sans argment $connect |
---|
98 | // on utilise la presence de celui-ci pour distinguer les cas |
---|
99 | // ou il faut passer interdire_script explicitement |
---|
100 | // les appels dans les squelettes (de l'espace prive) fournissant un $connect |
---|
101 | // ne seront pas perturbes |
---|
102 | $interdire_script = false; |
---|
103 | if (is_null($connect)){ |
---|
104 | $connect = ''; |
---|
105 | $interdire_script = true; |
---|
106 | } |
---|
107 | |
---|
108 | // Echapper les codes <html> etc |
---|
109 | if ($echapper) |
---|
110 | $letexte = echappe_html($letexte, 'TYPO'); |
---|
111 | |
---|
112 | // |
---|
113 | // Installer les modeles, notamment images et documents ; |
---|
114 | // |
---|
115 | // NOTE : propre() ne passe pas par ici mais directement par corriger_typo |
---|
116 | // cf. inc/lien |
---|
117 | |
---|
118 | $letexte = traiter_modeles($mem = $letexte, false, $echapper ? 'TYPO' : '', $connect); |
---|
119 | if ($letexte != $mem) $echapper = true; |
---|
120 | unset($mem); |
---|
121 | |
---|
122 | $letexte = corriger_typo($letexte); |
---|
123 | $letexte = echapper_faux_tags($letexte); |
---|
124 | |
---|
125 | // reintegrer les echappements |
---|
126 | if ($echapper) |
---|
127 | $letexte = echappe_retour($letexte, 'TYPO'); |
---|
128 | |
---|
129 | // Dans les appels directs hors squelette, securiser ici aussi |
---|
130 | if ($interdire_script) |
---|
131 | $letexte = interdire_scripts($letexte); |
---|
132 | |
---|
133 | return $letexte; |
---|
134 | } |
---|
135 | |
---|
136 | // Correcteur typographique |
---|
137 | |
---|
138 | define('_TYPO_PROTEGER', "!':;?~%-"); |
---|
139 | define('_TYPO_PROTECTEUR', "\x1\x2\x3\x4\x5\x6\x7\x8"); |
---|
140 | |
---|
141 | define('_TYPO_BALISE', ",</?[a-z!][^<>]*[".preg_quote(_TYPO_PROTEGER)."][^<>]*>,imsS"); |
---|
142 | |
---|
143 | // http://doc.spip.org/@corriger_typo |
---|
144 | function corriger_typo($t, $lang='') { |
---|
145 | // Plus vite ! |
---|
146 | if (!$t) return $t; |
---|
147 | |
---|
148 | $t = pipeline('pre_typo', $t); |
---|
149 | |
---|
150 | // Caracteres de controle "illegaux" |
---|
151 | $t = corriger_caracteres($t); |
---|
152 | |
---|
153 | // Proteger les caracteres typographiques a l'interieur des tags html |
---|
154 | if (preg_match_all(_TYPO_BALISE, $t, $regs, PREG_SET_ORDER)) { |
---|
155 | foreach ($regs as $reg) { |
---|
156 | $insert = $reg[0]; |
---|
157 | // hack: on transforme les caracteres a proteger en les remplacant |
---|
158 | // par des caracteres "illegaux". (cf corriger_caracteres()) |
---|
159 | $insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR); |
---|
160 | $t = str_replace($reg[0], $insert, $t); |
---|
161 | } |
---|
162 | } |
---|
163 | |
---|
164 | // trouver les blocs multi et les traiter a part |
---|
165 | $t = extraire_multi($e = $t, $lang, true); |
---|
166 | $e = ($e === $t); |
---|
167 | |
---|
168 | // Charger & appliquer les fonctions de typographie |
---|
169 | $typographie = charger_fonction(lang_typo($lang), 'typographie'); |
---|
170 | $t = $typographie($t); |
---|
171 | |
---|
172 | // Les citations en une autre langue, s'il y a lieu |
---|
173 | if (!$e) $t = echappe_retour($t, 'multi'); |
---|
174 | |
---|
175 | // Retablir les caracteres proteges |
---|
176 | $t = strtr($t, _TYPO_PROTECTEUR, _TYPO_PROTEGER); |
---|
177 | |
---|
178 | // pipeline |
---|
179 | $t = pipeline('post_typo', $t); |
---|
180 | |
---|
181 | # un message pour abs_url - on est passe en mode texte |
---|
182 | $GLOBALS['mode_abs_url'] = 'texte'; |
---|
183 | |
---|
184 | return $t; |
---|
185 | } |
---|
186 | |
---|
187 | |
---|
188 | // |
---|
189 | // Tableaux |
---|
190 | // |
---|
191 | |
---|
192 | define('_RACCOURCI_TH_SPAN', '\s*(:?{{[^{}]+}}\s*)?|<'); |
---|
193 | |
---|
194 | // http://doc.spip.org/@traiter_tableau |
---|
195 | function traiter_tableau($bloc) { |
---|
196 | // id "unique" pour les id du tableau |
---|
197 | $tabid = substr(md5($bloc),0,4); |
---|
198 | |
---|
199 | // Decouper le tableau en lignes |
---|
200 | preg_match_all(',([|].*)[|]\n,UmsS', $bloc, $regs, PREG_PATTERN_ORDER); |
---|
201 | $lignes = array(); |
---|
202 | $debut_table = $summary = ''; |
---|
203 | $l = 0; |
---|
204 | $numeric = true; |
---|
205 | |
---|
206 | // Traiter chaque ligne |
---|
207 | $reg_line1 = ',^(\|(' . _RACCOURCI_TH_SPAN . '))+$,sS'; |
---|
208 | $reg_line_all = ',^(' . _RACCOURCI_TH_SPAN . ')$,sS'; |
---|
209 | $hc = $hl = array(); |
---|
210 | foreach ($regs[1] as $ligne) { |
---|
211 | $l ++; |
---|
212 | |
---|
213 | // Gestion de la premiere ligne : |
---|
214 | if ($l == 1) { |
---|
215 | // - <caption> et summary dans la premiere ligne : |
---|
216 | // || caption | summary || (|summary est optionnel) |
---|
217 | if (preg_match(',^\|\|([^|]*)(\|(.*))?$,sS', rtrim($ligne,'|'), $cap)) { |
---|
218 | $l = 0; |
---|
219 | if ($caption = trim($cap[1])) |
---|
220 | $debut_table .= "<caption>".$caption."</caption>\n"; |
---|
221 | $summary = ' summary="'.entites_html(trim($cap[3])).'"'; |
---|
222 | } |
---|
223 | // - <thead> sous la forme |{{titre}}|{{titre}}| |
---|
224 | // Attention thead oblige a avoir tbody |
---|
225 | else if (preg_match($reg_line1, $ligne, $thead)) { |
---|
226 | preg_match_all('/\|([^|]*)/S', $ligne, $cols); |
---|
227 | $ligne='';$cols= $cols[1]; |
---|
228 | $colspan=1; |
---|
229 | for($c=count($cols)-1; $c>=0; $c--) { |
---|
230 | $attr=''; |
---|
231 | if($cols[$c]=='<') { |
---|
232 | $colspan++; |
---|
233 | } else { |
---|
234 | if($colspan>1) { |
---|
235 | $attr= " colspan='$colspan'"; |
---|
236 | $colspan=1; |
---|
237 | } |
---|
238 | // inutile de garder le strong qui n'a servi que de marqueur |
---|
239 | $cols[$c] = str_replace(array('{','}'), '', $cols[$c]); |
---|
240 | $ligne= "<th id='id{$tabid}_c$c'$attr>$cols[$c]</th>$ligne"; |
---|
241 | $hc[$c] = "id{$tabid}_c$c"; // pour mettre dans les headers des td |
---|
242 | } |
---|
243 | } |
---|
244 | |
---|
245 | $debut_table .= "<thead><tr class='row_first'>". |
---|
246 | $ligne."</tr></thead>\n"; |
---|
247 | $l = 0; |
---|
248 | } |
---|
249 | } |
---|
250 | |
---|
251 | // Sinon ligne normale |
---|
252 | if ($l) { |
---|
253 | // Gerer les listes a puce dans les cellules |
---|
254 | if (strpos($ligne,"\n-*")!==false OR strpos($ligne,"\n-#")!==false) |
---|
255 | $ligne = traiter_listes($ligne); |
---|
256 | |
---|
257 | // Pas de paragraphes dans les cellules |
---|
258 | $ligne = preg_replace("/\n{2,}/", "<br /><br />\n", $ligne); |
---|
259 | |
---|
260 | // tout mettre dans un tableau 2d |
---|
261 | preg_match_all('/\|([^|]*)/S', $ligne, $cols); |
---|
262 | $lignes[]= $cols[1]; |
---|
263 | } |
---|
264 | } |
---|
265 | |
---|
266 | // maintenant qu'on a toutes les cellules |
---|
267 | // on prepare une liste de rowspan par defaut, a partir |
---|
268 | // du nombre de colonnes dans la premiere ligne. |
---|
269 | // Reperer egalement les colonnes numeriques pour les cadrer a droite |
---|
270 | $rowspans = $numeric = array(); |
---|
271 | $n = count($lignes[0]); |
---|
272 | $k = count($lignes); |
---|
273 | // distinguer les colonnes numeriques a point ou a virgule, |
---|
274 | // pour les alignements eventuels sur "," ou "." |
---|
275 | $numeric_class = array('.'=>'point',','=>'virgule'); |
---|
276 | for($i=0;$i<$n;$i++) { |
---|
277 | $align = true; |
---|
278 | for ($j=0;$j<$k;$j++) { |
---|
279 | $rowspans[$j][$i] = 1; |
---|
280 | if ($align AND preg_match('/^\d+([.,]?)\d*$/', trim($lignes[$j][$i]), $r)){ |
---|
281 | if ($r[1]) |
---|
282 | $align = $r[1]; |
---|
283 | } |
---|
284 | else |
---|
285 | $align = ''; |
---|
286 | } |
---|
287 | $numeric[$i] = $align ? (" class='numeric ".$numeric_class[$align]."'") : ''; |
---|
288 | } |
---|
289 | for ($j=0;$j<$k;$j++) { |
---|
290 | if (preg_match($reg_line_all, $lignes[$j][0])) { |
---|
291 | $hl[$j] = "id{$tabid}_l$j"; // pour mettre dans les headers des td |
---|
292 | } |
---|
293 | else |
---|
294 | unset($hl[0]); |
---|
295 | } |
---|
296 | if (!isset($hl[0])) |
---|
297 | $hl = array(); // toute la colonne ou rien |
---|
298 | |
---|
299 | // et on parcourt le tableau a l'envers pour ramasser les |
---|
300 | // colspan et rowspan en passant |
---|
301 | $html = ''; |
---|
302 | |
---|
303 | for($l=count($lignes)-1; $l>=0; $l--) { |
---|
304 | $cols= $lignes[$l]; |
---|
305 | $colspan=1; |
---|
306 | $ligne=''; |
---|
307 | |
---|
308 | for($c=count($cols)-1; $c>=0; $c--) { |
---|
309 | $attr= $numeric[$c]; |
---|
310 | $cell = trim($cols[$c]); |
---|
311 | if($cell=='<') { |
---|
312 | $colspan++; |
---|
313 | |
---|
314 | } elseif($cell=='^') { |
---|
315 | $rowspans[$l-1][$c]+=$rowspans[$l][$c]; |
---|
316 | |
---|
317 | } else { |
---|
318 | if($colspan>1) { |
---|
319 | $attr .= " colspan='$colspan'"; |
---|
320 | $colspan=1; |
---|
321 | } |
---|
322 | if(($x=$rowspans[$l][$c])>1) { |
---|
323 | $attr.= " rowspan='$x'"; |
---|
324 | } |
---|
325 | $b = ($c==0 AND isset($hl[$l]))?'th':'td'; |
---|
326 | $h = (isset($hc[$c])?$hc[$c]:'').' '.(($b=='td' AND isset($hl[$l]))?$hl[$l]:''); |
---|
327 | if ($h=trim($h)) |
---|
328 | $attr.=" headers='$h'"; |
---|
329 | // inutile de garder le strong qui n'a servi que de marqueur |
---|
330 | if ($b=='th') { |
---|
331 | $attr.=" id='".$hl[$l]."'"; |
---|
332 | $cols[$c] = str_replace(array('{','}'), '', $cols[$c]); |
---|
333 | } |
---|
334 | $ligne= "\n<$b".$attr.'>'.$cols[$c]."</$b>".$ligne; |
---|
335 | } |
---|
336 | } |
---|
337 | |
---|
338 | // ligne complete |
---|
339 | $class = alterner($l+1, 'odd', 'even'); |
---|
340 | $html = "<tr class='row_$class $class'>$ligne</tr>\n$html"; |
---|
341 | } |
---|
342 | return "\n\n<table".$GLOBALS['class_spip_plus'].$summary.">\n" |
---|
343 | . $debut_table |
---|
344 | . "<tbody>\n" |
---|
345 | . $html |
---|
346 | . "</tbody>\n" |
---|
347 | . "</table>\n\n"; |
---|
348 | } |
---|
349 | |
---|
350 | |
---|
351 | // |
---|
352 | // Traitement des listes (merci a Michael Parienti) |
---|
353 | // |
---|
354 | // http://doc.spip.org/@traiter_listes |
---|
355 | function traiter_listes ($texte) { |
---|
356 | global $class_spip, $class_spip_plus; |
---|
357 | $parags = preg_split(",\n[[:space:]]*\n,S", $texte); |
---|
358 | $texte =''; |
---|
359 | |
---|
360 | // chaque paragraphe est traite a part |
---|
361 | while (list(,$para) = each($parags)) { |
---|
362 | $niveau = 0; |
---|
363 | $pile_li = $pile_type = array(); |
---|
364 | $lignes = explode("\n-", "\n" . $para); |
---|
365 | |
---|
366 | // ne pas toucher a la premiere ligne |
---|
367 | list(,$debut) = each($lignes); |
---|
368 | $texte .= $debut; |
---|
369 | |
---|
370 | // chaque item a sa profondeur = nb d'etoiles |
---|
371 | $type =''; |
---|
372 | while (list(,$item) = each($lignes)) { |
---|
373 | preg_match(",^([*]*|[#]*)([^*#].*)$,sS", $item, $regs); |
---|
374 | $profond = strlen($regs[1]); |
---|
375 | |
---|
376 | if ($profond > 0) { |
---|
377 | $ajout=''; |
---|
378 | |
---|
379 | // changement de type de liste au meme niveau : il faut |
---|
380 | // descendre un niveau plus bas, fermer ce niveau, et |
---|
381 | // remonter |
---|
382 | $nouv_type = (substr($item,0,1) == '*') ? 'ul' : 'ol'; |
---|
383 | $change_type = ($type AND ($type <> $nouv_type) AND ($profond == $niveau)) ? 1 : 0; |
---|
384 | $type = $nouv_type; |
---|
385 | |
---|
386 | // d'abord traiter les descentes |
---|
387 | while ($niveau > $profond - $change_type) { |
---|
388 | $ajout .= $pile_li[$niveau]; |
---|
389 | $ajout .= $pile_type[$niveau]; |
---|
390 | if (!$change_type) |
---|
391 | unset ($pile_li[$niveau]); |
---|
392 | $niveau --; |
---|
393 | } |
---|
394 | |
---|
395 | // puis les identites (y compris en fin de descente) |
---|
396 | if ($niveau == $profond && !$change_type) { |
---|
397 | $ajout .= $pile_li[$niveau]; |
---|
398 | } |
---|
399 | |
---|
400 | // puis les montees (y compris apres une descente un cran trop bas) |
---|
401 | while ($niveau < $profond) { |
---|
402 | if ($niveau == 0) $ajout .= "\n\n"; |
---|
403 | elseif (!isset($pile_li[$niveau])) { |
---|
404 | $ajout .= "<li$class_spip>"; |
---|
405 | $pile_li[$niveau] = "</li>"; |
---|
406 | } |
---|
407 | $niveau ++; |
---|
408 | $ajout .= "<$type$class_spip_plus>"; |
---|
409 | $pile_type[$niveau] = "</$type>"; |
---|
410 | } |
---|
411 | |
---|
412 | $ajout .= "<li$class_spip>"; |
---|
413 | $pile_li[$profond] = "</li>"; |
---|
414 | } |
---|
415 | else { |
---|
416 | $ajout = "\n-"; // puce normale ou <hr> |
---|
417 | } |
---|
418 | |
---|
419 | $texte .= $ajout . $regs[2]; |
---|
420 | } |
---|
421 | |
---|
422 | // retour sur terre |
---|
423 | $ajout = ''; |
---|
424 | while ($niveau > 0) { |
---|
425 | $ajout .= $pile_li[$niveau]; |
---|
426 | $ajout .= $pile_type[$niveau]; |
---|
427 | $niveau --; |
---|
428 | } |
---|
429 | $texte .= $ajout; |
---|
430 | |
---|
431 | // paragraphe |
---|
432 | $texte .= "\n\n"; |
---|
433 | } |
---|
434 | |
---|
435 | // sucrer les deux derniers \n |
---|
436 | return substr($texte, 0, -2); |
---|
437 | } |
---|
438 | |
---|
439 | // http://doc.spip.org/@traiter_poesie |
---|
440 | function traiter_poesie($letexte) |
---|
441 | { |
---|
442 | if (preg_match_all(",<(poesie|poetry)>(.*)<\/(poesie|poetry)>,UimsS", |
---|
443 | $letexte, $regs, PREG_SET_ORDER)) { |
---|
444 | $u = "/\n[\s]*\n/S" . $GLOBALS['meta']['pcre_u']; |
---|
445 | foreach ($regs as $reg) { |
---|
446 | $lecode = preg_replace(",\r\n?,S", "\n", $reg[2]); |
---|
447 | $lecode = preg_replace($u, "\n \n",$lecode); |
---|
448 | $lecode = "<blockquote class=\"spip_poesie\">\n<div>" |
---|
449 | .preg_replace("/\n+/", "</div>\n<div>", trim($lecode)) |
---|
450 | ."</div>\n</blockquote>\n\n"; |
---|
451 | $letexte = str_replace($reg[0], $lecode, $letexte); |
---|
452 | } |
---|
453 | } |
---|
454 | return $letexte; |
---|
455 | } |
---|
456 | |
---|
457 | // Harmonise les retours chariots et mange les paragraphes html |
---|
458 | // http://doc.spip.org/@traiter_retours_chariots |
---|
459 | function traiter_retours_chariots($letexte) { |
---|
460 | $letexte = preg_replace(",\r\n?,S", "\n", $letexte); |
---|
461 | $letexte = preg_replace(",<p[>[:space:]],iS", "\n\n\\0", $letexte); |
---|
462 | $letexte = preg_replace(",</p[>[:space:]],iS", "\\0\n\n", $letexte); |
---|
463 | return $letexte; |
---|
464 | } |
---|
465 | |
---|
466 | // Ces deux constantes permettent de proteger certains caracteres |
---|
467 | // en les remplacanat par des caracteres "illegaux". (cf corriger_caracteres) |
---|
468 | |
---|
469 | define('_RACCOURCI_PROTEGER', "{}_-"); |
---|
470 | define('_RACCOURCI_PROTECTEUR', "\x1\x2\x3\x4"); |
---|
471 | |
---|
472 | define('_RACCOURCI_BALISE', ",</?[a-z!][^<>]*[".preg_quote(_RACCOURCI_PROTEGER)."][^<>]*>,imsS"); |
---|
473 | |
---|
474 | // Nettoie un texte, traite les raccourcis autre qu'URL, la typo, etc. |
---|
475 | |
---|
476 | // mais d'abord, une callback de reconfiguration des raccourcis |
---|
477 | // a partir de globales (est-ce old-style ? on conserve quand meme |
---|
478 | // par souci de compat ascendante) |
---|
479 | function personnaliser_raccourcis(&$ruleset){ |
---|
480 | if (isset($GLOBALS['debut_intertitre']) AND $rule=$ruleset->getRule('intertitres')){ |
---|
481 | $rule->replace[0] = preg_replace(',<[^>]*>,Uims',$GLOBALS['debut_intertitre'],$rule->replace[0]); |
---|
482 | $rule->replace[1] = preg_replace(',<[^>]*>,Uims',$GLOBALS['fin_intertitre'],$rule->replace[1]); |
---|
483 | $ruleset->addRules(array('intertitres'=>$rule)); |
---|
484 | } |
---|
485 | if (isset($GLOBALS['debut_gras']) AND $rule=$ruleset->getRule('gras')){ |
---|
486 | $rule->replace[0] = preg_replace(',<[^>]*>,Uims',$GLOBALS['debut_gras'],$rule->replace[0]); |
---|
487 | $rule->replace[1] = preg_replace(',<[^>]*>,Uims',$GLOBALS['fin_gras'],$rule->replace[1]); |
---|
488 | $ruleset->addRules(array('gras'=>$rule)); |
---|
489 | } |
---|
490 | if (isset($GLOBALS['debut_italique']) AND $rule=$ruleset->getRule('italiques')){ |
---|
491 | $rule->replace[0] = preg_replace(',<[^>]*>,Uims',$GLOBALS['debut_italique'],$rule->replace[0]); |
---|
492 | $rule->replace[1] = preg_replace(',<[^>]*>,Uims',$GLOBALS['fin_italique'],$rule->replace[1]); |
---|
493 | $ruleset->addRules(array('italiques'=>$rule)); |
---|
494 | } |
---|
495 | if (isset($GLOBALS['ligne_horizontale']) AND $rule=$ruleset->getRule('ligne-horizontale')){ |
---|
496 | $rule->replace = preg_replace(',<[^>]*>,Uims',$GLOBALS['ligne_horizontale'],$rule->replace); |
---|
497 | $ruleset->addRules(array('ligne-horizontale'=>$rule)); |
---|
498 | } |
---|
499 | if (isset($GLOBALS['toujours_paragrapher']) AND !$GLOBALS['toujours_paragrapher'] |
---|
500 | AND $rule=$ruleset->getRule('toujours-paragrapher')) { |
---|
501 | $rule->disabled = true; |
---|
502 | $ruleset->addRules(array('toujours-paragrapher'=>$rule)); |
---|
503 | } |
---|
504 | } |
---|
505 | |
---|
506 | // http://doc.spip.org/@traiter_raccourcis |
---|
507 | function traiter_raccourcis($t) { |
---|
508 | static $wheel; |
---|
509 | // Appeler les fonctions de pre_traitement |
---|
510 | $t = pipeline('pre_propre', $t); |
---|
511 | |
---|
512 | if (!isset($wheel)) { |
---|
513 | $ruleset = SPIPTextWheelRuleset::loader( |
---|
514 | $GLOBALS['spip_wheels']['raccourcis'],'personnaliser_raccourcis' |
---|
515 | ); |
---|
516 | $wheel = new TextWheel($ruleset); |
---|
517 | |
---|
518 | if (_request('var_mode') == 'wheel' |
---|
519 | AND autoriser('debug')) { |
---|
520 | $f = $wheel->compile(); |
---|
521 | echo "<pre>\n".htmlspecialchars($f)."</pre>\n"; |
---|
522 | exit; |
---|
523 | } |
---|
524 | } |
---|
525 | |
---|
526 | // Gerer les notes (ne passe pas dans le pipeline) |
---|
527 | $notes = charger_fonction('notes', 'inc'); |
---|
528 | list($t, $mes_notes) = $notes($t); |
---|
529 | |
---|
530 | $t = $wheel->text($t); |
---|
531 | |
---|
532 | // Appeler les fonctions de post-traitement |
---|
533 | $t = pipeline('post_propre', $t); |
---|
534 | |
---|
535 | if ($mes_notes) |
---|
536 | $notes($mes_notes); |
---|
537 | |
---|
538 | return $t; |
---|
539 | } |
---|
540 | |
---|
541 | |
---|
542 | // Filtre a appliquer aux champs du type #TEXTE* |
---|
543 | // http://doc.spip.org/@propre |
---|
544 | function propre($t, $connect=null) { |
---|
545 | // les appels directs a cette fonction depuis le php de l'espace |
---|
546 | // prive etant historiquement ecrits sans argment $connect |
---|
547 | // on utilise la presence de celui-ci pour distinguer les cas |
---|
548 | // ou il faut passer interdire_script explicitement |
---|
549 | // les appels dans les squelettes (de l'espace prive) fournissant un $connect |
---|
550 | // ne seront pas perturbes |
---|
551 | $interdire_script = false; |
---|
552 | if (is_null($connect)){ |
---|
553 | $connect = ''; |
---|
554 | $interdire_script = true; |
---|
555 | } |
---|
556 | |
---|
557 | if (!$t) return strval($t); |
---|
558 | |
---|
559 | $t = echappe_html($t); |
---|
560 | $t = expanser_liens($t,$connect); |
---|
561 | $t = traiter_raccourcis($t); |
---|
562 | $t = echappe_retour_modeles($t, $interdire_script); |
---|
563 | |
---|
564 | return $t; |
---|
565 | } |
---|
566 | ?> |
---|