prendre en compte $spip_matrice au niveau du compilateur (nécessite d'appeler...

prendre en compte $spip_matrice au niveau du compilateur (nécessite d'appeler une fonction filtrer($filtre, $arguments) qui chargera le fichier de définition de $filtre avant d'appeler la fonction avec les arguments)

ecrire/inc_filtres.php3

@@ -13,6 +13,17 @@
 
 if (!defined("_ECRIRE_INC_VERSION")) return;
 
+// Appliquer un filtre (eventuellement defini dans la matrice) aux donnees
+// et arguments
+function filtrer($filtre) {
+	if ($f = $GLOBALS['spip_matrice'][$filtre])
+		include_local($f);
+
+	$tous = func_get_args();
+	array_shift($tous); # enlever $filtre
+	return call_user_func_array($filtre, $tous);
+}
+
 // Echappement des entites HTML avec correction des entites "brutes"
 // (generees par les butineurs lorsqu'on rentre des caracteres n'appartenant
 // pas au charset de la page [iso-8859-1 par defaut])
@@ -2106,9 +2117,9 @@ function tags2dcsubject($tags) {
 }
 // fabrique un bouton de type $t de Name $n, de Value $v et autres attributs $a
 function boutonne($t, $n, $v, $a='') {
-  return "\n<input type='$t'" .
-    (!$n ? '' : " name='$n'") .
-    " value=\"$v\" $a />";
+	return "\n<input type='$t'"
+	. (!$n ? '' : " name='$n'")
+	. " value=\"$v\" $a />";
 }
 
 ?>

inc-compilo-index.php3

@@ -363,8 +363,14 @@ function compose_filtres($p, $code) {
 			$arglist = compose_filtres_args($p, $filtre,
 				($fonc == '?' ? ':' : ','));
 
-			// le filtre existe sous forme de fonction ou de methode
-			if (function_exists($fonc)
+			// le filtre est defini dans la matrice ? il faut alors l'appeler
+			// de maniere indirecte, pour charger au prealable sa definition
+			if (isset($GLOBALS['spip_matrice'][$fonc])) {
+				$code = "filtrer('$fonc',$code$arglist)";
+			}
+			// le filtre est defini sous forme de fonction ou de methode
+			// par ex. dans inc_texte, inc_filtres ou mes_fonctions
+			else if (function_exists($fonc)
 				OR (preg_match("/^(\w*)::(\w*)$/", $fonc, $regs)                            
 					AND is_callable(array($regs[1], $regs[2]))
 			))