`) * * @param string $t * Le texte * @param null $toujours_paragrapher * true pour forcer les `

` même pour un seul paragraphe * @return string * Texte paragraphé */ function paragrapher($t, $toujours_paragrapher = null) { static $wheel = array(); if (is_null($toujours_paragrapher)) { $toujours_paragrapher = $GLOBALS['toujours_paragrapher']; } if (!isset($wheel[$toujours_paragrapher])) { $ruleset = SPIPTextWheelRuleset::loader($GLOBALS['spip_wheels']['paragrapher']); if (!$toujours_paragrapher and $rule = $ruleset->getRule('toujours-paragrapher') ) { $rule->disabled = true; $ruleset->addRules(array('toujours-paragrapher' => $rule)); } $wheel[$toujours_paragrapher] = new TextWheel($ruleset); } try { $t = $wheel[$toujours_paragrapher]->text($t); } catch (Exception $e) { erreur_squelette($e->getMessage()); } return $t; } /** * Empêcher l'exécution de code PHP et JS * * Sécurité : empêcher l'exécution de code PHP, en le transformant en joli code * dans l'espace privé. Cette fonction est aussi appelée par propre et typo. * * De la même manière, la fonction empêche l'exécution de JS mais selon le mode * de protection passe en argument * * Il ne faut pas désactiver globalement la fonction dans l'espace privé car elle protège * aussi les balises des squelettes qui ne passent pas forcement par propre ou typo après * si elles sont appelées en direct * * @param string $arg * Code à protéger * @param int $mode_filtre * Mode de protection * -1 : protection dans l'espace privé et public * 0 : protection dans l'espace public * 1 : aucune protection * utilise la valeur de la globale filtrer_javascript si non fourni * @return string * Code protégé **/ function interdire_scripts($arg, $mode_filtre=null) { // on memorise le resultat sur les arguments non triviaux static $dejavu = array(); static $wheel = array(); if (is_null($mode_filtre) or !in_array($mode_filtre, array(-1, 0, 1))) { $mode_filtre = $GLOBALS['filtrer_javascript']; } // Attention, si ce n'est pas une chaine, laisser intact if (!$arg or !is_string($arg) or !strstr($arg, '<')) { return $arg; } if (isset($dejavu[$mode_filtre][$arg])) { return $dejavu[$mode_filtre][$arg]; } if (!isset($wheel[$mode_filtre])) { $ruleset = SPIPTextWheelRuleset::loader( $GLOBALS['spip_wheels']['interdire_scripts'] ); // Pour le js, trois modes : parano (-1), prive (0), ok (1) // desactiver la regle echappe-js si besoin if ($mode_filtre == 1 or ($mode_filtre == 0 and !test_espace_prive()) ) { $ruleset->addRules(array('securite-js' => array('disabled' => true))); } $wheel[$mode_filtre] = new TextWheel($ruleset); } try { $t = $wheel[$mode_filtre]->text($arg); } catch (Exception $e) { erreur_squelette($e->getMessage()); // sanitizer le contenu methode brute, puisqu'on a pas fait mieux $t = textebrut($arg); } // Reinserer les echappements des modeles if (defined('_PROTEGE_JS_MODELES')) { $t = echappe_retour($t, "javascript" . _PROTEGE_JS_MODELES); } if (defined('_PROTEGE_PHP_MODELES')) { $t = echappe_retour($t, "php" . _PROTEGE_PHP_MODELES); } return $dejavu[$mode_filtre][$arg] = $t; } /** * Applique la typographie générale * * Effectue un traitement pour que les textes affichés suivent les règles * de typographie. Fait une protection préalable des balises HTML et SPIP. * Transforme les balises `` * * @filtre * @uses traiter_modeles() * @uses corriger_typo() * @uses echapper_faux_tags() * @see propre() * * @param string $letexte * Texte d'origine * @param bool $echapper * Échapper ? * @param string|null $connect * Nom du connecteur à la bdd * @param array $env * Environnement (pour les calculs de modèles) * @return string $t * Texte transformé **/ function typo($letexte, $echapper = true, $connect = null, $env = array()) { // Plus vite ! if (!$letexte) { return $letexte; } // les appels directs a cette fonction depuis le php de l'espace // prive etant historiquement ecrit sans argment $connect // on utilise la presence de celui-ci pour distinguer les cas // ou il faut passer interdire_script explicitement // les appels dans les squelettes (de l'espace prive) fournissant un $connect // ne seront pas perturbes $interdire_script = false; if (is_null($connect)) { $connect = ''; $interdire_script = true; $env['espace_prive'] = test_espace_prive(); } $echapper = ($echapper ? 'TYPO' : false); // Echapper les codes etc if ($echapper) { $letexte = echappe_html($letexte, $echapper); } // // Installer les modeles, notamment images et documents ; // // NOTE : propre() ne passe pas par ici mais directement par corriger_typo // cf. inc/lien $letexte = traiter_modeles($mem = $letexte, false, $echapper ? $echapper : '', $connect, null, $env); if (!$echapper and $letexte != $mem) { $echapper = ''; } unset($mem); $letexte = corriger_typo($letexte); $letexte = echapper_faux_tags($letexte); // reintegrer les echappements if ($echapper !== false) { $letexte = echappe_retour($letexte, $echapper); } // Dans les appels directs hors squelette, securiser ici aussi if ($interdire_script) { $letexte = interdire_scripts($letexte); } // Dans l'espace prive on se mefie de tout contenu dangereux // https://core.spip.net/issues/3371 if (isset($env['espace_prive']) and $env['espace_prive']) { $letexte = echapper_html_suspect($letexte); } return $letexte; } // Correcteur typographique define('_TYPO_PROTEGER', "!':;?~%-"); define('_TYPO_PROTECTEUR', "\x1\x2\x3\x4\x5\x6\x7\x8"); define('_TYPO_BALISE', ",]*[" . preg_quote(_TYPO_PROTEGER) . "][^<>]*>,imsS"); /** * Corrige la typographie * * Applique les corrections typographiques adaptées à la langue indiquée. * * @pipeline_appel pre_typo * @pipeline_appel post_typo * @uses corriger_caracteres() * @uses corriger_caracteres() * * @param string $t Texte * @param string $lang Langue * @return string Texte */ function corriger_typo($t, $lang = '') { static $typographie = array(); // Plus vite ! if (!$t) { return $t; } $t = pipeline('pre_typo', $t); // Caracteres de controle "illegaux" $t = corriger_caracteres($t); // Proteger les caracteres typographiques a l'interieur des tags html if (preg_match_all(_TYPO_BALISE, $t, $regs, PREG_SET_ORDER)) { foreach ($regs as $reg) { $insert = $reg[0]; // hack: on transforme les caracteres a proteger en les remplacant // par des caracteres "illegaux". (cf corriger_caracteres()) $insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR); $t = str_replace($reg[0], $insert, $t); } } // trouver les blocs idiomes et les traiter à part $t = extraire_idiome($ei = $t, $lang, true); $ei = ($ei !== $t); // trouver les blocs multi et les traiter à part $t = extraire_multi($em = $t, $lang, true); $em = ($em !== $t); // Charger & appliquer les fonctions de typographie $idxl = "$lang:" . (isset($GLOBALS['lang_objet']) ? $GLOBALS['lang_objet'] : $GLOBALS['spip_lang']); if (!isset($typographie[$idxl])) { $typographie[$idxl] = charger_fonction(lang_typo($lang), 'typographie'); } $t = $typographie[$idxl]($t); // Les citations en une autre langue, s'il y a lieu if ($ei) { $t = echappe_retour($t, 'idiome'); } if ($em) { $t = echappe_retour($t, 'multi'); } // Retablir les caracteres proteges $t = strtr($t, _TYPO_PROTECTEUR, _TYPO_PROTEGER); // pipeline $t = pipeline('post_typo', $t); # un message pour abs_url - on est passe en mode texte $GLOBALS['mode_abs_url'] = 'texte'; return $t; } // // Tableaux // define('_RACCOURCI_TH_SPAN', '\s*(:?{{[^{}]+}}\s*)?|<'); /** * Traitement des raccourcis de tableaux * * @param string $bloc * @return string */ function traiter_tableau($bloc) { // id "unique" pour les id du tableau $tabid = substr(md5($bloc), 0, 4); // Decouper le tableau en lignes preg_match_all(',([|].*)[|]\n,UmsS', $bloc, $regs, PREG_PATTERN_ORDER); $lignes = array(); $debut_table = $summary = ''; $l = 0; $numeric = true; // Traiter chaque ligne $reg_line1 = ',^(\|(' . _RACCOURCI_TH_SPAN . '))+$,sS'; $reg_line_all = ',^(' . _RACCOURCI_TH_SPAN . ')$,sS'; $hc = $hl = array(); foreach ($regs[1] as $ligne) { $l++; // Gestion de la premiere ligne : if ($l == 1) { // - et summary dans la premiere ligne : // || caption | summary || (|summary est optionnel) if (preg_match(',^\|\|([^|]*)(\|(.*))?$,sS', rtrim($ligne, '|'), $cap)) { $cap = array_pad($cap, 4, null); $l = 0; if ($caption = trim($cap[1])) { $debut_table .= "" . $caption . "\n"; } $summary = ' summary="' . entites_html(trim($cap[3])) . '"'; } // - sous la forme |{{titre}}|{{titre}}| // Attention thead oblige a avoir tbody else { if (preg_match($reg_line1, $ligne, $thead)) { preg_match_all('/\|([^|]*)/S', $ligne, $cols); $ligne = ''; $cols = $cols[1]; $colspan = 1; for ($c = count($cols) - 1; $c >= 0; $c--) { $attr = ''; if ($cols[$c] == '<') { $colspan++; } else { if ($colspan > 1) { $attr = " colspan='$colspan'"; $colspan = 1; } // inutile de garder le strong qui n'a servi que de marqueur $cols[$c] = str_replace(array('{', '}'), '', $cols[$c]); $ligne = "$cols[$c]$ligne"; $hc[$c] = "id{$tabid}_c$c"; // pour mettre dans les headers des td } } $debut_table .= "" . $ligne . "\n"; $l = 0; } } } // Sinon ligne normale if ($l) { // Gerer les listes a puce dans les cellules // on declenche simplement sur \n- car il y a les // -* -# -? -! (qui produisent des - !) if (strpos($ligne, "\n-") !== false) { $ligne = traiter_listes($ligne); } // tout mettre dans un tableau 2d preg_match_all('/\|([^|]*)/S', $ligne, $cols); // Pas de paragraphes dans les cellules foreach ($cols[1] as &$col) { if (strlen($col = trim($col))) { $col = preg_replace("/\n{2,}/S", "

", $col); if (_AUTOBR) { $col = str_replace("\n", _AUTOBR . "\n", $col); } } } // assembler le tableau $lignes[] = $cols[1]; } } // maintenant qu'on a toutes les cellules // on prepare une liste de rowspan par defaut, a partir // du nombre de colonnes dans la premiere ligne. // Reperer egalement les colonnes numeriques pour les cadrer a droite $rowspans = $numeric = array(); $n = count($lignes[0]); $k = count($lignes); // distinguer les colonnes numeriques a point ou a virgule, // pour les alignements eventuels sur "," ou "." $numeric_class = array( '.' => 'point', ',' => 'virgule', true => '' ); for ($i = 0; $i < $n; $i++) { $align = true; for ($j = 0; $j < $k; $j++) { $rowspans[$j][$i] = 1; if ($align and preg_match('/^[{+-]*(?:\s|\d)*([.,]?)\d*[}]*$/', trim($lignes[$j][$i]), $r)) { if ($r[1]) { $align = $r[1]; } } else { $align = ''; } } $numeric[$i] = $align ? (" class='numeric " . $numeric_class[$align] . "'") : ''; } for ($j = 0; $j < $k; $j++) { if (preg_match($reg_line_all, $lignes[$j][0])) { $hl[$j] = "id{$tabid}_l$j"; // pour mettre dans les headers des td } else { unset($hl[0]); } } if (!isset($hl[0])) { $hl = array(); } // toute la colonne ou rien // et on parcourt le tableau a l'envers pour ramasser les // colspan et rowspan en passant $html = ''; for ($l = count($lignes) - 1; $l >= 0; $l--) { $cols = $lignes[$l]; $colspan = 1; $ligne = ''; for ($c = count($cols) - 1; $c >= 0; $c--) { $attr = $numeric[$c]; $cell = trim($cols[$c]); if ($cell == '<') { $colspan++; } elseif ($cell == '^') { $rowspans[$l - 1][$c] += $rowspans[$l][$c]; } else { if ($colspan > 1) { $attr .= " colspan='$colspan'"; $colspan = 1; } if (($x = $rowspans[$l][$c]) > 1) { $attr .= " rowspan='$x'"; } $b = ($c == 0 and isset($hl[$l])) ? 'th' : 'td'; $h = (isset($hc[$c]) ? $hc[$c] : '') . ' ' . (($b == 'td' and isset($hl[$l])) ? $hl[$l] : ''); if ($h = trim($h)) { $attr .= " headers='$h'"; } // inutile de garder le strong qui n'a servi que de marqueur if ($b == 'th') { $attr .= " id='" . $hl[$l] . "'"; $cols[$c] = str_replace(array('{', '}'), '', $cols[$c]); } $ligne = "\n<$b" . $attr . '>' . $cols[$c] . "" . $ligne; } } // ligne complete $class = alterner($l + 1, 'odd', 'even'); $html = "$ligne\n$html"; } return "\n\n\n" . $debut_table . "\n" . $html . "\n" . "\n\n"; } /** * Traitement des listes * * On utilise la wheel correspondante * * @param string $t * @return string */ function traiter_listes($t) { static $wheel = null; if (!isset($wheel)) { $wheel = new TextWheel( SPIPTextWheelRuleset::loader($GLOBALS['spip_wheels']['listes']) ); } try { $t = $wheel->text($t); } catch (Exception $e) { erreur_squelette($e->getMessage()); } return $t; } // Ces deux constantes permettent de proteger certains caracteres // en les remplacanat par des caracteres "illegaux". (cf corriger_caracteres) define('_RACCOURCI_PROTEGER', "{}_-"); define('_RACCOURCI_PROTECTEUR', "\x1\x2\x3\x4"); define('_RACCOURCI_BALISE', ",]*[" . preg_quote(_RACCOURCI_PROTEGER) . "][^<>]*>,imsS"); /** * mais d'abord, une callback de reconfiguration des raccourcis * a partir de globales (est-ce old-style ? on conserve quand meme * par souci de compat ascendante) * * @param $ruleset * @return string */ function personnaliser_raccourcis(&$ruleset) { if ($ruleset) { if (isset($GLOBALS['debut_intertitre']) and $rule = $ruleset->getRule('intertitres')) { $rule->replace[0] = preg_replace(',<[^>]*>,Uims', $GLOBALS['debut_intertitre'], $rule->replace[0]); $rule->replace[1] = preg_replace(',<[^>]*>,Uims', $GLOBALS['fin_intertitre'], $rule->replace[1]); $ruleset->addRules(array('intertitres' => $rule)); } if (isset($GLOBALS['debut_gras']) and $rule = $ruleset->getRule('gras')) { $rule->replace[0] = preg_replace(',<[^>]*>,Uims', $GLOBALS['debut_gras'], $rule->replace[0]); $rule->replace[1] = preg_replace(',<[^>]*>,Uims', $GLOBALS['fin_gras'], $rule->replace[1]); $ruleset->addRules(array('gras' => $rule)); } if (isset($GLOBALS['debut_italique']) and $rule = $ruleset->getRule('italiques')) { $rule->replace[0] = preg_replace(',<[^>]*>,Uims', $GLOBALS['debut_italique'], $rule->replace[0]); $rule->replace[1] = preg_replace(',<[^>]*>,Uims', $GLOBALS['fin_italique'], $rule->replace[1]); $ruleset->addRules(array('italiques' => $rule)); } if (isset($GLOBALS['ligne_horizontale']) and $rule = $ruleset->getRule('ligne-horizontale')) { $rule->replace = preg_replace(',<[^>]*>,Uims', $GLOBALS['ligne_horizontale'], $rule->replace); $ruleset->addRules(array('ligne-horizontale' => $rule)); } if (isset($GLOBALS['toujours_paragrapher']) and !$GLOBALS['toujours_paragrapher'] and $rule = $ruleset->getRule('toujours-paragrapher') ) { $rule->disabled = true; $ruleset->addRules(array('toujours-paragrapher' => $rule)); } } // retourner une signature de l'etat de la fonction, pour la mise en cache return implode("/", array( isset($GLOBALS['debut_intertitre']) ? $GLOBALS['debut_intertitre'] : "", isset($GLOBALS['debut_gras']) ? $GLOBALS['debut_gras'] : "", isset($GLOBALS['debut_italique']) ? $GLOBALS['debut_italique'] : "", isset($GLOBALS['ligne_horizontale']) ? $GLOBALS['ligne_horizontale'] : "", isset($GLOBALS['toujours_paragrapher']) ? $GLOBALS['toujours_paragrapher'] : 1, ) ); } /** * Nettoie un texte, traite les raccourcis autre qu'URL, la typo, etc. * * @pipeline_appel pre_propre * @pipeline_appel post_propre * * @param string $t * @param bool $show_autobr * @return string */ function traiter_raccourcis($t, $show_autobr = false) { static $wheel = array(), $notes; static $img_br_auto, $img_br_manuel, $img_br_no; global $spip_lang, $spip_lang_rtl; // hack1: respecter le tag ignore br if (_AUTOBR_IGNORER and strncmp($t, _AUTOBR_IGNORER, strlen(_AUTOBR_IGNORER)) == 0 ) { $ignorer_autobr = true; $t = substr($t, strlen(_AUTOBR_IGNORER)); } else { $ignorer_autobr = false; } // Appeler les fonctions de pre_traitement $t = pipeline('pre_propre', $t); $key = ""; $key = personnaliser_raccourcis($key); if (!isset($wheel[$key])) { $ruleset = SPIPTextWheelRuleset::loader( $GLOBALS['spip_wheels']['raccourcis'], 'personnaliser_raccourcis' ); $wheel[$key] = new TextWheel($ruleset); if (_request('var_mode') == 'wheel' and autoriser('debug') ) { $f = $wheel->compile(); echo "

\n" . spip_htmlspecialchars($f) . "