spip / SPIP

ecrire/public/iterateur.php

Indentation +570 added lines, -570 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -21,583 +21,583 @@ 
  *
  */
 class IterFactory {
-	public static function create($iterateur, $command, $info = null) {
-
-		// cas des SI {si expression} analises tres tot
-		// pour eviter le chargement de tout iterateur
-		if (isset($command['si'])) {
-			foreach ($command['si'] as $si) {
-				if (!$si) {
-					// $command pour boucle SQL peut generer des erreurs de compilation
-					// s'il est transmis alors qu'on est dans un iterateur vide
-					return new IterDecorator(new EmptyIterator(), [], $info);
-				}
-			}
-		}
-
-		// chercher un iterateur PHP existant (par exemple dans SPL)
-		// (il faudrait passer l'argument ->sql_serveur
-		// pour etre certain qu'on est sur un "php:")
-		if (class_exists($iterateur)) {
-			$a = isset($command['args']) ? $command['args'] : [];
-
-			// permettre de passer un Iterateur directement {args #ITERATEUR} :
-			// si on recoit deja un iterateur en argument, on l'utilise
-			if (count($a) == 1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
-				$iter = $a[0];
-
-				// sinon, on cree un iterateur du type donne
-			} else {
-				// arguments de creation de l'iterateur...
-				// (pas glop)
-				try {
-					switch (count($a)) {
-						case 0:
-							$iter = new $iterateur();
-							break;
-						case 1:
-							$iter = new $iterateur($a[0]);
-							break;
-						case 2:
-							$iter = new $iterateur($a[0], $a[1]);
-							break;
-						case 3:
-							$iter = new $iterateur($a[0], $a[1], $a[2]);
-							break;
-						case 4:
-							$iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
-							break;
-					}
-				} catch (Exception $e) {
-					spip_log("Erreur de chargement de l'iterateur $iterateur");
-					spip_log($e->getMessage());
-					$iter = new EmptyIterator();
-				}
-			}
-		} else {
-			// chercher la classe d'iterateur
-			// IterateurXXX
-			// definie dans le fichier iterateurs/xxx.php
-			$class = 'Iterateur' . $iterateur;
-			if (!class_exists($class)) {
-				if (
-					!include_spip('iterateur/' . strtolower($iterateur))
-					or !class_exists($class)
-				) {
-					die("Iterateur $iterateur non trouvé");
-					// si l'iterateur n'existe pas, on se rabat sur le generique
-					# $iter = new EmptyIterator();
-				}
-			}
-			$iter = new $class($command, $info);
-		}
-
-		return new IterDecorator($iter, $command, $info);
-	}
+    public static function create($iterateur, $command, $info = null) {
+
+        // cas des SI {si expression} analises tres tot
+        // pour eviter le chargement de tout iterateur
+        if (isset($command['si'])) {
+            foreach ($command['si'] as $si) {
+                if (!$si) {
+                    // $command pour boucle SQL peut generer des erreurs de compilation
+                    // s'il est transmis alors qu'on est dans un iterateur vide
+                    return new IterDecorator(new EmptyIterator(), [], $info);
+                }
+            }
+        }
+
+        // chercher un iterateur PHP existant (par exemple dans SPL)
+        // (il faudrait passer l'argument ->sql_serveur
+        // pour etre certain qu'on est sur un "php:")
+        if (class_exists($iterateur)) {
+            $a = isset($command['args']) ? $command['args'] : [];
+
+            // permettre de passer un Iterateur directement {args #ITERATEUR} :
+            // si on recoit deja un iterateur en argument, on l'utilise
+            if (count($a) == 1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
+                $iter = $a[0];
+
+                // sinon, on cree un iterateur du type donne
+            } else {
+                // arguments de creation de l'iterateur...
+                // (pas glop)
+                try {
+                    switch (count($a)) {
+                        case 0:
+                            $iter = new $iterateur();
+                            break;
+                        case 1:
+                            $iter = new $iterateur($a[0]);
+                            break;
+                        case 2:
+                            $iter = new $iterateur($a[0], $a[1]);
+                            break;
+                        case 3:
+                            $iter = new $iterateur($a[0], $a[1], $a[2]);
+                            break;
+                        case 4:
+                            $iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
+                            break;
+                    }
+                } catch (Exception $e) {
+                    spip_log("Erreur de chargement de l'iterateur $iterateur");
+                    spip_log($e->getMessage());
+                    $iter = new EmptyIterator();
+                }
+            }
+        } else {
+            // chercher la classe d'iterateur
+            // IterateurXXX
+            // definie dans le fichier iterateurs/xxx.php
+            $class = 'Iterateur' . $iterateur;
+            if (!class_exists($class)) {
+                if (
+                    !include_spip('iterateur/' . strtolower($iterateur))
+                    or !class_exists($class)
+                ) {
+                    die("Iterateur $iterateur non trouvé");
+                    // si l'iterateur n'existe pas, on se rabat sur le generique
+                    # $iter = new EmptyIterator();
+                }
+            }
+            $iter = new $class($command, $info);
+        }
+
+        return new IterDecorator($iter, $command, $info);
+    }
 }
 
 
 class IterDecorator extends FilterIterator {
-	private $iter;
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 *
-	 * @var array
-	 */
-	protected $filtre = [];
-
-	/**
-	 * Fonction de filtrage compilee a partir des criteres de filtre
-	 *
-	 * @var string
-	 */
-	protected $func_filtre = null;
-
-	/**
-	 * Critere {offset, limit}
-	 *
-	 * @var int
-	 * @var int
-	 */
-	protected $offset = null;
-	protected $limit = null;
-
-	/**
-	 * nombre d'elements recuperes depuis la position 0,
-	 * en tenant compte des filtres
-	 *
-	 * @var int
-	 */
-	protected $fetched = 0;
-
-	/**
-	 * Y a t'il une erreur ?
-	 *
-	 * @var bool
-	 **/
-	protected $err = false;
-
-	/**
-	 * Drapeau a activer en cas d'echec
-	 * (select SQL errone, non chargement des DATA, etc)
-	 */
-	public function err() {
-		if (method_exists($this->iter, 'err')) {
-			return $this->iter->err();
-		}
-		if (property_exists($this->iter, 'err')) {
-			return $this->iter->err;
-		}
-
-		return false;
-	}
-
-	public function __construct(Iterator $iter, $command, $info) {
-		parent::__construct($iter);
-		parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
-
-		// recuperer l'iterateur transmis
-		$this->iter = $this->getInnerIterator();
-		$this->command = $command;
-		$this->info = $info;
-		$this->pos = 0;
-		$this->fetched = 0;
-
-		// chercher la liste des champs a retourner par
-		// fetch si l'objet ne les calcule pas tout seul
-		if (!method_exists($this->iter, 'fetch')) {
-			$this->calculer_select();
-			$this->calculer_filtres();
-		}
-
-		// emptyIterator critere {si} faux n'a pas d'erreur !
-		if (isset($this->iter->err)) {
-			$this->err = $this->iter->err;
-		}
-
-		// pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
-		//$this->total = $this->count();
-	}
-
-
-	// calcule les elements a retournes par fetch()
-	// enleve les elements inutiles du select()
-	//
-	private function calculer_select() {
-		if ($select = &$this->command['select']) {
-			foreach ($select as $s) {
-				// /!\ $s = '.nom'
-				if ($s[0] == '.') {
-					$s = substr($s, 1);
-				}
-				$this->select[] = $s;
-			}
-		}
-	}
-
-	// recuperer la valeur d'une balise #X
-	// en fonction des methodes
-	// et proprietes disponibles
-	public function get_select($nom) {
-		if (
-			is_object($this->iter)
-			and method_exists($this->iter, $nom)
-		) {
-			try {
-				return $this->iter->$nom();
-			} catch (Exception $e) {
-				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
-				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
-
-				return '';
-			}
-		}
-		/*
+    private $iter;
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     *
+     * @var array
+     */
+    protected $filtre = [];
+
+    /**
+     * Fonction de filtrage compilee a partir des criteres de filtre
+     *
+     * @var string
+     */
+    protected $func_filtre = null;
+
+    /**
+     * Critere {offset, limit}
+     *
+     * @var int
+     * @var int
+     */
+    protected $offset = null;
+    protected $limit = null;
+
+    /**
+     * nombre d'elements recuperes depuis la position 0,
+     * en tenant compte des filtres
+     *
+     * @var int
+     */
+    protected $fetched = 0;
+
+    /**
+     * Y a t'il une erreur ?
+     *
+     * @var bool
+     **/
+    protected $err = false;
+
+    /**
+     * Drapeau a activer en cas d'echec
+     * (select SQL errone, non chargement des DATA, etc)
+     */
+    public function err() {
+        if (method_exists($this->iter, 'err')) {
+            return $this->iter->err();
+        }
+        if (property_exists($this->iter, 'err')) {
+            return $this->iter->err;
+        }
+
+        return false;
+    }
+
+    public function __construct(Iterator $iter, $command, $info) {
+        parent::__construct($iter);
+        parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
+
+        // recuperer l'iterateur transmis
+        $this->iter = $this->getInnerIterator();
+        $this->command = $command;
+        $this->info = $info;
+        $this->pos = 0;
+        $this->fetched = 0;
+
+        // chercher la liste des champs a retourner par
+        // fetch si l'objet ne les calcule pas tout seul
+        if (!method_exists($this->iter, 'fetch')) {
+            $this->calculer_select();
+            $this->calculer_filtres();
+        }
+
+        // emptyIterator critere {si} faux n'a pas d'erreur !
+        if (isset($this->iter->err)) {
+            $this->err = $this->iter->err;
+        }
+
+        // pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
+        //$this->total = $this->count();
+    }
+
+
+    // calcule les elements a retournes par fetch()
+    // enleve les elements inutiles du select()
+    //
+    private function calculer_select() {
+        if ($select = &$this->command['select']) {
+            foreach ($select as $s) {
+                // /!\ $s = '.nom'
+                if ($s[0] == '.') {
+                    $s = substr($s, 1);
+                }
+                $this->select[] = $s;
+            }
+        }
+    }
+
+    // recuperer la valeur d'une balise #X
+    // en fonction des methodes
+    // et proprietes disponibles
+    public function get_select($nom) {
+        if (
+            is_object($this->iter)
+            and method_exists($this->iter, $nom)
+        ) {
+            try {
+                return $this->iter->$nom();
+            } catch (Exception $e) {
+                // #GETCHILDREN sur un fichier de DirectoryIterator ...
+                spip_log("Methode $nom en echec sur " . get_class($this->iter));
+                spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
+
+                return '';
+            }
+        }
+        /*
 		if (property_exists($this->iter, $nom)) {
 			return $this->iter->$nom;
 		}*/
-		// cle et valeur par defaut
-		// ICI PLANTAGE SI ON NE CONTROLE PAS $nom
-		if (
-			in_array($nom, ['cle', 'valeur'])
-			and method_exists($this, $nom)
-		) {
-			return $this->$nom();
-		}
-
-		// Par defaut chercher en xpath dans la valeur()
-		return table_valeur($this->valeur(), $nom, null);
-	}
-
-
-	private function calculer_filtres() {
-
-		// Issu de calculer_select() de public/composer L.519
-		// TODO: externaliser...
-		//
-		// 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)
-		if ($where = &$this->command['where']) {
-			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]);
-				}
-				// traiter {cle IN a,b} ou {valeur !IN a,b}
-				if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
-					$this->ajouter_filtre($regs[1], 'IN', $regs[3], $regs[2]);
-					unset($op, $where[$k]);
-				}
-			}
-			foreach ($where as $k => $v) {
-				// 3 possibilites : count($v) =
-				// * 1 : {x y} ; on recoit $v[0] = y
-				// * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
-				// * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
-
-				// 1 : forcement traite par un critere, on passe
-				if (!$v or count($v) == 1) {
-					continue;
-				}
-				if (count($v) == 2 and is_array($v[1])) {
-					$this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
-				}
-				if (count($v) == 3) {
-					$this->ajouter_filtre($v[1], $v[0], $v[2]);
-				}
-			}
-		}
-
-		// critere {2,7}
-		if (isset($this->command['limit']) and $this->command['limit']) {
-			$limit = explode(',', $this->command['limit']);
-			$this->offset = $limit[0];
-			$this->limit = $limit[1];
-		}
-
-		// Creer la fonction de filtrage sur $this
-		if ($this->filtre) {
-			$filtres = 'return (' . join(') AND (', $this->filtre) . ');';
-			$this->func_filtre = function () use ($filtres) {
-				return eval($filtres);
-			};
-		}
-	}
-
-
-	protected function ajouter_filtre($cle, $op, $valeur, $not = false) {
-		if (method_exists($this->iter, 'exception_des_criteres')) {
-			if (in_array($cle, $this->iter->exception_des_criteres())) {
-				return;
-			}
-		}
-		// TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
-		# mais c'est normalement deja opere par calculer_critere_infixe()
-		# qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
-		# ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
-		# il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
-
-		# if (!in_array($cle, array('cle', 'valeur')))
-		#	return;
-
-		$a = '$this->get_select(\'' . $cle . '\')';
-
-		$filtre = '';
-
-		if ($op == 'REGEXP') {
-			$filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
-			$op = '';
-		} else {
-			if ($op == 'LIKE') {
-				$valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
-				$filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
-				$op = '';
-			} else {
-				if ($op == '=') {
-					$op = '==';
-				} else {
-					if ($op == 'IN') {
-						$filtre = 'in_array(' . $a . ', array' . $valeur . ')';
-						$op = '';
-					} else {
-						if (!in_array($op, ['<', '<=', '>', '>='])) {
-							spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
-							$op = '';
-						}
-					}
-				}
-			}
-		}
-
-		if ($op) {
-			$filtre = $a . $op . str_replace('\"', '"', $valeur);
-		}
-
-		if ($not) {
-			$filtre = "!($filtre)";
-		}
-
-		if ($filtre) {
-			$this->filtre[] = $filtre;
-		}
-	}
-
-
-	public function next() {
-		$this->pos++;
-		parent::next();
-	}
-
-	/**
-	 * revient au depart
-	 *
-	 * @return void
-	 */
-	public function rewind() {
-		$this->pos = 0;
-		$this->fetched = 0;
-		parent::rewind();
-	}
-
-
-	# Extension SPIP des iterateurs PHP
-	/**
-	 * type de l'iterateur
-	 *
-	 * @var string
-	 */
-	protected $type;
-
-	/**
-	 * parametres de l'iterateur
-	 *
-	 * @var array
-	 */
-	protected $command;
-
-	/**
-	 * infos de compilateur
-	 *
-	 * @var array
-	 */
-	protected $info;
-
-	/**
-	 * position courante de l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $pos = null;
-
-	/**
-	 * nombre total resultats dans l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $total = null;
-
-	/**
-	 * nombre maximal de recherche pour $total
-	 * si l'iterateur n'implemente pas de fonction specifique
-	 */
-	protected $max = 100000;
-
-
-	/**
-	 * Liste des champs a inserer dans les $row
-	 * retournes par ->fetch()
-	 */
-	protected $select = [];
-
-
-	/**
-	 * aller a la position absolue n,
-	 * comptee depuis le debut
-	 *
-	 * @param int $n
-	 *   absolute pos
-	 * @param string $continue
-	 *   param for sql_ api
-	 * @return bool
-	 *   success or fail if not implemented
-	 */
-	public function seek($n = 0, $continue = null) {
-		if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
-			$this->seek_loop($n);
-		}
-		$this->pos = $n;
-		$this->fetched = $n;
-
-		return true;
-	}
-
-	/*
+        // cle et valeur par defaut
+        // ICI PLANTAGE SI ON NE CONTROLE PAS $nom
+        if (
+            in_array($nom, ['cle', 'valeur'])
+            and method_exists($this, $nom)
+        ) {
+            return $this->$nom();
+        }
+
+        // Par defaut chercher en xpath dans la valeur()
+        return table_valeur($this->valeur(), $nom, null);
+    }
+
+
+    private function calculer_filtres() {
+
+        // Issu de calculer_select() de public/composer L.519
+        // TODO: externaliser...
+        //
+        // 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)
+        if ($where = &$this->command['where']) {
+            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]);
+                }
+                // traiter {cle IN a,b} ou {valeur !IN a,b}
+                if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
+                    $this->ajouter_filtre($regs[1], 'IN', $regs[3], $regs[2]);
+                    unset($op, $where[$k]);
+                }
+            }
+            foreach ($where as $k => $v) {
+                // 3 possibilites : count($v) =
+                // * 1 : {x y} ; on recoit $v[0] = y
+                // * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
+                // * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
+
+                // 1 : forcement traite par un critere, on passe
+                if (!$v or count($v) == 1) {
+                    continue;
+                }
+                if (count($v) == 2 and is_array($v[1])) {
+                    $this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
+                }
+                if (count($v) == 3) {
+                    $this->ajouter_filtre($v[1], $v[0], $v[2]);
+                }
+            }
+        }
+
+        // critere {2,7}
+        if (isset($this->command['limit']) and $this->command['limit']) {
+            $limit = explode(',', $this->command['limit']);
+            $this->offset = $limit[0];
+            $this->limit = $limit[1];
+        }
+
+        // Creer la fonction de filtrage sur $this
+        if ($this->filtre) {
+            $filtres = 'return (' . join(') AND (', $this->filtre) . ');';
+            $this->func_filtre = function () use ($filtres) {
+                return eval($filtres);
+            };
+        }
+    }
+
+
+    protected function ajouter_filtre($cle, $op, $valeur, $not = false) {
+        if (method_exists($this->iter, 'exception_des_criteres')) {
+            if (in_array($cle, $this->iter->exception_des_criteres())) {
+                return;
+            }
+        }
+        // TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
+        # mais c'est normalement deja opere par calculer_critere_infixe()
+        # qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
+        # ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
+        # il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
+
+        # if (!in_array($cle, array('cle', 'valeur')))
+        #	return;
+
+        $a = '$this->get_select(\'' . $cle . '\')';
+
+        $filtre = '';
+
+        if ($op == 'REGEXP') {
+            $filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
+            $op = '';
+        } else {
+            if ($op == 'LIKE') {
+                $valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
+                $filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
+                $op = '';
+            } else {
+                if ($op == '=') {
+                    $op = '==';
+                } else {
+                    if ($op == 'IN') {
+                        $filtre = 'in_array(' . $a . ', array' . $valeur . ')';
+                        $op = '';
+                    } else {
+                        if (!in_array($op, ['<', '<=', '>', '>='])) {
+                            spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+                            $op = '';
+                        }
+                    }
+                }
+            }
+        }
+
+        if ($op) {
+            $filtre = $a . $op . str_replace('\"', '"', $valeur);
+        }
+
+        if ($not) {
+            $filtre = "!($filtre)";
+        }
+
+        if ($filtre) {
+            $this->filtre[] = $filtre;
+        }
+    }
+
+
+    public function next() {
+        $this->pos++;
+        parent::next();
+    }
+
+    /**
+     * revient au depart
+     *
+     * @return void
+     */
+    public function rewind() {
+        $this->pos = 0;
+        $this->fetched = 0;
+        parent::rewind();
+    }
+
+
+    # Extension SPIP des iterateurs PHP
+    /**
+     * type de l'iterateur
+     *
+     * @var string
+     */
+    protected $type;
+
+    /**
+     * parametres de l'iterateur
+     *
+     * @var array
+     */
+    protected $command;
+
+    /**
+     * infos de compilateur
+     *
+     * @var array
+     */
+    protected $info;
+
+    /**
+     * position courante de l'iterateur
+     *
+     * @var int
+     */
+    protected $pos = null;
+
+    /**
+     * nombre total resultats dans l'iterateur
+     *
+     * @var int
+     */
+    protected $total = null;
+
+    /**
+     * nombre maximal de recherche pour $total
+     * si l'iterateur n'implemente pas de fonction specifique
+     */
+    protected $max = 100000;
+
+
+    /**
+     * Liste des champs a inserer dans les $row
+     * retournes par ->fetch()
+     */
+    protected $select = [];
+
+
+    /**
+     * aller a la position absolue n,
+     * comptee depuis le debut
+     *
+     * @param int $n
+     *   absolute pos
+     * @param string $continue
+     *   param for sql_ api
+     * @return bool
+     *   success or fail if not implemented
+     */
+    public function seek($n = 0, $continue = null) {
+        if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
+            $this->seek_loop($n);
+        }
+        $this->pos = $n;
+        $this->fetched = $n;
+
+        return true;
+    }
+
+    /*
 	 * aller a la position $n en parcourant
 	 * un par un tous les elements
 	 */
-	private function seek_loop($n) {
-		if ($this->pos > $n) {
-			$this->rewind();
-		}
-
-		while ($this->pos < $n and $this->valid()) {
-			$this->next();
-		}
-
-		return true;
-	}
-
-	/**
-	 * Avancer de $saut pas
-	 *
-	 * @param  $saut
-	 * @param  $max
-	 * @return int
-	 */
-	public function skip($saut, $max = null) {
-		// pas de saut en arriere autorise pour cette fonction
-		if (($saut = intval($saut)) <= 0) {
-			return $this->pos;
-		}
-		$seek = $this->pos + $saut;
-		// si le saut fait depasser le maxi, on libere la resource
-		// et on sort
-		if (is_null($max)) {
-			$max = $this->count();
-		}
-
-		if ($seek >= $max or $seek >= $this->count()) {
-			// sortie plus rapide que de faire next() jusqu'a la fin !
-			$this->free();
-
-			return $max;
-		}
-
-		$this->seek($seek);
-
-		return $this->pos;
-	}
-
-	/**
-	 * Renvoyer un tableau des donnees correspondantes
-	 * a la position courante de l'iterateur
-	 * en controlant si on respecte le filtre
-	 * Appliquer aussi le critere {offset,limit}
-	 *
-	 * @return array|bool
-	 */
-	public function fetch() {
-		if (method_exists($this->iter, 'fetch')) {
-			return $this->iter->fetch();
-		} else {
-			while (
-				$this->valid()
-				and (
-					!$this->accept()
-					or (isset($this->offset) and $this->fetched++ < $this->offset)
-				)
-			) {
-				$this->next();
-			}
-
-			if (!$this->valid()) {
-				return false;
-			}
-
-			if (
-				isset($this->limit)
-				and $this->fetched > $this->offset + $this->limit
-			) {
-				return false;
-			}
-
-			$r = [];
-			foreach ($this->select as $nom) {
-				$r[$nom] = $this->get_select($nom);
-			}
-			$this->next();
-
-			return $r;
-		}
-	}
-
-	// retourner la cle pour #CLE
-	public function cle() {
-		return $this->key();
-	}
-
-	// retourner la valeur pour #VALEUR
-	public function valeur() {
-		return $this->current();
-	}
-
-	/**
-	 * Accepte-t-on l'entree courante lue ?
-	 * On execute les filtres pour le savoir.
-	 **/
-	public function accept() {
-		if ($f = $this->func_filtre) {
-			return $f();
-		}
-
-		return true;
-	}
-
-	/**
-	 * liberer la ressource
-	 *
-	 * @return bool
-	 */
-	public function free() {
-		if (method_exists($this->iter, 'free')) {
-			$this->iter->free();
-		}
-		$this->pos = $this->total = 0;
-
-		return true;
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 * pour #TOTAL_BOUCLE
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			if (
-				method_exists($this->iter, 'count')
-				and !$this->func_filtre
-			) {
-				return $this->total = $this->iter->count();
-			} else {
-				// compter les lignes et rembobiner
-				$total = 0;
-				$pos = $this->pos; // sauver la position
-				$this->rewind();
-				while ($this->fetch() and $total < $this->max) {
-					$total++;
-				}
-				$this->seek($pos);
-				$this->total = $total;
-			}
-		}
-
-		return $this->total;
-	}
+    private function seek_loop($n) {
+        if ($this->pos > $n) {
+            $this->rewind();
+        }
+
+        while ($this->pos < $n and $this->valid()) {
+            $this->next();
+        }
+
+        return true;
+    }
+
+    /**
+     * Avancer de $saut pas
+     *
+     * @param  $saut
+     * @param  $max
+     * @return int
+     */
+    public function skip($saut, $max = null) {
+        // pas de saut en arriere autorise pour cette fonction
+        if (($saut = intval($saut)) <= 0) {
+            return $this->pos;
+        }
+        $seek = $this->pos + $saut;
+        // si le saut fait depasser le maxi, on libere la resource
+        // et on sort
+        if (is_null($max)) {
+            $max = $this->count();
+        }
+
+        if ($seek >= $max or $seek >= $this->count()) {
+            // sortie plus rapide que de faire next() jusqu'a la fin !
+            $this->free();
+
+            return $max;
+        }
+
+        $this->seek($seek);
+
+        return $this->pos;
+    }
+
+    /**
+     * Renvoyer un tableau des donnees correspondantes
+     * a la position courante de l'iterateur
+     * en controlant si on respecte le filtre
+     * Appliquer aussi le critere {offset,limit}
+     *
+     * @return array|bool
+     */
+    public function fetch() {
+        if (method_exists($this->iter, 'fetch')) {
+            return $this->iter->fetch();
+        } else {
+            while (
+                $this->valid()
+                and (
+                    !$this->accept()
+                    or (isset($this->offset) and $this->fetched++ < $this->offset)
+                )
+            ) {
+                $this->next();
+            }
+
+            if (!$this->valid()) {
+                return false;
+            }
+
+            if (
+                isset($this->limit)
+                and $this->fetched > $this->offset + $this->limit
+            ) {
+                return false;
+            }
+
+            $r = [];
+            foreach ($this->select as $nom) {
+                $r[$nom] = $this->get_select($nom);
+            }
+            $this->next();
+
+            return $r;
+        }
+    }
+
+    // retourner la cle pour #CLE
+    public function cle() {
+        return $this->key();
+    }
+
+    // retourner la valeur pour #VALEUR
+    public function valeur() {
+        return $this->current();
+    }
+
+    /**
+     * Accepte-t-on l'entree courante lue ?
+     * On execute les filtres pour le savoir.
+     **/
+    public function accept() {
+        if ($f = $this->func_filtre) {
+            return $f();
+        }
+
+        return true;
+    }
+
+    /**
+     * liberer la ressource
+     *
+     * @return bool
+     */
+    public function free() {
+        if (method_exists($this->iter, 'free')) {
+            $this->iter->free();
+        }
+        $this->pos = $this->total = 0;
+
+        return true;
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     * pour #TOTAL_BOUCLE
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            if (
+                method_exists($this->iter, 'count')
+                and !$this->func_filtre
+            ) {
+                return $this->total = $this->iter->count();
+            } else {
+                // compter les lignes et rembobiner
+                $total = 0;
+                $pos = $this->pos; // sauver la position
+                $this->rewind();
+                while ($this->fetch() and $total < $this->max) {
+                    $total++;
+                }
+                $this->seek($pos);
+                $this->total = $total;
+            }
+        }
+
+        return $this->total;
+    }
 }

Spacing +11 added lines, -11 removed lines

@@ -78,10 +78,10 @@ 
 			// chercher la classe d'iterateur
 			// IterateurXXX
 			// definie dans le fichier iterateurs/xxx.php
-			$class = 'Iterateur' . $iterateur;
+			$class = 'Iterateur'.$iterateur;
 			if (!class_exists($class)) {
 				if (
-					!include_spip('iterateur/' . strtolower($iterateur))
+					!include_spip('iterateur/'.strtolower($iterateur))
 					or !class_exists($class)
 				) {
 					die("Iterateur $iterateur non trouvé");
@@ -209,7 +209,7 @@ 
 				return $this->iter->$nom();
 			} catch (Exception $e) {
 				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
+				spip_log("Methode $nom en echec sur ".get_class($this->iter));
 				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
 
 				return '';
@@ -292,8 +292,8 @@ 
 
 		// Creer la fonction de filtrage sur $this
 		if ($this->filtre) {
-			$filtres = 'return (' . join(') AND (', $this->filtre) . ');';
-			$this->func_filtre = function () use ($filtres) {
+			$filtres = 'return ('.join(') AND (', $this->filtre).');';
+			$this->func_filtre = function() use ($filtres) {
 				return eval($filtres);
 			};
 		}
@@ -315,28 +315,28 @@ 
 		# if (!in_array($cle, array('cle', 'valeur')))
 		#	return;
 
-		$a = '$this->get_select(\'' . $cle . '\')';
+		$a = '$this->get_select(\''.$cle.'\')';
 
 		$filtre = '';
 
 		if ($op == 'REGEXP') {
-			$filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
+			$filtre = 'filtrer("match", '.$a.', '.str_replace('\"', '"', $valeur).')';
 			$op = '';
 		} else {
 			if ($op == 'LIKE') {
 				$valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
-				$filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
+				$filtre = 'filtrer("match", '.$a.', '.$valeur.')';
 				$op = '';
 			} else {
 				if ($op == '=') {
 					$op = '==';
 				} else {
 					if ($op == 'IN') {
-						$filtre = 'in_array(' . $a . ', array' . $valeur . ')';
+						$filtre = 'in_array('.$a.', array'.$valeur.')';
 						$op = '';
 					} else {
 						if (!in_array($op, ['<', '<=', '>', '>='])) {
-							spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+							spip_log('operateur non reconnu '.$op); // [todo] mettre une erreur de squelette
 							$op = '';
 						}
 					}
@@ -345,7 +345,7 @@ 
 		}
 
 		if ($op) {
-			$filtre = $a . $op . str_replace('\"', '"', $valeur);
+			$filtre = $a.$op.str_replace('\"', '"', $valeur);
 		}
 
 		if ($not) {

ecrire/public/jointures.php

Indentation +395 added lines, -395 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -33,11 +33,11 @@ 
  *     Chaine sinon : le nom du champ (non décomposable donc)
  */
 function decompose_champ_id_objet($champ) {
-	if (($champ !== 'id_objet') and preg_match(',^id_([a-z_]+)$,', $champ, $regs)) {
-		return ['id_objet', 'objet', objet_type($champ)];
-	}
+    if (($champ !== 'id_objet') and preg_match(',^id_([a-z_]+)$,', $champ, $regs)) {
+        return ['id_objet', 'objet', objet_type($champ)];
+    }
 
-	return $champ;
+    return $champ;
 }
 
 /**
@@ -56,21 +56,21 @@ 
  *     - array(id_objet, objet), si le champ n'existe pas mais qu'on peut décomposer
  */
 function trouver_champs_decomposes($champ, $desc) {
-	if (
-		!is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
-		or array_key_exists($champ, $desc['field'])
-	) {
-		return [$champ];
-	}
-	// si le champ se décompose, tester que les colonnes décomposées sont présentes
-	if (is_array($decompose = decompose_champ_id_objet($champ))) {
-		array_pop($decompose);
-		if (count(array_intersect($decompose, array_keys($desc['field']))) == count($decompose)) {
-			return $decompose;
-		}
-	}
-
-	return [$champ];
+    if (
+        !is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
+        or array_key_exists($champ, $desc['field'])
+    ) {
+        return [$champ];
+    }
+    // si le champ se décompose, tester que les colonnes décomposées sont présentes
+    if (is_array($decompose = decompose_champ_id_objet($champ))) {
+        array_pop($decompose);
+        if (count(array_intersect($decompose, array_keys($desc['field']))) == count($decompose)) {
+            return $decompose;
+        }
+    }
+
+    return [$champ];
 }
 
 
@@ -100,23 +100,23 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function calculer_jointure(&$boucle, $depart, $arrivee, $col = '', $cond = false, $max_liens = 5) {
-	// les jointures minimales sont optimales :
-	// on contraint le nombre d'etapes en l'augmentant
-	// jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi
-	$max = 1;
-	$res = false;
-	$milieu_exclus = ($col ? $col : []);
-	while ($max <= $max_liens and !$res) {
-		$res = calculer_chaine_jointures($boucle, $depart, $arrivee, [], $milieu_exclus, $max);
-		$max++;
-	}
-	if (!$res) {
-		return '';
-	}
-
-	list($nom, $desc) = $depart;
-
-	return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
+    // les jointures minimales sont optimales :
+    // on contraint le nombre d'etapes en l'augmentant
+    // jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi
+    $max = 1;
+    $res = false;
+    $milieu_exclus = ($col ? $col : []);
+    while ($max <= $max_liens and !$res) {
+        $res = calculer_chaine_jointures($boucle, $depart, $arrivee, [], $milieu_exclus, $max);
+        $max++;
+    }
+    if (!$res) {
+        return '';
+    }
+
+    list($nom, $desc) = $depart;
+
+    return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
 }
 
 /**
@@ -155,79 +155,79 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function fabrique_jointures(&$boucle, $res, $cond = false, $desc = [], $nom = '', $col = '', $echap = true) {
-	static $num = [];
-	$id_table = '';
-	$cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
-	foreach ($res as $cle => $r) {
-		list($d, $a, $j) = $r;
-		if (!$id_table) {
-			$id_table = $d;
-		}
-		$n = ++$cpt;
-		if (is_array($j)) { // c'est un lien sur un champ du type id_objet,objet,'article'
-			list($j1, $j2, $obj, $type) = $j;
-			// trouver de quel cote est (id_objet,objet)
-			if ($j1 == "id_$obj") {
-				$obj = "$id_table.$obj";
-			} else {
-				$obj = "L$n.$obj";
-			}
-			// le where complementaire est envoye dans la jointure et dans le where
-			// on utilise une clé qui le relie a la jointure pour que l'optimiseur
-			// sache qu'il peut enlever ce where si il enleve la jointure
-			$boucle->where["JOIN-L$n"] =
-				$echap ?
-					["'='","'$obj'","sql_quote('$type')"]
-					:
-					['=',"$obj",sql_quote($type)];
-			$boucle->join["L$n"] =
-				$echap ?
-					["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
-					:
-					[$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
-		} else {
-			$boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
-		}
-		$boucle->from[$id_table = "L$n"] = $a[0];
-	}
-
-
-	// pas besoin de group by
-	// (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
-	// si une seule jointure et sur une table avec primary key formee
-	// de l'index principal et de l'index de jointure (non conditionnel! [6031])
-	// et operateur d'egalite (https://core.spip.net/issues/477)
-
-	if ($pk = (isset($a[1]) && (count($boucle->from) == 2) && !$cond)) {
-		$pk = nogroupby_if($desc, $a[1], $col);
-	}
-
-	// pas de group by
-	// si une seule jointure
-	// et si l'index de jointure est une primary key a l'arrivee !
-	if (
-		!$pk
-		and (count($boucle->from) == 2)
-		and isset($a[1]['key']['PRIMARY KEY'])
-		and ($j == $a[1]['key']['PRIMARY KEY'])
-	) {
-		$pk = true;
-	}
-
-	// la clause Group by est en conflit avec ORDER BY, a completer
-	$groups = liste_champs_jointures($nom, $desc, true);
-	if (!$pk) {
-		foreach ($groups as $id_prim) {
-			$id_field = $nom . '.' . $id_prim;
-			if (!in_array($id_field, $boucle->group)) {
-				$boucle->group[] = $id_field;
-			}
-		}
-	}
-
-	$boucle->modificateur['lien'] = true;
-
-	return "L$n";
+    static $num = [];
+    $id_table = '';
+    $cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
+    foreach ($res as $cle => $r) {
+        list($d, $a, $j) = $r;
+        if (!$id_table) {
+            $id_table = $d;
+        }
+        $n = ++$cpt;
+        if (is_array($j)) { // c'est un lien sur un champ du type id_objet,objet,'article'
+            list($j1, $j2, $obj, $type) = $j;
+            // trouver de quel cote est (id_objet,objet)
+            if ($j1 == "id_$obj") {
+                $obj = "$id_table.$obj";
+            } else {
+                $obj = "L$n.$obj";
+            }
+            // le where complementaire est envoye dans la jointure et dans le where
+            // on utilise une clé qui le relie a la jointure pour que l'optimiseur
+            // sache qu'il peut enlever ce where si il enleve la jointure
+            $boucle->where["JOIN-L$n"] =
+                $echap ?
+                    ["'='","'$obj'","sql_quote('$type')"]
+                    :
+                    ['=',"$obj",sql_quote($type)];
+            $boucle->join["L$n"] =
+                $echap ?
+                    ["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
+                    :
+                    [$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
+        } else {
+            $boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
+        }
+        $boucle->from[$id_table = "L$n"] = $a[0];
+    }
+
+
+    // pas besoin de group by
+    // (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
+    // si une seule jointure et sur une table avec primary key formee
+    // de l'index principal et de l'index de jointure (non conditionnel! [6031])
+    // et operateur d'egalite (https://core.spip.net/issues/477)
+
+    if ($pk = (isset($a[1]) && (count($boucle->from) == 2) && !$cond)) {
+        $pk = nogroupby_if($desc, $a[1], $col);
+    }
+
+    // pas de group by
+    // si une seule jointure
+    // et si l'index de jointure est une primary key a l'arrivee !
+    if (
+        !$pk
+        and (count($boucle->from) == 2)
+        and isset($a[1]['key']['PRIMARY KEY'])
+        and ($j == $a[1]['key']['PRIMARY KEY'])
+    ) {
+        $pk = true;
+    }
+
+    // la clause Group by est en conflit avec ORDER BY, a completer
+    $groups = liste_champs_jointures($nom, $desc, true);
+    if (!$pk) {
+        foreach ($groups as $id_prim) {
+            $id_field = $nom . '.' . $id_prim;
+            if (!in_array($id_field, $boucle->group)) {
+                $boucle->group[] = $id_field;
+            }
+        }
+    }
+
+    $boucle->modificateur['lien'] = true;
+
+    return "L$n";
 }
 
 /**
@@ -242,16 +242,16 @@ 
  * @return bool
  */
 function nogroupby_if($depart, $arrivee, $col) {
-	$pk = $arrivee['key']['PRIMARY KEY'];
-	if (!$pk) {
-		return false;
-	}
-	$id_primary = $depart['key']['PRIMARY KEY'];
-	if (is_array($col)) {
-		$col = implode(', *', $col);
-	} // cas id_objet, objet
-	return (preg_match("/^$id_primary, *$col$/", $pk) or
-		preg_match("/^$col, *$id_primary$/", $pk));
+    $pk = $arrivee['key']['PRIMARY KEY'];
+    if (!$pk) {
+        return false;
+    }
+    $id_primary = $depart['key']['PRIMARY KEY'];
+    if (is_array($col)) {
+        $col = implode(', *', $col);
+    } // cas id_objet, objet
+    return (preg_match("/^$id_primary, *$col$/", $pk) or
+        preg_match("/^$col, *$id_primary$/", $pk));
 }
 
 /**
@@ -269,46 +269,46 @@ 
  */
 function liste_champs_jointures($nom, $desc, $primary = false) {
 
-	static $nojoin = ['idx', 'maj', 'date', 'statut'];
+    static $nojoin = ['idx', 'maj', 'date', 'statut'];
 
-	// si cle primaire demandee, la privilegier
-	if ($primary && isset($desc['key']['PRIMARY KEY'])) {
-		return split_key($desc['key']['PRIMARY KEY']);
-	}
+    // si cle primaire demandee, la privilegier
+    if ($primary && isset($desc['key']['PRIMARY KEY'])) {
+        return split_key($desc['key']['PRIMARY KEY']);
+    }
 
-	// les champs declares explicitement pour les jointures
-	if (isset($desc['join'])) {
-		return $desc['join'];
-	}
-	/*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
+    // les champs declares explicitement pour les jointures
+    if (isset($desc['join'])) {
+        return $desc['join'];
+    }
+    /*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
 	elseif (isset($GLOBALS['tables_auxiliaires'][$nom]['join'])) return $GLOBALS['tables_auxiliaires'][$nom]['join'];*/
 
-	// si pas de cle, c'est fichu
-	if (!isset($desc['key'])) {
-		return [];
-	}
-
-	// si cle primaire
-	if (isset($desc['key']['PRIMARY KEY'])) {
-		return split_key($desc['key']['PRIMARY KEY']);
-	}
-
-	// ici on se rabat sur les cles secondaires,
-	// en eliminant celles qui sont pas pertinentes (idx, maj)
-	// si jamais le resultat n'est pas pertinent pour une table donnee,
-	// il faut declarer explicitement le champ 'join' de sa description
-
-	$join = [];
-	foreach ($desc['key'] as $v) {
-		$join = split_key($v, $join);
-	}
-	foreach ($join as $k) {
-		if (in_array($k, $nojoin)) {
-			unset($join[$k]);
-		}
-	}
-
-	return $join;
+    // si pas de cle, c'est fichu
+    if (!isset($desc['key'])) {
+        return [];
+    }
+
+    // si cle primaire
+    if (isset($desc['key']['PRIMARY KEY'])) {
+        return split_key($desc['key']['PRIMARY KEY']);
+    }
+
+    // ici on se rabat sur les cles secondaires,
+    // en eliminant celles qui sont pas pertinentes (idx, maj)
+    // si jamais le resultat n'est pas pertinent pour une table donnee,
+    // il faut declarer explicitement le champ 'join' de sa description
+
+    $join = [];
+    foreach ($desc['key'] as $v) {
+        $join = split_key($v, $join);
+    }
+    foreach ($join as $k) {
+        if (in_array($k, $nojoin)) {
+            unset($join[$k]);
+        }
+    }
+
+    return $join;
 }
 
 /**
@@ -319,14 +319,14 @@ 
  * @return array
  */
 function split_key($v, $join = []) {
-	foreach (preg_split('/,\s*/', $v) as $k) {
-		if (strpos($k, '(') !== false) {
-			$k = explode('(', $k);
-			$k = trim(reset($k));
-		}
-		$join[$k] = $k;
-	}
-	return $join;
+    foreach (preg_split('/,\s*/', $v) as $k) {
+        if (strpos($k, '(') !== false) {
+            $k = explode('(', $k);
+            $k = trim(reset($k));
+        }
+        $join[$k] = $k;
+    }
+    return $join;
 }
 
 /**
@@ -349,135 +349,135 @@ 
  * @return array
  */
 function calculer_chaine_jointures(
-	&$boucle,
-	$depart,
-	$arrivee,
-	$vu = [],
-	$milieu_exclus = [],
-	$max_liens = 5
+    &$boucle,
+    $depart,
+    $arrivee,
+    $vu = [],
+    $milieu_exclus = [],
+    $max_liens = 5
 ) {
-	static $trouver_table;
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (is_string($milieu_exclus)) {
-		$milieu_exclus = [$milieu_exclus];
-	}
-	// quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
-	// faire une jointure sur objet tout seul n'a pas de sens
-	if (in_array('id_objet', $milieu_exclus) and !in_array('objet', $milieu_exclus)) {
-		$milieu_exclus[] = 'objet';
-	}
-
-	list($dnom, $ddesc) = $depart;
-	list($anom, $adesc) = $arrivee;
-	if (!count($vu)) {
-		$vu[] = $dnom; // ne pas oublier la table de depart
-		$vu[] = $anom; // ne pas oublier la table d'arrivee
-	}
-
-	$akeys = [];
-	foreach ($adesc['key'] as $k) {
-		// respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
-		$akeys = array_merge($akeys, preg_split('/,\s*/', $k));
-	}
-
-	// enlever les cles d'arrivee exclues par l'appel
-	$akeys = array_diff($akeys, $milieu_exclus);
-
-	// cles candidates au depart
-	$keys = liste_champs_jointures($dnom, $ddesc);
-	// enlever les cles dde depart exclues par l'appel
-	$keys = array_diff($keys, $milieu_exclus);
-
-	$v = !$keys ? false : array_intersect(array_values($keys), $akeys);
-
-	if ($v) {
-		return [[$dnom, [$adesc['table'], $adesc], array_shift($v)]];
-	}
-
-	// regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
-	if (count(array_intersect(['id_objet', 'objet'], $keys)) == 2) {
-		// regarder si l'une des cles d'arrivee peut se decomposer en
-		// id_objet,objet
-		// si oui on la prend
-		foreach ($akeys as $key) {
-			$v = decompose_champ_id_objet($key);
-			if (is_array($v)) {
-				$objet = array_shift($v); // objet,'article'
-				array_unshift($v, $key); // id_article,objet,'article'
-				array_unshift($v, $objet); // id_objet,id_article,objet,'article'
-				return [[$dnom, [$adesc['table'], $adesc], $v]];
-			}
-		}
-	} else {
-		// regarder si l'une des cles de depart peut se decomposer en
-		// id_objet,objet a l'arrivee
-		// si oui on la prend
-		foreach ($keys as $key) {
-			if (count($v = trouver_champs_decomposes($key, $adesc)) > 1) {
-				if (count($v) == count(array_intersect($v, $akeys))) {
-					$v = decompose_champ_id_objet($key); // id_objet,objet,'article'
-					array_unshift($v, $key); // id_article,id_objet,objet,'article'
-					return [[$dnom, [$adesc['table'], $adesc], $v]];
-				}
-			}
-		}
-	}
-	// si l'on voulait une jointure direct, c'est rate !
-	if ($max_liens <= 1) {
-		return [];
-	}
-
-	// sinon essayer de passer par une autre table
-	$new = $vu;
-	foreach ($boucle->jointures as $v) {
-		if (
-			$v
-			and !in_array($v, $vu)
-			and $def = $trouver_table($v, $boucle->sql_serveur)
-			and !in_array($def['table_sql'], $vu)
-		) {
-			// ne pas tester les cles qui sont exclues a l'appel
-			// ie la cle de la jointure precedente
-			$test_cles = $milieu_exclus;
-			$new[] = $v;
-			$max_iter = 50; // securite
-			while (
-				count($jointure_directe_possible = calculer_chaine_jointures(
-					$boucle,
-					$depart,
-					[$v, $def],
-					$vu,
-					$test_cles,
-					1
-				))
-				and $max_iter--
-			) {
-				$jointure_directe_possible = reset($jointure_directe_possible);
-				$milieu = end($jointure_directe_possible);
-				$exclure_fin = $milieu_exclus;
-				if (is_string($milieu)) {
-					$exclure_fin[] = $milieu;
-					$test_cles[] = $milieu;
-				} else {
-					$exclure_fin = array_merge($exclure_fin, $milieu);
-					$test_cles = array_merge($test_cles, $milieu);
-				}
-				// essayer de rejoindre l'arrivee a partir de cette etape intermediaire
-				// sans repasser par la meme cle milieu, ni une cle deja vue !
-				$r = calculer_chaine_jointures($boucle, [$v, $def], $arrivee, $new, $exclure_fin, $max_liens - 1);
-				if ($r) {
-					array_unshift($r, $jointure_directe_possible);
-
-					return $r;
-				}
-			}
-		}
-	}
-
-	return [];
+    static $trouver_table;
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (is_string($milieu_exclus)) {
+        $milieu_exclus = [$milieu_exclus];
+    }
+    // quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
+    // faire une jointure sur objet tout seul n'a pas de sens
+    if (in_array('id_objet', $milieu_exclus) and !in_array('objet', $milieu_exclus)) {
+        $milieu_exclus[] = 'objet';
+    }
+
+    list($dnom, $ddesc) = $depart;
+    list($anom, $adesc) = $arrivee;
+    if (!count($vu)) {
+        $vu[] = $dnom; // ne pas oublier la table de depart
+        $vu[] = $anom; // ne pas oublier la table d'arrivee
+    }
+
+    $akeys = [];
+    foreach ($adesc['key'] as $k) {
+        // respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
+        $akeys = array_merge($akeys, preg_split('/,\s*/', $k));
+    }
+
+    // enlever les cles d'arrivee exclues par l'appel
+    $akeys = array_diff($akeys, $milieu_exclus);
+
+    // cles candidates au depart
+    $keys = liste_champs_jointures($dnom, $ddesc);
+    // enlever les cles dde depart exclues par l'appel
+    $keys = array_diff($keys, $milieu_exclus);
+
+    $v = !$keys ? false : array_intersect(array_values($keys), $akeys);
+
+    if ($v) {
+        return [[$dnom, [$adesc['table'], $adesc], array_shift($v)]];
+    }
+
+    // regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
+    if (count(array_intersect(['id_objet', 'objet'], $keys)) == 2) {
+        // regarder si l'une des cles d'arrivee peut se decomposer en
+        // id_objet,objet
+        // si oui on la prend
+        foreach ($akeys as $key) {
+            $v = decompose_champ_id_objet($key);
+            if (is_array($v)) {
+                $objet = array_shift($v); // objet,'article'
+                array_unshift($v, $key); // id_article,objet,'article'
+                array_unshift($v, $objet); // id_objet,id_article,objet,'article'
+                return [[$dnom, [$adesc['table'], $adesc], $v]];
+            }
+        }
+    } else {
+        // regarder si l'une des cles de depart peut se decomposer en
+        // id_objet,objet a l'arrivee
+        // si oui on la prend
+        foreach ($keys as $key) {
+            if (count($v = trouver_champs_decomposes($key, $adesc)) > 1) {
+                if (count($v) == count(array_intersect($v, $akeys))) {
+                    $v = decompose_champ_id_objet($key); // id_objet,objet,'article'
+                    array_unshift($v, $key); // id_article,id_objet,objet,'article'
+                    return [[$dnom, [$adesc['table'], $adesc], $v]];
+                }
+            }
+        }
+    }
+    // si l'on voulait une jointure direct, c'est rate !
+    if ($max_liens <= 1) {
+        return [];
+    }
+
+    // sinon essayer de passer par une autre table
+    $new = $vu;
+    foreach ($boucle->jointures as $v) {
+        if (
+            $v
+            and !in_array($v, $vu)
+            and $def = $trouver_table($v, $boucle->sql_serveur)
+            and !in_array($def['table_sql'], $vu)
+        ) {
+            // ne pas tester les cles qui sont exclues a l'appel
+            // ie la cle de la jointure precedente
+            $test_cles = $milieu_exclus;
+            $new[] = $v;
+            $max_iter = 50; // securite
+            while (
+                count($jointure_directe_possible = calculer_chaine_jointures(
+                    $boucle,
+                    $depart,
+                    [$v, $def],
+                    $vu,
+                    $test_cles,
+                    1
+                ))
+                and $max_iter--
+            ) {
+                $jointure_directe_possible = reset($jointure_directe_possible);
+                $milieu = end($jointure_directe_possible);
+                $exclure_fin = $milieu_exclus;
+                if (is_string($milieu)) {
+                    $exclure_fin[] = $milieu;
+                    $test_cles[] = $milieu;
+                } else {
+                    $exclure_fin = array_merge($exclure_fin, $milieu);
+                    $test_cles = array_merge($test_cles, $milieu);
+                }
+                // essayer de rejoindre l'arrivee a partir de cette etape intermediaire
+                // sans repasser par la meme cle milieu, ni une cle deja vue !
+                $r = calculer_chaine_jointures($boucle, [$v, $def], $arrivee, $new, $exclure_fin, $max_liens - 1);
+                if ($r) {
+                    array_unshift($r, $jointure_directe_possible);
+
+                    return $r;
+                }
+            }
+        }
+    }
+
+    return [];
 }
 
 /**
@@ -488,18 +488,18 @@ 
  * @return array
  */
 function trouver_cles_table($keys) {
-	$res = [];
-	foreach ($keys as $v) {
-		if (!strpos($v, ',')) {
-			$res[$v] = 1;
-		} else {
-			foreach (preg_split('/\s*,\s*/', $v) as $k) {
-				$res[$k] = 1;
-			}
-		}
-	}
-
-	return array_keys($res);
+    $res = [];
+    foreach ($keys as $v) {
+        if (!strpos($v, ',')) {
+            $res[$v] = 1;
+        } else {
+            foreach (preg_split('/\s*,\s*/', $v) as $k) {
+                $res[$k] = 1;
+            }
+        }
+    }
+
+    return array_keys($res);
 }
 
 
@@ -526,34 +526,34 @@ 
  *     - 'alias' : alias utilisé pour la table (si pertinent. ie: avec `$boucle->from` transmis par exemple)
  */
 function chercher_champ_dans_tables($cle, $tables, $connect, $checkarrivee = false) {
-	static $trouver_table = '';
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (!is_array($cle)) {
-		$cle = [$cle];
-	}
-
-	foreach ($tables as $k => $table) {
-		if ($table && $desc = $trouver_table($table, $connect)) {
-			if (
-				isset($desc['field'])
-				// verifier que toutes les cles cherchees sont la
-				and (count(array_intersect($cle, array_keys($desc['field']))) == count($cle))
-				// si on sait ou on veut arriver, il faut que ca colle
-				and ($checkarrivee == false || $checkarrivee == $desc['table'])
-			) {
-				return [
-					'desc' => $desc,
-					'table' => $desc['table'],
-					'alias' => $k,
-				];
-			}
-		}
-	}
-
-	return false;
+    static $trouver_table = '';
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (!is_array($cle)) {
+        $cle = [$cle];
+    }
+
+    foreach ($tables as $k => $table) {
+        if ($table && $desc = $trouver_table($table, $connect)) {
+            if (
+                isset($desc['field'])
+                // verifier que toutes les cles cherchees sont la
+                and (count(array_intersect($cle, array_keys($desc['field']))) == count($cle))
+                // si on sait ou on veut arriver, il faut que ca colle
+                and ($checkarrivee == false || $checkarrivee == $desc['table'])
+            ) {
+                return [
+                    'desc' => $desc,
+                    'table' => $desc['table'],
+                    'alias' => $k,
+                ];
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -579,52 +579,52 @@ 
  */
 function trouver_champ_exterieur($cle, $joints, &$boucle, $checkarrivee = false) {
 
-	// support de la recherche multi champ :
-	// si en seconde etape on a decompose le champ id_xx en id_objet,objet
-	// on reentre ici soit en cherchant une table les 2 champs id_objet,objet
-	// soit une table avec les 3 champs id_xx, id_objet, objet
-	if (!is_array($cle)) {
-		$cle = [$cle];
-	}
-
-	if ($infos = chercher_champ_dans_tables($cle, $joints, $boucle->sql_serveur, $checkarrivee)) {
-		return [$infos['table'], $infos['desc'], $cle];
-	}
-
-	// au premier coup, on essaye de decomposer, si possible
-	if (
-		count($cle) == 1
-		and $c = reset($cle)
-		and is_array($decompose = decompose_champ_id_objet($c))
-	) {
-		$desc = $boucle->show;
-
-		// cas 1 : la cle id_xx est dans la table de depart
-		// -> on cherche uniquement id_objet,objet a l'arrivee
-		if (isset($desc['field'][$c])) {
-			$cle = [];
-			$cle[] = array_shift($decompose); // id_objet
-			$cle[] = array_shift($decompose); // objet
-			return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
-		}
-		// cas 2 : la cle id_xx n'est pas dans la table de depart
-		// -> il faut trouver une cle de depart zzz telle que
-		// id_objet,objet,zzz soit a l'arrivee
-		else {
-			$depart = liste_champs_jointures((isset($desc['table']) ? $desc['table'] : ''), $desc);
-			foreach ($depart as $d) {
-				$cle = [];
-				$cle[] = array_shift($decompose); // id_objet
-				$cle[] = array_shift($decompose); // objet
-				$cle[] = $d;
-				if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee)) {
-					return $ext;
-				}
-			}
-		}
-	}
-
-	return '';
+    // support de la recherche multi champ :
+    // si en seconde etape on a decompose le champ id_xx en id_objet,objet
+    // on reentre ici soit en cherchant une table les 2 champs id_objet,objet
+    // soit une table avec les 3 champs id_xx, id_objet, objet
+    if (!is_array($cle)) {
+        $cle = [$cle];
+    }
+
+    if ($infos = chercher_champ_dans_tables($cle, $joints, $boucle->sql_serveur, $checkarrivee)) {
+        return [$infos['table'], $infos['desc'], $cle];
+    }
+
+    // au premier coup, on essaye de decomposer, si possible
+    if (
+        count($cle) == 1
+        and $c = reset($cle)
+        and is_array($decompose = decompose_champ_id_objet($c))
+    ) {
+        $desc = $boucle->show;
+
+        // cas 1 : la cle id_xx est dans la table de depart
+        // -> on cherche uniquement id_objet,objet a l'arrivee
+        if (isset($desc['field'][$c])) {
+            $cle = [];
+            $cle[] = array_shift($decompose); // id_objet
+            $cle[] = array_shift($decompose); // objet
+            return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
+        }
+        // cas 2 : la cle id_xx n'est pas dans la table de depart
+        // -> il faut trouver une cle de depart zzz telle que
+        // id_objet,objet,zzz soit a l'arrivee
+        else {
+            $depart = liste_champs_jointures((isset($desc['table']) ? $desc['table'] : ''), $desc);
+            foreach ($depart as $d) {
+                $cle = [];
+                $cle[] = array_shift($decompose); // id_objet
+                $cle[] = array_shift($decompose); // objet
+                $cle[] = $d;
+                if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee)) {
+                    return $ext;
+                }
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -656,21 +656,21 @@ 
  * @return string
  */
 function trouver_jointure_champ($champ, &$boucle, $jointures = false, $cond = false, $checkarrivee = false) {
-	if ($jointures === false) {
-		$jointures = $boucle->jointures;
-	}
-	// TODO : aberration, on utilise $jointures pour trouver le champ
-	// mais pas poour construire la jointure ensuite
-	$arrivee = trouver_champ_exterieur($champ, $jointures, $boucle, $checkarrivee);
-	if ($arrivee) {
-		$desc = $boucle->show;
-		array_pop($arrivee); // enlever la cle en 3eme argument
-		$cle = calculer_jointure($boucle, [$desc['id_table'], $desc], $arrivee, '', $cond);
-		if ($cle) {
-			return $cle;
-		}
-	}
-	spip_log("trouver_jointure_champ: $champ inconnu");
-
-	return '';
+    if ($jointures === false) {
+        $jointures = $boucle->jointures;
+    }
+    // TODO : aberration, on utilise $jointures pour trouver le champ
+    // mais pas poour construire la jointure ensuite
+    $arrivee = trouver_champ_exterieur($champ, $jointures, $boucle, $checkarrivee);
+    if ($arrivee) {
+        $desc = $boucle->show;
+        array_pop($arrivee); // enlever la cle en 3eme argument
+        $cle = calculer_jointure($boucle, [$desc['id_table'], $desc], $arrivee, '', $cond);
+        if ($cle) {
+            return $cle;
+        }
+    }
+    spip_log("trouver_jointure_champ: $champ inconnu");
+
+    return '';
 }

Spacing +4 added lines, -4 removed lines

@@ -177,14 +177,14 @@ 
 			// sache qu'il peut enlever ce where si il enleve la jointure
 			$boucle->where["JOIN-L$n"] =
 				$echap ?
-					["'='","'$obj'","sql_quote('$type')"]
+					["'='", "'$obj'", "sql_quote('$type')"]
 					:
-					['=',"$obj",sql_quote($type)];
+					['=', "$obj", sql_quote($type)];
 			$boucle->join["L$n"] =
 				$echap ?
 					["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
 					:
-					[$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
+					[$id_table, $j2, $j1, "$obj=".sql_quote($type)];
 		} else {
 			$boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
 		}
@@ -218,7 +218,7 @@ 
 	$groups = liste_champs_jointures($nom, $desc, true);
 	if (!$pk) {
 		foreach ($groups as $id_prim) {
-			$id_field = $nom . '.' . $id_prim;
+			$id_field = $nom.'.'.$id_prim;
 			if (!in_array($id_field, $boucle->group)) {
 				$boucle->group[] = $id_field;
 			}

ecrire/public/aiguiller.php

Spacing +3 added lines, -3 removed lines

@@ -28,7 +28,7 @@ 
 	) {
 		// si l'url est une url du site, on la laisse passer sans rien faire
 		// c'est encore le plus simple
-		$base = $GLOBALS['meta']['adresse_site'] . '/';
+		$base = $GLOBALS['meta']['adresse_site'].'/';
 		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
 			return $redirect;
 		}
@@ -156,7 +156,7 @@ 
 			if ($ancre = _request('var_ajax_ancre')) {
 				// pas n'importe quoi quand meme dans la variable !
 				$ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
-				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
+				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>".$texte;
 			}
 		} else {
 			include_spip('inc/headers');
@@ -314,7 +314,7 @@ 
 				// on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
 				// sans cela le formulaire n'est pas actif apres le hit ajax
 				// la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
-				$retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
+				$retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>".$retour;
 				ajax_retour($retour, false);
 
 				return true; // on a fini le hit

Indentation +269 added lines, -269 removed lines

@@ -11,164 +11,164 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function securiser_redirect_action($redirect) {
-	// cas d'un double urlencode : si un urldecode de l'url n'est pas secure, on retient ca comme redirect
-	if (strpos($redirect, '%') !== false) {
-		$r2 = urldecode($redirect);
-		if (($r3 = securiser_redirect_action($r2)) !== $r2) {
-			return $r3;
-		}
-	}
-	if (
-		(tester_url_absolue($redirect) or preg_match(',^\w+:,', trim($redirect)))
-		and !defined('_AUTORISER_ACTION_ABS_REDIRECT')
-	) {
-		// si l'url est une url du site, on la laisse passer sans rien faire
-		// c'est encore le plus simple
-		$base = $GLOBALS['meta']['adresse_site'] . '/';
-		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
-			return $redirect;
-		}
-		$base = url_de_base();
-		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
-			return $redirect;
-		}
+    // cas d'un double urlencode : si un urldecode de l'url n'est pas secure, on retient ca comme redirect
+    if (strpos($redirect, '%') !== false) {
+        $r2 = urldecode($redirect);
+        if (($r3 = securiser_redirect_action($r2)) !== $r2) {
+            return $r3;
+        }
+    }
+    if (
+        (tester_url_absolue($redirect) or preg_match(',^\w+:,', trim($redirect)))
+        and !defined('_AUTORISER_ACTION_ABS_REDIRECT')
+    ) {
+        // si l'url est une url du site, on la laisse passer sans rien faire
+        // c'est encore le plus simple
+        $base = $GLOBALS['meta']['adresse_site'] . '/';
+        if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
+            return $redirect;
+        }
+        $base = url_de_base();
+        if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
+            return $redirect;
+        }
 
-		return '';
-	}
+        return '';
+    }
 
-	return $redirect;
+    return $redirect;
 }
 
 // https://code.spip.net/@traiter_appels_actions
 function traiter_appels_actions() {
-	// cas de l'appel qui renvoie une redirection (302) ou rien (204)
-	if ($action = _request('action')) {
-		include_spip('base/abstract_sql'); // chargement systematique pour les actions
-		include_spip('inc/autoriser');
-		include_spip('inc/headers');
-		include_spip('inc/actions');
-		// des actions peuvent appeler _T
-		if (!isset($GLOBALS['spip_lang'])) {
-			include_spip('inc/lang');
-			utiliser_langue_visiteur();
-		}
-		// si l'action est provoque par un hit {ajax}
-		// il faut transmettre l'env ajax au redirect
-		// on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
-		if (
-			($v = _request('var_ajax'))
-			and ($v !== 'form')
-			and ($args = _request('var_ajax_env'))
-			and ($url = _request('redirect'))
-		) {
-			$url = parametre_url($url, 'var_ajax', $v, '&');
-			$url = parametre_url($url, 'var_ajax_env', $args, '&');
-			set_request('redirect', $url);
-		} else {
-			if (_request('redirect')) {
-				set_request('redirect', securiser_redirect_action(_request('redirect')));
-			}
-		}
-		$var_f = charger_fonction($action, 'action');
-		$var_f();
-		if (!isset($GLOBALS['redirect'])) {
-			$GLOBALS['redirect'] = _request('redirect');
-			if ($_SERVER['REQUEST_METHOD'] == 'POST') {
-				$GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
-			}
-			$GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
-		}
-		if ($url = $GLOBALS['redirect']) {
-			// si l'action est provoque par un hit {ajax}
-			// il faut transmettre l'env ajax au redirect
-			// qui a pu etre defini par l'action
-			if (
-				($v = _request('var_ajax'))
-				and ($v !== 'form')
-				and ($args = _request('var_ajax_env'))
-			) {
-				$url = parametre_url($url, 'var_ajax', $v, '&');
-				$url = parametre_url($url, 'var_ajax_env', $args, '&');
-				// passer l'ancre en variable pour pouvoir la gerer cote serveur
-				$url = preg_replace(',#([^#&?]+)$,', "&var_ajax_ancre=\\1", $url);
-			}
-			$url = str_replace('&', '&', $url); // les redirections se font en &, pas en en &
-			redirige_par_entete($url);
-		}
+    // cas de l'appel qui renvoie une redirection (302) ou rien (204)
+    if ($action = _request('action')) {
+        include_spip('base/abstract_sql'); // chargement systematique pour les actions
+        include_spip('inc/autoriser');
+        include_spip('inc/headers');
+        include_spip('inc/actions');
+        // des actions peuvent appeler _T
+        if (!isset($GLOBALS['spip_lang'])) {
+            include_spip('inc/lang');
+            utiliser_langue_visiteur();
+        }
+        // si l'action est provoque par un hit {ajax}
+        // il faut transmettre l'env ajax au redirect
+        // on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
+        if (
+            ($v = _request('var_ajax'))
+            and ($v !== 'form')
+            and ($args = _request('var_ajax_env'))
+            and ($url = _request('redirect'))
+        ) {
+            $url = parametre_url($url, 'var_ajax', $v, '&');
+            $url = parametre_url($url, 'var_ajax_env', $args, '&');
+            set_request('redirect', $url);
+        } else {
+            if (_request('redirect')) {
+                set_request('redirect', securiser_redirect_action(_request('redirect')));
+            }
+        }
+        $var_f = charger_fonction($action, 'action');
+        $var_f();
+        if (!isset($GLOBALS['redirect'])) {
+            $GLOBALS['redirect'] = _request('redirect');
+            if ($_SERVER['REQUEST_METHOD'] == 'POST') {
+                $GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
+            }
+            $GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
+        }
+        if ($url = $GLOBALS['redirect']) {
+            // si l'action est provoque par un hit {ajax}
+            // il faut transmettre l'env ajax au redirect
+            // qui a pu etre defini par l'action
+            if (
+                ($v = _request('var_ajax'))
+                and ($v !== 'form')
+                and ($args = _request('var_ajax_env'))
+            ) {
+                $url = parametre_url($url, 'var_ajax', $v, '&');
+                $url = parametre_url($url, 'var_ajax_env', $args, '&');
+                // passer l'ancre en variable pour pouvoir la gerer cote serveur
+                $url = preg_replace(',#([^#&?]+)$,', "&var_ajax_ancre=\\1", $url);
+            }
+            $url = str_replace('&', '&', $url); // les redirections se font en &, pas en en &
+            redirige_par_entete($url);
+        }
 
-		// attention : avec zlib.output_compression=1 on a vu des cas de ob_get_length() qui renvoi 0
-		// et du coup en renvoi un status 204 a tort (vu sur le menu rubriques notamment)
-		if (
-			!headers_sent()
-			and !ob_get_length()
-		) {
-			http_status(204);
-		} // No Content
-		return true;
-	}
+        // attention : avec zlib.output_compression=1 on a vu des cas de ob_get_length() qui renvoi 0
+        // et du coup en renvoi un status 204 a tort (vu sur le menu rubriques notamment)
+        if (
+            !headers_sent()
+            and !ob_get_length()
+        ) {
+            http_status(204);
+        } // No Content
+        return true;
+    }
 
-	return false;
+    return false;
 }
 
 
 // https://code.spip.net/@refuser_traiter_formulaire_ajax
 function refuser_traiter_formulaire_ajax() {
-	if (
-		$v = _request('var_ajax')
-		and $v == 'form'
-		and $form = _request('formulaire_action')
-		and $args = _request('formulaire_action_args')
-		and decoder_contexte_ajax($args, $form) !== false
-	) {
-		// on est bien dans le contexte de traitement d'un formulaire en ajax
-		// mais traiter ne veut pas
-		// on le dit a la page qui va resumbit
-		// sans ajax
-		include_spip('inc/actions');
-		ajax_retour('noajax', false);
-		exit;
-	}
+    if (
+        $v = _request('var_ajax')
+        and $v == 'form'
+        and $form = _request('formulaire_action')
+        and $args = _request('formulaire_action_args')
+        and decoder_contexte_ajax($args, $form) !== false
+    ) {
+        // on est bien dans le contexte de traitement d'un formulaire en ajax
+        // mais traiter ne veut pas
+        // on le dit a la page qui va resumbit
+        // sans ajax
+        include_spip('inc/actions');
+        ajax_retour('noajax', false);
+        exit;
+    }
 }
 
 // https://code.spip.net/@traiter_appels_inclusions_ajax
 function traiter_appels_inclusions_ajax() {
-	// traiter les appels de bloc ajax (ex: pagination)
-	if (
-		$v = _request('var_ajax')
-		and $v !== 'form'
-		and $args = _request('var_ajax_env')
-	) {
-		include_spip('inc/filtres');
-		include_spip('inc/actions');
-		if (
-			$args = decoder_contexte_ajax($args)
-			and $fond = $args['fond']
-		) {
-			include_spip('public/assembler');
-			$contexte = calculer_contexte();
-			$contexte = array_merge($args, $contexte);
-			$page = recuperer_fond($fond, $contexte, ['trim' => false]);
-			$texte = $page;
-			if ($ancre = _request('var_ajax_ancre')) {
-				// pas n'importe quoi quand meme dans la variable !
-				$ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
-				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
-			}
-		} else {
-			include_spip('inc/headers');
-			http_response_code(400);
-			$texte = _L('signature ajax bloc incorrecte');
-		}
-		ajax_retour($texte, false);
+    // traiter les appels de bloc ajax (ex: pagination)
+    if (
+        $v = _request('var_ajax')
+        and $v !== 'form'
+        and $args = _request('var_ajax_env')
+    ) {
+        include_spip('inc/filtres');
+        include_spip('inc/actions');
+        if (
+            $args = decoder_contexte_ajax($args)
+            and $fond = $args['fond']
+        ) {
+            include_spip('public/assembler');
+            $contexte = calculer_contexte();
+            $contexte = array_merge($args, $contexte);
+            $page = recuperer_fond($fond, $contexte, ['trim' => false]);
+            $texte = $page;
+            if ($ancre = _request('var_ajax_ancre')) {
+                // pas n'importe quoi quand meme dans la variable !
+                $ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
+                $texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
+            }
+        } else {
+            include_spip('inc/headers');
+            http_response_code(400);
+            $texte = _L('signature ajax bloc incorrecte');
+        }
+        ajax_retour($texte, false);
 
-		return true; // on a fini le hit
-	}
+        return true; // on a fini le hit
+    }
 
-	return false;
+    return false;
 }
 
 // au 1er appel, traite les formulaires dynamiques charger/verifier/traiter
@@ -177,152 +177,152 @@ 
 
 // https://code.spip.net/@traiter_formulaires_dynamiques
 function traiter_formulaires_dynamiques($get = false) {
-	static $post = [];
-	static $done = false;
+    static $post = [];
+    static $done = false;
 
-	if ($get) {
-		return $post;
-	}
-	if ($done) {
-		return false;
-	}
-	$done = true;
+    if ($get) {
+        return $post;
+    }
+    if ($done) {
+        return false;
+    }
+    $done = true;
 
-	if (
-		!($form = _request('formulaire_action')
-		and $args = _request('formulaire_action_args'))
-	) {
-		return false;
-	} // le hit peut continuer normalement
+    if (
+        !($form = _request('formulaire_action')
+        and $args = _request('formulaire_action_args'))
+    ) {
+        return false;
+    } // le hit peut continuer normalement
 
-	include_spip('inc/filtres');
-	if (($args = decoder_contexte_ajax($args, $form)) === false) {
-		spip_log("signature ajax form incorrecte : $form");
+    include_spip('inc/filtres');
+    if (($args = decoder_contexte_ajax($args, $form)) === false) {
+        spip_log("signature ajax form incorrecte : $form");
 
-		return false; // continuons le hit comme si de rien etait
-	} else {
-		include_spip('inc/lang');
-		// sauvegarder la lang en cours
-		$old_lang = $GLOBALS['spip_lang'];
-		// changer la langue avec celle qui a cours dans le formulaire
-		// on la depile de $args car c'est un argument implicite masque
-		changer_langue(array_shift($args));
+        return false; // continuons le hit comme si de rien etait
+    } else {
+        include_spip('inc/lang');
+        // sauvegarder la lang en cours
+        $old_lang = $GLOBALS['spip_lang'];
+        // changer la langue avec celle qui a cours dans le formulaire
+        // on la depile de $args car c'est un argument implicite masque
+        changer_langue(array_shift($args));
 
 
-		// inclure mes_fonctions et autres filtres avant verifier/traiter
-		include_fichiers_fonctions();
-		// ainsi que l'API SQL bien utile dans verifier/traiter
-		include_spip('base/abstract_sql');
+        // inclure mes_fonctions et autres filtres avant verifier/traiter
+        include_fichiers_fonctions();
+        // ainsi que l'API SQL bien utile dans verifier/traiter
+        include_spip('base/abstract_sql');
 
-		/**
-		 * Pipeline exécuté lors de la soumission d'un formulaire,
-		 * mais avant l'appel de la fonction de vérification.
-		 */
-		pipeline(
-			'formulaire_receptionner',
-			[
-				'args' => ['form' => $form, 'args' => $args],
-				'data' => null,
-			]
-		);
+        /**
+         * Pipeline exécuté lors de la soumission d'un formulaire,
+         * mais avant l'appel de la fonction de vérification.
+         */
+        pipeline(
+            'formulaire_receptionner',
+            [
+                'args' => ['form' => $form, 'args' => $args],
+                'data' => null,
+            ]
+        );
 
-		$verifier = charger_fonction('verifier', "formulaires/$form/", true);
-		$post["erreurs_$form"] = pipeline(
-			'formulaire_verifier',
-			[
-				'args' => ['form' => $form, 'args' => $args],
-				'data' => $verifier ? call_user_func_array($verifier, $args) : []
-			]
-		);
-		// prise en charge CVT multi etape si besoin
-		if (_request('cvtm_prev_post')) {
-			include_spip('inc/cvt_multietapes');
-			$post["erreurs_$form"] = cvtmulti_formulaire_verifier_etapes(
-				['form' => $form, 'args' => $args],
-				$post["erreurs_$form"]
-			);
-		}
+        $verifier = charger_fonction('verifier', "formulaires/$form/", true);
+        $post["erreurs_$form"] = pipeline(
+            'formulaire_verifier',
+            [
+                'args' => ['form' => $form, 'args' => $args],
+                'data' => $verifier ? call_user_func_array($verifier, $args) : []
+            ]
+        );
+        // prise en charge CVT multi etape si besoin
+        if (_request('cvtm_prev_post')) {
+            include_spip('inc/cvt_multietapes');
+            $post["erreurs_$form"] = cvtmulti_formulaire_verifier_etapes(
+                ['form' => $form, 'args' => $args],
+                $post["erreurs_$form"]
+            );
+        }
 
-		// accessibilite : si des erreurs mais pas de message general l'ajouter
-		if ((isset($post["erreurs_$form"]) and count($post["erreurs_$form"])) and !isset($post["erreurs_$form"]['message_erreur'])) {
-			$post["erreurs_$form"]['message_erreur'] = singulier_ou_pluriel(
-				count($post["erreurs_$form"]),
-				'avis_1_erreur_saisie',
-				'avis_nb_erreurs_saisie'
-			);
-		}
+        // accessibilite : si des erreurs mais pas de message general l'ajouter
+        if ((isset($post["erreurs_$form"]) and count($post["erreurs_$form"])) and !isset($post["erreurs_$form"]['message_erreur'])) {
+            $post["erreurs_$form"]['message_erreur'] = singulier_ou_pluriel(
+                count($post["erreurs_$form"]),
+                'avis_1_erreur_saisie',
+                'avis_nb_erreurs_saisie'
+            );
+        }
 
-		// si on ne demandait qu'une verif json
-		if (_request('formulaire_action_verifier_json')) {
-			include_spip('inc/json');
-			include_spip('inc/actions');
-			ajax_retour(json_encode($post["erreurs_$form"]), 'text/plain');
+        // si on ne demandait qu'une verif json
+        if (_request('formulaire_action_verifier_json')) {
+            include_spip('inc/json');
+            include_spip('inc/actions');
+            ajax_retour(json_encode($post["erreurs_$form"]), 'text/plain');
 
-			return true; // on a fini le hit
-		}
-		$retour = '';
-		if (isset($post["erreurs_$form"]) and (count($post["erreurs_$form"]) == 0)) {
-			$rev = '';
-			if ($traiter = charger_fonction('traiter', "formulaires/$form/", true)) {
-				$rev = call_user_func_array($traiter, $args);
-			}
+            return true; // on a fini le hit
+        }
+        $retour = '';
+        if (isset($post["erreurs_$form"]) and (count($post["erreurs_$form"]) == 0)) {
+            $rev = '';
+            if ($traiter = charger_fonction('traiter', "formulaires/$form/", true)) {
+                $rev = call_user_func_array($traiter, $args);
+            }
 
-			$rev = pipeline(
-				'formulaire_traiter',
-				[
-					'args' => ['form' => $form, 'args' => $args],
-					'data' => $rev
-				]
-			);
-			// le retour de traiter est
-			// un tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
-			// il permet le pipelinage, en particulier
-			// en y passant l'id de l'objet cree/modifie
-			// si message_erreur est present, on considere que le traitement a echoue
-			$post["message_ok_$form"] = '';
-			// on peut avoir message_ok et message_erreur
-			if (isset($rev['message_ok'])) {
-				$post["message_ok_$form"] = $rev['message_ok'];
-			}
+            $rev = pipeline(
+                'formulaire_traiter',
+                [
+                    'args' => ['form' => $form, 'args' => $args],
+                    'data' => $rev
+                ]
+            );
+            // le retour de traiter est
+            // un tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
+            // il permet le pipelinage, en particulier
+            // en y passant l'id de l'objet cree/modifie
+            // si message_erreur est present, on considere que le traitement a echoue
+            $post["message_ok_$form"] = '';
+            // on peut avoir message_ok et message_erreur
+            if (isset($rev['message_ok'])) {
+                $post["message_ok_$form"] = $rev['message_ok'];
+            }
 
-			// verifier si traiter n'a pas echoue avec une erreur :
-			if (isset($rev['message_erreur'])) {
-				$post["erreurs_$form"]['message_erreur'] = $rev['message_erreur'];
-				// si il y a une erreur on ne redirige pas
-			} else {
-				// sinon faire ce qu'il faut :
-				if (isset($rev['editable'])) {
-					$post["editable_$form"] = $rev['editable'];
-				}
-				// si une redirection est demandee, appeler redirigae_formulaire qui choisira
-				// le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
-				if (isset($rev['redirect']) and $rev['redirect']) {
-					include_spip('inc/headers');
-					list($masque, $message) = redirige_formulaire($rev['redirect'], '', 'ajaxform');
-					$post["message_ok_$form"] .= $message;
-					$retour .= $masque;
-				}
-			}
-		}
-		// si le formulaire a ete soumis en ajax, on le renvoie direct !
-		if (_request('var_ajax')) {
-			if (find_in_path('formulaire_.php', 'balise/', true)) {
-				include_spip('inc/actions');
-				include_spip('public/assembler');
-				array_unshift($args, $form);
-				$retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn', $args), false);
-				// on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
-				// sans cela le formulaire n'est pas actif apres le hit ajax
-				// la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
-				$retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
-				ajax_retour($retour, false);
+            // verifier si traiter n'a pas echoue avec une erreur :
+            if (isset($rev['message_erreur'])) {
+                $post["erreurs_$form"]['message_erreur'] = $rev['message_erreur'];
+                // si il y a une erreur on ne redirige pas
+            } else {
+                // sinon faire ce qu'il faut :
+                if (isset($rev['editable'])) {
+                    $post["editable_$form"] = $rev['editable'];
+                }
+                // si une redirection est demandee, appeler redirigae_formulaire qui choisira
+                // le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
+                if (isset($rev['redirect']) and $rev['redirect']) {
+                    include_spip('inc/headers');
+                    list($masque, $message) = redirige_formulaire($rev['redirect'], '', 'ajaxform');
+                    $post["message_ok_$form"] .= $message;
+                    $retour .= $masque;
+                }
+            }
+        }
+        // si le formulaire a ete soumis en ajax, on le renvoie direct !
+        if (_request('var_ajax')) {
+            if (find_in_path('formulaire_.php', 'balise/', true)) {
+                include_spip('inc/actions');
+                include_spip('public/assembler');
+                array_unshift($args, $form);
+                $retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn', $args), false);
+                // on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
+                // sans cela le formulaire n'est pas actif apres le hit ajax
+                // la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
+                $retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
+                ajax_retour($retour, false);
 
-				return true; // on a fini le hit
-			}
-		}
-		// restaurer la lang en cours
-		changer_langue($old_lang);
-	}
+                return true; // on a fini le hit
+            }
+        }
+        // restaurer la lang en cours
+        changer_langue($old_lang);
+    }
 
-	return false; // le hit peut continuer normalement
+    return false; // le hit peut continuer normalement
 }

ecrire/public/debusquer.php

Spacing +86 added lines, -89 removed lines

@@ -148,7 +148,7 @@ 
 		if (!$fonc) {
 			$fonc = $GLOBALS['debug_objets']['principal'];
 		}
-		$titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
+		$titre = !$mode ? $fonc : ($mode.(isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' '.$GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
 	}
 	if ($message === false) {
 		lang_select();
@@ -177,7 +177,7 @@ 
 	$fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : '';
 	// une erreur critique sort $message en array
 	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log('Debug: ' . $debug . ' (' . $fond . ')');
+	spip_log('Debug: '.$debug.' ('.$fond.')');
 
 	return $msg;
 }
@@ -185,7 +185,7 @@ 
 function debusquer_bandeau($erreurs) {
 
 	if (!empty($erreurs)) {
-		$n = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
+		$n = [count($erreurs).' '._T('zbug_erreur_squelette')];
 
 		return debusquer_navigation($erreurs, $n);
 	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
@@ -218,25 +218,25 @@ 
 			$valeur_simple = [];
 			foreach ($valeur as $v) {
 				if (is_array($v)) {
-					$valeur_simple[] = 'array:' . count($v);
+					$valeur_simple[] = 'array:'.count($v);
 				} elseif (is_object($v)) {
 					$valeur_simple[] = get_class($v);
 				} elseif (is_string($v)) {
-					$valeur_simple[] = "'" . $v . "'";
+					$valeur_simple[] = "'".$v."'";
 				} else {
 					$valeur_simple[] = $v;
 				}
 			}
 			$n = count($valeur);
-			$valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
-			$valeur .= '[' . join(', ', $valeur_simple) . ']';
+			$valeur = (($n > 3) ? 'array:'.$n.' ' : '');
+			$valeur .= '['.join(', ', $valeur_simple).']';
 		} elseif (is_object($valeur)) {
 			$valeur = get_class($valeur);
 		} elseif (is_string($valeur)) {
-			$valeur = "'" . $valeur . "'";
+			$valeur = "'".$valeur."'";
 		}
-		$res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
-			. '</strong></td><td>:&nbsp;' . nl2br(entites_html($valeur))
+		$res .= "\n<tr><td><strong>".nl2br(entites_html($nom))
+			. '</strong></td><td>:&nbsp;'.nl2br(entites_html($valeur))
 			. "</td></tr>\n";
 	}
 
@@ -264,10 +264,10 @@ 
 				$nom_code = $lieu->descr['nom'];
 				$skel = $lieu->descr['sourcefile'];
 				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette').'#L'.$ligne;
 				$skel = "<a href='$h3'><b>$skel</b></a>";
 				if ($boucle) {
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+					$h3 = parametre_url($h2.$boucle, 'var_mode_affiche', 'boucle');
 					$boucle = "<a href='$h3'><b>$boucle</b></a>";
 				}
 			}
@@ -356,7 +356,7 @@ 
 	}
 
 	// Requete erronee
-	$err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+	$err = '<b>'._T('avis_erreur_mysql')." $errno</b><br /><tt>\n"
 		. spip_htmlspecialchars($msg)
 		. "\n<br /><span style='color: red'><b>"
 		. spip_htmlspecialchars($query)
@@ -371,7 +371,7 @@ 
 // https://code.spip.net/@trouve_boucle_debug
 function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = '') {
 
-	$id = $nom . $boucle;
+	$id = $nom.$boucle;
 	if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
 		foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
 			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
@@ -418,7 +418,7 @@ 
 		}
 	}
 	}
-	$incl = ',' . $reg[1] . '[.]\w$,';
+	$incl = ','.$reg[1].'[.]\w$,';
 
 	foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
 		if (preg_match($incl, $v)) {
@@ -434,16 +434,13 @@ 
 	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
 
 	if (!$boucle) {
-		return !$ligne ? '' :
-			(' (' .
-				(($nom != $skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
+		return !$ligne ? '' : (' ('.
+				(($nom != $skel) ? _T('squelette_inclus_ligne') : _T('squelette_ligne')).
 				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
 	} else {
 		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
 
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" : " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
 	}
 }
 
@@ -466,14 +463,14 @@ 
 
 	$s = preg_replace(
 		',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+		'<\1>\2</\1><br />'."\n".'<\1>\3</\1>',
 		$s
 	);
 
 
 	$tableau = explode('<br />', $s);
 
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: ".($nocpt ? 'hidden' : 'visible').";%s' href='#T%s' title=\"%s\">%0".strval(@strlen(count($tableau)))."d</a></span> %s<br />\n";
 
 	$format10 = str_replace('white', 'lightgrey', $format);
 	$formaterr = 'color: red;';
@@ -517,7 +514,7 @@ 
 	. '" style="cursor: pointer;">'
 	. ($nocpt ? '' : _T('info_numero_abbreviation'))
 	. '</div>
-	' . $res . "</div>\n";
+	' . $res."</div>\n";
 }
 
 // l'environnement graphique du debuggueur
@@ -538,14 +535,14 @@ 
 			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
 				list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
 				$texte .= $res2;
-			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
+			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc.'tout'])) {
+				$legend = _T('zbug_'.$mode);
+				$texte = $GLOBALS['debug_objets'][$mode][$fonc.'tout'];
 				$texte = ancre_texte($texte, ['', '']);
 			}
 		} else {
 			if (strlen(trim($res))) {
-				return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
+				return "<img src='".chemin_image('debug-xx.svg')."' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
 			} else {
 				// cas de l'appel sur erreur: montre la page
 				return isset($GLOBALS['debug_objets']['resultat']['tout'])
@@ -555,7 +552,7 @@ 
 		}
 	} else {
 		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
+		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc.'tout']);
 		// Si erreur, signaler leur nombre dans le formulaire admin
 		$GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
 		list($texte, $err) = emboite_texte($val, $fonc, $self);
@@ -566,14 +563,14 @@ 
 		} else {
 			$err = ": $err";
 		}
-		$legend = _T('validation') . ' ' . $err;
+		$legend = _T('validation').' '.$err;
 		$res = $id = '';
 	}
 
 	return !trim($texte) ? '' : (
-		"<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
+		"<img src='".chemin_image('debug-xx.svg')."' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
 		. "<div id='debug_boucle'><fieldset$id><legend>"
-		. "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
+		. "<a href='".$self.'#f_'.substr($fonc, 0, 37)."'> &#8593; "
 		. ($legend ? $legend : $mode)
 		. '</a></legend>'
 		. $texte
@@ -585,7 +582,7 @@ 
 // https://code.spip.net/@emboite_texte
 function emboite_texte($res, $fonc = '', $self = '') {
 	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
+	$texte = $res->entete.($errs ? '' : $res->page);
 
 	if (!$texte and !$errs) {
 		return [ancre_texte('', ['', '']), false];
@@ -641,7 +638,7 @@ 
 		$err = "<h2 style='text-align: center'>"
 			. $i
 			. "<a href='#fin_err'>"
-			. ' ' . _T('erreur_texte')
+			. ' '._T('erreur_texte')
 			. "</a></h2><table id='debut_err' style='width: 100%'>"
 			. $err
 			. " </table><a id='fin_err'></a>";
@@ -651,9 +648,9 @@ 
 		list($msg, $fermant, $ouvrant) = $errs[0];
 		$rf = reference_boucle_debug($fermant, $fonc, $self);
 		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+		$err = $msg.
+			"<a href='#L".$fermant."'>$fermant</a>$rf<br />".
+			"<a href='#L".$ouvrant."'>$ouvrant</a>$ro";
 
 		return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
 	}
@@ -687,7 +684,7 @@ 
 			['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
 		);
 
-		$res .= "<fieldset id='f_" . $nom . "'><legend>"
+		$res .= "<fieldset id='f_".$nom."'><legend>"
 			. $t_skel
 			. ' '
 			. $sourcefile
@@ -702,7 +699,7 @@ 
 			. "'>"
 			. _T('zbug_calcul')
 			. '</a></legend>'
-			. (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
+			. (!$temps ? '' : ("\n<span style='display:block;float:".$GLOBALS['spip_lang_right']."'>$temps</span><br />"))
 			. debusquer_contexte($contexte[$sourcefile])
 		. (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
 		. "</fieldset>\n";
@@ -723,33 +720,33 @@ 
 			$nom = $boucle->id_boucle;
 			$req = $boucle->type_requete;
 			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . '&amp;var_mode_objet=' . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i % 2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
+			$self2 = $self.'&amp;var_mode_objet='.$objet;
+
+			$res .= "\n<tr style='background-color: ".
+				($i % 2 ? '#e0e0f0' : '#f8f8ff').
+				"'><td  align='right'>$i</td><td>\n".
+				"<a  class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=boucle#f_$nom_skel'>".
+				_T('zbug_boucle').
+				"</a></td><td>\n<a class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=resultat#f_$nom_skel'>".
+				_T('zbug_resultat').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				$self2.
+				"&amp;var_mode_affiche=code#f_$nom_skel'>".
+				_T('zbug_code').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				str_replace('var_mode=', 'var_profile=', $self2).
+				"'>".
+				_T('zbug_calcul').
+				"</a></td><td>\n".
+				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom).
+				"</td><td>\n".
+				$req.
+				"</td><td>\n".
+				spip_htmlspecialchars($crit).
 				'</td></tr>';
 		}
 	}
@@ -776,7 +773,7 @@ 
 		}
 		//  permettre le copier/coller facile
 		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+		$res = "<div id='T".md5($req)."'>\n<pre>\n".$req."</pre>\n</div>\n";
 		//  formatage et affichage des resultats bruts de la requete
 		$ress_req = spip_query($req);
 		$brut_sql = '';
@@ -786,10 +783,10 @@ 
 		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
 		while ($retours_sql = sql_fetch($ress_req)) {
 			if ($num <= $max_aff) {
-				$brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
+				$brut_sql .= '<h3>'.($num == 1 ? $num.' sur '.sql_count($ress_req) : $num).'</h3>';
 				$brut_sql .= '<p>';
 				foreach ($retours_sql as $key => $val) {
-					$brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+					$brut_sql .= '<strong>'.$key.'</strong> => '.spip_htmlspecialchars(couper($val, 150))."<br />\n";
 				}
 				$brut_sql .= '</p>';
 			}
@@ -800,14 +797,14 @@ 
 			//  ne pas afficher les $contexte_inclus
 			$view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
 			if ($view) {
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
+				$res2 .= "\n<br /><fieldset>".interdire_scripts($view).'</fieldset>';
 			}
 		}
 	} elseif ($affiche == 'code') {
 		$legend = $nom;
-		$res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
+		$res = ancre_texte('<'."?php\n".$quoi."\n?".'>');
 	} elseif ($affiche == 'boucle') {
-		$legend = _T('zbug_boucle') . ' ' . $nom;
+		$legend = _T('zbug_boucle').' '.$nom;
 		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
 		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
 		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
@@ -826,23 +823,23 @@ 
 	include_spip('public/assembler'); // pour inclure_balise_dynamique
 	include_spip('inc/texte'); // pour corriger_typo
 
-	return _DOCTYPE_ECRIRE .
-	html_lang_attributes() .
-	"<head>\n<title>" .
-	('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-		_T('admin_debug') . ' ' . $titre . ' (' .
-		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-	")</title>\n" .
-	"<meta http-equiv='Content-Type' content='text/html" .
-	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-	"' />\n" .
+	return _DOCTYPE_ECRIRE.
+	html_lang_attributes().
+	"<head>\n<title>".
+	('SPIP '.$GLOBALS['spip_version_affichee'].' '.
+		_T('admin_debug').' '.$titre.' ('.
+		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))).
+	")</title>\n".
+	"<meta http-equiv='Content-Type' content='text/html".
+	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '').
+	"' />\n".
 	http_script('', 'jquery.js')
-	. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-	. "' type='text/css' />" .
-	"</head>\n" .
-	"<body style='margin:0 10px;'>\n" .
-	"<div id='spip-debug-header'>" .
-	$corps .
-	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
+	. "<link rel='stylesheet' href='".url_absolue(find_in_path('spip_admin.css'))
+	. "' type='text/css' />".
+	"</head>\n".
+	"<body style='margin:0 10px;'>\n".
+	"<div id='spip-debug-header'>".
+	$corps.
+	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false).
 	'</div></body></html>';
 }

Indentation +682 added lines, -682 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('public/decompiler');
@@ -66,136 +66,136 @@ 
  *     - string si $message à false.
  **/
 function public_debusquer_dist($message = '', $lieu = '', $opt = []) {
-	static $tableau_des_erreurs = [];
-
-	// Pour des tests unitaires, pouvoir récupérer les erreurs générées
-	if (isset($opt['erreurs'])) {
-		if ($opt['erreurs'] == 'get') {
-			return $tableau_des_erreurs;
-		}
-		if ($opt['erreurs'] == 'reset') {
-			$tableau_des_erreurs = [];
-
-			return true;
-		}
-	}
-
-	// Erreur ou appel final ?
-	if ($message) {
-		$message = debusquer_compose_message($message);
-		$tableau_des_erreurs[] = [$message, $lieu];
-		set_request('var_mode', 'debug');
-		$GLOBALS['bouton_admin_debug'] = true;
-		// Permettre a la compil de continuer
-		if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
-			$lieu->code = "''";
-		}
-		// forcer l'appel au debusqueur en cas de boucles infernales
-		$urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and count($tableau_des_erreurs) > _DEBUG_MAX_SQUELETTE_ERREURS);
-		if (!$urgence) {
-			return;
-		}
-	}
-	if (empty($GLOBALS['debug_objets']['principal'])) {
-		// espace public ?
-		if (isset($GLOBALS['fond'])) {
-			$GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
-		}
-	}
-
-	include_spip('inc/autoriser');
-	if (!autoriser('debug')) {
-		return;
-	}
-	include_spip('inc/headers');
-	include_spip('inc/filtres');
-
-	// en cas de squelette inclus,  virer le code de l'incluant:
-	// - il contient souvent une Div restreignant la largeur a 3 fois rien
-	// - ca fait 2 headers !
-	// sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
-	// actif par exemple)
-	if (
-		ob_get_length()
-		and
-		!in_array('ob_gzhandler', ob_get_status())
-	) {
-		ob_end_clean();
-	}
-
-	lang_select($GLOBALS['visiteur_session']['lang']);
-	$fonc = _request('var_mode_objet');
-	$mode = _request('var_mode_affiche');
-	$self = str_replace("\\'", ''', self());
-	$self = parametre_url($self, 'var_mode', 'debug');
-
-	$res = debusquer_bandeau($tableau_des_erreurs)
-		. '<br />'
-		. debusquer_squelette($fonc, $mode, $self);
-
-	if (!_DIR_RESTREINT or headers_sent()) {
-		return $res;
-	}
-	if ($tableau_des_erreurs) {
-		http_response_code(503);
-	}
-
-	http_no_cache();
-	if (isset($_GET['var_profile'])) {
-		$titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
-		$titre = parametre_url($titre, 'var_mode', '');
-	} else {
-		if (!$fonc) {
-			$fonc = $GLOBALS['debug_objets']['principal'];
-		}
-		$titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
-	}
-	if ($message === false) {
-		lang_select();
-
-		return debusquer_entete($titre, $res);
-	} else {
-		echo debusquer_entete($titre, $res);
-	}
-	exit;
+    static $tableau_des_erreurs = [];
+
+    // Pour des tests unitaires, pouvoir récupérer les erreurs générées
+    if (isset($opt['erreurs'])) {
+        if ($opt['erreurs'] == 'get') {
+            return $tableau_des_erreurs;
+        }
+        if ($opt['erreurs'] == 'reset') {
+            $tableau_des_erreurs = [];
+
+            return true;
+        }
+    }
+
+    // Erreur ou appel final ?
+    if ($message) {
+        $message = debusquer_compose_message($message);
+        $tableau_des_erreurs[] = [$message, $lieu];
+        set_request('var_mode', 'debug');
+        $GLOBALS['bouton_admin_debug'] = true;
+        // Permettre a la compil de continuer
+        if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
+            $lieu->code = "''";
+        }
+        // forcer l'appel au debusqueur en cas de boucles infernales
+        $urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and count($tableau_des_erreurs) > _DEBUG_MAX_SQUELETTE_ERREURS);
+        if (!$urgence) {
+            return;
+        }
+    }
+    if (empty($GLOBALS['debug_objets']['principal'])) {
+        // espace public ?
+        if (isset($GLOBALS['fond'])) {
+            $GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
+        }
+    }
+
+    include_spip('inc/autoriser');
+    if (!autoriser('debug')) {
+        return;
+    }
+    include_spip('inc/headers');
+    include_spip('inc/filtres');
+
+    // en cas de squelette inclus,  virer le code de l'incluant:
+    // - il contient souvent une Div restreignant la largeur a 3 fois rien
+    // - ca fait 2 headers !
+    // sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
+    // actif par exemple)
+    if (
+        ob_get_length()
+        and
+        !in_array('ob_gzhandler', ob_get_status())
+    ) {
+        ob_end_clean();
+    }
+
+    lang_select($GLOBALS['visiteur_session']['lang']);
+    $fonc = _request('var_mode_objet');
+    $mode = _request('var_mode_affiche');
+    $self = str_replace("\\'", '&#39;', self());
+    $self = parametre_url($self, 'var_mode', 'debug');
+
+    $res = debusquer_bandeau($tableau_des_erreurs)
+        . '<br />'
+        . debusquer_squelette($fonc, $mode, $self);
+
+    if (!_DIR_RESTREINT or headers_sent()) {
+        return $res;
+    }
+    if ($tableau_des_erreurs) {
+        http_response_code(503);
+    }
+
+    http_no_cache();
+    if (isset($_GET['var_profile'])) {
+        $titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
+        $titre = parametre_url($titre, 'var_mode', '');
+    } else {
+        if (!$fonc) {
+            $fonc = $GLOBALS['debug_objets']['principal'];
+        }
+        $titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
+    }
+    if ($message === false) {
+        lang_select();
+
+        return debusquer_entete($titre, $res);
+    } else {
+        echo debusquer_entete($titre, $res);
+    }
+    exit;
 }
 
 function debusquer_compose_message($msg) {
-	if (is_array($msg)) {
-		// si c'est un texte, c'est une traduction a faire, mais
-		// sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
-		if (!is_numeric($msg[0]) and count($msg) == 2) {
-			// message avec argument: instancier
-			$msg = _T($msg[0], $msg[1], 'spip-debug-arg');
-		} else {
-			// message SQL: interpreter
-			$msg = debusquer_requete($msg);
-		}
-	}
-	// FIXME: le fond n'est pas la si on n'est pas dans un squelette
-	// cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
-	$fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : '';
-	// une erreur critique sort $message en array
-	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log('Debug: ' . $debug . ' (' . $fond . ')');
-
-	return $msg;
+    if (is_array($msg)) {
+        // si c'est un texte, c'est une traduction a faire, mais
+        // sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
+        if (!is_numeric($msg[0]) and count($msg) == 2) {
+            // message avec argument: instancier
+            $msg = _T($msg[0], $msg[1], 'spip-debug-arg');
+        } else {
+            // message SQL: interpreter
+            $msg = debusquer_requete($msg);
+        }
+    }
+    // FIXME: le fond n'est pas la si on n'est pas dans un squelette
+    // cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
+    $fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : '';
+    // une erreur critique sort $message en array
+    $debug = is_array($msg) ? $msg[1] : $msg;
+    spip_log('Debug: ' . $debug . ' (' . $fond . ')');
+
+    return $msg;
 }
 
 function debusquer_bandeau($erreurs) {
 
-	if (!empty($erreurs)) {
-		$n = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
+    if (!empty($erreurs)) {
+        $n = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
 
-		return debusquer_navigation($erreurs, $n);
-	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
-		include_spip('public/tracer');
-		list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
+        return debusquer_navigation($erreurs, $n);
+    } elseif (!empty($GLOBALS['tableau_des_temps'])) {
+        include_spip('public/tracer');
+        list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
 
-		return debusquer_navigation($temps, $nav, 'debug-profile');
-	} else {
-		return '';
-	}
+        return debusquer_navigation($temps, $nav, 'debug-profile');
+    } else {
+        return '';
+    }
 }
 
 /**
@@ -205,42 +205,42 @@ 
  * @return string Code HTML
  **/
 function debusquer_contexte($env) {
-	if (is_string($env) and is_array($env_tab = @unserialize($env))) {
-		$env = $env_tab;
-	}
-
-	if (!$env) {
-		return '';
-	}
-	$res = '';
-	foreach ($env as $nom => $valeur) {
-		if (is_array($valeur)) {
-			$valeur_simple = [];
-			foreach ($valeur as $v) {
-				if (is_array($v)) {
-					$valeur_simple[] = 'array:' . count($v);
-				} elseif (is_object($v)) {
-					$valeur_simple[] = get_class($v);
-				} elseif (is_string($v)) {
-					$valeur_simple[] = "'" . $v . "'";
-				} else {
-					$valeur_simple[] = $v;
-				}
-			}
-			$n = count($valeur);
-			$valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
-			$valeur .= '[' . join(', ', $valeur_simple) . ']';
-		} elseif (is_object($valeur)) {
-			$valeur = get_class($valeur);
-		} elseif (is_string($valeur)) {
-			$valeur = "'" . $valeur . "'";
-		}
-		$res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
-			. '</strong></td><td>:&nbsp;' . nl2br(entites_html($valeur))
-			. "</td></tr>\n";
-	}
-
-	return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
+    if (is_string($env) and is_array($env_tab = @unserialize($env))) {
+        $env = $env_tab;
+    }
+
+    if (!$env) {
+        return '';
+    }
+    $res = '';
+    foreach ($env as $nom => $valeur) {
+        if (is_array($valeur)) {
+            $valeur_simple = [];
+            foreach ($valeur as $v) {
+                if (is_array($v)) {
+                    $valeur_simple[] = 'array:' . count($v);
+                } elseif (is_object($v)) {
+                    $valeur_simple[] = get_class($v);
+                } elseif (is_string($v)) {
+                    $valeur_simple[] = "'" . $v . "'";
+                } else {
+                    $valeur_simple[] = $v;
+                }
+            }
+            $n = count($valeur);
+            $valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
+            $valeur .= '[' . join(', ', $valeur_simple) . ']';
+        } elseif (is_object($valeur)) {
+            $valeur = get_class($valeur);
+        } elseif (is_string($valeur)) {
+            $valeur = "'" . $valeur . "'";
+        }
+        $res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
+            . '</strong></td><td>:&nbsp;' . nl2br(entites_html($valeur))
+            . "</td></tr>\n";
+    }
+
+    return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
 }
 
 // Affichage du tableau des erreurs ou des temps de calcul
@@ -248,66 +248,66 @@ 
 
 function debusquer_navigation($tableau, $caption = [], $id = 'debug-nav') {
 
-	if (_request('exec') == 'valider_xml') {
-		return '';
-	}
-	$GLOBALS['bouton_admin_debug'] = true;
-	$res = '';
-	$href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
-	foreach ($tableau as $i => $err) {
-		$boucle = $ligne = $skel = '';
-		list($msg, $lieu) = $err;
-		if (is_object($lieu)) {
-			$ligne = $lieu->ligne;
-			$boucle = $lieu->id_boucle ? $lieu->id_boucle : '';
-			if (isset($lieu->descr['nom'])) {
-				$nom_code = $lieu->descr['nom'];
-				$skel = $lieu->descr['sourcefile'];
-				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
-				$skel = "<a href='$h3'><b>$skel</b></a>";
-				if ($boucle) {
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
-					$boucle = "<a href='$h3'><b>$boucle</b></a>";
-				}
-			}
-		}
-
-		$j = ($i + 1);
-		$res .= "<tr id='req$j'><td style='text-align: right'>"
-			. $j
-			. "&nbsp;</td><td style='text-align: left'>"
-			. (is_array($msg) ? implode('', $msg) : $msg)
-			. "</td><td style='text-align: left'>"
-			. ($skel ? $skel : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
-			. "</td><td class='spip-debug-arg' style='text-align: left'>"
-			. ($boucle ? $boucle : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
-			. "</td><td style='text-align: right'>"
-			. $ligne
-			. "</td></tr>\n";
-	}
-
-	return "\n<table id='$id'>"
-	. "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
-	. $caption[0]
+    if (_request('exec') == 'valider_xml') {
+        return '';
+    }
+    $GLOBALS['bouton_admin_debug'] = true;
+    $res = '';
+    $href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
+    foreach ($tableau as $i => $err) {
+        $boucle = $ligne = $skel = '';
+        list($msg, $lieu) = $err;
+        if (is_object($lieu)) {
+            $ligne = $lieu->ligne;
+            $boucle = $lieu->id_boucle ? $lieu->id_boucle : '';
+            if (isset($lieu->descr['nom'])) {
+                $nom_code = $lieu->descr['nom'];
+                $skel = $lieu->descr['sourcefile'];
+                $h2 = parametre_url($href, 'var_mode_objet', $nom_code);
+                $h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+                $skel = "<a href='$h3'><b>$skel</b></a>";
+                if ($boucle) {
+                    $h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+                    $boucle = "<a href='$h3'><b>$boucle</b></a>";
+                }
+            }
+        }
+
+        $j = ($i + 1);
+        $res .= "<tr id='req$j'><td style='text-align: right'>"
+            . $j
+            . "&nbsp;</td><td style='text-align: left'>"
+            . (is_array($msg) ? implode('', $msg) : $msg)
+            . "</td><td style='text-align: left'>"
+            . ($skel ? $skel : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
+            . "</td><td class='spip-debug-arg' style='text-align: left'>"
+            . ($boucle ? $boucle : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
+            . "</td><td style='text-align: right'>"
+            . $ligne
+            . "</td></tr>\n";
+    }
+
+    return "\n<table id='$id'>"
+    . "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
+    . $caption[0]
 ## aide locale courte a ecrire, avec lien vers une grosse page de documentation
 #		aider('erreur_compilation'),
-	. '</caption>'
-	//  fausse caption du chrono (mais vraie nav)
-	. (!empty($caption[1]) ? $caption[1] : '')
-	. '<tr><th>'
-	. _T('numero')
-	. '</th><th>'
-	. _T('public:message')
-	. '</th><th>'
-	. _T('squelette')
-	. '</th><th>'
-	. _T('zbug_boucle')
-	. '</th><th>'
-	. _T('ligne')
-	. '</th></tr>'
-	. $res
-	. '</table>';
+    . '</caption>'
+    //  fausse caption du chrono (mais vraie nav)
+    . (!empty($caption[1]) ? $caption[1] : '')
+    . '<tr><th>'
+    . _T('numero')
+    . '</th><th>'
+    . _T('public:message')
+    . '</th><th>'
+    . _T('squelette')
+    . '</th><th>'
+    . _T('zbug_boucle')
+    . '</th><th>'
+    . _T('ligne')
+    . '</th></tr>'
+    . $res
+    . '</table>';
 }
 
 
@@ -327,124 +327,124 @@ 
  *    ou un tableau si l'erreur est critique
  **/
 function debusquer_requete($message) {
-	list($errno, $msg, $query) = $message;
-
-	// FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
-	// il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
-	if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
-		$errno = $regs[2];
-	} elseif (
-		is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
-		and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
-	) {
-		$errno = $regs[1];
-	}
-
-	// Erreur systeme
-	if (is_numeric($errno) and $errno > 0 and $errno < 200) {
-		$retour = '<tt><br /><br /><blink>'
-			. _T('info_erreur_systeme', ['errsys' => $errno])
-			. "</blink><br />\n<b>"
-			. _T(
-				'info_erreur_systeme2',
-				['script' => generer_url_ecrire('base_repair')]
-			)
-			. '</b><br />';
-		spip_log("Erreur systeme $errno");
-
-		return [$retour, ''];
-	}
-
-	// Requete erronee
-	$err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
-		. spip_htmlspecialchars($msg)
-		. "\n<br /><span style='color: red'><b>"
-		. spip_htmlspecialchars($query)
-		. '</b></span></tt><br />';
-
-	//. aider('erreur_mysql');
-
-	return $err;
+    list($errno, $msg, $query) = $message;
+
+    // FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
+    // il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
+    if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
+        $errno = $regs[2];
+    } elseif (
+        is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
+        and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
+    ) {
+        $errno = $regs[1];
+    }
+
+    // Erreur systeme
+    if (is_numeric($errno) and $errno > 0 and $errno < 200) {
+        $retour = '<tt><br /><br /><blink>'
+            . _T('info_erreur_systeme', ['errsys' => $errno])
+            . "</blink><br />\n<b>"
+            . _T(
+                'info_erreur_systeme2',
+                ['script' => generer_url_ecrire('base_repair')]
+            )
+            . '</b><br />';
+        spip_log("Erreur systeme $errno");
+
+        return [$retour, ''];
+    }
+
+    // Requete erronee
+    $err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+        . spip_htmlspecialchars($msg)
+        . "\n<br /><span style='color: red'><b>"
+        . spip_htmlspecialchars($query)
+        . '</b></span></tt><br />';
+
+    //. aider('erreur_mysql');
+
+    return $err;
 }
 
 
 // https://code.spip.net/@trouve_boucle_debug
 function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = '') {
 
-	$id = $nom . $boucle;
-	if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
-		foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
-			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
-				$y = substr_count($v[0], "\n");
-			} else {
-				if ($v[1][0] == '#') { // balise dynamique
-				$incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
-				} else // inclusion
-				{
-					$incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
-				}
-				$y = substr_count($incl, "\n")
-					+ substr_count($r[1], "\n")
-					+ substr_count($r[3], "\n");
-			}
-			if ($n <= ($y + $debut)) {
-				if ($v[1][0] == '?') {
-					return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
-				} elseif ($v[1][0] == '!') {
-					if ($incl = trouve_squelette_inclus($v[1])) {
-						return trouve_boucle_debug($n, $incl, $debut);
-					}
-				}
-
-				return [$nom, $boucle, $v[2] - 1 + $n - $debut];
-			}
-			$debut += $y;
-		}
-	}
-
-	return [$nom, $boucle, $n - $debut];
+    $id = $nom . $boucle;
+    if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
+        foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
+            if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
+                $y = substr_count($v[0], "\n");
+            } else {
+                if ($v[1][0] == '#') { // balise dynamique
+                $incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
+                } else // inclusion
+                {
+                    $incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
+                }
+                $y = substr_count($incl, "\n")
+                    + substr_count($r[1], "\n")
+                    + substr_count($r[3], "\n");
+            }
+            if ($n <= ($y + $debut)) {
+                if ($v[1][0] == '?') {
+                    return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
+                } elseif ($v[1][0] == '!') {
+                    if ($incl = trouve_squelette_inclus($v[1])) {
+                        return trouve_boucle_debug($n, $incl, $debut);
+                    }
+                }
+
+                return [$nom, $boucle, $v[2] - 1 + $n - $debut];
+            }
+            $debut += $y;
+        }
+    }
+
+    return [$nom, $boucle, $n - $debut];
 }
 
 // https://code.spip.net/@trouve_squelette_inclus
 function trouve_squelette_inclus($script) {
 
-	preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
-	// si le script X.php n'est pas ecrire/public.php
-	// on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
-	if ($reg[1] == 'ecrire/public') { // si c'est bien ecrire/public on cherche le param 'fond'
-	if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) { // a defaut on cherche le param 'page'
-		if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
-				$reg[1] = 'inconnu';
-		}
-	}
-	}
-	$incl = ',' . $reg[1] . '[.]\w$,';
-
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
-		if (preg_match($incl, $v)) {
-			return $k;
-		}
-	}
-
-	return '';
+    preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
+    // si le script X.php n'est pas ecrire/public.php
+    // on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
+    if ($reg[1] == 'ecrire/public') { // si c'est bien ecrire/public on cherche le param 'fond'
+    if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) { // a defaut on cherche le param 'page'
+        if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
+                $reg[1] = 'inconnu';
+        }
+    }
+    }
+    $incl = ',' . $reg[1] . '[.]\w$,';
+
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
+        if (preg_match($incl, $v)) {
+            return $k;
+        }
+    }
+
+    return '';
 }
 
 // https://code.spip.net/@reference_boucle_debug
 function reference_boucle_debug($n, $nom, $self) {
-	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
-
-	if (!$boucle) {
-		return !$ligne ? '' :
-			(' (' .
-				(($nom != $skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
-				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
-	} else {
-		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
-
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
-	}
+    list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
+
+    if (!$boucle) {
+        return !$ligne ? '' :
+            (' (' .
+                (($nom != $skel) ? _T('squelette_inclus_ligne') :
+                    _T('squelette_ligne')) .
+                " <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
+    } else {
+        $self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
+
+        return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
+            " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+    }
 }
 
 // affiche un texte avec numero de ligne et ancre.
@@ -452,397 +452,397 @@ 
 // https://code.spip.net/@ancre_texte
 function ancre_texte($texte, $fautifs = [], $nocpt = false) {
 
-	$var_mode_ligne = _request('var_mode_ligne');
-	if ($var_mode_ligne) {
-		$fautifs[] = [$var_mode_ligne];
-	}
-	$res = '';
-
-	$s = highlight_string($texte, true);
-	if (substr($s, 0, 6) == '<code>') {
-		$s = substr($s, 6);
-		$res = '<code>';
-	}
-
-	$s = preg_replace(
-		',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
-		$s
-	);
-
-
-	$tableau = explode('<br />', $s);
-
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
-
-	$format10 = str_replace('white', 'lightgrey', $format);
-	$formaterr = 'color: red;';
-	$i = 1;
-	$flignes = [];
-	$loc = [0, 0];
-	foreach ($fautifs as $lc) {
-		if (is_array($lc)) {
-			$l = array_shift($lc);
-			$flignes[$l] = $lc;
-		} else {
-			$flignes[$lc] = $loc;
-		}
-	}
-
-	$ancre = md5($texte);
-	foreach ($tableau as $ligne) {
-		if (isset($flignes[$i])) {
-			$ligne = str_replace('&nbsp;', ' ', $ligne);
-			$indexmesg = $flignes[$i][1];
-			$err = textebrut($flignes[$i][2]);
-			// tentative de pointer sur la colonne fautive;
-			// marche pas car highlight_string rajoute des entites. A revoir.
-			// $m = $flignes[$i][0];
-			// $ligne = substr($ligne, 0, $m-1) .
-			// sprintf($formaterr, substr($ligne,$m));
-			$bg = $formaterr;
-		} else {
-			$indexmesg = $ancre;
-			$err = $bg = '';
-		}
-		$res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
-		$i++;
-	}
-
-	return "<div id='T$ancre'>"
-	. '<div onclick="'
-	. "jQuery(this).parent().find('a').toggle();"
-	. '" title="'
-	. _T('masquer_colonne')
-	. '" style="cursor: pointer;">'
-	. ($nocpt ? '' : _T('info_numero_abbreviation'))
-	. '</div>
+    $var_mode_ligne = _request('var_mode_ligne');
+    if ($var_mode_ligne) {
+        $fautifs[] = [$var_mode_ligne];
+    }
+    $res = '';
+
+    $s = highlight_string($texte, true);
+    if (substr($s, 0, 6) == '<code>') {
+        $s = substr($s, 6);
+        $res = '<code>';
+    }
+
+    $s = preg_replace(
+        ',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
+        '<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+        $s
+    );
+
+
+    $tableau = explode('<br />', $s);
+
+    $format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+
+    $format10 = str_replace('white', 'lightgrey', $format);
+    $formaterr = 'color: red;';
+    $i = 1;
+    $flignes = [];
+    $loc = [0, 0];
+    foreach ($fautifs as $lc) {
+        if (is_array($lc)) {
+            $l = array_shift($lc);
+            $flignes[$l] = $lc;
+        } else {
+            $flignes[$lc] = $loc;
+        }
+    }
+
+    $ancre = md5($texte);
+    foreach ($tableau as $ligne) {
+        if (isset($flignes[$i])) {
+            $ligne = str_replace('&nbsp;', ' ', $ligne);
+            $indexmesg = $flignes[$i][1];
+            $err = textebrut($flignes[$i][2]);
+            // tentative de pointer sur la colonne fautive;
+            // marche pas car highlight_string rajoute des entites. A revoir.
+            // $m = $flignes[$i][0];
+            // $ligne = substr($ligne, 0, $m-1) .
+            // sprintf($formaterr, substr($ligne,$m));
+            $bg = $formaterr;
+        } else {
+            $indexmesg = $ancre;
+            $err = $bg = '';
+        }
+        $res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
+        $i++;
+    }
+
+    return "<div id='T$ancre'>"
+    . '<div onclick="'
+    . "jQuery(this).parent().find('a').toggle();"
+    . '" title="'
+    . _T('masquer_colonne')
+    . '" style="cursor: pointer;">'
+    . ($nocpt ? '' : _T('info_numero_abbreviation'))
+    . '</div>
 	' . $res . "</div>\n";
 }
 
 // l'environnement graphique du debuggueur
 
 function debusquer_squelette($fonc, $mode, $self) {
-	$texte = '';
-
-	if ($mode !== 'validation') {
-		if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
-			$res = "<div id='spip-boucles'>\n"
-				. debusquer_navigation_squelettes($self)
-				. '</div>';
-		} else {
-			$res = '';
-		}
-		if ($fonc) {
-			$id = " id='$fonc'";
-			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
-				list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
-				$texte .= $res2;
-			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
-				$texte = ancre_texte($texte, ['', '']);
-			}
-		} else {
-			if (strlen(trim($res))) {
-				return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
-			} else {
-				// cas de l'appel sur erreur: montre la page
-				return isset($GLOBALS['debug_objets']['resultat']['tout'])
-					? $GLOBALS['debug_objets']['resultat']['tout']
-					: '';
-			}
-		}
-	} else {
-		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
-		// Si erreur, signaler leur nombre dans le formulaire admin
-		$GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
-		list($texte, $err) = emboite_texte($val, $fonc, $self);
-		if ($err === false) {
-			$err = _T('impossible');
-		} elseif ($err === true) {
-			$err = _T('correcte');
-		} else {
-			$err = ": $err";
-		}
-		$legend = _T('validation') . ' ' . $err;
-		$res = $id = '';
-	}
-
-	return !trim($texte) ? '' : (
-		"<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
-		. "<div id='debug_boucle'><fieldset$id><legend>"
-		. "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
-		. ($legend ? $legend : $mode)
-		. '</a></legend>'
-		. $texte
-		. '</fieldset></div>'
-		. '</div>');
+    $texte = '';
+
+    if ($mode !== 'validation') {
+        if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
+            $res = "<div id='spip-boucles'>\n"
+                . debusquer_navigation_squelettes($self)
+                . '</div>';
+        } else {
+            $res = '';
+        }
+        if ($fonc) {
+            $id = " id='$fonc'";
+            if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
+                list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
+                $texte .= $res2;
+            } elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
+                $legend = _T('zbug_' . $mode);
+                $texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
+                $texte = ancre_texte($texte, ['', '']);
+            }
+        } else {
+            if (strlen(trim($res))) {
+                return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
+            } else {
+                // cas de l'appel sur erreur: montre la page
+                return isset($GLOBALS['debug_objets']['resultat']['tout'])
+                    ? $GLOBALS['debug_objets']['resultat']['tout']
+                    : '';
+            }
+        }
+    } else {
+        $valider = charger_fonction('valider', 'xml');
+        $val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
+        // Si erreur, signaler leur nombre dans le formulaire admin
+        $GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
+        list($texte, $err) = emboite_texte($val, $fonc, $self);
+        if ($err === false) {
+            $err = _T('impossible');
+        } elseif ($err === true) {
+            $err = _T('correcte');
+        } else {
+            $err = ": $err";
+        }
+        $legend = _T('validation') . ' ' . $err;
+        $res = $id = '';
+    }
+
+    return !trim($texte) ? '' : (
+        "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
+        . "<div id='debug_boucle'><fieldset$id><legend>"
+        . "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
+        . ($legend ? $legend : $mode)
+        . '</a></legend>'
+        . $texte
+        . '</fieldset></div>'
+        . '</div>');
 }
 
 
 // https://code.spip.net/@emboite_texte
 function emboite_texte($res, $fonc = '', $self = '') {
-	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
-
-	if (!$texte and !$errs) {
-		return [ancre_texte('', ['', '']), false];
-	}
-	if (!$errs) {
-		return [ancre_texte($texte, ['', '']), true];
-	}
-
-	if (!isset($GLOBALS['debug_objets'])) {
-		$colors = ['#e0e0f0', '#f8f8ff'];
-		$encore = count_occ($errs);
-		$encore2 = [];
-		$fautifs = [];
-
-		$err = '<tr><th>'
-			. _T('numero')
-			. '</th><th>'
-			. _T('occurence')
-			. '</th><th>'
-			. _T('ligne')
-			. '</th><th>'
-			. _T('colonne')
-			. '</th><th>'
-			. _T('erreur')
-			. '</th></tr>';
-
-		$i = 0;
-		$style = "style='text-align: right; padding-right: 5px'";
-		foreach ($errs as $r) {
-			$i++;
-			list($msg, $ligne, $col) = $r;
-			#spip_log("$r = list($msg, $ligne, $col");
-			if (isset($encore2[$msg])) {
-				$ref = ++$encore2[$msg];
-			} else {
-				$encore2[$msg] = $ref = 1;
-			}
-			$err .= "<tr  style='background-color: "
-				. $colors[$i % 2]
-				. "'><td $style><a href='#debut_err'>"
-				. $i
-				. "</a></td><td $style>"
-				. "$ref/$encore[$msg]</td>"
-				. "<td $style><a href='#L"
-				. $ligne
-				. "' id='T$i'>"
-				. $ligne
-				. "</a></td><td $style>"
-				. $col
-				. "</td><td>$msg</td></tr>\n";
-			$fautifs[] = [$ligne, $col, $i, $msg];
-		}
-		$err = "<h2 style='text-align: center'>"
-			. $i
-			. "<a href='#fin_err'>"
-			. ' ' . _T('erreur_texte')
-			. "</a></h2><table id='debut_err' style='width: 100%'>"
-			. $err
-			. " </table><a id='fin_err'></a>";
-
-		return [ancre_texte($texte, $fautifs), $err];
-	} else {
-		list($msg, $fermant, $ouvrant) = $errs[0];
-		$rf = reference_boucle_debug($fermant, $fonc, $self);
-		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
-
-		return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
-	}
+    $errs = $res->err;
+    $texte = $res->entete . ($errs ? '' : $res->page);
+
+    if (!$texte and !$errs) {
+        return [ancre_texte('', ['', '']), false];
+    }
+    if (!$errs) {
+        return [ancre_texte($texte, ['', '']), true];
+    }
+
+    if (!isset($GLOBALS['debug_objets'])) {
+        $colors = ['#e0e0f0', '#f8f8ff'];
+        $encore = count_occ($errs);
+        $encore2 = [];
+        $fautifs = [];
+
+        $err = '<tr><th>'
+            . _T('numero')
+            . '</th><th>'
+            . _T('occurence')
+            . '</th><th>'
+            . _T('ligne')
+            . '</th><th>'
+            . _T('colonne')
+            . '</th><th>'
+            . _T('erreur')
+            . '</th></tr>';
+
+        $i = 0;
+        $style = "style='text-align: right; padding-right: 5px'";
+        foreach ($errs as $r) {
+            $i++;
+            list($msg, $ligne, $col) = $r;
+            #spip_log("$r = list($msg, $ligne, $col");
+            if (isset($encore2[$msg])) {
+                $ref = ++$encore2[$msg];
+            } else {
+                $encore2[$msg] = $ref = 1;
+            }
+            $err .= "<tr  style='background-color: "
+                . $colors[$i % 2]
+                . "'><td $style><a href='#debut_err'>"
+                . $i
+                . "</a></td><td $style>"
+                . "$ref/$encore[$msg]</td>"
+                . "<td $style><a href='#L"
+                . $ligne
+                . "' id='T$i'>"
+                . $ligne
+                . "</a></td><td $style>"
+                . $col
+                . "</td><td>$msg</td></tr>\n";
+            $fautifs[] = [$ligne, $col, $i, $msg];
+        }
+        $err = "<h2 style='text-align: center'>"
+            . $i
+            . "<a href='#fin_err'>"
+            . ' ' . _T('erreur_texte')
+            . "</a></h2><table id='debut_err' style='width: 100%'>"
+            . $err
+            . " </table><a id='fin_err'></a>";
+
+        return [ancre_texte($texte, $fautifs), $err];
+    } else {
+        list($msg, $fermant, $ouvrant) = $errs[0];
+        $rf = reference_boucle_debug($fermant, $fonc, $self);
+        $ro = reference_boucle_debug($ouvrant, $fonc, $self);
+        $err = $msg .
+            "<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
+            "<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+
+        return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
+    }
 }
 
 // https://code.spip.net/@count_occ
 function count_occ($regs) {
-	$encore = [];
-	foreach ($regs as $r) {
-		if (isset($encore[$r[0]])) {
-			$encore[$r[0]]++;
-		} else {
-			$encore[$r[0]] = 1;
-		}
-	}
-
-	return $encore;
+    $encore = [];
+    foreach ($regs as $r) {
+        if (isset($encore[$r[0]])) {
+            $encore[$r[0]]++;
+        } else {
+            $encore[$r[0]] = 1;
+        }
+    }
+
+    return $encore;
 }
 
 function debusquer_navigation_squelettes($self) {
 
-	$res = '';
-	$boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
-	$contexte = $GLOBALS['debug_objets']['contexte'];
-	$t_skel = _T('squelette');
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
-		$self2 = parametre_url($self, 'var_mode_objet', $nom);
-		$nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
-		$temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T(
-			'zbug_profile',
-			['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
-		);
-
-		$res .= "<fieldset id='f_" . $nom . "'><legend>"
-			. $t_skel
-			. ' '
-			. $sourcefile
-			. "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
-			. $t_skel
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
-			. _T('zbug_resultat')
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
-			. _T('zbug_code')
-			. "</a>\n<a href='"
-			. str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
-			. "'>"
-			. _T('zbug_calcul')
-			. '</a></legend>'
-			. (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
-			. debusquer_contexte($contexte[$sourcefile])
-		. (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
-		. "</fieldset>\n";
-	}
-
-	return $res;
+    $res = '';
+    $boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
+    $contexte = $GLOBALS['debug_objets']['contexte'];
+    $t_skel = _T('squelette');
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
+        $self2 = parametre_url($self, 'var_mode_objet', $nom);
+        $nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
+        $temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T(
+            'zbug_profile',
+            ['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
+        );
+
+        $res .= "<fieldset id='f_" . $nom . "'><legend>"
+            . $t_skel
+            . ' '
+            . $sourcefile
+            . "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
+            . $t_skel
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
+            . _T('zbug_resultat')
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
+            . _T('zbug_code')
+            . "</a>\n<a href='"
+            . str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
+            . "'>"
+            . _T('zbug_calcul')
+            . '</a></legend>'
+            . (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
+            . debusquer_contexte($contexte[$sourcefile])
+        . (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
+        . "</fieldset>\n";
+    }
+
+    return $res;
 }
 
 function debusquer_navigation_boucles($boucles, $nom_skel, $self, $nom_source) {
-	$i = 0;
-	$res = '';
-	$var_mode_objet = _request('var_mode_objet');
-	$gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
-
-	foreach ($boucles as $objet => $boucle) {
-		if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
-			$i++;
-			$nom = $boucle->id_boucle;
-			$req = $boucle->type_requete;
-			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . '&amp;var_mode_objet=' . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i % 2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
-				'</td></tr>';
-		}
-	}
-
-	return $res;
+    $i = 0;
+    $res = '';
+    $var_mode_objet = _request('var_mode_objet');
+    $gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
+
+    foreach ($boucles as $objet => $boucle) {
+        if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
+            $i++;
+            $nom = $boucle->id_boucle;
+            $req = $boucle->type_requete;
+            $crit = public_decompiler($boucle, $gram, 0, 'criteres');
+            $self2 = $self . '&amp;var_mode_objet=' . $objet;
+
+            $res .= "\n<tr style='background-color: " .
+                ($i % 2 ? '#e0e0f0' : '#f8f8ff') .
+                "'><td  align='right'>$i</td><td>\n" .
+                "<a  class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
+                _T('zbug_boucle') .
+                "</a></td><td>\n<a class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
+                _T('zbug_resultat') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=code#f_$nom_skel'>" .
+                _T('zbug_code') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                str_replace('var_mode=', 'var_profile=', $self2) .
+                "'>" .
+                _T('zbug_calcul') .
+                "</a></td><td>\n" .
+                (($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
+                "</td><td>\n" .
+                $req .
+                "</td><td>\n" .
+                spip_htmlspecialchars($crit) .
+                '</td></tr>';
+        }
+    }
+
+    return $res;
 }
 
 function debusquer_source($objet, $affiche) {
-	$quoi = $GLOBALS['debug_objets'][$affiche][$objet];
-	if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
-		$nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
-	} else {
-		$nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
-	}
-	$res2 = '';
-
-	if ($affiche == 'resultat') {
-		$legend = $nom;
-		$req = $GLOBALS['debug_objets']['requete'][$objet];
-		if (function_exists('_mysql_traite_query')) {
-			$c = strtolower(_request('connect'));
-			$c = $GLOBALS['connexions'][$c ? $c : 0]['prefixe'];
-			$req = _mysql_traite_query($req, '', $c);
-		}
-		//  permettre le copier/coller facile
-		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
-		//  formatage et affichage des resultats bruts de la requete
-		$ress_req = spip_query($req);
-		$brut_sql = '';
-		$num = 1;
-		//  eviter l'affichage de milliers de lignes
-		//  personnalisation possible dans mes_options
-		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
-		while ($retours_sql = sql_fetch($ress_req)) {
-			if ($num <= $max_aff) {
-				$brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
-				$brut_sql .= '<p>';
-				foreach ($retours_sql as $key => $val) {
-					$brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
-				}
-				$brut_sql .= '</p>';
-			}
-			$num++;
-		}
-		$res2 = interdire_scripts($brut_sql);
-		foreach ($quoi as $view) {
-			//  ne pas afficher les $contexte_inclus
-			$view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
-			if ($view) {
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
-			}
-		}
-	} elseif ($affiche == 'code') {
-		$legend = $nom;
-		$res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
-	} elseif ($affiche == 'boucle') {
-		$legend = _T('zbug_boucle') . ' ' . $nom;
-		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
-		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
-		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
-	} elseif ($affiche == 'squelette') {
-		$legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
-		$res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
-	}
-
-	return [$legend, $res, $res2];
+    $quoi = $GLOBALS['debug_objets'][$affiche][$objet];
+    if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
+        $nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
+    } else {
+        $nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
+    }
+    $res2 = '';
+
+    if ($affiche == 'resultat') {
+        $legend = $nom;
+        $req = $GLOBALS['debug_objets']['requete'][$objet];
+        if (function_exists('_mysql_traite_query')) {
+            $c = strtolower(_request('connect'));
+            $c = $GLOBALS['connexions'][$c ? $c : 0]['prefixe'];
+            $req = _mysql_traite_query($req, '', $c);
+        }
+        //  permettre le copier/coller facile
+        // $res = ancre_texte($req, array(), true);
+        $res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+        //  formatage et affichage des resultats bruts de la requete
+        $ress_req = spip_query($req);
+        $brut_sql = '';
+        $num = 1;
+        //  eviter l'affichage de milliers de lignes
+        //  personnalisation possible dans mes_options
+        $max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
+        while ($retours_sql = sql_fetch($ress_req)) {
+            if ($num <= $max_aff) {
+                $brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
+                $brut_sql .= '<p>';
+                foreach ($retours_sql as $key => $val) {
+                    $brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+                }
+                $brut_sql .= '</p>';
+            }
+            $num++;
+        }
+        $res2 = interdire_scripts($brut_sql);
+        foreach ($quoi as $view) {
+            //  ne pas afficher les $contexte_inclus
+            $view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
+            if ($view) {
+                $res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
+            }
+        }
+    } elseif ($affiche == 'code') {
+        $legend = $nom;
+        $res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
+    } elseif ($affiche == 'boucle') {
+        $legend = _T('zbug_boucle') . ' ' . $nom;
+        // Le compilateur prefixe le nom des boucles par l'extension du fichier source.
+        $gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
+        $res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
+    } elseif ($affiche == 'squelette') {
+        $legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
+        $res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
+    }
+
+    return [$legend, $res, $res2];
 }
 
 // https://code.spip.net/@debusquer_entete
 function debusquer_entete($titre, $corps) {
 
-	include_spip('balise/formulaire_admin');
-	include_spip('public/assembler'); // pour inclure_balise_dynamique
-	include_spip('inc/texte'); // pour corriger_typo
-
-	return _DOCTYPE_ECRIRE .
-	html_lang_attributes() .
-	"<head>\n<title>" .
-	('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-		_T('admin_debug') . ' ' . $titre . ' (' .
-		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-	")</title>\n" .
-	"<meta http-equiv='Content-Type' content='text/html" .
-	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-	"' />\n" .
-	http_script('', 'jquery.js')
-	. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-	. "' type='text/css' />" .
-	"</head>\n" .
-	"<body style='margin:0 10px;'>\n" .
-	"<div id='spip-debug-header'>" .
-	$corps .
-	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
-	'</div></body></html>';
+    include_spip('balise/formulaire_admin');
+    include_spip('public/assembler'); // pour inclure_balise_dynamique
+    include_spip('inc/texte'); // pour corriger_typo
+
+    return _DOCTYPE_ECRIRE .
+    html_lang_attributes() .
+    "<head>\n<title>" .
+    ('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
+        _T('admin_debug') . ' ' . $titre . ' (' .
+        supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
+    ")</title>\n" .
+    "<meta http-equiv='Content-Type' content='text/html" .
+    (($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
+    "' />\n" .
+    http_script('', 'jquery.js')
+    . "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
+    . "' type='text/css' />" .
+    "</head>\n" .
+    "<body style='margin:0 10px;'>\n" .
+    "<div id='spip-debug-header'>" .
+    $corps .
+    inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
+    '</div></body></html>';
 }

ecrire/public/parametrer.php

Indentation +242 added lines, -242 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_fichiers_fonctions();
@@ -31,177 +31,177 @@ 
 
 // https://code.spip.net/@public_parametrer_dist
 function public_parametrer_dist($fond, $contexte = '', $cache = '', $connect = '') {
-	static $composer, $styliser, $notes = null;
-	$page = tester_redirection($fond, $contexte, $connect);
-	if ($page) {
-		return $page;
-	}
-
-	if (isset($contexte['lang'])) {
-		$lang = $contexte['lang'];
-	} elseif (!isset($lang)) {
-		$lang = $GLOBALS['meta']['langue_site'];
-	}
-
-	$select = ((!isset($GLOBALS['forcer_lang']) or !$GLOBALS['forcer_lang']) and $lang <> $GLOBALS['spip_lang']);
-	if ($select) {
-		$select = lang_select($lang);
-	}
-
-	$debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug');
-
-	if (!$styliser) {
-		$styliser = charger_fonction('styliser', 'public');
-	}
-	list($skel, $mime_type, $gram, $sourcefile) =
-		$styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect);
-
-	if ($skel) {
-		// sauver le nom de l'eventuel squelette en cours d'execution
-		// (recursion possible a cause des modeles)
-		if ($debug) {
-			$courant = @$GLOBALS['debug_objets']['courant'];
-			$GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte;
-		}
-
-		// charger le squelette en specifiant les langages cibles et source
-		// au cas il faudrait le compiler (source posterieure au resultat)
-
-		if (!$composer) {
-			$composer = charger_fonction('composer', 'public');
-		}
-		$fonc = $composer($skel, $mime_type, $gram, $sourcefile, $connect);
-	} else {
-		$fonc = '';
-	}
-
-	if (!$fonc) { // squelette inconnu (==='') ou faux (===false)
-		$page = $fonc;
-	} else {
-		// Preparer l'appel de la fonction principale du squelette
-
-		spip_timer($a = 'calcul page ' . rand(0, 1000));
-
-		// On cree un marqueur de notes unique lie a cette composition
-		// et on enregistre l'etat courant des globales de notes...
-		if (is_null($notes)) {
-			$notes = charger_fonction('notes', 'inc', true);
-		}
-		if ($notes) {
-			$notes('', 'empiler');
-		}
-
-		// Rajouter d'office ces deux parametres
-		// (mais vaudrait mieux que le compilateur sache le simuler
-		// car ca interdit l'usage de criteres conditionnels dessus).
-		if (!isset($contexte['date'])) {
-			$contexte['date'] = date('Y-m-d H:i:s');
-			$contexte['date_default'] = true;
-		} else {
-			$contexte['date'] = normaliser_date($contexte['date'], true);
-		}
-
-		if (!isset($contexte['date_redac'])) {
-			$contexte['date_redac'] = date('Y-m-d H:i:s');
-			$contexte['date_redac_default'] = true;
-		} else {
-			$contexte['date_redac'] = normaliser_date($contexte['date_redac'], true);
-		}
-
-		// Passer le nom du cache pour produire sa destruction automatique
-		try {
-			$page = $fonc(['cache' => $cache], [$contexte]);
-		} catch (Throwable $e) {
-			$msg = _T('zbug_erreur_execution_page') . " $sourcefile";
-			$full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage();
-			$full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg);
-			$corps = "<pre>$msg</pre>";
-			$page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile);
-			erreur_squelette($full_msg);
-			unset($msg, $full_msg, $corps);
-		}
-
-		// Restituer les globales de notes telles qu'elles etaient avant l'appel
-		// Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent*
-		// etre dans son resultat, autrement elles ne seraient pas prises en
-		// compte a chaque calcul d'un texte contenant un modele, mais seulement
-		// quand le modele serait calcule, et on aurait des resultats incoherents)
-		if ($notes) {
-			$notes('', 'depiler');
-		}
-
-		// reinjecter en dynamique la pile des notes
-		// si il y a des inclure dynamiques
-		// si la pile n'est pas vide
-		// la generalisation de cette injection permettrait de corriger le point juste au dessus
-		// en faisant remonter les notes a l'incluant (A tester et valider avant application)
-		if ($notes) {
-			$page['notes'] = $notes('', 'sauver_etat');
-		}
-
-		// spip_log: un joli contexte
-		$infos = presenter_contexte(array_filter($contexte));
-
-		$profile = spip_timer($a);
-		spip_log("calcul ($profile) [$skel] $infos"
-			. ' (' . strlen($page['texte']) . ' octets)');
-
-		if (defined('_CALCUL_PROFILER') and intval($profile) > _CALCUL_PROFILER) {
-			spip_log("calcul ($profile) [$skel] $infos"
-				. ' (' . strlen($page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI'], 'profiler' . _LOG_AVERTISSEMENT);
-		}
-
-		if ($debug) {
-			// si c'est ce que demande le debusqueur, lui passer la main
-			$t = strlen($page['texte']) ? $page['texte'] : ' ';
-			$GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
-			$GLOBALS['debug_objets']['courant'] = $courant;
-			$GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
-			if (
-				$GLOBALS['debug_objets']['sourcefile']
-				and (_request('var_mode_objet') == $fonc)
-				and (_request('var_mode_affiche') == 'resultat')
-			) {
-				erreur_squelette();
-			}
-		}
-		// Si #CACHE{} n'etait pas la, le mettre a $delais
-		if (!isset($page['entetes']['X-Spip-Cache'])) {
-			// Dans l'espace prive ou dans un modeles/ on pose un cache 0 par defaut
-			// si aucun #CACHE{} spécifié
-			// le contexte implicite qui conditionne le cache assure qu'on retombe pas sur le meme
-			// entre public et prive
-			if (test_espace_prive() or strncmp($fond, 'modeles/', 8) == 0) {
-				$page['entetes']['X-Spip-Cache'] = 0;
-			} else {
-				$page['entetes']['X-Spip-Cache'] = isset($GLOBALS['delais']) ? $GLOBALS['delais'] : 36000;
-			}
-		}
-
-		$page['contexte'] = $contexte;
-
-		// faire remonter le fichier source
-		static $js_inclus = false;
-		if (defined('_VAR_INCLURE') and _VAR_INCLURE) {
-			$page['sourcefile'] = $sourcefile;
-			$page['texte'] =
-				"<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>'
-				. ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
-			$js_inclus = true;
-		}
-
-		// Si un modele contenait #SESSION, on note l'info dans $page
-		if (isset($GLOBALS['cache_utilise_session'])) {
-			$page['invalideurs']['session'] = $GLOBALS['cache_utilise_session'];
-			unset($GLOBALS['cache_utilise_session']);
-		}
-	}
-
-	if ($select) {
-		lang_select();
-	}
-
-	return $page;
+    static $composer, $styliser, $notes = null;
+    $page = tester_redirection($fond, $contexte, $connect);
+    if ($page) {
+        return $page;
+    }
+
+    if (isset($contexte['lang'])) {
+        $lang = $contexte['lang'];
+    } elseif (!isset($lang)) {
+        $lang = $GLOBALS['meta']['langue_site'];
+    }
+
+    $select = ((!isset($GLOBALS['forcer_lang']) or !$GLOBALS['forcer_lang']) and $lang <> $GLOBALS['spip_lang']);
+    if ($select) {
+        $select = lang_select($lang);
+    }
+
+    $debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug');
+
+    if (!$styliser) {
+        $styliser = charger_fonction('styliser', 'public');
+    }
+    list($skel, $mime_type, $gram, $sourcefile) =
+        $styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect);
+
+    if ($skel) {
+        // sauver le nom de l'eventuel squelette en cours d'execution
+        // (recursion possible a cause des modeles)
+        if ($debug) {
+            $courant = @$GLOBALS['debug_objets']['courant'];
+            $GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte;
+        }
+
+        // charger le squelette en specifiant les langages cibles et source
+        // au cas il faudrait le compiler (source posterieure au resultat)
+
+        if (!$composer) {
+            $composer = charger_fonction('composer', 'public');
+        }
+        $fonc = $composer($skel, $mime_type, $gram, $sourcefile, $connect);
+    } else {
+        $fonc = '';
+    }
+
+    if (!$fonc) { // squelette inconnu (==='') ou faux (===false)
+        $page = $fonc;
+    } else {
+        // Preparer l'appel de la fonction principale du squelette
+
+        spip_timer($a = 'calcul page ' . rand(0, 1000));
+
+        // On cree un marqueur de notes unique lie a cette composition
+        // et on enregistre l'etat courant des globales de notes...
+        if (is_null($notes)) {
+            $notes = charger_fonction('notes', 'inc', true);
+        }
+        if ($notes) {
+            $notes('', 'empiler');
+        }
+
+        // Rajouter d'office ces deux parametres
+        // (mais vaudrait mieux que le compilateur sache le simuler
+        // car ca interdit l'usage de criteres conditionnels dessus).
+        if (!isset($contexte['date'])) {
+            $contexte['date'] = date('Y-m-d H:i:s');
+            $contexte['date_default'] = true;
+        } else {
+            $contexte['date'] = normaliser_date($contexte['date'], true);
+        }
+
+        if (!isset($contexte['date_redac'])) {
+            $contexte['date_redac'] = date('Y-m-d H:i:s');
+            $contexte['date_redac_default'] = true;
+        } else {
+            $contexte['date_redac'] = normaliser_date($contexte['date_redac'], true);
+        }
+
+        // Passer le nom du cache pour produire sa destruction automatique
+        try {
+            $page = $fonc(['cache' => $cache], [$contexte]);
+        } catch (Throwable $e) {
+            $msg = _T('zbug_erreur_execution_page') . " $sourcefile";
+            $full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage();
+            $full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg);
+            $corps = "<pre>$msg</pre>";
+            $page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile);
+            erreur_squelette($full_msg);
+            unset($msg, $full_msg, $corps);
+        }
+
+        // Restituer les globales de notes telles qu'elles etaient avant l'appel
+        // Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent*
+        // etre dans son resultat, autrement elles ne seraient pas prises en
+        // compte a chaque calcul d'un texte contenant un modele, mais seulement
+        // quand le modele serait calcule, et on aurait des resultats incoherents)
+        if ($notes) {
+            $notes('', 'depiler');
+        }
+
+        // reinjecter en dynamique la pile des notes
+        // si il y a des inclure dynamiques
+        // si la pile n'est pas vide
+        // la generalisation de cette injection permettrait de corriger le point juste au dessus
+        // en faisant remonter les notes a l'incluant (A tester et valider avant application)
+        if ($notes) {
+            $page['notes'] = $notes('', 'sauver_etat');
+        }
+
+        // spip_log: un joli contexte
+        $infos = presenter_contexte(array_filter($contexte));
+
+        $profile = spip_timer($a);
+        spip_log("calcul ($profile) [$skel] $infos"
+            . ' (' . strlen($page['texte']) . ' octets)');
+
+        if (defined('_CALCUL_PROFILER') and intval($profile) > _CALCUL_PROFILER) {
+            spip_log("calcul ($profile) [$skel] $infos"
+                . ' (' . strlen($page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI'], 'profiler' . _LOG_AVERTISSEMENT);
+        }
+
+        if ($debug) {
+            // si c'est ce que demande le debusqueur, lui passer la main
+            $t = strlen($page['texte']) ? $page['texte'] : ' ';
+            $GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
+            $GLOBALS['debug_objets']['courant'] = $courant;
+            $GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
+            if (
+                $GLOBALS['debug_objets']['sourcefile']
+                and (_request('var_mode_objet') == $fonc)
+                and (_request('var_mode_affiche') == 'resultat')
+            ) {
+                erreur_squelette();
+            }
+        }
+        // Si #CACHE{} n'etait pas la, le mettre a $delais
+        if (!isset($page['entetes']['X-Spip-Cache'])) {
+            // Dans l'espace prive ou dans un modeles/ on pose un cache 0 par defaut
+            // si aucun #CACHE{} spécifié
+            // le contexte implicite qui conditionne le cache assure qu'on retombe pas sur le meme
+            // entre public et prive
+            if (test_espace_prive() or strncmp($fond, 'modeles/', 8) == 0) {
+                $page['entetes']['X-Spip-Cache'] = 0;
+            } else {
+                $page['entetes']['X-Spip-Cache'] = isset($GLOBALS['delais']) ? $GLOBALS['delais'] : 36000;
+            }
+        }
+
+        $page['contexte'] = $contexte;
+
+        // faire remonter le fichier source
+        static $js_inclus = false;
+        if (defined('_VAR_INCLURE') and _VAR_INCLURE) {
+            $page['sourcefile'] = $sourcefile;
+            $page['texte'] =
+                "<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>'
+                . ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
+            $js_inclus = true;
+        }
+
+        // Si un modele contenait #SESSION, on note l'info dans $page
+        if (isset($GLOBALS['cache_utilise_session'])) {
+            $page['invalideurs']['session'] = $GLOBALS['cache_utilise_session'];
+            unset($GLOBALS['cache_utilise_session']);
+        }
+    }
+
+    if ($select) {
+        lang_select();
+    }
+
+    return $page;
 }
 
 /**
@@ -210,33 +210,33 @@ 
  * @return string
 */
 function presenter_contexte($contexte, $profondeur_max = 1, $max_lines = 0) {
-	$infos = [];
-	$line = 0;
-	foreach ($contexte as $var => $val) {
-		$line++;
-		if ($max_lines and $max_lines < $line) {
-			$infos[] = '…';
-			break;
-		}
-		if (is_array($val)) {
-			if ($profondeur_max > 0) {
-				$val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')';
-			} else {
-				$val = 'array:' . count($val);
-			}
-		} elseif (is_object($val)) {
-			$val = get_class($val);
-		} elseif (strlen("$val") > 30) {
-			$val = substr("$val", 0, 29) . '…';
-			if (strstr($val, ' ')) {
-				$val = "'$val'";
-			}
-		} elseif (strstr($val, ' ')) {
-			$val = "'$val'";
-		}
-		$infos[] = $var . '=' . $val;
-	}
-	return join(', ', $infos);
+    $infos = [];
+    $line = 0;
+    foreach ($contexte as $var => $val) {
+        $line++;
+        if ($max_lines and $max_lines < $line) {
+            $infos[] = '…';
+            break;
+        }
+        if (is_array($val)) {
+            if ($profondeur_max > 0) {
+                $val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')';
+            } else {
+                $val = 'array:' . count($val);
+            }
+        } elseif (is_object($val)) {
+            $val = get_class($val);
+        } elseif (strlen("$val") > 30) {
+            $val = substr("$val", 0, 29) . '…';
+            if (strstr($val, ' ')) {
+                $val = "'$val'";
+            }
+        } elseif (strstr($val, ' ')) {
+            $val = "'$val'";
+        }
+        $infos[] = $var . '=' . $val;
+    }
+    return join(', ', $infos);
 }
 
 
@@ -253,11 +253,11 @@ 
  * @return array|bool
  */
 function tester_redirection($fond, $contexte, $connect) {
-	static $tester_redirection = null;
-	if (is_null($tester_redirection)) {
-		$tester_redirection = charger_fonction('tester_redirection', 'public');
-	}
-	return $tester_redirection($fond, $contexte, $connect);
+    static $tester_redirection = null;
+    if (is_null($tester_redirection)) {
+        $tester_redirection = charger_fonction('tester_redirection', 'public');
+    }
+    return $tester_redirection($fond, $contexte, $connect);
 }
 
 
@@ -273,42 +273,42 @@ 
  * @return array|bool
  */
 function public_tester_redirection_dist($fond, $contexte, $connect) {
-	if (
-		$fond == 'article'
-		and !empty($contexte['id_article'])
-		and $id_article = intval($contexte['id_article'])
-	) {
-		include_spip('public/quete'); // pour quete_virtuel et ses dependances
-		$m = quete_virtuel($id_article, $connect);
-		if (strlen($m)) {
-			include_spip('inc/texte');
-			// les navigateurs pataugent si l'URL est vide
-			if ($url = virtuel_redirige($m, true)) {
-				// passer en url absolue car cette redirection pourra
-				// etre utilisee dans un contexte d'url qui change
-				// y compris url arbo
-				$status = 302;
-				if (defined('_STATUS_REDIRECTION_VIRTUEL')) {
-					$status = _STATUS_REDIRECTION_VIRTUEL;
-				}
-				if (!preg_match(',^\w+:,', $url)) {
-					include_spip('inc/filtres_mini');
-					$url = url_absolue($url);
-				}
-				$url = str_replace('&amp;', '&', $url);
-
-				return [
-					'texte' => '<'
-						. "?php include_spip('inc/headers');redirige_par_entete('"
-						. texte_script($url)
-						. "','',$status);"
-						. '?' . '>',
-					'process_ins' => 'php',
-					'status' => $status
-				];
-			}
-		}
-	}
-
-	return false;
+    if (
+        $fond == 'article'
+        and !empty($contexte['id_article'])
+        and $id_article = intval($contexte['id_article'])
+    ) {
+        include_spip('public/quete'); // pour quete_virtuel et ses dependances
+        $m = quete_virtuel($id_article, $connect);
+        if (strlen($m)) {
+            include_spip('inc/texte');
+            // les navigateurs pataugent si l'URL est vide
+            if ($url = virtuel_redirige($m, true)) {
+                // passer en url absolue car cette redirection pourra
+                // etre utilisee dans un contexte d'url qui change
+                // y compris url arbo
+                $status = 302;
+                if (defined('_STATUS_REDIRECTION_VIRTUEL')) {
+                    $status = _STATUS_REDIRECTION_VIRTUEL;
+                }
+                if (!preg_match(',^\w+:,', $url)) {
+                    include_spip('inc/filtres_mini');
+                    $url = url_absolue($url);
+                }
+                $url = str_replace('&amp;', '&', $url);
+
+                return [
+                    'texte' => '<'
+                        . "?php include_spip('inc/headers');redirige_par_entete('"
+                        . texte_script($url)
+                        . "','',$status);"
+                        . '?' . '>',
+                    'process_ins' => 'php',
+                    'status' => $status
+                ];
+            }
+        }
+    }
+
+    return false;
 }

Spacing +12 added lines, -12 removed lines

@@ -80,7 +80,7 @@ 
 	} else {
 		// Preparer l'appel de la fonction principale du squelette
 
-		spip_timer($a = 'calcul page ' . rand(0, 1000));
+		spip_timer($a = 'calcul page '.rand(0, 1000));
 
 		// On cree un marqueur de notes unique lie a cette composition
 		// et on enregistre l'etat courant des globales de notes...
@@ -112,8 +112,8 @@ 
 		try {
 			$page = $fonc(['cache' => $cache], [$contexte]);
 		} catch (Throwable $e) {
-			$msg = _T('zbug_erreur_execution_page') . " $sourcefile";
-			$full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage();
+			$msg = _T('zbug_erreur_execution_page')." $sourcefile";
+			$full_msg = $msg.' | File '.$e->getFile().' Line '.$e->getLine().' : '.$e->getMessage();
 			$full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg);
 			$corps = "<pre>$msg</pre>";
 			$page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile);
@@ -144,17 +144,17 @@ 
 
 		$profile = spip_timer($a);
 		spip_log("calcul ($profile) [$skel] $infos"
-			. ' (' . strlen($page['texte']) . ' octets)');
+			. ' ('.strlen($page['texte']).' octets)');
 
 		if (defined('_CALCUL_PROFILER') and intval($profile) > _CALCUL_PROFILER) {
 			spip_log("calcul ($profile) [$skel] $infos"
-				. ' (' . strlen($page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI'], 'profiler' . _LOG_AVERTISSEMENT);
+				. ' ('.strlen($page['texte']).' octets) | '.$_SERVER['REQUEST_URI'], 'profiler'._LOG_AVERTISSEMENT);
 		}
 
 		if ($debug) {
 			// si c'est ce que demande le debusqueur, lui passer la main
 			$t = strlen($page['texte']) ? $page['texte'] : ' ';
-			$GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
+			$GLOBALS['debug_objets']['resultat'][$fonc.'tout'] = $t;
 			$GLOBALS['debug_objets']['courant'] = $courant;
 			$GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
 			if (
@@ -185,7 +185,7 @@ 
 		if (defined('_VAR_INCLURE') and _VAR_INCLURE) {
 			$page['sourcefile'] = $sourcefile;
 			$page['texte'] =
-				"<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>'
+				"<div class='inclure_blocs'><h6>".$page['sourcefile'].'</h6>'.$page['texte'].'</div>'
 				. ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
 			$js_inclus = true;
 		}
@@ -220,21 +220,21 @@ 
 		}
 		if (is_array($val)) {
 			if ($profondeur_max > 0) {
-				$val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')';
+				$val = 'array:'.count($val).'('.presenter_contexte($val, $profondeur_max - 1, 3).')';
 			} else {
-				$val = 'array:' . count($val);
+				$val = 'array:'.count($val);
 			}
 		} elseif (is_object($val)) {
 			$val = get_class($val);
 		} elseif (strlen("$val") > 30) {
-			$val = substr("$val", 0, 29) . '…';
+			$val = substr("$val", 0, 29).'…';
 			if (strstr($val, ' ')) {
 				$val = "'$val'";
 			}
 		} elseif (strstr($val, ' ')) {
 			$val = "'$val'";
 		}
-		$infos[] = $var . '=' . $val;
+		$infos[] = $var.'='.$val;
 	}
 	return join(', ', $infos);
 }
@@ -302,7 +302,7 @@ 
 						. "?php include_spip('inc/headers');redirige_par_entete('"
 						. texte_script($url)
 						. "','',$status);"
-						. '?' . '>',
+						. '?'.'>',
 					'process_ins' => 'php',
 					'status' => $status
 				];

ecrire/public/compiler.php

Indentation +1211 added lines, -1211 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** Repérer un code ne calculant rien, meme avec commentaire */
@@ -59,92 +59,92 @@ 
 
 // https://code.spip.net/@argumenter_inclure
 function argumenter_inclure(
-	$params,
-	$rejet_filtres,
-	$p,
-	&$boucles,
-	$id_boucle,
-	$echap = true,
-	$lang = '',
-	$fond1 = false
+    $params,
+    $rejet_filtres,
+    $p,
+    &$boucles,
+    $id_boucle,
+    $echap = true,
+    $lang = '',
+    $fond1 = false
 ) {
-	$l = [];
-	$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 = [
-						'zbug_parametres_inclus_incorrects',
-						['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);
-				$m = array_pad($m, 3, null);
-				$var = $m[1];
-				$auto = false;
+    $l = [];
+    $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 = [
+                        'zbug_parametres_inclus_incorrects',
+                        ['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);
+                $m = array_pad($m, 3, null);
+                $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;
+                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;
 }
 
 /**
@@ -168,83 +168,83 @@ 
  **/
 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 === '""' or $code === "''") {
-		$trace = $p->fonctions;
-		while (
-			is_array($trace)
-			and $trace = array_filter($trace)
-			and count($trace) == 1
-		) {
-			$trace = reset($trace);
-		}
-		$erreur_p_i_i = [
-			'zbug_parametres_inclus_incorrects',
-			['param' => print_r($trace, true)]
-		];
-		erreur_squelette($erreur_p_i_i, $p);
-
-		return "''";
-	}
-	$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 = 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 === '""' or $code === "''") {
+        $trace = $p->fonctions;
+        while (
+            is_array($trace)
+            and $trace = array_filter($trace)
+            and count($trace) == 1
+        ) {
+            $trace = reset($trace);
+        }
+        $erreur_p_i_i = [
+            'zbug_parametres_inclus_incorrects',
+            ['param' => print_r($trace, true)]
+        ];
+        erreur_squelette($erreur_p_i_i, $p);
+
+        return "''";
+    }
+    $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?'." . "'>'";
 }
 
 
@@ -262,7 +262,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.
@@ -286,74 +286,74 @@ 
 	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'] : [$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 = [];
-					// 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[] = ['', [$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'] : [$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 = [];
+                    // 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[] = ['', [$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)
+                );
+            }
+        }
+    }
 }
 
 /**
@@ -372,29 +372,29 @@ 
  */
 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 = "\$GLOBALS['debug_objets']['resultat']['$_trace']";
-		$trace = "
+    $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 = "\$GLOBALS['debug_objets']['resultat']['$_trace']";
+        $trace = "
 		if (empty($_trace)) { 
 			$_trace = []; 
 		}
 		if (count($_trace) < 3) { 
 			$_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);
 }
 
 
@@ -417,15 +417,15 @@ 
  *    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;";
 }
 
 /**
@@ -478,173 +478,173 @@ 
  **/
 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, [
-				'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, [
-				'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');
-		$corps = calcul_invalideurs($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']['command'] = \$command;\n\t"
-			. "\$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'])
-	);
+    $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, [
+                '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, [
+                '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');
+        $corps = calcul_invalideurs($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']['command'] = \$command;\n\t"
+            . "\$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;
 }
 
 
@@ -660,47 +660,47 @@ 
  *     Code PHP compilé définissant les informations de requête
  **/
 function calculer_requete_sql($boucle) {
-	$init = [];
-	$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 = '';
-	// l'index 0 de $i indique si l'affectation est statique (contenu)
-	// ou recalculée à chaque passage (vide)
-	foreach ($init as $i) {
-		if (reset($i)) {
-			$s .= "\n\t\t" . end($i);
-		} # statique
-		else {
-			$d .= "\n\t" . end($i);
-		} # dynamique
-	}
-
-	return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
-	. $boucle->in
-	. $boucle->hash
-	. "\n\t" . 'if (!isset($command[\'table\'])) {'
-	. $s
-	. "\n\t}"
-	. $d;
+    $init = [];
+    $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 = '';
+    // l'index 0 de $i indique si l'affectation est statique (contenu)
+    // ou recalculée à chaque passage (vide)
+    foreach ($init as $i) {
+        if (reset($i)) {
+            $s .= "\n\t\t" . end($i);
+        } # statique
+        else {
+            $d .= "\n\t" . end($i);
+        } # dynamique
+    }
+
+    return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
+    . $boucle->in
+    . $boucle->hash
+    . "\n\t" . 'if (!isset($command[\'table\'])) {'
+    . $s
+    . "\n\t}"
+    . $d;
 }
 
 /**
@@ -718,13 +718,13 @@ 
  *     qui peut être utilisé pour la production d'un tableau array()
  **/
 function memoriser_contexte_compil($p) {
-	return join(',', [
-		_q(isset($p->descr['sourcefile']) ? $p->descr['sourcefile'] : ''),
-		_q(isset($p->descr['nom']) ? $p->descr['nom'] : ''),
-		_q(isset($p->id_boucle) ? $p->id_boucle : null),
-		intval($p->ligne),
-		'$GLOBALS[\'spip_lang\']'
-	]);
+    return join(',', [
+        _q(isset($p->descr['sourcefile']) ? $p->descr['sourcefile'] : ''),
+        _q(isset($p->descr['nom']) ? $p->descr['nom'] : ''),
+        _q(isset($p->id_boucle) ? $p->id_boucle : null),
+        intval($p->ligne),
+        '$GLOBALS[\'spip_lang\']'
+    ]);
 }
 
 /**
@@ -742,19 +742,19 @@ 
  *     Objet Contexte
  **/
 function reconstruire_contexte_compil($context_compil) {
-	if (!is_array($context_compil)) {
-		return $context_compil;
-	}
-	$p = new Contexte();
-	$p->descr = [
-		'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 = [
+        '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;
 }
 
 /**
@@ -780,12 +780,12 @@ 
  *    - index 1 : Code de l'affectation
  **/
 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
@@ -793,11 +793,11 @@ 
 			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 [$static, '$command[\'' . $nom . '\'] = ' . $val . ';'];
+    return [$static, '$command[\'' . $nom . '\'] = ' . $val . ';'];
 }
 
 /**
@@ -817,33 +817,33 @@ 
  *     Expression PHP décrivant un texte ou un tableau
  **/
 function calculer_dump_array($a) {
-	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 {
-		foreach ($a as $k => $v) {
-			$showk = (is_numeric($k) ? '' : sql_quote($k) . ' => ');
-			$res .= ', ' . $showk . calculer_dump_array($v);
-		}
-
-		return "\n\t\t\tarray(" . substr($res, 2) . ')';
-	}
+    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 {
+        foreach ($a as $k => $v) {
+            $showk = (is_numeric($k) ? '' : sql_quote($k) . ' => ');
+            $res .= ', ' . $showk . calculer_dump_array($v);
+        }
+
+        return "\n\t\t\tarray(" . substr($res, 2) . ')';
+    }
 }
 
 // https://code.spip.net/@calculer_dump_join
 function calculer_dump_join($a) {
-	$res = '';
-	foreach ($a as $k => $v) {
-		$res .= ", '$k' => array(" . implode(',', $v) . ')';
-	}
+    $res = '';
+    foreach ($a as $k => $v) {
+        $res .= ", '$k' => array(" . implode(',', $v) . ')';
+    }
 
-	return 'array(' . substr($res, 2) . ')';
+    return 'array(' . substr($res, 2) . ')';
 }
 
 /**
@@ -855,12 +855,12 @@ 
  *     Code PHP construisant un tableau des alias et noms des tables du FROM
  **/
 function calculer_from(&$boucle) {
-	$res = '';
-	foreach ($boucle->from as $k => $v) {
-		$res .= ",'$k' => '$v'";
-	}
+    $res = '';
+    foreach ($boucle->from as $k => $v) {
+        $res .= ",'$k' => '$v'";
+    }
 
-	return 'array(' . substr($res, 1) . ')';
+    return 'array(' . substr($res, 1) . ')';
 }
 
 /**
@@ -873,31 +873,31 @@ 
  *     Code PHP construisant un tableau des alias et type de jointure du FROM
  **/
 function calculer_from_type(&$boucle) {
-	$res = '';
-	foreach ($boucle->from_type as $k => $v) {
-		$res .= ",'$k' => '$v'";
-	}
+    $res = '';
+    foreach ($boucle->from_type as $k => $v) {
+        $res .= ",'$k' => '$v'";
+    }
 
-	return 'array(' . substr($res, 1) . ')';
+    return 'array(' . substr($res, 1) . ')';
 }
 
 // https://code.spip.net/@calculer_order
 function calculer_order(&$boucle) {
-	if (
-		!$order = $boucle->order
-		and !$order = $boucle->default_order
-	) {
-		$order = [];
-	}
-
-	/*if (isset($boucle->modificateur['collate'])){
+    if (
+        !$order = $boucle->order
+        and !$order = $boucle->default_order
+    ) {
+        $order = [];
+    }
+
+    /*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
@@ -907,62 +907,62 @@ 
 
 // https://code.spip.net/@calculer_liste
 function calculer_liste($tableau, $descr, &$boucles, $id_boucle = '') {
-	if (!$tableau) {
-		return "''";
-	}
-	if (is_string($descr)) {
-		if (isset($boucles[$descr])) {
-			$idb = $descr;
-			$descr = [];
-			if (isset($boucles[$idb]->descr['id_mere_contexte'])) {
-				$descr['id_mere'] = $boucles[$idb]->descr['id_mere_contexte'];
-			}
-			if (isset($boucles[$idb]->descr['sourcefile'])) {
-				$descr['sourcefile'] = $boucles[$idb]->descr['sourcefile'];
-			}
-		}
-		else {
-			$descr = [];
-		}
-	}
-	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 (is_string($descr)) {
+        if (isset($boucles[$descr])) {
+            $idb = $descr;
+            $descr = [];
+            if (isset($boucles[$idb]->descr['id_mere_contexte'])) {
+                $descr['id_mere'] = $boucles[$idb]->descr['id_mere_contexte'];
+            }
+            if (isset($boucles[$idb]->descr['sourcefile'])) {
+                $descr['sourcefile'] = $boucles[$idb]->descr['sourcefile'];
+            }
+        }
+        else {
+            $descr = [];
+        }
+    }
+    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
+        ) . ')))';
+    }
 }
 
 
@@ -973,213 +973,213 @@ 
 // https://code.spip.net/@compile_cas
 function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 
-	$codes = [];
-	// 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(['\\', "'"], ['\\\\', "\\'"], $k) .
-						"' => '" .
-						str_replace(['\\', "'"], ['\\\\', "\\'"], $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']++;
-				$preaff = calculer_liste($p->preaff, $newdescr, $boucles, $id_boucle);
-				$avant = calculer_liste($p->avant, $newdescr, $boucles, $id_boucle);
-				$apres = calculer_liste($p->apres, $newdescr, $boucles, $id_boucle);
-				$postaff = calculer_liste($p->postaff, $newdescr, $boucles, $id_boucle);
-				$newdescr['niv']--;
-				$altern = calculer_liste($p->altern, $newdescr, $boucles, $id_boucle);
-				if (
-					$preaff === false
-					or $avant === false
-					or $apres === false
-					or $altern === false
-					or $postaff === 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 ($preaff != "''") {
-							$code .= "\n. $preaff";
-						}
-						if ($altern != "''") {
-							$code .= "\n. $altern";
-						}
-						if ($postaff != "''") {
-							$code .= "\n. $postaff";
-						}
-						if ($avant <> "''" or $apres <> "''") {
-							spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]");
-						}
-						$avant = $apres = $altern = "''";
-					} else {
-						if ($preaff != "''") {
-							$avant = compile_concatene_parties_codes($preaff, $avant);
-							$altern = compile_concatene_parties_codes($preaff, $altern);
-						}
-						if ($postaff != "''") {
-							$apres = compile_concatene_parties_codes($apres, $postaff);
-							$altern = compile_concatene_parties_codes($altern, $postaff);
-						}
-						if ($altern != "''") {
-							$altern = "($altern)";
-						}
-					}
-				}
-				break;
-
-			case 'idiome':
-				$l = [];
-				$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] != "'"
+    $codes = [];
+    // 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(['\\', "'"], ['\\\\', "\\'"], $k) .
+                        "' => '" .
+                        str_replace(['\\', "'"], ['\\\\', "\\'"], $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']++;
+                $preaff = calculer_liste($p->preaff, $newdescr, $boucles, $id_boucle);
+                $avant = calculer_liste($p->avant, $newdescr, $boucles, $id_boucle);
+                $apres = calculer_liste($p->apres, $newdescr, $boucles, $id_boucle);
+                $postaff = calculer_liste($p->postaff, $newdescr, $boucles, $id_boucle);
+                $newdescr['niv']--;
+                $altern = calculer_liste($p->altern, $newdescr, $boucles, $id_boucle);
+                if (
+                    $preaff === false
+                    or $avant === false
+                    or $apres === false
+                    or $altern === false
+                    or $postaff === 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 ($preaff != "''") {
+                            $code .= "\n. $preaff";
+                        }
+                        if ($altern != "''") {
+                            $code .= "\n. $altern";
+                        }
+                        if ($postaff != "''") {
+                            $code .= "\n. $postaff";
+                        }
+                        if ($avant <> "''" or $apres <> "''") {
+                            spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]");
+                        }
+                        $avant = $apres = $altern = "''";
+                    } else {
+                        if ($preaff != "''") {
+                            $avant = compile_concatene_parties_codes($preaff, $avant);
+                            $altern = compile_concatene_parties_codes($preaff, $altern);
+                        }
+                        if ($postaff != "''") {
+                            $apres = compile_concatene_parties_codes($apres, $postaff);
+                            $altern = compile_concatene_parties_codes($altern, $postaff);
+                        }
+                        if ($altern != "''") {
+                            $altern = "($altern)";
+                        }
+                    }
+                }
+                break;
+
+            case 'idiome':
+                $l = [];
+                $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;
 }
 
 /**
@@ -1189,13 +1189,13 @@ 
  * @return string
  */
 function compile_concatene_parties_codes($partie1, $partie2) {
-	if ($partie1 === "''") {
-		return $partie2;
-	}
-	if ($partie2 === "''") {
-		return $partie1;
-	}
-	return "$partie1\n. $partie2";
+    if ($partie1 === "''") {
+        return $partie2;
+    }
+    if ($partie2 === "''") {
+        return $partie1;
+    }
+    return "$partie1\n. $partie2";
 }
 
 
@@ -1220,56 +1220,56 @@ 
  * @return mixed|string
  */
 function compile_retour($code, $avant, $apres, $altern, $tab, $n) {
-	if ($avant === "''") {
-		$avant = '';
-	}
-	if ($apres === "''") {
-		$apres = '';
-	}
-	if ($avant or $apres or ($altern !== "''")) {
-		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)";
-		}
-
-		$code = (!$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)");
-	}
-
-	return $code;
+    if ($avant === "''") {
+        $avant = '';
+    }
+    if ($apres === "''") {
+        $apres = '';
+    }
+    if ($avant or $apres or ($altern !== "''")) {
+        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)";
+        }
+
+        $code = (!$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)");
+    }
+
+    return $code;
 }
 
 
 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,
@@ -1289,360 +1289,360 @@ 
 
 // https://code.spip.net/@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(
-		',\\\\([#[()\]{}<>]),',
-		function ($a) use ($inerte) {
-			return "$inerte-" . ord($a[1]) . '-';
-		},
-		$squelette,
-		-1,
-		$esc
-	);
-
-	$descr = [
-		'nom' => $nom,
-		'gram' => $gram,
-		'sourcefile' => $sourcefile,
-		'squelette' => $squelette
-	];
-
-	// Phraser le squelette, selon sa grammaire
-
-	$boucles = [];
-	$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+)-,",
-				function ($a) {
-					return chr($a[1]);
-				},
-				$boucle->return
-			);
-			$boucles[$i]->descr['squelette'] = preg_replace_callback(
-				",$inerte-(\d+)-,",
-				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')) .
-					($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') .
-					" */\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;
+    // 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(
+        ',\\\\([#[()\]{}<>]),',
+        function ($a) use ($inerte) {
+            return "$inerte-" . ord($a[1]) . '-';
+        },
+        $squelette,
+        -1,
+        $esc
+    );
+
+    $descr = [
+        'nom' => $nom,
+        'gram' => $gram,
+        'sourcefile' => $sourcefile,
+        'squelette' => $squelette
+    ];
+
+    // Phraser le squelette, selon sa grammaire
+
+    $boucles = [];
+    $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+)-,",
+                function ($a) {
+                    return chr($a[1]);
+                },
+                $boucle->return
+            );
+            $boucles[$i]->descr['squelette'] = preg_replace_callback(
+                ",$inerte-(\d+)-,",
+                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')) .
+                    ($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') .
+                    " */\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
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	// reperer si les doublons sont demandes
-	// pour un inclure ou une boucle document
-	// c'est utile a la fonction champs_traitements
-	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 = isset($show['key']['PRIMARY KEY']) ? $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';
-
-						if (empty($boucles[$id]->descr)) {
-							$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 = [
-								'zbug_table_inconnue',
-								['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 = [
-					'zbug_boucle_recursive_undef',
-					['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(
-						[$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
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    // reperer si les doublons sont demandes
+    // pour un inclure ou une boucle document
+    // c'est utile a la fonction champs_traitements
+    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 = isset($show['key']['PRIMARY KEY']) ? $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';
+
+                        if (empty($boucles[$id]->descr)) {
+                            $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 = [
+                                'zbug_table_inconnue',
+                                ['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 = [
+                    'zbug_boucle_recursive_undef',
+                    ['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(
+                        [$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;
+        $sourcefile .
+        ($connect ? " pour $connect" : '') .
+        (!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
+        "\n//\n" .
+        $principal;
 
-	$boucles[''] = $code;
+    $boucles[''] = $code;
 
-	return $boucles;
+    return $boucles;
 }
 
 
@@ -1659,18 +1659,18 @@ 
  *
  **/
 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 = [
-			'zbug_iterateur_inconnu',
-			['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 = [
+            'zbug_iterateur_inconnu',
+            ['iterateur' => $x]
+        ];
+        erreur_squelette($msg, $boucle);
+    }
 }
 
 
@@ -1688,22 +1688,22 @@ 
  *
  **/
 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;
-	} else {
-		$x = $boucle->type_requete;
-		$boucle->type_requete = false;
-		$msg = [
-			'zbug_requeteur_inconnu',
-			[
-				'requeteur' => 'data',
-				'type' => $x
-			]
-		];
-		erreur_squelette($msg, $boucle);
-	}
+    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 = [
+            'zbug_requeteur_inconnu',
+            [
+                'requeteur' => 'data',
+                'type' => $x
+            ]
+        ];
+        erreur_squelette($msg, $boucle);
+    }
 }

Spacing +111 added lines, -119 removed lines

@@ -121,7 +121,7 @@ 
 						: calculer_liste($val, $p->descr, $boucles, $id_boucle);
 					if ($var !== 1) {
 						$val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ")
-							. $val . ($echap ? ") . '" : ' ');
+							. $val.($echap ? ") . '" : ' ');
 					} else {
 						$val = $echap ? "'.$val.'" : $val;
 					}
@@ -142,7 +142,7 @@ 
 	if (!$lang) {
 		$lang = '$GLOBALS["spip_lang"]';
 	}
-	$l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : ' ');
+	$l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ").$lang.($echap ? ") . '" : ' ');
 
 	return $l;
 }
@@ -171,7 +171,7 @@ 
 	$_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true);
 	if (is_string($p->texte)) {
 		$fichier = $p->texte;
-		$code = '"' . str_replace('"', '\"', $fichier) . '"';
+		$code = '"'.str_replace('"', '\"', $fichier).'"';
 	} else {
 		$code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle);
 		if ($code and preg_match("/^'([^']*)'/s", $code, $r)) {
@@ -220,7 +220,7 @@ 
 		return false;
 	} // j'aurais voulu toucher le fond ...
 
-	$contexte = 'array(' . $_contexte . ')';
+	$contexte = 'array('.$_contexte.')';
 
 	if ($env) {
 		$contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)";
@@ -235,16 +235,16 @@ 
 			$_options[] = $ajax;
 		}
 		$code = " ' . argumenter_squelette($code) . '";
-		$code = 'echo ' . sprintf(
+		$code = 'echo '.sprintf(
 			CODE_RECUPERER_FOND,
 			$code,
 			$contexte,
 			implode(',', $_options),
 			'_request("connect")'
-		) . ';';
+		).';';
 	}
 
-	return "\n'<'.'" . '?php ' . $code . "\n?'." . "'>'";
+	return "\n'<'.'".'?php '.$code."\n?'."."'>'";
 }
 
 
@@ -324,7 +324,7 @@ 
 					$id = $id_table;
 					$statut = preg_replace(',\W,', '', $s['champ']); // securite
 				}
-				$mstatut = $id . '.' . $statut;
+				$mstatut = $id.'.'.$statut;
 
 				$arg_ignore_previsu = ($ignore_previsu ? ',true' : '');
 				include_spip('public/quete');
@@ -332,11 +332,11 @@ 
 					isset($s['post_date']) and $s['post_date']
 					and $GLOBALS['meta']['post_dates'] == 'non'
 				) {
-					$date = $id . '.' . preg_replace(',\W,', '', $s['post_date']); // securite
+					$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)"
+							"\nquete_condition_postdates('$date',"._q($boucle->sql_serveur)."$arg_ignore_previsu)"
 							:
 							quete_condition_postdates($date, $boucle->sql_serveur, $ignore_previsu)
 					);
@@ -345,9 +345,9 @@ 
 					$boucle->where,
 					$echapper ?
 						"\nquete_condition_statut('$mstatut',"
-						. _q($s['previsu']) . ','
-						. _q($s['publie']) . ','
-						. _q($boucle->sql_serveur) . "$arg_ignore_previsu)"
+						. _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)
 				);
@@ -381,14 +381,14 @@ 
 	if (_request('var_mode_affiche') != 'resultat') {
 		$trace = '';
 	} else {
-		$_trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle;
+		$_trace = $boucles[$id_boucle]->descr['nom'].$id_boucle;
 		$_trace = "\$GLOBALS['debug_objets']['resultat']['$_trace']";
 		$trace = "
 		if (empty($_trace)) { 
 			$_trace = []; 
 		}
 		if (count($_trace) < 3) { 
-			$_trace" . '[] = $t0; 
+			$_trace".'[] = $t0; 
 		}';
 	}
 
@@ -422,7 +422,7 @@ 
 	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\$t0 = ".$boucles[$id_boucle]->return.';'
 		. "\n\t\$Numrows['$nom'] = (\$save_numrows);"
 		. $trace
 		. "\n\treturn \$t0;";
@@ -489,7 +489,7 @@ 
 	// 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] .= "," . ' .
+		$corps .= "\n\t\t\tforeach(".$boucle->doublons.' as $k) $doublons[$k] .= "," . '.
 			index_pile($id_boucle, $primary, $boucles)
 			. "; // doublons\n";
 	}
@@ -517,13 +517,13 @@ 
 		$corps .=
 			"\n\t\tlang_select_public("
 			. index_pile($id_boucle, 'lang', $boucles)
-			. ", '" . $boucle->lang_select . "'"
+			. ", '".$boucle->lang_select."'"
 			. (in_array($type_boucle, [
 				'articles',
 				'rubriques',
 				'hierarchie',
 				'breves'
-			]) ? ', ' . index_pile($id_boucle, 'titre', $boucles) : '')
+			]) ? ', '.index_pile($id_boucle, 'titre', $boucles) : '')
 			. ');';
 	} else {
 		$init_lang = '';
@@ -545,20 +545,16 @@ 
 
 	// gestion optimale des separateurs et des boucles constantes
 	if (count($boucle->separateur)) {
-		$code_sep = ("'" . str_replace("'", "\'", join('', $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 " .
+			(($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;"));
+					('.='.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
@@ -640,7 +636,7 @@ 
 		$corps,
 		$fin_lang,
 		$trace,
-		'BOUCLE' . $id_boucle . ' @ ' . ($boucle->descr['sourcefile'])
+		'BOUCLE'.$id_boucle.' @ '.($boucle->descr['sourcefile'])
 	);
 
 #	var_dump($a);exit;
@@ -661,23 +657,23 @@ 
  **/
 function calculer_requete_sql($boucle) {
 	$init = [];
-	$init[] = calculer_dec('table', "'" . $boucle->id_table . "'");
-	$init[] = calculer_dec('id', "'" . $boucle->id_boucle . "'");
+	$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 . '"' : '') . ')'
+		'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('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."'"
 			:
 		$boucle->limit)
 	);
@@ -687,17 +683,17 @@ 
 	// ou recalculée à chaque passage (vide)
 	foreach ($init as $i) {
 		if (reset($i)) {
-			$s .= "\n\t\t" . end($i);
+			$s .= "\n\t\t".end($i);
 		} # statique
 		else {
-			$d .= "\n\t" . end($i);
+			$d .= "\n\t".end($i);
 		} # dynamique
 	}
 
 	return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
 	. $boucle->in
 	. $boucle->hash
-	. "\n\t" . 'if (!isset($command[\'table\'])) {'
+	. "\n\t".'if (!isset($command[\'table\'])) {'
 	. $s
 	. "\n\t}"
 	. $d;
@@ -780,7 +776,7 @@ 
  *    - index 1 : Code de l'affectation
  **/
 function calculer_dec($nom, $val) {
-	$static = 'if (!isset($command[\'' . $nom . '\'])) ';
+	$static = 'if (!isset($command[\''.$nom.'\'])) ';
 	// si une variable apparait dans le calcul de la clause
 	// il faut la re-evaluer a chaque passage
 	if (
@@ -797,7 +793,7 @@ 
 		$static = '';
 	}
 
-	return [$static, '$command[\'' . $nom . '\'] = ' . $val . ';'];
+	return [$static, '$command[\''.$nom.'\'] = '.$val.';'];
 }
 
 /**
@@ -822,17 +818,17 @@ 
 	}
 	$res = '';
 	if ($a and $a[0] == "'?'") {
-		return ('(' . calculer_dump_array($a[1]) .
-			' ? ' . calculer_dump_array($a[2]) .
-			' : ' . calculer_dump_array($a[3]) .
+		return ('('.calculer_dump_array($a[1]).
+			' ? '.calculer_dump_array($a[2]).
+			' : '.calculer_dump_array($a[3]).
 			')');
 	} else {
 		foreach ($a as $k => $v) {
-			$showk = (is_numeric($k) ? '' : sql_quote($k) . ' => ');
-			$res .= ', ' . $showk . calculer_dump_array($v);
+			$showk = (is_numeric($k) ? '' : sql_quote($k).' => ');
+			$res .= ', '.$showk.calculer_dump_array($v);
 		}
 
-		return "\n\t\t\tarray(" . substr($res, 2) . ')';
+		return "\n\t\t\tarray(".substr($res, 2).')';
 	}
 }
 
@@ -840,10 +836,10 @@ 
 function calculer_dump_join($a) {
 	$res = '';
 	foreach ($a as $k => $v) {
-		$res .= ", '$k' => array(" . implode(',', $v) . ')';
+		$res .= ", '$k' => array(".implode(',', $v).')';
 	}
 
-	return 'array(' . substr($res, 2) . ')';
+	return 'array('.substr($res, 2).')';
 }
 
 /**
@@ -860,7 +856,7 @@ 
 		$res .= ",'$k' => '$v'";
 	}
 
-	return 'array(' . substr($res, 1) . ')';
+	return 'array('.substr($res, 1).')';
 }
 
 /**
@@ -878,7 +874,7 @@ 
 		$res .= ",'$k' => '$v'";
 	}
 
-	return 'array(' . substr($res, 1) . ')';
+	return 'array('.substr($res, 1).')';
 }
 
 // https://code.spip.net/@calculer_order
@@ -949,19 +945,19 @@ 
 				) {
 					$res .= " .\n$tab$code";
 				} else {
-					$res = substr($res, 0, -1) . substr($code, 1);
+					$res = substr($res, 0, -1).substr($code, 1);
 				}
 			}
 
-			return '(' . substr($res, 2 + $descr['niv']) . ')';
+			return '('.substr($res, 2 + $descr['niv']).')';
 		}
 	} else {
-		$nom = $descr['nom'] . $id_boucle . ($descr['niv'] ? $descr['niv'] : '');
+		$nom = $descr['nom'].$id_boucle.($descr['niv'] ? $descr['niv'] : '');
 
-		return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" . join(
+		return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(".join(
 			" ,\n$tab",
 			$codes
-		) . ')))';
+		).')))';
 	}
 }
 
@@ -989,7 +985,7 @@ 
 			// texte seul
 			case 'texte':
 				$code = sandbox_composer_texte($p->texte, $p);
-				$commentaire = strlen($p->texte) . ' signes';
+				$commentaire = strlen($p->texte).' signes';
 				$avant = '';
 				$apres = '';
 				$altern = "''";
@@ -998,14 +994,14 @@ 
 			case 'polyglotte':
 				$code = '';
 				foreach ($p->traductions as $k => $v) {
-					$code .= ",'" .
-						str_replace(['\\', "'"], ['\\\\', "\\'"], $k) .
-						"' => '" .
-						str_replace(['\\', "'"], ['\\\\', "\\'"], $v) .
+					$code .= ",'".
+						str_replace(['\\', "'"], ['\\\\', "\\'"], $k).
+						"' => '".
+						str_replace(['\\', "'"], ['\\\\', "\\'"], $v).
 						"'";
 				}
-				$code = 'choisir_traduction(array(' .
-					substr($code, 1) .
+				$code = 'choisir_traduction(array('.
+					substr($code, 1).
 					'))';
 				$commentaire = '&';
 				$avant = '';
@@ -1021,7 +1017,7 @@ 
 					$err_e_c = true;
 					$code = "''";
 				} else {
-					$commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
+					$commentaire = '<INCLURE '.addslashes(str_replace("\n", ' ', $code)).'>';
 					$avant = '';
 					$apres = '';
 					$altern = "''";
@@ -1050,8 +1046,8 @@ 
 					$err_e_c = true;
 					$code = "''";
 				} else {
-					$code = 'BOUCLE' .
-						str_replace('-', '_', $nom) . $descr['nom'] .
+					$code = 'BOUCLE'.
+						str_replace('-', '_', $nom).$descr['nom'].
 						'($Cache, $Pile, $doublons, $Numrows, $SP)';
 					$commentaire = "?$nom";
 					if (
@@ -1093,24 +1089,22 @@ 
 				foreach ($p->arg as $k => $v) {
 					$_v = calculer_liste($v, $descr, $boucles, $id_boucle);
 					if ($k) {
-						$l[] = _q($k) . ' => ' . $_v;
+						$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;
+					$m = $p->module.':'.$p->nom_champ;
 				} elseif ($p->nom_champ) {
-					$m = MODULES_IDIOMES . ':' . $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 = (!$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;
@@ -1132,7 +1126,7 @@ 
 				$p->type_requete = $type;
 
 				$code = calculer_champ($p);
-				$commentaire = '#' . $p->nom_champ . $p->etoile;
+				$commentaire = '#'.$p->nom_champ.$p->etoile;
 				$avant = calculer_liste(
 					$p->avant,
 					$descr,
@@ -1172,10 +1166,9 @@ 
 		if ($code != "''") {
 			$code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
 			$codes[] = (($mode == 'validation') ?
-				"array($code, '$commentaire', " . $p->ligne . ')'
+				"array($code, '$commentaire', ".$p->ligne.')'
 				: (($mode == 'code') ?
-					"\n// $commentaire\n$code" :
-					$code));
+					"\n// $commentaire\n$code" : $code));
 		}
 	} // foreach
 
@@ -1232,19 +1225,19 @@ 
 			$cond = '';
 		} elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE, $code, $r)) {
 			$t = $r[2];
-			$cond = '!' . $r[1];
+			$cond = '!'.$r[1];
 		} else {
 			if (preg_match(_REGEXP_COND_NONVIDE_VIDE, $code, $r)) {
 				$t = $r[2];
 				$cond = $r[1];
 			} else {
-				$t = '$t' . $n;
+				$t = '$t'.$n;
 				$cond = "($t = $code)!==''";
 			}
 		}
 
-		$res = (!$avant ? '' : "$avant . ") .
-			$t .
+		$res = (!$avant ? '' : "$avant . ").
+			$t.
 			(!$apres ? '' : " . $apres");
 
 		if ($res !== $t) {
@@ -1296,13 +1289,13 @@ 
 
 	// rendre inertes les echappements de #[](){}<>
 	$i = 0;
-	while (false !== strpos($squelette, $inerte = '-INERTE' . $i)) {
+	while (false !== strpos($squelette, $inerte = '-INERTE'.$i)) {
 		$i++;
 	}
 	$squelette = preg_replace_callback(
 		',\\\\([#[()\]{}<>]),',
-		function ($a) use ($inerte) {
-			return "$inerte-" . ord($a[1]) . '-';
+		function($a) use ($inerte) {
+			return "$inerte-".ord($a[1]).'-';
 		},
 		$squelette,
 		-1,
@@ -1319,7 +1312,7 @@ 
 	// Phraser le squelette, selon sa grammaire
 
 	$boucles = [];
-	$f = charger_fonction('phraser_' . $gram, 'public');
+	$f = charger_fonction('phraser_'.$gram, 'public');
 
 	$squelette = $f($squelette, '', $boucles, $descr);
 
@@ -1330,15 +1323,15 @@ 
 		foreach ($boucles as $i => $boucle) {
 			$boucles[$i]->return = preg_replace_callback(
 				",$inerte-(\d+)-,",
-				function ($a) {
+				function($a) {
 					return chr($a[1]);
 				},
 				$boucle->return
 			);
 			$boucles[$i]->descr['squelette'] = preg_replace_callback(
 				",$inerte-(\d+)-,",
-				function ($a) {
-					return '\\\\' . chr($a[1]);
+				function($a) {
+					return '\\\\'.chr($a[1]);
 				},
 				$boucle->descr['squelette']
 			);
@@ -1350,19 +1343,19 @@ 
 		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')) .
-					($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') .
+				$decomp = "\n/* BOUCLE ".
+					$boucle->type_requete.
+					' '.
+					str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')).
+					($boucle->debug ? "\n *\n * ".implode("\n * ", $boucle->debug)."\n" : '').
 					" */\n";
 			} else {
-				$decomp = ("\n/*\n" .
+				$decomp = ("\n/*\n".
 					str_replace('*/', '* /', public_decompiler($squelette, $gram))
 					. "\n*/");
 			}
-			$boucles[$id]->return = $decomp . $boucle->return;
-			$GLOBALS['debug_objets']['code'][$nom . $id] = $boucle->return;
+			$boucles[$id]->return = $decomp.$boucle->return;
+			$GLOBALS['debug_objets']['code'][$nom.$id] = $boucle->return;
 		}
 	}
 
@@ -1385,7 +1378,7 @@ 
 		}
 	}
 	foreach ($boucles as $id => $boucle) {
-		$GLOBALS['debug_objets']['boucle'][$nom . $id] = $boucle;
+		$GLOBALS['debug_objets']['boucle'][$nom.$id] = $boucle;
 	}
 	$descr['documents'] = compile_inclure_doublons($squelette);
 
@@ -1476,8 +1469,7 @@ 
 						} else {
 							$boucles[$id]->type_requete = false;
 							$boucle = $boucles[$id];
-							$x = (!$boucle->sql_serveur ? '' :
-									($boucle->sql_serveur . ':')) .
+							$x = (!$boucle->sql_serveur ? '' : ($boucle->sql_serveur.':')).
 								$type;
 							$msg = [
 								'zbug_table_inconnue',
@@ -1567,13 +1559,13 @@ 
 			if (
 				// fonction de boucle avec serveur & table
 				(!$serveur or
-					((!function_exists($f = 'boucle_' . $serveur . '_' . $table))
-						and (!function_exists($f = $f . '_dist'))
+					((!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'))
+				and (!function_exists($f = 'boucle_'.$table))
+				and (!function_exists($f = $f.'_dist'))
 			) {
 				// fonction de boucle standard
 				if (!function_exists($f = 'boucle_DEFAUT')) {
@@ -1581,20 +1573,20 @@ 
 				}
 			}
 
-			$req = "\n\n\tstatic \$command = array();\n\t" .
-				"static \$connect;\n\t" .
-				"\$command['connect'] = \$connect = " .
-				_q($boucle->sql_serveur) .
-				';' .
+			$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\nfunction BOUCLE".strtr($id, '-', '_').$nom.
+			'(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {'.
+			$req.
 			"\n}\n";
 	}
 
@@ -1604,7 +1596,7 @@ 
 		return false;
 	}
 
-	$principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) {
+	$principal = "\nfunction ".$nom.'($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) {
 '
 		// reporter de maniere securisee les doublons inclus
 		. '
@@ -1612,15 +1604,15 @@ 
 		$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 . ';
+		$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');
@@ -1634,10 +1626,10 @@ 
 	$code->return = '
 //
 // Fonction principale du squelette ' .
-		$sourcefile .
-		($connect ? " pour $connect" : '') .
-		(!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
-		"\n//\n" .
+		$sourcefile.
+		($connect ? " pour $connect" : '').
+		(!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes").
+		"\n//\n".
 		$principal;
 
 	$boucles[''] = $code;
@@ -1689,7 +1681,7 @@ 
  **/
 function requeteur_data_dist(&$boucles, &$boucle, &$id) {
 	include_spip('iterateur/data');
-	if ($h = charger_fonction($boucle->type_requete . '_to_array', 'inc', true)) {
+	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, ...)

Braces +1 added lines, -2 removed lines

@@ -920,8 +920,7 @@
 			if (isset($boucles[$idb]->descr['sourcefile'])) {
 				$descr['sourcefile'] = $boucles[$idb]->descr['sourcefile'];
 			}
-		}
-		else {
+		} else {
 			$descr = [];
 		}
 	}

ecrire/public/phraser_html.php

Indentation +1032 added lines, -1032 removed lines

@@ -20,7 +20,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** Début de la partie principale d'une boucle */
@@ -65,83 +65,83 @@ 
 // https://code.spip.net/@phraser_inclure
 function phraser_inclure($texte, $ligne, $result) {
 
-	while (preg_match(BALISE_INCLURE, $texte, $match)) {
-		$match = array_pad($match, 3, null);
-		$p = strpos($texte, $match[0]);
-		$debut = substr($texte, 0, $p);
-		if ($p) {
-			$result = phraser_idiomes($debut, $ligne, $result);
-		}
-		$ligne += substr_count($debut, "\n");
-		$champ = new Inclure();
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		$fichier = $match[2];
-		# assurer ici la migration .php3 => .php
-		# et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
-		if ($fichier and preg_match(',^(.*[.]php)3$,', $fichier, $r)) {
-			$fichier = $r[1];
-		}
-		$champ->texte = ($fichier !== 'page.php') ? $fichier : '';
-		$texte = substr($texte, $p + strlen($match[0]));
-		// on assimile {var=val} a une liste de un argument sans fonction
-		$pos_apres = 0;
-		phraser_args($texte, '/>', '', $result, $champ, $pos_apres);
-		if (!$champ->texte or count($champ->param) > 1) {
-			if (!function_exists('normaliser_inclure')) {
-				include_spip('public/normaliser');
-			}
-			normaliser_inclure($champ);
-		}
-		$texte = substr($texte, strpos($texte, '>', $pos_apres) + 1);
-		$texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
-		$result[] = $champ;
-	}
-
-	return (($texte === '') ? $result : phraser_idiomes($texte, $ligne, $result));
+    while (preg_match(BALISE_INCLURE, $texte, $match)) {
+        $match = array_pad($match, 3, null);
+        $p = strpos($texte, $match[0]);
+        $debut = substr($texte, 0, $p);
+        if ($p) {
+            $result = phraser_idiomes($debut, $ligne, $result);
+        }
+        $ligne += substr_count($debut, "\n");
+        $champ = new Inclure();
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        $fichier = $match[2];
+        # assurer ici la migration .php3 => .php
+        # et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
+        if ($fichier and preg_match(',^(.*[.]php)3$,', $fichier, $r)) {
+            $fichier = $r[1];
+        }
+        $champ->texte = ($fichier !== 'page.php') ? $fichier : '';
+        $texte = substr($texte, $p + strlen($match[0]));
+        // on assimile {var=val} a une liste de un argument sans fonction
+        $pos_apres = 0;
+        phraser_args($texte, '/>', '', $result, $champ, $pos_apres);
+        if (!$champ->texte or count($champ->param) > 1) {
+            if (!function_exists('normaliser_inclure')) {
+                include_spip('public/normaliser');
+            }
+            normaliser_inclure($champ);
+        }
+        $texte = substr($texte, strpos($texte, '>', $pos_apres) + 1);
+        $texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
+        $result[] = $champ;
+    }
+
+    return (($texte === '') ? $result : phraser_idiomes($texte, $ligne, $result));
 }
 
 // https://code.spip.net/@phraser_polyglotte
 function phraser_polyglotte($texte, $ligne, $result) {
 
-	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
-		foreach ($m as $match) {
-			$p = strpos($texte, $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p) {
-				$champ = new Texte();
-				$champ->texte = $debut;
-				$champ->ligne = $ligne;
-				$result[] = $champ;
-				$ligne += substr_count($champ->texte, "\n");
-			}
-
-			$champ = new Polyglotte();
-			$champ->ligne = $ligne;
-			$ligne += substr_count($match[0], "\n");
-			$lang = '';
-			$bloc = $match[1];
-			$texte = substr($texte, $p + strlen($match[0]));
-			while (preg_match('/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si', $bloc, $regs)) {
-				$trad = $regs[1];
-				if ($trad or $lang) {
-					$champ->traductions[$lang] = $trad;
-				}
-				$lang = $regs[2];
-				$bloc = $regs[3];
-			}
-			$champ->traductions[$lang] = $bloc;
-			$result[] = $champ;
-		}
-	}
-	if ($texte !== '') {
-		$champ = new Texte();
-		$champ->texte = $texte;
-		$champ->ligne = $ligne;
-		$result[] = $champ;
-	}
-
-	return $result;
+    if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
+        foreach ($m as $match) {
+            $p = strpos($texte, $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p) {
+                $champ = new Texte();
+                $champ->texte = $debut;
+                $champ->ligne = $ligne;
+                $result[] = $champ;
+                $ligne += substr_count($champ->texte, "\n");
+            }
+
+            $champ = new Polyglotte();
+            $champ->ligne = $ligne;
+            $ligne += substr_count($match[0], "\n");
+            $lang = '';
+            $bloc = $match[1];
+            $texte = substr($texte, $p + strlen($match[0]));
+            while (preg_match('/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si', $bloc, $regs)) {
+                $trad = $regs[1];
+                if ($trad or $lang) {
+                    $champ->traductions[$lang] = $trad;
+                }
+                $lang = $regs[2];
+                $bloc = $regs[3];
+            }
+            $champ->traductions[$lang] = $bloc;
+            $result[] = $champ;
+        }
+    }
+    if ($texte !== '') {
+        $champ = new Texte();
+        $champ->texte = $texte;
+        $champ->ligne = $ligne;
+        $result[] = $champ;
+    }
+
+    return $result;
 }
 
 
@@ -163,43 +163,43 @@ 
  * @return array
  **/
 function phraser_idiomes($texte, $ligne, $result) {
-	while (preg_match(BALISE_IDIOMES, $texte, $match)) {
-		$match = array_pad($match, 8, null);
-		$p = strpos($texte, $match[0]);
-		$ko = (!$match[3] && ($match[5][0] !== '='));
-		$debut = substr($texte, 0, $p + ($ko ? strlen($match[0]) : 0));
-		if ($debut) {
-			$result = phraser_champs($debut, $ligne, $result);
-		}
-		$texte = substr($texte, $p + strlen($match[0]));
-		$ligne += substr_count($debut, "\n");
-		if ($ko) {
-			continue;
-		} // faux idiome
-		$champ = new Idiome();
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		// Stocker les arguments de la balise de traduction
-		$args = [];
-		$largs = $match[5];
-		while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
-			$args[$r[1]] = phraser_champs($r[2], 0, []);
-			$largs = substr($largs, strlen($r[0]));
-		}
-		$champ->arg = $args;
-		$champ->nom_champ = strtolower($match[3]);
-		$champ->module = $match[2];
-		// pas d'imbrication pour les filtres sur langue
-		$pos_apres = 0;
-		phraser_args($match[7], ':', '', [], $champ, $pos_apres);
-		$champ->apres = substr($match[7], $pos_apres);
-		$result[] = $champ;
-	}
-	if ($texte !== '') {
-		$result = phraser_champs($texte, $ligne, $result);
-	}
-
-	return $result;
+    while (preg_match(BALISE_IDIOMES, $texte, $match)) {
+        $match = array_pad($match, 8, null);
+        $p = strpos($texte, $match[0]);
+        $ko = (!$match[3] && ($match[5][0] !== '='));
+        $debut = substr($texte, 0, $p + ($ko ? strlen($match[0]) : 0));
+        if ($debut) {
+            $result = phraser_champs($debut, $ligne, $result);
+        }
+        $texte = substr($texte, $p + strlen($match[0]));
+        $ligne += substr_count($debut, "\n");
+        if ($ko) {
+            continue;
+        } // faux idiome
+        $champ = new Idiome();
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        // Stocker les arguments de la balise de traduction
+        $args = [];
+        $largs = $match[5];
+        while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
+            $args[$r[1]] = phraser_champs($r[2], 0, []);
+            $largs = substr($largs, strlen($r[0]));
+        }
+        $champ->arg = $args;
+        $champ->nom_champ = strtolower($match[3]);
+        $champ->module = $match[2];
+        // pas d'imbrication pour les filtres sur langue
+        $pos_apres = 0;
+        phraser_args($match[7], ':', '', [], $champ, $pos_apres);
+        $champ->apres = substr($match[7], $pos_apres);
+        $result[] = $champ;
+    }
+    if ($texte !== '') {
+        $result = phraser_champs($texte, $ligne, $result);
+    }
+
+    return $result;
 }
 
 /**
@@ -217,47 +217,47 @@ 
  * @return array
  **/
 function phraser_champs($texte, $ligne, $result) {
-	while (preg_match('/' . NOM_DE_CHAMP . '/S', $texte, $match)) {
-		$p = strpos($texte, $match[0]);
-		// texte après la balise
-		$suite = substr($texte, $p + strlen($match[0]));
-
-		$debut = substr($texte, 0, $p);
-		if ($p) {
-			$result = phraser_polyglotte($debut, $ligne, $result);
-		}
-		$ligne += substr_count($debut, "\n");
-		$champ = new Champ();
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		$champ->nom_boucle = $match[2];
-		$champ->nom_champ = $match[3];
-		$champ->etoile = $match[5];
-
-		if ($suite and $suite[0] == '{') {
-			phraser_arg($suite, '', [], $champ);
-			// ce ltrim est une ereur de conception
-			// mais on le conserve par souci de compatibilite
-			$texte = ltrim($suite);
-			// Il faudrait le normaliser dans l'arbre de syntaxe abstraite
-			// pour faire sauter ce cas particulier a la decompilation.
-			/* Ce qui suit est malheureusement incomplet pour cela:
+    while (preg_match('/' . NOM_DE_CHAMP . '/S', $texte, $match)) {
+        $p = strpos($texte, $match[0]);
+        // texte après la balise
+        $suite = substr($texte, $p + strlen($match[0]));
+
+        $debut = substr($texte, 0, $p);
+        if ($p) {
+            $result = phraser_polyglotte($debut, $ligne, $result);
+        }
+        $ligne += substr_count($debut, "\n");
+        $champ = new Champ();
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        $champ->nom_boucle = $match[2];
+        $champ->nom_champ = $match[3];
+        $champ->etoile = $match[5];
+
+        if ($suite and $suite[0] == '{') {
+            phraser_arg($suite, '', [], $champ);
+            // ce ltrim est une ereur de conception
+            // mais on le conserve par souci de compatibilite
+            $texte = ltrim($suite);
+            // Il faudrait le normaliser dans l'arbre de syntaxe abstraite
+            // pour faire sauter ce cas particulier a la decompilation.
+            /* Ce qui suit est malheureusement incomplet pour cela:
 			if ($n = (strlen($suite) - strlen($texte))) {
 				$champ->apres = array(new Texte);
 				$champ->apres[0]->texte = substr($suite,0,$n);
 			}
 			*/
-		} else {
-			$texte = $suite;
-		}
-		phraser_vieux($champ);
-		$result[] = $champ;
-	}
-	if ($texte !== '') {
-		$result = phraser_polyglotte($texte, $ligne, $result);
-	}
-
-	return $result;
+        } else {
+            $texte = $suite;
+        }
+        phraser_vieux($champ);
+        $result[] = $champ;
+    }
+    if ($texte !== '') {
+        $result = phraser_polyglotte($texte, $ligne, $result);
+    }
+
+    return $result;
 }
 
 // Gestion des imbrications:
@@ -267,15 +267,15 @@ 
 
 // https://code.spip.net/@phraser_champs_etendus
 function phraser_champs_etendus($texte, $ligne, $result) {
-	if ($texte === '') {
-		return $result;
-	}
-	$sep = '##';
-	while (strpos($texte, $sep) !== false) {
-		$sep .= '#';
-	}
-
-	return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, []));
+    if ($texte === '') {
+        return $result;
+    }
+    $sep = '##';
+    while (strpos($texte, $sep) !== false) {
+        $sep .= '#';
+    }
+
+    return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, []));
 }
 
 /**
@@ -296,278 +296,278 @@ 
  * @return array
  */
 function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ, &$pos_debut) {
-	$length = strlen($texte);
-	while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
-		$pos_debut++;
-	}
-	while (($pos_debut < $length) && strpos($fin, $texte[$pos_debut]) === false) {
-		// phraser_arg modifie directement le $texte, on fait donc avec ici en passant par une sous chaine
-		$st = substr($texte, $pos_debut);
-		$result = phraser_arg($st, $sep, $result, $pointeur_champ);
-		$pos_debut = $length - strlen($st);
-		while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
-			$pos_debut++;
-		}
-	}
-
-	return $result;
+    $length = strlen($texte);
+    while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
+        $pos_debut++;
+    }
+    while (($pos_debut < $length) && strpos($fin, $texte[$pos_debut]) === false) {
+        // phraser_arg modifie directement le $texte, on fait donc avec ici en passant par une sous chaine
+        $st = substr($texte, $pos_debut);
+        $result = phraser_arg($st, $sep, $result, $pointeur_champ);
+        $pos_debut = $length - strlen($st);
+        while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
+            $pos_debut++;
+        }
+    }
+
+    return $result;
 }
 
 // https://code.spip.net/@phraser_arg
 function phraser_arg(&$texte, $sep, $result, &$pointeur_champ) {
-	preg_match(',^(\|?[^}{)|]*)(.*)$,ms', $texte, $match);
-	$suite = ltrim($match[2]);
-	$fonc = trim($match[1]);
-	if ($fonc && $fonc[0] == '|') {
-		$fonc = ltrim(substr($fonc, 1));
-	}
-	$res = [$fonc];
-	$err_f = '';
-	// cas du filtre sans argument ou du critere /
-	if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) {
-		// si pas d'argument, alors il faut une fonction ou un double |
-		if (!$match[1]) {
-			$err_f = ['zbug_erreur_filtre', ['filtre' => $texte]];
-			erreur_squelette($err_f, $pointeur_champ);
-			$texte = '';
-		} else {
-			$texte = $suite;
-		}
-		if ($err_f) {
-			$pointeur_champ->param = false;
-		} elseif ($fonc !== '') {
-			$pointeur_champ->param[] = $res;
-		}
-		// pour les balises avec faux filtres qui boudent ce dur larbeur
-		$pointeur_champ->fonctions[] = [$fonc, ''];
-
-		return $result;
-	}
-	$args = ltrim(substr($suite, 1)); // virer le '(' initial
-	$collecte = [];
-	while ($args && $args[0] != '}') {
-		if ($args[0] == '"') {
-			preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
-		} elseif ($args[0] == "'") {
-			preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
-		} else {
-			preg_match('/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms', $args, $regs);
-			if (!isset($regs[2]) or !strlen($regs[2])) {
-				$err_f = ['zbug_erreur_filtre', ['filtre' => $args]];
-				erreur_squelette($err_f, $pointeur_champ);
-				$champ = new Texte();
-				$champ->apres = $champ->avant = $args = '';
-				break;
-			}
-		}
-		$arg = $regs[2];
-		if (trim($regs[1])) {
-			$champ = new Texte();
-			$champ->texte = $arg;
-			$champ->apres = $champ->avant = $regs[1];
-			$result[] = $champ;
-			$collecte[] = $champ;
-			$args = ltrim($regs[count($regs) - 1]);
-		} else {
-			if (!preg_match('/' . NOM_DE_CHAMP . '([{|])/', $arg, $r)) {
-				// 0 est un aveu d'impuissance. A completer
-				$arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
-
-				$args = ltrim($regs[count($regs) - 1]);
-				$collecte = array_merge($collecte, $arg);
-				$result = array_merge($result, $arg);
-			} else {
-				$n = strpos($args, $r[0]);
-				$pred = substr($args, 0, $n);
-				$par = ',}';
-				if (preg_match('/^(.*)\($/', $pred, $m)) {
-					$pred = $m[1];
-					$par = ')';
-				}
-				if ($pred) {
-					$champ = new Texte();
-					$champ->texte = $pred;
-					$champ->apres = $champ->avant = '';
-					$result[] = $champ;
-					$collecte[] = $champ;
-				}
-				$rec = substr($args, $n + strlen($r[0]) - 1);
-				$champ = new Champ();
-				$champ->nom_boucle = $r[2];
-				$champ->nom_champ = $r[3];
-				$champ->etoile = $r[5];
-				$next = $r[6];
-				while ($next == '{') {
-					phraser_arg($rec, $sep, [], $champ);
-					$args = ltrim($rec);
-					$next = isset($args[0]) ? $args[0] : '';
-				}
-				while ($next == '|') {
-					$pos_apres = 0;
-					phraser_args($rec, $par, $sep, [], $champ, $pos_apres);
-					$args = substr($rec, $pos_apres);
-					$next = isset($args[0]) ? $args[0] : '';
-				}
-				// Si erreur de syntaxe dans un sous-argument, propager.
-				if ($champ->param === false) {
-					$err_f = true;
-				} else {
-					phraser_vieux($champ);
-				}
-				if ($par == ')') {
-					$args = substr($args, 1);
-				}
-				$collecte[] = $champ;
-				$result[] = $champ;
-			}
-		}
-		if (isset($args[0]) and $args[0] == ',') {
-			$args = ltrim(substr($args, 1));
-			if ($collecte) {
-				$res[] = $collecte;
-				$collecte = [];
-			}
-		}
-	}
-	if ($collecte) {
-		$res[] = $collecte;
-		$collecte = [];
-	}
-	$texte = substr($args, 1);
-	$source = substr($suite, 0, strlen($suite) - strlen($texte));
-	// propager les erreurs, et ignorer les param vides
-	if ($pointeur_champ->param !== false) {
-		if ($err_f) {
-			$pointeur_champ->param = false;
-		} elseif ($fonc !== '' || count($res) > 1) {
-			$pointeur_champ->param[] = $res;
-		}
-	}
-	// pour les balises avec faux filtres qui boudent ce dur larbeur
-	$pointeur_champ->fonctions[] = [$fonc, $source];
-
-	return $result;
+    preg_match(',^(\|?[^}{)|]*)(.*)$,ms', $texte, $match);
+    $suite = ltrim($match[2]);
+    $fonc = trim($match[1]);
+    if ($fonc && $fonc[0] == '|') {
+        $fonc = ltrim(substr($fonc, 1));
+    }
+    $res = [$fonc];
+    $err_f = '';
+    // cas du filtre sans argument ou du critere /
+    if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) {
+        // si pas d'argument, alors il faut une fonction ou un double |
+        if (!$match[1]) {
+            $err_f = ['zbug_erreur_filtre', ['filtre' => $texte]];
+            erreur_squelette($err_f, $pointeur_champ);
+            $texte = '';
+        } else {
+            $texte = $suite;
+        }
+        if ($err_f) {
+            $pointeur_champ->param = false;
+        } elseif ($fonc !== '') {
+            $pointeur_champ->param[] = $res;
+        }
+        // pour les balises avec faux filtres qui boudent ce dur larbeur
+        $pointeur_champ->fonctions[] = [$fonc, ''];
+
+        return $result;
+    }
+    $args = ltrim(substr($suite, 1)); // virer le '(' initial
+    $collecte = [];
+    while ($args && $args[0] != '}') {
+        if ($args[0] == '"') {
+            preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
+        } elseif ($args[0] == "'") {
+            preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
+        } else {
+            preg_match('/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms', $args, $regs);
+            if (!isset($regs[2]) or !strlen($regs[2])) {
+                $err_f = ['zbug_erreur_filtre', ['filtre' => $args]];
+                erreur_squelette($err_f, $pointeur_champ);
+                $champ = new Texte();
+                $champ->apres = $champ->avant = $args = '';
+                break;
+            }
+        }
+        $arg = $regs[2];
+        if (trim($regs[1])) {
+            $champ = new Texte();
+            $champ->texte = $arg;
+            $champ->apres = $champ->avant = $regs[1];
+            $result[] = $champ;
+            $collecte[] = $champ;
+            $args = ltrim($regs[count($regs) - 1]);
+        } else {
+            if (!preg_match('/' . NOM_DE_CHAMP . '([{|])/', $arg, $r)) {
+                // 0 est un aveu d'impuissance. A completer
+                $arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
+
+                $args = ltrim($regs[count($regs) - 1]);
+                $collecte = array_merge($collecte, $arg);
+                $result = array_merge($result, $arg);
+            } else {
+                $n = strpos($args, $r[0]);
+                $pred = substr($args, 0, $n);
+                $par = ',}';
+                if (preg_match('/^(.*)\($/', $pred, $m)) {
+                    $pred = $m[1];
+                    $par = ')';
+                }
+                if ($pred) {
+                    $champ = new Texte();
+                    $champ->texte = $pred;
+                    $champ->apres = $champ->avant = '';
+                    $result[] = $champ;
+                    $collecte[] = $champ;
+                }
+                $rec = substr($args, $n + strlen($r[0]) - 1);
+                $champ = new Champ();
+                $champ->nom_boucle = $r[2];
+                $champ->nom_champ = $r[3];
+                $champ->etoile = $r[5];
+                $next = $r[6];
+                while ($next == '{') {
+                    phraser_arg($rec, $sep, [], $champ);
+                    $args = ltrim($rec);
+                    $next = isset($args[0]) ? $args[0] : '';
+                }
+                while ($next == '|') {
+                    $pos_apres = 0;
+                    phraser_args($rec, $par, $sep, [], $champ, $pos_apres);
+                    $args = substr($rec, $pos_apres);
+                    $next = isset($args[0]) ? $args[0] : '';
+                }
+                // Si erreur de syntaxe dans un sous-argument, propager.
+                if ($champ->param === false) {
+                    $err_f = true;
+                } else {
+                    phraser_vieux($champ);
+                }
+                if ($par == ')') {
+                    $args = substr($args, 1);
+                }
+                $collecte[] = $champ;
+                $result[] = $champ;
+            }
+        }
+        if (isset($args[0]) and $args[0] == ',') {
+            $args = ltrim(substr($args, 1));
+            if ($collecte) {
+                $res[] = $collecte;
+                $collecte = [];
+            }
+        }
+    }
+    if ($collecte) {
+        $res[] = $collecte;
+        $collecte = [];
+    }
+    $texte = substr($args, 1);
+    $source = substr($suite, 0, strlen($suite) - strlen($texte));
+    // propager les erreurs, et ignorer les param vides
+    if ($pointeur_champ->param !== false) {
+        if ($err_f) {
+            $pointeur_champ->param = false;
+        } elseif ($fonc !== '' || count($res) > 1) {
+            $pointeur_champ->param[] = $res;
+        }
+    }
+    // pour les balises avec faux filtres qui boudent ce dur larbeur
+    $pointeur_champ->fonctions[] = [$fonc, $source];
+
+    return $result;
 }
 
 
 // https://code.spip.net/@phraser_champs_exterieurs
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
-	$res = [];
-	while (($p = strpos($texte, "%$sep")) !== false) {
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
-			break;
-		}
-		$debut = substr($texte, 0, $p);
-		$texte = substr($texte, $p + strlen($m[0]));
-		if ($p) {
-			$res = phraser_inclure($debut, $ligne, $res);
-		}
-		$ligne += substr_count($debut, "\n");
-		$res[] = $nested[$m[1]];
-	}
-
-	return (($texte === '') ? $res : phraser_inclure($texte, $ligne, $res));
+    $res = [];
+    while (($p = strpos($texte, "%$sep")) !== false) {
+        if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
+            break;
+        }
+        $debut = substr($texte, 0, $p);
+        $texte = substr($texte, $p + strlen($m[0]));
+        if ($p) {
+            $res = phraser_inclure($debut, $ligne, $res);
+        }
+        $ligne += substr_count($debut, "\n");
+        $res[] = $nested[$m[1]];
+    }
+
+    return (($texte === '') ? $res : phraser_inclure($texte, $ligne, $res));
 }
 
 // https://code.spip.net/@phraser_champs_interieurs
 function phraser_champs_interieurs($texte, $ligne, $sep, $result) {
-	$i = 0; // en fait count($result)
-	$x = '';
-
-	while (true) {
-		$j = $i;
-		$n = $ligne;
-		while (preg_match(CHAMP_ETENDU, $texte, $match)) {
-			$p = strpos($texte, $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p) {
-				$result[$i] = $debut;
-				$i++;
-			}
-			$nom = $match[4];
-			$champ = new Champ();
-			// ca ne marche pas encore en cas de champ imbrique
-			$champ->ligne = $x ? 0 : ($n + substr_count($debut, "\n"));
-			$champ->nom_boucle = $match[3];
-			$champ->nom_champ = $nom;
-			$champ->etoile = $match[6];
-			// phraser_args indiquera ou commence apres
-			$pos_apres = 0;
-			$result = phraser_args($match[7], ')', $sep, $result, $champ, $pos_apres);
-			phraser_vieux($champ);
-			$champ->avant =	phraser_champs_exterieurs($match[1], $n, $sep, $result);
-			$debut = substr($match[7], $pos_apres + 1);
-			if (!empty($debut)) {
-				$n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
-			}
-			$champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
-
-			// reinjecter la boucle si c'en est une
-			phraser_boucle_placeholder($champ);
-
-			$result[$i] = $champ;
-			$i++;
-			$texte = substr($texte, $p + strlen($match[0]));
-		}
-		if ($texte !== '') {
-			$result[$i] = $texte;
-			$i++;
-		}
-		$x = '';
-
-		while ($j < $i) {
-			$z = $result[$j];
-			// j'aurais besoin de connaitre le nombre de lignes...
-			if (is_object($z)) {
-				$x .= "%$sep$j@";
-			} else {
-				$x .= $z;
-			}
-			$j++;
-		}
-		if (preg_match(CHAMP_ETENDU, $x)) {
-			$texte = $x;
-		} else {
-			return phraser_champs_exterieurs($x, $ligne, $sep, $result);
-		}
-	}
+    $i = 0; // en fait count($result)
+    $x = '';
+
+    while (true) {
+        $j = $i;
+        $n = $ligne;
+        while (preg_match(CHAMP_ETENDU, $texte, $match)) {
+            $p = strpos($texte, $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p) {
+                $result[$i] = $debut;
+                $i++;
+            }
+            $nom = $match[4];
+            $champ = new Champ();
+            // ca ne marche pas encore en cas de champ imbrique
+            $champ->ligne = $x ? 0 : ($n + substr_count($debut, "\n"));
+            $champ->nom_boucle = $match[3];
+            $champ->nom_champ = $nom;
+            $champ->etoile = $match[6];
+            // phraser_args indiquera ou commence apres
+            $pos_apres = 0;
+            $result = phraser_args($match[7], ')', $sep, $result, $champ, $pos_apres);
+            phraser_vieux($champ);
+            $champ->avant =	phraser_champs_exterieurs($match[1], $n, $sep, $result);
+            $debut = substr($match[7], $pos_apres + 1);
+            if (!empty($debut)) {
+                $n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
+            }
+            $champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
+
+            // reinjecter la boucle si c'en est une
+            phraser_boucle_placeholder($champ);
+
+            $result[$i] = $champ;
+            $i++;
+            $texte = substr($texte, $p + strlen($match[0]));
+        }
+        if ($texte !== '') {
+            $result[$i] = $texte;
+            $i++;
+        }
+        $x = '';
+
+        while ($j < $i) {
+            $z = $result[$j];
+            // j'aurais besoin de connaitre le nombre de lignes...
+            if (is_object($z)) {
+                $x .= "%$sep$j@";
+            } else {
+                $x .= $z;
+            }
+            $j++;
+        }
+        if (preg_match(CHAMP_ETENDU, $x)) {
+            $texte = $x;
+        } else {
+            return phraser_champs_exterieurs($x, $ligne, $sep, $result);
+        }
+    }
 }
 
 function phraser_vieux(&$champ) {
-	$nom = $champ->nom_champ;
-	if ($nom == 'EMBED_DOCUMENT') {
-		if (!function_exists('phraser_vieux_emb')) {
-			include_spip('public/normaliser');
-		}
-		phraser_vieux_emb($champ);
-	} elseif ($nom == 'EXPOSER') {
-		if (!function_exists('phraser_vieux_exposer')) {
-			include_spip('public/normaliser');
-		}
-		phraser_vieux_exposer($champ);
-	} elseif ($champ->param) {
-		if ($nom == 'FORMULAIRE_RECHERCHE') {
-			if (!function_exists('phraser_vieux_recherche')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_recherche($champ);
-		} elseif (preg_match(',^LOGO_[A-Z]+,', $nom)) {
-			if (!function_exists('phraser_vieux_logos')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_logos($champ);
-		} elseif ($nom == 'MODELE') {
-			if (!function_exists('phraser_vieux_modele')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_modele($champ);
-		} elseif ($nom == 'INCLURE' or $nom == 'INCLUDE') {
-			if (!function_exists('phraser_vieux_inclu')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_inclu($champ);
-		}
-	}
+    $nom = $champ->nom_champ;
+    if ($nom == 'EMBED_DOCUMENT') {
+        if (!function_exists('phraser_vieux_emb')) {
+            include_spip('public/normaliser');
+        }
+        phraser_vieux_emb($champ);
+    } elseif ($nom == 'EXPOSER') {
+        if (!function_exists('phraser_vieux_exposer')) {
+            include_spip('public/normaliser');
+        }
+        phraser_vieux_exposer($champ);
+    } elseif ($champ->param) {
+        if ($nom == 'FORMULAIRE_RECHERCHE') {
+            if (!function_exists('phraser_vieux_recherche')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_recherche($champ);
+        } elseif (preg_match(',^LOGO_[A-Z]+,', $nom)) {
+            if (!function_exists('phraser_vieux_logos')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_logos($champ);
+        } elseif ($nom == 'MODELE') {
+            if (!function_exists('phraser_vieux_modele')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_modele($champ);
+        } elseif ($nom == 'INCLURE' or $nom == 'INCLUDE') {
+            if (!function_exists('phraser_vieux_inclu')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_inclu($champ);
+        }
+    }
 }
 
 
@@ -595,201 +595,201 @@ 
  **/
 function phraser_criteres($params, &$result) {
 
-	$err_ci = ''; // indiquera s'il y a eu une erreur
-	$args = [];
-	$type = $result->type_requete;
-	$doublons = [];
-	foreach ($params as $v) {
-		$var = $v[1][0];
-		$param = ($var->type != 'texte') ? '' : $var->texte;
-		if ((count($v) > 2) && (!preg_match(',[^A-Za-z]IN[^A-Za-z],i', $param))) {
-			// plus d'un argument et pas le critere IN:
-			// detecter comme on peut si c'est le critere implicite LIMIT debut, fin
-			if (
-				$var->type != 'texte'
-				or preg_match('/^(n|n-|(n-)?\d+)$/S', $param)
-			) {
-				$op = ',';
-				$not = '';
-				$cond = false;
-			} else {
-				// Le debut du premier argument est l'operateur
-				preg_match('/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms', $param, $m);
-				$op = $m[2];
-				$not = $m[1];
-				$cond = $m[3];
-				// virer le premier argument,
-				// et mettre son reliquat eventuel
-				// Recopier pour ne pas alterer le texte source
-				// utile au debusqueur
-				if ($m[4]) {
-					// une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
-					if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
-						$c = null;
-						eval('$c = ' . $m[4] . ';');
-						if (isset($c)) {
-							$m[4] = $c;
-						}
-					}
-					$texte = new Texte();
-					$texte->texte = $m[4];
-					$v[1][0] = $texte;
-				} else {
-					array_shift($v[1]);
-				}
-			}
-			array_shift($v); // $v[O] est vide
-			$crit = new Critere();
-			$crit->op = $op;
-			$crit->not = $not;
-			$crit->cond = $cond;
-			$crit->exclus = '';
-			$crit->param = $v;
-			$args[] = $crit;
-		} else {
-			if ($var->type != 'texte') {
-				// cas 1 seul arg ne commencant pas par du texte brut:
-				// erreur ou critere infixe "/"
-				if (($v[1][1]->type != 'texte') || (trim($v[1][1]->texte) != '/')) {
-					$err_ci = [
-						'zbug_critere_inconnu',
-						['critere' => $var->nom_champ]
-					];
-					erreur_squelette($err_ci, $result);
-				} else {
-					$crit = new Critere();
-					$crit->op = '/';
-					$crit->not = '';
-					$crit->exclus = '';
-					$crit->param = [[$v[1][0]], [$v[1][2]]];
-					$args[] = $crit;
-				}
-			} else {
-				// traiter qq lexemes particuliers pour faciliter la suite
-				// les separateurs
-				if ($var->apres) {
-					$result->separateur[] = $param;
-				} elseif (($param == 'tout') or ($param == 'tous')) {
-					$result->modificateur['tout'] = true;
-				} elseif ($param == 'plat') {
-					$result->modificateur['plat'] = true;
-				}
-
-				// Boucle hierarchie, analyser le critere id_rubrique
-				// et les autres critères {id_x} pour forcer {tout} sur
-				// ceux-ci pour avoir la rubrique mere...
-				// Les autres critères de la boucle hierarchie doivent être
-				// traités normalement.
-				elseif (
-					strcasecmp($type, 'hierarchie') == 0
-					and !preg_match(",^id_rubrique\b,", $param)
-					and preg_match(',^id_\w+\s*$,', $param)
-				) {
-					$result->modificateur['tout'] = true;
-				} elseif (strcasecmp($type, 'hierarchie') == 0 and $param == 'id_rubrique') {
-					// rien a faire sur {id_rubrique} tout seul
-				} else {
-					// pas d'emplacement statique, faut un dynamique
-					// mais il y a 2 cas qui ont les 2 !
-					if (($param == 'unique') || (preg_match(',^!?doublons *,', $param))) {
-						// cette variable sera inseree dans le code
-						// et son nom sert d'indicateur des maintenant
-						$result->doublons = '$doublons_index';
-						if ($param == 'unique') {
-							$param = 'doublons';
-						}
-					} elseif ($param == 'recherche') {
-						// meme chose (a cause de #nom_de_boucle:URL_*)
-						$result->hash = ' ';
-					}
-
-					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
-						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
-					} elseif (
-						preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
-						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)
-					) {
-						$a2 = trim($m[8]);
-						if ($a2 and ($a2[0] == "'" or $a2[0] == '"') and ($a2[0] == substr($a2, -1))) {
-							$a2 = substr($a2, 1, -1);
-						}
-						$crit = phraser_critere_infixe(
-							$m[2],
-							$a2,
-							$v,
-							(($m[2] == 'lang_select') ? $m[2] : $m[7]),
-							$m[6],
-							$m[5]
-						);
-						$crit->exclus = $m[1];
-					} elseif (
-						preg_match('/^([!]?)\s*(' .
-						CHAMP_SQL_PLUS_FONC .
-						')\s*(\??)(.*)$/is', $param, $m)
-					) {
-						// contient aussi les comparaisons implicites !
-						// Comme ci-dessus:
-						// le premier arg contient l'operateur
-						array_shift($v);
-						if ($m[6]) {
-							$v[0][0] = new Texte();
-							$v[0][0]->texte = $m[6];
-						} else {
-							array_shift($v[0]);
-							if (!$v[0]) {
-								array_shift($v);
-							}
-						}
-						$crit = new Critere();
-						$crit->op = $m[2];
-						$crit->param = $v;
-						$crit->not = $m[1];
-						$crit->cond = $m[5];
-					} else {
-						$err_ci = [
-							'zbug_critere_inconnu',
-							['critere' => $param]
-						];
-						erreur_squelette($err_ci, $result);
-					}
-
-					if ((!preg_match(',^!?doublons *,', $param)) || $crit->not) {
-						$args[] = $crit;
-					} else {
-						$doublons[] = $crit;
-					}
-				}
-			}
-		}
-	}
-
-	// les doublons non nies doivent etre le dernier critere
-	// pour que la variable $doublon_index ait la bonne valeur
-	// cf critere_doublon
-	if ($doublons) {
-		$args = array_merge($args, $doublons);
-	}
-
-	// Si erreur, laisser la chaine dans ce champ pour le HTTP 503
-	if (!$err_ci) {
-		$result->criteres = $args;
-	}
+    $err_ci = ''; // indiquera s'il y a eu une erreur
+    $args = [];
+    $type = $result->type_requete;
+    $doublons = [];
+    foreach ($params as $v) {
+        $var = $v[1][0];
+        $param = ($var->type != 'texte') ? '' : $var->texte;
+        if ((count($v) > 2) && (!preg_match(',[^A-Za-z]IN[^A-Za-z],i', $param))) {
+            // plus d'un argument et pas le critere IN:
+            // detecter comme on peut si c'est le critere implicite LIMIT debut, fin
+            if (
+                $var->type != 'texte'
+                or preg_match('/^(n|n-|(n-)?\d+)$/S', $param)
+            ) {
+                $op = ',';
+                $not = '';
+                $cond = false;
+            } else {
+                // Le debut du premier argument est l'operateur
+                preg_match('/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms', $param, $m);
+                $op = $m[2];
+                $not = $m[1];
+                $cond = $m[3];
+                // virer le premier argument,
+                // et mettre son reliquat eventuel
+                // Recopier pour ne pas alterer le texte source
+                // utile au debusqueur
+                if ($m[4]) {
+                    // une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
+                    if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
+                        $c = null;
+                        eval('$c = ' . $m[4] . ';');
+                        if (isset($c)) {
+                            $m[4] = $c;
+                        }
+                    }
+                    $texte = new Texte();
+                    $texte->texte = $m[4];
+                    $v[1][0] = $texte;
+                } else {
+                    array_shift($v[1]);
+                }
+            }
+            array_shift($v); // $v[O] est vide
+            $crit = new Critere();
+            $crit->op = $op;
+            $crit->not = $not;
+            $crit->cond = $cond;
+            $crit->exclus = '';
+            $crit->param = $v;
+            $args[] = $crit;
+        } else {
+            if ($var->type != 'texte') {
+                // cas 1 seul arg ne commencant pas par du texte brut:
+                // erreur ou critere infixe "/"
+                if (($v[1][1]->type != 'texte') || (trim($v[1][1]->texte) != '/')) {
+                    $err_ci = [
+                        'zbug_critere_inconnu',
+                        ['critere' => $var->nom_champ]
+                    ];
+                    erreur_squelette($err_ci, $result);
+                } else {
+                    $crit = new Critere();
+                    $crit->op = '/';
+                    $crit->not = '';
+                    $crit->exclus = '';
+                    $crit->param = [[$v[1][0]], [$v[1][2]]];
+                    $args[] = $crit;
+                }
+            } else {
+                // traiter qq lexemes particuliers pour faciliter la suite
+                // les separateurs
+                if ($var->apres) {
+                    $result->separateur[] = $param;
+                } elseif (($param == 'tout') or ($param == 'tous')) {
+                    $result->modificateur['tout'] = true;
+                } elseif ($param == 'plat') {
+                    $result->modificateur['plat'] = true;
+                }
+
+                // Boucle hierarchie, analyser le critere id_rubrique
+                // et les autres critères {id_x} pour forcer {tout} sur
+                // ceux-ci pour avoir la rubrique mere...
+                // Les autres critères de la boucle hierarchie doivent être
+                // traités normalement.
+                elseif (
+                    strcasecmp($type, 'hierarchie') == 0
+                    and !preg_match(",^id_rubrique\b,", $param)
+                    and preg_match(',^id_\w+\s*$,', $param)
+                ) {
+                    $result->modificateur['tout'] = true;
+                } elseif (strcasecmp($type, 'hierarchie') == 0 and $param == 'id_rubrique') {
+                    // rien a faire sur {id_rubrique} tout seul
+                } else {
+                    // pas d'emplacement statique, faut un dynamique
+                    // mais il y a 2 cas qui ont les 2 !
+                    if (($param == 'unique') || (preg_match(',^!?doublons *,', $param))) {
+                        // cette variable sera inseree dans le code
+                        // et son nom sert d'indicateur des maintenant
+                        $result->doublons = '$doublons_index';
+                        if ($param == 'unique') {
+                            $param = 'doublons';
+                        }
+                    } elseif ($param == 'recherche') {
+                        // meme chose (a cause de #nom_de_boucle:URL_*)
+                        $result->hash = ' ';
+                    }
+
+                    if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
+                        $crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
+                    } elseif (
+                        preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+                        ')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)
+                    ) {
+                        $a2 = trim($m[8]);
+                        if ($a2 and ($a2[0] == "'" or $a2[0] == '"') and ($a2[0] == substr($a2, -1))) {
+                            $a2 = substr($a2, 1, -1);
+                        }
+                        $crit = phraser_critere_infixe(
+                            $m[2],
+                            $a2,
+                            $v,
+                            (($m[2] == 'lang_select') ? $m[2] : $m[7]),
+                            $m[6],
+                            $m[5]
+                        );
+                        $crit->exclus = $m[1];
+                    } elseif (
+                        preg_match('/^([!]?)\s*(' .
+                        CHAMP_SQL_PLUS_FONC .
+                        ')\s*(\??)(.*)$/is', $param, $m)
+                    ) {
+                        // contient aussi les comparaisons implicites !
+                        // Comme ci-dessus:
+                        // le premier arg contient l'operateur
+                        array_shift($v);
+                        if ($m[6]) {
+                            $v[0][0] = new Texte();
+                            $v[0][0]->texte = $m[6];
+                        } else {
+                            array_shift($v[0]);
+                            if (!$v[0]) {
+                                array_shift($v);
+                            }
+                        }
+                        $crit = new Critere();
+                        $crit->op = $m[2];
+                        $crit->param = $v;
+                        $crit->not = $m[1];
+                        $crit->cond = $m[5];
+                    } else {
+                        $err_ci = [
+                            'zbug_critere_inconnu',
+                            ['critere' => $param]
+                        ];
+                        erreur_squelette($err_ci, $result);
+                    }
+
+                    if ((!preg_match(',^!?doublons *,', $param)) || $crit->not) {
+                        $args[] = $crit;
+                    } else {
+                        $doublons[] = $crit;
+                    }
+                }
+            }
+        }
+    }
+
+    // les doublons non nies doivent etre le dernier critere
+    // pour que la variable $doublon_index ait la bonne valeur
+    // cf critere_doublon
+    if ($doublons) {
+        $args = array_merge($args, $doublons);
+    }
+
+    // Si erreur, laisser la chaine dans ce champ pour le HTTP 503
+    if (!$err_ci) {
+        $result->criteres = $args;
+    }
 }
 
 // https://code.spip.net/@phraser_critere_infixe
 function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond) {
-	$args[0] = new Texte();
-	$args[0]->texte = $arg1;
-	$args[0] = [$args[0]];
-	$args[1][0] = new Texte();
-	$args[1][0]->texte = $arg2;
-	$crit = new Critere();
-	$crit->op = $op;
-	$crit->not = $not;
-	$crit->cond = $cond;
-	$crit->param = $args;
-
-	return $crit;
+    $args[0] = new Texte();
+    $args[0]->texte = $arg1;
+    $args[0] = [$args[0]];
+    $args[1][0] = new Texte();
+    $args[1][0]->texte = $arg2;
+    $crit = new Critere();
+    $crit->op = $op;
+    $crit->not = $not;
+    $crit->cond = $cond;
+    $crit->param = $args;
+
+    return $crit;
 }
 
 /**
@@ -800,12 +800,12 @@ 
  * @return int
  */
 function public_compte_ligne($texte, $debut = 0, $fin = null) {
-	if (is_null($fin)) {
-		return substr_count($texte, "\n", $debut);
-	}
-	else {
-		return substr_count($texte, "\n", $debut, $fin - $debut);
-	}
+    if (is_null($fin)) {
+        return substr_count($texte, "\n", $debut);
+    }
+    else {
+        return substr_count($texte, "\n", $debut, $fin - $debut);
+    }
 }
 
 
@@ -821,87 +821,87 @@ 
  * @return array|null
  */
 function public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte = 0) {
-	$premiere_boucle = null;
-	$pos_derniere_boucle_anonyme = $pos_debut_texte;
-
-	$current_pos = $pos_debut_texte;
-	while (($pos_boucle = strpos($texte, BALISE_BOUCLE, $current_pos)) !== false) {
-		$current_pos = $pos_boucle + 1;
-		$pos_parent = strpos($texte, '(', $pos_boucle);
-
-		$id_boucle = '';
-		if ($pos_parent !== false) {
-			$id_boucle = trim(substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)));
-		}
-		if (
-			$pos_parent === false
-			or (strlen($id_boucle) and !(is_numeric($id_boucle) or strpos($id_boucle, '_') === 0))
-		) {
-			$result = new Boucle();
-			$result->id_parent = $id_parent;
-			$result->descr = $descr;
-
-			// un id_boucle pour l'affichage de l'erreur
-			if (!strlen($id_boucle)) {
-				$id_boucle = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
-			}
-			$result->id_boucle = $id_boucle;
-			$err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
-			erreur_squelette($err_b, $result);
-
-			continue;
-		}
-		else {
-			$boucle = [
-				'id_boucle' => $id_boucle,
-				'id_boucle_err' => $id_boucle,
-				'debut_boucle' => $pos_boucle,
-				'pos_boucle' => $pos_boucle,
-				'pos_parent' => $pos_parent,
-				'pos_precond' => false,
-				'pos_precond_inside' => false,
-				'pos_preaff' => false,
-				'pos_preaff_inside' => false,
-			];
-
-			// un id_boucle pour l'affichage de l'erreur sur les boucle anonymes
-			if (!strlen($id_boucle)) {
-				$boucle['id_boucle_err'] = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
-			}
-
-			// trouver sa position de depart reelle : au <Bxx> ou au <BBxx>
-			$precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
-			$pos_precond = strpos($texte, $precond_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
-			if (
-				$pos_precond !== false
-				and $pos_precond < $boucle['debut_boucle']
-			) {
-				$boucle['debut_boucle'] = $pos_precond;
-				$boucle['pos_precond'] = $pos_precond;
-				$boucle['pos_precond_inside'] = $pos_precond + strlen($precond_boucle);
-			}
-
-			$preaff_boucle = BALISE_PREAFF_BOUCLE . $id_boucle . '>';
-			$pos_preaff = strpos($texte, $preaff_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
-			if (
-				$pos_preaff !== false
-				and $pos_preaff < $boucle['debut_boucle']
-			) {
-				$boucle['debut_boucle'] = $pos_preaff;
-				$boucle['pos_preaff'] = $pos_preaff;
-				$boucle['pos_preaff_inside'] = $pos_preaff + strlen($preaff_boucle);
-			}
-			if (!strlen($id_boucle)) {
-				$pos_derniere_boucle_anonyme = $pos_boucle;
-			}
-
-			if (is_null($premiere_boucle) or $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) {
-				$premiere_boucle = $boucle;
-			}
-		}
-	}
-
-	return $premiere_boucle;
+    $premiere_boucle = null;
+    $pos_derniere_boucle_anonyme = $pos_debut_texte;
+
+    $current_pos = $pos_debut_texte;
+    while (($pos_boucle = strpos($texte, BALISE_BOUCLE, $current_pos)) !== false) {
+        $current_pos = $pos_boucle + 1;
+        $pos_parent = strpos($texte, '(', $pos_boucle);
+
+        $id_boucle = '';
+        if ($pos_parent !== false) {
+            $id_boucle = trim(substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)));
+        }
+        if (
+            $pos_parent === false
+            or (strlen($id_boucle) and !(is_numeric($id_boucle) or strpos($id_boucle, '_') === 0))
+        ) {
+            $result = new Boucle();
+            $result->id_parent = $id_parent;
+            $result->descr = $descr;
+
+            // un id_boucle pour l'affichage de l'erreur
+            if (!strlen($id_boucle)) {
+                $id_boucle = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
+            }
+            $result->id_boucle = $id_boucle;
+            $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
+            erreur_squelette($err_b, $result);
+
+            continue;
+        }
+        else {
+            $boucle = [
+                'id_boucle' => $id_boucle,
+                'id_boucle_err' => $id_boucle,
+                'debut_boucle' => $pos_boucle,
+                'pos_boucle' => $pos_boucle,
+                'pos_parent' => $pos_parent,
+                'pos_precond' => false,
+                'pos_precond_inside' => false,
+                'pos_preaff' => false,
+                'pos_preaff_inside' => false,
+            ];
+
+            // un id_boucle pour l'affichage de l'erreur sur les boucle anonymes
+            if (!strlen($id_boucle)) {
+                $boucle['id_boucle_err'] = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
+            }
+
+            // trouver sa position de depart reelle : au <Bxx> ou au <BBxx>
+            $precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
+            $pos_precond = strpos($texte, $precond_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
+            if (
+                $pos_precond !== false
+                and $pos_precond < $boucle['debut_boucle']
+            ) {
+                $boucle['debut_boucle'] = $pos_precond;
+                $boucle['pos_precond'] = $pos_precond;
+                $boucle['pos_precond_inside'] = $pos_precond + strlen($precond_boucle);
+            }
+
+            $preaff_boucle = BALISE_PREAFF_BOUCLE . $id_boucle . '>';
+            $pos_preaff = strpos($texte, $preaff_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
+            if (
+                $pos_preaff !== false
+                and $pos_preaff < $boucle['debut_boucle']
+            ) {
+                $boucle['debut_boucle'] = $pos_preaff;
+                $boucle['pos_preaff'] = $pos_preaff;
+                $boucle['pos_preaff_inside'] = $pos_preaff + strlen($preaff_boucle);
+            }
+            if (!strlen($id_boucle)) {
+                $pos_derniere_boucle_anonyme = $pos_boucle;
+            }
+
+            if (is_null($premiere_boucle) or $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) {
+                $premiere_boucle = $boucle;
+            }
+        }
+    }
+
+    return $premiere_boucle;
 }
 
 /**
@@ -916,68 +916,68 @@ 
  * @return mixed
  */
 function public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_debut_texte, $result) {
-	$id_boucle = $boucle['id_boucle'];
-	$pos_courante = $pos_debut_texte;
-
-	$boucle['pos_postcond'] = false;
-	$boucle['pos_postcond_inside'] = false;
-	$boucle['pos_altern'] = false;
-	$boucle['pos_altern_inside'] = false;
-	$boucle['pos_postaff'] = false;
-	$boucle['pos_postaff_inside'] = false;
-
-	$pos_anonyme_next = null;
-	// si c'est une boucle anonyme, chercher la position de la prochaine boucle anonyme
-	if (!strlen($id_boucle)) {
-		$pos_anonyme_next = strpos($texte, BALISE_BOUCLE . '(', $pos_courante);
-	}
-
-	//
-	// 1. Recuperer la partie conditionnelle apres
-	//
-	$apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . '>';
-	$pos_apres = strpos($texte, $apres_boucle, $pos_courante);
-	if (
-		$pos_apres !== false
-		and (!$pos_anonyme_next or $pos_apres < $pos_anonyme_next)
-	) {
-		$boucle['pos_postcond'] = $pos_apres;
-		$pos_apres += strlen($apres_boucle);
-		$boucle['pos_postcond_inside'] = $pos_apres;
-		$pos_courante = $pos_apres ;
-	}
-
-	//
-	// 2. Récuperer la partie alternative apres
-	//
-	$altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . '>';
-	$pos_altern = strpos($texte, $altern_boucle, $pos_courante);
-	if (
-		$pos_altern !== false
-		and (!$pos_anonyme_next or $pos_altern < $pos_anonyme_next)
-	) {
-		$boucle['pos_altern'] = $pos_altern;
-		$pos_altern += strlen($altern_boucle);
-		$boucle['pos_altern_inside'] = $pos_altern;
-		$pos_courante = $pos_altern;
-	}
-
-	//
-	// 3. Recuperer la partie footer non alternative
-	//
-	$postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . '>';
-	$pos_postaff = strpos($texte, $postaff_boucle, $pos_courante);
-	if (
-		$pos_postaff !== false
-		and (!$pos_anonyme_next or $pos_postaff < $pos_anonyme_next)
-	) {
-		$boucle['pos_postaff'] = $pos_postaff;
-		$pos_postaff += strlen($postaff_boucle);
-		$boucle['pos_postaff_inside'] = $pos_postaff;
-		$pos_courante = $pos_postaff ;
-	}
-
-	return $boucle;
+    $id_boucle = $boucle['id_boucle'];
+    $pos_courante = $pos_debut_texte;
+
+    $boucle['pos_postcond'] = false;
+    $boucle['pos_postcond_inside'] = false;
+    $boucle['pos_altern'] = false;
+    $boucle['pos_altern_inside'] = false;
+    $boucle['pos_postaff'] = false;
+    $boucle['pos_postaff_inside'] = false;
+
+    $pos_anonyme_next = null;
+    // si c'est une boucle anonyme, chercher la position de la prochaine boucle anonyme
+    if (!strlen($id_boucle)) {
+        $pos_anonyme_next = strpos($texte, BALISE_BOUCLE . '(', $pos_courante);
+    }
+
+    //
+    // 1. Recuperer la partie conditionnelle apres
+    //
+    $apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . '>';
+    $pos_apres = strpos($texte, $apres_boucle, $pos_courante);
+    if (
+        $pos_apres !== false
+        and (!$pos_anonyme_next or $pos_apres < $pos_anonyme_next)
+    ) {
+        $boucle['pos_postcond'] = $pos_apres;
+        $pos_apres += strlen($apres_boucle);
+        $boucle['pos_postcond_inside'] = $pos_apres;
+        $pos_courante = $pos_apres ;
+    }
+
+    //
+    // 2. Récuperer la partie alternative apres
+    //
+    $altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . '>';
+    $pos_altern = strpos($texte, $altern_boucle, $pos_courante);
+    if (
+        $pos_altern !== false
+        and (!$pos_anonyme_next or $pos_altern < $pos_anonyme_next)
+    ) {
+        $boucle['pos_altern'] = $pos_altern;
+        $pos_altern += strlen($altern_boucle);
+        $boucle['pos_altern_inside'] = $pos_altern;
+        $pos_courante = $pos_altern;
+    }
+
+    //
+    // 3. Recuperer la partie footer non alternative
+    //
+    $postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . '>';
+    $pos_postaff = strpos($texte, $postaff_boucle, $pos_courante);
+    if (
+        $pos_postaff !== false
+        and (!$pos_anonyme_next or $pos_postaff < $pos_anonyme_next)
+    ) {
+        $boucle['pos_postaff'] = $pos_postaff;
+        $pos_postaff += strlen($postaff_boucle);
+        $boucle['pos_postaff_inside'] = $pos_postaff;
+        $pos_courante = $pos_postaff ;
+    }
+
+    return $boucle;
 }
 
 
@@ -987,21 +987,21 @@ 
  * @param null|object $boucle
  */
 function phraser_boucle_placeholder(&$champ, $boucle_placeholder = null, $boucle = null) {
-	static $boucles_connues = [];
-	// si c'est un appel pour memoriser une boucle, memorisons la
-	if (is_string($champ) and !empty($boucle_placeholder) and !empty($boucle)) {
-		$boucles_connues[$boucle_placeholder][$champ] = &$boucle;
-	}
-	else {
-		if (!empty($champ->nom_champ) and !empty($boucles_connues[$champ->nom_champ])) {
-			$placeholder = $champ->nom_champ;
-			$id = reset($champ->param[0][1]);
-			$id = $id->texte;
-			if (!empty($boucles_connues[$placeholder][$id])) {
-				$champ = $boucles_connues[$placeholder][$id];
-			}
-		}
-	}
+    static $boucles_connues = [];
+    // si c'est un appel pour memoriser une boucle, memorisons la
+    if (is_string($champ) and !empty($boucle_placeholder) and !empty($boucle)) {
+        $boucles_connues[$boucle_placeholder][$champ] = &$boucle;
+    }
+    else {
+        if (!empty($champ->nom_champ) and !empty($boucles_connues[$champ->nom_champ])) {
+            $placeholder = $champ->nom_champ;
+            $id = reset($champ->param[0][1]);
+            $id = $id->texte;
+            if (!empty($boucles_connues[$placeholder][$id])) {
+                $champ = $boucles_connues[$placeholder][$id];
+            }
+        }
+    }
 }
 
 
@@ -1014,274 +1014,274 @@ 
  * @return string
  */
 function public_generer_boucle_placeholder($id_boucle, &$boucle, $boucle_placeholder, $nb_lignes) {
-	$placeholder = "[(#{$boucle_placeholder}{" . $id_boucle . '})' . str_pad('', $nb_lignes, "\n") . ']';
-	//memoriser la boucle a reinjecter
-	$id_boucle = "$id_boucle";
-	phraser_boucle_placeholder($id_boucle, $boucle_placeholder, $boucle);
-	return $placeholder;
+    $placeholder = "[(#{$boucle_placeholder}{" . $id_boucle . '})' . str_pad('', $nb_lignes, "\n") . ']';
+    //memoriser la boucle a reinjecter
+    $id_boucle = "$id_boucle";
+    phraser_boucle_placeholder($id_boucle, $boucle_placeholder, $boucle);
+    return $placeholder;
 }
 
 function public_phraser_html_dist($texte, $id_parent, &$boucles, $descr, $ligne_debut_texte = 1, $boucle_placeholder = null) {
 
-	$all_res = [];
-	// definir un placholder pour les boucles dont on est sur d'avoir aucune occurence dans le squelette
-	if (is_null($boucle_placeholder)) {
-		do {
-			$boucle_placeholder = 'BOUCLE_PLACEHOLDER_' . strtoupper(md5(uniqid()));
-		} while (strpos($texte, $boucle_placeholder) !== false);
-	}
-
-	$ligne_debut_initial = $ligne_debut_texte;
-	$pos_debut_texte = 0;
-	while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte)) {
-		$err_b = ''; // indiquera s'il y a eu une erreur
-		$result = new Boucle();
-		$result->id_parent = $id_parent;
-		$result->descr = $descr;
-
-		$pos_courante = $boucle['pos_boucle'];
-		$pos_parent = $boucle['pos_parent'];
-		$id_boucle_search = $id_boucle = $boucle['id_boucle'];
-
-		$ligne_preaff = $ligne_avant = $ligne_milieu = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_parent);
-
-		// boucle anonyme ?
-		if (!strlen($id_boucle)) {
-			$id_boucle = '_anon_L' . $ligne_milieu . '_' . substr(md5('anonyme:' . $id_parent . ':' . json_encode($boucle)), 0, 8);
-		}
-
-		$pos_debut_boucle = $pos_courante;
-
-		$pos_milieu = $pos_parent;
-
-		// Regarder si on a une partie conditionnelle avant <B_xxx>
-		if ($boucle['pos_precond'] !== false) {
-			$pos_debut_boucle = $boucle['pos_precond'];
-
-			$pos_avant = $boucle['pos_precond_inside'];
-			$result->avant = substr($texte, $pos_avant, $pos_courante - $pos_avant);
-			$ligne_avant = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_avant);
-		}
-
-		// Regarder si on a une partie inconditionnelle avant <BB_xxx>
-		if ($boucle['pos_preaff'] !== false) {
-			$end_preaff = $pos_debut_boucle;
-
-			$pos_preaff = $boucle['pos_preaff_inside'];
-			$result->preaff = substr($texte, $pos_preaff, $end_preaff - $pos_preaff);
-			$ligne_preaff = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_preaff);
-		}
-
-		$result->id_boucle = $id_boucle;
-
-		if (
-			!preg_match(SPEC_BOUCLE, $texte, $match, 0, $pos_milieu)
-			or ($pos_match = strpos($texte, $match[0], $pos_milieu)) === false
-			or $pos_match > $pos_milieu
-		) {
-			$err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
-			erreur_squelette($err_b, $result);
-
-			$ligne_debut_texte += public_compte_ligne($texte, $pos_debut_texte, $pos_courante + 1);
-			$pos_debut_texte = $pos_courante + 1;
-			continue;
-		}
-
-		$result->type_requete = $match[0];
-		$pos_milieu += strlen($match[0]);
-		$pos_courante = $pos_milieu; // on s'en sert pour compter les lignes plus precisemment
-
-		$type = $match[1];
-		$jointures = trim($match[2]);
-		$table_optionnelle = ($match[3]);
-		if ($jointures) {
-			// on affecte pas ici les jointures explicites, mais dans la compilation
-			// ou elles seront completees des jointures declarees
-			$result->jointures_explicites = $jointures;
-		}
-
-		if ($table_optionnelle) {
-			$result->table_optionnelle = $type;
-		}
-
-		// 1ere passe sur les criteres, vu comme des arguments sans fct
-		// Resultat mis dans result->param
-		$pos_fin_criteres = $pos_milieu;
-		phraser_args($texte, '/>', '', $all_res, $result, $pos_fin_criteres);
-
-		// En 2e passe result->criteres contiendra un tableau
-		// pour l'instant on met le source (chaine) :
-		// si elle reste ici au final, c'est qu'elle contient une erreur
-		$pos_courante = $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment
-		$result->criteres = substr($texte, $pos_milieu, $pos_fin_criteres - $pos_milieu);
-		$pos_milieu = $pos_fin_criteres;
-
-		//
-		// Recuperer la fin :
-		//
-		if ($texte[$pos_milieu] === '/') {
-			// boucle autofermante : pas de partie conditionnelle apres
-			$pos_courante += 2;
-			$result->milieu = '';
-		} else {
-			$pos_milieu += 1;
-
-			$fin_boucle = BALISE_FIN_BOUCLE . $id_boucle_search . '>';
-			$pos_fin = strpos($texte, $fin_boucle, $pos_milieu);
-			if ($pos_fin === false) {
-				$err_b = [
-					'zbug_erreur_boucle_fermant',
-					['id' => $id_boucle]
-				];
-				erreur_squelette($err_b, $result);
-				$pos_courante += strlen($fin_boucle);
-			}
-			else {
-				// verifier une eventuelle imbrication d'une boucle homonyme
-				// (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur)
-				$search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '(';
-				$search_from = $pos_milieu;
-				$nb_open = 1;
-				$nb_close = 1;
-				$maxiter = 0;
-				do {
-					while (
-						$nb_close < $nb_open
-						and $p = strpos($texte, $fin_boucle, $pos_fin + 1)
-					) {
-						$nb_close++;
-						$pos_fin = $p;
-					}
-					// si on a pas trouve assez de boucles fermantes, sortir de la, on a fait de notre mieux
-					if ($nb_close < $nb_open) {
-						break;
-					}
-					while (
-						$p = strpos($texte, $search_debut_boucle, $search_from)
-						and $p < $pos_fin
-					) {
-						$nb_open++;
-						$search_from = $p + 1;
-					}
-				} while ($nb_close < $nb_open and $maxiter++ < 5);
-
-				$pos_courante = $pos_fin + strlen($fin_boucle);
-			}
-			$result->milieu = substr($texte, $pos_milieu, $pos_fin - $pos_milieu);
-		}
-
-		$ligne_suite = $ligne_apres = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_courante);
-		$boucle = public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_courante, $result);
-
-		//
-		// 1. Partie conditionnelle apres ?
-		//
-		if ($boucle['pos_postcond']) {
-			$result->apres = substr($texte, $pos_courante, $boucle['pos_postcond'] - $pos_courante);
-			$ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postcond_inside']);
-			$pos_courante = $boucle['pos_postcond_inside'] ;
-		}
-
-
-		//
-		// 2. Partie alternative apres ?
-		//
-		$ligne_altern = $ligne_suite;
-		if ($boucle['pos_altern']) {
-			$result->altern = substr($texte, $pos_courante, $boucle['pos_altern'] - $pos_courante);
-			$ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_altern_inside']);
-			$pos_courante = $boucle['pos_altern_inside'];
-		}
-
-		//
-		// 3. Partie footer non alternative ?
-		//
-		$ligne_postaff = $ligne_suite;
-		if ($boucle['pos_postaff']) {
-			$result->postaff = substr($texte, $pos_courante, $boucle['pos_postaff'] - $pos_courante);
-			$ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postaff_inside']);
-			$pos_courante = $boucle['pos_postaff_inside'];
-		}
-
-		$result->ligne = $ligne_preaff;
-
-		if ($p = strpos($type, ':')) {
-			$result->sql_serveur = substr($type, 0, $p);
-			$type = substr($type, $p + 1);
-		}
-		$soustype = strtolower($type);
-
-		if (!isset($GLOBALS['table_des_tables'][$soustype])) {
-			$soustype = $type;
-		}
-
-		$result->type_requete = $soustype;
-		// Lancer la 2e passe sur les criteres si la 1ere etait bonne
-		if (!is_array($result->param)) {
-			$err_b = true;
-		} else {
-			phraser_criteres($result->param, $result);
-			if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) {
-				$result->type_requete = TYPE_RECURSIF;
-				$args = $result->param;
-				array_unshift(
-					$args,
-					substr($type, strlen(TYPE_RECURSIF))
-				);
-				$result->param = $args;
-			}
-		}
-
-		$descr['id_mere_contexte'] = $id_boucle;
-		$result->milieu = public_phraser_html_dist($result->milieu, $id_boucle, $boucles, $descr, $ligne_milieu, $boucle_placeholder);
-		// reserver la place dans la pile des boucles pour compiler ensuite dans le bon ordre
-		// ie les boucles qui apparaissent dans les partie conditionnelles doivent etre compilees apres cette boucle
-		// si il y a deja une boucle de ce nom, cela declenchera une erreur ensuite
-		if (empty($boucles[$id_boucle])) {
-			$boucles[$id_boucle] = null;
-		}
-		$result->preaff = public_phraser_html_dist($result->preaff, $id_parent, $boucles, $descr, $ligne_preaff, $boucle_placeholder);
-		$result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant, $boucle_placeholder);
-		$result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres, $boucle_placeholder);
-		$result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern, $boucle_placeholder);
-		$result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff, $boucle_placeholder);
-
-		// Prevenir le generateur de code que le squelette est faux
-		if ($err_b) {
-			$result->type_requete = false;
-		}
-
-		// Verifier qu'il n'y a pas double definition
-		// apres analyse des sous-parties (pas avant).
-		if (!empty($boucles[$id_boucle])) {
-			if ($boucles[$id_boucle]->type_requete !== false) {
-				$err_b_d = [
-					'zbug_erreur_boucle_double',
-					['id' => $id_boucle]
-				];
-				erreur_squelette($err_b_d, $result);
-				// Prevenir le generateur de code que le squelette est faux
-				$boucles[$id_boucle]->type_requete = false;
-			}
-		} else {
-			$boucles[$id_boucle] = $result;
-		}
-
-		// remplacer la boucle par un placeholder qui compte le meme nombre de lignes
-		$placeholder = public_generer_boucle_placeholder($id_boucle, $boucles[$id_boucle], $boucle_placeholder, $ligne_suite - $ligne_debut_texte);
-		$longueur_boucle = $pos_courante - $boucle['debut_boucle'];
-		$texte = substr_replace($texte, $placeholder, $boucle['debut_boucle'], $longueur_boucle);
-		$pos_courante = $pos_courante - $longueur_boucle + strlen($placeholder);
-
-		// phraser la partie avant le debut de la boucle
-		#$all_res = phraser_champs_etendus(substr($texte, $pos_debut_texte, $boucle['debut_boucle'] - $pos_debut_texte), $ligne_debut_texte, $all_res);
-		#$all_res[] = &$boucles[$id_boucle];
-
-		$ligne_debut_texte = $ligne_suite;
-		$pos_debut_texte = $pos_courante;
-	}
-
-	$all_res = phraser_champs_etendus($texte, $ligne_debut_initial, $all_res);
-
-	return $all_res;
+    $all_res = [];
+    // definir un placholder pour les boucles dont on est sur d'avoir aucune occurence dans le squelette
+    if (is_null($boucle_placeholder)) {
+        do {
+            $boucle_placeholder = 'BOUCLE_PLACEHOLDER_' . strtoupper(md5(uniqid()));
+        } while (strpos($texte, $boucle_placeholder) !== false);
+    }
+
+    $ligne_debut_initial = $ligne_debut_texte;
+    $pos_debut_texte = 0;
+    while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte)) {
+        $err_b = ''; // indiquera s'il y a eu une erreur
+        $result = new Boucle();
+        $result->id_parent = $id_parent;
+        $result->descr = $descr;
+
+        $pos_courante = $boucle['pos_boucle'];
+        $pos_parent = $boucle['pos_parent'];
+        $id_boucle_search = $id_boucle = $boucle['id_boucle'];
+
+        $ligne_preaff = $ligne_avant = $ligne_milieu = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_parent);
+
+        // boucle anonyme ?
+        if (!strlen($id_boucle)) {
+            $id_boucle = '_anon_L' . $ligne_milieu . '_' . substr(md5('anonyme:' . $id_parent . ':' . json_encode($boucle)), 0, 8);
+        }
+
+        $pos_debut_boucle = $pos_courante;
+
+        $pos_milieu = $pos_parent;
+
+        // Regarder si on a une partie conditionnelle avant <B_xxx>
+        if ($boucle['pos_precond'] !== false) {
+            $pos_debut_boucle = $boucle['pos_precond'];
+
+            $pos_avant = $boucle['pos_precond_inside'];
+            $result->avant = substr($texte, $pos_avant, $pos_courante - $pos_avant);
+            $ligne_avant = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_avant);
+        }
+
+        // Regarder si on a une partie inconditionnelle avant <BB_xxx>
+        if ($boucle['pos_preaff'] !== false) {
+            $end_preaff = $pos_debut_boucle;
+
+            $pos_preaff = $boucle['pos_preaff_inside'];
+            $result->preaff = substr($texte, $pos_preaff, $end_preaff - $pos_preaff);
+            $ligne_preaff = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_preaff);
+        }
+
+        $result->id_boucle = $id_boucle;
+
+        if (
+            !preg_match(SPEC_BOUCLE, $texte, $match, 0, $pos_milieu)
+            or ($pos_match = strpos($texte, $match[0], $pos_milieu)) === false
+            or $pos_match > $pos_milieu
+        ) {
+            $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
+            erreur_squelette($err_b, $result);
+
+            $ligne_debut_texte += public_compte_ligne($texte, $pos_debut_texte, $pos_courante + 1);
+            $pos_debut_texte = $pos_courante + 1;
+            continue;
+        }
+
+        $result->type_requete = $match[0];
+        $pos_milieu += strlen($match[0]);
+        $pos_courante = $pos_milieu; // on s'en sert pour compter les lignes plus precisemment
+
+        $type = $match[1];
+        $jointures = trim($match[2]);
+        $table_optionnelle = ($match[3]);
+        if ($jointures) {
+            // on affecte pas ici les jointures explicites, mais dans la compilation
+            // ou elles seront completees des jointures declarees
+            $result->jointures_explicites = $jointures;
+        }
+
+        if ($table_optionnelle) {
+            $result->table_optionnelle = $type;
+        }
+
+        // 1ere passe sur les criteres, vu comme des arguments sans fct
+        // Resultat mis dans result->param
+        $pos_fin_criteres = $pos_milieu;
+        phraser_args($texte, '/>', '', $all_res, $result, $pos_fin_criteres);
+
+        // En 2e passe result->criteres contiendra un tableau
+        // pour l'instant on met le source (chaine) :
+        // si elle reste ici au final, c'est qu'elle contient une erreur
+        $pos_courante = $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment
+        $result->criteres = substr($texte, $pos_milieu, $pos_fin_criteres - $pos_milieu);
+        $pos_milieu = $pos_fin_criteres;
+
+        //
+        // Recuperer la fin :
+        //
+        if ($texte[$pos_milieu] === '/') {
+            // boucle autofermante : pas de partie conditionnelle apres
+            $pos_courante += 2;
+            $result->milieu = '';
+        } else {
+            $pos_milieu += 1;
+
+            $fin_boucle = BALISE_FIN_BOUCLE . $id_boucle_search . '>';
+            $pos_fin = strpos($texte, $fin_boucle, $pos_milieu);
+            if ($pos_fin === false) {
+                $err_b = [
+                    'zbug_erreur_boucle_fermant',
+                    ['id' => $id_boucle]
+                ];
+                erreur_squelette($err_b, $result);
+                $pos_courante += strlen($fin_boucle);
+            }
+            else {
+                // verifier une eventuelle imbrication d'une boucle homonyme
+                // (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur)
+                $search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '(';
+                $search_from = $pos_milieu;
+                $nb_open = 1;
+                $nb_close = 1;
+                $maxiter = 0;
+                do {
+                    while (
+                        $nb_close < $nb_open
+                        and $p = strpos($texte, $fin_boucle, $pos_fin + 1)
+                    ) {
+                        $nb_close++;
+                        $pos_fin = $p;
+                    }
+                    // si on a pas trouve assez de boucles fermantes, sortir de la, on a fait de notre mieux
+                    if ($nb_close < $nb_open) {
+                        break;
+                    }
+                    while (
+                        $p = strpos($texte, $search_debut_boucle, $search_from)
+                        and $p < $pos_fin
+                    ) {
+                        $nb_open++;
+                        $search_from = $p + 1;
+                    }
+                } while ($nb_close < $nb_open and $maxiter++ < 5);
+
+                $pos_courante = $pos_fin + strlen($fin_boucle);
+            }
+            $result->milieu = substr($texte, $pos_milieu, $pos_fin - $pos_milieu);
+        }
+
+        $ligne_suite = $ligne_apres = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_courante);
+        $boucle = public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_courante, $result);
+
+        //
+        // 1. Partie conditionnelle apres ?
+        //
+        if ($boucle['pos_postcond']) {
+            $result->apres = substr($texte, $pos_courante, $boucle['pos_postcond'] - $pos_courante);
+            $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postcond_inside']);
+            $pos_courante = $boucle['pos_postcond_inside'] ;
+        }
+
+
+        //
+        // 2. Partie alternative apres ?
+        //
+        $ligne_altern = $ligne_suite;
+        if ($boucle['pos_altern']) {
+            $result->altern = substr($texte, $pos_courante, $boucle['pos_altern'] - $pos_courante);
+            $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_altern_inside']);
+            $pos_courante = $boucle['pos_altern_inside'];
+        }
+
+        //
+        // 3. Partie footer non alternative ?
+        //
+        $ligne_postaff = $ligne_suite;
+        if ($boucle['pos_postaff']) {
+            $result->postaff = substr($texte, $pos_courante, $boucle['pos_postaff'] - $pos_courante);
+            $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postaff_inside']);
+            $pos_courante = $boucle['pos_postaff_inside'];
+        }
+
+        $result->ligne = $ligne_preaff;
+
+        if ($p = strpos($type, ':')) {
+            $result->sql_serveur = substr($type, 0, $p);
+            $type = substr($type, $p + 1);
+        }
+        $soustype = strtolower($type);
+
+        if (!isset($GLOBALS['table_des_tables'][$soustype])) {
+            $soustype = $type;
+        }
+
+        $result->type_requete = $soustype;
+        // Lancer la 2e passe sur les criteres si la 1ere etait bonne
+        if (!is_array($result->param)) {
+            $err_b = true;
+        } else {
+            phraser_criteres($result->param, $result);
+            if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) {
+                $result->type_requete = TYPE_RECURSIF;
+                $args = $result->param;
+                array_unshift(
+                    $args,
+                    substr($type, strlen(TYPE_RECURSIF))
+                );
+                $result->param = $args;
+            }
+        }
+
+        $descr['id_mere_contexte'] = $id_boucle;
+        $result->milieu = public_phraser_html_dist($result->milieu, $id_boucle, $boucles, $descr, $ligne_milieu, $boucle_placeholder);
+        // reserver la place dans la pile des boucles pour compiler ensuite dans le bon ordre
+        // ie les boucles qui apparaissent dans les partie conditionnelles doivent etre compilees apres cette boucle
+        // si il y a deja une boucle de ce nom, cela declenchera une erreur ensuite
+        if (empty($boucles[$id_boucle])) {
+            $boucles[$id_boucle] = null;
+        }
+        $result->preaff = public_phraser_html_dist($result->preaff, $id_parent, $boucles, $descr, $ligne_preaff, $boucle_placeholder);
+        $result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant, $boucle_placeholder);
+        $result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres, $boucle_placeholder);
+        $result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern, $boucle_placeholder);
+        $result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff, $boucle_placeholder);
+
+        // Prevenir le generateur de code que le squelette est faux
+        if ($err_b) {
+            $result->type_requete = false;
+        }
+
+        // Verifier qu'il n'y a pas double definition
+        // apres analyse des sous-parties (pas avant).
+        if (!empty($boucles[$id_boucle])) {
+            if ($boucles[$id_boucle]->type_requete !== false) {
+                $err_b_d = [
+                    'zbug_erreur_boucle_double',
+                    ['id' => $id_boucle]
+                ];
+                erreur_squelette($err_b_d, $result);
+                // Prevenir le generateur de code que le squelette est faux
+                $boucles[$id_boucle]->type_requete = false;
+            }
+        } else {
+            $boucles[$id_boucle] = $result;
+        }
+
+        // remplacer la boucle par un placeholder qui compte le meme nombre de lignes
+        $placeholder = public_generer_boucle_placeholder($id_boucle, $boucles[$id_boucle], $boucle_placeholder, $ligne_suite - $ligne_debut_texte);
+        $longueur_boucle = $pos_courante - $boucle['debut_boucle'];
+        $texte = substr_replace($texte, $placeholder, $boucle['debut_boucle'], $longueur_boucle);
+        $pos_courante = $pos_courante - $longueur_boucle + strlen($placeholder);
+
+        // phraser la partie avant le debut de la boucle
+        #$all_res = phraser_champs_etendus(substr($texte, $pos_debut_texte, $boucle['debut_boucle'] - $pos_debut_texte), $ligne_debut_texte, $all_res);
+        #$all_res[] = &$boucles[$id_boucle];
+
+        $ligne_debut_texte = $ligne_suite;
+        $pos_debut_texte = $pos_courante;
+    }
+
+    $all_res = phraser_champs_etendus($texte, $ligne_debut_initial, $all_res);
+
+    return $all_res;
 }

Spacing +28 added lines, -28 removed lines

@@ -48,19 +48,19 @@ 
  * Nom d'une balise #TOTO
  *
  * Écriture alambiquée pour rester compatible avec les hexadecimaux des vieux squelettes */
-define('NOM_DE_CHAMP', '#((' . NOM_DE_BOUCLE . "):)?(([A-F]*[G-Z_][A-Z_0-9]*)|[A-Z_]+)\b(\*{0,2})");
+define('NOM_DE_CHAMP', '#(('.NOM_DE_BOUCLE."):)?(([A-F]*[G-Z_][A-Z_0-9]*)|[A-Z_]+)\b(\*{0,2})");
 /** Balise complète [...(#TOTO) ... ] */
-define('CHAMP_ETENDU', '/\[([^]\[]*)\(' . NOM_DE_CHAMP . '([^[)]*\)[^]\[]*)\]/S');
+define('CHAMP_ETENDU', '/\[([^]\[]*)\('.NOM_DE_CHAMP.'([^[)]*\)[^]\[]*)\]/S');
 
 define('BALISE_INCLURE', '/<INCLU[DR]E[[:space:]]*(\(([^)]*)\))?/S');
 define('BALISE_POLYGLOTTE', ',<multi>(.*)</multi>,Uims');
 define('BALISE_IDIOMES', ',<:(([a-z0-9_]+):)?([a-z0-9_]*)({([^\|=>]*=[^\|>]*)})?((\|[^>]*)?:/?>),iS');
-define('BALISE_IDIOMES_ARGS', '@^\s*([^= ]*)\s*=\s*((' . NOM_DE_CHAMP . '[{][^}]*})?[^,]*)\s*,?\s*@s');
+define('BALISE_IDIOMES_ARGS', '@^\s*([^= ]*)\s*=\s*(('.NOM_DE_CHAMP.'[{][^}]*})?[^,]*)\s*,?\s*@s');
 
 /** Champ sql dans parenthèse ex: (id_article) */
 define('SQL_ARGS', '(\([^)]*\))');
 /** Fonction SQL sur un champ ex: SUM(visites) */
-define('CHAMP_SQL_PLUS_FONC', '`?([A-Z_\/][A-Z_\/0-9.]*)' . SQL_ARGS . '?`?');
+define('CHAMP_SQL_PLUS_FONC', '`?([A-Z_\/][A-Z_\/0-9.]*)'.SQL_ARGS.'?`?');
 
 // https://code.spip.net/@phraser_inclure
 function phraser_inclure($texte, $ligne, $result) {
@@ -217,7 +217,7 @@ 
  * @return array
  **/
 function phraser_champs($texte, $ligne, $result) {
-	while (preg_match('/' . NOM_DE_CHAMP . '/S', $texte, $match)) {
+	while (preg_match('/'.NOM_DE_CHAMP.'/S', $texte, $match)) {
 		$p = strpos($texte, $match[0]);
 		// texte après la balise
 		$suite = substr($texte, $p + strlen($match[0]));
@@ -369,7 +369,7 @@ 
 			$collecte[] = $champ;
 			$args = ltrim($regs[count($regs) - 1]);
 		} else {
-			if (!preg_match('/' . NOM_DE_CHAMP . '([{|])/', $arg, $r)) {
+			if (!preg_match('/'.NOM_DE_CHAMP.'([{|])/', $arg, $r)) {
 				// 0 est un aveu d'impuissance. A completer
 				$arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
 
@@ -454,7 +454,7 @@ 
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
 	$res = [];
 	while (($p = strpos($texte, "%$sep")) !== false) {
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
+		if (!preg_match(',^%'.preg_quote($sep).'([0-9]+)@,', substr($texte, $p), $m)) {
 			break;
 		}
 		$debut = substr($texte, 0, $p);
@@ -495,7 +495,7 @@ 
 			$pos_apres = 0;
 			$result = phraser_args($match[7], ')', $sep, $result, $champ, $pos_apres);
 			phraser_vieux($champ);
-			$champ->avant =	phraser_champs_exterieurs($match[1], $n, $sep, $result);
+			$champ->avant = phraser_champs_exterieurs($match[1], $n, $sep, $result);
 			$debut = substr($match[7], $pos_apres + 1);
 			if (!empty($debut)) {
 				$n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
@@ -626,7 +626,7 @@ 
 					// une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
 					if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
 						$c = null;
-						eval('$c = ' . $m[4] . ';');
+						eval('$c = '.$m[4].';');
 						if (isset($c)) {
 							$m[4] = $c;
 						}
@@ -706,7 +706,7 @@ 
 					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
 						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
 					} elseif (
-						preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+						preg_match(',^([!]?)('.CHAMP_SQL_PLUS_FONC.
 						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)
 					) {
 						$a2 = trim($m[8]);
@@ -723,8 +723,8 @@ 
 						);
 						$crit->exclus = $m[1];
 					} elseif (
-						preg_match('/^([!]?)\s*(' .
-						CHAMP_SQL_PLUS_FONC .
+						preg_match('/^([!]?)\s*('.
+						CHAMP_SQL_PLUS_FONC.
 						')\s*(\??)(.*)$/is', $param, $m)
 					) {
 						// contient aussi les comparaisons implicites !
@@ -870,7 +870,7 @@ 
 			}
 
 			// trouver sa position de depart reelle : au <Bxx> ou au <BBxx>
-			$precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
+			$precond_boucle = BALISE_PRECOND_BOUCLE.$id_boucle.'>';
 			$pos_precond = strpos($texte, $precond_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
 			if (
 				$pos_precond !== false
@@ -881,7 +881,7 @@ 
 				$boucle['pos_precond_inside'] = $pos_precond + strlen($precond_boucle);
 			}
 
-			$preaff_boucle = BALISE_PREAFF_BOUCLE . $id_boucle . '>';
+			$preaff_boucle = BALISE_PREAFF_BOUCLE.$id_boucle.'>';
 			$pos_preaff = strpos($texte, $preaff_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
 			if (
 				$pos_preaff !== false
@@ -929,13 +929,13 @@ 
 	$pos_anonyme_next = null;
 	// si c'est une boucle anonyme, chercher la position de la prochaine boucle anonyme
 	if (!strlen($id_boucle)) {
-		$pos_anonyme_next = strpos($texte, BALISE_BOUCLE . '(', $pos_courante);
+		$pos_anonyme_next = strpos($texte, BALISE_BOUCLE.'(', $pos_courante);
 	}
 
 	//
 	// 1. Recuperer la partie conditionnelle apres
 	//
-	$apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . '>';
+	$apres_boucle = BALISE_POSTCOND_BOUCLE.$id_boucle.'>';
 	$pos_apres = strpos($texte, $apres_boucle, $pos_courante);
 	if (
 		$pos_apres !== false
@@ -944,13 +944,13 @@ 
 		$boucle['pos_postcond'] = $pos_apres;
 		$pos_apres += strlen($apres_boucle);
 		$boucle['pos_postcond_inside'] = $pos_apres;
-		$pos_courante = $pos_apres ;
+		$pos_courante = $pos_apres;
 	}
 
 	//
 	// 2. Récuperer la partie alternative apres
 	//
-	$altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . '>';
+	$altern_boucle = BALISE_ALT_BOUCLE.$id_boucle.'>';
 	$pos_altern = strpos($texte, $altern_boucle, $pos_courante);
 	if (
 		$pos_altern !== false
@@ -965,7 +965,7 @@ 
 	//
 	// 3. Recuperer la partie footer non alternative
 	//
-	$postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . '>';
+	$postaff_boucle = BALISE_POSTAFF_BOUCLE.$id_boucle.'>';
 	$pos_postaff = strpos($texte, $postaff_boucle, $pos_courante);
 	if (
 		$pos_postaff !== false
@@ -974,7 +974,7 @@ 
 		$boucle['pos_postaff'] = $pos_postaff;
 		$pos_postaff += strlen($postaff_boucle);
 		$boucle['pos_postaff_inside'] = $pos_postaff;
-		$pos_courante = $pos_postaff ;
+		$pos_courante = $pos_postaff;
 	}
 
 	return $boucle;
@@ -1014,7 +1014,7 @@ 
  * @return string
  */
 function public_generer_boucle_placeholder($id_boucle, &$boucle, $boucle_placeholder, $nb_lignes) {
-	$placeholder = "[(#{$boucle_placeholder}{" . $id_boucle . '})' . str_pad('', $nb_lignes, "\n") . ']';
+	$placeholder = "[(#{$boucle_placeholder}{".$id_boucle.'})'.str_pad('', $nb_lignes, "\n").']';
 	//memoriser la boucle a reinjecter
 	$id_boucle = "$id_boucle";
 	phraser_boucle_placeholder($id_boucle, $boucle_placeholder, $boucle);
@@ -1027,7 +1027,7 @@ 
 	// definir un placholder pour les boucles dont on est sur d'avoir aucune occurence dans le squelette
 	if (is_null($boucle_placeholder)) {
 		do {
-			$boucle_placeholder = 'BOUCLE_PLACEHOLDER_' . strtoupper(md5(uniqid()));
+			$boucle_placeholder = 'BOUCLE_PLACEHOLDER_'.strtoupper(md5(uniqid()));
 		} while (strpos($texte, $boucle_placeholder) !== false);
 	}
 
@@ -1047,7 +1047,7 @@ 
 
 		// boucle anonyme ?
 		if (!strlen($id_boucle)) {
-			$id_boucle = '_anon_L' . $ligne_milieu . '_' . substr(md5('anonyme:' . $id_parent . ':' . json_encode($boucle)), 0, 8);
+			$id_boucle = '_anon_L'.$ligne_milieu.'_'.substr(md5('anonyme:'.$id_parent.':'.json_encode($boucle)), 0, 8);
 		}
 
 		$pos_debut_boucle = $pos_courante;
@@ -1060,7 +1060,7 @@ 
 
 			$pos_avant = $boucle['pos_precond_inside'];
 			$result->avant = substr($texte, $pos_avant, $pos_courante - $pos_avant);
-			$ligne_avant = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_avant);
+			$ligne_avant = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_avant);
 		}
 
 		// Regarder si on a une partie inconditionnelle avant <BB_xxx>
@@ -1069,7 +1069,7 @@ 
 
 			$pos_preaff = $boucle['pos_preaff_inside'];
 			$result->preaff = substr($texte, $pos_preaff, $end_preaff - $pos_preaff);
-			$ligne_preaff = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_preaff);
+			$ligne_preaff = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_preaff);
 		}
 
 		$result->id_boucle = $id_boucle;
@@ -1126,7 +1126,7 @@ 
 		} else {
 			$pos_milieu += 1;
 
-			$fin_boucle = BALISE_FIN_BOUCLE . $id_boucle_search . '>';
+			$fin_boucle = BALISE_FIN_BOUCLE.$id_boucle_search.'>';
 			$pos_fin = strpos($texte, $fin_boucle, $pos_milieu);
 			if ($pos_fin === false) {
 				$err_b = [
@@ -1139,7 +1139,7 @@ 
 			else {
 				// verifier une eventuelle imbrication d'une boucle homonyme
 				// (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur)
-				$search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '(';
+				$search_debut_boucle = BALISE_BOUCLE.$id_boucle_search.'(';
 				$search_from = $pos_milieu;
 				$nb_open = 1;
 				$nb_close = 1;
@@ -1179,7 +1179,7 @@ 
 		if ($boucle['pos_postcond']) {
 			$result->apres = substr($texte, $pos_courante, $boucle['pos_postcond'] - $pos_courante);
 			$ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postcond_inside']);
-			$pos_courante = $boucle['pos_postcond_inside'] ;
+			$pos_courante = $boucle['pos_postcond_inside'];
 		}
 
 

Braces +4 added lines, -8 removed lines

@@ -802,8 +802,7 @@ 
 function public_compte_ligne($texte, $debut = 0, $fin = null) {
 	if (is_null($fin)) {
 		return substr_count($texte, "\n", $debut);
-	}
-	else {
+	} else {
 		return substr_count($texte, "\n", $debut, $fin - $debut);
 	}
 }
@@ -850,8 +849,7 @@ 
 			erreur_squelette($err_b, $result);
 
 			continue;
-		}
-		else {
+		} else {
 			$boucle = [
 				'id_boucle' => $id_boucle,
 				'id_boucle_err' => $id_boucle,
@@ -991,8 +989,7 @@ 
 	// si c'est un appel pour memoriser une boucle, memorisons la
 	if (is_string($champ) and !empty($boucle_placeholder) and !empty($boucle)) {
 		$boucles_connues[$boucle_placeholder][$champ] = &$boucle;
-	}
-	else {
+	} else {
 		if (!empty($champ->nom_champ) and !empty($boucles_connues[$champ->nom_champ])) {
 			$placeholder = $champ->nom_champ;
 			$id = reset($champ->param[0][1]);
@@ -1135,8 +1132,7 @@ 
 				];
 				erreur_squelette($err_b, $result);
 				$pos_courante += strlen($fin_boucle);
-			}
-			else {
+			} else {
 				// verifier une eventuelle imbrication d'une boucle homonyme
 				// (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur)
 				$search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '(';

ecrire/public/criteres.php

Indentation +1721 added lines, -1721 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,14 +43,14 @@ 
  **/
 function critere_racine_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
+        $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
+        'id_parent';
 
-	$c = ["'='", "'$boucle->id_table." . "$id_parent'", 0];
-	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
+    $c = ["'='", "'$boucle->id_table." . "$id_parent'", 0];
+    $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
 }
 
 
@@ -67,15 +67,15 @@ 
  * @return void
  **/
 function critere_exclus_dist($idb, &$boucles, $crit) {
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$id = $boucle->primary;
-
-	if ($not or !$id) {
-		return (['zbug_critere_inconnu', ['critere' => $not . $crit->op]]);
-	}
-	$arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
-	$boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg];
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id = $boucle->primary;
+
+    if ($not or !$id) {
+        return (['zbug_critere_inconnu', ['critere' => $not . $crit->op]]);
+    }
+    $arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
+    $boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg];
 }
 
 
@@ -95,73 +95,73 @@ 
  * @return void
  **/
 function critere_doublons_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$primary = $boucle->primary;
-
-	// la table nécessite une clé primaire, non composée
-	if (!$primary or strpos($primary, ',')) {
-		return (['zbug_doublon_sur_table_sans_cle_primaire']);
-	}
-
-	$not = ($crit->not ? '' : 'NOT');
-
-	// le doublon s'applique sur un type de boucle (article)
-	$nom = "'" . $boucle->type_requete . "'";
-
-	// compléter le nom avec un nom précisé {doublons nom}
-	// on obtient $nom = "'article' . 'nom'"
-	if (isset($crit->param[0])) {
-		$nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-	}
-
-	// code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
-	$init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n";
-	$init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n";
-
-	// on crée un sql_in avec la clé primaire de la table
-	// et la collection des doublons déjà emmagasinés dans le tableau
-	// $doublons et son index, ici $nom
-
-	// debut du code "sql_in('articles.id_article', "
-	$debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
-	// lecture des données du doublon "$doublons[$doublon_index[] = "
-	// Attention : boucle->doublons désigne une variable qu'on affecte
-	$debut_doub = '$doublons[' . (!$not ? '' : ($boucle->doublons . '[]= '));
-
-	// le debut complet du code des doublons
-	$debut_doub = $debut_in . $debut_doub;
-
-	// nom du doublon "('article' . 'nom')]"
-	$fin_doub = "($nom)]";
-
-	// si on trouve un autre critère doublon,
-	// on fusionne pour avoir un seul IN, et on s'en va !
-	foreach ($boucle->where as $k => $w) {
-		if (strpos($w[0], $debut_doub) === 0) {
-			// fusionner le sql_in (du where)
-			$boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr($w[0], strlen($debut_in));
-			// fusionner l'initialisation (du hash) pour faire plus joli
-			$x = strpos($boucle->hash, $init_comment);
-			$len = strlen($init_comment);
-			$boucle->hash =
-				substr($boucle->hash, 0, $x + $len) . $init_code . substr($boucle->hash, $x + $len);
-
-			return;
-		}
-	}
-
-	// mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante
-	$boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"];
-
-	// déclarer le doublon s'il n'existe pas encore
-	$boucle->hash .= $init_comment . $init_code;
-
-
-	# la ligne suivante avait l'intention d'eviter une collecte deja faite
-	# mais elle fait planter une boucle a 2 critere doublons:
-	# {!doublons A}{doublons B}
-	# (de http://article.gmane.org/gmane.comp.web.spip.devel/31034)
-	#	if ($crit->not) $boucle->doublons = "";
+    $boucle = &$boucles[$idb];
+    $primary = $boucle->primary;
+
+    // la table nécessite une clé primaire, non composée
+    if (!$primary or strpos($primary, ',')) {
+        return (['zbug_doublon_sur_table_sans_cle_primaire']);
+    }
+
+    $not = ($crit->not ? '' : 'NOT');
+
+    // le doublon s'applique sur un type de boucle (article)
+    $nom = "'" . $boucle->type_requete . "'";
+
+    // compléter le nom avec un nom précisé {doublons nom}
+    // on obtient $nom = "'article' . 'nom'"
+    if (isset($crit->param[0])) {
+        $nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+    }
+
+    // code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
+    $init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n";
+    $init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n";
+
+    // on crée un sql_in avec la clé primaire de la table
+    // et la collection des doublons déjà emmagasinés dans le tableau
+    // $doublons et son index, ici $nom
+
+    // debut du code "sql_in('articles.id_article', "
+    $debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
+    // lecture des données du doublon "$doublons[$doublon_index[] = "
+    // Attention : boucle->doublons désigne une variable qu'on affecte
+    $debut_doub = '$doublons[' . (!$not ? '' : ($boucle->doublons . '[]= '));
+
+    // le debut complet du code des doublons
+    $debut_doub = $debut_in . $debut_doub;
+
+    // nom du doublon "('article' . 'nom')]"
+    $fin_doub = "($nom)]";
+
+    // si on trouve un autre critère doublon,
+    // on fusionne pour avoir un seul IN, et on s'en va !
+    foreach ($boucle->where as $k => $w) {
+        if (strpos($w[0], $debut_doub) === 0) {
+            // fusionner le sql_in (du where)
+            $boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr($w[0], strlen($debut_in));
+            // fusionner l'initialisation (du hash) pour faire plus joli
+            $x = strpos($boucle->hash, $init_comment);
+            $len = strlen($init_comment);
+            $boucle->hash =
+                substr($boucle->hash, 0, $x + $len) . $init_code . substr($boucle->hash, $x + $len);
+
+            return;
+        }
+    }
+
+    // mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante
+    $boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"];
+
+    // déclarer le doublon s'il n'existe pas encore
+    $boucle->hash .= $init_comment . $init_code;
+
+
+    # la ligne suivante avait l'intention d'eviter une collecte deja faite
+    # mais elle fait planter une boucle a 2 critere doublons:
+    # {!doublons A}{doublons B}
+    # (de http://article.gmane.org/gmane.comp.web.spip.devel/31034)
+    #	if ($crit->not) $boucle->doublons = "";
 }
 
 
@@ -182,14 +182,14 @@ 
  * @return void
  **/
 function critere_lang_select_dist($idb, &$boucles, $crit) {
-	if (!isset($crit->param[1][0]) or !($param = $crit->param[1][0]->texte)) {
-		$param = 'oui';
-	}
-	if ($crit->not) {
-		$param = ($param == 'oui') ? 'non' : 'oui';
-	}
-	$boucle = &$boucles[$idb];
-	$boucle->lang_select = $param;
+    if (!isset($crit->param[1][0]) or !($param = $crit->param[1][0]->texte)) {
+        $param = 'oui';
+    }
+    if ($crit->not) {
+        $param = ($param == 'oui') ? 'non' : 'oui';
+    }
+    $boucle = &$boucles[$idb];
+    $boucle->lang_select = $param;
 }
 
 
@@ -211,18 +211,18 @@ 
  * @return void
  **/
 function critere_debut_dist($idb, &$boucles, $crit) {
-	list($un, $deux) = $crit->param;
-	$un = $un[0]->texte;
-	$deux = $deux[0]->texte;
-	if ($deux) {
-		$boucles[$idb]->limit = 'intval($Pile[0]["debut' .
-			$un .
-			'"]) . ",' .
-			$deux .
-			'"';
-	} else {
-		calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
-	}
+    list($un, $deux) = $crit->param;
+    $un = $un[0]->texte;
+    $deux = $deux[0]->texte;
+    if ($deux) {
+        $boucles[$idb]->limit = 'intval($Pile[0]["debut' .
+            $un .
+            '"]) . ",' .
+            $deux .
+            '"';
+    } else {
+        calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
+    }
 }
 
 
@@ -256,58 +256,58 @@ 
  **/
 function critere_pagination_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	// definition de la taille de la page
-	$pas = !isset($crit->param[0][0]) ? "''"
-		: calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
-
-	if (!preg_match(_CODE_QUOTE, $pas, $r)) {
-		$pas = "((\$a = intval($pas)) ? \$a : 10)";
-	} else {
-		$r = intval($r[2]);
-		$pas = strval($r ? $r : 10);
-	}
-
-	// Calcul du nommage de la pagination si il existe.
-	// La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste
-	// compatible avec l'ancienne car certains cas fonctionnent correctement
-	$type = "'$idb'";
-	// Calcul d'un nommage spécifique de la pagination si précisé.
-	// Syntaxe {pagination 20, nom}
-	if (isset($crit->param[0][1])) {
-		$type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent);
-	} // Ancienne syntaxe {pagination 20 nom} pour compatibilité
-	elseif (isset($crit->param[1][0])) {
-		$type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
-	}
-
-	$debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
-	$boucle->modificateur['debut_nom'] = $type;
-	$partie =
-		// tester si le numero de page demande est de la forme '@yyy'
-		'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n"
-		. "\tif(substr(\$debut_boucle,0,1)=='@'){\n"
-		. "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n"
-		. "\t\t" . '$iter->seek(0);' . "\n"
-		. "\t}\n"
-		. "\t" . '$debut_boucle = intval($debut_boucle)';
-
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    // definition de la taille de la page
+    $pas = !isset($crit->param[0][0]) ? "''"
+        : calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
+
+    if (!preg_match(_CODE_QUOTE, $pas, $r)) {
+        $pas = "((\$a = intval($pas)) ? \$a : 10)";
+    } else {
+        $r = intval($r[2]);
+        $pas = strval($r ? $r : 10);
+    }
+
+    // Calcul du nommage de la pagination si il existe.
+    // La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste
+    // compatible avec l'ancienne car certains cas fonctionnent correctement
+    $type = "'$idb'";
+    // Calcul d'un nommage spécifique de la pagination si précisé.
+    // Syntaxe {pagination 20, nom}
+    if (isset($crit->param[0][1])) {
+        $type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent);
+    } // Ancienne syntaxe {pagination 20 nom} pour compatibilité
+    elseif (isset($crit->param[1][0])) {
+        $type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
+    }
+
+    $debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
+    $boucle->modificateur['debut_nom'] = $type;
+    $partie =
+        // tester si le numero de page demande est de la forme '@yyy'
+        'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n"
+        . "\tif(substr(\$debut_boucle,0,1)=='@'){\n"
+        . "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n"
+        . "\t\t" . '$iter->seek(0);' . "\n"
+        . "\t}\n"
+        . "\t" . '$debut_boucle = intval($debut_boucle)';
+
+    $boucle->hash .= '
 	$command[\'pagination\'] = array((isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : null), ' . $pas . ');';
 
-	$boucle->total_parties = $pas;
-	calculer_parties($boucles, $idb, $partie, 'p+');
-	// ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id
-	// sauf si pas de primaire, ou si primaire composee
-	// dans ce cas, on ne sait pas gerer une pagination indirecte
-	$t = $boucle->id_table . '.' . $boucle->primary;
-	if (
-		$boucle->primary
-		and !preg_match('/[,\s]/', $boucle->primary)
-		and !in_array($t, $boucle->select)
-	) {
-		$boucle->select[] = $t;
-	}
+    $boucle->total_parties = $pas;
+    calculer_parties($boucles, $idb, $partie, 'p+');
+    // ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id
+    // sauf si pas de primaire, ou si primaire composee
+    // dans ce cas, on ne sait pas gerer une pagination indirecte
+    $t = $boucle->id_table . '.' . $boucle->primary;
+    if (
+        $boucle->primary
+        and !preg_match('/[,\s]/', $boucle->primary)
+        and !in_array($t, $boucle->select)
+    ) {
+        $boucle->select[] = $t;
+    }
 }
 
 
@@ -329,24 +329,24 @@ 
  **/
 function critere_recherche_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	if (!$boucle->primary or strpos($boucle->primary, ',')) {
-		erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle);
+    if (!$boucle->primary or strpos($boucle->primary, ',')) {
+        erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle);
 
-		return;
-	}
+        return;
+    }
 
-	if (isset($crit->param[0])) {
-		$quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-	} else {
-		$quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))';
-	}
+    if (isset($crit->param[0])) {
+        $quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+    } else {
+        $quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))';
+    }
 
-	$_modificateur = var_export($boucle->modificateur, true);
-	$boucle->hash .= '
+    $_modificateur = var_export($boucle->modificateur, true);
+    $boucle->hash .= '
 	// RECHERCHE'
-		. ($crit->cond ? '
+        . ($crit->cond ? '
 	if (!strlen(' . $quoi . ')){
 		list($rech_select, $rech_where) = array("0 as points","");
 	} else' : '') . '
@@ -357,21 +357,21 @@ 
 	';
 
 
-	$t = $boucle->id_table . '.' . $boucle->primary;
-	if (!in_array($t, $boucles[$idb]->select)) {
-		$boucle->select[] = $t;
-	} # pour postgres, neuneu ici
-	// jointure uniquement sur le serveur principal
-	// (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal)
-	if (!$boucle->sql_serveur) {
-		$boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"];
-		$boucle->from['resultats'] = 'spip_resultats';
-	}
-	$boucle->select[] = '$rech_select';
-	//$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''";
-
-	// et la recherche trouve
-	$boucle->where[] = '$rech_where?$rech_where:\'\'';
+    $t = $boucle->id_table . '.' . $boucle->primary;
+    if (!in_array($t, $boucles[$idb]->select)) {
+        $boucle->select[] = $t;
+    } # pour postgres, neuneu ici
+    // jointure uniquement sur le serveur principal
+    // (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal)
+    if (!$boucle->sql_serveur) {
+        $boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"];
+        $boucle->from['resultats'] = 'spip_resultats';
+    }
+    $boucle->select[] = '$rech_select';
+    //$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''";
+
+    // et la recherche trouve
+    $boucle->where[] = '$rech_where?$rech_where:\'\'';
 }
 
 /**
@@ -388,25 +388,25 @@ 
  * @return void
  **/
 function critere_traduction_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$prim = $boucle->primary;
-	$table = $boucle->id_table;
-	$arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles));
-	$dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles));
-	$boucle->where[] =
-		[
-			"'OR'",
-			[
-				"'AND'",
-				["'='", "'$table.id_trad'", 0],
-				["'='", "'$table.$prim'", $dprim]
-			],
-			[
-				"'AND'",
-				["'>'", "'$table.id_trad'", 0],
-				["'='", "'$table.id_trad'", $arg]
-			]
-		];
+    $boucle = &$boucles[$idb];
+    $prim = $boucle->primary;
+    $table = $boucle->id_table;
+    $arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles));
+    $dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles));
+    $boucle->where[] =
+        [
+            "'OR'",
+            [
+                "'AND'",
+                ["'='", "'$table.id_trad'", 0],
+                ["'='", "'$table.$prim'", $dprim]
+            ],
+            [
+                "'AND'",
+                ["'>'", "'$table.id_trad'", 0],
+                ["'='", "'$table.id_trad'", $arg]
+            ]
+        ];
 }
 
 
@@ -424,17 +424,17 @@ 
  * @return void
  **/
 function critere_origine_traduction_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$prim = $boucle->primary;
-	$table = $boucle->id_table;
-
-	$c =
-		[
-			"'OR'",
-			["'='", "'$table." . "id_trad'", "'$table.$prim'"],
-			["'='", "'$table.id_trad'", "'0'"]
-		];
-	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
+    $boucle = &$boucles[$idb];
+    $prim = $boucle->primary;
+    $table = $boucle->id_table;
+
+    $c =
+        [
+            "'OR'",
+            ["'='", "'$table." . "id_trad'", "'$table.$prim'"],
+            ["'='", "'$table.id_trad'", "'0'"]
+        ];
+    $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
 }
 
 
@@ -451,19 +451,19 @@ 
  **/
 function critere_meme_parent_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
-	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
-	$mparent = $boucle->id_table . '.' . $id_parent;
-
-	if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
-		$boucle->where[] = ["'='", "'$mparent'", $arg];
-	} // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
-	else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]]);
-	}
+    $boucle = &$boucles[$idb];
+    $arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
+    $id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
+        $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
+        'id_parent';
+    $mparent = $boucle->id_table . '.' . $id_parent;
+
+    if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
+        $boucle->where[] = ["'='", "'$mparent'", $arg];
+    } // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
+    else {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]]);
+    }
 }
 
 
@@ -494,37 +494,37 @@ 
  **/
 function critere_branche_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	// prendre en priorite un identifiant en parametre {branche XX}
-	if (isset($crit->param[0])) {
-		$arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-		// sinon on le prend chez une boucle parente
-	} else {
-		$arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL');
-	}
-
-	//Trouver une jointure
-	$champ = 'id_rubrique';
-	$desc = $boucle->show;
-	//Seulement si necessaire
-	if (!array_key_exists($champ, $desc['field'])) {
-		$cle = trouver_jointure_champ($champ, $boucle);
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		$desc = $trouver_table($boucle->from[$cle]);
-		if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
-			$decompose = decompose_champ_id_objet($champ);
-			$champ = array_shift($decompose);
-			$boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"'];
-		}
-	} else {
-		$cle = $boucle->id_table;
-	}
-
-	$c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)"
-		. ($not ? ", 'NOT'" : '') . ')';
-	$boucle->where[] = !$crit->cond ? $c :
-		("($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')');
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    // prendre en priorite un identifiant en parametre {branche XX}
+    if (isset($crit->param[0])) {
+        $arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+        // sinon on le prend chez une boucle parente
+    } else {
+        $arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL');
+    }
+
+    //Trouver une jointure
+    $champ = 'id_rubrique';
+    $desc = $boucle->show;
+    //Seulement si necessaire
+    if (!array_key_exists($champ, $desc['field'])) {
+        $cle = trouver_jointure_champ($champ, $boucle);
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        $desc = $trouver_table($boucle->from[$cle]);
+        if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
+            $decompose = decompose_champ_id_objet($champ);
+            $champ = array_shift($decompose);
+            $boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"'];
+        }
+    } else {
+        $cle = $boucle->id_table;
+    }
+
+    $c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)"
+        . ($not ? ", 'NOT'" : '') . ')';
+    $boucle->where[] = !$crit->cond ? $c :
+        ("($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')');
 }
 
 /**
@@ -540,15 +540,15 @@ 
  **/
 function critere_logo_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$not = ($crit->not ? 'NOT' : '');
-	$serveur = $boucle->sql_serveur;
+    $boucle = &$boucles[$idb];
+    $not = ($crit->not ? 'NOT' : '');
+    $serveur = $boucle->sql_serveur;
 
-	$c = "sql_in('" .
-		$boucle->id_table . '.' . $boucle->primary
-		. "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')";
+    $c = "sql_in('" .
+        $boucle->id_table . '.' . $boucle->primary
+        . "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')";
 
-	$boucle->where[] = $c;
+    $boucle->where[] = $c;
 }
 
 
@@ -570,31 +570,31 @@ 
  * @return void
  **/
 function critere_fusion_dist($idb, &$boucles, $crit) {
-	if ($t = isset($crit->param[0])) {
-		$t = $crit->param[0];
-		if ($t[0]->type == 'texte') {
-			$t = $t[0]->texte;
-			if (preg_match('/^(.*)\.(.*)$/', $t, $r)) {
-				$t = table_objet_sql($r[1]);
-				$t = array_search($t, $boucles[$idb]->from);
-				if ($t) {
-					$t .= '.' . $r[2];
-				}
-			}
-		} else {
-			$t = '".'
-				. calculer_critere_arg_dynamique($idb, $boucles, $t)
-				. '."';
-		}
-	}
-	if ($t) {
-		$boucles[$idb]->group[] = $t;
-		if (!in_array($t, $boucles[$idb]->select)) {
-			$boucles[$idb]->select[] = $t;
-		}
-	} else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
-	}
+    if ($t = isset($crit->param[0])) {
+        $t = $crit->param[0];
+        if ($t[0]->type == 'texte') {
+            $t = $t[0]->texte;
+            if (preg_match('/^(.*)\.(.*)$/', $t, $r)) {
+                $t = table_objet_sql($r[1]);
+                $t = array_search($t, $boucles[$idb]->from);
+                if ($t) {
+                    $t .= '.' . $r[2];
+                }
+            }
+        } else {
+            $t = '".'
+                . calculer_critere_arg_dynamique($idb, $boucles, $t)
+                . '."';
+        }
+    }
+    if ($t) {
+        $boucles[$idb]->group[] = $t;
+        if (!in_array($t, $boucles[$idb]->select)) {
+            $boucles[$idb]->select[] = $t;
+        }
+    } else {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
+    }
 }
 
 /**
@@ -614,7 +614,7 @@ 
  * @return void
  **/
 function critere_fusion_supprimer_dist($idb, &$boucles, $crit) {
-	$boucles[$idb]->group = [];
+    $boucles[$idb]->group = [];
 }
 
 /**
@@ -651,45 +651,45 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_collecte_dist($idb, &$boucles, $crit) {
-	if (isset($crit->param[0])) {
-		$_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-		$boucle = $boucles[$idb];
-		$boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')";
-		$n = count($boucle->order);
-		if ($n && (strpos($boucle->order[$n - 1], 'COLLATE') === false)) {
-			// l'instruction COLLATE doit être placée avant ASC ou DESC
-			// notamment lors de l'utilisation `{!par xxx}{collate yyy}`
-			if (
-				(false !== $i = strpos($boucle->order[$n - 1], 'ASC'))
-				or (false !== $i = strpos($boucle->order[$n - 1], 'DESC'))
-			) {
-				$boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0);
-			} else {
-				$boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate'];
-			}
-		}
-	} else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . count($boucles[$idb]->order)]]);
-	}
+    if (isset($crit->param[0])) {
+        $_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+        $boucle = $boucles[$idb];
+        $boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')";
+        $n = count($boucle->order);
+        if ($n && (strpos($boucle->order[$n - 1], 'COLLATE') === false)) {
+            // l'instruction COLLATE doit être placée avant ASC ou DESC
+            // notamment lors de l'utilisation `{!par xxx}{collate yyy}`
+            if (
+                (false !== $i = strpos($boucle->order[$n - 1], 'ASC'))
+                or (false !== $i = strpos($boucle->order[$n - 1], 'DESC'))
+            ) {
+                $boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0);
+            } else {
+                $boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate'];
+            }
+        }
+    } else {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . count($boucles[$idb]->order)]]);
+    }
 }
 
 // https://code.spip.net/@calculer_critere_arg_dynamique
 function calculer_critere_arg_dynamique($idb, &$boucles, $crit, $suffix = '') {
-	$boucle = $boucles[$idb];
-	$alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')';
-	$var = '$champs_' . $idb;
-	$desc = (strpos($boucle->in, "static $var =") !== false);
-	if (!$desc) {
-		$desc = $boucle->show['field'];
-		$desc = implode(',', array_map('_q', array_keys($desc)));
-		$boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');';
-	}
-	if ($desc) {
-		$alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
-	}
-	$arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent);
-
-	return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')";
+    $boucle = $boucles[$idb];
+    $alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')';
+    $var = '$champs_' . $idb;
+    $desc = (strpos($boucle->in, "static $var =") !== false);
+    if (!$desc) {
+        $desc = $boucle->show['field'];
+        $desc = implode(',', array_map('_q', array_keys($desc)));
+        $boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');';
+    }
+    if ($desc) {
+        $alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
+    }
+    $arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent);
+
+    return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')";
 }
 
 /**
@@ -728,7 +728,7 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_par_dist($idb, &$boucles, $crit) {
-	return critere_parinverse($idb, $boucles, $crit);
+    return critere_parinverse($idb, $boucles, $crit);
 }
 
 /**
@@ -750,93 +750,93 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_parinverse($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	$sens = $collecte = '';
-	if ($crit->not) {
-		$sens = " . ' DESC'";
-	}
-	if (isset($boucle->modificateur['collate'])) {
-		$collecte = ' . ' . $boucle->modificateur['collate'];
-	}
-
-	// Pour chaque paramètre du critère
-	foreach ($crit->param as $tri) {
-		$order = $fct = '';
-		// tris specifiés dynamiquement {par #ENV{tri}}
-		if ($tri[0]->type != 'texte') {
-			// calculer le order dynamique qui verifie les champs
-			$order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
-			// ajouter 'hasard' comme possibilité de tri dynamique
-			calculer_critere_par_hasard($idb, $boucles, $crit);
-		}
-		// tris textuels {par titre}
-		else {
-			$par = array_shift($tri);
-			$par = $par->texte;
-
-			// tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre}
-			if (preg_match(',^(\w+)[\s]+(.*)$,', $par, $m)) {
-				$expression = trim($m[1]);
-				$champ = trim($m[2]);
-				if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
-					$order = $f($idb, $boucles, $crit, $tri, $champ);
-				} else {
-					return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-				}
-
-			// tris de la forme {par champ} ou {par FONCTION(champ)}
-			} elseif (preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
-				// {par FONCTION(champ)}
-				if (count($match) > 2) {
-					$par = substr($match[2], 1, -1);
-					$fct = $match[1];
-				}
-				// quelques cas spécifiques {par hasard}, {par date}
-				if ($par == 'hasard') {
-					$order = calculer_critere_par_hasard($idb, $boucles, $crit);
-				} elseif ($par == 'date' and !empty($boucle->show['date'])) {
-					$order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'";
-				} else {
-					// cas général {par champ}, {par table.champ}, ...
-					$order = calculer_critere_par_champ($idb, $boucles, $crit, $par);
-				}
-			}
-
-			// on ne sait pas traiter…
-			else {
-				return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-			}
-
-			// En cas d'erreur de squelette retournée par une fonction
-			if (is_array($order)) {
-				return $order;
-			}
-		}
-
-		if (preg_match('/^\'([^"]*)\'$/', $order, $m)) {
-			$t = $m[1];
-			if (strpos($t, '.') and !in_array($t, $boucle->select)) {
-				$boucle->select[] = $t;
-			}
-		} else {
-			$sens = '';
-		}
-
-		if ($fct) {
-			if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
-				$order = "'$fct(" . $r[1] . ")'";
-			} else {
-				$order = "'$fct(' . $order . ')'";
-			}
-		}
-		$t = $order . $collecte . $sens;
-		if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-			$t = $r[1] . $r[2];
-		}
-
-		$boucle->order[] = $t;
-	}
+    $boucle = &$boucles[$idb];
+
+    $sens = $collecte = '';
+    if ($crit->not) {
+        $sens = " . ' DESC'";
+    }
+    if (isset($boucle->modificateur['collate'])) {
+        $collecte = ' . ' . $boucle->modificateur['collate'];
+    }
+
+    // Pour chaque paramètre du critère
+    foreach ($crit->param as $tri) {
+        $order = $fct = '';
+        // tris specifiés dynamiquement {par #ENV{tri}}
+        if ($tri[0]->type != 'texte') {
+            // calculer le order dynamique qui verifie les champs
+            $order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
+            // ajouter 'hasard' comme possibilité de tri dynamique
+            calculer_critere_par_hasard($idb, $boucles, $crit);
+        }
+        // tris textuels {par titre}
+        else {
+            $par = array_shift($tri);
+            $par = $par->texte;
+
+            // tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre}
+            if (preg_match(',^(\w+)[\s]+(.*)$,', $par, $m)) {
+                $expression = trim($m[1]);
+                $champ = trim($m[2]);
+                if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
+                    $order = $f($idb, $boucles, $crit, $tri, $champ);
+                } else {
+                    return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+                }
+
+            // tris de la forme {par champ} ou {par FONCTION(champ)}
+            } elseif (preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
+                // {par FONCTION(champ)}
+                if (count($match) > 2) {
+                    $par = substr($match[2], 1, -1);
+                    $fct = $match[1];
+                }
+                // quelques cas spécifiques {par hasard}, {par date}
+                if ($par == 'hasard') {
+                    $order = calculer_critere_par_hasard($idb, $boucles, $crit);
+                } elseif ($par == 'date' and !empty($boucle->show['date'])) {
+                    $order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'";
+                } else {
+                    // cas général {par champ}, {par table.champ}, ...
+                    $order = calculer_critere_par_champ($idb, $boucles, $crit, $par);
+                }
+            }
+
+            // on ne sait pas traiter…
+            else {
+                return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+            }
+
+            // En cas d'erreur de squelette retournée par une fonction
+            if (is_array($order)) {
+                return $order;
+            }
+        }
+
+        if (preg_match('/^\'([^"]*)\'$/', $order, $m)) {
+            $t = $m[1];
+            if (strpos($t, '.') and !in_array($t, $boucle->select)) {
+                $boucle->select[] = $t;
+            }
+        } else {
+            $sens = '';
+        }
+
+        if ($fct) {
+            if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
+                $order = "'$fct(" . $r[1] . ")'";
+            } else {
+                $order = "'$fct(' . $order . ')'";
+            }
+        }
+        $t = $order . $collecte . $sens;
+        if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+            $t = $r[1] . $r[2];
+        }
+
+        $boucle->order[] = $t;
+    }
 }
 
 /**
@@ -850,13 +850,13 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_hasard($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	// Si ce n'est fait, ajouter un champ 'hasard' dans le select
-	$parha = 'rand() AS hasard';
-	if (!in_array($parha, $boucle->select)) {
-		$boucle->select[] = $parha;
-	}
-	return "'hasard'";
+    $boucle = &$boucles[$idb];
+    // Si ce n'est fait, ajouter un champ 'hasard' dans le select
+    $parha = 'rand() AS hasard';
+    if (!in_array($parha, $boucle->select)) {
+        $boucle->select[] = $parha;
+    }
+    return "'hasard'";
 }
 
 /**
@@ -880,24 +880,24 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_expression_num($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
-	}
-	$asnum = 'num' . ($boucle->order ? count($boucle->order) : '');
-	$boucle->select[] = $texte . " AS $asnum";
-
-	$orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ);
-	$orderassinum = trim($orderassinum, "'");
-
-	$order = "'$orderassinum, $asnum'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+    }
+    $asnum = 'num' . ($boucle->order ? count($boucle->order) : '');
+    $boucle->select[] = $texte . " AS $asnum";
+
+    $orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ);
+    $orderassinum = trim($orderassinum, "'");
+
+    $order = "'$orderassinum, $asnum'";
+    return $order;
 }
 
 /**
@@ -918,35 +918,35 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_expression_sinum($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
-	}
-
-	$as = false;
-	$select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS ";
-	foreach ($boucle->select as $s) {
-		if (strpos($s, $select) === 0) {
-			$as = trim(substr($s, strlen($select)));
-			if (!preg_match(',\W,', $as)) {
-				break;
-			}
-			$as = false;
-		}
-	}
-
-	if (!$as) {
-		$as = 'sinum' . ($boucle->order ? count($boucle->order) : '');
-		$boucle->select[] = $select . $as;
-	}
-	$order = "'$as'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+    }
+
+    $as = false;
+    $select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS ";
+    foreach ($boucle->select as $s) {
+        if (strpos($s, $select) === 0) {
+            $as = trim(substr($s, strlen($select)));
+            if (!preg_match(',\W,', $as)) {
+                break;
+            }
+            $as = false;
+        }
+    }
+
+    if (!$as) {
+        $as = 'sinum' . ($boucle->order ? count($boucle->order) : '');
+        $boucle->select[] = $select . $as;
+    }
+    $order = "'$as'";
+    return $order;
 }
 
 
@@ -966,14 +966,14 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_expression_multi($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
-	$order = "'multi'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
+    $order = "'multi'";
+    return $order;
 }
 
 /**
@@ -992,56 +992,56 @@ 
  * @return array|string
  */
 function calculer_critere_par_champ($idb, &$boucles, $crit, $par, $raw = false) {
-	$boucle = &$boucles[$idb];
-	$desc = $boucle->show;
-
-	// le champ existe dans la table, pas de souci (le plus commun)
-	if (isset($desc['field'][$par])) {
-		$par = $boucle->id_table . '.' . $par;
-	}
-	// le champ est peut être une jointure
-	else {
-		$table = $table_alias = false; // toutes les tables de jointure possibles
-		$champ = $par;
-
-		// le champ demandé est une exception de jointure {par titre_mot}
-		if (isset($GLOBALS['exceptions_des_jointures'][$par])) {
-			list($table, $champ) = $GLOBALS['exceptions_des_jointures'][$par];
-		} // la table de jointure est explicitement indiquée {par truc.muche}
-		elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) {
-			list(, $table, $champ) = $r;
-			$table_alias = $table; // c'est peut-être un alias de table {par L1.titre}
-			$table = table_objet_sql($table);
-		}
-
-		// Si on connait la table d'arrivée, on la demande donc explicitement
-		// Sinon on cherche le champ dans les tables possibles de jointures
-		// Si la table est déjà dans le from, on la réutilise.
-		if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) {
-			$par = $infos['alias'] . '.' . $champ;
-		} elseif (
-			$boucle->jointures_explicites
-			and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
-		) {
-			$par = $alias . '.' . $champ;
-		} elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
-			$par = $alias . '.' . $champ;
-		// en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même)
-		} elseif (
-			$table_alias
-			and isset($boucle->from[$table_alias])
-			and $infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])
-		) {
-			$par = $infos['alias'] . '.' . $champ;
-		} elseif ($table) {
-			// On avait table + champ, mais on ne les a pas trouvés
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-		} else {
-			// Sinon tant pis, ca doit etre un champ synthetise (cf points)
-		}
-	}
-
-	return $raw ? $par : "'$par'";
+    $boucle = &$boucles[$idb];
+    $desc = $boucle->show;
+
+    // le champ existe dans la table, pas de souci (le plus commun)
+    if (isset($desc['field'][$par])) {
+        $par = $boucle->id_table . '.' . $par;
+    }
+    // le champ est peut être une jointure
+    else {
+        $table = $table_alias = false; // toutes les tables de jointure possibles
+        $champ = $par;
+
+        // le champ demandé est une exception de jointure {par titre_mot}
+        if (isset($GLOBALS['exceptions_des_jointures'][$par])) {
+            list($table, $champ) = $GLOBALS['exceptions_des_jointures'][$par];
+        } // la table de jointure est explicitement indiquée {par truc.muche}
+        elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) {
+            list(, $table, $champ) = $r;
+            $table_alias = $table; // c'est peut-être un alias de table {par L1.titre}
+            $table = table_objet_sql($table);
+        }
+
+        // Si on connait la table d'arrivée, on la demande donc explicitement
+        // Sinon on cherche le champ dans les tables possibles de jointures
+        // Si la table est déjà dans le from, on la réutilise.
+        if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) {
+            $par = $infos['alias'] . '.' . $champ;
+        } elseif (
+            $boucle->jointures_explicites
+            and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
+        ) {
+            $par = $alias . '.' . $champ;
+        } elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
+            $par = $alias . '.' . $champ;
+        // en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même)
+        } elseif (
+            $table_alias
+            and isset($boucle->from[$table_alias])
+            and $infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])
+        ) {
+            $par = $infos['alias'] . '.' . $champ;
+        } elseif ($table) {
+            // On avait table + champ, mais on ne les a pas trouvés
+            return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+        } else {
+            // Sinon tant pis, ca doit etre un champ synthetise (cf points)
+        }
+    }
+
+    return $raw ? $par : "'$par'";
 }
 
 /**
@@ -1055,11 +1055,11 @@ 
  * @return string Champ pour le compilateur si trouvé, tel que "'alias.champ'", sinon vide.
  */
 function critere_par_joint($table, $champ, &$boucle) {
-	$t = array_search($table, $boucle->from);
-	if (!$t) {
-		$t = trouver_jointure_champ($champ, $boucle);
-	}
-	return !$t ? '' : ("'" . $t . '.' . $champ . "'");
+    $t = array_search($table, $boucle->from);
+    if (!$t) {
+        $t = trouver_jointure_champ($champ, $boucle);
+    }
+    return !$t ? '' : ("'" . $t . '.' . $champ . "'");
 }
 
 /**
@@ -1084,33 +1084,33 @@ 
  */
 function critere_inverse_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	// Classement par ordre inverse
-	if ($crit->not) {
-		critere_parinverse($idb, $boucles, $crit);
-	} else {
-		$order = "' DESC'";
-		// Classement par ordre inverse fonction eventuelle de #ENV{...}
-		if (isset($crit->param[0])) {
-			$critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-			$order = "(($critere)?' DESC':'')";
-		}
-
-		$n = count($boucle->order);
-		if (!$n) {
-			if (isset($boucle->default_order[0])) {
-				$boucle->default_order[0] .= ' . " DESC"';
-			} else {
-				$boucle->default_order[] = ' DESC';
-			}
-		} else {
-			$t = $boucle->order[$n - 1] . " . $order";
-			if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-				$t = $r[1] . $r[2];
-			}
-			$boucle->order[$n - 1] = $t;
-		}
-	}
+    $boucle = &$boucles[$idb];
+    // Classement par ordre inverse
+    if ($crit->not) {
+        critere_parinverse($idb, $boucles, $crit);
+    } else {
+        $order = "' DESC'";
+        // Classement par ordre inverse fonction eventuelle de #ENV{...}
+        if (isset($crit->param[0])) {
+            $critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+            $order = "(($critere)?' DESC':'')";
+        }
+
+        $n = count($boucle->order);
+        if (!$n) {
+            if (isset($boucle->default_order[0])) {
+                $boucle->default_order[0] .= ' . " DESC"';
+            } else {
+                $boucle->default_order[] = ' DESC';
+            }
+        } else {
+            $t = $boucle->order[$n - 1] . " . $order";
+            if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+                $t = $r[1] . $r[2];
+            }
+            $boucle->order[$n - 1] = $t;
+        }
+    }
 }
 
 /**
@@ -1121,138 +1121,138 @@ 
  * @return array|string
  */
 function critere_par_ordre_liste_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	$sens = $collecte = '';
-	if ($crit->not) {
-		$sens = " . ' DESC'";
-	}
+    $sens = $collecte = '';
+    if ($crit->not) {
+        $sens = " . ' DESC'";
+    }
 
-	$crit2 = clone $crit;
-	$crit2->not = false;
-	$crit2->param = [reset($crit->param)];
-	$res = critere_parinverse($idb, $boucles, $crit2);
+    $crit2 = clone $crit;
+    $crit2->not = false;
+    $crit2->param = [reset($crit->param)];
+    $res = critere_parinverse($idb, $boucles, $crit2);
 
-	// erreur ?
-	if (is_array($res)) {
-		return $res;
-	}
+    // erreur ?
+    if (is_array($res)) {
+        return $res;
+    }
 
-	$_order = array_pop($boucle->order);
+    $_order = array_pop($boucle->order);
 
-	$_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent);
-	$boucle->order[] = "'FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste($_liste,'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens";
+    $_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent);
+    $boucle->order[] = "'FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste($_liste,'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens";
 }
 
 
 // https://code.spip.net/@critere_agenda_dist
 function critere_agenda_dist($idb, &$boucles, $crit) {
-	$params = $crit->param;
-
-	if (count($params) < 1) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
-	}
-
-	$boucle = &$boucles[$idb];
-	$parent = $boucle->id_parent;
-	$fields = $boucle->show['field'];
-
-	$date = array_shift($params);
-	$type = array_shift($params);
-
-	// la valeur $type doit etre connue a la compilation
-	// donc etre forcement reduite a un litteral unique dans le source
-	$type = is_object($type[0]) ? $type[0]->texte : null;
-
-	// La valeur date doit designer un champ de la table SQL.
-	// Si c'est un litteral unique dans le source, verifier a la compil,
-	// sinon synthetiser le test de verif pour execution ulterieure
-	// On prendra arbitrairement le premier champ si test negatif.
-	if ((count($date) == 1) and ($date[0]->type == 'texte')) {
-		$date = $date[0]->texte;
-		if (!isset($fields[$date])) {
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]];
-		}
-	} else {
-		$a = calculer_liste($date, $idb, $boucles, $parent);
-		$noms = array_keys($fields);
-		$defaut = $noms[0];
-		$noms = join(' ', $noms);
-		# bien laisser 2 espaces avant $nom pour que strpos<>0
-		$cond = "(\$a=strval($a))AND\nstrpos(\"  $noms \",\" \$a \")";
-		$date = "'.(($cond)\n?\$a:\"$defaut\").'";
-	}
-	$annee = $params ? array_shift($params) : '';
-	$annee = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee, $idb, $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois = $params ? array_shift($params) : '';
-	$mois = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois, $idb, $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour = $params ? array_shift($params) : '';
-	$jour = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour, $idb, $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$annee2 = $params ? array_shift($params) : '';
-	$annee2 = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee2, $idb, $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois2 = $params ? array_shift($params) : '';
-	$mois2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois2, $idb, $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour2 = $params ? array_shift($params) : '';
-	$jour2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour2, $idb, $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$date = $boucle->id_table . ".$date";
-
-	$quote_end = ",'" . $boucle->sql_serveur . "','text'";
-	if ($type == 'jour') {
-		$boucle->where[] = [
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m%d\')'",
-			("sql_quote($annee . $mois . $jour$quote_end)")
-		];
-	} elseif ($type == 'mois') {
-		$boucle->where[] = [
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m\')'",
-			("sql_quote($annee . $mois$quote_end)")
-		];
-	} elseif ($type == 'semaine') {
-		$boucle->where[] = [
-			"'AND'",
-			[
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_debut_semaine($annee, $mois, $jour)")
-			],
-			[
-				"'<='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_fin_semaine($annee, $mois, $jour)")
-			]
-		];
-	} elseif (count($crit->param) > 2) {
-		$boucle->where[] = [
-			"'AND'",
-			[
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("sql_quote($annee . $mois . $jour$quote_end)")
-			],
-			["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")]
-		];
-	}
-	// sinon on prend tout
+    $params = $crit->param;
+
+    if (count($params) < 1) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
+    }
+
+    $boucle = &$boucles[$idb];
+    $parent = $boucle->id_parent;
+    $fields = $boucle->show['field'];
+
+    $date = array_shift($params);
+    $type = array_shift($params);
+
+    // la valeur $type doit etre connue a la compilation
+    // donc etre forcement reduite a un litteral unique dans le source
+    $type = is_object($type[0]) ? $type[0]->texte : null;
+
+    // La valeur date doit designer un champ de la table SQL.
+    // Si c'est un litteral unique dans le source, verifier a la compil,
+    // sinon synthetiser le test de verif pour execution ulterieure
+    // On prendra arbitrairement le premier champ si test negatif.
+    if ((count($date) == 1) and ($date[0]->type == 'texte')) {
+        $date = $date[0]->texte;
+        if (!isset($fields[$date])) {
+            return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]];
+        }
+    } else {
+        $a = calculer_liste($date, $idb, $boucles, $parent);
+        $noms = array_keys($fields);
+        $defaut = $noms[0];
+        $noms = join(' ', $noms);
+        # bien laisser 2 espaces avant $nom pour que strpos<>0
+        $cond = "(\$a=strval($a))AND\nstrpos(\"  $noms \",\" \$a \")";
+        $date = "'.(($cond)\n?\$a:\"$defaut\").'";
+    }
+    $annee = $params ? array_shift($params) : '';
+    $annee = "\n" . 'sprintf("%04d", ($x = ' .
+        calculer_liste($annee, $idb, $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois = $params ? array_shift($params) : '';
+    $mois = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois, $idb, $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour = $params ? array_shift($params) : '';
+    $jour = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour, $idb, $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $annee2 = $params ? array_shift($params) : '';
+    $annee2 = "\n" . 'sprintf("%04d", ($x = ' .
+        calculer_liste($annee2, $idb, $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois2 = $params ? array_shift($params) : '';
+    $mois2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois2, $idb, $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour2 = $params ? array_shift($params) : '';
+    $jour2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour2, $idb, $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $date = $boucle->id_table . ".$date";
+
+    $quote_end = ",'" . $boucle->sql_serveur . "','text'";
+    if ($type == 'jour') {
+        $boucle->where[] = [
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m%d\')'",
+            ("sql_quote($annee . $mois . $jour$quote_end)")
+        ];
+    } elseif ($type == 'mois') {
+        $boucle->where[] = [
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m\')'",
+            ("sql_quote($annee . $mois$quote_end)")
+        ];
+    } elseif ($type == 'semaine') {
+        $boucle->where[] = [
+            "'AND'",
+            [
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_debut_semaine($annee, $mois, $jour)")
+            ],
+            [
+                "'<='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_fin_semaine($annee, $mois, $jour)")
+            ]
+        ];
+    } elseif (count($crit->param) > 2) {
+        $boucle->where[] = [
+            "'AND'",
+            [
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("sql_quote($annee . $mois . $jour$quote_end)")
+            ],
+            ["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")]
+        ];
+    }
+    // sinon on prend tout
 }
 
 
@@ -1277,33 +1277,33 @@ 
  * @return void
  **/
 function calculer_critere_parties($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$a1 = $crit->param[0];
-	$a2 = $crit->param[1];
-	$op = $crit->op;
-
-	list($a11, $a12) = calculer_critere_parties_aux($idb, $boucles, $a1);
-	list($a21, $a22) = calculer_critere_parties_aux($idb, $boucles, $a2);
-
-	if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
-		$boucle->limit = $a11 . ',' . $a21;
-	} else {
-		// 3 dans {1/3}, {2,3} ou {1,n-3}
-		$boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
-		// 2 dans {2/3}, {2,5}, {n-2,1}
-		$partie = ($a11 != 'n') ? $a11 : $a12;
-		$mode = (($op == '/') ? '/' :
-			(($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+'));
-		// cas simple {0,#ENV{truc}} compilons le en LIMIT :
-		if ($a11 !== 'n' and $a21 !== 'n' and $mode == '++' and $op == ',') {
-			$boucle->limit =
-				(is_numeric($a11) ? "'$a11'" : $a11)
-				. ".','."
-				. (is_numeric($a21) ? "'$a21'" : $a21);
-		} else {
-			calculer_parties($boucles, $idb, $partie, $mode);
-		}
-	}
+    $boucle = &$boucles[$idb];
+    $a1 = $crit->param[0];
+    $a2 = $crit->param[1];
+    $op = $crit->op;
+
+    list($a11, $a12) = calculer_critere_parties_aux($idb, $boucles, $a1);
+    list($a21, $a22) = calculer_critere_parties_aux($idb, $boucles, $a2);
+
+    if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
+        $boucle->limit = $a11 . ',' . $a21;
+    } else {
+        // 3 dans {1/3}, {2,3} ou {1,n-3}
+        $boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
+        // 2 dans {2/3}, {2,5}, {n-2,1}
+        $partie = ($a11 != 'n') ? $a11 : $a12;
+        $mode = (($op == '/') ? '/' :
+            (($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+'));
+        // cas simple {0,#ENV{truc}} compilons le en LIMIT :
+        if ($a11 !== 'n' and $a21 !== 'n' and $mode == '++' and $op == ',') {
+            $boucle->limit =
+                (is_numeric($a11) ? "'$a11'" : $a11)
+                . ".','."
+                . (is_numeric($a21) ? "'$a21'" : $a21);
+        } else {
+            calculer_parties($boucles, $idb, $partie, $mode);
+        }
+    }
 }
 
 /**
@@ -1331,63 +1331,63 @@ 
  * @return void
  **/
 function calculer_parties(&$boucles, $id_boucle, $debut, $mode) {
-	$total_parties = $boucles[$id_boucle]->total_parties;
-
-	preg_match(',([+-/p])([+-/])?,', $mode, $regs);
-	list(, $op1, $op2) = array_pad($regs, 3, null);
-	$nombre_boucle = "\$Numrows['$id_boucle']['total']";
-	// {1/3}
-	if ($op1 == '/') {
-		$pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
-		$totpos = is_numeric($total_parties) ? ($total_parties) :
-			"($total_parties ? $total_parties : 1)";
-		$fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1";
-		$debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
-	} else {
-		// cas {n-1,x}
-		if ($op1 == '-') {
-			$debut = "$nombre_boucle - $debut;";
-		}
-
-		// cas {x,n-1}
-		if ($op2 == '-') {
-			$fin = '$debut_boucle + ' . $nombre_boucle . ' - '
-				. (is_numeric($total_parties) ? ($total_parties + 1) :
-					($total_parties . ' - 1'));
-		} else {
-			// {x,1} ou {pagination}
-			$fin = '$debut_boucle'
-				. (is_numeric($total_parties) ?
-					(($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) :
-					('+' . $total_parties . ' - 1'));
-		}
-
-		// {pagination}, gerer le debut_xx=-1 pour tout voir
-		if ($op1 == 'p') {
-			$debut .= ";\n	\$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))";
-			$debut .= ";\n	\$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))";
-			$fin = "(\$tout ? $nombre_boucle : $fin)";
-		}
-	}
-
-	// Notes :
-	// $debut_boucle et $fin_boucle sont les indices SQL du premier
-	// et du dernier demandes dans la boucle : 0 pour le premier,
-	// n-1 pour le dernier ; donc total_boucle = 1 + debut - fin
-	// Utiliser min pour rabattre $fin_boucle sur total_boucle.
-
-	$boucles[$id_boucle]->mode_partie = "\n\t"
-		. '$debut_boucle = ' . $debut . ";\n	"
-		. "\$debut_boucle = intval(\$debut_boucle);\n	"
-		. '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n	"
-		. '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
-		. '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
-		. "\n\tif (\$debut_boucle>0"
-		. " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']"
-		. " AND \$iter->seek(\$debut_boucle,'continue'))"
-		. "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t";
-
-	$boucles[$id_boucle]->partie = "
+    $total_parties = $boucles[$id_boucle]->total_parties;
+
+    preg_match(',([+-/p])([+-/])?,', $mode, $regs);
+    list(, $op1, $op2) = array_pad($regs, 3, null);
+    $nombre_boucle = "\$Numrows['$id_boucle']['total']";
+    // {1/3}
+    if ($op1 == '/') {
+        $pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
+        $totpos = is_numeric($total_parties) ? ($total_parties) :
+            "($total_parties ? $total_parties : 1)";
+        $fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1";
+        $debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
+    } else {
+        // cas {n-1,x}
+        if ($op1 == '-') {
+            $debut = "$nombre_boucle - $debut;";
+        }
+
+        // cas {x,n-1}
+        if ($op2 == '-') {
+            $fin = '$debut_boucle + ' . $nombre_boucle . ' - '
+                . (is_numeric($total_parties) ? ($total_parties + 1) :
+                    ($total_parties . ' - 1'));
+        } else {
+            // {x,1} ou {pagination}
+            $fin = '$debut_boucle'
+                . (is_numeric($total_parties) ?
+                    (($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) :
+                    ('+' . $total_parties . ' - 1'));
+        }
+
+        // {pagination}, gerer le debut_xx=-1 pour tout voir
+        if ($op1 == 'p') {
+            $debut .= ";\n	\$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))";
+            $debut .= ";\n	\$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))";
+            $fin = "(\$tout ? $nombre_boucle : $fin)";
+        }
+    }
+
+    // Notes :
+    // $debut_boucle et $fin_boucle sont les indices SQL du premier
+    // et du dernier demandes dans la boucle : 0 pour le premier,
+    // n-1 pour le dernier ; donc total_boucle = 1 + debut - fin
+    // Utiliser min pour rabattre $fin_boucle sur total_boucle.
+
+    $boucles[$id_boucle]->mode_partie = "\n\t"
+        . '$debut_boucle = ' . $debut . ";\n	"
+        . "\$debut_boucle = intval(\$debut_boucle);\n	"
+        . '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n	"
+        . '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
+        . '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
+        . "\n\tif (\$debut_boucle>0"
+        . " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']"
+        . " AND \$iter->seek(\$debut_boucle,'continue'))"
+        . "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t";
+
+    $boucles[$id_boucle]->partie = "
 		if (\$Numrows['$id_boucle']['compteur_boucle'] <= \$debut_boucle) continue;
 		if (\$Numrows['$id_boucle']['compteur_boucle']-1 > \$fin_boucle) break;";
 }
@@ -1404,26 +1404,26 @@ 
  * @return array          Valeur de l'élément (peut être une expression PHP), Nombre soustrait
  **/
 function calculer_critere_parties_aux($idb, &$boucles, $param) {
-	if ($param[0]->type != 'texte') {
-		$a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent);
-		if (isset($param[1]->texte)) {
-			preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
-
-			return ["intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0)];
-		} else {
-			return ["intval($a1)", 0];
-		}
-	} else {
-		preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
-		$a1 = $m[1];
-		if (empty($m[3])) {
-			return [$a1, 0];
-		} elseif (!empty($m[4])) {
-			return [$a1, $m[4]];
-		} else {
-			return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)];
-		}
-	}
+    if ($param[0]->type != 'texte') {
+        $a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent);
+        if (isset($param[1]->texte)) {
+            preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
+
+            return ["intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0)];
+        } else {
+            return ["intval($a1)", 0];
+        }
+    } else {
+        preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
+        $a1 = $m[1];
+        if (empty($m[3])) {
+            return [$a1, 0];
+        } elseif (!empty($m[4])) {
+            return [$a1, $m[4]];
+        } else {
+            return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)];
+        }
+    }
 }
 
 
@@ -1450,47 +1450,47 @@ 
  *     array : Erreur sur un des critères
  **/
 function calculer_criteres($idb, &$boucles) {
-	$msg = '';
-	$boucle = $boucles[$idb];
-	$table = strtoupper($boucle->type_requete);
-	$serveur = strtolower($boucle->sql_serveur);
-
-	$defaut = charger_fonction('DEFAUT', 'calculer_critere');
-	// s'il y avait une erreur de syntaxe, propager cette info
-	if (!is_array($boucle->criteres)) {
-		return [];
-	}
-
-	foreach ($boucle->criteres as $crit) {
-		$critere = $crit->op;
-		// critere personnalise ?
-		if (
-			(!$serveur or
-				((!function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
-					and (!function_exists($f = 'critere_' . $serveur . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
-				)
-			)
-			and (!function_exists($f = 'critere_' . $table . '_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
-			and (!function_exists($f = 'critere_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
-		) {
-			// fonction critere standard
-			$f = $defaut;
-		}
-		// compile le critere
-		$res = $f($idb, $boucles, $crit);
-
-		// Gestion centralisee des erreurs pour pouvoir propager
-		if (is_array($res)) {
-			$msg = $res;
-			erreur_squelette($msg, $boucle);
-		}
-	}
-
-	return $msg;
+    $msg = '';
+    $boucle = $boucles[$idb];
+    $table = strtoupper($boucle->type_requete);
+    $serveur = strtolower($boucle->sql_serveur);
+
+    $defaut = charger_fonction('DEFAUT', 'calculer_critere');
+    // s'il y avait une erreur de syntaxe, propager cette info
+    if (!is_array($boucle->criteres)) {
+        return [];
+    }
+
+    foreach ($boucle->criteres as $crit) {
+        $critere = $crit->op;
+        // critere personnalise ?
+        if (
+            (!$serveur or
+                ((!function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere))
+                    and (!function_exists($f = $f . '_dist'))
+                    and (!function_exists($f = 'critere_' . $serveur . '_' . $critere))
+                    and (!function_exists($f = $f . '_dist'))
+                )
+            )
+            and (!function_exists($f = 'critere_' . $table . '_' . $critere))
+            and (!function_exists($f = $f . '_dist'))
+            and (!function_exists($f = 'critere_' . $critere))
+            and (!function_exists($f = $f . '_dist'))
+        ) {
+            // fonction critere standard
+            $f = $defaut;
+        }
+        // compile le critere
+        $res = $f($idb, $boucles, $crit);
+
+        // Gestion centralisee des erreurs pour pouvoir propager
+        if (is_array($res)) {
+            $msg = $res;
+            erreur_squelette($msg, $boucle);
+        }
+    }
+
+    return $msg;
 }
 
 /**
@@ -1507,11 +1507,11 @@ 
  * @return string         Code compilé rééchappé
  */
 function kwote($lisp, $serveur = '', $type = '') {
-	if (preg_match(_CODE_QUOTE, $lisp, $r)) {
-		return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"';
-	} else {
-		return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
-	}
+    if (preg_match(_CODE_QUOTE, $lisp, $r)) {
+        return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"';
+    } else {
+        return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
+    }
 }
 
 
@@ -1530,82 +1530,82 @@ 
  * @return void
  **/
 function critere_IN_dist($idb, &$boucles, $crit) {
-	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r) {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
-	}
-	list($arg, $op, $val, $col, $where_complement) = $r;
-
-	$in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col);
-
-	//	inserer la condition; exemple: {id_mot ?IN (66, 62, 64)}
-	$where = $in;
-	if ($crit->cond) {
-		$pred = calculer_argument_precedent($idb, $col, $boucles);
-		$where = ["'?'", $pred, $where, "''"];
-		if ($where_complement) { // condition annexe du type "AND (objet='article')"
-		$where_complement = ["'?'", $pred, $where_complement, "''"];
-		}
-	}
-	if ($crit->exclus) {
-		if (!preg_match(',^L[0-9]+[.],', $arg)) {
-			$where = ["'NOT'", $where];
-		} else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
-			// c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
-		{
-			$where = [
-				"'NOT'",
-				[
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
-				]
-			];
-		}
-	}
-
-	$boucles[$idb]->where[] = $where;
-	if ($where_complement) { // condition annexe du type "AND (objet='article')"
-	$boucles[$idb]->where[] = $where_complement;
-	}
+    $r = calculer_critere_infixe($idb, $boucles, $crit);
+    if (!$r) {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
+    }
+    list($arg, $op, $val, $col, $where_complement) = $r;
+
+    $in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col);
+
+    //	inserer la condition; exemple: {id_mot ?IN (66, 62, 64)}
+    $where = $in;
+    if ($crit->cond) {
+        $pred = calculer_argument_precedent($idb, $col, $boucles);
+        $where = ["'?'", $pred, $where, "''"];
+        if ($where_complement) { // condition annexe du type "AND (objet='article')"
+        $where_complement = ["'?'", $pred, $where_complement, "''"];
+        }
+    }
+    if ($crit->exclus) {
+        if (!preg_match(',^L[0-9]+[.],', $arg)) {
+            $where = ["'NOT'", $where];
+        } else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
+            // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
+        {
+            $where = [
+                "'NOT'",
+                [
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
+                    ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+                ]
+            ];
+        }
+    }
+
+    $boucles[$idb]->where[] = $where;
+    if ($where_complement) { // condition annexe du type "AND (objet='article')"
+    $boucles[$idb]->where[] = $where_complement;
+    }
 }
 
 // https://code.spip.net/@critere_IN_cas
 function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col) {
-	static $num = [];
-	$descr = $boucles[$idb]->descr;
-	$cpt = &$num[$descr['nom']][$descr['gram']][$idb];
-
-	$var = '$in' . $cpt++;
-	$x = "\n\t$var = array();";
-	foreach ($val as $k => $v) {
-		if (preg_match(",^(\n//.*\n)?'(.*)'$,", $v, $r)) {
-			// optimiser le traitement des constantes
-			if (is_numeric($r[2])) {
-				$x .= "\n\t$var" . "[]= $r[2];";
-			} else {
-				$x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';';
-			}
-		} else {
-			// Pour permettre de passer des tableaux de valeurs
-			// on repere l'utilisation brute de #ENV**{X},
-			// c'est-a-dire sa  traduction en ($PILE[0][X]).
-			// et on deballe mais en rajoutant l'anti XSS
-			$x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);";
-		}
-	}
-
-	$boucles[$idb]->in .= $x;
-
-	// inserer le tri par defaut selon les ordres du IN ...
-	// avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp)
-	// et que l'on limite donc strictement aux cas necessaires :
-	// si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle
-	if (!$crit2) {
-		$boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))";
-	}
-
-	return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')';
+    static $num = [];
+    $descr = $boucles[$idb]->descr;
+    $cpt = &$num[$descr['nom']][$descr['gram']][$idb];
+
+    $var = '$in' . $cpt++;
+    $x = "\n\t$var = array();";
+    foreach ($val as $k => $v) {
+        if (preg_match(",^(\n//.*\n)?'(.*)'$,", $v, $r)) {
+            // optimiser le traitement des constantes
+            if (is_numeric($r[2])) {
+                $x .= "\n\t$var" . "[]= $r[2];";
+            } else {
+                $x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';';
+            }
+        } else {
+            // Pour permettre de passer des tableaux de valeurs
+            // on repere l'utilisation brute de #ENV**{X},
+            // c'est-a-dire sa  traduction en ($PILE[0][X]).
+            // et on deballe mais en rajoutant l'anti XSS
+            $x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);";
+        }
+    }
+
+    $boucles[$idb]->in .= $x;
+
+    // inserer le tri par defaut selon les ordres du IN ...
+    // avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp)
+    // et que l'on limite donc strictement aux cas necessaires :
+    // si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle
+    if (!$crit2) {
+        $boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))";
+    }
+
+    return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')';
 }
 
 /**
@@ -1621,22 +1621,22 @@ 
  * @return void
  */
 function critere_where_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	if (isset($crit->param[0])) {
-		$_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent);
-	} else {
-		$_where = 'spip_sanitize_from_request(@$Pile[0]["where"],"where","vide")';
-	}
-
-	if ($crit->cond) {
-		$_where = "((\$zzw = $_where) ? \$zzw : '')";
-	}
-
-	if ($crit->not) {
-		$_where = "array('NOT',$_where)";
-	}
-
-	$boucle->where[] = $_where;
+    $boucle = &$boucles[$idb];
+    if (isset($crit->param[0])) {
+        $_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent);
+    } else {
+        $_where = 'spip_sanitize_from_request(@$Pile[0]["where"],"where","vide")';
+    }
+
+    if ($crit->cond) {
+        $_where = "((\$zzw = $_where) ? \$zzw : '')";
+    }
+
+    if ($crit->not) {
+        $_where = "array('NOT',$_where)";
+    }
+
+    $boucle->where[] = $_where;
 }
 
 /**
@@ -1664,31 +1664,31 @@ 
  * @return void
  */
 function critere_id__dist($idb, &$boucles, $crit) {
-	/** @var Boucle $boucle */
-	$boucle = $boucles[$idb];
-
-	$champs = lister_champs_id_conditionnel(
-		$boucle->show['table'],
-		$boucle->show,
-		$boucle->sql_serveur
-	);
-
-	// ne pas tenir compte des critères identiques déjà présents.
-	if (!empty($boucle->modificateur['criteres'])) {
-		$champs = array_diff($champs, array_keys($boucle->modificateur['criteres']));
-	}
-	// nous aider en mode debug.
-	$boucle->debug[] = 'id_ : ' . implode(', ', $champs);
-	$boucle->modificateur['id_'] = $champs;
-
-	// créer un critère {id_xxx?} de chaque champ retenu
-	foreach ($champs as $champ) {
-		$critere_id_table = new Critere();
-		$critere_id_table->op = $champ;
-		$critere_id_table->cond = '?';
-		$critere_id_table->ligne = $crit->ligne;
-		calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table);
-	}
+    /** @var Boucle $boucle */
+    $boucle = $boucles[$idb];
+
+    $champs = lister_champs_id_conditionnel(
+        $boucle->show['table'],
+        $boucle->show,
+        $boucle->sql_serveur
+    );
+
+    // ne pas tenir compte des critères identiques déjà présents.
+    if (!empty($boucle->modificateur['criteres'])) {
+        $champs = array_diff($champs, array_keys($boucle->modificateur['criteres']));
+    }
+    // nous aider en mode debug.
+    $boucle->debug[] = 'id_ : ' . implode(', ', $champs);
+    $boucle->modificateur['id_'] = $champs;
+
+    // créer un critère {id_xxx?} de chaque champ retenu
+    foreach ($champs as $champ) {
+        $critere_id_table = new Critere();
+        $critere_id_table->op = $champ;
+        $critere_id_table->cond = '?';
+        $critere_id_table->ligne = $crit->ligne;
+        calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table);
+    }
 }
 
 /**
@@ -1708,79 +1708,79 @@ 
  * @return array Liste de nom de champs (tel que id_article, id_mot, id_parent ...)
  */
 function lister_champs_id_conditionnel($table, $desc = null, $serveur = '') {
-	// calculer la description de la table
-	if (!is_array($desc)) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		return [];
-	}
-
-	// Les champs id_xx de la table demandée
-	$champs = array_filter(
-		array_keys($desc['field']),
-		function ($champ) {
-			return
-				strpos($champ, 'id_') === 0
-				or (in_array($champ, ['objet']));
-		}
-	);
-
-	// Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute.
-	if (
-		in_array('id_rubrique', $champs)
-		and !in_array('id_secteur', $champs)
-	) {
-		$champs[] = 'id_secteur';
-	}
-
-	// On ne fera pas mieux pour les tables d’un autre serveur
-	if ($serveur) {
-		return $champs;
-	}
-
-	$primary = false;
-	$associable = false;
-	include_spip('action/editer_liens');
-
-	if (isset($desc['type'])) {
-		$primary = id_table_objet($desc['type']);
-		$associable = objet_associable($desc['type']);
-	}
-	if (isset($desc['field']['id_objet']) and isset($desc['field']['objet'])) {
-		$associable = true;
-	}
-
-	// liste de toutes les tables principales, sauf la notre
-	$tables = lister_tables_objets_sql();
-	unset($tables[$table]);
-
-	foreach ($tables as $_table => $_desc) {
-		if (
-			$associable
-			or ($primary and in_array($primary, array_keys($_desc['field'])))
-			or objet_associable($_desc['type'])
-		) {
-			$champs[] = id_table_objet($_table);
-		}
-	}
-	$champs = array_values(array_unique($champs));
-
-	// Exclusions de certains id
-	$exclusions = pipeline(
-		'exclure_id_conditionnel',
-		[
-			'args' => [
-				'table' => $table,
-				'id_table_objet' => $primary,
-				'associable' => $associable,
-			],
-			'data' => [],
-		]
-	);
-	$champs = array_diff($champs, $exclusions);
-
-	return $champs;
+    // calculer la description de la table
+    if (!is_array($desc)) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        return [];
+    }
+
+    // Les champs id_xx de la table demandée
+    $champs = array_filter(
+        array_keys($desc['field']),
+        function ($champ) {
+            return
+                strpos($champ, 'id_') === 0
+                or (in_array($champ, ['objet']));
+        }
+    );
+
+    // Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute.
+    if (
+        in_array('id_rubrique', $champs)
+        and !in_array('id_secteur', $champs)
+    ) {
+        $champs[] = 'id_secteur';
+    }
+
+    // On ne fera pas mieux pour les tables d’un autre serveur
+    if ($serveur) {
+        return $champs;
+    }
+
+    $primary = false;
+    $associable = false;
+    include_spip('action/editer_liens');
+
+    if (isset($desc['type'])) {
+        $primary = id_table_objet($desc['type']);
+        $associable = objet_associable($desc['type']);
+    }
+    if (isset($desc['field']['id_objet']) and isset($desc['field']['objet'])) {
+        $associable = true;
+    }
+
+    // liste de toutes les tables principales, sauf la notre
+    $tables = lister_tables_objets_sql();
+    unset($tables[$table]);
+
+    foreach ($tables as $_table => $_desc) {
+        if (
+            $associable
+            or ($primary and in_array($primary, array_keys($_desc['field'])))
+            or objet_associable($_desc['type'])
+        ) {
+            $champs[] = id_table_objet($_table);
+        }
+    }
+    $champs = array_values(array_unique($champs));
+
+    // Exclusions de certains id
+    $exclusions = pipeline(
+        'exclure_id_conditionnel',
+        [
+            'args' => [
+                'table' => $table,
+                'id_table_objet' => $primary,
+                'associable' => $associable,
+            ],
+            'data' => [],
+        ]
+    );
+    $champs = array_diff($champs, $exclusions);
+
+    return $champs;
 }
 
 /**
@@ -1835,27 +1835,27 @@ 
  * @return void
  */
 function critere_tri_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	// definition du champ par defaut
-	$_champ_defaut = !isset($crit->param[0][0]) ? "''"
-		: calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
-	$_sens_defaut = !isset($crit->param[1][0]) ? '1'
-		: calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
-	$_variable = !isset($crit->param[2][0]) ? "'$idb'"
-		: calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent);
-
-	$_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')";
-
-	$_sens_defaut = "(is_array(\$s=$_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)";
-	$_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)";
-
-	$boucle->modificateur['tri_champ'] = $_tri;
-	$boucle->modificateur['tri_sens'] = $_sens;
-	$boucle->modificateur['tri_nom'] = $_variable;
-	// faut il inserer un test sur l'existence de $tri parmi les champs de la table ?
-	// evite des erreurs sql, mais peut empecher des tri sur jointure ...
-	$boucle->hash .= "
+    $boucle = &$boucles[$idb];
+
+    // definition du champ par defaut
+    $_champ_defaut = !isset($crit->param[0][0]) ? "''"
+        : calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
+    $_sens_defaut = !isset($crit->param[1][0]) ? '1'
+        : calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
+    $_variable = !isset($crit->param[2][0]) ? "'$idb'"
+        : calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent);
+
+    $_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')";
+
+    $_sens_defaut = "(is_array(\$s=$_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)";
+    $_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)";
+
+    $boucle->modificateur['tri_champ'] = $_tri;
+    $boucle->modificateur['tri_sens'] = $_sens;
+    $boucle->modificateur['tri_nom'] = $_variable;
+    // faut il inserer un test sur l'existence de $tri parmi les champs de la table ?
+    // evite des erreurs sql, mais peut empecher des tri sur jointure ...
+    $boucle->hash .= "
 	\$senstri = '';
 	\$tri = $_tri;
 	if (\$tri){
@@ -1863,8 +1863,8 @@ 
 		\$senstri = (\$senstri<0)?' DESC':'';
 	};
 	";
-	$boucle->select[] = '".tri_champ_select($tri)."';
-	$boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)";
+    $boucle->select[] = '".tri_champ_select($tri)."';
+    $boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)";
 }
 
 # Criteres de comparaison
@@ -1881,20 +1881,20 @@ 
  * @return void
  **/
 function calculer_critere_DEFAUT_dist($idb, &$boucles, $crit) {
-	// double cas particulier {0,1} et {1/2} repere a l'analyse lexicale
-	if (($crit->op == ',') or ($crit->op == '/')) {
-		return calculer_critere_parties($idb, $boucles, $crit);
-	}
-
-	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r) {
-		#	// on produit une erreur seulement si le critere n'a pas de '?'
-		#	if (!$crit->cond) {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op]]);
-		#	}
-	} else {
-		calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
-	}
+    // double cas particulier {0,1} et {1/2} repere a l'analyse lexicale
+    if (($crit->op == ',') or ($crit->op == '/')) {
+        return calculer_critere_parties($idb, $boucles, $crit);
+    }
+
+    $r = calculer_critere_infixe($idb, $boucles, $crit);
+    if (!$r) {
+        #	// on produit une erreur seulement si le critere n'a pas de '?'
+        #	if (!$crit->cond) {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op]]);
+        #	}
+    } else {
+        calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
+    }
 }
 
 
@@ -1914,60 +1914,60 @@ 
  * @return void
  **/
 function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args) {
-	list($arg, $op, $val, $col, $where_complement) = $args;
-
-	$where = ["'$op'", "'$arg'", $val[0]];
-
-	// inserer la negation (cf !...)
-
-	if ($crit->not) {
-		$where = ["'NOT'", $where];
-	}
-	if ($crit->exclus) {
-		if (!preg_match(',^L[0-9]+[.],', $arg)) {
-			$where = ["'NOT'", $where];
-		} else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
-			// c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
-		{
-			$where = [
-				"'NOT'",
-				[
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
-				]
-			];
-		}
-	}
-
-	// inserer la condition (cf {lang?})
-	// traiter a part la date, elle est mise d'office par SPIP,
-	if ($crit->cond) {
-		$pred = calculer_argument_precedent($idb, $col, $boucles);
-		if ($col == 'date' or $col == 'date_redac') {
-			if ($pred == "\$Pile[0]['" . $col . "']") {
-				$pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
-			}
-		}
-
-		if ($op == '=' and !$crit->not) {
-			$where = [
-				"'?'",
-				"(is_array($pred))",
-				critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col),
-				$where
-			];
-		}
-		$where = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where];
-		if ($where_complement) { // condition annexe du type "AND (objet='article')"
-		$where_complement = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where_complement];
-		}
-	}
-
-	$boucles[$idb]->where[] = $where;
-	if ($where_complement) { // condition annexe du type "AND (objet='article')"
-	$boucles[$idb]->where[] = $where_complement;
-	}
+    list($arg, $op, $val, $col, $where_complement) = $args;
+
+    $where = ["'$op'", "'$arg'", $val[0]];
+
+    // inserer la negation (cf !...)
+
+    if ($crit->not) {
+        $where = ["'NOT'", $where];
+    }
+    if ($crit->exclus) {
+        if (!preg_match(',^L[0-9]+[.],', $arg)) {
+            $where = ["'NOT'", $where];
+        } else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
+            // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
+        {
+            $where = [
+                "'NOT'",
+                [
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
+                    ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+                ]
+            ];
+        }
+    }
+
+    // inserer la condition (cf {lang?})
+    // traiter a part la date, elle est mise d'office par SPIP,
+    if ($crit->cond) {
+        $pred = calculer_argument_precedent($idb, $col, $boucles);
+        if ($col == 'date' or $col == 'date_redac') {
+            if ($pred == "\$Pile[0]['" . $col . "']") {
+                $pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
+            }
+        }
+
+        if ($op == '=' and !$crit->not) {
+            $where = [
+                "'?'",
+                "(is_array($pred))",
+                critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col),
+                $where
+            ];
+        }
+        $where = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where];
+        if ($where_complement) { // condition annexe du type "AND (objet='article')"
+        $where_complement = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where_complement];
+        }
+    }
+
+    $boucles[$idb]->where[] = $where;
+    if ($where_complement) { // condition annexe du type "AND (objet='article')"
+    $boucles[$idb]->where[] = $where_complement;
+    }
 }
 
 
@@ -2008,165 +2008,165 @@ 
  **/
 function calculer_critere_infixe($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$type = $boucle->type_requete;
-	$table = $boucle->id_table;
-	$desc = $boucle->show;
-	$col_vraie = null;
-
-	list($fct, $col, $op, $val, $args_sql) =
-		calculer_critere_infixe_ops($idb, $boucles, $crit);
-
-	$col_alias = $col;
-	$where_complement = false;
-
-	// Cas particulier : id_enfant => utiliser la colonne id_objet
-	if ($col == 'id_enfant') {
-		$col = $boucle->primary;
-	}
-
-	// Cas particulier : id_parent => verifier les exceptions de tables
-	if (
-		(in_array($col, ['id_parent', 'id_secteur']) and isset($GLOBALS['exceptions_des_tables'][$table][$col]))
-		or (isset($GLOBALS['exceptions_des_tables'][$table][$col]) and is_string($GLOBALS['exceptions_des_tables'][$table][$col]))
-	) {
-		$col = $GLOBALS['exceptions_des_tables'][$table][$col];
-	} // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums)
-	else {
-		if (($col == 'id_secteur') and ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) {
-			$table = $critere_secteur($idb, $boucles, $val, $crit);
-		}
-
-		// cas id_article=xx qui se mappe en id_objet=xx AND objet=article
-		// sauf si exception declaree : sauter cette etape
-		else {
-			if (
-				!isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col])
-				and !isset($GLOBALS['exceptions_des_jointures'][$col])
-				and count(trouver_champs_decomposes($col, $desc)) > 1
-			) {
-				$e = decompose_champ_id_objet($col);
-				$col = array_shift($e);
-				$where_complement = primary_doublee($e, $table);
-			} // Cas particulier : expressions de date
-			else {
-				if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) {
-					list($col, $col_vraie) = $c;
-					$table = '';
-				} // table explicitée {mots.titre}
-				else {
-					if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
-						list(, $table, $col) = $r;
-						$col_alias = $col;
-
-						$trouver_table = charger_fonction('trouver_table', 'base');
-						if (
-							$desc = $trouver_table($table, $boucle->sql_serveur)
-							and isset($desc['field'][$col])
-							and $cle = array_search($desc['table'], $boucle->from)
-						) {
-							$table = $cle;
-						} else {
-							$table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond or $op != '='));
-						}
-						#$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true);
-						if (!$table) {
-							return '';
-						}
-					}
-					// si le champ n'est pas trouvé dans la table,
-					// on cherche si une jointure peut l'obtenir
-					elseif (@!array_key_exists($col, $desc['field'])) {
-						// Champ joker * des iterateurs DATA qui accepte tout
-						if (@array_key_exists('*', $desc['field'])) {
-							$desc['field'][$col_vraie ? $col_vraie : $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA
-						}
-						else {
-							$r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
-							if (!$r) {
-								return '';
-							}
-							list($col, $col_alias, $table, $where_complement, $desc) = $r;
-						}
-					}
-				}
-			}
-		}
-	}
-
-	$col_vraie = ($col_vraie ? $col_vraie : $col);
-	// Dans tous les cas,
-	// virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL)
-	// et passer dans sql_quote avec le type si connu
-	// et int sinon si la valeur est numerique
-	// sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon)
-	// Ne pas utiliser intval, PHP tronquant les Bigint de SQL
-	if ($op == '=' or in_array($op, $GLOBALS['table_criteres_infixes'])) {
-		$type_cast_quote = (isset($desc['field'][$col_vraie]) ? $desc['field'][$col_vraie] : 'int NOT NULL');
-		// defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon
-		// prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut
-		if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
-			$val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"';
-		}
-		// sinon expliciter les
-		// sql_quote(truc) en sql_quote(truc,'',type)
-		// sql_quote(truc,serveur) en sql_quote(truc,serveur,type)
-		// sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type)
-		// sans toucher aux
-		// sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE')
-		// sql_quote(truc,'','varchar')
-		elseif (
-			preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', $val[0], $r)
-			// si pas deja un type
-			and (!isset($r[3]) or !$r[3] or !trim($r[3], ", '"))
-		) {
-			$r = $r[1]
-				. ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
-				. ",'" . addslashes($type_cast_quote) . "'";
-			$val[0] = "sql_quote($r)";
-		}
-		elseif (
-			strpos($val[0], '@@defaultcast@@') !== false
-			and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
-		) {
-			$val[0] = substr($val[0], 0, -strlen($r[0])) . "'" . addslashes($type_cast_quote) . "')";
-		}
-	}
-
-	if (
-		strpos($val[0], '@@defaultcast@@') !== false
-		and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
-	) {
-		$val[0] = substr($val[0], 0, -strlen($r[0])) . "'char')";
-	}
-
-	// Indicateur pour permettre aux fonctionx boucle_X de modifier
-	// leurs requetes par defaut, notamment le champ statut
-	// Ne pas confondre champs de la table principale et des jointures
-	if ($table === $boucle->id_table) {
-		$boucles[$idb]->modificateur['criteres'][$col_vraie] = true;
-		if ($col_alias != $col_vraie) {
-			$boucles[$idb]->modificateur['criteres'][$col_alias] = true;
-		}
-	}
-
-	// inserer le nom de la table SQL devant le nom du champ
-	if ($table) {
-		if ($col[0] == '`') {
-			$arg = "$table." . substr($col, 1, -1);
-		} else {
-			$arg = "$table.$col";
-		}
-	} else {
-		$arg = $col;
-	}
-
-	// inserer la fonction SQL
-	if ($fct) {
-		$arg = "$fct($arg$args_sql)";
-	}
-
-	return [$arg, $op, $val, $col_alias, $where_complement];
+    $boucle = &$boucles[$idb];
+    $type = $boucle->type_requete;
+    $table = $boucle->id_table;
+    $desc = $boucle->show;
+    $col_vraie = null;
+
+    list($fct, $col, $op, $val, $args_sql) =
+        calculer_critere_infixe_ops($idb, $boucles, $crit);
+
+    $col_alias = $col;
+    $where_complement = false;
+
+    // Cas particulier : id_enfant => utiliser la colonne id_objet
+    if ($col == 'id_enfant') {
+        $col = $boucle->primary;
+    }
+
+    // Cas particulier : id_parent => verifier les exceptions de tables
+    if (
+        (in_array($col, ['id_parent', 'id_secteur']) and isset($GLOBALS['exceptions_des_tables'][$table][$col]))
+        or (isset($GLOBALS['exceptions_des_tables'][$table][$col]) and is_string($GLOBALS['exceptions_des_tables'][$table][$col]))
+    ) {
+        $col = $GLOBALS['exceptions_des_tables'][$table][$col];
+    } // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums)
+    else {
+        if (($col == 'id_secteur') and ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) {
+            $table = $critere_secteur($idb, $boucles, $val, $crit);
+        }
+
+        // cas id_article=xx qui se mappe en id_objet=xx AND objet=article
+        // sauf si exception declaree : sauter cette etape
+        else {
+            if (
+                !isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col])
+                and !isset($GLOBALS['exceptions_des_jointures'][$col])
+                and count(trouver_champs_decomposes($col, $desc)) > 1
+            ) {
+                $e = decompose_champ_id_objet($col);
+                $col = array_shift($e);
+                $where_complement = primary_doublee($e, $table);
+            } // Cas particulier : expressions de date
+            else {
+                if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) {
+                    list($col, $col_vraie) = $c;
+                    $table = '';
+                } // table explicitée {mots.titre}
+                else {
+                    if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
+                        list(, $table, $col) = $r;
+                        $col_alias = $col;
+
+                        $trouver_table = charger_fonction('trouver_table', 'base');
+                        if (
+                            $desc = $trouver_table($table, $boucle->sql_serveur)
+                            and isset($desc['field'][$col])
+                            and $cle = array_search($desc['table'], $boucle->from)
+                        ) {
+                            $table = $cle;
+                        } else {
+                            $table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond or $op != '='));
+                        }
+                        #$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true);
+                        if (!$table) {
+                            return '';
+                        }
+                    }
+                    // si le champ n'est pas trouvé dans la table,
+                    // on cherche si une jointure peut l'obtenir
+                    elseif (@!array_key_exists($col, $desc['field'])) {
+                        // Champ joker * des iterateurs DATA qui accepte tout
+                        if (@array_key_exists('*', $desc['field'])) {
+                            $desc['field'][$col_vraie ? $col_vraie : $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA
+                        }
+                        else {
+                            $r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
+                            if (!$r) {
+                                return '';
+                            }
+                            list($col, $col_alias, $table, $where_complement, $desc) = $r;
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    $col_vraie = ($col_vraie ? $col_vraie : $col);
+    // Dans tous les cas,
+    // virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL)
+    // et passer dans sql_quote avec le type si connu
+    // et int sinon si la valeur est numerique
+    // sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon)
+    // Ne pas utiliser intval, PHP tronquant les Bigint de SQL
+    if ($op == '=' or in_array($op, $GLOBALS['table_criteres_infixes'])) {
+        $type_cast_quote = (isset($desc['field'][$col_vraie]) ? $desc['field'][$col_vraie] : 'int NOT NULL');
+        // defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon
+        // prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut
+        if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
+            $val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"';
+        }
+        // sinon expliciter les
+        // sql_quote(truc) en sql_quote(truc,'',type)
+        // sql_quote(truc,serveur) en sql_quote(truc,serveur,type)
+        // sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type)
+        // sans toucher aux
+        // sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE')
+        // sql_quote(truc,'','varchar')
+        elseif (
+            preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', $val[0], $r)
+            // si pas deja un type
+            and (!isset($r[3]) or !$r[3] or !trim($r[3], ", '"))
+        ) {
+            $r = $r[1]
+                . ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
+                . ",'" . addslashes($type_cast_quote) . "'";
+            $val[0] = "sql_quote($r)";
+        }
+        elseif (
+            strpos($val[0], '@@defaultcast@@') !== false
+            and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
+        ) {
+            $val[0] = substr($val[0], 0, -strlen($r[0])) . "'" . addslashes($type_cast_quote) . "')";
+        }
+    }
+
+    if (
+        strpos($val[0], '@@defaultcast@@') !== false
+        and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
+    ) {
+        $val[0] = substr($val[0], 0, -strlen($r[0])) . "'char')";
+    }
+
+    // Indicateur pour permettre aux fonctionx boucle_X de modifier
+    // leurs requetes par defaut, notamment le champ statut
+    // Ne pas confondre champs de la table principale et des jointures
+    if ($table === $boucle->id_table) {
+        $boucles[$idb]->modificateur['criteres'][$col_vraie] = true;
+        if ($col_alias != $col_vraie) {
+            $boucles[$idb]->modificateur['criteres'][$col_alias] = true;
+        }
+    }
+
+    // inserer le nom de la table SQL devant le nom du champ
+    if ($table) {
+        if ($col[0] == '`') {
+            $arg = "$table." . substr($col, 1, -1);
+        } else {
+            $arg = "$table.$col";
+        }
+    } else {
+        $arg = $col;
+    }
+
+    // inserer la fonction SQL
+    if ($fct) {
+        $arg = "$fct($arg$args_sql)";
+    }
+
+    return [$arg, $op, $val, $col_alias, $where_complement];
 }
 
 
@@ -2195,78 +2195,78 @@ 
  **/
 function calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table) {
 
-	$where = '';
-
-	$calculer_critere_externe = 'calculer_critere_externe_init';
-	// gestion par les plugins des jointures tordues
-	// pas automatiques mais necessaires
-	$table_sql = table_objet_sql($table);
-	if (
-		isset($GLOBALS['exceptions_des_jointures'][$table_sql])
-		and is_array($GLOBALS['exceptions_des_jointures'][$table_sql])
-		and
-		(
-			isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col])
-			or
-			isset($GLOBALS['exceptions_des_jointures'][$table_sql][''])
-		)
-	) {
-		$t = $GLOBALS['exceptions_des_jointures'][$table_sql];
-		$index = isset($t[$col])
-			? $t[$col] : (isset($t['']) ? $t[''] : []);
-
-		if (count($index) == 3) {
-			list($t, $col, $calculer_critere_externe) = $index;
-		} elseif (count($index) == 2) {
-			list($t, $col) = $t[$col];
-		} elseif (count($index) == 1) {
-			list($calculer_critere_externe) = $index;
-			$t = $table;
-		} else {
-			$t = '';
-		} // jointure non declaree. La trouver.
-	} elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) {
-		list($t, $col) = $GLOBALS['exceptions_des_jointures'][$col];
-	} else {
-		$t = '';
-	} // jointure non declaree. La trouver.
-
-	// ici on construit le from pour fournir $col en piochant dans les jointures
-
-	// si des jointures explicites sont fournies, on cherche d'abord dans celles ci
-	// permet de forcer une table de lien quand il y a ambiguite
-	// <BOUCLE_(DOCUMENTS documents_liens){id_mot}>
-	// alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}>
-	$table = '';
-	if ($boucle->jointures_explicites) {
-		$jointures_explicites = explode(' ', $boucle->jointures_explicites);
-		$table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond or $op != '='), $t);
-	}
-
-	// et sinon on cherche parmi toutes les jointures declarees
-	if (!$table) {
-		$table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond or $op != '='), $t);
-	}
-
-	if (!$table) {
-		return '';
-	}
-
-	// il ne reste plus qu'a trouver le champ dans les from
-	list($nom, $desc, $cle) = trouver_champ_exterieur($col, $boucle->from, $boucle);
-
-	if (count($cle) > 1 or reset($cle) !== $col) {
-		$col_alias = $col; // id_article devient juste le nom d'origine
-		if (count($cle) > 1 and reset($cle) == 'id_objet') {
-			$e = decompose_champ_id_objet($col);
-			$col = array_shift($e);
-			$where = primary_doublee($e, $table);
-		} else {
-			$col = reset($cle);
-		}
-	}
-
-	return [$col, $col_alias, $table, $where, $desc];
+    $where = '';
+
+    $calculer_critere_externe = 'calculer_critere_externe_init';
+    // gestion par les plugins des jointures tordues
+    // pas automatiques mais necessaires
+    $table_sql = table_objet_sql($table);
+    if (
+        isset($GLOBALS['exceptions_des_jointures'][$table_sql])
+        and is_array($GLOBALS['exceptions_des_jointures'][$table_sql])
+        and
+        (
+            isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col])
+            or
+            isset($GLOBALS['exceptions_des_jointures'][$table_sql][''])
+        )
+    ) {
+        $t = $GLOBALS['exceptions_des_jointures'][$table_sql];
+        $index = isset($t[$col])
+            ? $t[$col] : (isset($t['']) ? $t[''] : []);
+
+        if (count($index) == 3) {
+            list($t, $col, $calculer_critere_externe) = $index;
+        } elseif (count($index) == 2) {
+            list($t, $col) = $t[$col];
+        } elseif (count($index) == 1) {
+            list($calculer_critere_externe) = $index;
+            $t = $table;
+        } else {
+            $t = '';
+        } // jointure non declaree. La trouver.
+    } elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) {
+        list($t, $col) = $GLOBALS['exceptions_des_jointures'][$col];
+    } else {
+        $t = '';
+    } // jointure non declaree. La trouver.
+
+    // ici on construit le from pour fournir $col en piochant dans les jointures
+
+    // si des jointures explicites sont fournies, on cherche d'abord dans celles ci
+    // permet de forcer une table de lien quand il y a ambiguite
+    // <BOUCLE_(DOCUMENTS documents_liens){id_mot}>
+    // alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}>
+    $table = '';
+    if ($boucle->jointures_explicites) {
+        $jointures_explicites = explode(' ', $boucle->jointures_explicites);
+        $table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond or $op != '='), $t);
+    }
+
+    // et sinon on cherche parmi toutes les jointures declarees
+    if (!$table) {
+        $table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond or $op != '='), $t);
+    }
+
+    if (!$table) {
+        return '';
+    }
+
+    // il ne reste plus qu'a trouver le champ dans les from
+    list($nom, $desc, $cle) = trouver_champ_exterieur($col, $boucle->from, $boucle);
+
+    if (count($cle) > 1 or reset($cle) !== $col) {
+        $col_alias = $col; // id_article devient juste le nom d'origine
+        if (count($cle) > 1 and reset($cle) == 'id_objet') {
+            $e = decompose_champ_id_objet($col);
+            $col = array_shift($e);
+            $where = primary_doublee($e, $table);
+        } else {
+            $col = reset($cle);
+        }
+    }
+
+    return [$col, $col_alias, $table, $where, $desc];
 }
 
 
@@ -2287,10 +2287,10 @@ 
  *     - valeur
  **/
 function primary_doublee($decompose, $table) {
-	$e1 = reset($decompose);
-	$e2 = "sql_quote('" . end($decompose) . "')";
+    $e1 = reset($decompose);
+    $e2 = "sql_quote('" . end($decompose) . "')";
 
-	return ["'='", "'$table." . $e1 . "'", $e2];
+    return ["'='", "'$table." . $e1 . "'", $e2];
 }
 
 /**
@@ -2321,57 +2321,57 @@ 
  *     Vide sinon.
  */
 function calculer_critere_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) {
-	// si on demande un truc du genre spip_mots
-	// avec aussi spip_mots_liens dans les jointures dispo
-	// et qu'on est la
-	// il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots
-	if (
-		$checkarrivee
-		and is_string($checkarrivee)
-		and $a = table_objet($checkarrivee)
-		and in_array($a . '_liens', $joints)
-	) {
-		if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
-			return $res;
-		}
-	}
-	foreach ($joints as $joint) {
-		if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) {
-			// alias de table dans le from
-			$t = array_search($arrivee[0], $boucle->from);
-			// recuperer la cle id_xx eventuellement decomposee en (id_objet,objet)
-			$cols = $arrivee[2];
-			// mais on ignore la 3eme cle si presente qui correspond alors au point de depart
-			if (count($cols) > 2) {
-				array_pop($cols);
-			}
-			if ($t) {
-				// la table est déjà dans le FROM, on vérifie si le champ est utilisé.
-				$joindre = false;
-				foreach ($cols as $col) {
-					$c = '/\b' . $t . ".$col" . '\b/';
-					if (trouver_champ($c, $boucle->where)) {
-						$joindre = true;
-					} else {
-						// mais ca peut etre dans le FIELD pour le Having
-						$c = "/FIELD.$t" . ".$col,/";
-						if (trouver_champ($c, $boucle->select)) {
-							$joindre = true;
-						}
-					}
-				}
-				if (!$joindre) {
-					return $t;
-				}
-			}
-			array_pop($arrivee);
-			if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) {
-				return $res;
-			}
-		}
-	}
-
-	return '';
+    // si on demande un truc du genre spip_mots
+    // avec aussi spip_mots_liens dans les jointures dispo
+    // et qu'on est la
+    // il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots
+    if (
+        $checkarrivee
+        and is_string($checkarrivee)
+        and $a = table_objet($checkarrivee)
+        and in_array($a . '_liens', $joints)
+    ) {
+        if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
+            return $res;
+        }
+    }
+    foreach ($joints as $joint) {
+        if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) {
+            // alias de table dans le from
+            $t = array_search($arrivee[0], $boucle->from);
+            // recuperer la cle id_xx eventuellement decomposee en (id_objet,objet)
+            $cols = $arrivee[2];
+            // mais on ignore la 3eme cle si presente qui correspond alors au point de depart
+            if (count($cols) > 2) {
+                array_pop($cols);
+            }
+            if ($t) {
+                // la table est déjà dans le FROM, on vérifie si le champ est utilisé.
+                $joindre = false;
+                foreach ($cols as $col) {
+                    $c = '/\b' . $t . ".$col" . '\b/';
+                    if (trouver_champ($c, $boucle->where)) {
+                        $joindre = true;
+                    } else {
+                        // mais ca peut etre dans le FIELD pour le Having
+                        $c = "/FIELD.$t" . ".$col,/";
+                        if (trouver_champ($c, $boucle->select)) {
+                            $joindre = true;
+                        }
+                    }
+                }
+                if (!$joindre) {
+                    return $t;
+                }
+            }
+            array_pop($arrivee);
+            if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) {
+                return $res;
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -2397,35 +2397,35 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function calculer_lien_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) {
-	$primary_arrivee = id_table_objet($checkarrivee);
-
-	// [FIXME] $checkarrivee peut-il arriver avec false ????
-	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens');
-	$arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
-
-	if (!$intermediaire or !$arrivee) {
-		return '';
-	}
-	array_pop($intermediaire); // enlever la cle en 3eme argument
-	array_pop($arrivee); // enlever la cle en 3eme argument
-
-	$res = fabrique_jointures(
-		$boucle,
-		[
-			[
-				$boucle->id_table,
-				$intermediaire,
-				[id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']]
-			],
-			[reset($intermediaire), $arrivee, $primary_arrivee]
-		],
-		$cond,
-		$desc,
-		$boucle->id_table,
-		[$col]
-	);
-
-	return $res;
+    $primary_arrivee = id_table_objet($checkarrivee);
+
+    // [FIXME] $checkarrivee peut-il arriver avec false ????
+    $intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens');
+    $arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
+
+    if (!$intermediaire or !$arrivee) {
+        return '';
+    }
+    array_pop($intermediaire); // enlever la cle en 3eme argument
+    array_pop($arrivee); // enlever la cle en 3eme argument
+
+    $res = fabrique_jointures(
+        $boucle,
+        [
+            [
+                $boucle->id_table,
+                $intermediaire,
+                [id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']]
+            ],
+            [reset($intermediaire), $arrivee, $primary_arrivee]
+        ],
+        $cond,
+        $desc,
+        $boucle->id_table,
+        [$col]
+    );
+
+    return $res;
 }
 
 
@@ -2442,17 +2442,17 @@ 
  *     false sinon.
  **/
 function trouver_champ($champ, $where) {
-	if (!is_array($where)) {
-		return preg_match($champ, $where);
-	} else {
-		foreach ($where as $clause) {
-			if (trouver_champ($champ, $clause)) {
-				return true;
-			}
-		}
-
-		return false;
-	}
+    if (!is_array($where)) {
+        return preg_match($champ, $where);
+    } else {
+        foreach ($where as $clause) {
+            if (trouver_champ($champ, $clause)) {
+                return true;
+            }
+        }
+
+        return false;
+    }
 }
 
 
@@ -2478,130 +2478,130 @@ 
  *     - string $args_sql  Suite des arguments du critère. ?
  **/
 function calculer_critere_infixe_ops($idb, &$boucles, $crit) {
-	// cas d'une valeur comparee a elle-meme ou son referent
-	if (count($crit->param) == 0) {
-		$op = '=';
-		$col = $val = $crit->op;
-		if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
-			$val = $r[2];
-		}
-		// Cas special {lang} : aller chercher $GLOBALS['spip_lang']
-		if ($val == 'lang') {
-			$val = [kwote('$GLOBALS[\'spip_lang\']')];
-		} else {
-			$defaut = null;
-			if ($val == 'id_parent') {
-				// Si id_parent, comparer l'id_parent avec l'id_objet
-				// de la boucle superieure.... faudrait verifier qu'il existe
-				// pour eviter l'erreur SQL
-				$val = $boucles[$idb]->primary;
-				// mais si pas de boucle superieure, prendre id_parent dans l'env
-				$defaut = "@\$Pile[0]['id_parent']";
-			} elseif ($val == 'id_enfant') {
-				// Si id_enfant, comparer l'id_objet avec l'id_parent
-				// de la boucle superieure
-				$val = 'id_parent';
-			} elseif ($crit->cond and ($col == 'date' or $col == 'date_redac')) {
-				// un critere conditionnel sur date est traite a part
-				// car la date est mise d'office par SPIP,
-				$defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])";
-			}
-
-			$val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
-			$val = [kwote($val)];
-		}
-	} else {
-		// comparaison explicite
-		// le phraseur impose que le premier param soit du texte
-		$params = $crit->param;
-		$op = $crit->op;
-		if ($op == '==') {
-			$op = 'REGEXP';
-		}
-		$col = array_shift($params);
-		$col = $col[0]->texte;
-
-		$val = [];
-		$parent = $boucles[$idb]->id_parent;
-
-		// Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur,
-		// celui ne sachant pas ce qu'est un critere infixe
-		// et a fortiori son 2e operande qu'entoure " ou '
-		if (
-			count($params) == 1
-			and count($params[0]) == 3
-			and $params[0][0]->type == 'texte'
-			and $params[0][2]->type == 'texte'
-			and ($p = $params[0][0]->texte) == $params[0][2]->texte
-			and (($p == "'") or ($p == '"'))
-			and $params[0][1]->type == 'champ'
-		) {
-			$val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
-		} else {
-			foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
-				$a = calculer_liste($p, $idb, $boucles, $parent);
-				if (strcasecmp($op, 'IN') == 0) {
-					$val[] = $a;
-				} else {
-					$val[] = kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@');
-				} // toujours quoter en char ici
-			}
-		}
-	}
-
-	$fct = $args_sql = '';
-	// fonction SQL ?
-	// chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
-	if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
-		$fct = $m[1];
-		preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
-		$col = $a[1];
-		if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) {
-			$col = $m[1];
-			$args_sql = $m[2];
-		}
-		$args_sql .= $a[2];
-	}
-
-	return [$fct, $col, $op, $val, $args_sql];
+    // cas d'une valeur comparee a elle-meme ou son referent
+    if (count($crit->param) == 0) {
+        $op = '=';
+        $col = $val = $crit->op;
+        if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
+            $val = $r[2];
+        }
+        // Cas special {lang} : aller chercher $GLOBALS['spip_lang']
+        if ($val == 'lang') {
+            $val = [kwote('$GLOBALS[\'spip_lang\']')];
+        } else {
+            $defaut = null;
+            if ($val == 'id_parent') {
+                // Si id_parent, comparer l'id_parent avec l'id_objet
+                // de la boucle superieure.... faudrait verifier qu'il existe
+                // pour eviter l'erreur SQL
+                $val = $boucles[$idb]->primary;
+                // mais si pas de boucle superieure, prendre id_parent dans l'env
+                $defaut = "@\$Pile[0]['id_parent']";
+            } elseif ($val == 'id_enfant') {
+                // Si id_enfant, comparer l'id_objet avec l'id_parent
+                // de la boucle superieure
+                $val = 'id_parent';
+            } elseif ($crit->cond and ($col == 'date' or $col == 'date_redac')) {
+                // un critere conditionnel sur date est traite a part
+                // car la date est mise d'office par SPIP,
+                $defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])";
+            }
+
+            $val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
+            $val = [kwote($val)];
+        }
+    } else {
+        // comparaison explicite
+        // le phraseur impose que le premier param soit du texte
+        $params = $crit->param;
+        $op = $crit->op;
+        if ($op == '==') {
+            $op = 'REGEXP';
+        }
+        $col = array_shift($params);
+        $col = $col[0]->texte;
+
+        $val = [];
+        $parent = $boucles[$idb]->id_parent;
+
+        // Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur,
+        // celui ne sachant pas ce qu'est un critere infixe
+        // et a fortiori son 2e operande qu'entoure " ou '
+        if (
+            count($params) == 1
+            and count($params[0]) == 3
+            and $params[0][0]->type == 'texte'
+            and $params[0][2]->type == 'texte'
+            and ($p = $params[0][0]->texte) == $params[0][2]->texte
+            and (($p == "'") or ($p == '"'))
+            and $params[0][1]->type == 'champ'
+        ) {
+            $val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
+        } else {
+            foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
+                $a = calculer_liste($p, $idb, $boucles, $parent);
+                if (strcasecmp($op, 'IN') == 0) {
+                    $val[] = $a;
+                } else {
+                    $val[] = kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@');
+                } // toujours quoter en char ici
+            }
+        }
+    }
+
+    $fct = $args_sql = '';
+    // fonction SQL ?
+    // chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
+    if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
+        $fct = $m[1];
+        preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
+        $col = $a[1];
+        if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) {
+            $col = $m[1];
+            $args_sql = $m[2];
+        }
+        $args_sql .= $a[2];
+    }
+
+    return [$fct, $col, $op, $val, $args_sql];
 }
 
 // compatibilite ancienne version
 
 // https://code.spip.net/@calculer_vieux_in
 function calculer_vieux_in($params) {
-	$deb = $params[0][0];
-	$k = count($params) - 1;
-	$last = $params[$k];
-	$j = count($last) - 1;
-	$last = $last[$j];
-	$n = isset($last->texte) ? strlen($last->texte) : 0;
-
-	if (
-		!((isset($deb->texte[0]) and $deb->texte[0] == '(')
-		&& (isset($last->texte[$n - 1]) and $last->texte[$n - 1] == ')'))
-	) {
-		return $params;
-	}
-	$params[0][0]->texte = substr($deb->texte, 1);
-	// attention, on peut avoir k=0,j=0 ==> recalculer
-	$last = $params[$k][$j];
-	$n = strlen($last->texte);
-	$params[$k][$j]->texte = substr($last->texte, 0, $n - 1);
-	$newp = [];
-	foreach ($params as $v) {
-		if ($v[0]->type != 'texte') {
-			$newp[] = $v;
-		} else {
-			foreach (explode(',', $v[0]->texte) as $x) {
-				$t = new Texte();
-				$t->texte = $x;
-				$newp[] = [$t];
-			}
-		}
-	}
-
-	return $newp;
+    $deb = $params[0][0];
+    $k = count($params) - 1;
+    $last = $params[$k];
+    $j = count($last) - 1;
+    $last = $last[$j];
+    $n = isset($last->texte) ? strlen($last->texte) : 0;
+
+    if (
+        !((isset($deb->texte[0]) and $deb->texte[0] == '(')
+        && (isset($last->texte[$n - 1]) and $last->texte[$n - 1] == ')'))
+    ) {
+        return $params;
+    }
+    $params[0][0]->texte = substr($deb->texte, 1);
+    // attention, on peut avoir k=0,j=0 ==> recalculer
+    $last = $params[$k][$j];
+    $n = strlen($last->texte);
+    $params[$k][$j]->texte = substr($last->texte, 0, $n - 1);
+    $newp = [];
+    foreach ($params as $v) {
+        if ($v[0]->type != 'texte') {
+            $newp[] = $v;
+        } else {
+            foreach (explode(',', $v[0]->texte) as $x) {
+                $t = new Texte();
+                $t->texte = $x;
+                $newp[] = [$t];
+            }
+        }
+    }
+
+    return $newp;
 }
 
 /**
@@ -2620,89 +2620,89 @@ 
  *     - nom de la colonne de date (si le calcul n'est pas relatif)
  **/
 function calculer_critere_infixe_date($idb, &$boucles, $col) {
-	if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) {
-		return '';
-	}
-
-	$boucle = $boucles[$idb];
-	$table = $boucle->show;
-
-	// si c'est une colonne de la table, ne rien faire
-	if (isset($table['field'][$col])) {
-		return '';
-	}
-
-	if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) {
-		return '';
-	}
-	$pred = $date_orig = isset($GLOBALS['table_date'][$table['id_table']]) ? $GLOBALS['table_date'][$table['id_table']] : $table['date'];
-
-	$col = $regs[1];
-	if (isset($regs[3]) and $suite = $regs[3]) {
-		# Recherche de l'existence du champ date_xxxx,
-		# si oui choisir ce champ, sinon choisir xxxx
-
-		if (isset($table['field']["date$suite"])) {
-			$date_orig = 'date' . $suite;
-		} else {
-			$date_orig = substr($suite, 1);
-		}
-		$pred = $date_orig;
-	} else {
-		if (isset($regs[2]) and $rel = $regs[2]) {
-			$pred = 'date';
-		}
-	}
-
-	$date_compare = "\"' . normaliser_date(" .
-		calculer_argument_precedent($idb, $pred, $boucles) .
-		") . '\"";
-
-	$col_vraie = $date_orig;
-	$date_orig = $boucle->id_table . '.' . $date_orig;
-
-	switch ($col) {
-		case 'date':
-			$col = $date_orig;
-			break;
-		case 'jour':
-			$col = "DAYOFMONTH($date_orig)";
-			break;
-		case 'mois':
-			$col = "MONTH($date_orig)";
-			break;
-		case 'annee':
-			$col = "YEAR($date_orig)";
-			break;
-		case 'heure':
-			$col = "DATE_FORMAT($date_orig, \\'%H:%i\\')";
-			break;
-		case 'age':
-			$col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'age_relatif':
-			$col = calculer_param_date($date_compare, $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'jour_relatif':
-			$col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'mois_relatif':
-			$col = 'MONTH(' . $date_compare . ')-MONTH(' .
-				$date_orig . ')+12*(YEAR(' . $date_compare .
-				')-YEAR(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'annee_relatif':
-			$col = 'YEAR(' . $date_compare . ')-YEAR(' .
-				$date_orig . ')';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-	}
-
-	return [$col, $col_vraie];
+    if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) {
+        return '';
+    }
+
+    $boucle = $boucles[$idb];
+    $table = $boucle->show;
+
+    // si c'est une colonne de la table, ne rien faire
+    if (isset($table['field'][$col])) {
+        return '';
+    }
+
+    if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) {
+        return '';
+    }
+    $pred = $date_orig = isset($GLOBALS['table_date'][$table['id_table']]) ? $GLOBALS['table_date'][$table['id_table']] : $table['date'];
+
+    $col = $regs[1];
+    if (isset($regs[3]) and $suite = $regs[3]) {
+        # Recherche de l'existence du champ date_xxxx,
+        # si oui choisir ce champ, sinon choisir xxxx
+
+        if (isset($table['field']["date$suite"])) {
+            $date_orig = 'date' . $suite;
+        } else {
+            $date_orig = substr($suite, 1);
+        }
+        $pred = $date_orig;
+    } else {
+        if (isset($regs[2]) and $rel = $regs[2]) {
+            $pred = 'date';
+        }
+    }
+
+    $date_compare = "\"' . normaliser_date(" .
+        calculer_argument_precedent($idb, $pred, $boucles) .
+        ") . '\"";
+
+    $col_vraie = $date_orig;
+    $date_orig = $boucle->id_table . '.' . $date_orig;
+
+    switch ($col) {
+        case 'date':
+            $col = $date_orig;
+            break;
+        case 'jour':
+            $col = "DAYOFMONTH($date_orig)";
+            break;
+        case 'mois':
+            $col = "MONTH($date_orig)";
+            break;
+        case 'annee':
+            $col = "YEAR($date_orig)";
+            break;
+        case 'heure':
+            $col = "DATE_FORMAT($date_orig, \\'%H:%i\\')";
+            break;
+        case 'age':
+            $col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig);
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'age_relatif':
+            $col = calculer_param_date($date_compare, $date_orig);
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'jour_relatif':
+            $col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'mois_relatif':
+            $col = 'MONTH(' . $date_compare . ')-MONTH(' .
+                $date_orig . ')+12*(YEAR(' . $date_compare .
+                ')-YEAR(' . $date_orig . '))';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'annee_relatif':
+            $col = 'YEAR(' . $date_compare . ')-YEAR(' .
+                $date_orig . ')';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+    }
+
+    return [$col, $col_vraie];
 }
 
 /**
@@ -2721,16 +2721,16 @@ 
  *     de colonne SQL et une date.
  **/
 function calculer_param_date($date_compare, $date_orig) {
-	if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) {
-		$init = "'\" . (\$x = $r[1]) . \"'";
-		$date_compare = '\'$x\'';
-	} else {
-		$init = $date_compare;
-	}
-
-	return
-		// optimisation : mais prevoir le support SQLite avant
-		"TIMESTAMPDIFF(HOUR,$date_orig,$init)/24";
+    if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) {
+        $init = "'\" . (\$x = $r[1]) . \"'";
+        $date_compare = '\'$x\'';
+    } else {
+        $init = $date_compare;
+    }
+
+    return
+        // optimisation : mais prevoir le support SQLite avant
+        "TIMESTAMPDIFF(HOUR,$date_orig,$init)/24";
 }
 
 /**
@@ -2748,20 +2748,20 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_source_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	$args = [];
-	foreach ($crit->param as &$param) {
-		array_push(
-			$args,
-			calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent)
-		);
-	}
+    $boucle = &$boucles[$idb];
 
-	$boucle->hash .= '
+    $args = [];
+    foreach ($crit->param as &$param) {
+        array_push(
+            $args,
+            calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent)
+        );
+    }
+
+    $boucle->hash .= '
 	$command[\'sourcemode\'] = ' . array_shift($args) . ";\n";
 
-	$boucle->hash .= '
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . join(', ', $args) . ");\n";
 }
 
@@ -2779,8 +2779,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_datacache_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '
 	$command[\'datacache\'] = ' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ';';
 }
 
@@ -2796,12 +2796,12 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_php_args_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '$command[\'args\']=array();';
-	foreach ($crit->param as $param) {
-		$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '$command[\'args\']=array();';
+    foreach ($crit->param as $param) {
+        $boucle->hash .= '
 			$command[\'args\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 /**
@@ -2818,16 +2818,16 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_liste_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
-	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste(
-			$param,
-			$idb,
-			$boucles,
-			$boucles[$idb]->id_parent
-		) . ";\n";
-	}
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
+    foreach ($crit->param as $param) {
+        $boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste(
+            $param,
+            $idb,
+            $boucles,
+            $boucles[$idb]->id_parent
+        ) . ";\n";
+    }
 }
 
 /**
@@ -2852,16 +2852,16 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_enum_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
-	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste(
-			$param,
-			$idb,
-			$boucles,
-			$boucles[$idb]->id_parent
-		) . ";\n";
-	}
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
+    foreach ($crit->param as $param) {
+        $boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste(
+            $param,
+            $idb,
+            $boucles,
+            $boucles[$idb]->id_parent
+        ) . ";\n";
+    }
 }
 
 /**
@@ -2876,11 +2876,11 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_datapath_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	foreach ($crit->param as $param) {
-		$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    foreach ($crit->param as $param) {
+        $boucle->hash .= '
 			$command[\'datapath\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 
@@ -2912,20 +2912,20 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_si_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	// il faut initialiser 1 fois le tableau a chaque appel de la boucle
-	// (par exemple lorsque notre boucle est appelee dans une autre boucle)
-	// mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle !
-	$boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n";
-	if ($crit->param) {
-		foreach ($crit->param as $param) {
-			$boucle->hash .= "\t\$command['si'][] = "
-				. calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n";
-		}
-		// interdire {si 0} aussi !
-	} else {
-		$boucle->hash .= '$command[\'si\'][] = 0;';
-	}
+    $boucle = &$boucles[$idb];
+    // il faut initialiser 1 fois le tableau a chaque appel de la boucle
+    // (par exemple lorsque notre boucle est appelee dans une autre boucle)
+    // mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle !
+    $boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n";
+    if ($crit->param) {
+        foreach ($crit->param as $param) {
+            $boucle->hash .= "\t\$command['si'][] = "
+                . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n";
+        }
+        // interdire {si 0} aussi !
+    } else {
+        $boucle->hash .= '$command[\'si\'][] = 0;';
+    }
 }
 
 /**
@@ -2942,8 +2942,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_POUR_tableau_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ');
 	$command[\'sourcemode\'] = \'table\';';
 }
@@ -2964,29 +2964,29 @@ 
  */
 function critere_noeud_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$primary = $boucle->primary;
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $primary = $boucle->primary;
 
-	if (!$primary or strpos($primary, ',')) {
-		erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle);
+    if (!$primary or strpos($primary, ',')) {
+        erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle);
 
-		return;
-	}
-	$table = $boucle->type_requete;
-	$table_sql = table_objet_sql(objet_type($table));
+        return;
+    }
+    $table = $boucle->type_requete;
+    $table_sql = table_objet_sql(objet_type($table));
 
-	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
+    $id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
+        $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
+        'id_parent';
 
-	$in = 'IN';
-	$where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
-	if ($not) {
-		$where = ["'NOT'", $where];
-	}
+    $in = 'IN';
+    $where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
+    if ($not) {
+        $where = ["'NOT'", $where];
+    }
 
-	$boucle->where[] = $where;
+    $boucle->where[] = $where;
 }
 
 /**
@@ -3002,8 +3002,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_feuille_dist($idb, &$boucles, $crit) {
-	$not = $crit->not;
-	$crit->not = $not ? false : true;
-	critere_noeud_dist($idb, $boucles, $crit);
-	$crit->not = $not;
+    $not = $crit->not;
+    $crit->not = $not ? false : true;
+    critere_noeud_dist($idb, $boucles, $crit);
+    $crit->not = $not;
 }

Spacing +172 added lines, -180 removed lines

@@ -46,10 +46,9 @@ 
 	$not = $crit->not;
 	$boucle = &$boucles[$idb];
 	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
+		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] : 'id_parent';
 
-	$c = ["'='", "'$boucle->id_table." . "$id_parent'", 0];
+	$c = ["'='", "'$boucle->id_table."."$id_parent'", 0];
 	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
 }
 
@@ -72,10 +71,10 @@ 
 	$id = $boucle->primary;
 
 	if ($not or !$id) {
-		return (['zbug_critere_inconnu', ['critere' => $not . $crit->op]]);
+		return (['zbug_critere_inconnu', ['critere' => $not.$crit->op]]);
 	}
 	$arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
-	$boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg];
+	$boucle->where[] = ["'!='", "'$boucle->id_table."."$id'", $arg];
 }
 
 
@@ -106,12 +105,12 @@ 
 	$not = ($crit->not ? '' : 'NOT');
 
 	// le doublon s'applique sur un type de boucle (article)
-	$nom = "'" . $boucle->type_requete . "'";
+	$nom = "'".$boucle->type_requete."'";
 
 	// compléter le nom avec un nom précisé {doublons nom}
 	// on obtient $nom = "'article' . 'nom'"
 	if (isset($crit->param[0])) {
-		$nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+		$nom .= '.'.calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
 	}
 
 	// code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
@@ -123,13 +122,13 @@ 
 	// $doublons et son index, ici $nom
 
 	// debut du code "sql_in('articles.id_article', "
-	$debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
+	$debut_in = "sql_in('".$boucle->id_table.'.'.$primary."', ";
 	// lecture des données du doublon "$doublons[$doublon_index[] = "
 	// Attention : boucle->doublons désigne une variable qu'on affecte
-	$debut_doub = '$doublons[' . (!$not ? '' : ($boucle->doublons . '[]= '));
+	$debut_doub = '$doublons['.(!$not ? '' : ($boucle->doublons.'[]= '));
 
 	// le debut complet du code des doublons
-	$debut_doub = $debut_in . $debut_doub;
+	$debut_doub = $debut_in.$debut_doub;
 
 	// nom du doublon "('article' . 'nom')]"
 	$fin_doub = "($nom)]";
@@ -139,22 +138,22 @@ 
 	foreach ($boucle->where as $k => $w) {
 		if (strpos($w[0], $debut_doub) === 0) {
 			// fusionner le sql_in (du where)
-			$boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr($w[0], strlen($debut_in));
+			$boucle->where[$k][0] = $debut_doub.$fin_doub.' . '.substr($w[0], strlen($debut_in));
 			// fusionner l'initialisation (du hash) pour faire plus joli
 			$x = strpos($boucle->hash, $init_comment);
 			$len = strlen($init_comment);
 			$boucle->hash =
-				substr($boucle->hash, 0, $x + $len) . $init_code . substr($boucle->hash, $x + $len);
+				substr($boucle->hash, 0, $x + $len).$init_code.substr($boucle->hash, $x + $len);
 
 			return;
 		}
 	}
 
 	// mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante
-	$boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"];
+	$boucle->where[] = [$debut_doub.$fin_doub.", '".$not."')"];
 
 	// déclarer le doublon s'il n'existe pas encore
-	$boucle->hash .= $init_comment . $init_code;
+	$boucle->hash .= $init_comment.$init_code;
 
 
 	# la ligne suivante avait l'intention d'eviter une collecte deja faite
@@ -215,10 +214,10 @@ 
 	$un = $un[0]->texte;
 	$deux = $deux[0]->texte;
 	if ($deux) {
-		$boucles[$idb]->limit = 'intval($Pile[0]["debut' .
-			$un .
-			'"]) . ",' .
-			$deux .
+		$boucles[$idb]->limit = 'intval($Pile[0]["debut'.
+			$un.
+			'"]) . ",'.
+			$deux.
 			'"';
 	} else {
 		calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
@@ -281,26 +280,26 @@ 
 		$type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
 	}
 
-	$debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
+	$debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut".substr($type, 1));
 	$boucle->modificateur['debut_nom'] = $type;
 	$partie =
 		// tester si le numero de page demande est de la forme '@yyy'
-		'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n"
+		'isset($Pile[0]['.$debut.']) ? $Pile[0]['.$debut.'] : _request('.$debut.");\n"
 		. "\tif(substr(\$debut_boucle,0,1)=='@'){\n"
-		. "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n"
-		. "\t\t" . '$iter->seek(0);' . "\n"
+		. "\t\t".'$debut_boucle = $Pile[0]['.$debut.'] = quete_debut_pagination(\''.$boucle->primary.'\',$Pile[0][\'@'.$boucle->primary.'\'] = substr($debut_boucle,1),'.$pas.',$iter);'."\n"
+		. "\t\t".'$iter->seek(0);'."\n"
 		. "\t}\n"
-		. "\t" . '$debut_boucle = intval($debut_boucle)';
+		. "\t".'$debut_boucle = intval($debut_boucle)';
 
 	$boucle->hash .= '
-	$command[\'pagination\'] = array((isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : null), ' . $pas . ');';
+	$command[\'pagination\'] = array((isset($Pile[0][' . $debut.']) ? $Pile[0]['.$debut.'] : null), '.$pas.');';
 
 	$boucle->total_parties = $pas;
 	calculer_parties($boucles, $idb, $partie, 'p+');
 	// ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id
 	// sauf si pas de primaire, ou si primaire composee
 	// dans ce cas, on ne sait pas gerer une pagination indirecte
-	$t = $boucle->id_table . '.' . $boucle->primary;
+	$t = $boucle->id_table.'.'.$boucle->primary;
 	if (
 		$boucle->primary
 		and !preg_match('/[,\s]/', $boucle->primary)
@@ -347,24 +346,24 @@ 
 	$boucle->hash .= '
 	// RECHERCHE'
 		. ($crit->cond ? '
-	if (!strlen(' . $quoi . ')){
+	if (!strlen(' . $quoi.')){
 		list($rech_select, $rech_where) = array("0 as points","");
-	} else' : '') . '
+	} else' : '').'
 	{
 		$prepare_recherche = charger_fonction(\'prepare_recherche\', \'inc\');
-		list($rech_select, $rech_where) = $prepare_recherche(' . $quoi . ', "' . $boucle->id_table . '", "' . $crit->cond . '","' . $boucle->sql_serveur . '",' . $_modificateur . ',"' . $boucle->primary . '");
+		list($rech_select, $rech_where) = $prepare_recherche(' . $quoi.', "'.$boucle->id_table.'", "'.$crit->cond.'","'.$boucle->sql_serveur.'",'.$_modificateur.',"'.$boucle->primary.'");
 	}
 	';
 
 
-	$t = $boucle->id_table . '.' . $boucle->primary;
+	$t = $boucle->id_table.'.'.$boucle->primary;
 	if (!in_array($t, $boucles[$idb]->select)) {
 		$boucle->select[] = $t;
 	} # pour postgres, neuneu ici
 	// jointure uniquement sur le serveur principal
 	// (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal)
 	if (!$boucle->sql_serveur) {
-		$boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"];
+		$boucle->join['resultats'] = ["'".$boucle->id_table."'", "'id'", "'".$boucle->primary."'"];
 		$boucle->from['resultats'] = 'spip_resultats';
 	}
 	$boucle->select[] = '$rech_select';
@@ -431,7 +430,7 @@ 
 	$c =
 		[
 			"'OR'",
-			["'='", "'$table." . "id_trad'", "'$table.$prim'"],
+			["'='", "'$table."."id_trad'", "'$table.$prim'"],
 			["'='", "'$table.id_trad'", "'0'"]
 		];
 	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
@@ -454,15 +453,14 @@ 
 	$boucle = &$boucles[$idb];
 	$arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
 	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
-	$mparent = $boucle->id_table . '.' . $id_parent;
+		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] : 'id_parent';
+	$mparent = $boucle->id_table.'.'.$id_parent;
 
 	if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
 		$boucle->where[] = ["'='", "'$mparent'", $arg];
 	} // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
 	else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]]);
+		return (['zbug_critere_inconnu', ['critere' => $crit->op.' '.$boucle->type_requete]]);
 	}
 }
 
@@ -515,16 +513,15 @@ 
 		if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
 			$decompose = decompose_champ_id_objet($champ);
 			$champ = array_shift($decompose);
-			$boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"'];
+			$boucle->where[] = ["'='", _q($cle.'.'.reset($decompose)), '"'.sql_quote(end($decompose)).'"'];
 		}
 	} else {
 		$cle = $boucle->id_table;
 	}
 
-	$c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)"
-		. ($not ? ", 'NOT'" : '') . ')';
-	$boucle->where[] = !$crit->cond ? $c :
-		("($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')');
+	$c = "sql_in('$cle".".$champ', calcul_branche_in($arg)"
+		. ($not ? ", 'NOT'" : '').')';
+	$boucle->where[] = !$crit->cond ? $c : ("($arg ? $c : ".($not ? "'0=1'" : "'1=1'").')');
 }
 
 /**
@@ -544,9 +541,9 @@ 
 	$not = ($crit->not ? 'NOT' : '');
 	$serveur = $boucle->sql_serveur;
 
-	$c = "sql_in('" .
-		$boucle->id_table . '.' . $boucle->primary
-		. "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')";
+	$c = "sql_in('".
+		$boucle->id_table.'.'.$boucle->primary
+		. "', lister_objets_avec_logos('".$boucle->primary."'), '$not', '$serveur')";
 
 	$boucle->where[] = $c;
 }
@@ -578,7 +575,7 @@ 
 				$t = table_objet_sql($r[1]);
 				$t = array_search($t, $boucles[$idb]->from);
 				if ($t) {
-					$t .= '.' . $r[2];
+					$t .= '.'.$r[2];
 				}
 			}
 		} else {
@@ -593,7 +590,7 @@ 
 			$boucles[$idb]->select[] = $t;
 		}
 	} else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
+		return (['zbug_critere_inconnu', ['critere' => $crit->op.' ?']]);
 	}
 }
 
@@ -663,26 +660,26 @@ 
 				(false !== $i = strpos($boucle->order[$n - 1], 'ASC'))
 				or (false !== $i = strpos($boucle->order[$n - 1], 'DESC'))
 			) {
-				$boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0);
+				$boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . ".$boucle->modificateur['collate']." . ' ", $i, 0);
 			} else {
-				$boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate'];
+				$boucle->order[$n - 1] .= ' . '.$boucle->modificateur['collate'];
 			}
 		}
 	} else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . count($boucles[$idb]->order)]]);
+		return (['zbug_critere_inconnu', ['critere' => $crit->op.' '.count($boucles[$idb]->order)]]);
 	}
 }
 
 // https://code.spip.net/@calculer_critere_arg_dynamique
 function calculer_critere_arg_dynamique($idb, &$boucles, $crit, $suffix = '') {
 	$boucle = $boucles[$idb];
-	$alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')';
-	$var = '$champs_' . $idb;
+	$alt = "('".$boucle->id_table.'.\' . $x'.$suffix.')';
+	$var = '$champs_'.$idb;
 	$desc = (strpos($boucle->in, "static $var =") !== false);
 	if (!$desc) {
 		$desc = $boucle->show['field'];
 		$desc = implode(',', array_map('_q', array_keys($desc)));
-		$boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');';
+		$boucles[$idb]->in .= "\n\tstatic $var = array(".$desc.');';
 	}
 	if ($desc) {
 		$alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
@@ -757,7 +754,7 @@ 
 		$sens = " . ' DESC'";
 	}
 	if (isset($boucle->modificateur['collate'])) {
-		$collecte = ' . ' . $boucle->modificateur['collate'];
+		$collecte = ' . '.$boucle->modificateur['collate'];
 	}
 
 	// Pour chaque paramètre du critère
@@ -779,14 +776,14 @@ 
 			if (preg_match(',^(\w+)[\s]+(.*)$,', $par, $m)) {
 				$expression = trim($m[1]);
 				$champ = trim($m[2]);
-				if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
+				if (function_exists($f = 'calculer_critere_par_expression_'.$expression)) {
 					$order = $f($idb, $boucles, $crit, $tri, $champ);
 				} else {
-					return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+					return ['zbug_critere_inconnu', ['critere' => $crit->op." $par"]];
 				}
 
 			// tris de la forme {par champ} ou {par FONCTION(champ)}
-			} elseif (preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
+			} elseif (preg_match(',^'.CHAMP_SQL_PLUS_FONC.'$,is', $par, $match)) {
 				// {par FONCTION(champ)}
 				if (count($match) > 2) {
 					$par = substr($match[2], 1, -1);
@@ -796,7 +793,7 @@ 
 				if ($par == 'hasard') {
 					$order = calculer_critere_par_hasard($idb, $boucles, $crit);
 				} elseif ($par == 'date' and !empty($boucle->show['date'])) {
-					$order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'";
+					$order = "'".$boucle->id_table.'.'.$boucle->show['date']."'";
 				} else {
 					// cas général {par champ}, {par table.champ}, ...
 					$order = calculer_critere_par_champ($idb, $boucles, $crit, $par);
@@ -805,7 +802,7 @@ 
 
 			// on ne sait pas traiter…
 			else {
-				return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+				return ['zbug_critere_inconnu', ['critere' => $crit->op." $par"]];
 			}
 
 			// En cas d'erreur de squelette retournée par une fonction
@@ -825,14 +822,14 @@ 
 
 		if ($fct) {
 			if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
-				$order = "'$fct(" . $r[1] . ")'";
+				$order = "'$fct(".$r[1].")'";
 			} else {
 				$order = "'$fct(' . $order . ')'";
 			}
 		}
-		$t = $order . $collecte . $sens;
+		$t = $order.$collecte.$sens;
 		if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-			$t = $r[1] . $r[2];
+			$t = $r[1].$r[2];
 		}
 
 		$boucle->order[] = $t;
@@ -882,16 +879,16 @@ 
 function calculer_critere_par_expression_num($idb, &$boucles, $crit, $tri, $champ) {
 	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
 	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]];
+		return ['zbug_critere_inconnu', ['critere' => $crit->op." num $champ"]];
 	}
 	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
+	$texte = '0+'.$_champ;
 	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
 	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')".' . "';
 	}
-	$asnum = 'num' . ($boucle->order ? count($boucle->order) : '');
-	$boucle->select[] = $texte . " AS $asnum";
+	$asnum = 'num'.($boucle->order ? count($boucle->order) : '');
+	$boucle->select[] = $texte." AS $asnum";
 
 	$orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ);
 	$orderassinum = trim($orderassinum, "'");
@@ -920,13 +917,13 @@ 
 function calculer_critere_par_expression_sinum($idb, &$boucles, $crit, $tri, $champ) {
 	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
 	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]];
+		return ['zbug_critere_inconnu', ['critere' => $crit->op." sinum $champ"]];
 	}
 	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
+	$texte = '0+'.$_champ;
 	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
 	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')".' . "';
 	}
 
 	$as = false;
@@ -942,8 +939,8 @@ 
 	}
 
 	if (!$as) {
-		$as = 'sinum' . ($boucle->order ? count($boucle->order) : '');
-		$boucle->select[] = $select . $as;
+		$as = 'sinum'.($boucle->order ? count($boucle->order) : '');
+		$boucle->select[] = $select.$as;
 	}
 	$order = "'$as'";
 	return $order;
@@ -968,10 +965,10 @@ 
 function calculer_critere_par_expression_multi($idb, &$boucles, $crit, $tri, $champ) {
 	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
 	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]];
+		return ['zbug_critere_inconnu', ['critere' => $crit->op." multi $champ"]];
 	}
 	$boucle = &$boucles[$idb];
-	$boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
+	$boucle->select[] = "\".sql_multi('".$_champ."', \$GLOBALS['spip_lang']).\"";
 	$order = "'multi'";
 	return $order;
 }
@@ -997,7 +994,7 @@ 
 
 	// le champ existe dans la table, pas de souci (le plus commun)
 	if (isset($desc['field'][$par])) {
-		$par = $boucle->id_table . '.' . $par;
+		$par = $boucle->id_table.'.'.$par;
 	}
 	// le champ est peut être une jointure
 	else {
@@ -1018,24 +1015,24 @@ 
 		// Sinon on cherche le champ dans les tables possibles de jointures
 		// Si la table est déjà dans le from, on la réutilise.
 		if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) {
-			$par = $infos['alias'] . '.' . $champ;
+			$par = $infos['alias'].'.'.$champ;
 		} elseif (
 			$boucle->jointures_explicites
 			and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
 		) {
-			$par = $alias . '.' . $champ;
+			$par = $alias.'.'.$champ;
 		} elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
-			$par = $alias . '.' . $champ;
+			$par = $alias.'.'.$champ;
 		// en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même)
 		} elseif (
 			$table_alias
 			and isset($boucle->from[$table_alias])
 			and $infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])
 		) {
-			$par = $infos['alias'] . '.' . $champ;
+			$par = $infos['alias'].'.'.$champ;
 		} elseif ($table) {
 			// On avait table + champ, mais on ne les a pas trouvés
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+			return ['zbug_critere_inconnu', ['critere' => $crit->op." $par"]];
 		} else {
 			// Sinon tant pis, ca doit etre un champ synthetise (cf points)
 		}
@@ -1059,7 +1056,7 @@ 
 	if (!$t) {
 		$t = trouver_jointure_champ($champ, $boucle);
 	}
-	return !$t ? '' : ("'" . $t . '.' . $champ . "'");
+	return !$t ? '' : ("'".$t.'.'.$champ."'");
 }
 
 /**
@@ -1104,9 +1101,9 @@ 
 				$boucle->default_order[] = ' DESC';
 			}
 		} else {
-			$t = $boucle->order[$n - 1] . " . $order";
+			$t = $boucle->order[$n - 1]." . $order";
 			if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-				$t = $r[1] . $r[2];
+				$t = $r[1].$r[2];
 			}
 			$boucle->order[$n - 1] = $t;
 		}
@@ -1141,7 +1138,7 @@ 
 	$_order = array_pop($boucle->order);
 
 	$_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent);
-	$boucle->order[] = "'FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste($_liste,'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens";
+	$boucle->order[] = "'FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste($_liste,'".$boucle->sql_serveur."')) ? \$zl : '0').')'$sens";
 }
 
 
@@ -1150,7 +1147,7 @@ 
 	$params = $crit->param;
 
 	if (count($params) < 1) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
+		return ['zbug_critere_inconnu', ['critere' => $crit->op.' ?']];
 	}
 
 	$boucle = &$boucles[$idb];
@@ -1171,7 +1168,7 @@ 
 	if ((count($date) == 1) and ($date[0]->type == 'texte')) {
 		$date = $date[0]->texte;
 		if (!isset($fields[$date])) {
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]];
+			return ['zbug_critere_inconnu', ['critere' => $crit->op.' '.$date]];
 		}
 	} else {
 		$a = calculer_liste($date, $idb, $boucles, $parent);
@@ -1183,38 +1180,38 @@ 
 		$date = "'.(($cond)\n?\$a:\"$defaut\").'";
 	}
 	$annee = $params ? array_shift($params) : '';
-	$annee = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee, $idb, $boucles, $parent) .
+	$annee = "\n".'sprintf("%04d", ($x = '.
+		calculer_liste($annee, $idb, $boucles, $parent).
 		') ? $x : date("Y"))';
 
 	$mois = $params ? array_shift($params) : '';
-	$mois = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois, $idb, $boucles, $parent) .
+	$mois = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($mois, $idb, $boucles, $parent).
 		') ? $x : date("m"))';
 
 	$jour = $params ? array_shift($params) : '';
-	$jour = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour, $idb, $boucles, $parent) .
+	$jour = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($jour, $idb, $boucles, $parent).
 		') ? $x : date("d"))';
 
 	$annee2 = $params ? array_shift($params) : '';
-	$annee2 = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee2, $idb, $boucles, $parent) .
+	$annee2 = "\n".'sprintf("%04d", ($x = '.
+		calculer_liste($annee2, $idb, $boucles, $parent).
 		') ? $x : date("Y"))';
 
 	$mois2 = $params ? array_shift($params) : '';
-	$mois2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois2, $idb, $boucles, $parent) .
+	$mois2 = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($mois2, $idb, $boucles, $parent).
 		') ? $x : date("m"))';
 
 	$jour2 = $params ? array_shift($params) : '';
-	$jour2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour2, $idb, $boucles, $parent) .
+	$jour2 = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($jour2, $idb, $boucles, $parent).
 		') ? $x : date("d"))';
 
-	$date = $boucle->id_table . ".$date";
+	$date = $boucle->id_table.".$date";
 
-	$quote_end = ",'" . $boucle->sql_serveur . "','text'";
+	$quote_end = ",'".$boucle->sql_serveur."','text'";
 	if ($type == 'jour') {
 		$boucle->where[] = [
 			"'='",
@@ -1286,14 +1283,13 @@ 
 	list($a21, $a22) = calculer_critere_parties_aux($idb, $boucles, $a2);
 
 	if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
-		$boucle->limit = $a11 . ',' . $a21;
+		$boucle->limit = $a11.','.$a21;
 	} else {
 		// 3 dans {1/3}, {2,3} ou {1,n-3}
 		$boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
 		// 2 dans {2/3}, {2,5}, {n-2,1}
 		$partie = ($a11 != 'n') ? $a11 : $a12;
-		$mode = (($op == '/') ? '/' :
-			(($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+'));
+		$mode = (($op == '/') ? '/' : (($a11 == 'n') ? '-' : '+').(($a21 == 'n') ? '-' : '+'));
 		// cas simple {0,#ENV{truc}} compilons le en LIMIT :
 		if ($a11 !== 'n' and $a21 !== 'n' and $mode == '++' and $op == ',') {
 			$boucle->limit =
@@ -1339,8 +1335,7 @@ 
 	// {1/3}
 	if ($op1 == '/') {
 		$pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
-		$totpos = is_numeric($total_parties) ? ($total_parties) :
-			"($total_parties ? $total_parties : 1)";
+		$totpos = is_numeric($total_parties) ? ($total_parties) : "($total_parties ? $total_parties : 1)";
 		$fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1";
 		$debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
 	} else {
@@ -1351,15 +1346,13 @@ 
 
 		// cas {x,n-1}
 		if ($op2 == '-') {
-			$fin = '$debut_boucle + ' . $nombre_boucle . ' - '
-				. (is_numeric($total_parties) ? ($total_parties + 1) :
-					($total_parties . ' - 1'));
+			$fin = '$debut_boucle + '.$nombre_boucle.' - '
+				. (is_numeric($total_parties) ? ($total_parties + 1) : ($total_parties.' - 1'));
 		} else {
 			// {x,1} ou {pagination}
 			$fin = '$debut_boucle'
 				. (is_numeric($total_parties) ?
-					(($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) :
-					('+' . $total_parties . ' - 1'));
+					(($total_parties == 1) ? '' : (' + '.($total_parties - 1))) : ('+'.$total_parties.' - 1'));
 		}
 
 		// {pagination}, gerer le debut_xx=-1 pour tout voir
@@ -1377,11 +1370,11 @@ 
 	// Utiliser min pour rabattre $fin_boucle sur total_boucle.
 
 	$boucles[$id_boucle]->mode_partie = "\n\t"
-		. '$debut_boucle = ' . $debut . ";\n	"
+		. '$debut_boucle = '.$debut.";\n	"
 		. "\$debut_boucle = intval(\$debut_boucle);\n	"
-		. '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n	"
-		. '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
-		. '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
+		. '$fin_boucle = min('.$fin.", \$Numrows['$id_boucle']['total'] - 1);\n	"
+		. '$Numrows[\''.$id_boucle."']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
+		. '$Numrows[\''.$id_boucle.'\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
 		. "\n\tif (\$debut_boucle>0"
 		. " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']"
 		. " AND \$iter->seek(\$debut_boucle,'continue'))"
@@ -1466,16 +1459,16 @@ 
 		// critere personnalise ?
 		if (
 			(!$serveur or
-				((!function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
-					and (!function_exists($f = 'critere_' . $serveur . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
+				((!function_exists($f = 'critere_'.$serveur.'_'.$table.'_'.$critere))
+					and (!function_exists($f = $f.'_dist'))
+					and (!function_exists($f = 'critere_'.$serveur.'_'.$critere))
+					and (!function_exists($f = $f.'_dist'))
 				)
 			)
-			and (!function_exists($f = 'critere_' . $table . '_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
-			and (!function_exists($f = 'critere_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
+			and (!function_exists($f = 'critere_'.$table.'_'.$critere))
+			and (!function_exists($f = $f.'_dist'))
+			and (!function_exists($f = 'critere_'.$critere))
+			and (!function_exists($f = $f.'_dist'))
 		) {
 			// fonction critere standard
 			$f = $defaut;
@@ -1508,9 +1501,9 @@ 
  */
 function kwote($lisp, $serveur = '', $type = '') {
 	if (preg_match(_CODE_QUOTE, $lisp, $r)) {
-		return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"';
+		return $r[1].'"'.sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type).'"';
 	} else {
-		return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
+		return "sql_quote($lisp, '$serveur', '".str_replace("'", "\\'", $type)."')";
 	}
 }
 
@@ -1532,7 +1525,7 @@ 
 function critere_IN_dist($idb, &$boucles, $crit) {
 	$r = calculer_critere_infixe($idb, $boucles, $crit);
 	if (!$r) {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
+		return (['zbug_critere_inconnu', ['critere' => $crit->op.' ?']]);
 	}
 	list($arg, $op, $val, $col, $where_complement) = $r;
 
@@ -1557,8 +1550,8 @@ 
 				"'NOT'",
 				[
 					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+					"'".$boucles[$idb]->id_table.'.'.$boucles[$idb]->primary."'",
+					["'SELF'", "'".$boucles[$idb]->id_table.'.'.$boucles[$idb]->primary."'", $where]
 				]
 			];
 		}
@@ -1576,22 +1569,22 @@ 
 	$descr = $boucles[$idb]->descr;
 	$cpt = &$num[$descr['nom']][$descr['gram']][$idb];
 
-	$var = '$in' . $cpt++;
+	$var = '$in'.$cpt++;
 	$x = "\n\t$var = array();";
 	foreach ($val as $k => $v) {
 		if (preg_match(",^(\n//.*\n)?'(.*)'$,", $v, $r)) {
 			// optimiser le traitement des constantes
 			if (is_numeric($r[2])) {
-				$x .= "\n\t$var" . "[]= $r[2];";
+				$x .= "\n\t$var"."[]= $r[2];";
 			} else {
-				$x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';';
+				$x .= "\n\t$var".'[]= '.sql_quote($r[2]).';';
 			}
 		} else {
 			// Pour permettre de passer des tableaux de valeurs
 			// on repere l'utilisation brute de #ENV**{X},
 			// c'est-a-dire sa  traduction en ($PILE[0][X]).
 			// et on deballe mais en rajoutant l'anti XSS
-			$x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);";
+			$x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var"."[]= \$a;\n\telse $var = array_merge($var, \$a);";
 		}
 	}
 
@@ -1605,7 +1598,7 @@ 
 		$boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))";
 	}
 
-	return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')';
+	return "sql_in('$arg', $var".($crit2 == 'NOT' ? ",'NOT'" : '').')';
 }
 
 /**
@@ -1678,7 +1671,7 @@ 
 		$champs = array_diff($champs, array_keys($boucle->modificateur['criteres']));
 	}
 	// nous aider en mode debug.
-	$boucle->debug[] = 'id_ : ' . implode(', ', $champs);
+	$boucle->debug[] = 'id_ : '.implode(', ', $champs);
 	$boucle->modificateur['id_'] = $champs;
 
 	// créer un critère {id_xxx?} de chaque champ retenu
@@ -1719,7 +1712,7 @@ 
 	// Les champs id_xx de la table demandée
 	$champs = array_filter(
 		array_keys($desc['field']),
-		function ($champ) {
+		function($champ) {
 			return
 				strpos($champ, 'id_') === 0
 				or (in_array($champ, ['objet']));
@@ -1933,8 +1926,8 @@ 
 				"'NOT'",
 				[
 					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+					"'".$boucles[$idb]->id_table.'.'.$boucles[$idb]->primary."'",
+					["'SELF'", "'".$boucles[$idb]->id_table.'.'.$boucles[$idb]->primary."'", $where]
 				]
 			];
 		}
@@ -1945,7 +1938,7 @@ 
 	if ($crit->cond) {
 		$pred = calculer_argument_precedent($idb, $col, $boucles);
 		if ($col == 'date' or $col == 'date_redac') {
-			if ($pred == "\$Pile[0]['" . $col . "']") {
+			if ($pred == "\$Pile[0]['".$col."']") {
 				$pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
 			}
 		}
@@ -2106,7 +2099,7 @@ 
 		// defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon
 		// prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut
 		if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
-			$val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"';
+			$val[0] = $r[1].'"'.sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote).'"';
 		}
 		// sinon expliciter les
 		// sql_quote(truc) en sql_quote(truc,'',type)
@@ -2122,14 +2115,14 @@ 
 		) {
 			$r = $r[1]
 				. ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
-				. ",'" . addslashes($type_cast_quote) . "'";
+				. ",'".addslashes($type_cast_quote)."'";
 			$val[0] = "sql_quote($r)";
 		}
 		elseif (
 			strpos($val[0], '@@defaultcast@@') !== false
 			and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
 		) {
-			$val[0] = substr($val[0], 0, -strlen($r[0])) . "'" . addslashes($type_cast_quote) . "')";
+			$val[0] = substr($val[0], 0, -strlen($r[0]))."'".addslashes($type_cast_quote)."')";
 		}
 	}
 
@@ -2137,7 +2130,7 @@ 
 		strpos($val[0], '@@defaultcast@@') !== false
 		and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
 	) {
-		$val[0] = substr($val[0], 0, -strlen($r[0])) . "'char')";
+		$val[0] = substr($val[0], 0, -strlen($r[0]))."'char')";
 	}
 
 	// Indicateur pour permettre aux fonctionx boucle_X de modifier
@@ -2153,7 +2146,7 @@ 
 	// inserer le nom de la table SQL devant le nom du champ
 	if ($table) {
 		if ($col[0] == '`') {
-			$arg = "$table." . substr($col, 1, -1);
+			$arg = "$table.".substr($col, 1, -1);
 		} else {
 			$arg = "$table.$col";
 		}
@@ -2288,9 +2281,9 @@ 
  **/
 function primary_doublee($decompose, $table) {
 	$e1 = reset($decompose);
-	$e2 = "sql_quote('" . end($decompose) . "')";
+	$e2 = "sql_quote('".end($decompose)."')";
 
-	return ["'='", "'$table." . $e1 . "'", $e2];
+	return ["'='", "'$table.".$e1."'", $e2];
 }
 
 /**
@@ -2329,7 +2322,7 @@ 
 		$checkarrivee
 		and is_string($checkarrivee)
 		and $a = table_objet($checkarrivee)
-		and in_array($a . '_liens', $joints)
+		and in_array($a.'_liens', $joints)
 	) {
 		if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
 			return $res;
@@ -2349,12 +2342,12 @@ 
 				// la table est déjà dans le FROM, on vérifie si le champ est utilisé.
 				$joindre = false;
 				foreach ($cols as $col) {
-					$c = '/\b' . $t . ".$col" . '\b/';
+					$c = '/\b'.$t.".$col".'\b/';
 					if (trouver_champ($c, $boucle->where)) {
 						$joindre = true;
 					} else {
 						// mais ca peut etre dans le FIELD pour le Having
-						$c = "/FIELD.$t" . ".$col,/";
+						$c = "/FIELD.$t".".$col,/";
 						if (trouver_champ($c, $boucle->select)) {
 							$joindre = true;
 						}
@@ -2400,7 +2393,7 @@ 
 	$primary_arrivee = id_table_objet($checkarrivee);
 
 	// [FIXME] $checkarrivee peut-il arriver avec false ????
-	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens');
+	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee.'_liens');
 	$arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
 
 	if (!$intermediaire or !$arrivee) {
@@ -2504,7 +2497,7 @@ 
 			} elseif ($crit->cond and ($col == 'date' or $col == 'date_redac')) {
 				// un critere conditionnel sur date est traite a part
 				// car la date est mise d'office par SPIP,
-				$defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])";
+				$defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['".$col."'])";
 			}
 
 			$val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
@@ -2536,7 +2529,7 @@ 
 			and (($p == "'") or ($p == '"'))
 			and $params[0][1]->type == 'champ'
 		) {
-			$val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
+			$val[] = "$p\\$p#".$params[0][1]->nom_champ."\\$p$p";
 		} else {
 			foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
 				$a = calculer_liste($p, $idb, $boucles, $parent);
@@ -2552,7 +2545,7 @@ 
 	$fct = $args_sql = '';
 	// fonction SQL ?
 	// chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
-	if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
+	if (preg_match('/^(.*)'.SQL_ARGS.'$/', $col, $m)) {
 		$fct = $m[1];
 		preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
 		$col = $a[1];
@@ -2643,7 +2636,7 @@ 
 		# si oui choisir ce champ, sinon choisir xxxx
 
 		if (isset($table['field']["date$suite"])) {
-			$date_orig = 'date' . $suite;
+			$date_orig = 'date'.$suite;
 		} else {
 			$date_orig = substr($suite, 1);
 		}
@@ -2654,12 +2647,12 @@ 
 		}
 	}
 
-	$date_compare = "\"' . normaliser_date(" .
-		calculer_argument_precedent($idb, $pred, $boucles) .
+	$date_compare = "\"' . normaliser_date(".
+		calculer_argument_precedent($idb, $pred, $boucles).
 		") . '\"";
 
 	$col_vraie = $date_orig;
-	$date_orig = $boucle->id_table . '.' . $date_orig;
+	$date_orig = $boucle->id_table.'.'.$date_orig;
 
 	switch ($col) {
 		case 'date':
@@ -2679,26 +2672,26 @@ 
 			break;
 		case 'age':
 			$col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
+			$col_vraie = ''; // comparer a un int (par defaut)
 			break;
 		case 'age_relatif':
 			$col = calculer_param_date($date_compare, $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
+			$col_vraie = ''; // comparer a un int (par defaut)
 			break;
 		case 'jour_relatif':
-			$col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
+			$col = '(TO_DAYS('.$date_compare.')-TO_DAYS('.$date_orig.'))';
+			$col_vraie = ''; // comparer a un int (par defaut)
 			break;
 		case 'mois_relatif':
-			$col = 'MONTH(' . $date_compare . ')-MONTH(' .
-				$date_orig . ')+12*(YEAR(' . $date_compare .
-				')-YEAR(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
+			$col = 'MONTH('.$date_compare.')-MONTH('.
+				$date_orig.')+12*(YEAR('.$date_compare.
+				')-YEAR('.$date_orig.'))';
+			$col_vraie = ''; // comparer a un int (par defaut)
 			break;
 		case 'annee_relatif':
-			$col = 'YEAR(' . $date_compare . ')-YEAR(' .
-				$date_orig . ')';
-			$col_vraie = '';// comparer a un int (par defaut)
+			$col = 'YEAR('.$date_compare.')-YEAR('.
+				$date_orig.')';
+			$col_vraie = ''; // comparer a un int (par defaut)
 			break;
 	}
 
@@ -2759,10 +2752,10 @@ 
 	}
 
 	$boucle->hash .= '
-	$command[\'sourcemode\'] = ' . array_shift($args) . ";\n";
+	$command[\'sourcemode\'] = ' . array_shift($args).";\n";
 
 	$boucle->hash .= '
-	$command[\'source\'] = array(' . join(', ', $args) . ");\n";
+	$command[\'source\'] = array(' . join(', ', $args).");\n";
 }
 
 /**
@@ -2781,7 +2774,7 @@ 
 function critere_DATA_datacache_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= '
-	$command[\'datacache\'] = ' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ';';
+	$command[\'datacache\'] = ' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent).';';
 }
 
 
@@ -2800,7 +2793,7 @@ 
 	$boucle->hash .= '$command[\'args\']=array();';
 	foreach ($crit->param as $param) {
 		$boucle->hash .= '
-			$command[\'args\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
+			$command[\'args\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent).';';
 	}
 }
 
@@ -2819,14 +2812,14 @@ 
  */
 function critere_DATA_liste_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
+	$boucle->hash .= "\n\t".'$command[\'liste\'] = array();'."\n";
 	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste(
+		$boucle->hash .= "\t".'$command[\'liste\'][] = '.calculer_liste(
 			$param,
 			$idb,
 			$boucles,
 			$boucles[$idb]->id_parent
-		) . ";\n";
+		).";\n";
 	}
 }
 
@@ -2853,14 +2846,14 @@ 
  */
 function critere_DATA_enum_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
+	$boucle->hash .= "\n\t".'$command[\'enum\'] = array();'."\n";
 	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste(
+		$boucle->hash .= "\t".'$command[\'enum\'][] = '.calculer_liste(
 			$param,
 			$idb,
 			$boucles,
 			$boucles[$idb]->id_parent
-		) . ";\n";
+		).";\n";
 	}
 }
 
@@ -2879,7 +2872,7 @@ 
 	$boucle = &$boucles[$idb];
 	foreach ($crit->param as $param) {
 		$boucle->hash .= '
-			$command[\'datapath\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
+			$command[\'datapath\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent).';';
 	}
 }
 
@@ -2920,7 +2913,7 @@ 
 	if ($crit->param) {
 		foreach ($crit->param as $param) {
 			$boucle->hash .= "\t\$command['si'][] = "
-				. calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n";
+				. calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent).";\n";
 		}
 		// interdire {si 0} aussi !
 	} else {
@@ -2944,7 +2937,7 @@ 
 function critere_POUR_tableau_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= '
-	$command[\'source\'] = array(' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ');
+	$command[\'source\'] = array(' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent).');
 	$command[\'sourcemode\'] = \'table\';';
 }
 
@@ -2977,11 +2970,10 @@ 
 	$table_sql = table_objet_sql(objet_type($table));
 
 	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
+		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] : 'id_parent';
 
 	$in = 'IN';
-	$where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
+	$where = ["'IN'", "'$boucle->id_table."."$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
 	if ($not) {
 		$where = ["'NOT'", $where];
 	}

Braces +2 added lines, -4 removed lines

@@ -2080,8 +2080,7 @@ 
 						// Champ joker * des iterateurs DATA qui accepte tout
 						if (@array_key_exists('*', $desc['field'])) {
 							$desc['field'][$col_vraie ? $col_vraie : $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA
-						}
-						else {
+						} else {
 							$r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
 							if (!$r) {
 								return '';
@@ -2124,8 +2123,7 @@ 
 				. ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
 				. ",'" . addslashes($type_cast_quote) . "'";
 			$val[0] = "sql_quote($r)";
-		}
-		elseif (
+		} elseif (
 			strpos($val[0], '@@defaultcast@@') !== false
 			and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
 		) {

ecrire/public/normaliser.php

Indentation +159 added lines, -159 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Les fonctions de ce fichier sont appelees en certains points
@@ -25,193 +25,193 @@ 
 // -> https://www.spip.net/fr_article901.html
 
 function phraser_vieux_logos(&$p) {
-	if ($p->param[0][0]) {
-		$args = [''];
-	} else {
-		$args = array_shift($p->param);
-	}
-
-	foreach ($p->param as $couple) {
-		$nom = trim($couple[0]);
-		if ($nom == '') {
-			array_shift($p->param);
-			break;
-		}
-		$r = phraser_logo_faux_filtres($nom);
-		if ($r === 0) {
-			$c = new Texte();
-			$c->texte = $nom;
-			$args[] = [$c];
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif ($r === 2) {
-			$p->etoile = '**';
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif ($r === 1) {
-			array_shift($p->param);
-			$p->etoile = '*';
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif (preg_match('/^' . NOM_DE_CHAMP . '(.*)$/sS', $nom, $m)) {
-			$champ = new Champ();
-			$champ->nom_boucle = $m[2];
-			$champ->nom_champ = $m[3];
-			$champ->etoile = $m[5];
-			$champ = [$champ];
-			if ($m[6]) {
-				$r = new Texte();
-				$r->texte = $m[6];
-				$champ[] = $r;
-			}
-			$args[] = $champ;
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} // le cas else est la seule incompatibilite
-	}
-	array_unshift($p->param, $args);
+    if ($p->param[0][0]) {
+        $args = [''];
+    } else {
+        $args = array_shift($p->param);
+    }
+
+    foreach ($p->param as $couple) {
+        $nom = trim($couple[0]);
+        if ($nom == '') {
+            array_shift($p->param);
+            break;
+        }
+        $r = phraser_logo_faux_filtres($nom);
+        if ($r === 0) {
+            $c = new Texte();
+            $c->texte = $nom;
+            $args[] = [$c];
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif ($r === 2) {
+            $p->etoile = '**';
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif ($r === 1) {
+            array_shift($p->param);
+            $p->etoile = '*';
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif (preg_match('/^' . NOM_DE_CHAMP . '(.*)$/sS', $nom, $m)) {
+            $champ = new Champ();
+            $champ->nom_boucle = $m[2];
+            $champ->nom_champ = $m[3];
+            $champ->etoile = $m[5];
+            $champ = [$champ];
+            if ($m[6]) {
+                $r = new Texte();
+                $r->texte = $m[6];
+                $champ[] = $r;
+            }
+            $args[] = $champ;
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } // le cas else est la seule incompatibilite
+    }
+    array_unshift($p->param, $args);
 }
 
 
 function phraser_logo_faux_filtres($nom) {
-	switch ($nom) {
-		case 'top':
-		case 'left':
-		case 'right':
-		case 'center':
-		case 'bottom':
-			return 0;
-		case 'lien':
-			return 1;
-		case 'fichier':
-			return 2;
-		default:
-			return $nom;
-	}
+    switch ($nom) {
+        case 'top':
+        case 'left':
+        case 'right':
+        case 'center':
+        case 'bottom':
+            return 0;
+        case 'lien':
+            return 1;
+        case 'fichier':
+            return 2;
+        default:
+            return $nom;
+    }
 }
 
 
 // La balise embed_document est a present le modele emb
 
 function phraser_vieux_emb(&$p) {
-	if (!is_array($p->param)) {
-		$p->param = [];
-	}
-
-	// Produire le premier argument {emb}
-	$texte = new Texte();
-	$texte->texte = 'emb';
-	$param = ['', [$texte]];
-
-	// Transformer les filtres en arguments
-	for ($i = 0; $i < count($p->param); $i++) {
-		if ($p->param[$i][0]) {
-			if (!strstr($p->param[$i][0], '=')) {
-				break;
-			}# on a rencontre un vrai filtre, c'est fini
-			$texte = new Texte();
-			$texte->texte = $p->param[$i][0];
-			$param[] = [$texte];
-		}
-		array_shift($p->param);
-	}
-	array_unshift($p->param, $param);
-	spip_log('balise EMBED_DOCUMENT obsolete', 'vieilles_defs');
-	$p->nom_champ = 'MODELE';
+    if (!is_array($p->param)) {
+        $p->param = [];
+    }
+
+    // Produire le premier argument {emb}
+    $texte = new Texte();
+    $texte->texte = 'emb';
+    $param = ['', [$texte]];
+
+    // Transformer les filtres en arguments
+    for ($i = 0; $i < count($p->param); $i++) {
+        if ($p->param[$i][0]) {
+            if (!strstr($p->param[$i][0], '=')) {
+                break;
+            }# on a rencontre un vrai filtre, c'est fini
+            $texte = new Texte();
+            $texte->texte = $p->param[$i][0];
+            $param[] = [$texte];
+        }
+        array_shift($p->param);
+    }
+    array_unshift($p->param, $param);
+    spip_log('balise EMBED_DOCUMENT obsolete', 'vieilles_defs');
+    $p->nom_champ = 'MODELE';
 }
 
 // Vieux formulaire de recherch
 
 function phraser_vieux_recherche($p) {
-	if ($p->param[0][0]) {
-		$c = new Texte();
-		$c->texte = $p->param[0][0];
-		$p->param[0][1] = [$c];
-		$p->param[0][0] = '';
-		$p->fonctions = [];
-		spip_log('FORMULAIRE_RECHERCHE avec filtre ' . $c->texte, 'vieilles_defs');
-	}
+    if ($p->param[0][0]) {
+        $c = new Texte();
+        $c->texte = $p->param[0][0];
+        $p->param[0][1] = [$c];
+        $p->param[0][0] = '';
+        $p->fonctions = [];
+        spip_log('FORMULAIRE_RECHERCHE avec filtre ' . $c->texte, 'vieilles_defs');
+    }
 }
 
 // Gerer la notation [(#EXPOSER|on,off)]
 function phraser_vieux_exposer($p) {
-	if ($a = $p->fonctions) {
-		preg_match('#([^,]*)(,(.*))?#', $a[0][0], $regs);
-		$args = [];
-		if ($regs[1]) {
-			$a = new Texte();
-			$a->texte = $regs[1];
-			$args = ['', [$a]];
-			if ($regs[3]) {
-				$a = new Texte();
-				$a->texte = $regs[3];
-				$args[] = [$a];
-			}
-		}
-		$p->param[0] = $args;
-		$p->fonctions = [];
-		$p->nom_champ = 'EXPOSE';
-	}
+    if ($a = $p->fonctions) {
+        preg_match('#([^,]*)(,(.*))?#', $a[0][0], $regs);
+        $args = [];
+        if ($regs[1]) {
+            $a = new Texte();
+            $a->texte = $regs[1];
+            $args = ['', [$a]];
+            if ($regs[3]) {
+                $a = new Texte();
+                $a->texte = $regs[3];
+                $args[] = [$a];
+            }
+        }
+        $p->param[0] = $args;
+        $p->fonctions = [];
+        $p->nom_champ = 'EXPOSE';
+    }
 }
 
 function phraser_vieux_modele($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 function phraser_vieux_inclu($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 function normaliser_args_inclumodel($p) {
-	$params = $p->param;
-	if (!$params) {
-		return;
-	}
-	$args = $params[0];
-	if ($args[0]) {
-		return;
-	} // filtre immediat
-	array_shift($p->param);
-	foreach ($p->param as $l) {
-		if (!array_shift($l)) {
-			$args = array_merge($args, $l);
-			array_shift($p->param);
-		} else {
-			break;
-		} // filtre
-	}
-	array_unshift($p->param, $args);
+    $params = $p->param;
+    if (!$params) {
+        return;
+    }
+    $args = $params[0];
+    if ($args[0]) {
+        return;
+    } // filtre immediat
+    array_shift($p->param);
+    foreach ($p->param as $l) {
+        if (!array_shift($l)) {
+            $args = array_merge($args, $l);
+            array_shift($p->param);
+        } else {
+            break;
+        } // filtre
+    }
+    array_unshift($p->param, $args);
 }
 
 function normaliser_inclure($champ) {
-	normaliser_args_inclumodel($champ);
-	$l = $champ->param[0];
-	if (is_array($l) and !$l[0]) {
-		foreach ($l as $k => $p) {
-			if ($p and $p[0]->type == 'texte' and !strpos($p[0]->texte, '=')) {
-				$p[0]->texte = trim($p[0]->texte);
-			}
-		}
-		foreach ($l as $k => $p) {
-			if (
-				!$p or $p[0]->type != 'texte' or
-				!preg_match('/^fond\s*=\s*(.*)$/', $p[0]->texte, $r)
-			) {
-				continue;
-			}
-
-			if ($r[1]) {
-				$p[0]->texte = $r[1];
-			} else {
-				unset($p[0]);
-			}
-			$champ->texte = $p;
-			unset($champ->param[0][$k]);
-			if (count($champ->param[0]) == 1) {
-				array_shift($champ->param);
-			}
-
-			return;
-		}
-	}
-	spip_log('inclure sans fond ni fichier');
+    normaliser_args_inclumodel($champ);
+    $l = $champ->param[0];
+    if (is_array($l) and !$l[0]) {
+        foreach ($l as $k => $p) {
+            if ($p and $p[0]->type == 'texte' and !strpos($p[0]->texte, '=')) {
+                $p[0]->texte = trim($p[0]->texte);
+            }
+        }
+        foreach ($l as $k => $p) {
+            if (
+                !$p or $p[0]->type != 'texte' or
+                !preg_match('/^fond\s*=\s*(.*)$/', $p[0]->texte, $r)
+            ) {
+                continue;
+            }
+
+            if ($r[1]) {
+                $p[0]->texte = $r[1];
+            } else {
+                unset($p[0]);
+            }
+            $champ->texte = $p;
+            unset($champ->param[0][$k]);
+            if (count($champ->param[0]) == 1) {
+                array_shift($champ->param);
+            }
+
+            return;
+        }
+    }
+    spip_log('inclure sans fond ni fichier');
 }

Spacing +2 added lines, -2 removed lines

@@ -52,7 +52,7 @@ 
 			array_shift($p->param);
 			$p->etoile = '*';
 			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif (preg_match('/^' . NOM_DE_CHAMP . '(.*)$/sS', $nom, $m)) {
+		} elseif (preg_match('/^'.NOM_DE_CHAMP.'(.*)$/sS', $nom, $m)) {
 			$champ = new Champ();
 			$champ->nom_boucle = $m[2];
 			$champ->nom_champ = $m[3];
@@ -128,7 +128,7 @@ 
 		$p->param[0][1] = [$c];
 		$p->param[0][0] = '';
 		$p->fonctions = [];
-		spip_log('FORMULAIRE_RECHERCHE avec filtre ' . $c->texte, 'vieilles_defs');
+		spip_log('FORMULAIRE_RECHERCHE avec filtre '.$c->texte, 'vieilles_defs');
 	}
 }