spip / SPIP

index.php

Indentation +2 added lines, -2 removed lines

@@ -1,4 +1,4 @@
 <?php
-	# appel SPIP
-	include ('spip.php');
+    # appel SPIP
+    include ('spip.php');
 ?>

ecrire/public/decompiler.php

Indentation +138 added lines, -138 removed lines

@@ -16,107 +16,107 @@ 
 
 function decompiler_boucle($struct, $fmt='', $prof=0)
 {
-	$nom = $struct->id_boucle;
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$altern = decompiler_($struct->altern, $fmt, $prof);
-	$milieu = decompiler_($struct->milieu, $fmt, $prof);
-
-	$type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
-	$type .= ($struct->type_requete ? $struct->type_requete :
-			    $struct->table_optionnelle);
-
-	if ($struct->jointures_explicites)
-	  $type .= " " . $struct->jointures_explicites;
-	if ($struct->table_optionnelle)
-	  $type .= "?";
-	// Revoir le cas de la boucle recursive
-
-	$crit = $struct->param;
-	if ($crit AND !is_array($crit[0])) {
-		$type = strtolower($type) . array_shift($crit);
-	}
-	$crit = decompiler_criteres($struct, $fmt, $prof) ;
-
-	$f = 'format_boucle_' . $fmt;
-	return $f($avant, $nom, $type, $crit, $milieu, $apres, $altern, $prof);
+    $nom = $struct->id_boucle;
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $altern = decompiler_($struct->altern, $fmt, $prof);
+    $milieu = decompiler_($struct->milieu, $fmt, $prof);
+
+    $type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
+    $type .= ($struct->type_requete ? $struct->type_requete :
+                $struct->table_optionnelle);
+
+    if ($struct->jointures_explicites)
+        $type .= " " . $struct->jointures_explicites;
+    if ($struct->table_optionnelle)
+        $type .= "?";
+    // Revoir le cas de la boucle recursive
+
+    $crit = $struct->param;
+    if ($crit AND !is_array($crit[0])) {
+        $type = strtolower($type) . array_shift($crit);
+    }
+    $crit = decompiler_criteres($struct, $fmt, $prof) ;
+
+    $f = 'format_boucle_' . $fmt;
+    return $f($avant, $nom, $type, $crit, $milieu, $apres, $altern, $prof);
 }
 	
 function decompiler_include($struct, $fmt='', $prof=0)
 {
-	$res = array();
-	foreach($struct->param ? $struct->param : array() as $couple) {
-		array_shift($couple);
-		foreach($couple as $v) {
-			$res[]= decompiler_($v, $fmt, $prof);
-		}
-	}
-	$file = is_string($struct->texte) ? $struct->texte :
-		decompiler_($struct->texte, $fmt, $prof);
-	$f = 'format_inclure_' . $fmt;
-	return $f($file, $res, $prof);
+    $res = array();
+    foreach($struct->param ? $struct->param : array() as $couple) {
+        array_shift($couple);
+        foreach($couple as $v) {
+            $res[]= decompiler_($v, $fmt, $prof);
+        }
+    }
+    $file = is_string($struct->texte) ? $struct->texte :
+        decompiler_($struct->texte, $fmt, $prof);
+    $f = 'format_inclure_' . $fmt;
+    return $f($file, $res, $prof);
 }
 
 function decompiler_texte($struct, $fmt='', $prof=0)
 {
-	$f = 'format_texte_' . $fmt;
-	return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
+    $f = 'format_texte_' . $fmt;
+    return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
 }
 
 function decompiler_polyglotte($struct, $fmt='', $prof=0)
 {
-	$f = 'format_polyglotte_' . $fmt;
-	return $f($struct->traductions, $prof);
+    $f = 'format_polyglotte_' . $fmt;
+    return $f($struct->traductions, $prof);
 }
 
 function decompiler_idiome($struct, $fmt='', $prof=0)
 {
-	$args = array();
-	foreach ($struct->arg as $k => $v) {
-		$args[$k]= public_decompiler($v, $fmt, $prof);
-	}
+    $args = array();
+    foreach ($struct->arg as $k => $v) {
+        $args[$k]= public_decompiler($v, $fmt, $prof);
+    }
 
-	$filtres =  decompiler_liste($struct->param, $fmt, $prof);
+    $filtres =  decompiler_liste($struct->param, $fmt, $prof);
 
-	$f = 'format_idiome_' . $fmt;
-	return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
+    $f = 'format_idiome_' . $fmt;
+    return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
 }
 
 function decompiler_champ($struct, $fmt='', $prof=0)
 {
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$args = $filtres = '';
-	if ($p = $struct->param) {
-		if ($p[0][0]==='')
-		  $args = decompiler_liste(array(array_shift($p)), $fmt, $prof);
-		$filtres = decompiler_liste($p, $fmt, $prof);
-	}
-	$f = 'format_champ_' . $fmt;
-	return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $args = $filtres = '';
+    if ($p = $struct->param) {
+        if ($p[0][0]==='')
+            $args = decompiler_liste(array(array_shift($p)), $fmt, $prof);
+        $filtres = decompiler_liste($p, $fmt, $prof);
+    }
+    $f = 'format_champ_' . $fmt;
+    return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
 }
 
 function decompiler_liste($sources, $fmt='', $prof=0) {
-	if (!is_array($sources)) return '';
-	$f = 'format_liste_' . $fmt;
-	$res = '';
-	foreach($sources as $arg) {
-		if (!is_array($arg))  {
-		  continue; // ne devrait pas arriver.
-		} else {$r = array_shift($arg);}
-		$args = array();
-		foreach($arg as $v) {
-		  // cas des arguments entoures de ' ou "
-			if ((count($v) == 1) 
-			AND $v[0]->type=='texte'
-			AND (strlen($v[0]->apres) == 1)
-			AND $v[0]->apres == $v[0]->avant)
-			  $args[]= $v[0]->avant . $v[0]->texte . $v[0]->apres;
-			else $args[]= decompiler_($v, $fmt, 0-$prof);
-		}
-		if (($r!=='') OR $args) $res .= $f($r, $args, $prof);
-	}
-	return $res;
+    if (!is_array($sources)) return '';
+    $f = 'format_liste_' . $fmt;
+    $res = '';
+    foreach($sources as $arg) {
+        if (!is_array($arg))  {
+            continue; // ne devrait pas arriver.
+        } else {$r = array_shift($arg);}
+        $args = array();
+        foreach($arg as $v) {
+            // cas des arguments entoures de ' ou "
+            if ((count($v) == 1) 
+            AND $v[0]->type=='texte'
+            AND (strlen($v[0]->apres) == 1)
+            AND $v[0]->apres == $v[0]->avant)
+                $args[]= $v[0]->avant . $v[0]->texte . $v[0]->apres;
+            else $args[]= decompiler_($v, $fmt, 0-$prof);
+        }
+        if (($r!=='') OR $args) $res .= $f($r, $args, $prof);
+    }
+    return $res;
 }
 
 // Decompilation des criteres: on triche et on deroge:
@@ -124,76 +124,76 @@ 
 // - le champ apres signale le critere {"separateur"} ou {'separateur'}
 // - les champs sont implicitement etendus (crochets implicites mais interdits)
 function decompiler_criteres($boucle, $fmt='', $prof=0) {
-	$sources = $boucle->param;
-	if (!is_array($sources)) return '';
-	$res = '';
-	$f = 'format_critere_' . $fmt;
-	foreach($sources as $crit) {
-		if (!is_array($crit)) continue; // boucle recursive
-		array_shift($crit);
-		$args = array();
-		foreach($crit as $i => $v) {
-		  if ((count($v) == 1) 
-		      AND $v[0]->type=='texte'
-		      AND $v[0]->apres)
-		    $args[]= array(array('texte', ( $v[0]->apres . $v[0]->texte . $v[0]->apres)));
-		  else {
-		    $res2 = array();
-		    foreach($v as $k => $p) {
-			if (isset($p->type)
-			AND function_exists($d = 'decompiler_' . $p->type)) {
-				$r = $d($p, $fmt, (0-$prof), @$v[$k+1]);
-				$res2[]= array($p->type, $r);
-			} else spip_log("critere $i / $k mal forme");
-		    }
-		    $args[]= $res2;
-		  }
-		}
-		$res .= $f($args);
-	}
-	return $res;
+    $sources = $boucle->param;
+    if (!is_array($sources)) return '';
+    $res = '';
+    $f = 'format_critere_' . $fmt;
+    foreach($sources as $crit) {
+        if (!is_array($crit)) continue; // boucle recursive
+        array_shift($crit);
+        $args = array();
+        foreach($crit as $i => $v) {
+            if ((count($v) == 1) 
+              AND $v[0]->type=='texte'
+              AND $v[0]->apres)
+            $args[]= array(array('texte', ( $v[0]->apres . $v[0]->texte . $v[0]->apres)));
+            else {
+            $res2 = array();
+            foreach($v as $k => $p) {
+            if (isset($p->type)
+            AND function_exists($d = 'decompiler_' . $p->type)) {
+                $r = $d($p, $fmt, (0-$prof), @$v[$k+1]);
+                $res2[]= array($p->type, $r);
+            } else spip_log("critere $i / $k mal forme");
+            }
+            $args[]= $res2;
+            }
+        }
+        $res .= $f($args);
+    }
+    return $res;
 }
 
 
 function decompiler_($liste, $fmt='', $prof=0)
 {
-	if (!is_array($liste))  return '';
-	$prof2 = ($prof < 0) ? ($prof-1) : ($prof+1);
-	$contenu = array();
-	foreach($liste as $k => $p) {
-	    if (!isset($p->type)) continue; #??????
-	    $d = 'decompiler_' . $p->type;
-	    $next = isset($liste[$k+1]) ? $liste[$k+1] : false;
-	  // Forcer le champ etendu si son source (pas les reecritures)
-	  // contenait des args et s'il est suivi d'espaces, 
-	  // le champ simple les eliminant est un bug helas perenne.
-
-	    if ($next 
-		AND ($next->type == 'texte')
-		AND $p->type == 'champ' 
-		AND !$p->apres 
-		AND !$p->avant
-		AND $p->fonctions) {
-	      $n = strlen($next->texte) - strlen(ltrim($next->texte));
-	      if ($n)  {
-			$champ = new Texte;
-			$champ->texte = substr($next->texte, 0, $n);
-			$champ->ligne = $p->ligne;
-			$p->apres = array($champ);
-			$next->texte = substr($next->texte, $n);
-	      }
-	    }
-	    $contenu[] = array($d($p, $fmt, $prof2), $p->type);
-
-	}
-	$f = 'format_suite_' . $fmt;
-	return $f($contenu);
+    if (!is_array($liste))  return '';
+    $prof2 = ($prof < 0) ? ($prof-1) : ($prof+1);
+    $contenu = array();
+    foreach($liste as $k => $p) {
+        if (!isset($p->type)) continue; #??????
+        $d = 'decompiler_' . $p->type;
+        $next = isset($liste[$k+1]) ? $liste[$k+1] : false;
+        // Forcer le champ etendu si son source (pas les reecritures)
+        // contenait des args et s'il est suivi d'espaces, 
+        // le champ simple les eliminant est un bug helas perenne.
+
+        if ($next 
+        AND ($next->type == 'texte')
+        AND $p->type == 'champ' 
+        AND !$p->apres 
+        AND !$p->avant
+        AND $p->fonctions) {
+            $n = strlen($next->texte) - strlen(ltrim($next->texte));
+            if ($n)  {
+            $champ = new Texte;
+            $champ->texte = substr($next->texte, 0, $n);
+            $champ->ligne = $p->ligne;
+            $p->apres = array($champ);
+            $next->texte = substr($next->texte, $n);
+            }
+        }
+        $contenu[] = array($d($p, $fmt, $prof2), $p->type);
+
+    }
+    $f = 'format_suite_' . $fmt;
+    return $f($contenu);
 }
 
 function public_decompiler($liste, $fmt='', $prof=0, $quoi='') 
 {
-	if (!include_spip('public/format_' . $fmt)) return "'$fmt'?";
-	$f = 'decompiler_' . $quoi;
-	return $f($liste, $fmt, $prof);
+    if (!include_spip('public/format_' . $fmt)) return "'$fmt'?";
+    $f = 'decompiler_' . $quoi;
+    return $f($liste, $fmt, $prof);
 }
 ?>

ecrire/public/evaluer_page.php

Indentation +60 added lines, -60 removed lines

@@ -31,70 +31,70 @@
 // Cas d'une page contenant du PHP :
 if ($page['process_ins'] != 'html') {
 
-	/**
-	 * Teste si on a déjà évalué du PHP
-	 * 
-	 * Inclure inc/lang la première fois pour définir spip_lang
-	 * si ça n'a pas encore été fait.
-	 */
-	if (!defined('_EVALUER_PAGE_PHP')) {
-		define('_EVALUER_PAGE_PHP', true);
-		include_spip('inc/lang');
-	}
+    /**
+     * Teste si on a déjà évalué du PHP
+     * 
+     * Inclure inc/lang la première fois pour définir spip_lang
+     * si ça n'a pas encore été fait.
+     */
+    if (!defined('_EVALUER_PAGE_PHP')) {
+        define('_EVALUER_PAGE_PHP', true);
+        include_spip('inc/lang');
+    }
 
-	// restaurer l'etat des notes avant calcul
-	if (isset($page['notes'])
-		AND $page['notes']
-		AND $notes = charger_fonction("notes","inc",true)){
-		$notes($page['notes'],'restaurer_etat');
-	}
-	ob_start();
-	if (strpos($page['texte'],'?xml')!==false)
-		$page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
+    // restaurer l'etat des notes avant calcul
+    if (isset($page['notes'])
+        AND $page['notes']
+        AND $notes = charger_fonction("notes","inc",true)){
+        $notes($page['notes'],'restaurer_etat');
+    }
+    ob_start();
+    if (strpos($page['texte'],'?xml')!==false)
+        $page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
 
-	try {
-		$res = eval('?' . '>' . $page['texte']);
-		// error catching 5.2<=PHP<7
-		if ($res === false
-		  and function_exists('error_get_last')
-		  and ($erreur = error_get_last()) ) {
-			$code = $page['texte'];
-			$GLOBALS['numero_ligne_php'] = 1;
-			if (!function_exists('numerote_ligne_php')){
-				function numerote_ligne_php($match){
-					$GLOBALS['numero_ligne_php']++;
-					return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
-				}
-			}
-			$code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
-			$code = trim(highlight_string($code,true));
-			erreur_squelette("L".$erreur['line'].": ".$erreur['message']."<br />".$code,array($page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']));
-			$page['texte'] = "<!-- Erreur -->";
-		}
-		else {
-			$page['texte'] = ob_get_contents();
-		}
-	}
-	catch (Exception $e){
-		$code = $page['texte'];
-		$GLOBALS['numero_ligne_php'] = 1;
-		if (!function_exists('numerote_ligne_php')){
-			function numerote_ligne_php($match){
-				$GLOBALS['numero_ligne_php']++;
-				return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
-			}
-		}
-		$code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
-		$code = trim(highlight_string($code,true));
-		erreur_squelette("L".$e->getLine().": ".$e->getMessage()."<br />".$code,array($page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']));
-		$page['texte'] = "<!-- Erreur -->";
-	}
-	ob_end_clean();
+    try {
+        $res = eval('?' . '>' . $page['texte']);
+        // error catching 5.2<=PHP<7
+        if ($res === false
+          and function_exists('error_get_last')
+          and ($erreur = error_get_last()) ) {
+            $code = $page['texte'];
+            $GLOBALS['numero_ligne_php'] = 1;
+            if (!function_exists('numerote_ligne_php')){
+                function numerote_ligne_php($match){
+                    $GLOBALS['numero_ligne_php']++;
+                    return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
+                }
+            }
+            $code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
+            $code = trim(highlight_string($code,true));
+            erreur_squelette("L".$erreur['line'].": ".$erreur['message']."<br />".$code,array($page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']));
+            $page['texte'] = "<!-- Erreur -->";
+        }
+        else {
+            $page['texte'] = ob_get_contents();
+        }
+    }
+    catch (Exception $e){
+        $code = $page['texte'];
+        $GLOBALS['numero_ligne_php'] = 1;
+        if (!function_exists('numerote_ligne_php')){
+            function numerote_ligne_php($match){
+                $GLOBALS['numero_ligne_php']++;
+                return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
+            }
+        }
+        $code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
+        $code = trim(highlight_string($code,true));
+        erreur_squelette("L".$e->getLine().": ".$e->getMessage()."<br />".$code,array($page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']));
+        $page['texte'] = "<!-- Erreur -->";
+    }
+    ob_end_clean();
 
-	$page['process_ins'] = 'html';
+    $page['process_ins'] = 'html';
 
-	if (strpos($page['texte'],'?xml')!==false)
-		$page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
+    if (strpos($page['texte'],'?xml')!==false)
+        $page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
 }
 
 page_base_href($page['texte']);

ecrire/public/references.php

Indentation +397 added lines, -397 removed lines

@@ -29,17 +29,17 @@ 
  */
 function index_boucle($p){
 
-	$idb = $p->id_boucle;
-	$explicite = $p->nom_boucle;
+    $idb = $p->id_boucle;
+    $explicite = $p->nom_boucle;
 
-	if (strlen($explicite)) {
-		// Recherche d'un champ dans un etage superieur
-	  while (($idb !== $explicite) && ($idb !=='')) {
-			$idb = $p->boucles[$idb]->id_parent;
-		}
-	}
+    if (strlen($explicite)) {
+        // Recherche d'un champ dans un etage superieur
+        while (($idb !== $explicite) && ($idb !=='')) {
+            $idb = $p->boucles[$idb]->id_parent;
+        }
+    }
 
-	return $idb;
+    return $idb;
 }
 
 /**
@@ -65,52 +65,52 @@ 
  * @return string
  */
 function index_pile($idb, $nom_champ, &$boucles, $explicite='', $defaut=null, $remonte_pile=true) {
-	if (!is_string($defaut))
-		$defaut = '@$Pile[0][\''. strtolower($nom_champ) . '\']';
-
-	$i = 0;
-	if (strlen($explicite)) {
-		// Recherche d'un champ dans un etage superieur
-	  while (($idb !== $explicite) && ($idb !=='')) {
-			#	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
-			$i++;
-			$idb = $boucles[$idb]->id_parent;
-		}
-	}
-
-	#	spip_log("Cherche: $nom_champ a partir de '$idb'");
-	$nom_champ = strtolower($nom_champ);
-	$conditionnel = array();
-	// attention: entre la boucle nommee 0, "" et le tableau vide,
-	// il y a incoherences qu'il vaut mieux eviter
-	while (isset($boucles[$idb])) {
-		$joker = true;
-		list ($t, $c) = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
-		if ($t) {
-			if (!in_array($t, $boucles[$idb]->select)) {
-				$boucles[$idb]->select[] = $t;
-			}
-			$champ = '$Pile[$SP' . ($i ? "-$i" : "") . '][\'' . $c . '\']';
-			if (!$joker)
-				return index_compose($conditionnel,$champ);
-
-			$conditionnel[] = "isset($champ)?$champ";
-		}
-
-		if ($remonte_pile){
-			#	spip_log("On remonte vers $i");
-			// Sinon on remonte d'un cran
-			$idb = $boucles[$idb]->id_parent;
-			$i++;
-		}
-		else
-			$idb = null;
-	}
-
-	#	spip_log("Pas vu $nom_champ");
-	// esperons qu'il y sera
-	// on qu'on a fourni une valeur par "defaut" plus pertinent
-	return index_compose($conditionnel,$defaut);
+    if (!is_string($defaut))
+        $defaut = '@$Pile[0][\''. strtolower($nom_champ) . '\']';
+
+    $i = 0;
+    if (strlen($explicite)) {
+        // Recherche d'un champ dans un etage superieur
+        while (($idb !== $explicite) && ($idb !=='')) {
+            #	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
+            $i++;
+            $idb = $boucles[$idb]->id_parent;
+        }
+    }
+
+    #	spip_log("Cherche: $nom_champ a partir de '$idb'");
+    $nom_champ = strtolower($nom_champ);
+    $conditionnel = array();
+    // attention: entre la boucle nommee 0, "" et le tableau vide,
+    // il y a incoherences qu'il vaut mieux eviter
+    while (isset($boucles[$idb])) {
+        $joker = true;
+        list ($t, $c) = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
+        if ($t) {
+            if (!in_array($t, $boucles[$idb]->select)) {
+                $boucles[$idb]->select[] = $t;
+            }
+            $champ = '$Pile[$SP' . ($i ? "-$i" : "") . '][\'' . $c . '\']';
+            if (!$joker)
+                return index_compose($conditionnel,$champ);
+
+            $conditionnel[] = "isset($champ)?$champ";
+        }
+
+        if ($remonte_pile){
+            #	spip_log("On remonte vers $i");
+            // Sinon on remonte d'un cran
+            $idb = $boucles[$idb]->id_parent;
+            $i++;
+        }
+        else
+            $idb = null;
+    }
+
+    #	spip_log("Pas vu $nom_champ");
+    // esperons qu'il y sera
+    // on qu'on a fourni une valeur par "defaut" plus pertinent
+    return index_compose($conditionnel,$defaut);
 }
 
 /**
@@ -123,59 +123,59 @@ 
  * @return string
  */
 function index_compose($conditionnel,$defaut){
-	while ($c = array_pop($conditionnel))
-		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(".($defaut?$defaut:"''")."))";
-	return $defaut;
+    while ($c = array_pop($conditionnel))
+        // si on passe defaut = '', ne pas générer d'erreur de compilation.
+        $defaut = "($c:(".($defaut?$defaut:"''")."))";
+    return $defaut;
 }
 
 // http://doc.spip.org/@index_tables_en_pile
 function index_tables_en_pile($idb, $nom_champ, &$boucles, &$joker) {
-	global $exceptions_des_tables;
-
-	$r = $boucles[$idb]->type_requete;
-
-	if ($r == 'boucle') return array();
-	if (!$r) {
-		$joker = false; // indiquer a l'appelant
-		# continuer pour chercher l'erreur suivante
-		return  array("'#" . $r . ':' . $nom_champ . "'",'');
-	}
-
-	$desc = $boucles[$idb]->show;
-	$excep = isset($exceptions_des_tables[$r]) ? $exceptions_des_tables[$r] : '';
-	if ($excep)
-		$excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
-	if ($excep) {
-		$joker = false; // indiquer a l'appelant
-	  return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
-	}
-	else {
-		if (isset($desc['field'][$nom_champ])) {
-			$t = $boucles[$idb]->id_table;
-			$joker = false; // indiquer a l'appelant
-			return array("$t.$nom_champ", $nom_champ);
-		}
-		// Champ joker * des iterateurs DATA qui accepte tout
-		elseif (/*$joker AND */isset($desc['field']['*'])) {
-			$joker = true; // indiquer a l'appelant
-			return array($nom_champ, $nom_champ);
-		}
-		else {
-			$joker = false; // indiquer a l'appelant
-		  if ($boucles[$idb]->jointures_explicites) {
-		    $t = trouver_champ_exterieur($nom_champ, 
-						 $boucles[$idb]->jointures,
-						 $boucles[$idb]);
-		    if ($t) 
-					return index_exception($boucles[$idb],
-					       $desc,
-					       $nom_champ,
-					       array($t[1]['id_table'], $nom_champ));
-		  }
-			return array('','');
-		}
-	}
+    global $exceptions_des_tables;
+
+    $r = $boucles[$idb]->type_requete;
+
+    if ($r == 'boucle') return array();
+    if (!$r) {
+        $joker = false; // indiquer a l'appelant
+        # continuer pour chercher l'erreur suivante
+        return  array("'#" . $r . ':' . $nom_champ . "'",'');
+    }
+
+    $desc = $boucles[$idb]->show;
+    $excep = isset($exceptions_des_tables[$r]) ? $exceptions_des_tables[$r] : '';
+    if ($excep)
+        $excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
+    if ($excep) {
+        $joker = false; // indiquer a l'appelant
+        return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
+    }
+    else {
+        if (isset($desc['field'][$nom_champ])) {
+            $t = $boucles[$idb]->id_table;
+            $joker = false; // indiquer a l'appelant
+            return array("$t.$nom_champ", $nom_champ);
+        }
+        // Champ joker * des iterateurs DATA qui accepte tout
+        elseif (/*$joker AND */isset($desc['field']['*'])) {
+            $joker = true; // indiquer a l'appelant
+            return array($nom_champ, $nom_champ);
+        }
+        else {
+            $joker = false; // indiquer a l'appelant
+            if ($boucles[$idb]->jointures_explicites) {
+            $t = trouver_champ_exterieur($nom_champ, 
+                            $boucles[$idb]->jointures,
+                            $boucles[$idb]);
+            if ($t) 
+                    return index_exception($boucles[$idb],
+                            $desc,
+                            $nom_champ,
+                            array($t[1]['id_table'], $nom_champ));
+            }
+            return array('','');
+        }
+    }
 }
 
 // Reference a une entite SPIP alias d'un champ SQL
@@ -185,44 +185,44 @@ 
 // http://doc.spip.org/@index_exception
 function index_exception(&$boucle, $desc, $nom_champ, $excep)
 {
-	static $trouver_table;
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
-
-	if (is_array($excep)) {
-		// permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
-		$t = NULL;
-		if (count($excep)==3){
-			$index_exception_derogatoire = array_pop($excep);
-			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
-		}
-		if ($t == NULL) {
-			list($e, $x) = $excep;	#PHP4 affecte de gauche a droite
-			$excep = $x;		#PHP5 de droite a gauche !
-			$j = $trouver_table($e, $boucle->sql_serveur);
-			if (!$j) return array('','');
-			$e = $j['table'];
-			if (!$t = array_search($e, $boucle->from)) {
-				$k = $j['key']['PRIMARY KEY'];
-				if (strpos($k,',')) {
-					$l = (preg_split('/\s*,\s*/', $k));
-					$k = $desc['key']['PRIMARY KEY'];
-					if (!in_array($k, $l)) {
-						spip_log("jointure impossible $e " . join(',', $l));
-						return array('','');
-					}
-				}
-				$k = array($boucle->id_table, array($e), $k);
-				fabrique_jointures($boucle, array($k));
-				$t = array_search($e, $boucle->from);
-			}
-		}
-	}
-	else $t = $boucle->id_table;
-	// demander a SQL de gerer le synonyme
-	// ca permet que excep soit dynamique (Cedric, 2/3/06)
-	if ($excep != $nom_champ) $excep .= ' AS '. $nom_champ;
-	return array("$t.$excep", $nom_champ);
+    static $trouver_table;
+    if (!$trouver_table)
+        $trouver_table = charger_fonction('trouver_table', 'base');
+
+    if (is_array($excep)) {
+        // permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
+        $t = NULL;
+        if (count($excep)==3){
+            $index_exception_derogatoire = array_pop($excep);
+            $t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
+        }
+        if ($t == NULL) {
+            list($e, $x) = $excep;	#PHP4 affecte de gauche a droite
+            $excep = $x;		#PHP5 de droite a gauche !
+            $j = $trouver_table($e, $boucle->sql_serveur);
+            if (!$j) return array('','');
+            $e = $j['table'];
+            if (!$t = array_search($e, $boucle->from)) {
+                $k = $j['key']['PRIMARY KEY'];
+                if (strpos($k,',')) {
+                    $l = (preg_split('/\s*,\s*/', $k));
+                    $k = $desc['key']['PRIMARY KEY'];
+                    if (!in_array($k, $l)) {
+                        spip_log("jointure impossible $e " . join(',', $l));
+                        return array('','');
+                    }
+                }
+                $k = array($boucle->id_table, array($e), $k);
+                fabrique_jointures($boucle, array($k));
+                $t = array_search($e, $boucle->from);
+            }
+        }
+    }
+    else $t = $boucle->id_table;
+    // demander a SQL de gerer le synonyme
+    // ca permet que excep soit dynamique (Cedric, 2/3/06)
+    if ($excep != $nom_champ) $excep .= ' AS '. $nom_champ;
+    return array("$t.$excep", $nom_champ);
 }
 
 /**
@@ -241,15 +241,15 @@ 
  * @return string
  */
 function champ_sql($champ, $p, $defaut = null, $remonte_pile = true) {
-	return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
+    return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
 }
 
 // cette fonction sert d'API pour demander une balise Spip avec filtres
 
 // http://doc.spip.org/@calculer_champ
 function calculer_champ($p) {
-	$p = calculer_balise($p->nom_champ, $p);
-	return applique_filtres($p);
+    $p = calculer_balise($p->nom_champ, $p);
+    return applique_filtres($p);
 }
 
 // Cette fonction sert d'API pour demander une balise SPIP sans filtres.
@@ -264,57 +264,57 @@ 
 // http://doc.spip.org/@calculer_balise
 function calculer_balise($nom, $p) {
 
-	// S'agit-t-il d'une balise_XXXX[_dist]() ?
-	if ($f = charger_fonction($nom, 'balise', true)) {
-		$p->balise_calculee = true;
-		$res = $f($p);
-		if ($res !== NULL)
-			return $res;
-	}
-
-	// Certaines des balises comportant un _ sont generiques
-	if ($f = strpos($nom, '_')
-	AND $f = charger_fonction(substr($nom,0,$f+1), 'balise', true)) {
-		$res = $f($p);
-		if ($res !== NULL)
-			return $res;
-	}
-
-	$f = charger_fonction('DEFAUT', 'calculer_balise');
-
-	return $f($nom, $p);
+    // S'agit-t-il d'une balise_XXXX[_dist]() ?
+    if ($f = charger_fonction($nom, 'balise', true)) {
+        $p->balise_calculee = true;
+        $res = $f($p);
+        if ($res !== NULL)
+            return $res;
+    }
+
+    // Certaines des balises comportant un _ sont generiques
+    if ($f = strpos($nom, '_')
+    AND $f = charger_fonction(substr($nom,0,$f+1), 'balise', true)) {
+        $res = $f($p);
+        if ($res !== NULL)
+            return $res;
+    }
+
+    $f = charger_fonction('DEFAUT', 'calculer_balise');
+
+    return $f($nom, $p);
 }
 
 function calculer_balise_DEFAUT_dist($nom, $p) {
 
-	// ca pourrait etre un champ SQL homonyme,
-	$p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
-
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
-		$code = addslashes($p->fonctions[0][1]);
-		$p->code .= " . '$code'";
-	}
-
-	// ne pas passer le filtre securite sur les id_xxx
-	if (strpos($nom, 'ID_') === 0)
-		$p->interdire_scripts = false;
-
-	// Compatibilite ascendante avec les couleurs html (#FEFEFE) :
-	// SI le champ SQL n'est pas trouve
-	// ET si la balise a une forme de couleur
-	// ET s'il n'y a ni filtre ni etoile
-	// ALORS retourner la couleur.
-	// Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
-	if (preg_match("/^[A-F]{1,6}$/i", $nom)
-	AND !$p->etoile
-	AND !$p->fonctions) {
-		$p->code = "'#$nom'";
-		$p->interdire_scripts = false;
-	}
-
-	return $p;
+    // ca pourrait etre un champ SQL homonyme,
+    $p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
+
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
+        $code = addslashes($p->fonctions[0][1]);
+        $p->code .= " . '$code'";
+    }
+
+    // ne pas passer le filtre securite sur les id_xxx
+    if (strpos($nom, 'ID_') === 0)
+        $p->interdire_scripts = false;
+
+    // Compatibilite ascendante avec les couleurs html (#FEFEFE) :
+    // SI le champ SQL n'est pas trouve
+    // ET si la balise a une forme de couleur
+    // ET s'il n'y a ni filtre ni etoile
+    // ALORS retourner la couleur.
+    // Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
+    if (preg_match("/^[A-F]{1,6}$/i", $nom)
+    AND !$p->etoile
+    AND !$p->fonctions) {
+        $p->code = "'#$nom'";
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -334,32 +334,32 @@ 
 // http://doc.spip.org/@calculer_balise_dynamique
 function calculer_balise_dynamique($p, $nom, $l, $supp=array()) {
 
-	if (!balise_distante_interdite($p)) {
-		$p->code = "''";
-		return $p;
-	}
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
-		$p->fonctions = null;
-	}
-
-	if ($p->param AND ($c = $p->param[0])) {
-		// liste d'arguments commence toujours par la chaine vide
-		array_shift($c);
-		// construire la liste d'arguments comme pour un filtre
-		$param = compose_filtres_args($p, $c, ',');
-	} else	$param = "";
-	$collecte = collecter_balise_dynamique($l, $p, $nom);
-
-	$p->code = sprintf(CODE_EXECUTER_BALISE, $nom,
-		join(',', $collecte),
-		($collecte ? $param : substr($param,1)), # virer la virgule
-		memoriser_contexte_compil($p),
-		(!$supp ? '' : (', ' . join(',', $supp))));
-
-	$p->interdire_scripts = false;
-	return $p;
+    if (!balise_distante_interdite($p)) {
+        $p->code = "''";
+        return $p;
+    }
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
+        $p->fonctions = null;
+    }
+
+    if ($p->param AND ($c = $p->param[0])) {
+        // liste d'arguments commence toujours par la chaine vide
+        array_shift($c);
+        // construire la liste d'arguments comme pour un filtre
+        $param = compose_filtres_args($p, $c, ',');
+    } else	$param = "";
+    $collecte = collecter_balise_dynamique($l, $p, $nom);
+
+    $p->code = sprintf(CODE_EXECUTER_BALISE, $nom,
+        join(',', $collecte),
+        ($collecte ? $param : substr($param,1)), # virer la virgule
+        memoriser_contexte_compil($p),
+        (!$supp ? '' : (', ' . join(',', $supp))));
+
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // Construction du tableau des arguments d'une balise dynamique.
@@ -370,9 +370,9 @@ 
 
 // http://doc.spip.org/@collecter_balise_dynamique
 function collecter_balise_dynamique($l, &$p, $nom) {
-	$args = array();
-	foreach($l as $c) { $x = calculer_balise($c, $p); $args[] = $x->code;}
-	return $args;
+    $args = array();
+    foreach($l as $c) { $x = calculer_balise($c, $p); $args[] = $x->code;}
+    return $args;
 }
 
 
@@ -389,17 +389,17 @@ 
  *     Nom de la connexion
 **/
 function trouver_nom_serveur_distant($p) {
-	$nom = $p->id_boucle;
-	if ($nom
-		AND isset($p->boucles[$nom])) {
-		$s = $p->boucles[$nom]->sql_serveur;
-		if (strlen($s)
-			AND strlen($serveur = strtolower($s))
-			AND !in_array($serveur,$GLOBALS['exception_des_connect'])) {
-				return $serveur;
-		}
-	}
-	return "";
+    $nom = $p->id_boucle;
+    if ($nom
+        AND isset($p->boucles[$nom])) {
+        $s = $p->boucles[$nom]->sql_serveur;
+        if (strlen($s)
+            AND strlen($serveur = strtolower($s))
+            AND !in_array($serveur,$GLOBALS['exception_des_connect'])) {
+                return $serveur;
+        }
+    }
+    return "";
 }
 
 
@@ -422,13 +422,13 @@ 
  *     - false : La balise est interdite car le serveur est distant
 **/
 function balise_distante_interdite($p) {
-	$nom = $p->id_boucle;
+    $nom = $p->id_boucle;
 
-	if ($nom AND trouver_nom_serveur_distant($p)) {
-		spip_log( $nom .':' . $p->nom_champ .' '._T('zbug_distant_interdit'));
-		return false;
-	}
-	return true;
+    if ($nom AND trouver_nom_serveur_distant($p)) {
+        spip_log( $nom .':' . $p->nom_champ .' '._T('zbug_distant_interdit'));
+        return false;
+    }
+    return true;
 }
 
 
@@ -438,63 +438,63 @@ 
 //
 // http://doc.spip.org/@champs_traitements
 function champs_traitements ($p) {
-	global $table_des_traitements;
-
-	if (isset($table_des_traitements[$p->nom_champ]))
-		$ps = $table_des_traitements[$p->nom_champ];
-	else {
-		// quand on utilise un traitement catch-all *
-		// celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
-		// leur propre securite
-		if (!$p->balise_calculee)
-			$ps = $table_des_traitements['*'];
-		else
-			$ps = false;
-	}
-
-	if (is_array($ps)) {
-		// Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
-		$idb = index_boucle($p);
-		// mais on peut aussi etre hors boucle. Se mefier.
-		$type_requete = isset($p->boucles[$idb]->type_requete) ? $p->boucles[$idb]->type_requete : false;
-		$table_sql = isset($p->boucles[$idb]->show['table_sql'])?$p->boucles[$idb]->show['table_sql']:false;
-
-		// le traitement peut n'etre defini que pour une table en particulier "spip_articles"
-		if ($table_sql AND isset($ps[$table_sql]))
-			$ps = $ps[$table_sql];
-		// ou pour une boucle en particulier "DATA","articles"
-		elseif ($type_requete AND isset($ps[$type_requete]))
-			$ps = $ps[$type_requete];
-		// ou pour indiferrement quelle que soit la boucle
-		elseif(isset($ps[0]))
-			$ps = $ps[0];
-		else
-			$ps=false;
-	}
-
-	if (!$ps) return $p->code;
-
-	// Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
-	// ou si in INCLURE contient {doublons}
-	// on insere une fonction de remplissage du tableau des doublons 
-	// dans les filtres propre() ou typo()
-	// (qui traitent les raccourcis <docXX> referencant les docs)
-
-	if (isset($p->descr['documents']) 
-	AND 
-	  $p->descr['documents']
-	AND (
-		(strpos($ps,'propre') !== false)
-		OR
-		(strpos($ps,'typo') !== false)
-	))
-		$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
-
-	// La protection des champs par |safehtml est assuree par les extensions
-	// dans la declaration des traitements des champs sensibles
-
-	// Remplacer enfin le placeholder %s par le vrai code de la balise
-	return str_replace('%s', $p->code, $ps);
+    global $table_des_traitements;
+
+    if (isset($table_des_traitements[$p->nom_champ]))
+        $ps = $table_des_traitements[$p->nom_champ];
+    else {
+        // quand on utilise un traitement catch-all *
+        // celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
+        // leur propre securite
+        if (!$p->balise_calculee)
+            $ps = $table_des_traitements['*'];
+        else
+            $ps = false;
+    }
+
+    if (is_array($ps)) {
+        // Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
+        $idb = index_boucle($p);
+        // mais on peut aussi etre hors boucle. Se mefier.
+        $type_requete = isset($p->boucles[$idb]->type_requete) ? $p->boucles[$idb]->type_requete : false;
+        $table_sql = isset($p->boucles[$idb]->show['table_sql'])?$p->boucles[$idb]->show['table_sql']:false;
+
+        // le traitement peut n'etre defini que pour une table en particulier "spip_articles"
+        if ($table_sql AND isset($ps[$table_sql]))
+            $ps = $ps[$table_sql];
+        // ou pour une boucle en particulier "DATA","articles"
+        elseif ($type_requete AND isset($ps[$type_requete]))
+            $ps = $ps[$type_requete];
+        // ou pour indiferrement quelle que soit la boucle
+        elseif(isset($ps[0]))
+            $ps = $ps[0];
+        else
+            $ps=false;
+    }
+
+    if (!$ps) return $p->code;
+
+    // Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
+    // ou si in INCLURE contient {doublons}
+    // on insere une fonction de remplissage du tableau des doublons 
+    // dans les filtres propre() ou typo()
+    // (qui traitent les raccourcis <docXX> referencant les docs)
+
+    if (isset($p->descr['documents']) 
+    AND 
+      $p->descr['documents']
+    AND (
+        (strpos($ps,'propre') !== false)
+        OR
+        (strpos($ps,'typo') !== false)
+    ))
+        $ps = 'traiter_doublons_documents($doublons, '.$ps.')';
+
+    // La protection des champs par |safehtml est assuree par les extensions
+    // dans la declaration des traitements des champs sensibles
+
+    // Remplacer enfin le placeholder %s par le vrai code de la balise
+    return str_replace('%s', $p->code, $ps);
 }
 
 
@@ -507,98 +507,98 @@ 
 // http://doc.spip.org/@applique_filtres
 function applique_filtres($p) {
 
-	// Traitements standards (cf. supra)
-	if ($p->etoile == '')
-		$code = champs_traitements($p);
-	else
-		$code = $p->code;
+    // Traitements standards (cf. supra)
+    if ($p->etoile == '')
+        $code = champs_traitements($p);
+    else
+        $code = $p->code;
 
-	// Appliquer les filtres perso
-	if ($p->param)
-		$code = compose_filtres($p, $code);
+    // Appliquer les filtres perso
+    if ($p->param)
+        $code = compose_filtres($p, $code);
 
-	// S'il y a un lien avec la session, ajouter un code qui levera
-	// un drapeau dans la structure d'invalidation $Cache
-	if (isset($p->descr['session']))
-		$code = "invalideur_session(\$Cache, $code)";
+    // S'il y a un lien avec la session, ajouter un code qui levera
+    // un drapeau dans la structure d'invalidation $Cache
+    if (isset($p->descr['session']))
+        $code = "invalideur_session(\$Cache, $code)";
 
-	$code = sandbox_composer_interdire_scripts($code, $p);
-	return $code;
+    $code = sandbox_composer_interdire_scripts($code, $p);
+    return $code;
 }
 
 // Cf. function pipeline dans ecrire/inc_utils.php
 // http://doc.spip.org/@compose_filtres
 function compose_filtres(&$p, $code) {
 
-	$image_miette = false;
-	foreach($p->param as $filtre) {
-		$fonc = array_shift($filtre);
-		if (!$fonc) continue; // normalement qu'au premier tour.
-		$is_filtre_image = ((substr($fonc,0,6)=='image_') AND $fonc!='image_graver');
-		if ($image_miette AND !$is_filtre_image){
-	// il faut graver maintenant car apres le filtre en cours
-	// on est pas sur d'avoir encore le nom du fichier dans le pipe
-			$code = "filtrer('image_graver', $code)";
-			$image_miette = false;
-		}
-		// recuperer les arguments du filtre, 
-		// a separer par "," ou ":" dans le cas du filtre "?{a,b}"
-		if ($fonc !== '?') {
-			$sep = ',';
-		} else {$sep = ':';
-			// |?{a,b} *doit* avoir exactement 2 arguments ; on les force
-			if (count($filtre) != 2)
-				$filtre = array(isset($filtre[0])?$filtre[0]:"", isset($filtre[1])?$filtre[1]:"");
-		}
-		$arglist = compose_filtres_args($p, $filtre, $sep);
-		$logique = filtre_logique($fonc, $code, substr($arglist,1));
-		if ($logique)
-			$code = $logique;
-		else {
-			$code = sandbox_composer_filtre($fonc,$code,$arglist,$p);
-			if ($is_filtre_image) $image_miette = true;
-		}
-	}
-	// ramasser les images intermediaires inutiles et graver l'image finale
-	if ($image_miette)
-		$code = "filtrer('image_graver',$code)";
-
-	return $code;
+    $image_miette = false;
+    foreach($p->param as $filtre) {
+        $fonc = array_shift($filtre);
+        if (!$fonc) continue; // normalement qu'au premier tour.
+        $is_filtre_image = ((substr($fonc,0,6)=='image_') AND $fonc!='image_graver');
+        if ($image_miette AND !$is_filtre_image){
+    // il faut graver maintenant car apres le filtre en cours
+    // on est pas sur d'avoir encore le nom du fichier dans le pipe
+            $code = "filtrer('image_graver', $code)";
+            $image_miette = false;
+        }
+        // recuperer les arguments du filtre, 
+        // a separer par "," ou ":" dans le cas du filtre "?{a,b}"
+        if ($fonc !== '?') {
+            $sep = ',';
+        } else {$sep = ':';
+            // |?{a,b} *doit* avoir exactement 2 arguments ; on les force
+            if (count($filtre) != 2)
+                $filtre = array(isset($filtre[0])?$filtre[0]:"", isset($filtre[1])?$filtre[1]:"");
+        }
+        $arglist = compose_filtres_args($p, $filtre, $sep);
+        $logique = filtre_logique($fonc, $code, substr($arglist,1));
+        if ($logique)
+            $code = $logique;
+        else {
+            $code = sandbox_composer_filtre($fonc,$code,$arglist,$p);
+            if ($is_filtre_image) $image_miette = true;
+        }
+    }
+    // ramasser les images intermediaires inutiles et graver l'image finale
+    if ($image_miette)
+        $code = "filtrer('image_graver',$code)";
+
+    return $code;
 }
 
 // Filtres et,ou,oui,non,sinon,xou,xor,and,or,not,yes
 // et comparateurs
 function filtre_logique($fonc, $code, $arg)
 {
-	global $table_criteres_infixes;
-	switch (true) {
-		case in_array($fonc, $table_criteres_infixes):
-			return "($code $fonc $arg)";
-		case ($fonc == 'and') OR ($fonc == 'et'):
-			return "((($code) AND ($arg)) ?' ' :'')";
-		case ($fonc == 'or') OR ($fonc == 'ou'):
-			return "((($code) OR ($arg)) ?' ' :'')";
-		case ($fonc == 'xor') OR ($fonc == 'xou'):
-			return "((($code) XOR ($arg)) ?' ' :'')";
-		case ($fonc == 'sinon'):
-			return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
-		case ($fonc == 'not') OR ($fonc == 'non'):
-			return "(($code) ?'' :' ')";
-		case ($fonc == 'yes') OR ($fonc == 'oui'):
-			return "(($code) ?' ' :'')";
-	}
-	return '';
+    global $table_criteres_infixes;
+    switch (true) {
+        case in_array($fonc, $table_criteres_infixes):
+            return "($code $fonc $arg)";
+        case ($fonc == 'and') OR ($fonc == 'et'):
+            return "((($code) AND ($arg)) ?' ' :'')";
+        case ($fonc == 'or') OR ($fonc == 'ou'):
+            return "((($code) OR ($arg)) ?' ' :'')";
+        case ($fonc == 'xor') OR ($fonc == 'xou'):
+            return "((($code) XOR ($arg)) ?' ' :'')";
+        case ($fonc == 'sinon'):
+            return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
+        case ($fonc == 'not') OR ($fonc == 'non'):
+            return "(($code) ?'' :' ')";
+        case ($fonc == 'yes') OR ($fonc == 'oui'):
+            return "(($code) ?' ' :'')";
+    }
+    return '';
 }
 
 // http://doc.spip.org/@compose_filtres_args
 function compose_filtres_args($p, $args, $sep)
 {
-	$arglist = "";
-	foreach ($args as $arg) {
-		$arglist .= $sep . 
-		  calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
-	}
-	return $arglist;
+    $arglist = "";
+    foreach ($args as $arg) {
+        $arglist .= $sep . 
+            calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
+    }
+    return $arglist;
 }
 
 //
@@ -609,15 +609,15 @@ 
 // http://doc.spip.org/@calculer_argument_precedent
 function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut=null) {
 
-	// si recursif, forcer l'extraction du champ SQL mais ignorer le code
-	if ($boucles[$idb]->externe) {
-		index_pile ($idb, $nom_champ, $boucles,'', $defaut);
-		// retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
-		// on ignore le defaut fourni dans ce cas
-		$defaut = "@\$Pile[\$SP]['$nom_champ']";
-	}
+    // si recursif, forcer l'extraction du champ SQL mais ignorer le code
+    if ($boucles[$idb]->externe) {
+        index_pile ($idb, $nom_champ, $boucles,'', $defaut);
+        // retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
+        // on ignore le defaut fourni dans ce cas
+        $defaut = "@\$Pile[\$SP]['$nom_champ']";
+    }
 
-	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles,'', $defaut);
+    return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles,'', $defaut);
 }
 
 //
@@ -633,28 +633,28 @@ 
 // http://doc.spip.org/@rindex_pile
 function rindex_pile($p, $champ, $motif) 
 {
-	$n = 0;
-	$b = $p->id_boucle;
-	$p->code = '';
-	while ($b != '') {
-		foreach($p->boucles[$b]->criteres as $critere) {
-			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n==0) ? "" : "-$n") .
-					"]['$champ']";
-				$b = '';
-				break 2;
-			}
-		}
-		$n++;
-		$b = $p->boucles[$b]->id_parent;
-	}
-
-	// si on est hors d'une boucle de {recherche}, cette balise est vide
-	if (!$p->code)
-		$p->code = "''";
-
-	$p->interdire_scripts = false;
-	return $p;
+    $n = 0;
+    $b = $p->id_boucle;
+    $p->code = '';
+    while ($b != '') {
+        foreach($p->boucles[$b]->criteres as $critere) {
+            if ($critere->op == $motif) {
+                $p->code = '$Pile[$SP' . (($n==0) ? "" : "-$n") .
+                    "]['$champ']";
+                $b = '';
+                break 2;
+            }
+        }
+        $n++;
+        $b = $p->boucles[$b]->id_parent;
+    }
+
+    // si on est hors d'une boucle de {recherche}, cette balise est vide
+    if (!$p->code)
+        $p->code = "''";
+
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 ?>

ecrire/public/styliser_par_z.php

Indentation +245 added lines, -245 removed lines

@@ -20,164 +20,164 @@ 
  * @return array
  */
 function public_styliser_par_z_dist($flux){
-	static $prefix_path=null;
-	static $prefix_length;
-	static $z_blocs;
-	static $apl_constant;
-	static $page;
-	static $disponible = array();
-	static $echafauder;
-	static $prepend = "";
+    static $prefix_path=null;
+    static $prefix_length;
+    static $z_blocs;
+    static $apl_constant;
+    static $page;
+    static $disponible = array();
+    static $echafauder;
+    static $prepend = "";
 
-	if (!isset($prefix_path)) {
-		$z_blocs = z_blocs(test_espace_prive());
-		if (test_espace_prive ()){
-			$prefix_path = "prive/squelettes/";
-			$prefix_length = strlen($prefix_path);
-			$apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
-			$page = 'exec';
-			$echafauder = charger_fonction('echafauder','prive',true);
-			define('_ZCORE_EXCLURE_PATH','');
-		}
-		else {
-			$prefix_path = "";
-			$prefix_length = 0;
-			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
-			$page = _SPIP_PAGE;
-			$echafauder = charger_fonction('echafauder','public',true);
-			define('_ZCORE_EXCLURE_PATH','\bprive|\bsquelettes-dist'.(defined('_DIR_PLUGIN_DIST')?'|\b'.rtrim(_DIR_PLUGIN_DIST,'/'):''));
-		}
-	  $prepend = (defined('_Z_PREPEND_PATH')?_Z_PREPEND_PATH:"");
-	}
-	$z_contenu = reset($z_blocs); // contenu par defaut
+    if (!isset($prefix_path)) {
+        $z_blocs = z_blocs(test_espace_prive());
+        if (test_espace_prive ()){
+            $prefix_path = "prive/squelettes/";
+            $prefix_length = strlen($prefix_path);
+            $apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
+            $page = 'exec';
+            $echafauder = charger_fonction('echafauder','prive',true);
+            define('_ZCORE_EXCLURE_PATH','');
+        }
+        else {
+            $prefix_path = "";
+            $prefix_length = 0;
+            $apl_constant = '_Z_AJAX_PARALLEL_LOAD';
+            $page = _SPIP_PAGE;
+            $echafauder = charger_fonction('echafauder','public',true);
+            define('_ZCORE_EXCLURE_PATH','\bprive|\bsquelettes-dist'.(defined('_DIR_PLUGIN_DIST')?'|\b'.rtrim(_DIR_PLUGIN_DIST,'/'):''));
+        }
+        $prepend = (defined('_Z_PREPEND_PATH')?_Z_PREPEND_PATH:"");
+    }
+    $z_contenu = reset($z_blocs); // contenu par defaut
 
-	$fond = $flux['args']['fond'];
+    $fond = $flux['args']['fond'];
 
-	if ($prepend OR strncmp($fond,$prefix_path,$prefix_length)==0) {
-		$fond = substr($fond, $prefix_length);
-		$squelette = $flux['data'];
-		$ext = $flux['args']['ext'];
-		// Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
-		if (defined('_Z_AJAX_PARALLEL_LOAD_OK')
-			AND $dir = explode('/',$fond)
-			AND count($dir)==2 // pas un sous repertoire
-			AND $dir = reset($dir)
-			AND in_array($dir,$z_blocs) // verifier deja qu'on est dans un bloc Z
-			AND defined($apl_constant)
-			AND in_array($dir,explode(',',constant($apl_constant))) // et dans un demande en APL
-			AND $pipe = z_trouver_bloc($prefix_path.$prepend,$dir,'z_apl',$ext) // et qui contient le squelette APL
-			){
-			$flux['data'] = $pipe;
-			return $flux;
-		}
+    if ($prepend OR strncmp($fond,$prefix_path,$prefix_length)==0) {
+        $fond = substr($fond, $prefix_length);
+        $squelette = $flux['data'];
+        $ext = $flux['args']['ext'];
+        // Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
+        if (defined('_Z_AJAX_PARALLEL_LOAD_OK')
+            AND $dir = explode('/',$fond)
+            AND count($dir)==2 // pas un sous repertoire
+            AND $dir = reset($dir)
+            AND in_array($dir,$z_blocs) // verifier deja qu'on est dans un bloc Z
+            AND defined($apl_constant)
+            AND in_array($dir,explode(',',constant($apl_constant))) // et dans un demande en APL
+            AND $pipe = z_trouver_bloc($prefix_path.$prepend,$dir,'z_apl',$ext) // et qui contient le squelette APL
+            ){
+            $flux['data'] = $pipe;
+            return $flux;
+        }
 
-		// surcharger aussi les squelettes venant de squelettes-dist/
-		if ($squelette AND !z_fond_valide($squelette)){
-			$squelette = "";
-		  $echafauder = "";
-		}
-	  if ($prepend){
-		  $squelette = substr(find_in_path($prefix_path.$prepend."$fond.$ext"), 0, - strlen(".$ext"));
-	    if ($squelette)
-		    $flux['data'] = $squelette;
-	  }
+        // surcharger aussi les squelettes venant de squelettes-dist/
+        if ($squelette AND !z_fond_valide($squelette)){
+            $squelette = "";
+            $echafauder = "";
+        }
+        if ($prepend){
+            $squelette = substr(find_in_path($prefix_path.$prepend."$fond.$ext"), 0, - strlen(".$ext"));
+        if ($squelette)
+            $flux['data'] = $squelette;
+        }
 
-		// gerer les squelettes non trouves
-		// -> router vers les /dist.html
-		// ou scaffolding ou page automatique les contenus
-		if (!$squelette){
+        // gerer les squelettes non trouves
+        // -> router vers les /dist.html
+        // ou scaffolding ou page automatique les contenus
+        if (!$squelette){
 
-			// si on est sur un ?page=XX non trouve
-			if ($flux['args']['contexte'][$page] == $fond 
-				OR $flux['args']['contexte']['type-page'] == $fond
-				OR ($fond=='sommaire' AND !$flux['args']['contexte'][$page])) {
+            // si on est sur un ?page=XX non trouve
+            if ($flux['args']['contexte'][$page] == $fond 
+                OR $flux['args']['contexte']['type-page'] == $fond
+                OR ($fond=='sommaire' AND !$flux['args']['contexte'][$page])) {
 
-				// si on est sur un ?page=XX non trouve
-				// se brancher sur contenu/xx si il existe
-				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
-				if (!isset($disponible[$fond]))
-					$disponible[$fond] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$fond,$ext,$echafauder);
+                // si on est sur un ?page=XX non trouve
+                // se brancher sur contenu/xx si il existe
+                // ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
+                if (!isset($disponible[$fond]))
+                    $disponible[$fond] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$fond,$ext,$echafauder);
 
-				if ($disponible[$fond])
-					$flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, - strlen(".$ext"));
-			}
+                if ($disponible[$fond])
+                    $flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, - strlen(".$ext"));
+            }
 
-			// echafaudage :
-			// si c'est un fond de contenu d'un objet en base
-			// generer un fond automatique a la volee pour les webmestres
-			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu)+1)==0){
-				$type = substr($fond,strlen($z_contenu)+1);
-				if (($type=='page') AND isset($flux['args']['contexte'][$page]))
-					$type = $flux['args']['contexte'][$page];
-				if (!isset($disponible[$type]))
-					$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
-				if (is_string($disponible[$type])) {
-					$flux['data'] = $disponible[$type];
-				}
-				elseif ($echafauder
-					AND include_spip('inc/autoriser')
-					AND isset($GLOBALS['visiteur_session']['statut']) // performance
-					AND autoriser('echafauder',$type)
-					AND $is = $disponible[$type]
-					AND is_array($is)) {
-					$flux['data'] = $echafauder($type,$is[0],$is[1],$is[2],$ext);
-				}
-				else{
-					$flux['data'] = ($disponible['404'] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,'404',$ext,$echafauder));
-				}
-			}
+            // echafaudage :
+            // si c'est un fond de contenu d'un objet en base
+            // generer un fond automatique a la volee pour les webmestres
+            elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu)+1)==0){
+                $type = substr($fond,strlen($z_contenu)+1);
+                if (($type=='page') AND isset($flux['args']['contexte'][$page]))
+                    $type = $flux['args']['contexte'][$page];
+                if (!isset($disponible[$type]))
+                    $disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+                if (is_string($disponible[$type])) {
+                    $flux['data'] = $disponible[$type];
+                }
+                elseif ($echafauder
+                    AND include_spip('inc/autoriser')
+                    AND isset($GLOBALS['visiteur_session']['statut']) // performance
+                    AND autoriser('echafauder',$type)
+                    AND $is = $disponible[$type]
+                    AND is_array($is)) {
+                    $flux['data'] = $echafauder($type,$is[0],$is[1],$is[2],$ext);
+                }
+                else{
+                    $flux['data'] = ($disponible['404'] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,'404',$ext,$echafauder));
+                }
+            }
 
-			// sinon, si on demande un fond non trouve dans un des autres blocs
-			// et si il y a bien un contenu correspondant ou echafaudable
-			// se rabbatre sur le dist.html du bloc concerne
-			else{
-				if ( $dir = explode('/',$fond)
-					AND $dir = reset($dir)
-					AND $dir !== $z_contenu
-					AND in_array($dir,$z_blocs)){
-					$type = substr($fond,strlen("$dir/"));
-					if (($type=='page') AND isset($flux['args']['contexte'][$page]))
-						$type = $flux['args']['contexte'][$page];
-					if ($type!=='page' AND !isset($disponible[$type]))
-						$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
-					if ($type=='page' OR $disponible[$type])
-						$flux['data'] = z_trouver_bloc($prefix_path.$prepend,$dir,'dist',$ext);
-				}
-			}
-			$squelette = $flux['data'];
-		}
-		// layout specifiques par type et compositions :
-		// body-article.html
-		// body-sommaire.html
-		// pour des raisons de perfo, les declinaisons doivent etre dans le
-		// meme dossier que body.html
-		if ($fond=='body' AND substr($squelette,-strlen($fond))==$fond){
-			if (isset($flux['args']['contexte']['type-page'])
-				AND (
-					(isset($flux['args']['contexte']['composition'])
-					AND file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']."-".$flux['args']['contexte']['composition']).".$ext"))
-					OR
-					file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']).".$ext")
-					))
-				$flux['data'] = $f;
-		}
-		elseif ($fond=='structure' 
-			AND z_sanitize_var_zajax()
-			AND $f = find_in_path($prefix_path.$prepend.'ajax'.".$ext")) {
-			$flux['data'] = substr($f,0,-strlen(".$ext"));
-		}
-		// chercher le fond correspondant a la composition
-		elseif (isset($flux['args']['contexte']['composition'])
-			AND (basename($fond)=='page' OR ($squelette AND substr($squelette,-strlen($fond))==$fond))
-			AND $dir = substr($fond,$prefix_length)
-			AND $dir = explode('/',$dir)
-			AND $dir = reset($dir)
-			AND in_array($dir,$z_blocs)
-			AND $f=find_in_path($prefix_path.$prepend.$fond."-".$flux['args']['contexte']['composition'].".$ext")){
-			$flux['data'] = substr($f,0,-strlen(".$ext"));
-		}
-	}
-	return $flux;
+            // sinon, si on demande un fond non trouve dans un des autres blocs
+            // et si il y a bien un contenu correspondant ou echafaudable
+            // se rabbatre sur le dist.html du bloc concerne
+            else{
+                if ( $dir = explode('/',$fond)
+                    AND $dir = reset($dir)
+                    AND $dir !== $z_contenu
+                    AND in_array($dir,$z_blocs)){
+                    $type = substr($fond,strlen("$dir/"));
+                    if (($type=='page') AND isset($flux['args']['contexte'][$page]))
+                        $type = $flux['args']['contexte'][$page];
+                    if ($type!=='page' AND !isset($disponible[$type]))
+                        $disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+                    if ($type=='page' OR $disponible[$type])
+                        $flux['data'] = z_trouver_bloc($prefix_path.$prepend,$dir,'dist',$ext);
+                }
+            }
+            $squelette = $flux['data'];
+        }
+        // layout specifiques par type et compositions :
+        // body-article.html
+        // body-sommaire.html
+        // pour des raisons de perfo, les declinaisons doivent etre dans le
+        // meme dossier que body.html
+        if ($fond=='body' AND substr($squelette,-strlen($fond))==$fond){
+            if (isset($flux['args']['contexte']['type-page'])
+                AND (
+                    (isset($flux['args']['contexte']['composition'])
+                    AND file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']."-".$flux['args']['contexte']['composition']).".$ext"))
+                    OR
+                    file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']).".$ext")
+                    ))
+                $flux['data'] = $f;
+        }
+        elseif ($fond=='structure' 
+            AND z_sanitize_var_zajax()
+            AND $f = find_in_path($prefix_path.$prepend.'ajax'.".$ext")) {
+            $flux['data'] = substr($f,0,-strlen(".$ext"));
+        }
+        // chercher le fond correspondant a la composition
+        elseif (isset($flux['args']['contexte']['composition'])
+            AND (basename($fond)=='page' OR ($squelette AND substr($squelette,-strlen($fond))==$fond))
+            AND $dir = substr($fond,$prefix_length)
+            AND $dir = explode('/',$dir)
+            AND $dir = reset($dir)
+            AND in_array($dir,$z_blocs)
+            AND $f=find_in_path($prefix_path.$prepend.$fond."-".$flux['args']['contexte']['composition'].".$ext")){
+            $flux['data'] = substr($f,0,-strlen(".$ext"));
+        }
+    }
+    return $flux;
 }
 
 /**
@@ -187,9 +187,9 @@ 
  * @return array
  */
 function z_blocs($espace_prive=false) {
-	if ($espace_prive)
-		return (isset($GLOBALS['z_blocs_ecrire'])?$GLOBALS['z_blocs_ecrire']:array('contenu','navigation','extra','head','hierarchie','top'));
-	return (isset($GLOBALS['z_blocs'])?$GLOBALS['z_blocs']:array('contenu'));
+    if ($espace_prive)
+        return (isset($GLOBALS['z_blocs_ecrire'])?$GLOBALS['z_blocs_ecrire']:array('contenu','navigation','extra','head','hierarchie','top'));
+    return (isset($GLOBALS['z_blocs'])?$GLOBALS['z_blocs']:array('contenu'));
 }
 
 /**
@@ -204,16 +204,16 @@ 
  * @return mixed
  */
 function z_contenu_disponible($prefix_path,$z_contenu,$type,$ext,$echafauder=true){
-	if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext))
-		return $d;
-	return $echafauder?z_echafaudable($type):false;
+    if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext))
+        return $d;
+    return $echafauder?z_echafaudable($type):false;
 }
 
 function z_fond_valide($squelette){
-	if (!_ZCORE_EXCLURE_PATH
-		OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,',$squelette))
-		return true;
-  return false;
+    if (!_ZCORE_EXCLURE_PATH
+        OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,',$squelette))
+        return true;
+    return false;
 }
 
 /**
@@ -233,13 +233,13 @@ 
  * @return string
  */
 function z_trouver_bloc($prefix_path,$bloc,$fond,$ext){
-	if (
-		(defined('_ZCORE_BLOC_PREFIX_SKEL') AND $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") AND z_fond_valide($f))
-		OR ($f = find_in_path("$prefix_path$bloc/$fond.$ext") AND z_fond_valide($f))
-		){
-		return substr($f, 0, - strlen(".$ext"));
-	}
-	return "";
+    if (
+        (defined('_ZCORE_BLOC_PREFIX_SKEL') AND $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") AND z_fond_valide($f))
+        OR ($f = find_in_path("$prefix_path$bloc/$fond.$ext") AND z_fond_valide($f))
+        ){
+        return substr($f, 0, - strlen(".$ext"));
+    }
+    return "";
 }
 /**
  * Tester si un type est echafaudable
@@ -250,43 +250,43 @@ 
  * @return bool
  */
 function z_echafaudable($type){
-	static $pages = null;
-	static $echafaudable = array();
-	if (isset($echafaudable[$type]))
-		return $echafaudable[$type];
-	if (preg_match(',[^\w],',$type))
-		return $echafaudable[$type] = false;
+    static $pages = null;
+    static $echafaudable = array();
+    if (isset($echafaudable[$type]))
+        return $echafaudable[$type];
+    if (preg_match(',[^\w],',$type))
+        return $echafaudable[$type] = false;
 
-	if (test_espace_prive()){
-		if (!function_exists('trouver_objet_exec'))
-			include_spip('inc/pipelines_ecrire');
-		if ($e=trouver_objet_exec($type)){
-			return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$e);
-		}
-		else {
-			// peut etre c'est un exec=types qui liste tous les objets "type"
-			if (($t=objet_type($type,false))!==$type
-			  AND $e=trouver_objet_exec($t)){
-				return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$t);
-			}
-		}
-	}
-	else {
-		if (is_null($pages)) {
-			$pages = array();
-			$liste = lister_tables_objets_sql();
-			foreach($liste as $t=>$d)
-				if ($d['page']) $pages[$d['page']] = array($d['table_objet'],$t);
-		}
-		if (!isset($pages[$type]))
-			return $echafaudable[$type] = false;
-		if (count($pages[$type])==2){
-			$trouver_table = charger_fonction('trouver_table','base');
-			$pages[$type][] = $trouver_table(reset($pages[$type]));
-		}
-		return $echafaudable[$type] = $pages[$type];
-	}
-	return $echafaudable[$type] = false;
+    if (test_espace_prive()){
+        if (!function_exists('trouver_objet_exec'))
+            include_spip('inc/pipelines_ecrire');
+        if ($e=trouver_objet_exec($type)){
+            return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$e);
+        }
+        else {
+            // peut etre c'est un exec=types qui liste tous les objets "type"
+            if (($t=objet_type($type,false))!==$type
+              AND $e=trouver_objet_exec($t)){
+                return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$t);
+            }
+        }
+    }
+    else {
+        if (is_null($pages)) {
+            $pages = array();
+            $liste = lister_tables_objets_sql();
+            foreach($liste as $t=>$d)
+                if ($d['page']) $pages[$d['page']] = array($d['table_objet'],$t);
+        }
+        if (!isset($pages[$type]))
+            return $echafaudable[$type] = false;
+        if (count($pages[$type])==2){
+            $trouver_table = charger_fonction('trouver_table','base');
+            $pages[$type][] = $trouver_table(reset($pages[$type]));
+        }
+        return $echafaudable[$type] = $pages[$type];
+    }
+    return $echafaudable[$type] = false;
 }
 
 
@@ -303,45 +303,45 @@ 
  * @return string
  */
 function prive_echafauder_dist($exec,$table,$table_sql,$desc_exec,$ext){
-	$scaffold = "";
+    $scaffold = "";
 
-	// page objet ou objet_edit
-	if (is_array($desc_exec)) {
-		$type = $desc_exec['type'];
-		$primary = $desc_exec['id_table_objet'];
+    // page objet ou objet_edit
+    if (is_array($desc_exec)) {
+        $type = $desc_exec['type'];
+        $primary = $desc_exec['id_table_objet'];
 
-		if ($desc_exec['edition']===false)
-			$fond = "objet";
-		else {
-			$trouver_table = charger_fonction('trouver_table','base');
-			$desc = $trouver_table($table_sql);
-			if (isset($desc['field']['id_rubrique']))
-				$fond = 'objet_edit';
-			else
-				$fond = 'objet_edit.sans_rubrique';
-		}
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/".$fond.",objet=".$type.",id_objet=#".strtoupper($primary).",env}>";
-	}
-	// page objets
-	elseif($type = $desc_exec AND strpos($type,"/")===false){
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=".$type.",env} />";
-	}
-	// morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
-	// et objet et tire de $table
-	elseif($fond = $desc_exec){
-		$dir = md5(dirname($fond));
-		$scaffold = "<INCLURE{fond=$fond,objet=".objet_type($table).",env} />";
-	}
+        if ($desc_exec['edition']===false)
+            $fond = "objet";
+        else {
+            $trouver_table = charger_fonction('trouver_table','base');
+            $desc = $trouver_table($table_sql);
+            if (isset($desc['field']['id_rubrique']))
+                $fond = 'objet_edit';
+            else
+                $fond = 'objet_edit.sans_rubrique';
+        }
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/".$fond.",objet=".$type.",id_objet=#".strtoupper($primary).",env}>";
+    }
+    // page objets
+    elseif($type = $desc_exec AND strpos($type,"/")===false){
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=".$type.",env} />";
+    }
+    // morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
+    // et objet et tire de $table
+    elseif($fond = $desc_exec){
+        $dir = md5(dirname($fond));
+        $scaffold = "<INCLURE{fond=$fond,objet=".objet_type($table).",env} />";
+    }
 
-	$base_dir = sous_repertoire(_DIR_CACHE,"scaffold",false);
-	$base_dir = sous_repertoire($base_dir,$dir,false);
-	$f = $base_dir."$exec";
-	ecrire_fichier("$f.$ext",$scaffold);
-	return $f;
+    $base_dir = sous_repertoire(_DIR_CACHE,"scaffold",false);
+    $base_dir = sous_repertoire($base_dir,$dir,false);
+    $f = $base_dir."$exec";
+    ecrire_fichier("$f.$ext",$scaffold);
+    return $f;
 }
 
 /**
@@ -349,13 +349,13 @@ 
  * @return bool|string
  */
 function z_sanitize_var_zajax(){
-	$z_ajax = _request('var_zajax');
-	if (!$z_ajax) return false;
-	if (!$z_blocs = z_blocs(test_espace_prive())
-	  OR !in_array($z_ajax,$z_blocs)) {
-		set_request('var_zajax'); // enlever cette demande incongrue
-		$z_ajax = false;
-	}
-	return $z_ajax;
+    $z_ajax = _request('var_zajax');
+    if (!$z_ajax) return false;
+    if (!$z_blocs = z_blocs(test_espace_prive())
+      OR !in_array($z_ajax,$z_blocs)) {
+        set_request('var_zajax'); // enlever cette demande incongrue
+        $z_ajax = false;
+    }
+    return $z_ajax;
 }
 ?>

ecrire/public/format_html.php

Indentation +67 added lines, -67 removed lines

@@ -14,109 +14,109 @@
 
 function format_boucle_html ($avant, $nom, $type, $crit, $corps, $apres, $altern, $prof)
 {
-	$avant = $avant ? "<B$nom>$avant" : "";
-	$apres = $apres ? "$apres</B$nom>" : "";
-	$altern = $altern ? "$altern<//B$nom>" : "";
-	if (!$corps) $corps = " />"; else $corps = ">$corps</BOUCLE$nom>";
-	return "$avant<BOUCLE$nom($type)$crit$corps$apres$altern";
+    $avant = $avant ? "<B$nom>$avant" : "";
+    $apres = $apres ? "$apres</B$nom>" : "";
+    $altern = $altern ? "$altern<//B$nom>" : "";
+    if (!$corps) $corps = " />"; else $corps = ">$corps</BOUCLE$nom>";
+    return "$avant<BOUCLE$nom($type)$crit$corps$apres$altern";
 }
 
 function format_inclure_html ($file, $args, $prof)
 {
-	if (strpos($file, '#')===false)
-	 	$t = $file ? ("(" . $file . ")") : "" ;
-	else {
-		$t = "{fond=" . $file . '}';
-	}
-	$args = !$args ? '' : ("{" . join(", ",$args) . "}");
-	return ("<INCLURE" . $t . $args  . ">");
+    if (strpos($file, '#')===false)
+            $t = $file ? ("(" . $file . ")") : "" ;
+    else {
+        $t = "{fond=" . $file . '}';
+    }
+    $args = !$args ? '' : ("{" . join(", ",$args) . "}");
+    return ("<INCLURE" . $t . $args  . ">");
 }
 
 function format_polyglotte_html ($args, $prof)
 {
-	$contenu = array(); 
-	foreach($args as $l=>$t)
-		$contenu[]= ($l ? "[$l]" : '') . $t;
-	return ("<multi>" . join(" ", $contenu) . "</multi>");
+    $contenu = array(); 
+    foreach($args as $l=>$t)
+        $contenu[]= ($l ? "[$l]" : '') . $t;
+    return ("<multi>" . join(" ", $contenu) . "</multi>");
 }
 
 function format_idiome_html ($nom, $module, $args, $filtres, $prof)
 {
-	foreach ($args as $k => $v) $args[$k] = "$k=$v";
-	$args = (!$args ? '' : ('{' . join(',', $args) . '}'));
-	return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
+    foreach ($args as $k => $v) $args[$k] = "$k=$v";
+    $args = (!$args ? '' : ('{' . join(',', $args) . '}'));
+    return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
 }
 
 function format_champ_html ($nom, $boucle, $etoile, $avant, $apres, $args, $filtres, $prof)
 {
-	$nom = "#"
-	. ($boucle ? ($boucle . ":") : "")
-	. $nom
-	. $etoile
-	. $args
-	. $filtres;
+    $nom = "#"
+    . ($boucle ? ($boucle . ":") : "")
+    . $nom
+    . $etoile
+    . $args
+    . $filtres;
 
-	// Determiner si c'est un champ etendu, 
+    // Determiner si c'est un champ etendu, 
 
-	$s = ($avant OR $apres OR $filtres
-	      OR (strpos($args, '(#') !==false));
+    $s = ($avant OR $apres OR $filtres
+          OR (strpos($args, '(#') !==false));
 
-	return ($s ? "[$avant($nom)$apres]" : $nom);
+    return ($s ? "[$avant($nom)$apres]" : $nom);
 }
 
 function format_critere_html ($critere)
 {
-	foreach ($critere as $k => $crit) {
-		$crit_s = '';
-		foreach ($crit as $operande) {
-			list($type, $valeur) = $operande;
-			if ($type == 'champ' AND $valeur[0]=='[') {
-			  $valeur = substr($valeur,1,-1);
-			  if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur))
-				$valeur = substr($valeur,1,-1);
-			}
-			$crit_s .= $valeur;
-		}
-		$critere[$k] = $crit_s;
-	}
-	return (!$critere ? "" : ("{" . join(",", $critere) . "}"));
+    foreach ($critere as $k => $crit) {
+        $crit_s = '';
+        foreach ($crit as $operande) {
+            list($type, $valeur) = $operande;
+            if ($type == 'champ' AND $valeur[0]=='[') {
+                $valeur = substr($valeur,1,-1);
+                if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur))
+                $valeur = substr($valeur,1,-1);
+            }
+            $crit_s .= $valeur;
+        }
+        $critere[$k] = $crit_s;
+    }
+    return (!$critere ? "" : ("{" . join(",", $critere) . "}"));
 }
 
 function format_liste_html ($fonc, $args, $prof)
 {
-	return ((($fonc!=='') ? "|$fonc" : $fonc)
-	. (!$args ? "" : ("{" . join(",", $args) . "}")));
+    return ((($fonc!=='') ? "|$fonc" : $fonc)
+    . (!$args ? "" : ("{" . join(",", $args) . "}")));
 }
 
 // Concatenation sans separateur: verifier qu'on ne cree pas de faux lexemes
 function format_suite_html ($args)
 {
-	for($i=0; $i < count($args)-1; $i++) {
-		list($texte, $type) = $args[$i];
-		list($texte2, $type2) = $args[$i+1];
-		if (!$texte OR !$texte2) continue; 
-		$c1 = substr($texte,-1);
-		if ($type2 !== 'texte') {
-		  // si un texte se termine par ( et est suivi d'un champ
-		  // ou assimiles, forcer la notation pleine
-			if ($c1 == '(' AND substr($texte2,0,1) == '#')
-				$args[$i+1][0] = '[(' . $texte2 . ')]';
-		} else {
-			if ($type == 'texte') continue;
-			// si un champ ou assimiles est suivi d'un texte
-			// et si celui-ci commence par un caractere de champ
-			// forcer la notation pleine
-			if (($c1 == '}' AND substr(ltrim($texte2),0,1) == '|')
-			OR (preg_match('/[\w\d_*]/', $c1) AND preg_match('/^[\w\d_*{|]/', $texte2)))
-				$args[$i][0] = '[(' . $texte . ')]';
-		}
-	}
-	return join("", array_map('array_shift', $args));
+    for($i=0; $i < count($args)-1; $i++) {
+        list($texte, $type) = $args[$i];
+        list($texte2, $type2) = $args[$i+1];
+        if (!$texte OR !$texte2) continue; 
+        $c1 = substr($texte,-1);
+        if ($type2 !== 'texte') {
+            // si un texte se termine par ( et est suivi d'un champ
+            // ou assimiles, forcer la notation pleine
+            if ($c1 == '(' AND substr($texte2,0,1) == '#')
+                $args[$i+1][0] = '[(' . $texte2 . ')]';
+        } else {
+            if ($type == 'texte') continue;
+            // si un champ ou assimiles est suivi d'un texte
+            // et si celui-ci commence par un caractere de champ
+            // forcer la notation pleine
+            if (($c1 == '}' AND substr(ltrim($texte2),0,1) == '|')
+            OR (preg_match('/[\w\d_*]/', $c1) AND preg_match('/^[\w\d_*{|]/', $texte2)))
+                $args[$i][0] = '[(' . $texte . ')]';
+        }
+    }
+    return join("", array_map('array_shift', $args));
 }
 
 function format_texte_html ($texte)
 {
-	return $texte;
+    return $texte;
 }
 
 ?>

ecrire/public/compiler.php

Indentation +942 added lines, -942 removed lines

@@ -58,62 +58,62 @@ 
 
 // http://doc.spip.org/@argumenter_inclure
 function argumenter_inclure($params, $rejet_filtres, $p, &$boucles, $id_boucle, $echap=true, $lang = '', $fond1=false){
-	$l = array();
-	$erreur_p_i_i = '';
-	if (!is_array($params)) return $l;
-	foreach($params as $k => $couple) {
-	// la liste d'arguments d'inclusion peut se terminer par un filtre
-		$filtre = array_shift($couple);
-		if ($filtre) break;
-		foreach($couple as $n => $val) {
-			$var = $val[0];
-			if ($var->type != 'texte') {
-			  if ($n OR $k OR $fond1) {
-				$erreur_p_i_i = array('zbug_parametres_inclus_incorrects',
-					 array('param' => $var->nom_champ));
-				erreur_squelette($erreur_p_i_i, $p);
-				  break;
-			  }
-			  else $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
-			} else {
-				preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte,$m);
-				$var = $m[1];
-				$auto = false;;
-				if ($m[2]) {
-				  $v = $m[3];
-				  if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) $v = $m[1];
-				  $val[0] = new Texte;
-				  $val[0]->texte = $v;
-				} elseif ($k OR $n OR $fond1) {
-				  $auto = true;
-				} else $var = 1;
-
-				if ($var == 'lang') {
-				  $lang = !$auto 
-				    ? calculer_liste($val, $p->descr, $boucles, $id_boucle)
-				    : '$GLOBALS["spip_lang"]';
-				} else {
-				  $val = $auto
-				    ? index_pile($id_boucle, $var, $boucles)
-				    : calculer_liste($val, $p->descr, $boucles, $id_boucle);
-				  if ($var !== 1)
-				    $val = ($echap?"\'$var\' => ' . argumenter_squelette(":"'$var' => ")
-				    . $val . ($echap? ") . '":" ");
-				  else $val = $echap ? "'.$val.'" : $val;
-				  $l[$var] = $val;
-				}
-			}
-		}
-	}
-	if ($erreur_p_i_i) return false;
-	// Cas particulier de la langue : si {lang=xx} est definie, on
-	// la passe, sinon on passe la langue courante au moment du calcul
-	// sauf si on n'en veut pas 
-	if ($lang === false) return $l;
-	if (!$lang) $lang = '$GLOBALS["spip_lang"]';
-	$l['lang'] = ($echap?"\'lang\' => ' . argumenter_squelette(":"'lang' => ")  . $lang . ($echap?") . '":" ");
-
-	return $l;
+    $l = array();
+    $erreur_p_i_i = '';
+    if (!is_array($params)) return $l;
+    foreach($params as $k => $couple) {
+    // la liste d'arguments d'inclusion peut se terminer par un filtre
+        $filtre = array_shift($couple);
+        if ($filtre) break;
+        foreach($couple as $n => $val) {
+            $var = $val[0];
+            if ($var->type != 'texte') {
+                if ($n OR $k OR $fond1) {
+                $erreur_p_i_i = array('zbug_parametres_inclus_incorrects',
+                        array('param' => $var->nom_champ));
+                erreur_squelette($erreur_p_i_i, $p);
+                    break;
+                }
+                else $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
+            } else {
+                preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte,$m);
+                $var = $m[1];
+                $auto = false;;
+                if ($m[2]) {
+                    $v = $m[3];
+                    if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) $v = $m[1];
+                    $val[0] = new Texte;
+                    $val[0]->texte = $v;
+                } elseif ($k OR $n OR $fond1) {
+                    $auto = true;
+                } else $var = 1;
+
+                if ($var == 'lang') {
+                    $lang = !$auto 
+                    ? calculer_liste($val, $p->descr, $boucles, $id_boucle)
+                    : '$GLOBALS["spip_lang"]';
+                } else {
+                    $val = $auto
+                    ? index_pile($id_boucle, $var, $boucles)
+                    : calculer_liste($val, $p->descr, $boucles, $id_boucle);
+                    if ($var !== 1)
+                    $val = ($echap?"\'$var\' => ' . argumenter_squelette(":"'$var' => ")
+                    . $val . ($echap? ") . '":" ");
+                    else $val = $echap ? "'.$val.'" : $val;
+                    $l[$var] = $val;
+                }
+            }
+        }
+    }
+    if ($erreur_p_i_i) return false;
+    // Cas particulier de la langue : si {lang=xx} est definie, on
+    // la passe, sinon on passe la langue courante au moment du calcul
+    // sauf si on n'en veut pas 
+    if ($lang === false) return $l;
+    if (!$lang) $lang = '$GLOBALS["spip_lang"]';
+    $l['lang'] = ($echap?"\'lang\' => ' . argumenter_squelette(":"'lang' => ")  . $lang . ($echap?") . '":" ");
+
+    return $l;
 }
 
 /**
@@ -137,64 +137,64 @@ 
 **/
 function calculer_inclure($p, &$boucles, $id_boucle) {
 
-	$_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true);
-	if (is_string($p->texte)) {
-		$fichier = $p->texte;
-		$code = "\"".str_replace('"','\"',$fichier)."\"";
-
-	} else {
-		$code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle);
-		if ($code AND preg_match("/^'([^']*)'/s", $code, $r))
-			$fichier = $r[1];
-		else $fichier = '';
-	}
-	if (!$code OR $code === '""') {
-		$erreur_p_i_i = array('zbug_parametres_inclus_incorrects',
-					 array('param' => $code));
-		erreur_squelette($erreur_p_i_i, $p);
-		return false;
-	}
-	$compil = texte_script(memoriser_contexte_compil($p));
-
-	if (is_array($_contexte)) {
-		// Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
-		if ($env = (isset($_contexte['env'])|| isset($_contexte['self']))) {
-			unset($_contexte['env']);
-		}
-
-		// noter les doublons dans l'appel a public.php
-		if (isset($_contexte['doublons'])) {
-			$_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'";
-		}
-
-		if ($ajax = isset($_contexte['ajax'])){
-			$ajax = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
-			unset($_contexte['ajax']);
-		}
-
-		$_contexte = join(",\n\t", $_contexte);
-	}
-	else
-		return false; // j'aurais voulu toucher le fond ...
+    $_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true);
+    if (is_string($p->texte)) {
+        $fichier = $p->texte;
+        $code = "\"".str_replace('"','\"',$fichier)."\"";
+
+    } else {
+        $code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle);
+        if ($code AND preg_match("/^'([^']*)'/s", $code, $r))
+            $fichier = $r[1];
+        else $fichier = '';
+    }
+    if (!$code OR $code === '""') {
+        $erreur_p_i_i = array('zbug_parametres_inclus_incorrects',
+                        array('param' => $code));
+        erreur_squelette($erreur_p_i_i, $p);
+        return false;
+    }
+    $compil = texte_script(memoriser_contexte_compil($p));
+
+    if (is_array($_contexte)) {
+        // Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
+        if ($env = (isset($_contexte['env'])|| isset($_contexte['self']))) {
+            unset($_contexte['env']);
+        }
+
+        // noter les doublons dans l'appel a public.php
+        if (isset($_contexte['doublons'])) {
+            $_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'";
+        }
+
+        if ($ajax = isset($_contexte['ajax'])){
+            $ajax = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
+
+        $_contexte = join(",\n\t", $_contexte);
+    }
+    else
+        return false; // j'aurais voulu toucher le fond ...
 		
-	$contexte = 'array(' . $_contexte  .')';
-
-	if ($env) {
-		$contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)";
-	}
-
-	// s'il y a une extension .php, ce n'est pas un squelette
-	if ($fichier and preg_match('/^.+[.]php$/s', $fichier)) {
-		$code = sandbox_composer_inclure_php($fichier, $p, $contexte);
-	} else 	{
-		$_options[] = "\"compil\"=>array($compil)";
-		if ($ajax)
-			$_options[] = $ajax;
-		$code = " ' . argumenter_squelette($code) . '"; 
-		$code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',',$_options), "_request(\"connect\")") . ';';
-	}
-
-	return	"\n'<'.'".	"?php ". $code . "\n?'." . "'>'";
+    $contexte = 'array(' . $_contexte  .')';
+
+    if ($env) {
+        $contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)";
+    }
+
+    // s'il y a une extension .php, ce n'est pas un squelette
+    if ($fichier and preg_match('/^.+[.]php$/s', $fichier)) {
+        $code = sandbox_composer_inclure_php($fichier, $p, $contexte);
+    } else 	{
+        $_options[] = "\"compil\"=>array($compil)";
+        if ($ajax)
+            $_options[] = $ajax;
+        $code = " ' . argumenter_squelette($code) . '"; 
+        $code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',',$_options), "_request(\"connect\")") . ';';
+    }
+
+    return	"\n'<'.'".	"?php ". $code . "\n?'." . "'>'";
 }
 
 
@@ -212,7 +212,7 @@ 
  *     true pour ne tester que le cas publie et ignorer l'eventuel var_mode=preview de la page
  */
 function instituer_boucle(&$boucle, $echapper=true, $ignore_previsu=false){
-	/*
+    /*
 	$show['statut'][] = array(
 		'champ'=>'statut',  // champ de la table sur lequel porte le filtrage par le statut
 		'publie'=>'publie', // valeur ou liste de valeurs, qui definissent l'objet comme publie.
@@ -236,71 +236,71 @@ 
 	champstatut est alors le champ statut sur la tablen
 	dans les jointures, clen peut etre un tableau pour une jointure complexe : array('id_objet','id_article','objet','article')
 */
-	$id_table = $boucle->id_table;
-	$show = $boucle->show;
-	if (isset($show['statut']) AND $show['statut']){
-		foreach($show['statut'] as $k=>$s){
-			// Restreindre aux elements publies si pas de {statut} ou autre dans les criteres
-			$filtrer = true;
-			if (isset($s['exception'])) {
-				foreach(is_array($s['exception'])?$s['exception']:array($s['exception']) as $m) {
-					if (isset($boucle->modificateur[$m]) OR isset($boucle->modificateur['criteres'][$m])) {
-						$filtrer = false;
-						break;
-					}
-				}
-			}
-
-			if ($filtrer) {
-				if (is_array($s['champ'])){
-					$statut = preg_replace(',\W,','',array_pop($s['champ'])); // securite
-					$jointures = array();
-					// indiquer la description de chaque table dans le tableau de jointures,
-					// ce qui permet d'eviter certains GROUP BY inutiles.
-					$trouver_table = charger_fonction('trouver_table', 'base');
-					foreach($s['champ'] as $j) {
-						$id = reset($j);
-						$def = $trouver_table($id);
-						$jointures[] = array('',array($id,$def),end($j));
-					}
-					$jointures[0][0] = $id_table;
-					if (!array_search($id, $boucle->from)){
-						include_spip('public/jointures');
-						fabrique_jointures($boucle, $jointures, true, $boucle->show, $id_table, '', $echapper);
-					}
-					// trouver l'alias de la table d'arrivee qui porte le statut
-					$id = array_search($id, $boucle->from);
-				}
-				else {
-					$id = $id_table;
-					$statut = preg_replace(',\W,','',$s['champ']); // securite
-				}
-				$mstatut = $id .'.'.$statut;
-
-				$arg_ignore_previsu=($ignore_previsu?",true":'');
-				include_spip('public/quete');
-				if (isset($s['post_date']) AND $s['post_date']
-					AND $GLOBALS['meta']["post_dates"] == 'non'){
-					$date = $id.'.'.preg_replace(',\W,','',$s['post_date']); // securite
-					array_unshift($boucle->where,
-						$echapper ?
-							"\nquete_condition_postdates('$date',"._q($boucle->sql_serveur)."$arg_ignore_previsu)"
-						:
-							quete_condition_postdates($date,$boucle->sql_serveur,$ignore_previsu)
-					);
-				}
-				array_unshift($boucle->where,
-					$echapper ?
-						"\nquete_condition_statut('$mstatut',"
-							. _q($s['previsu']).","
-							._q($s['publie']).","
-							._q($boucle->sql_serveur)."$arg_ignore_previsu)"
-					:
-						quete_condition_statut($mstatut,$s['previsu'],$s['publie'],$boucle->sql_serveur,$ignore_previsu)
-				);
-			}
-		}
-	}
+    $id_table = $boucle->id_table;
+    $show = $boucle->show;
+    if (isset($show['statut']) AND $show['statut']){
+        foreach($show['statut'] as $k=>$s){
+            // Restreindre aux elements publies si pas de {statut} ou autre dans les criteres
+            $filtrer = true;
+            if (isset($s['exception'])) {
+                foreach(is_array($s['exception'])?$s['exception']:array($s['exception']) as $m) {
+                    if (isset($boucle->modificateur[$m]) OR isset($boucle->modificateur['criteres'][$m])) {
+                        $filtrer = false;
+                        break;
+                    }
+                }
+            }
+
+            if ($filtrer) {
+                if (is_array($s['champ'])){
+                    $statut = preg_replace(',\W,','',array_pop($s['champ'])); // securite
+                    $jointures = array();
+                    // indiquer la description de chaque table dans le tableau de jointures,
+                    // ce qui permet d'eviter certains GROUP BY inutiles.
+                    $trouver_table = charger_fonction('trouver_table', 'base');
+                    foreach($s['champ'] as $j) {
+                        $id = reset($j);
+                        $def = $trouver_table($id);
+                        $jointures[] = array('',array($id,$def),end($j));
+                    }
+                    $jointures[0][0] = $id_table;
+                    if (!array_search($id, $boucle->from)){
+                        include_spip('public/jointures');
+                        fabrique_jointures($boucle, $jointures, true, $boucle->show, $id_table, '', $echapper);
+                    }
+                    // trouver l'alias de la table d'arrivee qui porte le statut
+                    $id = array_search($id, $boucle->from);
+                }
+                else {
+                    $id = $id_table;
+                    $statut = preg_replace(',\W,','',$s['champ']); // securite
+                }
+                $mstatut = $id .'.'.$statut;
+
+                $arg_ignore_previsu=($ignore_previsu?",true":'');
+                include_spip('public/quete');
+                if (isset($s['post_date']) AND $s['post_date']
+                    AND $GLOBALS['meta']["post_dates"] == 'non'){
+                    $date = $id.'.'.preg_replace(',\W,','',$s['post_date']); // securite
+                    array_unshift($boucle->where,
+                        $echapper ?
+                            "\nquete_condition_postdates('$date',"._q($boucle->sql_serveur)."$arg_ignore_previsu)"
+                        :
+                            quete_condition_postdates($date,$boucle->sql_serveur,$ignore_previsu)
+                    );
+                }
+                array_unshift($boucle->where,
+                    $echapper ?
+                        "\nquete_condition_statut('$mstatut',"
+                            . _q($s['previsu']).","
+                            ._q($s['publie']).","
+                            ._q($boucle->sql_serveur)."$arg_ignore_previsu)"
+                    :
+                        quete_condition_statut($mstatut,$s['previsu'],$s['publie'],$boucle->sql_serveur,$ignore_previsu)
+                );
+            }
+        }
+    }
 }
 
 /**
@@ -319,22 +319,22 @@ 
  */
 function calculer_boucle($id_boucle, &$boucles) {
 
-	$boucle = &$boucles[$id_boucle];
-	instituer_boucle($boucle);
-	$boucles[$id_boucle] = pipeline('post_boucle', $boucles[$id_boucle]);
-
-	// en mode debug memoriser les premiers passages dans la boucle,
-	// mais pas tous, sinon ca pete.
-	if  (_request('var_mode_affiche') != 'resultat') 
-		$trace = '';
-	else {
-		$trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle;
-		$trace = "if (count(@\$GLOBALS['debug_objets']['resultat']['$trace'])<3)
+    $boucle = &$boucles[$id_boucle];
+    instituer_boucle($boucle);
+    $boucles[$id_boucle] = pipeline('post_boucle', $boucles[$id_boucle]);
+
+    // en mode debug memoriser les premiers passages dans la boucle,
+    // mais pas tous, sinon ca pete.
+    if  (_request('var_mode_affiche') != 'resultat') 
+        $trace = '';
+    else {
+        $trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle;
+        $trace = "if (count(@\$GLOBALS['debug_objets']['resultat']['$trace'])<3)
 	    \$GLOBALS['debug_objets']['resultat']['$trace'][] = \$t0;";
-	}
-	return ($boucles[$id_boucle]->type_requete == TYPE_RECURSIF)
-	? calculer_boucle_rec($id_boucle, $boucles, $trace) 
-	: calculer_boucle_nonrec($id_boucle, $boucles, $trace);
+    }
+    return ($boucles[$id_boucle]->type_requete == TYPE_RECURSIF)
+    ? calculer_boucle_rec($id_boucle, $boucles, $trace) 
+    : calculer_boucle_nonrec($id_boucle, $boucles, $trace);
 }
 
 
@@ -357,14 +357,14 @@ 
  * 		Code PHP compilé de la boucle récursive
 **/
 function calculer_boucle_rec($id_boucle, &$boucles, $trace) {
-	$nom = $boucles[$id_boucle]->param[0];
-	return
-	  // Numrows[$nom] peut ne pas être encore defini
-	  "\n\t\$save_numrows = (isset(\$Numrows['$nom']) ? \$Numrows['$nom'] : array());"
-	. "\n\t\$t0 = " . $boucles[$id_boucle]->return . ";"
-	. "\n\t\$Numrows['$nom'] = (\$save_numrows);"
-	. $trace
-	. "\n\treturn \$t0;";
+    $nom = $boucles[$id_boucle]->param[0];
+    return
+        // Numrows[$nom] peut ne pas être encore defini
+        "\n\t\$save_numrows = (isset(\$Numrows['$nom']) ? \$Numrows['$nom'] : array());"
+    . "\n\t\$t0 = " . $boucles[$id_boucle]->return . ";"
+    . "\n\t\$Numrows['$nom'] = (\$save_numrows);"
+    . $trace
+    . "\n\treturn \$t0;";
 }
 
 /**
@@ -417,154 +417,154 @@ 
 **/
 function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 
-	$boucle = &$boucles[$id_boucle];
-	$return = $boucle->return;
-	$type_boucle = $boucle->type_requete;
-	$primary = $boucle->primary;
-	$constant = preg_match(CODE_MONOTONE, str_replace("\\'",'', $return));
-	$flag_cpt = $boucle->mode_partie ||$boucle->cptrows;
-	$corps = '';
-
-	// faudrait expanser le foreach a la compil, car y en a souvent qu'un 
-	// et puis faire un [] plutot qu'un "','."
-	if ($boucle->doublons)
-		$corps .= "\n\t\t\tforeach(" . $boucle->doublons . ' as $k) $doublons[$k] .= "," . ' .
-		index_pile($id_boucle, $primary, $boucles)
-		. "; // doublons\n";
-
-	// La boucle doit-elle selectionner la langue ?
-	// - par defaut, les boucles suivantes le font
-	//    (sauf si forcer_lang==true ou si le titre contient <multi>).
-	// - a moins d'une demande explicite via {!lang_select}
-	if (!$constant && $boucle->lang_select != 'non' &&
-	    (($boucle->lang_select == 'oui')  ||
-		    in_array($type_boucle, array(
-		    	'articles', 'rubriques', 'hierarchie', 'breves'
-			)))
-	) {
-		// Memoriser la langue avant la boucle et la restituer apres
-		// afin que le corps de boucle affecte la globale directement
-		$init_lang = "lang_select(\$GLOBALS['spip_lang']);\n\t";
-		$fin_lang = "lang_select();\n\t";
-		$fin_lang_select_public = "\n\t\tlang_select();";
-
-		$corps .= 
-			"\n\t\tlang_select_public("
-			. index_pile($id_boucle, 'lang', $boucles)
-			. ", '".$boucle->lang_select."'"
-			. (in_array($type_boucle, array(
-				'articles', 'rubriques', 'hierarchie', 'breves'
-				)) ? ', '.index_pile($id_boucle, 'titre', $boucles) : '')
-			. ');';
-	}
-	else {
-		$init_lang = '';
-		$fin_lang = '';
-		$fin_lang_select_public = '';
-		// sortir les appels au traducteur (invariants de boucle)
-		if (strpos($return, '?php') === false
-		AND preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r)) {
-			$i = 1;
-			foreach($r[1] as $t) {
-				$init_lang .= "\n\t\$l$i = $t;";
-				$return = str_replace($t, "\$l$i", $return);
-				$i++;
-			}
-		}
-	}
-
-	// gestion optimale des separateurs et des boucles constantes
-	if (count($boucle->separateur))
-	  $code_sep = ("'" . str_replace("'","\'",join('',$boucle->separateur)) . "'");
-
-	$corps .= 
-		((!$boucle->separateur) ? 
-			(($constant && !$corps && !$flag_cpt) ? $return :
-			 (($return==="''") ? '' :
-			  ("\n\t\t" . '$t0 .= ' . $return . ";"))) :
-		 ("\n\t\t\$t1 " .
-			((strpos($return, '$t1.') === 0) ? 
-			 (".=" . substr($return,4)) :
-			 ('= ' . $return)) .
-		  ";\n\t\t" .
-		  '$t0 .= ((strlen($t1) && strlen($t0)) ? ' . $code_sep . " : '') . \$t1;"));
+    $boucle = &$boucles[$id_boucle];
+    $return = $boucle->return;
+    $type_boucle = $boucle->type_requete;
+    $primary = $boucle->primary;
+    $constant = preg_match(CODE_MONOTONE, str_replace("\\'",'', $return));
+    $flag_cpt = $boucle->mode_partie ||$boucle->cptrows;
+    $corps = '';
+
+    // faudrait expanser le foreach a la compil, car y en a souvent qu'un 
+    // et puis faire un [] plutot qu'un "','."
+    if ($boucle->doublons)
+        $corps .= "\n\t\t\tforeach(" . $boucle->doublons . ' as $k) $doublons[$k] .= "," . ' .
+        index_pile($id_boucle, $primary, $boucles)
+        . "; // doublons\n";
+
+    // La boucle doit-elle selectionner la langue ?
+    // - par defaut, les boucles suivantes le font
+    //    (sauf si forcer_lang==true ou si le titre contient <multi>).
+    // - a moins d'une demande explicite via {!lang_select}
+    if (!$constant && $boucle->lang_select != 'non' &&
+        (($boucle->lang_select == 'oui')  ||
+            in_array($type_boucle, array(
+                'articles', 'rubriques', 'hierarchie', 'breves'
+            )))
+    ) {
+        // Memoriser la langue avant la boucle et la restituer apres
+        // afin que le corps de boucle affecte la globale directement
+        $init_lang = "lang_select(\$GLOBALS['spip_lang']);\n\t";
+        $fin_lang = "lang_select();\n\t";
+        $fin_lang_select_public = "\n\t\tlang_select();";
+
+        $corps .= 
+            "\n\t\tlang_select_public("
+            . index_pile($id_boucle, 'lang', $boucles)
+            . ", '".$boucle->lang_select."'"
+            . (in_array($type_boucle, array(
+                'articles', 'rubriques', 'hierarchie', 'breves'
+                )) ? ', '.index_pile($id_boucle, 'titre', $boucles) : '')
+            . ');';
+    }
+    else {
+        $init_lang = '';
+        $fin_lang = '';
+        $fin_lang_select_public = '';
+        // sortir les appels au traducteur (invariants de boucle)
+        if (strpos($return, '?php') === false
+        AND preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r)) {
+            $i = 1;
+            foreach($r[1] as $t) {
+                $init_lang .= "\n\t\$l$i = $t;";
+                $return = str_replace($t, "\$l$i", $return);
+                $i++;
+            }
+        }
+    }
+
+    // gestion optimale des separateurs et des boucles constantes
+    if (count($boucle->separateur))
+        $code_sep = ("'" . str_replace("'","\'",join('',$boucle->separateur)) . "'");
+
+    $corps .= 
+        ((!$boucle->separateur) ? 
+            (($constant && !$corps && !$flag_cpt) ? $return :
+             (($return==="''") ? '' :
+              ("\n\t\t" . '$t0 .= ' . $return . ";"))) :
+         ("\n\t\t\$t1 " .
+            ((strpos($return, '$t1.') === 0) ? 
+             (".=" . substr($return,4)) :
+             ('= ' . $return)) .
+            ";\n\t\t" .
+            '$t0 .= ((strlen($t1) && strlen($t0)) ? ' . $code_sep . " : '') . \$t1;"));
      
-	// Calculer les invalideurs si c'est une boucle non constante et si on
-	// souhaite invalider ces elements
-	if (!$constant AND $primary) {
-		include_spip('inc/invalideur');
-		if (function_exists($i = 'calcul_invalideurs'))
-			$corps = $i($corps, $primary, $boucles, $id_boucle);
-	}
-
-	// gerer le compteur de boucle 
-	// avec ou sans son utilisation par les criteres {1/3} {1,4} {n-2,1}...
-
-	if ($boucle->partie OR $boucle->cptrows)
-		$corps = "\n\t\t\$Numrows['$id_boucle']['compteur_boucle']++;"
-		. $boucle->partie 
-		. $corps;
-
-	// depiler la lang de la boucle si besoin
-	$corps .= $fin_lang_select_public;
-
-	// si le corps est une constante, ne pas appeler le serveur N fois!
-
-	if (preg_match(CODE_MONOTONE,str_replace("\\'",'',$corps), $r)) {
-		if (!isset($r[2]) OR (!$r[2])) {
-			if (!$boucle->numrows)
-				return "\n\t\$t0 = '';";
-			else
-				$corps = "";
-		} else {
-			$boucle->numrows = true;
-			$corps = "\n\t\$t0 = str_repeat($corps, \$Numrows['$id_boucle']['total']);";
-		}
-	} else $corps = "while (\$Pile[\$SP]=\$iter->fetch()) {\n$corps\n	}"; 
-
-	$count = '';
-	if (!$boucle->select) {
-		if (!$boucle->numrows OR $boucle->limit OR $boucle->mode_partie OR $boucle->group)
-			$count = '1';
-		else $count = 'count(*)';
-		$boucles[$id_boucle]->select[]= $count; 
-	}
-
-	if ($flag_cpt)
-		$nums = "\n\t// COMPTEUR\n\t"
-		. "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t";
-	else $nums = '';
-
-	if ($boucle->numrows OR $boucle->mode_partie) {
-		$nums .= "\$Numrows['$id_boucle']['total'] = @intval(\$iter->count());"
-		. $boucle->mode_partie
-		. "\n\t";
-	}
-
-	// Ne calculer la requete que maintenant
-	// car ce qui precede appelle index_pile qui influe dessus
-
-	$init = (($init = $boucles[$id_boucle]->doublons)
-			 ? ("\n\t$init = array();") : '')
-	. calculer_requete_sql($boucles[$id_boucle]);
-
-	$contexte = memoriser_contexte_compil($boucle);
-
-	$a = sprintf(CODE_CORPS_BOUCLE,
-		$init,
-		$boucle->iterateur,
-		"\$command",
-		$contexte,
-		$nums,
-		$init_lang,
-		$corps,
-		$fin_lang,
-		$trace,
-		'BOUCLE'.$id_boucle .' @ '.($boucle->descr['sourcefile'])
-	);
+    // Calculer les invalideurs si c'est une boucle non constante et si on
+    // souhaite invalider ces elements
+    if (!$constant AND $primary) {
+        include_spip('inc/invalideur');
+        if (function_exists($i = 'calcul_invalideurs'))
+            $corps = $i($corps, $primary, $boucles, $id_boucle);
+    }
+
+    // gerer le compteur de boucle 
+    // avec ou sans son utilisation par les criteres {1/3} {1,4} {n-2,1}...
+
+    if ($boucle->partie OR $boucle->cptrows)
+        $corps = "\n\t\t\$Numrows['$id_boucle']['compteur_boucle']++;"
+        . $boucle->partie 
+        . $corps;
+
+    // depiler la lang de la boucle si besoin
+    $corps .= $fin_lang_select_public;
+
+    // si le corps est une constante, ne pas appeler le serveur N fois!
+
+    if (preg_match(CODE_MONOTONE,str_replace("\\'",'',$corps), $r)) {
+        if (!isset($r[2]) OR (!$r[2])) {
+            if (!$boucle->numrows)
+                return "\n\t\$t0 = '';";
+            else
+                $corps = "";
+        } else {
+            $boucle->numrows = true;
+            $corps = "\n\t\$t0 = str_repeat($corps, \$Numrows['$id_boucle']['total']);";
+        }
+    } else $corps = "while (\$Pile[\$SP]=\$iter->fetch()) {\n$corps\n	}"; 
+
+    $count = '';
+    if (!$boucle->select) {
+        if (!$boucle->numrows OR $boucle->limit OR $boucle->mode_partie OR $boucle->group)
+            $count = '1';
+        else $count = 'count(*)';
+        $boucles[$id_boucle]->select[]= $count; 
+    }
+
+    if ($flag_cpt)
+        $nums = "\n\t// COMPTEUR\n\t"
+        . "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t";
+    else $nums = '';
+
+    if ($boucle->numrows OR $boucle->mode_partie) {
+        $nums .= "\$Numrows['$id_boucle']['total'] = @intval(\$iter->count());"
+        . $boucle->mode_partie
+        . "\n\t";
+    }
+
+    // Ne calculer la requete que maintenant
+    // car ce qui precede appelle index_pile qui influe dessus
+
+    $init = (($init = $boucles[$id_boucle]->doublons)
+             ? ("\n\t$init = array();") : '')
+    . calculer_requete_sql($boucles[$id_boucle]);
+
+    $contexte = memoriser_contexte_compil($boucle);
+
+    $a = sprintf(CODE_CORPS_BOUCLE,
+        $init,
+        $boucle->iterateur,
+        "\$command",
+        $contexte,
+        $nums,
+        $init_lang,
+        $corps,
+        $fin_lang,
+        $trace,
+        'BOUCLE'.$id_boucle .' @ '.($boucle->descr['sourcefile'])
+    );
 
 #	var_dump($a);exit;
-	return $a;
+    return $a;
 }
 
 
@@ -581,38 +581,38 @@ 
 **/
 function calculer_requete_sql($boucle)
 {
-	$init = array();
-	$init[] = calculer_dec('table',  "'" . $boucle->id_table ."'");
-	$init[] = calculer_dec('id', "'" . $boucle->id_boucle ."'");
-	# En absence de champ c'est un decompte :
-	$init[] = calculer_dec('from',  calculer_from($boucle));
-	$init[] = calculer_dec('type', calculer_from_type($boucle));
-	$init[] = calculer_dec('groupby', 'array(' . (($g=join("\",\n\t\t\"",$boucle->group))?'"'.$g.'"':'') . ")");
-	$init[] = calculer_dec('select', 'array("' . join("\",\n\t\t\"", $boucle->select).  "\")");
-	$init[] = calculer_dec('orderby', 'array(' . calculer_order($boucle) .	")");
-	$init[] = calculer_dec('where', calculer_dump_array($boucle->where));
-	$init[] = calculer_dec('join', calculer_dump_join($boucle->join));
-	$init[] = calculer_dec('limit',
-			(strpos($boucle->limit, 'intval') === false ?
-				  "'".$boucle->limit."'"
-				:
-				  $boucle->limit));
-	$init[] = calculer_dec('having', calculer_dump_array($boucle->having));
-	$s = $d = "";
-	foreach ($init as $i){
-		if (reset($i))
-			$s .= "\n\t\t".end($i);
-		else
-			$d .= "\n\t".end($i);
-	}
-
-	return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
-	  . $boucle->in 
-	  . $boucle->hash
-		. "\n\t".'if (!isset($command[\'table\'])) {'
-		. $s
-		. "\n\t}"
-		. $d;
+    $init = array();
+    $init[] = calculer_dec('table',  "'" . $boucle->id_table ."'");
+    $init[] = calculer_dec('id', "'" . $boucle->id_boucle ."'");
+    # En absence de champ c'est un decompte :
+    $init[] = calculer_dec('from',  calculer_from($boucle));
+    $init[] = calculer_dec('type', calculer_from_type($boucle));
+    $init[] = calculer_dec('groupby', 'array(' . (($g=join("\",\n\t\t\"",$boucle->group))?'"'.$g.'"':'') . ")");
+    $init[] = calculer_dec('select', 'array("' . join("\",\n\t\t\"", $boucle->select).  "\")");
+    $init[] = calculer_dec('orderby', 'array(' . calculer_order($boucle) .	")");
+    $init[] = calculer_dec('where', calculer_dump_array($boucle->where));
+    $init[] = calculer_dec('join', calculer_dump_join($boucle->join));
+    $init[] = calculer_dec('limit',
+            (strpos($boucle->limit, 'intval') === false ?
+                  "'".$boucle->limit."'"
+                :
+                  $boucle->limit));
+    $init[] = calculer_dec('having', calculer_dump_array($boucle->having));
+    $s = $d = "";
+    foreach ($init as $i){
+        if (reset($i))
+            $s .= "\n\t\t".end($i);
+        else
+            $d .= "\n\t".end($i);
+    }
+
+    return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
+        . $boucle->in 
+        . $boucle->hash
+        . "\n\t".'if (!isset($command[\'table\'])) {'
+        . $s
+        . "\n\t}"
+        . $d;
 }
 
 /**
@@ -630,12 +630,12 @@ 
  *     qui peut être utilisé pour la production d'un tableau array()
 **/
 function memoriser_contexte_compil($p) {
-	return join(',', array(
-		_q($p->descr['sourcefile']),
-		_q($p->descr['nom']),
-		@_q($p->id_boucle),
-		intval($p->ligne),
-		'$GLOBALS[\'spip_lang\']'));
+    return join(',', array(
+        _q($p->descr['sourcefile']),
+        _q($p->descr['nom']),
+        @_q($p->id_boucle),
+        intval($p->ligne),
+        '$GLOBALS[\'spip_lang\']'));
 }
 
 /**
@@ -654,25 +654,25 @@ 
 **/
 function reconstruire_contexte_compil($context_compil)
 {
-	if (!is_array($context_compil)) return $context_compil;
-	$p = new Contexte;
-	$p->descr = array('sourcefile' => $context_compil[0],
-				  'nom' => $context_compil[1]);
-	$p->id_boucle = $context_compil[2];
-	$p->ligne = $context_compil[3];
-	$p->lang = $context_compil[4];
-	return $p;
+    if (!is_array($context_compil)) return $context_compil;
+    $p = new Contexte;
+    $p->descr = array('sourcefile' => $context_compil[0],
+                    'nom' => $context_compil[1]);
+    $p->id_boucle = $context_compil[2];
+    $p->ligne = $context_compil[3];
+    $p->lang = $context_compil[4];
+    return $p;
 }
 
 // http://doc.spip.org/@calculer_dec
 function calculer_dec($nom, $val)
 {
-	$static = 'if (!isset($command[\''.$nom.'\'])) ';
-	// si une variable apparait dans le calcul de la clause
-	// il faut la re-evaluer a chaque passage
-	if (
-		strpos($val, '$') !== false
-		/*
+    $static = 'if (!isset($command[\''.$nom.'\'])) ';
+    // si une variable apparait dans le calcul de la clause
+    // il faut la re-evaluer a chaque passage
+    if (
+        strpos($val, '$') !== false
+        /*
 		OR strpos($val, 'sql_') !== false
 		OR (
 			$test = str_replace(array("array(",'\"',"\'"),array("","",""),$val) // supprimer les array( et les echappements de guillemets
@@ -680,67 +680,67 @@ 
 			AND $test = preg_replace(",'[^']*',UimsS","",$test) // supprimer les chaines qui peuvent contenir des fonctions SQL qui ne genent pas
 			AND preg_match(",\w+\s*\(,UimsS",$test,$regs) // tester la presence de fonctions restantes
 		)*/
-	)
-		$static = "";
+    )
+        $static = "";
 
-	return array($static,'$command[\''.$nom.'\'] = ' . $val . ';');
+    return array($static,'$command[\''.$nom.'\'] = ' . $val . ';');
 }
 
 // http://doc.spip.org/@calculer_dump_array
 function calculer_dump_array($a)
 {
-  if (!is_array($a)) return $a ;
-  $res = "";
-  if ($a AND $a[0] == "'?'") 
+    if (!is_array($a)) return $a ;
+    $res = "";
+    if ($a AND $a[0] == "'?'") 
     return ("(" . calculer_dump_array($a[1]) .
-	    " ? " . calculer_dump_array($a[2]) .
-	    " : " . calculer_dump_array($a[3]) .
-	    ")");
-  else {
+        " ? " . calculer_dump_array($a[2]) .
+        " : " . calculer_dump_array($a[3]) .
+        ")");
+    else {
     foreach($a as $v) $res .= ", " . calculer_dump_array($v);
     return "\n\t\t\tarray(" . substr($res,2) . ')';
-  }
+    }
 }
 
 // http://doc.spip.org/@calculer_dump_join
 function calculer_dump_join($a)
 {
-  $res = "";
-  foreach($a as $k => $v) 
-		$res .= ", '$k' => array(".implode(',',$v).")";
-  return 'array(' . substr($res,2) . ')';
+    $res = "";
+    foreach($a as $k => $v) 
+        $res .= ", '$k' => array(".implode(',',$v).")";
+    return 'array(' . substr($res,2) . ')';
 }
 
 // http://doc.spip.org/@calculer_from
 function calculer_from(&$boucle)
 {
-  $res = "";
-  foreach($boucle->from as $k => $v) $res .= ",'$k' => '$v'";
-  return 'array(' . substr($res,1) . ')';
+    $res = "";
+    foreach($boucle->from as $k => $v) $res .= ",'$k' => '$v'";
+    return 'array(' . substr($res,1) . ')';
 }
 
 // http://doc.spip.org/@calculer_from_type
 function calculer_from_type(&$boucle)
 {
-  $res = "";
-  foreach($boucle->from_type as $k => $v) $res .= ",'$k' => '$v'";
-  return 'array(' . substr($res,1) . ')';
+    $res = "";
+    foreach($boucle->from_type as $k => $v) $res .= ",'$k' => '$v'";
+    return 'array(' . substr($res,1) . ')';
 }
 
 // http://doc.spip.org/@calculer_order
 function calculer_order(&$boucle)
 {
-	if (!$order = $boucle->order
-	AND !$order = $boucle->default_order)
-		$order = array();
+    if (!$order = $boucle->order
+    AND !$order = $boucle->default_order)
+        $order = array();
 
-	/*if (isset($boucle->modificateur['collate'])){
+    /*if (isset($boucle->modificateur['collate'])){
 		$col = "." . $boucle->modificateur['collate'];
 		foreach($order as $k=>$o)
 			if (strpos($order[$k],'COLLATE')===false)
 				$order[$k].= $col;
 	}*/
-	return join(', ', $order);
+    return join(', ', $order);
 }
 
 // Production du code PHP a partir de la sequence livree par le phraseur
@@ -750,32 +750,32 @@ 
 
 // http://doc.spip.org/@calculer_liste
 function calculer_liste($tableau, $descr, &$boucles, $id_boucle='') {
-	if (!$tableau) return "''";
-	if (!isset($descr['niv'])) $descr['niv'] = 0;
-	$codes = compile_cas($tableau, $descr, $boucles, $id_boucle);
-	if ($codes === false) return false;
-	$n = count($codes);
-	if (!$n) return "''";
-	$tab = str_repeat("\t", $descr['niv']);
-	if (_request('var_mode_affiche') != 'validation') {
-		if ($n==1) 
-			return $codes[0];
-		else {
-			$res = '';
-			foreach($codes as $code) {
-				if (!preg_match("/^'[^']*'$/", $code)
-				OR substr($res,-1,1)!=="'")
-				  $res .=  " .\n$tab$code";
-				else {
-				  $res = substr($res,0,-1) . substr($code,1);
-				}
-			}
-			return '(' . substr($res,2+$descr['niv']) . ')';
-		}
-	} else {
-	  $nom = $descr['nom'] . $id_boucle .  ($descr['niv']?$descr['niv']:'');
-	  return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" .  join(" ,\n$tab", $codes) . ")))";
-	}
+    if (!$tableau) return "''";
+    if (!isset($descr['niv'])) $descr['niv'] = 0;
+    $codes = compile_cas($tableau, $descr, $boucles, $id_boucle);
+    if ($codes === false) return false;
+    $n = count($codes);
+    if (!$n) return "''";
+    $tab = str_repeat("\t", $descr['niv']);
+    if (_request('var_mode_affiche') != 'validation') {
+        if ($n==1) 
+            return $codes[0];
+        else {
+            $res = '';
+            foreach($codes as $code) {
+                if (!preg_match("/^'[^']*'$/", $code)
+                OR substr($res,-1,1)!=="'")
+                    $res .=  " .\n$tab$code";
+                else {
+                    $res = substr($res,0,-1) . substr($code,1);
+                }
+            }
+            return '(' . substr($res,2+$descr['niv']) . ')';
+        }
+    } else {
+        $nom = $descr['nom'] . $id_boucle .  ($descr['niv']?$descr['niv']:'');
+        return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" .  join(" ,\n$tab", $codes) . ")))";
+    }
 }
 
 define('_REGEXP_COND_VIDE_NONVIDE',"/^[(](.*)[?]\s*''\s*:\s*('[^']+')\s*[)]$/");
@@ -786,173 +786,173 @@ 
 function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 
         $codes = array();
-	// cas de la boucle recursive
-	if (is_array($id_boucle)) 
-	  $id_boucle = $id_boucle[0];
-	$type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete;
-	$tab = str_repeat("\t", ++$descr['niv']);
-	$mode = _request('var_mode_affiche');
-	$err_e_c = '';
-	// chaque commentaire introduit dans le code doit commencer
-	// par un caractere distinguant le cas, pour exploitation par debug.
-	foreach ($tableau as $p) {
-
-		switch($p->type) {
-		// texte seul
-		case 'texte':
-			$code = sandbox_composer_texte($p->texte, $p);
-			$commentaire= strlen($p->texte) . " signes";
-			$avant='';
-			$apres='';
-			$altern = "''";
-			break;
-
-		case 'polyglotte':
-			$code = "";
-			foreach($p->traductions as $k => $v) {
-			  $code .= ",'" .
-			    str_replace(array("\\","'"),array("\\\\","\\'"), $k) .
-			    "' => '" .
-			    str_replace(array("\\","'"),array("\\\\","\\'"), $v) .
-			    "'";
-			}
-			$code = "choisir_traduction(array(" .
- 			  substr($code,1) .
-			  "))";
-			$commentaire= '&';
-			$avant='';
-			$apres='';
-			$altern = "''";
-			break;
-
-		// inclure
-		case 'include':
-			$p->descr = $descr;
-			$code = calculer_inclure($p, $boucles, $id_boucle);
-			if ($code === false) {
-				$err_e_c = true;
-				$code = "''";
-			} else {
-				$commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
-				$avant='';
-				$apres='';
-				$altern = "''";
-			}
-			break;
-
-		// boucle
-		case TYPE_RECURSIF:
-			$nom = $p->id_boucle;
-			$newdescr = $descr;
-			$newdescr['id_mere'] = $nom;
-			$newdescr['niv']++;
-			$avant = calculer_liste($p->avant,
-				$newdescr, $boucles, $id_boucle);
-			$apres = calculer_liste($p->apres,
-				$newdescr, $boucles, $id_boucle);
-			$newdescr['niv']--;
-			$altern = calculer_liste($p->altern,
-				$newdescr, $boucles, $id_boucle);
-			if (($avant === false) OR ($apres === false) OR ($altern === false)) {
-				$err_e_c = true;
-				$code = "''";
-			} else {
-				$code = 'BOUCLE' .
-				  str_replace("-","_", $nom) . $descr['nom'] .
-				  '($Cache, $Pile, $doublons, $Numrows, $SP)';
-				$commentaire= "?$nom";
-				if (!$boucles[$nom]->milieu
-				AND $boucles[$nom]->type_requete <> TYPE_RECURSIF) {
-					if ($altern != "''") $code .= "\n. $altern";
-					if ($avant<>"''" OR $apres<>"''")
-					  spip_log("boucle $nom toujours vide, code superflu dans $id");
-					$avant = $apres = $altern = "''";
-				} else if ($altern != "''") $altern = "($altern)";
-			}
-			break;
-
-		case 'idiome':
-			$l = array();
-			$code = '';
-			foreach ($p->arg as $k => $v) {
-			  	$_v = calculer_liste($v, $descr, $boucles, $id_boucle);
-				if ($k) {
-					$l[] = _q($k) . ' => ' . $_v;
-				} else {
-					$code = $_v;
-				}
-			}
-			// Si le module n'est pas fourni, l'expliciter sauf si calculé
-			if ($p->module) {
-				$m = $p->module .':'.$p->nom_champ;
-			} elseif ($p->nom_champ) {
-				$m = MODULES_IDIOMES .':'.$p->nom_champ;
-			} else {
-				$m = '';
-			}
-			$code = (!$code ? "'$m'" :
-						($m ? "'$m' . $code" :
-							("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
-					. (!$l ? '' : (", array(" . implode(",\n", $l) . ")"));
-			$code = "_T($code)";
-			if ($p->param) {
-				$p->id_boucle = $id_boucle;
-				$p->boucles = &$boucles;
-				$code = compose_filtres($p, $code);
-			}
-			$commentaire = ":";
-			$avant='';
-			$apres='';
-			$altern = "''";
-			break;
-
-		case 'champ':
-
-			// cette structure pourrait etre completee des le phrase' (a faire)
-			$p->id_boucle = $id_boucle;
-			$p->boucles = &$boucles;
-			$p->descr = $descr;
-			#$p->interdire_scripts = true;
-			$p->type_requete = $type;
-
-			$code = calculer_champ($p);
-			$commentaire = '#' . $p->nom_champ . $p->etoile;
-			$avant = calculer_liste($p->avant,
-				$descr, $boucles, $id_boucle);
-			$apres = calculer_liste($p->apres,
-				$descr, $boucles, $id_boucle);
-			$altern = "''";
-			// Si la valeur est destinee a une comparaison a ''
-			// forcer la conversion en une chaine par strval
-			// si ca peut etre autre chose qu'une chaine
-			if (($avant != "''" OR $apres != "''")
-			AND $code[0]!= "'"
+    // cas de la boucle recursive
+    if (is_array($id_boucle)) 
+        $id_boucle = $id_boucle[0];
+    $type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete;
+    $tab = str_repeat("\t", ++$descr['niv']);
+    $mode = _request('var_mode_affiche');
+    $err_e_c = '';
+    // chaque commentaire introduit dans le code doit commencer
+    // par un caractere distinguant le cas, pour exploitation par debug.
+    foreach ($tableau as $p) {
+
+        switch($p->type) {
+        // texte seul
+        case 'texte':
+            $code = sandbox_composer_texte($p->texte, $p);
+            $commentaire= strlen($p->texte) . " signes";
+            $avant='';
+            $apres='';
+            $altern = "''";
+            break;
+
+        case 'polyglotte':
+            $code = "";
+            foreach($p->traductions as $k => $v) {
+                $code .= ",'" .
+                str_replace(array("\\","'"),array("\\\\","\\'"), $k) .
+                "' => '" .
+                str_replace(array("\\","'"),array("\\\\","\\'"), $v) .
+                "'";
+            }
+            $code = "choisir_traduction(array(" .
+                substr($code,1) .
+                "))";
+            $commentaire= '&';
+            $avant='';
+            $apres='';
+            $altern = "''";
+            break;
+
+        // inclure
+        case 'include':
+            $p->descr = $descr;
+            $code = calculer_inclure($p, $boucles, $id_boucle);
+            if ($code === false) {
+                $err_e_c = true;
+                $code = "''";
+            } else {
+                $commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
+                $avant='';
+                $apres='';
+                $altern = "''";
+            }
+            break;
+
+        // boucle
+        case TYPE_RECURSIF:
+            $nom = $p->id_boucle;
+            $newdescr = $descr;
+            $newdescr['id_mere'] = $nom;
+            $newdescr['niv']++;
+            $avant = calculer_liste($p->avant,
+                $newdescr, $boucles, $id_boucle);
+            $apres = calculer_liste($p->apres,
+                $newdescr, $boucles, $id_boucle);
+            $newdescr['niv']--;
+            $altern = calculer_liste($p->altern,
+                $newdescr, $boucles, $id_boucle);
+            if (($avant === false) OR ($apres === false) OR ($altern === false)) {
+                $err_e_c = true;
+                $code = "''";
+            } else {
+                $code = 'BOUCLE' .
+                    str_replace("-","_", $nom) . $descr['nom'] .
+                    '($Cache, $Pile, $doublons, $Numrows, $SP)';
+                $commentaire= "?$nom";
+                if (!$boucles[$nom]->milieu
+                AND $boucles[$nom]->type_requete <> TYPE_RECURSIF) {
+                    if ($altern != "''") $code .= "\n. $altern";
+                    if ($avant<>"''" OR $apres<>"''")
+                        spip_log("boucle $nom toujours vide, code superflu dans $id");
+                    $avant = $apres = $altern = "''";
+                } else if ($altern != "''") $altern = "($altern)";
+            }
+            break;
+
+        case 'idiome':
+            $l = array();
+            $code = '';
+            foreach ($p->arg as $k => $v) {
+                    $_v = calculer_liste($v, $descr, $boucles, $id_boucle);
+                if ($k) {
+                    $l[] = _q($k) . ' => ' . $_v;
+                } else {
+                    $code = $_v;
+                }
+            }
+            // Si le module n'est pas fourni, l'expliciter sauf si calculé
+            if ($p->module) {
+                $m = $p->module .':'.$p->nom_champ;
+            } elseif ($p->nom_champ) {
+                $m = MODULES_IDIOMES .':'.$p->nom_champ;
+            } else {
+                $m = '';
+            }
+            $code = (!$code ? "'$m'" :
+                        ($m ? "'$m' . $code" :
+                            ("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
+                    . (!$l ? '' : (", array(" . implode(",\n", $l) . ")"));
+            $code = "_T($code)";
+            if ($p->param) {
+                $p->id_boucle = $id_boucle;
+                $p->boucles = &$boucles;
+                $code = compose_filtres($p, $code);
+            }
+            $commentaire = ":";
+            $avant='';
+            $apres='';
+            $altern = "''";
+            break;
+
+        case 'champ':
+
+            // cette structure pourrait etre completee des le phrase' (a faire)
+            $p->id_boucle = $id_boucle;
+            $p->boucles = &$boucles;
+            $p->descr = $descr;
+            #$p->interdire_scripts = true;
+            $p->type_requete = $type;
+
+            $code = calculer_champ($p);
+            $commentaire = '#' . $p->nom_champ . $p->etoile;
+            $avant = calculer_liste($p->avant,
+                $descr, $boucles, $id_boucle);
+            $apres = calculer_liste($p->apres,
+                $descr, $boucles, $id_boucle);
+            $altern = "''";
+            // Si la valeur est destinee a une comparaison a ''
+            // forcer la conversion en une chaine par strval
+            // si ca peut etre autre chose qu'une chaine
+            if (($avant != "''" OR $apres != "''")
+            AND $code[0]!= "'"
 #			AND (strpos($code,'interdire_scripts') !== 0)
-			AND !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code)
-			AND !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code)
-			AND !preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) 
-				$code = "strval($code)";
-			break;
-
-		default: 
-		  // Erreur de construction de l'arbre de syntaxe abstraite
-			$code = "''";
-			$p->descr = $descr;
-			$err_e_c = _T('zbug_erreur_compilation');
-			erreur_squelette($err_e_c, $p);
-		} // switch
-
-		if ($code != "''") {
-			$code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
-			$codes[]= (($mode == 'validation') ?
-				"array($code, '$commentaire', " . $p->ligne . ")"
-				: (($mode == 'code') ?
-				"\n// $commentaire\n$code" :
-				$code));
-		}
-	} // foreach
-
-	return $err_e_c ? false : $codes;
+            AND !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code)
+            AND !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code)
+            AND !preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) 
+                $code = "strval($code)";
+            break;
+
+        default: 
+          // Erreur de construction de l'arbre de syntaxe abstraite
+            $code = "''";
+            $p->descr = $descr;
+            $err_e_c = _T('zbug_erreur_compilation');
+            erreur_squelette($err_e_c, $p);
+        } // switch
+
+        if ($code != "''") {
+            $code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
+            $codes[]= (($mode == 'validation') ?
+                "array($code, '$commentaire', " . $p->ligne . ")"
+                : (($mode == 'code') ?
+                "\n// $commentaire\n$code" :
+                $code));
+        }
+    } // foreach
+
+    return $err_e_c ? false : $codes;
 }
 
 // production d'une expression conditionnelle ((v=EXP) ? (p . v .s) : a)
@@ -962,41 +962,41 @@ 
 // http://doc.spip.org/@compile_retour
 function compile_retour($code, $avant, $apres, $altern, $tab, $n)
 {
-	if ($avant == "''") $avant = '';
-	if ($apres == "''") $apres = '';
-	if (!$avant AND !$apres AND ($altern==="''")) return $code;
-
-	if (preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) {
-		$t = $code;
-		$cond = '';
-	} elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE,$code, $r)) {
-		$t = $r[2];
-		$cond =  '!' . $r[1];
-	} else if  (preg_match(_REGEXP_COND_NONVIDE_VIDE,$code, $r)) {
-		$t = $r[2];
-		$cond = $r[1];
-	} else {
-		$t = '$t' . $n;
-		$cond = "($t = $code)!==''";
-	}
-
-	$res = (!$avant ? "" : "$avant . ") . 
-		$t .
-		(!$apres ? "" : " . $apres");
-
-	if ($res !== $t) $res = "($res)";
-	return !$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)";
+    if ($avant == "''") $avant = '';
+    if ($apres == "''") $apres = '';
+    if (!$avant AND !$apres AND ($altern==="''")) return $code;
+
+    if (preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) {
+        $t = $code;
+        $cond = '';
+    } elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE,$code, $r)) {
+        $t = $r[2];
+        $cond =  '!' . $r[1];
+    } else if  (preg_match(_REGEXP_COND_NONVIDE_VIDE,$code, $r)) {
+        $t = $r[2];
+        $cond = $r[1];
+    } else {
+        $t = '$t' . $n;
+        $cond = "($t = $code)!==''";
+    }
+
+    $res = (!$avant ? "" : "$avant . ") . 
+        $t .
+        (!$apres ? "" : " . $apres");
+
+    if ($res !== $t) $res = "($res)";
+    return !$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)";
 }
 
 
 function compile_inclure_doublons($lexemes)
 {
-	foreach($lexemes as $v)
-	  if($v->type === 'include' AND $v->param) 
-	    foreach($v->param as $r) 
-	      if (trim($r[0]) === 'doublons') 
-		return true;
-	return false;
+    foreach($lexemes as $v)
+        if($v->type === 'include' AND $v->param) 
+        foreach($v->param as $r) 
+            if (trim($r[0]) === 'doublons') 
+        return true;
+    return false;
 }
 
 // Prend en argument le texte d'un squelette, le nom de son fichier d'origine,
@@ -1016,296 +1016,296 @@ 
 
 // http://doc.spip.org/@public_compiler_dist
 function public_compiler_dist($squelette, $nom, $gram, $sourcefile, $connect=''){
-	// Pre-traitement : reperer le charset du squelette, et le convertir
-	// Bonus : supprime le BOM
-	include_spip('inc/charsets');
-	$squelette = transcoder_page($squelette);
-
-	// rendre inertes les echappements de #[](){}<>
-	$i = 0;
-	while(false !== strpos($squelette, $inerte = '-INERTE'.$i)) $i++;
-	$squelette = preg_replace_callback(',\\\\([#[()\]{}<>]),',
-		create_function('$a', "return '$inerte-'.ord(\$a[1]).'-';"), $squelette, -1, $esc);
-
-	$descr = array('nom' => $nom,
-			'gram' => $gram,
-			'sourcefile' => $sourcefile,
-			'squelette' => $squelette);
-
-	// Phraser le squelette, selon sa grammaire
-
-	$boucles = array();
-	$f = charger_fonction('phraser_' . $gram, 'public');
-
-	$squelette = $f($squelette, '', $boucles, $descr);
-	$boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect);
-
-	// restituer les echappements
-	if ($esc)
-		foreach($boucles as $i=>$boucle) {
-			$boucles[$i]->return = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return chr($a[1]);'),
-				$boucle->return);
-			$boucles[$i]->descr['squelette'] = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return "\\\\".chr($a[1]);'),
-				$boucle->descr['squelette']);
-		}
+    // Pre-traitement : reperer le charset du squelette, et le convertir
+    // Bonus : supprime le BOM
+    include_spip('inc/charsets');
+    $squelette = transcoder_page($squelette);
+
+    // rendre inertes les echappements de #[](){}<>
+    $i = 0;
+    while(false !== strpos($squelette, $inerte = '-INERTE'.$i)) $i++;
+    $squelette = preg_replace_callback(',\\\\([#[()\]{}<>]),',
+        create_function('$a', "return '$inerte-'.ord(\$a[1]).'-';"), $squelette, -1, $esc);
+
+    $descr = array('nom' => $nom,
+            'gram' => $gram,
+            'sourcefile' => $sourcefile,
+            'squelette' => $squelette);
+
+    // Phraser le squelette, selon sa grammaire
+
+    $boucles = array();
+    $f = charger_fonction('phraser_' . $gram, 'public');
+
+    $squelette = $f($squelette, '', $boucles, $descr);
+    $boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect);
+
+    // restituer les echappements
+    if ($esc)
+        foreach($boucles as $i=>$boucle) {
+            $boucles[$i]->return = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return chr($a[1]);'),
+                $boucle->return);
+            $boucles[$i]->descr['squelette'] = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return "\\\\".chr($a[1]);'),
+                $boucle->descr['squelette']);
+        }
 	
-	$debug = ($boucles AND defined('_VAR_MODE') AND _VAR_MODE == 'debug');
-	if ($debug) {
-		include_spip('public/decompiler');
-		foreach($boucles as $id => $boucle) {
-			if ($id)
-			  $decomp = "\n/* BOUCLE " .
-			    $boucle->type_requete .
-			    " " .
-			    str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) .
-			    " */\n";
-			else $decomp = ("\n/*\n" . 
-				 str_replace('*/', '* /', public_decompiler($squelette, $gram)) 
-				 . "\n*/");
-			$boucles[$id]->return = $decomp .$boucle->return; 
-			$GLOBALS['debug_objets']['code'][$nom.$id] = $boucle->return;
-		}
-	}
-
-	return $boucles;
+    $debug = ($boucles AND defined('_VAR_MODE') AND _VAR_MODE == 'debug');
+    if ($debug) {
+        include_spip('public/decompiler');
+        foreach($boucles as $id => $boucle) {
+            if ($id)
+                $decomp = "\n/* BOUCLE " .
+                $boucle->type_requete .
+                " " .
+                str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) .
+                " */\n";
+            else $decomp = ("\n/*\n" . 
+                    str_replace('*/', '* /', public_decompiler($squelette, $gram)) 
+                    . "\n*/");
+            $boucles[$id]->return = $decomp .$boucle->return; 
+            $GLOBALS['debug_objets']['code'][$nom.$id] = $boucle->return;
+        }
+    }
+
+    return $boucles;
 }
 
 // Point d'entree pour arbre de syntaxe abstraite fourni en premier argument
 // Autres specifications comme ci-dessus
 
 function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect=''){
-	static $trouver_table;
-	spip_timer('calcul_skel');
-
-	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
-		$GLOBALS['debug_objets']['squelette'][$nom] = $descr['squelette'];
-		$GLOBALS['debug_objets']['sourcefile'][$nom] = $sourcefile;
-
-		if (!isset($GLOBALS['debug_objets']['principal']))
-			$GLOBALS['debug_objets']['principal'] = $nom;
-	}
-	foreach ($boucles as $id => $boucle) {
-		$GLOBALS['debug_objets']['boucle'][$nom.$id] = $boucle;
-	}
-	$descr['documents'] = compile_inclure_doublons($squelette);
-
-	// Demander la description des tables une fois pour toutes
-	// et reperer si les doublons sont demandes
-	// pour un inclure ou une boucle document
-	// c'est utile a la fonction champs_traitements
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
-
-	foreach($boucles as $id => $boucle) {
-		if (!($type = $boucle->type_requete)) continue;
-		if (!$descr['documents'] AND (
-			(($type == 'documents') AND $boucle->doublons) OR
-				compile_inclure_doublons($boucle->avant) OR
-				compile_inclure_doublons($boucle->apres) OR
-				compile_inclure_doublons($boucle->milieu) OR
-				compile_inclure_doublons($boucle->altern)))
-			$descr['documents'] = true;  
-		if ($type != TYPE_RECURSIF) {
-			if (!$boucles[$id]->sql_serveur AND $connect)
-				$boucles[$id]->sql_serveur = $connect;
-
-			// chercher dans les iterateurs du repertoire iterateur/
-			if ($g = charger_fonction(
-			preg_replace('/\W/', '_', $boucle->type_requete), 'iterateur', true)) {
-				$boucles[$id] = $g($boucle);
-
-			// sinon, en cas de requeteur d'un type predefini,
-			// utiliser les informations donnees par le requeteur
-			// cas "php:xx" et "data:xx".
-			} else if ($boucle->sql_serveur AND $requeteur = charger_fonction($boucle->sql_serveur, 'requeteur', true)) {
-				$requeteur($boucles, $boucle, $id);
-
-			// utiliser la description des champs transmis
-			} else {
-				$show = $trouver_table($type, $boucles[$id]->sql_serveur);
-				// si la table n'existe pas avec le connecteur par defaut,
-				// c'est peut etre une table qui necessite son connecteur dedie fourni
-				// permet une ecriture allegee (GEO) -> (geo:GEO)
-				if (!$show
-				AND $show=$trouver_table($type, strtolower($type))) {
-					$boucles[$id]->sql_serveur = strtolower($type);
-				}
-				if ($show) {
-					$boucles[$id]->show = $show;
-					// recopie les infos les plus importantes
-					$boucles[$id]->primary = $show['key']["PRIMARY KEY"];
-					$boucles[$id]->id_table = $x = preg_replace(",^spip_,","",$show['id_table']);
-					$boucles[$id]->from[$x] = $nom_table = $show['table'];
-					$boucles[$id]->iterateur = 'SQL';
-
-					$boucles[$id]->descr = &$descr;
-					if ((!$boucles[$id]->jointures)
-					    AND is_array($show['tables_jointures'])
-					        AND count($x = $show['tables_jointures']))
-						$boucles[$id]->jointures = $x;
-					if ($boucles[$id]->jointures_explicites){
-						$jointures = preg_split("/\s+/",$boucles[$id]->jointures_explicites);
-						while ($j=array_pop($jointures))
-							array_unshift($boucles[$id]->jointures,$j);
-					}
-				} else {
-					// Pas une erreur si la table est optionnelle
-					if ($boucles[$id]->table_optionnelle)
-						$boucles[$id]->type_requete = '';
-					else  {
-						$boucles[$id]->type_requete = false;
-						$boucle = $boucles[$id];
-						$x = (!$boucle->sql_serveur ? '' :
-							($boucle->sql_serveur . ":")) .
-						     $type;
-						$msg = array('zbug_table_inconnue',
-						             array('table' => $x));
-						erreur_squelette($msg, $boucle);
-					}
-				}
-			}
-		}
-	}
-
-	// Commencer par reperer les boucles appelees explicitement 
-	// car elles indexent les arguments de maniere derogatoire
-	foreach($boucles as $id => $boucle) {
-		if ($boucle->type_requete == TYPE_RECURSIF AND $boucle->param) {
-			$boucles[$id]->descr = &$descr;
-			$rec = &$boucles[$boucle->param[0]];
-			if (!$rec) {
-				$msg = array('zbug_boucle_recursive_undef',
-					array('nom' => $boucle->param[0]));
-				erreur_squelette($msg, $boucle);
-				$boucles[$id]->type_requete = false;
-			} else {
-				$rec->externe = $id;
-				$descr['id_mere'] = $id;
-				$boucles[$id]->return =
-						calculer_liste(array($rec),
-							 $descr,
-							 $boucles,
-							 $boucle->param);
-			}
-		}
-	}
-	foreach($boucles as $id => $boucle) { 
-		$id = strval($id); // attention au type dans index_pile
-		$type = $boucle->type_requete;
-		if ($type AND $type != TYPE_RECURSIF) {
-			$res = '';
-			if ($boucle->param) {
-				// retourne un tableau en cas d'erreur
-				$res = calculer_criteres($id, $boucles);
-			}
-			$descr['id_mere'] = $id;
-			$boucles[$id]->return =
-			  calculer_liste($boucle->milieu,
-					 $descr,
-					 $boucles,
-					 $id);
-			// Si les criteres se sont mal compiles
-			// ne pas tenter d'assembler le code final
-			// (mais compiler le corps pour detection d'erreurs)
-			if (is_array($res)) {
-				$boucles[$id]->type_requete = false;
-			}
-		}
-	}
-
-	// idem pour la racine
-	$descr['id_mere'] = '';
-	$corps = calculer_liste($squelette, $descr, $boucles);
-
-
-
-	// Calcul du corps de toutes les fonctions PHP,
-	// en particulier les requetes SQL et TOTAL_BOUCLE
-	// de'terminables seulement maintenant
-
-	foreach($boucles as $id => $boucle) {
-		$boucle = $boucles[$id] = pipeline('pre_boucle', $boucle);
-		if ($boucle->return === false) {$corps = false; continue;}
-		// appeler la fonction de definition de la boucle
-
-		if ($req = $boucle->type_requete) {
-			// boucle personnalisée ?
-			$table = strtoupper($boucle->type_requete);
-			$serveur = strtolower($boucle->sql_serveur);
-			if (
-				// fonction de boucle avec serveur & table
-				(!$serveur OR
-				 ((!function_exists($f = "boucle_".$serveur."_".$table))
-				  AND (!function_exists($f = $f."_dist"))
-				 )
-				)
-				// fonction de boucle avec table
-				AND (!function_exists($f = "boucle_".$table))
-					AND (!function_exists($f = $f."_dist"))
-			){
-				// fonction de boucle standard 
-				if (!function_exists($f = 'boucle_DEFAUT')) {
-					$f = 'boucle_DEFAUT_dist';
-				}
-			}
-
-			$req = "\n\n\tstatic \$command = array();\n\t" .
-					"static \$connect;\n\t" .
-					"\$command['connect'] = \$connect = " .
-				_q($boucle->sql_serveur) .
-				";" .
-				$f($id, $boucles);
-		} else $req = ("\n\treturn '';");
-
-		$boucles[$id]->return = 
-			"\n\nfunction BOUCLE" . strtr($id,"-","_") . $nom .
-			'(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' .
-			$req .
-			"\n}\n";
-	}
-
-	// Au final, si le corps ou un critere au moins s'est mal compile
-	// retourner False, sinon inserer leur decompilation
-	if (is_bool($corps)) return false;
-
-	$principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons=array(), $Numrows=array(), $SP=0) {
+    static $trouver_table;
+    spip_timer('calcul_skel');
+
+    if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
+        $GLOBALS['debug_objets']['squelette'][$nom] = $descr['squelette'];
+        $GLOBALS['debug_objets']['sourcefile'][$nom] = $sourcefile;
+
+        if (!isset($GLOBALS['debug_objets']['principal']))
+            $GLOBALS['debug_objets']['principal'] = $nom;
+    }
+    foreach ($boucles as $id => $boucle) {
+        $GLOBALS['debug_objets']['boucle'][$nom.$id] = $boucle;
+    }
+    $descr['documents'] = compile_inclure_doublons($squelette);
+
+    // Demander la description des tables une fois pour toutes
+    // et reperer si les doublons sont demandes
+    // pour un inclure ou une boucle document
+    // c'est utile a la fonction champs_traitements
+    if (!$trouver_table)
+        $trouver_table = charger_fonction('trouver_table', 'base');
+
+    foreach($boucles as $id => $boucle) {
+        if (!($type = $boucle->type_requete)) continue;
+        if (!$descr['documents'] AND (
+            (($type == 'documents') AND $boucle->doublons) OR
+                compile_inclure_doublons($boucle->avant) OR
+                compile_inclure_doublons($boucle->apres) OR
+                compile_inclure_doublons($boucle->milieu) OR
+                compile_inclure_doublons($boucle->altern)))
+            $descr['documents'] = true;  
+        if ($type != TYPE_RECURSIF) {
+            if (!$boucles[$id]->sql_serveur AND $connect)
+                $boucles[$id]->sql_serveur = $connect;
+
+            // chercher dans les iterateurs du repertoire iterateur/
+            if ($g = charger_fonction(
+            preg_replace('/\W/', '_', $boucle->type_requete), 'iterateur', true)) {
+                $boucles[$id] = $g($boucle);
+
+            // sinon, en cas de requeteur d'un type predefini,
+            // utiliser les informations donnees par le requeteur
+            // cas "php:xx" et "data:xx".
+            } else if ($boucle->sql_serveur AND $requeteur = charger_fonction($boucle->sql_serveur, 'requeteur', true)) {
+                $requeteur($boucles, $boucle, $id);
+
+            // utiliser la description des champs transmis
+            } else {
+                $show = $trouver_table($type, $boucles[$id]->sql_serveur);
+                // si la table n'existe pas avec le connecteur par defaut,
+                // c'est peut etre une table qui necessite son connecteur dedie fourni
+                // permet une ecriture allegee (GEO) -> (geo:GEO)
+                if (!$show
+                AND $show=$trouver_table($type, strtolower($type))) {
+                    $boucles[$id]->sql_serveur = strtolower($type);
+                }
+                if ($show) {
+                    $boucles[$id]->show = $show;
+                    // recopie les infos les plus importantes
+                    $boucles[$id]->primary = $show['key']["PRIMARY KEY"];
+                    $boucles[$id]->id_table = $x = preg_replace(",^spip_,","",$show['id_table']);
+                    $boucles[$id]->from[$x] = $nom_table = $show['table'];
+                    $boucles[$id]->iterateur = 'SQL';
+
+                    $boucles[$id]->descr = &$descr;
+                    if ((!$boucles[$id]->jointures)
+                        AND is_array($show['tables_jointures'])
+                            AND count($x = $show['tables_jointures']))
+                        $boucles[$id]->jointures = $x;
+                    if ($boucles[$id]->jointures_explicites){
+                        $jointures = preg_split("/\s+/",$boucles[$id]->jointures_explicites);
+                        while ($j=array_pop($jointures))
+                            array_unshift($boucles[$id]->jointures,$j);
+                    }
+                } else {
+                    // Pas une erreur si la table est optionnelle
+                    if ($boucles[$id]->table_optionnelle)
+                        $boucles[$id]->type_requete = '';
+                    else  {
+                        $boucles[$id]->type_requete = false;
+                        $boucle = $boucles[$id];
+                        $x = (!$boucle->sql_serveur ? '' :
+                            ($boucle->sql_serveur . ":")) .
+                                $type;
+                        $msg = array('zbug_table_inconnue',
+                                        array('table' => $x));
+                        erreur_squelette($msg, $boucle);
+                    }
+                }
+            }
+        }
+    }
+
+    // Commencer par reperer les boucles appelees explicitement 
+    // car elles indexent les arguments de maniere derogatoire
+    foreach($boucles as $id => $boucle) {
+        if ($boucle->type_requete == TYPE_RECURSIF AND $boucle->param) {
+            $boucles[$id]->descr = &$descr;
+            $rec = &$boucles[$boucle->param[0]];
+            if (!$rec) {
+                $msg = array('zbug_boucle_recursive_undef',
+                    array('nom' => $boucle->param[0]));
+                erreur_squelette($msg, $boucle);
+                $boucles[$id]->type_requete = false;
+            } else {
+                $rec->externe = $id;
+                $descr['id_mere'] = $id;
+                $boucles[$id]->return =
+                        calculer_liste(array($rec),
+                                $descr,
+                                $boucles,
+                                $boucle->param);
+            }
+        }
+    }
+    foreach($boucles as $id => $boucle) { 
+        $id = strval($id); // attention au type dans index_pile
+        $type = $boucle->type_requete;
+        if ($type AND $type != TYPE_RECURSIF) {
+            $res = '';
+            if ($boucle->param) {
+                // retourne un tableau en cas d'erreur
+                $res = calculer_criteres($id, $boucles);
+            }
+            $descr['id_mere'] = $id;
+            $boucles[$id]->return =
+                calculer_liste($boucle->milieu,
+                        $descr,
+                        $boucles,
+                        $id);
+            // Si les criteres se sont mal compiles
+            // ne pas tenter d'assembler le code final
+            // (mais compiler le corps pour detection d'erreurs)
+            if (is_array($res)) {
+                $boucles[$id]->type_requete = false;
+            }
+        }
+    }
+
+    // idem pour la racine
+    $descr['id_mere'] = '';
+    $corps = calculer_liste($squelette, $descr, $boucles);
+
+
+
+    // Calcul du corps de toutes les fonctions PHP,
+    // en particulier les requetes SQL et TOTAL_BOUCLE
+    // de'terminables seulement maintenant
+
+    foreach($boucles as $id => $boucle) {
+        $boucle = $boucles[$id] = pipeline('pre_boucle', $boucle);
+        if ($boucle->return === false) {$corps = false; continue;}
+        // appeler la fonction de definition de la boucle
+
+        if ($req = $boucle->type_requete) {
+            // boucle personnalisée ?
+            $table = strtoupper($boucle->type_requete);
+            $serveur = strtolower($boucle->sql_serveur);
+            if (
+                // fonction de boucle avec serveur & table
+                (!$serveur OR
+                 ((!function_exists($f = "boucle_".$serveur."_".$table))
+                  AND (!function_exists($f = $f."_dist"))
+                    )
+                )
+                // fonction de boucle avec table
+                AND (!function_exists($f = "boucle_".$table))
+                    AND (!function_exists($f = $f."_dist"))
+            ){
+                // fonction de boucle standard 
+                if (!function_exists($f = 'boucle_DEFAUT')) {
+                    $f = 'boucle_DEFAUT_dist';
+                }
+            }
+
+            $req = "\n\n\tstatic \$command = array();\n\t" .
+                    "static \$connect;\n\t" .
+                    "\$command['connect'] = \$connect = " .
+                _q($boucle->sql_serveur) .
+                ";" .
+                $f($id, $boucles);
+        } else $req = ("\n\treturn '';");
+
+        $boucles[$id]->return = 
+            "\n\nfunction BOUCLE" . strtr($id,"-","_") . $nom .
+            '(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' .
+            $req .
+            "\n}\n";
+    }
+
+    // Au final, si le corps ou un critere au moins s'est mal compile
+    // retourner False, sinon inserer leur decompilation
+    if (is_bool($corps)) return false;
+
+    $principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons=array(), $Numrows=array(), $SP=0) {
 '
-	// reporter de maniere securisee les doublons inclus
+    // reporter de maniere securisee les doublons inclus
 .'
 	if (isset($Pile[0]["doublons"]) AND is_array($Pile[0]["doublons"]))
 		$doublons = nettoyer_env_doublons($Pile[0]["doublons"]);
 
 	$connect = ' .
-	_q($connect) . ';
+    _q($connect) . ';
 	$page = ' .
-	// ATTENTION, le calcul de l'expression $corps affectera $Cache
-	// c'est pourquoi on l'affecte a la variable auxiliaire $page. 
-	// avant de referencer $Cache
-	$corps . ";
+    // ATTENTION, le calcul de l'expression $corps affectera $Cache
+    // c'est pourquoi on l'affecte a la variable auxiliaire $page. 
+    // avant de referencer $Cache
+    $corps . ";
 
 	return analyse_resultat_skel(".var_export($nom,true)
-		.", \$Cache, \$page, ".var_export($sourcefile,true).");
+        .", \$Cache, \$page, ".var_export($sourcefile,true).");
 }";
 
-	$secondes = spip_timer('calcul_skel');
-	spip_log("COMPIL ($secondes) [$sourcefile] $nom.php");
-	// $connect n'est pas sûr : on nettoie
-	$connect = preg_replace(',[^\w],', '', $connect);
+    $secondes = spip_timer('calcul_skel');
+    spip_log("COMPIL ($secondes) [$sourcefile] $nom.php");
+    // $connect n'est pas sûr : on nettoie
+    $connect = preg_replace(',[^\w],', '', $connect);
 
-	// Assimiler la fct principale a une boucle anonyme, pour retourner un resultat simple
-	$code = new Boucle;
-	$code->descr = $descr;
-	$code->return = '
+    // Assimiler la fct principale a une boucle anonyme, pour retourner un resultat simple
+    $code = new Boucle;
+    $code->descr = $descr;
+    $code->return = '
 //
 // Fonction principale du squelette ' . 
-	$sourcefile . 
-	($connect ? " pour $connect" : '') . 
-	(!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
-	"\n//\n" .
-	$principal;
-
-	$boucles[''] = $code;
-	return $boucles;
+    $sourcefile . 
+    ($connect ? " pour $connect" : '') . 
+    (!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
+    "\n//\n" .
+    $principal;
+
+    $boucles[''] = $code;
+    return $boucles;
 }
 
 
@@ -1322,16 +1322,16 @@ 
  * 
 **/
 function requeteur_php_dist(&$boucles, &$boucle, &$id) {
-	if (class_exists($boucle->type_requete)) {
-		$g = charger_fonction('php', 'iterateur');
-		$boucles[$id] = $g($boucle, $boucle->type_requete);
-	} else {
-		$x = $boucle->type_requete;
-		$boucle->type_requete = false;
-		$msg = array('zbug_iterateur_inconnu',
-				array('iterateur' => $x));
-		erreur_squelette($msg, $boucle);
-	}
+    if (class_exists($boucle->type_requete)) {
+        $g = charger_fonction('php', 'iterateur');
+        $boucles[$id] = $g($boucle, $boucle->type_requete);
+    } else {
+        $x = $boucle->type_requete;
+        $boucle->type_requete = false;
+        $msg = array('zbug_iterateur_inconnu',
+                array('iterateur' => $x));
+        erreur_squelette($msg, $boucle);
+    }
 }
 
 
@@ -1349,23 +1349,23 @@ 
  * 
 **/
 function requeteur_data_dist(&$boucles, &$boucle, &$id) {
-	include_spip('iterateur/data');
-	if ($h = charger_fonction($boucle->type_requete . '_to_array' , 'inc', true)) {
-		$g = charger_fonction('data', 'iterateur');
-		$boucles[$id] = $g($boucle);
-		// from[0] stocke le type de data (rss, yql, ...)
-		$boucles[$id]->from[] = $boucle->type_requete;
+    include_spip('iterateur/data');
+    if ($h = charger_fonction($boucle->type_requete . '_to_array' , 'inc', true)) {
+        $g = charger_fonction('data', 'iterateur');
+        $boucles[$id] = $g($boucle);
+        // from[0] stocke le type de data (rss, yql, ...)
+        $boucles[$id]->from[] = $boucle->type_requete;
 		
-	} else {
-		$x = $boucle->type_requete;
-		$boucle->type_requete = false;
-		$msg = array('zbug_requeteur_inconnu',
-				array(
-				'requeteur' => 'data',
-				'type' => $x
-		));
-		erreur_squelette($msg, $boucle);
-	}
+    } else {
+        $x = $boucle->type_requete;
+        $boucle->type_requete = false;
+        $msg = array('zbug_requeteur_inconnu',
+                array(
+                'requeteur' => 'data',
+                'type' => $x
+        ));
+        erreur_squelette($msg, $boucle);
+    }
 }
 
 ?>

ecrire/public/composer.php

Indentation +610 added lines, -610 removed lines

@@ -33,93 +33,93 @@ 
 // http://doc.spip.org/@public_composer_dist
 function public_composer_dist($squelette, $mime_type, $gram, $source, $connect='') {
 
-	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
-
-	//  si deja en memoire (INCLURE  a repetition) c'est bon.
-	if (function_exists($nom)) return $nom;
-
-	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug')
-		$GLOBALS['debug_objets']['courant'] = $nom;
-
-	$phpfile = sous_repertoire(_DIR_SKELS,'',false,true) . $nom . '.php';
-
-	// si squelette est deja compile et perenne, le charger
-	if (!squelette_obsolete($phpfile, $source)){
-		include_once $phpfile;
-		#if (!squelette_obsolete($phpfile, $source)
-		#  AND lire_fichier ($phpfile, $skel_code,
-		#  array('critique' => 'oui', 'phpcheck' => 'oui'))){
-		## eval('?'.'>'.$skel_code);
-		#	 spip_log($skel_code, 'comp')
-		#}
-	}
-
-	if (file_exists($lib = $squelette . '_fonctions'.'.php')){
-		include_once $lib;
-	}
-
-	// tester si le eval ci-dessus a mis le squelette en memoire
-
-	if (function_exists($nom)) return $nom;
-
-	// charger le source, si possible, et compiler 
-	if (lire_fichier ($source, $skel)) {
-		$compiler = charger_fonction('compiler', 'public');
-		$skel_code = $compiler($skel, $nom, $gram, $source, $connect);
-	}
-
-	// Ne plus rien faire si le compilateur n'a pas pu operer.
-	if (!$skel_code) return false;
-
-	foreach($skel_code as $id => $boucle) {
-		$f = $boucle->return;
-		if (@eval("return true; $f ;") ===  false) {
-		// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			// continuer pour trouver d'autres fautes eventuelles
-			// mais prevenir que c'est mort
-			$nom = '';
-		} 
-		// Contexte de compil inutile a present
-		// (mais la derniere valeur de $boucle est utilisee ci-dessous)
-		$skel_code[$id] = $f;
-	}
-
-	if ($nom) {
-		// Si le code est bon, concatener et mettre en cache
-		if (function_exists($nom))
-			$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
-		else {
-		// code semantiquement faux: bug du compilateur
-		// $boucle est en fait ici la fct principale du squelette
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			$nom = '';
-		}
-	}
-
-	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
-
-		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
-
-		// si c'est ce que demande le debusqueur, lui passer la main
-		if ($GLOBALS['debug_objets']['sourcefile']
-		AND (_request('var_mode_objet') == $nom)
-		AND (_request('var_mode_affiche') == 'code')  )
-			erreur_squelette();
-	}
-	return $nom ? $nom : false;
+    $nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
+
+    //  si deja en memoire (INCLURE  a repetition) c'est bon.
+    if (function_exists($nom)) return $nom;
+
+    if (defined('_VAR_MODE') AND _VAR_MODE == 'debug')
+        $GLOBALS['debug_objets']['courant'] = $nom;
+
+    $phpfile = sous_repertoire(_DIR_SKELS,'',false,true) . $nom . '.php';
+
+    // si squelette est deja compile et perenne, le charger
+    if (!squelette_obsolete($phpfile, $source)){
+        include_once $phpfile;
+        #if (!squelette_obsolete($phpfile, $source)
+        #  AND lire_fichier ($phpfile, $skel_code,
+        #  array('critique' => 'oui', 'phpcheck' => 'oui'))){
+        ## eval('?'.'>'.$skel_code);
+        #	 spip_log($skel_code, 'comp')
+        #}
+    }
+
+    if (file_exists($lib = $squelette . '_fonctions'.'.php')){
+        include_once $lib;
+    }
+
+    // tester si le eval ci-dessus a mis le squelette en memoire
+
+    if (function_exists($nom)) return $nom;
+
+    // charger le source, si possible, et compiler 
+    if (lire_fichier ($source, $skel)) {
+        $compiler = charger_fonction('compiler', 'public');
+        $skel_code = $compiler($skel, $nom, $gram, $source, $connect);
+    }
+
+    // Ne plus rien faire si le compilateur n'a pas pu operer.
+    if (!$skel_code) return false;
+
+    foreach($skel_code as $id => $boucle) {
+        $f = $boucle->return;
+        if (@eval("return true; $f ;") ===  false) {
+        // Code syntaxiquement faux (critere etc mal programme')
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            // continuer pour trouver d'autres fautes eventuelles
+            // mais prevenir que c'est mort
+            $nom = '';
+        } 
+        // Contexte de compil inutile a present
+        // (mais la derniere valeur de $boucle est utilisee ci-dessous)
+        $skel_code[$id] = $f;
+    }
+
+    if ($nom) {
+        // Si le code est bon, concatener et mettre en cache
+        if (function_exists($nom))
+            $code = squelette_traduit($skel, $source, $phpfile, $skel_code);
+        else {
+        // code semantiquement faux: bug du compilateur
+        // $boucle est en fait ici la fct principale du squelette
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            $nom = '';
+        }
+    }
+
+    if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
+
+        // Tracer ce qui vient d'etre compile
+        $GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+
+        // si c'est ce que demande le debusqueur, lui passer la main
+        if ($GLOBALS['debug_objets']['sourcefile']
+        AND (_request('var_mode_objet') == $nom)
+        AND (_request('var_mode_affiche') == 'code')  )
+            erreur_squelette();
+    }
+    return $nom ? $nom : false;
 }
 
 function squelette_traduit($squelette, $sourcefile, $phpfile, $boucles)
 {
 
-	// Le dernier index est '' (fonction principale)
-	$noms = substr(join (', ', array_keys($boucles)), 0, -2);
-	if (CODE_COMMENTE)
-	$code = "
+    // Le dernier index est '' (fonction principale)
+    $noms = substr(join (', ', array_keys($boucles)), 0, -2);
+    if (CODE_COMMENTE)
+    $code = "
 /*
  * Squelette : $sourcefile
  * Date :      ".gmdate("D, d M Y H:i:s", @filemtime($sourcefile))." GMT
@@ -127,97 +127,97 @@ 
  * " . (!$boucles ?  "Pas de boucle" :	("Boucles :   " . $noms)) ."
  */ " ;
 
-	$code = '<'. "?php\n" . $code . join('', $boucles)  . "\n?" .'>';
-	if (!defined('_VAR_NOCACHE') OR !_VAR_NOCACHE)
-		ecrire_fichier($phpfile, $code);
-	return $code;
+    $code = '<'. "?php\n" . $code . join('', $boucles)  . "\n?" .'>';
+    if (!defined('_VAR_NOCACHE') OR !_VAR_NOCACHE)
+        ecrire_fichier($phpfile, $code);
+    return $code;
 }
 
 // Le squelette compile est-il trop vieux ?
 // http://doc.spip.org/@squelette_obsolete
 function squelette_obsolete($skel, $squelette) {
-	static $date_change = null;
-	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
-	// par hit
-	if (is_null($date_change)){
-		if (@file_exists($fonc = 'mes_fonctions.php'))
-			$date_change = @filemtime($fonc); # compatibilite
-		if (defined('_FILE_OPTIONS'))
-			$date_change = max($date_change,@filemtime(_FILE_OPTIONS));
-	}
-	return (
-		(defined('_VAR_MODE') AND in_array(_VAR_MODE, array('recalcul','preview','debug')))
-		OR !@file_exists($skel)
-		OR ((@file_exists($squelette)?@filemtime($squelette):0)
-			> ($date = @filemtime($skel)))
-		OR ($date_change > $date)
-	);
+    static $date_change = null;
+    // ne verifier la date de mes_fonctions et mes_options qu'une seule fois
+    // par hit
+    if (is_null($date_change)){
+        if (@file_exists($fonc = 'mes_fonctions.php'))
+            $date_change = @filemtime($fonc); # compatibilite
+        if (defined('_FILE_OPTIONS'))
+            $date_change = max($date_change,@filemtime(_FILE_OPTIONS));
+    }
+    return (
+        (defined('_VAR_MODE') AND in_array(_VAR_MODE, array('recalcul','preview','debug')))
+        OR !@file_exists($skel)
+        OR ((@file_exists($squelette)?@filemtime($squelette):0)
+            > ($date = @filemtime($skel)))
+        OR ($date_change > $date)
+    );
 }
 
 // Activer l'invalideur de session
 // http://doc.spip.org/@invalideur_session
 function invalideur_session(&$Cache, $code=NULL) {
-	$Cache['session']=spip_session();
-	return $code;
+    $Cache['session']=spip_session();
+    return $code;
 }
 
 
 // http://doc.spip.org/@analyse_resultat_skel
 function analyse_resultat_skel($nom, $cache, $corps, $source='') {
-	static $filtres = array();
-	$headers = array();
-
-	// Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
-	// note: on essaie d'attrapper aussi certains de ces entetes codes
-	// "a la main" dans les squelettes, mais evidemment sans exhaustivite
-	if (stripos($corps,'header')!==false
-		AND preg_match_all(
-	'/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
-	$corps, $regs, PREG_SET_ORDER)){
-		foreach ($regs as $r) {
-			$corps = str_replace($r[0], '', $corps);
-			# $j = Content-Type, et pas content-TYPE.
-			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
-
-			if ($j=='X-Spip-Filtre' AND isset($headers[$j]))
-				$headers[$j].="|".$r[3];
-			else
-				$headers[$j] = $r[3];
-		}
-	}
-	// S'agit-il d'un resultat constant ou contenant du code php
-	$process_ins = (
-		strpos($corps,'<'.'?') === false
-		OR
-		 (strpos($corps,'<'.'?xml')!==false AND
-		  strpos(str_replace('<'.'?xml', '', $corps),'<'.'?') === false)
-	)
-		? 'html'
-		: 'php';
-
-	$skel = array(
-		'squelette' => $nom,
-		'source' => $source,
-		'process_ins' => $process_ins,
-		'invalideurs' => $cache,
-		'entetes' => $headers,
-		'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
-	);
-
-	// traiter #FILTRE{} et filtres
-  if (!isset($filtres[$nom])) {
-	  $filtres[$nom] = pipeline('declarer_filtres_squelettes',array('args'=>$skel,'data'=>array()));
-  }
-	if (count($filtres[$nom]) OR (isset($headers['X-Spip-Filtre']) AND strlen($headers['X-Spip-Filtre']))) {
-		include_spip('public/sandbox');
-		$corps = sandbox_filtrer_squelette($skel,$corps,strlen($headers['X-Spip-Filtre'])?explode('|', $headers['X-Spip-Filtre']):array(),$filtres[$nom]);
-		unset($headers['X-Spip-Filtre']);
-	}
-
-	$skel['entetes'] = $headers;
-	$skel['texte'] = $corps;
-
-	return $skel;
+    static $filtres = array();
+    $headers = array();
+
+    // Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
+    // note: on essaie d'attrapper aussi certains de ces entetes codes
+    // "a la main" dans les squelettes, mais evidemment sans exhaustivite
+    if (stripos($corps,'header')!==false
+        AND preg_match_all(
+    '/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
+    $corps, $regs, PREG_SET_ORDER)){
+        foreach ($regs as $r) {
+            $corps = str_replace($r[0], '', $corps);
+            # $j = Content-Type, et pas content-TYPE.
+            $j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
+
+            if ($j=='X-Spip-Filtre' AND isset($headers[$j]))
+                $headers[$j].="|".$r[3];
+            else
+                $headers[$j] = $r[3];
+        }
+    }
+    // S'agit-il d'un resultat constant ou contenant du code php
+    $process_ins = (
+        strpos($corps,'<'.'?') === false
+        OR
+         (strpos($corps,'<'.'?xml')!==false AND
+          strpos(str_replace('<'.'?xml', '', $corps),'<'.'?') === false)
+    )
+        ? 'html'
+        : 'php';
+
+    $skel = array(
+        'squelette' => $nom,
+        'source' => $source,
+        'process_ins' => $process_ins,
+        'invalideurs' => $cache,
+        'entetes' => $headers,
+        'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
+    );
+
+    // traiter #FILTRE{} et filtres
+    if (!isset($filtres[$nom])) {
+        $filtres[$nom] = pipeline('declarer_filtres_squelettes',array('args'=>$skel,'data'=>array()));
+    }
+    if (count($filtres[$nom]) OR (isset($headers['X-Spip-Filtre']) AND strlen($headers['X-Spip-Filtre']))) {
+        include_spip('public/sandbox');
+        $corps = sandbox_filtrer_squelette($skel,$corps,strlen($headers['X-Spip-Filtre'])?explode('|', $headers['X-Spip-Filtre']):array(),$filtres[$nom]);
+        unset($headers['X-Spip-Filtre']);
+    }
+
+    $skel['entetes'] = $headers;
+    $skel['texte'] = $corps;
+
+    return $skel;
 }
 
 //
@@ -236,62 +236,62 @@ 
 //
 // http://doc.spip.org/@filtre_introduction_dist
 function filtre_introduction_dist($descriptif, $texte, $longueur, $connect) {
-	// Si un descriptif est envoye, on l'utilise directement
-	if (strlen($descriptif))
-		return propre($descriptif,$connect);
-
-	// De preference ce qui est marque <intro>...</intro>
-	$intro = '';
-	$texte = preg_replace(",(</?)intro>,i", "\\1intro>", $texte); // minuscules
-	while ($fin = strpos($texte, "</intro>")) {
-		$zone = substr($texte, 0, $fin);
-		$texte = substr($texte, $fin + strlen("</intro>"));
-		if ($deb = strpos($zone, "<intro>") OR substr($zone, 0, 7) == "<intro>")
-			$zone = substr($zone, $deb + 7);
-		$intro .= $zone;
-	}
-
-	// [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
-	// qui inclus raccourcis et modeles
-	// un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
-	// par ailleurs le nettoyage des raccourcis ne tient pas compte
-	// des surcharges et enrichissement de propre
-	// couper doit se faire apres propre
-	//$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
-
-	// Cependant pour des questions de perfs on coupe quand meme, en prenant
-	// large et en se mefiant des tableaux #1323
-
-	if (strlen($intro))
-		$texte = $intro;
-
-	else
-	if (strpos("\n".$texte, "\n|")===false
-	  AND strlen($texte) > 2.5*$longueur){
-		if (strpos($texte,"<multi")!==false)
-			$texte = extraire_multi($texte);
-		$texte = couper($texte, 2*$longueur);
-	}
-
-	// ne pas tenir compte des notes
-	if ($notes = charger_fonction('notes', 'inc', true))
-		$notes('','empiler');
-	// Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
-	// dans l'introduction.
-	$texte = supprime_img($texte, '');
-	$texte = propre($texte,$connect);
-	if ($notes)
-		$notes('','depiler');
-
-	if (!defined('_INTRODUCTION_SUITE')) define('_INTRODUCTION_SUITE', '&nbsp;(...)');
-	$texte = couper($texte, $longueur, _INTRODUCTION_SUITE);
-
-	// et reparagrapher si necessaire (coherence avec le cas descriptif)
-	if ($GLOBALS['toujours_paragrapher'])
-		// Fermer les paragraphes
-		$texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
-
-	return $texte;
+    // Si un descriptif est envoye, on l'utilise directement
+    if (strlen($descriptif))
+        return propre($descriptif,$connect);
+
+    // De preference ce qui est marque <intro>...</intro>
+    $intro = '';
+    $texte = preg_replace(",(</?)intro>,i", "\\1intro>", $texte); // minuscules
+    while ($fin = strpos($texte, "</intro>")) {
+        $zone = substr($texte, 0, $fin);
+        $texte = substr($texte, $fin + strlen("</intro>"));
+        if ($deb = strpos($zone, "<intro>") OR substr($zone, 0, 7) == "<intro>")
+            $zone = substr($zone, $deb + 7);
+        $intro .= $zone;
+    }
+
+    // [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
+    // qui inclus raccourcis et modeles
+    // un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
+    // par ailleurs le nettoyage des raccourcis ne tient pas compte
+    // des surcharges et enrichissement de propre
+    // couper doit se faire apres propre
+    //$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
+
+    // Cependant pour des questions de perfs on coupe quand meme, en prenant
+    // large et en se mefiant des tableaux #1323
+
+    if (strlen($intro))
+        $texte = $intro;
+
+    else
+    if (strpos("\n".$texte, "\n|")===false
+      AND strlen($texte) > 2.5*$longueur){
+        if (strpos($texte,"<multi")!==false)
+            $texte = extraire_multi($texte);
+        $texte = couper($texte, 2*$longueur);
+    }
+
+    // ne pas tenir compte des notes
+    if ($notes = charger_fonction('notes', 'inc', true))
+        $notes('','empiler');
+    // Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
+    // dans l'introduction.
+    $texte = supprime_img($texte, '');
+    $texte = propre($texte,$connect);
+    if ($notes)
+        $notes('','depiler');
+
+    if (!defined('_INTRODUCTION_SUITE')) define('_INTRODUCTION_SUITE', '&nbsp;(...)');
+    $texte = couper($texte, $longueur, _INTRODUCTION_SUITE);
+
+    // et reparagrapher si necessaire (coherence avec le cas descriptif)
+    if ($GLOBALS['toujours_paragrapher'])
+        // Fermer les paragraphes
+        $texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
+
+    return $texte;
 }
 
 //
@@ -307,137 +307,137 @@ 
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
 if ($lang_select) lang_select();
 ?'
-       .'>');
+        .'>');
 
 
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
-	$r = sprintf(CODE_INCLURE_BALISE,
-	       $file,
-	       $context_compil[4]?$context_compil[4]:'',
-	       $nom,
-	       join(', ', array_map('argumenter_squelette', $args)),
-	       join(', ', array_map('_q', $context_compil)));
-	return $r;
+    $r = sprintf(CODE_INCLURE_BALISE,
+            $file,
+            $context_compil[4]?$context_compil[4]:'',
+            $nom,
+            join(', ', array_map('argumenter_squelette', $args)),
+            join(', ', array_map('_q', $context_compil)));
+    return $r;
 }
 
 // http://doc.spip.org/@argumenter_squelette
 function argumenter_squelette($v) {
 
-	if (!is_array($v))
-		return "'" . texte_script($v) . "'";
-	else {
-		$out = array();
-		foreach($v as $k=>$val) 
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
-	  return 'array(' . join(", ", $out) . ')';
-	}
+    if (!is_array($v))
+        return "'" . texte_script($v) . "'";
+    else {
+        $out = array();
+        foreach($v as $k=>$val) 
+            $out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+        return 'array(' . join(", ", $out) . ')';
+    }
 }
 
 // verifier leurs arguments et filtres, et calculer le code a inclure
 // http://doc.spip.org/@executer_balise_dynamique
 function executer_balise_dynamique($nom, $args, $context_compil) {
-	$p = strpos($nom,"_");
-	$nomfonction = $nom;
-	$nomfonction_generique = substr($nom,0,$p+1);
-	if (!$file = include_spip("balise/". strtolower($nomfonction))) {
-		// pas de fichier associe, passer au traitement generique
-		$file = include_spip("balise/" .strtolower($nomfonction_generique));
-		if ($file) {
-			// et injecter en premier arg le nom de la balise 
-			array_unshift($args,$nom);
-			// et passer sur la fonction generique pour la suite
-			$nomfonction = $nomfonction_generique;
-		}
-		else {
-			$msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
-			erreur_squelette($msg, $context_compil);
-			return '';
-		}
-	}
-	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nomfonction . '_stat';
-
-	$r = !function_exists($f) ? $args : $f($args, $context_compil); 
-
-	if (!is_array($r)) return $r;
-
-	// verifier que la fonction dyn est la, 
-	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nomfonction . '_dyn')) {
-		$file = include_spip("balise/" .strtolower($nomfonction_generique));
-		if (function_exists('balise_' . $nomfonction_generique . '_dyn')) {
-			// et lui injecter en premier arg le nom de la balise 
-			array_unshift($r,$nom);
-			$nomfonction = $nomfonction_generique;
-		} else {
-			$msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
-			erreur_squelette($msg, $context_compil);
-			return '';
-		}
-	}
-
-	if (!_DIR_RESTREINT) 
-		$file = _DIR_RESTREINT_ABS . $file;
-	return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
+    $p = strpos($nom,"_");
+    $nomfonction = $nom;
+    $nomfonction_generique = substr($nom,0,$p+1);
+    if (!$file = include_spip("balise/". strtolower($nomfonction))) {
+        // pas de fichier associe, passer au traitement generique
+        $file = include_spip("balise/" .strtolower($nomfonction_generique));
+        if ($file) {
+            // et injecter en premier arg le nom de la balise 
+            array_unshift($args,$nom);
+            // et passer sur la fonction generique pour la suite
+            $nomfonction = $nomfonction_generique;
+        }
+        else {
+            $msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
+            erreur_squelette($msg, $context_compil);
+            return '';
+        }
+    }
+    // Y a-t-il une fonction de traitement des arguments ?
+    $f = 'balise_' . $nomfonction . '_stat';
+
+    $r = !function_exists($f) ? $args : $f($args, $context_compil); 
+
+    if (!is_array($r)) return $r;
+
+    // verifier que la fonction dyn est la, 
+    // sinon se replier sur la generique si elle existe
+    if (!function_exists('balise_' . $nomfonction . '_dyn')) {
+        $file = include_spip("balise/" .strtolower($nomfonction_generique));
+        if (function_exists('balise_' . $nomfonction_generique . '_dyn')) {
+            // et lui injecter en premier arg le nom de la balise 
+            array_unshift($r,$nom);
+            $nomfonction = $nomfonction_generique;
+        } else {
+            $msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
+            erreur_squelette($msg, $context_compil);
+            return '';
+        }
+    }
+
+    if (!_DIR_RESTREINT) 
+        $file = _DIR_RESTREINT_ABS . $file;
+    return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
 }
 
 // http://doc.spip.org/@lister_objets_avec_logos
 function lister_objets_avec_logos ($type) {
-	global $formats_logos;
-	$logos = array();
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$type = '/'
-	. type_du_logo($type)
-	. "on(\d+)\.("
-	. join('|',$formats_logos)
-	. ")$/";
-
-	if ($d = @opendir(_DIR_LOGOS)) {
-		while($f = readdir($d)) {
-			if (preg_match($type, $f, $r))
-				$logos[] = $r[1];
-		}
-	}
-	@closedir($d);
-	return join(',',$logos);
+    global $formats_logos;
+    $logos = array();
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $type = '/'
+    . type_du_logo($type)
+    . "on(\d+)\.("
+    . join('|',$formats_logos)
+    . ")$/";
+
+    if ($d = @opendir(_DIR_LOGOS)) {
+        while($f = readdir($d)) {
+            if (preg_match($type, $f, $r))
+                $logos[] = $r[1];
+        }
+    }
+    @closedir($d);
+    return join(',',$logos);
 }
 
 // fonction appelee par la balise #NOTES
 // Renvoyer l'etat courant des notes, le purger et en preparer un nouveau
 // http://doc.spip.org/@calculer_notes
 function calculer_notes() {
-	$r='';
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$r = $notes(array());
-		$notes('','depiler');
-		$notes('','empiler');
-	}
-	return $r;
+    $r='';
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $r = $notes(array());
+        $notes('','depiler');
+        $notes('','empiler');
+    }
+    return $r;
 }
 
 // Selectionner la langue de l'objet dans la boucle, sauf dans les
 // cas ou il ne le faut pas :-)
 function lang_select_public($lang, $lang_select, $titre=null) {
-	// Cas 1. forcer_lang = true et pas de critere {lang_select}
-	if (isset($GLOBALS['forcer_lang']) AND $GLOBALS['forcer_lang']
-	AND $lang_select !== 'oui')
-		$lang = $GLOBALS['spip_lang'];
-
-	// Cas 2. l'objet n'a pas de langue definie (ou definie a '')
-	elseif (!strlen($lang))
-		$lang = $GLOBALS['spip_lang'];
-
-	// Cas 3. l'objet est multilingue !
-	elseif ($lang_select !== 'oui'
-	  AND strlen($titre) > 10
-	  AND strpos($titre, '<multi>') !== false
-	  AND strpos(echappe_html($titre), '<multi>') !== false)
-		$lang = $GLOBALS['spip_lang'];
-
-	// faire un lang_select() eventuellement sur la langue inchangee
-	lang_select($lang);
-
-	return;
+    // Cas 1. forcer_lang = true et pas de critere {lang_select}
+    if (isset($GLOBALS['forcer_lang']) AND $GLOBALS['forcer_lang']
+    AND $lang_select !== 'oui')
+        $lang = $GLOBALS['spip_lang'];
+
+    // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
+    elseif (!strlen($lang))
+        $lang = $GLOBALS['spip_lang'];
+
+    // Cas 3. l'objet est multilingue !
+    elseif ($lang_select !== 'oui'
+      AND strlen($titre) > 10
+      AND strpos($titre, '<multi>') !== false
+      AND strpos(echappe_html($titre), '<multi>') !== false)
+        $lang = $GLOBALS['spip_lang'];
+
+    // faire un lang_select() eventuellement sur la langue inchangee
+    lang_select($lang);
+
+    return;
 }
 
 
@@ -445,48 +445,48 @@ 
 // il faut le nettoyer car il pourrait etre injecte en SQL
 // http://doc.spip.org/@nettoyer_env_doublons
 function nettoyer_env_doublons($envd) {
-	foreach ($envd as $table => $liste) {
-		$n = '';
-		foreach(explode(',',$liste) as $val) {
-			if ($a = intval($val) AND $val === strval($a))
-				$n.= ','.$val;
-		}
-		if (strlen($n))
-			$envd[$table] = $n;
-		else
-			unset($envd[$table]);
-	}
-	return $envd;
+    foreach ($envd as $table => $liste) {
+        $n = '';
+        foreach(explode(',',$liste) as $val) {
+            if ($a = intval($val) AND $val === strval($a))
+                $n.= ','.$val;
+        }
+        if (strlen($n))
+            $envd[$table] = $n;
+        else
+            unset($envd[$table]);
+    }
+    return $envd;
 }
 
 // http://doc.spip.org/@match_self
 function match_self($w){
-	if (is_string($w)) return false;
-	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $w;
-		foreach(array_filter($w,'is_array') as $sw)
-			if ($m=match_self($sw)) return $m;
-	}
-	return false;
+    if (is_string($w)) return false;
+    if (is_array($w)) {
+        if (in_array(reset($w),array("SELF","SUBSELECT"))) return $w;
+        foreach(array_filter($w,'is_array') as $sw)
+            if ($m=match_self($sw)) return $m;
+    }
+    return false;
 }
 // http://doc.spip.org/@remplace_sous_requete
 function remplace_sous_requete($w,$sousrequete){
-	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $sousrequete;
-		foreach($w as $k=>$sw)
-			$w[$k] = remplace_sous_requete($sw,$sousrequete);
-	}
-	return $w;
+    if (is_array($w)) {
+        if (in_array(reset($w),array("SELF","SUBSELECT"))) return $sousrequete;
+        foreach($w as $k=>$sw)
+            $w[$k] = remplace_sous_requete($sw,$sousrequete);
+    }
+    return $w;
 }
 // http://doc.spip.org/@trouver_sous_requetes
 function trouver_sous_requetes($where){
-	$where_simples = array();
-	$where_sous = array();
-	foreach($where as $k=>$w){
-		if (match_self($w)) $where_sous[$k] = $w;
-		else $where_simples[$k] = $w;
-	}
-	return array($where_simples,$where_sous);
+    $where_simples = array();
+    $where_sous = array();
+    foreach($where as $k=>$w){
+        if (match_self($w)) $where_sous[$k] = $w;
+        else $where_simples[$k] = $w;
+    }
+    return array($where_simples,$where_sous);
 }
 
 
@@ -511,224 +511,224 @@ 
  * @return resource
  */
 function calculer_select ($select = array(), $from = array(), 
-			$from_type = array(),
-      $where = array(), $join=array(),
-			$groupby = array(), $orderby = array(), $limit = '',
-			$having=array(), $table = '', $id = '', $serveur='', $requeter=true) {
-
-	// retirer les criteres vides:
-	// {X ?} avec X absent de l'URL
-	// {par #ENV{X}} avec X absent de l'URL
-	// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
-	$menage = false;
-	foreach($where as $k => $v) { 
-		if (is_array($v)){
-			if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
-			elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
-			else $op = $v[0] ? $v[0] : $v;
-		} else $op = $v;
-		if ((!$op) OR ($op==1) OR ($op=='0=0')) {
-			unset($where[$k]);
-			$menage = true;
-		}
-	}
-
-	// evacuer les eventuels groupby vide issus d'un calcul dynamique
-	$groupby = array_diff($groupby,array(''));
-
-	// remplacer les sous requetes recursives au calcul
-	list($where_simples,$where_sous) = trouver_sous_requetes($where);
-	foreach($where_sous as $k=>$w) {
-		$menage = true;
-		// on recupere la sous requete 
-		$sous = match_self($w);
-		if ($sous[0]=='SELF') {
-			// c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
-			array_push($where_simples,$sous[2]);
-			$wheresub = array($sous[2],'0=0'); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
-			$jsub = $join;
-			// trouver les jointures utiles a
-			// reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
-			// ie L1.objet='article'
-			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
-			$i = 0;
-			do {
-				$where[$k] = remplace_sous_requete($w,"(".calculer_select(
-				array($sous[1]." AS id"),
-				$from,
-				$from_type,
-				$wheresub,
-				$jsub,
-				array(),array(),'',
-				$having,$table,$id,$serveur,false).")");
-				if (!$i){
-					$i = 1;
-					$wherestring = calculer_where_to_string($where[$k]);
-					foreach ($join as $cle=>$wj){
-						if (count($wj)==4
-							AND strpos($wherestring,"{$cle}.")!==FALSE
-						){
-							$i = 0;
-							$wheresub[] = $wj[3];
-							unset($jsub[$cle][3]);
-						}
-					}
-				}
-			} while ($i++<1);
-		}
-		if ($sous[0]=='SUBSELECT') {
-			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
-			array_push($where_simples,$sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w,"(".calculer_select(
-			$sous[1], # select
-			$sous[2], #from
-			array(), #from_type
-			$sous[3]?(is_array($sous[3])?$sous[3]:array($sous[3])):array(), #where, qui peut etre de la forme string comme dans sql_select
-			array(), #join
-			$sous[4]?$sous[4]:array(), #groupby
-			$sous[5]?$sous[5]:array(), #orderby
-			$sous[6], #limit
-			$sous[7]?$sous[7]:array(), #having
-			$table,$id,$serveur,false
-			).")");
-		}
-		array_pop($where_simples);
-	}
-
-	foreach($having as $k => $v) { 
-		if ((!$v) OR ($v==1) OR ($v=='0=0')) {
-			unset($having[$k]);
-		}
-	}
-
-	// Installer les jointures.
-	// Retirer celles seulement utiles aux criteres finalement absents mais
-	// parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
-	// si elle est seulement utile a Ln+1 elle meme inutile
+            $from_type = array(),
+        $where = array(), $join=array(),
+            $groupby = array(), $orderby = array(), $limit = '',
+            $having=array(), $table = '', $id = '', $serveur='', $requeter=true) {
+
+    // retirer les criteres vides:
+    // {X ?} avec X absent de l'URL
+    // {par #ENV{X}} avec X absent de l'URL
+    // IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
+    $menage = false;
+    foreach($where as $k => $v) { 
+        if (is_array($v)){
+            if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
+            elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
+            else $op = $v[0] ? $v[0] : $v;
+        } else $op = $v;
+        if ((!$op) OR ($op==1) OR ($op=='0=0')) {
+            unset($where[$k]);
+            $menage = true;
+        }
+    }
+
+    // evacuer les eventuels groupby vide issus d'un calcul dynamique
+    $groupby = array_diff($groupby,array(''));
+
+    // remplacer les sous requetes recursives au calcul
+    list($where_simples,$where_sous) = trouver_sous_requetes($where);
+    foreach($where_sous as $k=>$w) {
+        $menage = true;
+        // on recupere la sous requete 
+        $sous = match_self($w);
+        if ($sous[0]=='SELF') {
+            // c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
+            array_push($where_simples,$sous[2]);
+            $wheresub = array($sous[2],'0=0'); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
+            $jsub = $join;
+            // trouver les jointures utiles a
+            // reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
+            // ie L1.objet='article'
+            // on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
+            $i = 0;
+            do {
+                $where[$k] = remplace_sous_requete($w,"(".calculer_select(
+                array($sous[1]." AS id"),
+                $from,
+                $from_type,
+                $wheresub,
+                $jsub,
+                array(),array(),'',
+                $having,$table,$id,$serveur,false).")");
+                if (!$i){
+                    $i = 1;
+                    $wherestring = calculer_where_to_string($where[$k]);
+                    foreach ($join as $cle=>$wj){
+                        if (count($wj)==4
+                            AND strpos($wherestring,"{$cle}.")!==FALSE
+                        ){
+                            $i = 0;
+                            $wheresub[] = $wj[3];
+                            unset($jsub[$cle][3]);
+                        }
+                    }
+                }
+            } while ($i++<1);
+        }
+        if ($sous[0]=='SUBSELECT') {
+            // c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
+            array_push($where_simples,$sous[3]); // est-ce utile dans ce cas ?
+            $where[$k] = remplace_sous_requete($w,"(".calculer_select(
+            $sous[1], # select
+            $sous[2], #from
+            array(), #from_type
+            $sous[3]?(is_array($sous[3])?$sous[3]:array($sous[3])):array(), #where, qui peut etre de la forme string comme dans sql_select
+            array(), #join
+            $sous[4]?$sous[4]:array(), #groupby
+            $sous[5]?$sous[5]:array(), #orderby
+            $sous[6], #limit
+            $sous[7]?$sous[7]:array(), #having
+            $table,$id,$serveur,false
+            ).")");
+        }
+        array_pop($where_simples);
+    }
+
+    foreach($having as $k => $v) { 
+        if ((!$v) OR ($v==1) OR ($v=='0=0')) {
+            unset($having[$k]);
+        }
+    }
+
+    // Installer les jointures.
+    // Retirer celles seulement utiles aux criteres finalement absents mais
+    // parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
+    // si elle est seulement utile a Ln+1 elle meme inutile
 	
-	$afrom = array();
-	$equiv = array();
-	$k = count($join);
-	foreach(array_reverse($join,true) as $cledef=>$j) {
-		$cle = $cledef;
-		// le format de join est :
-		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		if (count($join[$cle])==2) $join[$cle][] = $join[$cle][1];
-		if (count($join[$cle])==3) $join[$cle][] = '';
-		list($t,$c,$carr,$and) = $join[$cle];
-		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
-		// pour compat avec ancienne convention
-		if (is_numeric($cle))
-			$cle = "L$k";
-		if (!$menage
-		OR isset($afrom[$cle])
-		OR calculer_jointnul($cle, $select)
-		OR calculer_jointnul($cle, array_diff_key($join, array($cle=>$join[$cle])))
-		OR calculer_jointnul($cle, $having)
-		OR calculer_jointnul($cle, $where_simples)) {
-			// corriger les references non explicites dans select
-			// ou groupby
-			foreach($select as $i=>$s) {
-				if ($s == $c) {
-					$select[$i] = "$cle.$c AS $c";
-					break;
-				}
-			}
-			foreach($groupby as $i=>$g) {
-				if ($g == $c) {
-					$groupby[$i] = "$cle.$c";
-					break;
-				}
-			}
-			// on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
-			// sans recours a preg_match
-			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
-			$afrom[$t][$cle] = array("\n" .
-				(isset($from_type[$cle])?$from_type[$cle]:"INNER")." JOIN",
-				$from[$cle],
-				"AS $cle",
-				"ON (",
-				"$cle.$c",
-				"=",
-				"$t.$carr",
-				($and ? "AND ". $and:"") .
-				")");
-			if (isset($afrom[$cle])){
-				$afrom[$t] = $afrom[$t] + $afrom[$cle];
-				unset($afrom[$cle]);
-			}
-			$equiv[]= $carr;
-		} else { unset($join[$cledef]);}
-		unset($from[$cle]);
-		$k--;
-	}
-
-	if (count($afrom)) {
-		// Regarder si la table principale ne sert finalement a rien comme dans
-		//<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
-		//<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
-		//<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
-		// ou dans
-		//<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
-		// qui comporte plusieurs jointures
-		// ou dans
-		// <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
-		// <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
-		// penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
-		// <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
-		// penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
-		// <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
+    $afrom = array();
+    $equiv = array();
+    $k = count($join);
+    foreach(array_reverse($join,true) as $cledef=>$j) {
+        $cle = $cledef;
+        // le format de join est :
+        // array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
+        if (count($join[$cle])==2) $join[$cle][] = $join[$cle][1];
+        if (count($join[$cle])==3) $join[$cle][] = '';
+        list($t,$c,$carr,$and) = $join[$cle];
+        // si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
+        // pour compat avec ancienne convention
+        if (is_numeric($cle))
+            $cle = "L$k";
+        if (!$menage
+        OR isset($afrom[$cle])
+        OR calculer_jointnul($cle, $select)
+        OR calculer_jointnul($cle, array_diff_key($join, array($cle=>$join[$cle])))
+        OR calculer_jointnul($cle, $having)
+        OR calculer_jointnul($cle, $where_simples)) {
+            // corriger les references non explicites dans select
+            // ou groupby
+            foreach($select as $i=>$s) {
+                if ($s == $c) {
+                    $select[$i] = "$cle.$c AS $c";
+                    break;
+                }
+            }
+            foreach($groupby as $i=>$g) {
+                if ($g == $c) {
+                    $groupby[$i] = "$cle.$c";
+                    break;
+                }
+            }
+            // on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
+            // sans recours a preg_match
+            // un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
+            $afrom[$t][$cle] = array("\n" .
+                (isset($from_type[$cle])?$from_type[$cle]:"INNER")." JOIN",
+                $from[$cle],
+                "AS $cle",
+                "ON (",
+                "$cle.$c",
+                "=",
+                "$t.$carr",
+                ($and ? "AND ". $and:"") .
+                ")");
+            if (isset($afrom[$cle])){
+                $afrom[$t] = $afrom[$t] + $afrom[$cle];
+                unset($afrom[$cle]);
+            }
+            $equiv[]= $carr;
+        } else { unset($join[$cledef]);}
+        unset($from[$cle]);
+        $k--;
+    }
+
+    if (count($afrom)) {
+        // Regarder si la table principale ne sert finalement a rien comme dans
+        //<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
+        //<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
+        //<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
+        // ou dans
+        //<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
+        // qui comporte plusieurs jointures
+        // ou dans
+        // <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
+        // <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
+        // penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
+        // <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
+        // penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
+        // <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
 		
-	  list($t,$c) = each($from);
-	  reset($from);
-	  $e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
-	  if (!(strpos($t, ' ') OR // jointure des le depart cf boucle_doc
-		 calculer_jointnul($t, $select, $e) OR
-		 calculer_jointnul($t, $join, $e) OR
-		 calculer_jointnul($t, $where, $e) OR
-		 calculer_jointnul($t, $orderby, $e) OR
-		 calculer_jointnul($t, $groupby, $e) OR
-		 calculer_jointnul($t, $having, $e))
-		 && count($afrom[$t])) {
-		 	reset($afrom[$t]);
-		 	list($nt,$nfrom) = each($afrom[$t]);
-	    unset($from[$t]);
-	    $from[$nt] = $nfrom[1];
-	    unset($afrom[$t][$nt]);
-	    $afrom[$nt] = $afrom[$t];
-	    unset($afrom[$t]);
-	    $e = '/\b'.preg_quote($nfrom[6]).'\b/';
-	    $t = $nfrom[4];
-	    $alias = "";
-	    // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
-	    $oldcle = explode('.',$nfrom[6]);
-	    $oldcle = end($oldcle);
-	    $newcle = explode('.',$nfrom[4]);
-	    $newcle = end($newcle);
-	    if ($newcle!=$oldcle){
-		    // si l'ancienne cle etait deja dans le select avec un AS
-		    // reprendre simplement ce AS
-		    $as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
-		    if (preg_match($as,implode(',',$select),$m)){
-			    $alias = "";
-		    }
-		    else
-					$alias = ", ".$nfrom[4]." AS $oldcle";
-	    }
-	    $select = remplacer_jointnul($t . $alias, $select, $e);
-	    $join = remplacer_jointnul($t, $join, $e);
-	    $where = remplacer_jointnul($t, $where, $e);
-	    $having = remplacer_jointnul($t, $having, $e);
-	    $groupby = remplacer_jointnul($t, $groupby, $e);
-	    $orderby = remplacer_jointnul($t, $orderby, $e);
-	  }
-	  $from = reinjecte_joint($afrom, $from);
-	}
-	$GLOBALS['debug']['aucasou'] = array ($table, $id, $serveur, $requeter);
-	$r = sql_select($select, $from, $where,
-		$groupby, array_filter($orderby), $limit, $having, $serveur, $requeter);
-	unset($GLOBALS['debug']['aucasou']);
-	return $r;
+        list($t,$c) = each($from);
+        reset($from);
+        $e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
+        if (!(strpos($t, ' ') OR // jointure des le depart cf boucle_doc
+         calculer_jointnul($t, $select, $e) OR
+         calculer_jointnul($t, $join, $e) OR
+         calculer_jointnul($t, $where, $e) OR
+         calculer_jointnul($t, $orderby, $e) OR
+         calculer_jointnul($t, $groupby, $e) OR
+         calculer_jointnul($t, $having, $e))
+         && count($afrom[$t])) {
+                reset($afrom[$t]);
+                list($nt,$nfrom) = each($afrom[$t]);
+        unset($from[$t]);
+        $from[$nt] = $nfrom[1];
+        unset($afrom[$t][$nt]);
+        $afrom[$nt] = $afrom[$t];
+        unset($afrom[$t]);
+        $e = '/\b'.preg_quote($nfrom[6]).'\b/';
+        $t = $nfrom[4];
+        $alias = "";
+        // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
+        $oldcle = explode('.',$nfrom[6]);
+        $oldcle = end($oldcle);
+        $newcle = explode('.',$nfrom[4]);
+        $newcle = end($newcle);
+        if ($newcle!=$oldcle){
+            // si l'ancienne cle etait deja dans le select avec un AS
+            // reprendre simplement ce AS
+            $as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
+            if (preg_match($as,implode(',',$select),$m)){
+                $alias = "";
+            }
+            else
+                    $alias = ", ".$nfrom[4]." AS $oldcle";
+        }
+        $select = remplacer_jointnul($t . $alias, $select, $e);
+        $join = remplacer_jointnul($t, $join, $e);
+        $where = remplacer_jointnul($t, $where, $e);
+        $having = remplacer_jointnul($t, $having, $e);
+        $groupby = remplacer_jointnul($t, $groupby, $e);
+        $orderby = remplacer_jointnul($t, $orderby, $e);
+        }
+        $from = reinjecte_joint($afrom, $from);
+    }
+    $GLOBALS['debug']['aucasou'] = array ($table, $id, $serveur, $requeter);
+    $r = sql_select($select, $from, $where,
+        $groupby, array_filter($orderby), $limit, $having, $serveur, $requeter);
+    unset($GLOBALS['debug']['aucasou']);
+    return $r;
 }
 
 /**
@@ -738,18 +738,18 @@ 
  * @return string
  */
 function calculer_where_to_string($v, $join = 'AND'){
-	if (empty($v))
-		return '';
-
-	if (!is_array($v)) {
-		return $v;
-	} else {
-		$exp = "";
-		if (strtoupper($join) === 'AND')
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
-		else
-			return $exp . join($join, $v);
-	}
+    if (empty($v))
+        return '';
+
+    if (!is_array($v)) {
+        return $v;
+    } else {
+        $exp = "";
+        if (strtoupper($join) === 'AND')
+            return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+        else
+            return $exp . join($join, $v);
+    }
 }
 
 
@@ -758,55 +758,55 @@ 
 // http://doc.spip.org/@calculer_jointnul
 function calculer_jointnul($cle, $exp, $equiv='')
 {
-	if (!is_array($exp)) {
-		if ($equiv) $exp = preg_replace($equiv, '', $exp);
-		return preg_match("/\\b$cle\\./", $exp);
-	} else {
-		foreach($exp as $v) {
-			if (calculer_jointnul($cle, $v, $equiv)) return true;
-		}
-		return false;
-	}
+    if (!is_array($exp)) {
+        if ($equiv) $exp = preg_replace($equiv, '', $exp);
+        return preg_match("/\\b$cle\\./", $exp);
+    } else {
+        foreach($exp as $v) {
+            if (calculer_jointnul($cle, $v, $equiv)) return true;
+        }
+        return false;
+    }
 }
 
 // http://doc.spip.org/@reinjecte_joint
 function reinjecte_joint($afrom, $from)
 {
-	  $from_synth = array();
-	  foreach($from as $k=>$v){
-	  	$from_synth[$k]=$from[$k];
-	  	if (isset($afrom[$k])) {
-	  		foreach($afrom[$k] as $kk=>$vv) $afrom[$k][$kk] = implode(' ',$afrom[$k][$kk]);
-	  		$from_synth["$k@"]= implode(' ',$afrom[$k]);
-	  		unset($afrom[$k]);
-	  	}
-	  }
-	  return $from_synth;
+        $from_synth = array();
+        foreach($from as $k=>$v){
+            $from_synth[$k]=$from[$k];
+            if (isset($afrom[$k])) {
+                foreach($afrom[$k] as $kk=>$vv) $afrom[$k][$kk] = implode(' ',$afrom[$k][$kk]);
+                $from_synth["$k@"]= implode(' ',$afrom[$k]);
+                unset($afrom[$k]);
+            }
+        }
+        return $from_synth;
 }
 
 // http://doc.spip.org/@remplacer_jointnul
 function remplacer_jointnul($cle, $exp, $equiv='')
 {
-	if (!is_array($exp)) {
-		return preg_replace($equiv, $cle, $exp);
-	} else {
-		foreach($exp as $k => $v) {
-		  $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
-		}
-		return $exp;
-	}
+    if (!is_array($exp)) {
+        return preg_replace($equiv, $cle, $exp);
+    } else {
+        foreach($exp as $k => $v) {
+            $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
+        }
+        return $exp;
+    }
 }
 
 // calcul du nom du squelette
 // http://doc.spip.org/@calculer_nom_fonction_squel
 function calculer_nom_fonction_squel($skel, $mime_type='html', $connect='')
 {
-	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0)
-		$skel = substr($skel,strlen(_DIR_RACINE));
-	return $mime_type
-	. (!$connect ?  '' : preg_replace('/\W/',"_", $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel'])?'*'.$GLOBALS['marqueur_skel']:''));
+    // ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
+    if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0)
+        $skel = substr($skel,strlen(_DIR_RACINE));
+    return $mime_type
+    . (!$connect ?  '' : preg_replace('/\W/',"_", $connect)) . '_'
+    . md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel'])?'*'.$GLOBALS['marqueur_skel']:''));
 }
 
 ?>

ecrire/public/tracer.php

Indentation +114 added lines, -114 removed lines

@@ -15,135 +15,135 @@
 // http://doc.spip.org/@trace_query_start
 function trace_query_start()
 {
-	static $trace = '?';
-	if ($trace === '?') {
-		include_spip('inc/autoriser');
-		// gare au bouclage sur calcul de droits au premier appel
-		// A fortiori quand on demande une trace
-		$trace = isset($_GET['var_profile']) AND (autoriser('debug'));
-	}
-	return  $trace ?  microtime() : 0;
+    static $trace = '?';
+    if ($trace === '?') {
+        include_spip('inc/autoriser');
+        // gare au bouclage sur calcul de droits au premier appel
+        // A fortiori quand on demande une trace
+        $trace = isset($_GET['var_profile']) AND (autoriser('debug'));
+    }
+    return  $trace ?  microtime() : 0;
 }
 
 // http://doc.spip.org/@trace_query_end
 function trace_query_end($query, $start, $result, $erreur, $serveur=''){
-	if ($start)
-		trace_query_chrono($start, microtime(), $query, $result, $serveur);
-	// tracer les erreurs, sauf pour select, c'est fait dans abstract_sql
-	if ($erreur AND !preg_match('/^select\b/i', $query))
-		erreur_squelette(array(sql_errno($serveur), $erreur, $query));
-	return $result;
+    if ($start)
+        trace_query_chrono($start, microtime(), $query, $result, $serveur);
+    // tracer les erreurs, sauf pour select, c'est fait dans abstract_sql
+    if ($erreur AND !preg_match('/^select\b/i', $query))
+        erreur_squelette(array(sql_errno($serveur), $erreur, $query));
+    return $result;
 }
 
 // http://doc.spip.org/@trace_query_chrono
 function trace_query_chrono($m1, $m2, $query, $result, $serveur='')
 {
-	static $tt = 0, $nb=0;
-	global $tableau_des_temps;
-
-	include_spip('inc/filtres_mini');
-
-	$x = _request('var_mode_objet');
-	if (isset($GLOBALS['debug']['aucasou'])) {
-		list(, $boucle, $serveur, $contexte) = $GLOBALS['debug']['aucasou'];
-		if ($x AND !preg_match("/$boucle\$/", $x))
-			return;
-		if ($serveur) $boucle .= " ($serveur)";
-		$boucle = "<b>$boucle</b>";
-	} else {
-		if ($x) return;
-		$boucle = $contexte = '';
-	}
-
-	list($usec, $sec) = explode(" ", $m1);
-	list($usec2, $sec2) = explode(" ", $m2);
- 	$dt = $sec2 + $usec2 - $sec - $usec;
-	$tt += $dt;
-	$nb++;
-
-	$q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2",spip_htmlentities($query));
-	$e =  sql_explain($query, $serveur);
-	$r = str_replace('Resource id ','',(is_object($result)?get_class($result):$result));
-	$tableau_des_temps[] = array($dt, $nb, $boucle, $q, $e, $r, $contexte);
+    static $tt = 0, $nb=0;
+    global $tableau_des_temps;
+
+    include_spip('inc/filtres_mini');
+
+    $x = _request('var_mode_objet');
+    if (isset($GLOBALS['debug']['aucasou'])) {
+        list(, $boucle, $serveur, $contexte) = $GLOBALS['debug']['aucasou'];
+        if ($x AND !preg_match("/$boucle\$/", $x))
+            return;
+        if ($serveur) $boucle .= " ($serveur)";
+        $boucle = "<b>$boucle</b>";
+    } else {
+        if ($x) return;
+        $boucle = $contexte = '';
+    }
+
+    list($usec, $sec) = explode(" ", $m1);
+    list($usec2, $sec2) = explode(" ", $m2);
+        $dt = $sec2 + $usec2 - $sec - $usec;
+    $tt += $dt;
+    $nb++;
+
+    $q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2",spip_htmlentities($query));
+    $e =  sql_explain($query, $serveur);
+    $r = str_replace('Resource id ','',(is_object($result)?get_class($result):$result));
+    $tableau_des_temps[] = array($dt, $nb, $boucle, $q, $e, $r, $contexte);
 }
 
 
 function chrono_requete($temps)
 {
-	$total = 0;
-	$hors = "<i>" . _T('zbug_hors_compilation') . "</i>";
-	$t = $q = $n = $d = array();
-	// Totaliser les temps et completer le Explain
-	foreach ($temps as $key => $v) {
-		list($dt, $nb, $boucle, $query, $explain, $res, $contexte) = $v;
-		if (is_array($contexte)) {
-			$k = ($contexte[0] . " $boucle");
-			include_spip('public/compiler');
-			$env = reconstruire_contexte_compil($contexte);
-		} else $k = $env = $boucle;
-
-		$total += $dt;
-		$t[$key] = $dt;
-		$q[$key] = $nb;
-		$d[$k]+= $dt;
-		if ($k) @++$n[$k];
-
-		if (!is_array($explain))
-			$explain = array();
-		foreach($explain as $j => $v) {
-			$explain[$j] = "<tr><th>$j</th><td>"
-			  . str_replace(';','<br />',$v)
-			  . "</td></tr>";
-		}
-		$e = "<table class='explain'>"
-		. "<caption>"
-		. $query
-		. "</caption>"
-		. "<tr><th>Time</th><td>$dt</td></tr>"
-		. "<tr><th>Order</th><td>$nb</td></tr>"
-		. "<tr><th>Res</th><td>$res</td></tr>"
-		. join('', $explain)
-		. "</table>";
-
-		$temps[$key] = array($e, $env, $k);
-	}
-	// Trier par temps d'execution decroissant
-	array_multisort($t, SORT_DESC, $q, $temps);
-	arsort($d);
-	$i = 1;
-	$t = array();
-	// Fabriquer les liens de navigations dans le tableau des temps
-	foreach($temps as $k => $v) {
-		$titre = strip_tags($v[2]);
-		$href = quote_amp($GLOBALS['REQUEST_URI'])."#req$i";
-
-		$t[$v[2]][]= "<span class='spip-debug-arg'> "
-		. "<a title='$titre' href='$href'>$i</a>"
-		. '</span>'
-		. ((count($t[$v[2]]) % 10 == 9) ?  "<br />" : '');
-		$i++;
-	}
-
-	if ($d['']) {
-		$d[$hors] = $d[''];
-		$n[$hors] = $n[''];
-		$t[$hors] = $t[''];
-	}
-	unset($d['']);
-	// Fabriquer le tableau des liens de navigation dans le grand tableau
-	foreach ($d as $k => $v) {
-		$d[$k] =  $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
-		  . join('',$t[$k]);
-	}
-
-	$navigation = array(_T('zbug_statistiques'),
-	  "<tr><td>"
-		. join("</td></tr>\n<tr><td>", $d)
-	  . "</td></tr>\n"
-	  .  (# _request('var_mode_objet') ? '' : 
-	     ("<tr><td>" .  count($temps) . "</td><td>" . _T('info_total') . '</td><td class="time">' . $total . "</td><td></td></tr>")));
+    $total = 0;
+    $hors = "<i>" . _T('zbug_hors_compilation') . "</i>";
+    $t = $q = $n = $d = array();
+    // Totaliser les temps et completer le Explain
+    foreach ($temps as $key => $v) {
+        list($dt, $nb, $boucle, $query, $explain, $res, $contexte) = $v;
+        if (is_array($contexte)) {
+            $k = ($contexte[0] . " $boucle");
+            include_spip('public/compiler');
+            $env = reconstruire_contexte_compil($contexte);
+        } else $k = $env = $boucle;
+
+        $total += $dt;
+        $t[$key] = $dt;
+        $q[$key] = $nb;
+        $d[$k]+= $dt;
+        if ($k) @++$n[$k];
+
+        if (!is_array($explain))
+            $explain = array();
+        foreach($explain as $j => $v) {
+            $explain[$j] = "<tr><th>$j</th><td>"
+                . str_replace(';','<br />',$v)
+                . "</td></tr>";
+        }
+        $e = "<table class='explain'>"
+        . "<caption>"
+        . $query
+        . "</caption>"
+        . "<tr><th>Time</th><td>$dt</td></tr>"
+        . "<tr><th>Order</th><td>$nb</td></tr>"
+        . "<tr><th>Res</th><td>$res</td></tr>"
+        . join('', $explain)
+        . "</table>";
+
+        $temps[$key] = array($e, $env, $k);
+    }
+    // Trier par temps d'execution decroissant
+    array_multisort($t, SORT_DESC, $q, $temps);
+    arsort($d);
+    $i = 1;
+    $t = array();
+    // Fabriquer les liens de navigations dans le tableau des temps
+    foreach($temps as $k => $v) {
+        $titre = strip_tags($v[2]);
+        $href = quote_amp($GLOBALS['REQUEST_URI'])."#req$i";
+
+        $t[$v[2]][]= "<span class='spip-debug-arg'> "
+        . "<a title='$titre' href='$href'>$i</a>"
+        . '</span>'
+        . ((count($t[$v[2]]) % 10 == 9) ?  "<br />" : '');
+        $i++;
+    }
+
+    if ($d['']) {
+        $d[$hors] = $d[''];
+        $n[$hors] = $n[''];
+        $t[$hors] = $t[''];
+    }
+    unset($d['']);
+    // Fabriquer le tableau des liens de navigation dans le grand tableau
+    foreach ($d as $k => $v) {
+        $d[$k] =  $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
+            . join('',$t[$k]);
+    }
+
+    $navigation = array(_T('zbug_statistiques'),
+        "<tr><td>"
+        . join("</td></tr>\n<tr><td>", $d)
+        . "</td></tr>\n"
+        .  (# _request('var_mode_objet') ? '' : 
+            ("<tr><td>" .  count($temps) . "</td><td>" . _T('info_total') . '</td><td class="time">' . $total . "</td><td></td></tr>")));
 	  
-	return array($temps, $navigation);
+    return array($temps, $navigation);
 }
 
 ?>