spip / SPIP

ecrire/public/phraser_html.php

Indentation +861 added lines, -861 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
-		phraser_args($texte, "/>", "", $result, $champ);
-		if (!$champ->texte or count($champ->param) > 1) {
-			if (!function_exists('normaliser_inclure')) {
-				include_spip('public/normaliser');
-			}
-			normaliser_inclure($champ);
-		}
-		$texte = substr($champ->apres, strpos($champ->apres, '>') + 1);
-		$champ->apres = "";
-		$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
+        phraser_args($texte, "/>", "", $result, $champ);
+        if (!$champ->texte or count($champ->param) > 1) {
+            if (!function_exists('normaliser_inclure')) {
+                include_spip('public/normaliser');
+            }
+            normaliser_inclure($champ);
+        }
+        $texte = substr($champ->apres, strpos($champ->apres, '>') + 1);
+        $champ->apres = "";
+        $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,41 +163,41 @@ 
  * @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 = array();
-		$largs = $match[5];
-		while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
-			$args[$r[1]] = phraser_champs($r[2], 0, array());
-			$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
-		phraser_args($match[7], ":", '', array(), $champ);
-		$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 = array();
+        $largs = $match[5];
+        while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
+            $args[$r[1]] = phraser_champs($r[2], 0, array());
+            $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
+        phraser_args($match[7], ":", '', array(), $champ);
+        $result[] = $champ;
+    }
+    if ($texte !== "") {
+        $result = phraser_champs($texte, $ligne, $result);
+    }
+
+    return $result;
 }
 
 /**
@@ -215,47 +215,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, '', array(), $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, '', array(), $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:
@@ -265,15 +265,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, array()));
+    if ($texte === "") {
+        return $result;
+    }
+    $sep = '##';
+    while (strpos($texte, $sep) !== false) {
+        $sep .= '#';
+    }
+
+    return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, array()));
 }
 
 /**
@@ -293,270 +293,270 @@ 
  * @return array
  */
 function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ) {
-	$texte = ltrim($texte);
-	while (($texte !== "") && strpos($fin, $texte[0]) === false) {
-		$result = phraser_arg($texte, $sep, $result, $pointeur_champ);
-		$texte = ltrim($texte);
-	}
+    $texte = ltrim($texte);
+    while (($texte !== "") && strpos($fin, $texte[0]) === false) {
+        $result = phraser_arg($texte, $sep, $result, $pointeur_champ);
+        $texte = ltrim($texte);
+    }
 # mettre ici la suite du texte, 
 # notamment pour que l'appelant vire le caractere fermant si besoin
-	$pointeur_champ->apres = $texte;
+    $pointeur_champ->apres = $texte;
 
-	return $result;
+    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 = array($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 = array('zbug_erreur_filtre', array('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[] = array($fonc, '');
-
-		return $result;
-	}
-	$args = ltrim(substr($suite, 1)); // virer le '(' initial
-	$collecte = array();
-	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 (!strlen($regs[2])) {
-				$err_f = array('zbug_erreur_filtre', array('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, array(), $champ);
-					$args = ltrim($rec);
-					$next = isset($args[0]) ? $args[0] : '';
-				}
-				while ($next == '|') {
-					phraser_args($rec, $par, $sep, array(), $champ);
-					$args = $champ->apres;
-					$champ->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 = array();
-			}
-		}
-	}
-	if ($collecte) {
-		$res[] = $collecte;
-		$collecte = array();
-	}
-	$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[] = array($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 = array($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 = array('zbug_erreur_filtre', array('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[] = array($fonc, '');
+
+        return $result;
+    }
+    $args = ltrim(substr($suite, 1)); // virer le '(' initial
+    $collecte = array();
+    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 (!strlen($regs[2])) {
+                $err_f = array('zbug_erreur_filtre', array('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, array(), $champ);
+                    $args = ltrim($rec);
+                    $next = isset($args[0]) ? $args[0] : '';
+                }
+                while ($next == '|') {
+                    phraser_args($rec, $par, $sep, array(), $champ);
+                    $args = $champ->apres;
+                    $champ->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 = array();
+            }
+        }
+    }
+    if ($collecte) {
+        $res[] = $collecte;
+        $collecte = array();
+    }
+    $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[] = array($fonc, $source);
+
+    return $result;
 }
 
 
 // https://code.spip.net/@phraser_champs_exterieurs
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
-	$res = array();
-	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 = array();
+    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
-			$result = phraser_args($match[7], ")", $sep, $result, $champ);
-			phraser_vieux($champ);
-			$champ->avant =
-				phraser_champs_exterieurs($match[1], $n, $sep, $result);
-			$debut = substr($champ->apres, 1);
-			if (!empty($debut)) {
-				$n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
-			}
-			$champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
-
-			$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
+            $result = phraser_args($match[7], ")", $sep, $result, $champ);
+            phraser_vieux($champ);
+            $champ->avant =
+                phraser_champs_exterieurs($match[1], $n, $sep, $result);
+            $debut = substr($champ->apres, 1);
+            if (!empty($debut)) {
+                $n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
+            }
+            $champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
+
+            $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);
+        }
+    }
 }
 
 
@@ -584,190 +584,190 @@ 
  **/
 function phraser_criteres($params, &$result) {
 
-	$err_ci = ''; // indiquera s'il y a eu une erreur
-	$args = array();
-	$type = $result->type_requete;
-	$doublons = array();
-	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 = array(
-						'zbug_critere_inconnu',
-						array('critere' => $var->nom_champ)
-					);
-					erreur_squelette($err_ci, $result);
-				} else {
-					$crit = new Critere;
-					$crit->op = '/';
-					$crit->not = "";
-					$crit->exclus = "";
-					$crit->param = array(array($v[1][0]), array($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 = array(
-							'zbug_critere_inconnu',
-							array('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 = array();
+    $type = $result->type_requete;
+    $doublons = array();
+    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 = array(
+                        'zbug_critere_inconnu',
+                        array('critere' => $var->nom_champ)
+                    );
+                    erreur_squelette($err_ci, $result);
+                } else {
+                    $crit = new Critere;
+                    $crit->op = '/';
+                    $crit->not = "";
+                    $crit->exclus = "";
+                    $crit->param = array(array($v[1][0]), array($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 = array(
+                            'zbug_critere_inconnu',
+                            array('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] = array($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] = array($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;
 }
 
 /**
@@ -778,12 +778,12 @@ 
  * @return int
  */
 function public_compte_ligne($texte, $debut = 0, $longueur = null) {
-	if (is_null($longueur)) {
-		return substr_count($texte, "\n", $debut);
-	}
-	else {
-		return substr_count($texte, "\n", $debut, $longueur);
-	}
+    if (is_null($longueur)) {
+        return substr_count($texte, "\n", $debut);
+    }
+    else {
+        return substr_count($texte, "\n", $debut, $longueur);
+    }
 }
 
 
@@ -798,286 +798,286 @@ 
  * @return array|null
  */
 function public_trouver_premiere_boucle($texte, $id_parent, $descr) {
-	$premiere_boucle = null;
-	$current_pos = 0;
-	while (($pos_boucle = strpos($texte, BALISE_BOUCLE, $current_pos)) !== false) {
-		$current_pos = $pos_boucle + 1;
-		$pos_parent = strpos($texte,'(', $pos_boucle);
-		if ($pos_parent === false
-		  or !$id_boucle = trim(substr($texte,$pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)))
-			or !(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 (!$id_boucle) {
-				$id_boucle = substr($texte,$pos_boucle + strlen(BALISE_BOUCLE), 15);
-			}
-			$result->id_boucle = $id_boucle;
-			$err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
-			erreur_squelette($err_b, $result);
-
-			continue;
-		}
-		else {
-			$boucle = [
-				'id_boucle' => $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,
-			];
-
-			// trouver sa position de depart reelle : au <B_ ou au <BB_
-			$precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
-			$pos_precond = strpos($texte, $precond_boucle);
-			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);
-			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 (is_null($premiere_boucle) or $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) {
-				$premiere_boucle = $boucle;
-			}
-		}
-	}
-
-	return $premiere_boucle;
+    $premiere_boucle = null;
+    $current_pos = 0;
+    while (($pos_boucle = strpos($texte, BALISE_BOUCLE, $current_pos)) !== false) {
+        $current_pos = $pos_boucle + 1;
+        $pos_parent = strpos($texte,'(', $pos_boucle);
+        if ($pos_parent === false
+          or !$id_boucle = trim(substr($texte,$pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)))
+            or !(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 (!$id_boucle) {
+                $id_boucle = substr($texte,$pos_boucle + strlen(BALISE_BOUCLE), 15);
+            }
+            $result->id_boucle = $id_boucle;
+            $err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
+            erreur_squelette($err_b, $result);
+
+            continue;
+        }
+        else {
+            $boucle = [
+                'id_boucle' => $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,
+            ];
+
+            // trouver sa position de depart reelle : au <B_ ou au <BB_
+            $precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
+            $pos_precond = strpos($texte, $precond_boucle);
+            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);
+            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 (is_null($premiere_boucle) or $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) {
+                $premiere_boucle = $boucle;
+            }
+        }
+    }
+
+    return $premiere_boucle;
 }
 
 
 function public_phraser_html_dist($texte, $id_parent, &$boucles, $descr, $ligne = 1) {
 
-	$all_res = array();
-
-	while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr)) {
-		$err_b = ''; // indiquera s'il y a eu une erreur
-		$result = new Boucle;
-		$result->id_parent = $id_parent;
-		$result->descr = $descr;
-
-		$pos_boucle = $boucle['pos_boucle'];
-		$id_boucle = $boucle['id_boucle'];
-		$pos_parent = $boucle['pos_parent'];
-
-		$ligne_preaff = $ligne_avant = $ligne_milieu = $ligne + public_compte_ligne($texte, 0, $pos_parent);
-		$pos_debut_boucle = $pos_boucle;
-		$milieu = substr($texte, $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_boucle - $pos_avant);
-			$ligne_avant = $ligne +  public_compte_ligne($texte,0, $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 +  public_compte_ligne($texte,0, $pos_preaff);
-		}
-
-		$debut = substr($texte, 0, $boucle['debut_boucle']);
-
-		$result->id_boucle = $id_boucle;
-
-		if (!preg_match(SPEC_BOUCLE, $milieu, $match)) {
-			$err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
-			erreur_squelette($err_b, $result);
-
-			$ligne += public_compte_ligne($texte, 0, $pos_boucle + 1);
-			$texte = substr($texte, $pos_boucle + 1);
-			continue;
-		}
-
-		$result->type_requete = $match[0];
-		$milieu = substr($milieu, strlen($match[0]));
-		$pos_boucle = $pos_parent + strlen($match[0]); // 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
-		phraser_args($milieu, "/>", "", $all_res, $result);
-
-		// 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_fin_criteres = strpos($milieu, $result->apres);
-		$pos_boucle += $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment
-		$result->criteres = substr($milieu, 0, $pos_fin_criteres);
-		$milieu = $result->apres;
-		$result->apres = "";
-
-		//
-		// Recuperer la fin :
-		//
-		if ($milieu[0] === '/') {
-			// boucle autofermante : pas de partie conditionnelle apres
-			$suite = substr($milieu, 2);
-			$pos_boucle += 2;
-			$milieu = '';
-		} else {
-			$milieu = substr($milieu, 1);
-			$pos_boucle += 1;
-
-			$fin_boucle = BALISE_FIN_BOUCLE . $id_boucle . ">";
-			$pos_fin = strpos($milieu, $fin_boucle);
-			if ($pos_fin === false) {
-				$err_b = array(
-					'zbug_erreur_boucle_fermant',
-					array('id' => $id_boucle)
-				);
-				erreur_squelette($err_b, $result);
-			}
-
-			$pos_boucle += $pos_fin + strlen($fin_boucle);
-			$suite = substr($milieu, $pos_fin + strlen($fin_boucle));
-			$milieu = substr($milieu, 0, $pos_fin);
-		}
-
-		$result->milieu = $milieu;
-		$ligne_suite = $ligne_apres = $ligne + public_compte_ligne($texte, 0, $pos_boucle);
-
-		//
-		// 1. Recuperer la partie conditionnelle apres
-		//
-		$apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . ">";
-		$pos_apres = strpos($suite, $apres_boucle);
-		if ($pos_apres !== false) {
-			$result->apres = substr($suite, 0, $pos_apres);
-			$pos_apres += strlen($apres_boucle);
-			$suite = substr($suite, $pos_apres);
-			$ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_apres);
-			$pos_boucle += $pos_apres ;
-		}
-
-
-		//
-		// 2. Recuperer la partie alternative
-		//
-		$ligne_altern = $ligne_suite;
-		$altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . ">";
-		$pos_altern = strpos($suite, $altern_boucle);
-		if ($pos_altern !== false) {
-			$result->altern = substr($suite, 0, $pos_altern);
-			$pos_altern += strlen($altern_boucle);
-			$suite = substr($suite, $pos_altern);
-			$ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_altern);
-			$pos_boucle += $pos_altern;
-		}
-
-		//
-		// 3. Recuperer la partie footer non alternative
-		//
-		$ligne_postaff = $ligne_suite;
-		$postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . ">";
-		$pos_postaff = strpos($suite, $postaff_boucle);
-		if ($pos_postaff !== false) {
-			$result->postaff = substr($suite, 0, $pos_postaff);
-			$pos_postaff += strlen($postaff_boucle);
-			$suite = substr($suite, $pos_postaff);
-			$ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_postaff);
-			$pos_boucle += $pos_postaff ;
-		}
-
-		$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($milieu, $id_boucle, $boucles, $descr, $ligne_milieu);
-		// 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);
-		$result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant);
-		$result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres);
-		$result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern);
-		$result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff);
-
-		// 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])) {
-			$err_b_d = array(
-				'zbug_erreur_boucle_double',
-				array('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;
-		}
-		$all_res = phraser_champs_etendus($debut, $ligne, $all_res);
-		$all_res[] = &$boucles[$id_boucle];
-
-		$ligne = $ligne_suite;
-		$texte = $suite;
-	}
-
-	return phraser_champs_etendus($texte, $ligne, $all_res);
+    $all_res = array();
+
+    while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr)) {
+        $err_b = ''; // indiquera s'il y a eu une erreur
+        $result = new Boucle;
+        $result->id_parent = $id_parent;
+        $result->descr = $descr;
+
+        $pos_boucle = $boucle['pos_boucle'];
+        $id_boucle = $boucle['id_boucle'];
+        $pos_parent = $boucle['pos_parent'];
+
+        $ligne_preaff = $ligne_avant = $ligne_milieu = $ligne + public_compte_ligne($texte, 0, $pos_parent);
+        $pos_debut_boucle = $pos_boucle;
+        $milieu = substr($texte, $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_boucle - $pos_avant);
+            $ligne_avant = $ligne +  public_compte_ligne($texte,0, $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 +  public_compte_ligne($texte,0, $pos_preaff);
+        }
+
+        $debut = substr($texte, 0, $boucle['debut_boucle']);
+
+        $result->id_boucle = $id_boucle;
+
+        if (!preg_match(SPEC_BOUCLE, $milieu, $match)) {
+            $err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
+            erreur_squelette($err_b, $result);
+
+            $ligne += public_compte_ligne($texte, 0, $pos_boucle + 1);
+            $texte = substr($texte, $pos_boucle + 1);
+            continue;
+        }
+
+        $result->type_requete = $match[0];
+        $milieu = substr($milieu, strlen($match[0]));
+        $pos_boucle = $pos_parent + strlen($match[0]); // 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
+        phraser_args($milieu, "/>", "", $all_res, $result);
+
+        // 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_fin_criteres = strpos($milieu, $result->apres);
+        $pos_boucle += $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment
+        $result->criteres = substr($milieu, 0, $pos_fin_criteres);
+        $milieu = $result->apres;
+        $result->apres = "";
+
+        //
+        // Recuperer la fin :
+        //
+        if ($milieu[0] === '/') {
+            // boucle autofermante : pas de partie conditionnelle apres
+            $suite = substr($milieu, 2);
+            $pos_boucle += 2;
+            $milieu = '';
+        } else {
+            $milieu = substr($milieu, 1);
+            $pos_boucle += 1;
+
+            $fin_boucle = BALISE_FIN_BOUCLE . $id_boucle . ">";
+            $pos_fin = strpos($milieu, $fin_boucle);
+            if ($pos_fin === false) {
+                $err_b = array(
+                    'zbug_erreur_boucle_fermant',
+                    array('id' => $id_boucle)
+                );
+                erreur_squelette($err_b, $result);
+            }
+
+            $pos_boucle += $pos_fin + strlen($fin_boucle);
+            $suite = substr($milieu, $pos_fin + strlen($fin_boucle));
+            $milieu = substr($milieu, 0, $pos_fin);
+        }
+
+        $result->milieu = $milieu;
+        $ligne_suite = $ligne_apres = $ligne + public_compte_ligne($texte, 0, $pos_boucle);
+
+        //
+        // 1. Recuperer la partie conditionnelle apres
+        //
+        $apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . ">";
+        $pos_apres = strpos($suite, $apres_boucle);
+        if ($pos_apres !== false) {
+            $result->apres = substr($suite, 0, $pos_apres);
+            $pos_apres += strlen($apres_boucle);
+            $suite = substr($suite, $pos_apres);
+            $ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_apres);
+            $pos_boucle += $pos_apres ;
+        }
+
+
+        //
+        // 2. Recuperer la partie alternative
+        //
+        $ligne_altern = $ligne_suite;
+        $altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . ">";
+        $pos_altern = strpos($suite, $altern_boucle);
+        if ($pos_altern !== false) {
+            $result->altern = substr($suite, 0, $pos_altern);
+            $pos_altern += strlen($altern_boucle);
+            $suite = substr($suite, $pos_altern);
+            $ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_altern);
+            $pos_boucle += $pos_altern;
+        }
+
+        //
+        // 3. Recuperer la partie footer non alternative
+        //
+        $ligne_postaff = $ligne_suite;
+        $postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . ">";
+        $pos_postaff = strpos($suite, $postaff_boucle);
+        if ($pos_postaff !== false) {
+            $result->postaff = substr($suite, 0, $pos_postaff);
+            $pos_postaff += strlen($postaff_boucle);
+            $suite = substr($suite, $pos_postaff);
+            $ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_postaff);
+            $pos_boucle += $pos_postaff ;
+        }
+
+        $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($milieu, $id_boucle, $boucles, $descr, $ligne_milieu);
+        // 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);
+        $result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant);
+        $result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres);
+        $result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern);
+        $result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff);
+
+        // 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])) {
+            $err_b_d = array(
+                'zbug_erreur_boucle_double',
+                array('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;
+        }
+        $all_res = phraser_champs_etendus($debut, $ligne, $all_res);
+        $all_res[] = &$boucles[$id_boucle];
+
+        $ligne = $ligne_suite;
+        $texte = $suite;
+    }
+
+    return phraser_champs_etendus($texte, $ligne, $all_res);
 }

Spacing +25 added lines, -25 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) {
@@ -215,7 +215,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]));
@@ -361,7 +361,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);
 
@@ -446,7 +446,7 @@ 
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
 	$res = array();
 	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);
@@ -614,7 +614,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;
 						}
@@ -692,7 +692,7 @@ 
 
 					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
 						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
-					} elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+					} 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))) {
@@ -702,8 +702,8 @@ 
 							(($m[2] == 'lang_select') ? $m[2] : $m[7]),
 							$m[6], $m[5]);
 						$crit->exclus = $m[1];
-					} elseif (preg_match("/^([!]?)\s*(" .
-						CHAMP_SQL_PLUS_FONC .
+					} elseif (preg_match("/^([!]?)\s*(".
+						CHAMP_SQL_PLUS_FONC.
 						")\s*(\??)(.*)$/is", $param, $m)) {
 						// contient aussi les comparaisons implicites !
 						// Comme ci-dessus: 
@@ -802,9 +802,9 @@ 
 	$current_pos = 0;
 	while (($pos_boucle = strpos($texte, BALISE_BOUCLE, $current_pos)) !== false) {
 		$current_pos = $pos_boucle + 1;
-		$pos_parent = strpos($texte,'(', $pos_boucle);
+		$pos_parent = strpos($texte, '(', $pos_boucle);
 		if ($pos_parent === false
-		  or !$id_boucle = trim(substr($texte,$pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)))
+		  or !$id_boucle = trim(substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)))
 			or !(is_numeric($id_boucle) or strpos($id_boucle, '_') === 0)) {
 
 			$result = new Boucle;
@@ -813,7 +813,7 @@ 
 
 			// un id_boucle pour l'affichage de l'erreur
 			if (!$id_boucle) {
-				$id_boucle = substr($texte,$pos_boucle + strlen(BALISE_BOUCLE), 15);
+				$id_boucle = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
 			}
 			$result->id_boucle = $id_boucle;
 			$err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
@@ -834,7 +834,7 @@ 
 			];
 
 			// trouver sa position de depart reelle : au <B_ ou au <BB_
-			$precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
+			$precond_boucle = BALISE_PRECOND_BOUCLE.$id_boucle.'>';
 			$pos_precond = strpos($texte, $precond_boucle);
 			if ($pos_precond !== false and $pos_precond < $boucle['debut_boucle']) {
 				$boucle['debut_boucle'] = $pos_precond;
@@ -842,7 +842,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);
 			if ($pos_preaff !== false and $pos_preaff < $boucle['debut_boucle']) {
 				$boucle['debut_boucle'] = $pos_preaff;
@@ -885,7 +885,7 @@ 
 
 			$pos_avant = $boucle['pos_precond_inside'];
 			$result->avant = substr($texte, $pos_avant, $pos_boucle - $pos_avant);
-			$ligne_avant = $ligne +  public_compte_ligne($texte,0, $pos_avant);
+			$ligne_avant = $ligne + public_compte_ligne($texte, 0, $pos_avant);
 		}
 
 		// Regarder si on a une partie inconditionnelle avant <BB_xxx>
@@ -895,7 +895,7 @@ 
 
 			$pos_preaff = $boucle['pos_preaff_inside'];
 			$result->preaff = substr($texte, $pos_preaff, $end_preaff - $pos_preaff);
-			$ligne_preaff = $ligne +  public_compte_ligne($texte,0, $pos_preaff);
+			$ligne_preaff = $ligne + public_compte_ligne($texte, 0, $pos_preaff);
 		}
 
 		$debut = substr($texte, 0, $boucle['debut_boucle']);
@@ -953,7 +953,7 @@ 
 			$milieu = substr($milieu, 1);
 			$pos_boucle += 1;
 
-			$fin_boucle = BALISE_FIN_BOUCLE . $id_boucle . ">";
+			$fin_boucle = BALISE_FIN_BOUCLE.$id_boucle.">";
 			$pos_fin = strpos($milieu, $fin_boucle);
 			if ($pos_fin === false) {
 				$err_b = array(
@@ -974,14 +974,14 @@ 
 		//
 		// 1. Recuperer la partie conditionnelle apres
 		//
-		$apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . ">";
+		$apres_boucle = BALISE_POSTCOND_BOUCLE.$id_boucle.">";
 		$pos_apres = strpos($suite, $apres_boucle);
 		if ($pos_apres !== false) {
 			$result->apres = substr($suite, 0, $pos_apres);
 			$pos_apres += strlen($apres_boucle);
 			$suite = substr($suite, $pos_apres);
 			$ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_apres);
-			$pos_boucle += $pos_apres ;
+			$pos_boucle += $pos_apres;
 		}
 
 
@@ -989,7 +989,7 @@ 
 		// 2. Recuperer la partie alternative
 		//
 		$ligne_altern = $ligne_suite;
-		$altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . ">";
+		$altern_boucle = BALISE_ALT_BOUCLE.$id_boucle.">";
 		$pos_altern = strpos($suite, $altern_boucle);
 		if ($pos_altern !== false) {
 			$result->altern = substr($suite, 0, $pos_altern);
@@ -1003,14 +1003,14 @@ 
 		// 3. Recuperer la partie footer non alternative
 		//
 		$ligne_postaff = $ligne_suite;
-		$postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . ">";
+		$postaff_boucle = BALISE_POSTAFF_BOUCLE.$id_boucle.">";
 		$pos_postaff = strpos($suite, $postaff_boucle);
 		if ($pos_postaff !== false) {
 			$result->postaff = substr($suite, 0, $pos_postaff);
 			$pos_postaff += strlen($postaff_boucle);
 			$suite = substr($suite, $pos_postaff);
 			$ligne_suite += public_compte_ligne($texte, $pos_boucle, $pos_postaff);
-			$pos_boucle += $pos_postaff ;
+			$pos_boucle += $pos_postaff;
 		}
 
 		$result->ligne = $ligne_preaff;
@@ -1045,7 +1045,7 @@ 
 		// 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])){
+		if (empty($boucles[$id_boucle])) {
 			$boucles[$id_boucle] = null;
 		}
 		$result->preaff = public_phraser_html_dist($result->preaff, $id_parent, $boucles, $descr, $ligne_preaff);