spip / SPIP

ecrire/public/compiler.php

Indentation +1208 added lines, -1208 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** Repérer un code ne calculant rien, meme avec commentaire */
@@ -58,92 +58,92 @@ 
 
 
 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;
 }
 
 /**
@@ -167,84 +167,84 @@ 
  **/
 function calculer_inclure($p, &$boucles, $id_boucle) {
 
-	$_options = [];
-	$_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?'." . "'>'";
+    $_options = [];
+    $_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,174 +478,174 @@ 
  **/
 function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 
-	$code_sep = null;
-	$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 (is_countable($boucle->separateur) ? count($boucle->separateur) : 0) {
-		$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'])
-	);
+    $code_sep = null;
+    $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 (is_countable($boucle->separateur) ? count($boucle->separateur) : 0) {
+        $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;
 }
 
 
@@ -661,48 +661,48 @@ 
  *     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;
 }
 
 /**
@@ -720,13 +720,13 @@ 
  *     qui peut être utilisé pour la production d'un tableau array()
  **/
 function memoriser_contexte_compil($p) {
-	return join(',', [
-		_q($p->descr['sourcefile'] ?? ''),
-		_q($p->descr['nom'] ?? ''),
-		_q($p->id_boucle ?? ''),
-		intval($p->ligne),
-		'$GLOBALS[\'spip_lang\']'
-	]);
+    return join(',', [
+        _q($p->descr['sourcefile'] ?? ''),
+        _q($p->descr['nom'] ?? ''),
+        _q($p->id_boucle ?? ''),
+        intval($p->ligne),
+        '$GLOBALS[\'spip_lang\']'
+    ]);
 }
 
 /**
@@ -744,19 +744,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;
 }
 
 /**
@@ -782,12 +782,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
@@ -795,11 +795,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 . ';'];
 }
 
 /**
@@ -819,32 +819,32 @@ 
  *     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) . ')';
+    }
 }
 
 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) . ')';
 }
 
 /**
@@ -856,12 +856,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) . ')';
 }
 
 /**
@@ -874,30 +874,30 @@ 
  *     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) . ')';
 }
 
 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
@@ -906,62 +906,62 @@ 
 // (qui sera argument d'un Return ou la partie droite d'une affectation).
 
 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 = is_countable($codes) ? count($codes) : 0;
-	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'] ?: '');
-
-		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 = is_countable($codes) ? count($codes) : 0;
+    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'] ?: '');
+
+        return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" . join(
+            " ,\n$tab",
+            $codes
+        ) . ')))';
+    }
 }
 
 
@@ -971,213 +971,213 @@ 
 
 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;
 }
 
 /**
@@ -1187,13 +1187,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";
 }
 
 
@@ -1217,56 +1217,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,
@@ -1285,354 +1285,354 @@ 
 // En cas d'erreur, elle retournera un tableau des 2 premiers elements seulement
 
 function public_compiler_dist($squelette, $nom, $gram, $sourcefile, string $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(
-		',\\\\([#[()\]{}<>]),',
-		fn($a) => "$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+)-,",
-				fn($a) => chr($a[1]),
-				$boucle->return
-			);
-			$boucles[$i]->descr['squelette'] = preg_replace_callback(
-				",$inerte-(\d+)-,",
-				fn($a) => '\\\\' . 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(
+        ',\\\\([#[()\]{}<>]),',
+        fn($a) => "$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+)-,",
+                fn($a) => chr($a[1]),
+                $boucle->return
+            );
+            $boucles[$i]->descr['squelette'] = preg_replace_callback(
+                ",$inerte-(\d+)-,",
+                fn($a) => '\\\\' . 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, string $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 = $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 = $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;
 }
 
 
@@ -1649,18 +1649,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);
+    }
 }
 
 
@@ -1678,22 +1678,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);
+    }
 }

ecrire/public/assembler.php

Indentation +635 added lines, -635 removed lines

@@ -20,180 +20,180 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // En cas de modification, il faut aussi actualiser la regexp de nettoyer_uri_var() dans inc/utils.php
 if (!defined('_CONTEXTE_IGNORE_VARIABLES')) {
-	define('_CONTEXTE_IGNORE_VARIABLES', '/(^var_|^PHPSESSID$|^fbclid$|^utm_)/');
+    define('_CONTEXTE_IGNORE_VARIABLES', '/(^var_|^PHPSESSID$|^fbclid$|^utm_)/');
 }
 
 function assembler($fond, string $connect = '') {
 
-	$chemin_cache = null;
-	$lastmodified = null;
-	$res = null;
-	// flag_preserver est modifie ici, et utilise en globale
-	// use_cache sert a informer le bouton d'admin pr savoir s'il met un *
-	// contexte est utilise en globale dans le formulaire d'admin
-
-	$GLOBALS['contexte'] = calculer_contexte();
-	$page = ['contexte_implicite' => calculer_contexte_implicite()];
-	$page['contexte_implicite']['cache'] = $fond . preg_replace(
-		',\.[a-zA-Z0-9]*$,',
-		'',
-		preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI'])
-	);
-	// Cette fonction est utilisee deux fois
-	$cacher = charger_fonction('cacher', 'public', true);
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher) {
-		$res = $cacher($GLOBALS['contexte'], $GLOBALS['use_cache'], $chemin_cache, $page, $lastmodified);
-	} else {
-		$GLOBALS['use_cache'] = -1;
-	}
-	// Si un resultat est retourne, c'est un message d'impossibilite
-	if ($res) {
-		return ['texte' => $res];
-	}
-
-	if (!$chemin_cache || !$lastmodified) {
-		$lastmodified = time();
-	}
-
-	$headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
-	$calculer_page = true;
-
-	// Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
-	// une perennite valide a meme reponse qu'une requete HEAD (par defaut les
-	// pages sont dynamiques)
-	if (
-		isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-		and (!defined('_VAR_MODE') or !_VAR_MODE)
-		and $chemin_cache
-		and isset($page['entetes'])
-		and isset($page['entetes']['Cache-Control'])
-		and strstr($page['entetes']['Cache-Control'], 'max-age=')
-		and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
-	) {
-		$since = preg_replace(
-			'/;.*/',
-			'',
-			$_SERVER['HTTP_IF_MODIFIED_SINCE']
-		);
-		$since = str_replace('GMT', '', $since);
-		if (trim($since) == gmdate('D, d M Y H:i:s', $lastmodified)) {
-			$page['status'] = 304;
-			$headers_only = true;
-			$calculer_page = false;
-		}
-	}
-
-	// Si requete HEAD ou Last-modified compatible, ignorer le texte
-	// et pas de content-type (pour contrer le bouton admin de inc-public)
-	if (!$calculer_page) {
-		$page['texte'] = '';
-	} else {
-		// si la page est prise dans le cache
-		if (!$GLOBALS['use_cache']) {
-			// Informer les boutons d'admin du contexte
-			// (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
-			$GLOBALS['contexte'] = $page['contexte'];
-
-			// vider les globales url propres qui ne doivent plus etre utilisees en cas
-			// d'inversion url => objet
-			// plus necessaire si on utilise bien la fonction urls_decoder_url
-			#unset($_SERVER['REDIRECT_url_propre']);
-			#unset($_ENV['url_propre']);
-		} else {
-			// Compat ascendante :
-			// 1. $contexte est global
-			// (a evacuer car urls_decoder_url gere ce probleme ?)
-			// et calculer la page
-			if (!test_espace_prive()) {
-				include_spip('inc/urls');
-				[$fond, $GLOBALS['contexte'], $url_redirect] = urls_decoder_url(
-					nettoyer_uri(),
-					$fond,
-					$GLOBALS['contexte'],
-					true
-				);
-			}
-			// squelette par defaut
-			if (!strlen($fond ?? '')) {
-				$fond = 'sommaire';
-			}
-
-			// produire la page : peut mettre a jour $lastmodified
-			$produire_page = charger_fonction('produire_page', 'public');
-			$page = $produire_page(
-				$fond,
-				$GLOBALS['contexte'],
-				$GLOBALS['use_cache'],
-				$chemin_cache,
-				null,
-				$page,
-				$lastmodified,
-				$connect
-			);
-			if ($page === '') {
-				$erreur = _T(
-					'info_erreur_squelette2',
-					['fichier' => spip_htmlspecialchars($fond) . '.' . _EXTENSION_SQUELETTES]
-				);
-				erreur_squelette($erreur);
-				// eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
-				$page = ['texte' => '', 'erreur' => $erreur];
-			}
-		}
-
-		if ($page and $chemin_cache) {
-			$page['cache'] = $chemin_cache;
-		}
-
-		auto_content_type($page);
-
-		$GLOBALS['flag_preserver'] |= headers_sent();
-
-		// Definir les entetes si ce n'est fait
-		if (!$GLOBALS['flag_preserver']) {
-			if ($GLOBALS['flag_ob']) {
-				// Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
-				if (
-					trim($page['texte']) === ''
-					and _VAR_MODE != 'debug'
-					and !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
-				) {
-					$GLOBALS['contexte']['fond_erreur'] = $fond;
-					$page = message_page_indisponible($page, $GLOBALS['contexte']);
-				}
-				// pas de cache client en mode 'observation'
-				if (defined('_VAR_MODE') and _VAR_MODE) {
-					$page['entetes']['Cache-Control'] = 'no-cache,must-revalidate';
-					$page['entetes']['Pragma'] = 'no-cache';
-				}
-			}
-		}
-	}
-
-	// Entete Last-Modified:
-	// eviter d'etre incoherent en envoyant un lastmodified identique
-	// a celui qu'on a refuse d'honorer plus haut (cf. #655)
-	if (
-		$lastmodified
-		and !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-		and !isset($page['entetes']['Last-Modified'])
-	) {
-		$page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified) . ' GMT';
-	}
-
-	// fermer la connexion apres les headers si requete HEAD
-	if ($headers_only) {
-		$page['entetes']['Connection'] = 'close';
-	}
-
-	return $page;
+    $chemin_cache = null;
+    $lastmodified = null;
+    $res = null;
+    // flag_preserver est modifie ici, et utilise en globale
+    // use_cache sert a informer le bouton d'admin pr savoir s'il met un *
+    // contexte est utilise en globale dans le formulaire d'admin
+
+    $GLOBALS['contexte'] = calculer_contexte();
+    $page = ['contexte_implicite' => calculer_contexte_implicite()];
+    $page['contexte_implicite']['cache'] = $fond . preg_replace(
+        ',\.[a-zA-Z0-9]*$,',
+        '',
+        preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI'])
+    );
+    // Cette fonction est utilisee deux fois
+    $cacher = charger_fonction('cacher', 'public', true);
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher) {
+        $res = $cacher($GLOBALS['contexte'], $GLOBALS['use_cache'], $chemin_cache, $page, $lastmodified);
+    } else {
+        $GLOBALS['use_cache'] = -1;
+    }
+    // Si un resultat est retourne, c'est un message d'impossibilite
+    if ($res) {
+        return ['texte' => $res];
+    }
+
+    if (!$chemin_cache || !$lastmodified) {
+        $lastmodified = time();
+    }
+
+    $headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
+    $calculer_page = true;
+
+    // Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
+    // une perennite valide a meme reponse qu'une requete HEAD (par defaut les
+    // pages sont dynamiques)
+    if (
+        isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+        and (!defined('_VAR_MODE') or !_VAR_MODE)
+        and $chemin_cache
+        and isset($page['entetes'])
+        and isset($page['entetes']['Cache-Control'])
+        and strstr($page['entetes']['Cache-Control'], 'max-age=')
+        and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
+    ) {
+        $since = preg_replace(
+            '/;.*/',
+            '',
+            $_SERVER['HTTP_IF_MODIFIED_SINCE']
+        );
+        $since = str_replace('GMT', '', $since);
+        if (trim($since) == gmdate('D, d M Y H:i:s', $lastmodified)) {
+            $page['status'] = 304;
+            $headers_only = true;
+            $calculer_page = false;
+        }
+    }
+
+    // Si requete HEAD ou Last-modified compatible, ignorer le texte
+    // et pas de content-type (pour contrer le bouton admin de inc-public)
+    if (!$calculer_page) {
+        $page['texte'] = '';
+    } else {
+        // si la page est prise dans le cache
+        if (!$GLOBALS['use_cache']) {
+            // Informer les boutons d'admin du contexte
+            // (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
+            $GLOBALS['contexte'] = $page['contexte'];
+
+            // vider les globales url propres qui ne doivent plus etre utilisees en cas
+            // d'inversion url => objet
+            // plus necessaire si on utilise bien la fonction urls_decoder_url
+            #unset($_SERVER['REDIRECT_url_propre']);
+            #unset($_ENV['url_propre']);
+        } else {
+            // Compat ascendante :
+            // 1. $contexte est global
+            // (a evacuer car urls_decoder_url gere ce probleme ?)
+            // et calculer la page
+            if (!test_espace_prive()) {
+                include_spip('inc/urls');
+                [$fond, $GLOBALS['contexte'], $url_redirect] = urls_decoder_url(
+                    nettoyer_uri(),
+                    $fond,
+                    $GLOBALS['contexte'],
+                    true
+                );
+            }
+            // squelette par defaut
+            if (!strlen($fond ?? '')) {
+                $fond = 'sommaire';
+            }
+
+            // produire la page : peut mettre a jour $lastmodified
+            $produire_page = charger_fonction('produire_page', 'public');
+            $page = $produire_page(
+                $fond,
+                $GLOBALS['contexte'],
+                $GLOBALS['use_cache'],
+                $chemin_cache,
+                null,
+                $page,
+                $lastmodified,
+                $connect
+            );
+            if ($page === '') {
+                $erreur = _T(
+                    'info_erreur_squelette2',
+                    ['fichier' => spip_htmlspecialchars($fond) . '.' . _EXTENSION_SQUELETTES]
+                );
+                erreur_squelette($erreur);
+                // eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
+                $page = ['texte' => '', 'erreur' => $erreur];
+            }
+        }
+
+        if ($page and $chemin_cache) {
+            $page['cache'] = $chemin_cache;
+        }
+
+        auto_content_type($page);
+
+        $GLOBALS['flag_preserver'] |= headers_sent();
+
+        // Definir les entetes si ce n'est fait
+        if (!$GLOBALS['flag_preserver']) {
+            if ($GLOBALS['flag_ob']) {
+                // Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
+                if (
+                    trim($page['texte']) === ''
+                    and _VAR_MODE != 'debug'
+                    and !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
+                ) {
+                    $GLOBALS['contexte']['fond_erreur'] = $fond;
+                    $page = message_page_indisponible($page, $GLOBALS['contexte']);
+                }
+                // pas de cache client en mode 'observation'
+                if (defined('_VAR_MODE') and _VAR_MODE) {
+                    $page['entetes']['Cache-Control'] = 'no-cache,must-revalidate';
+                    $page['entetes']['Pragma'] = 'no-cache';
+                }
+            }
+        }
+    }
+
+    // Entete Last-Modified:
+    // eviter d'etre incoherent en envoyant un lastmodified identique
+    // a celui qu'on a refuse d'honorer plus haut (cf. #655)
+    if (
+        $lastmodified
+        and !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+        and !isset($page['entetes']['Last-Modified'])
+    ) {
+        $page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified) . ' GMT';
+    }
+
+    // fermer la connexion apres les headers si requete HEAD
+    if ($headers_only) {
+        $page['entetes']['Connection'] = 'close';
+    }
+
+    return $page;
 }
 
 /**
@@ -210,19 +210,19 @@ 
  */
 function calculer_contexte() {
 
-	$contexte = [];
-	foreach ($_GET as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
-			$contexte[$var] = $val;
-		}
-	}
-	foreach ($_POST as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
-			$contexte[$var] = $val;
-		}
-	}
-
-	return $contexte;
+    $contexte = [];
+    foreach ($_GET as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
+            $contexte[$var] = $val;
+        }
+    }
+    foreach ($_POST as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
+            $contexte[$var] = $val;
+        }
+    }
+
+    return $contexte;
 }
 
 /**
@@ -233,25 +233,25 @@ 
  * @return array
  */
 function calculer_contexte_implicite() {
-	static $notes = null;
-	if (is_null($notes)) {
-		$notes = charger_fonction('notes', 'inc', true);
-	}
-	$contexte_implicite = [
-		'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
-		'host' => ($_SERVER['HTTP_HOST'] ?? null),
-		'https' => ($_SERVER['HTTPS'] ?? ''),
-		'espace' => test_espace_prive(),
-		'marqueur' => ($GLOBALS['marqueur'] ?? ''),
-		'marqueur_skel' => ($GLOBALS['marqueur_skel'] ?? ''),
-		'notes' => $notes ? $notes('', 'contexter_cache') : '',
-		'spip_version_code' => $GLOBALS['spip_version_code'],
-	];
-	if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
-		$contexte_implicite['host'] .= '|' . $_SERVER['HTTP_X_FORWARDED_HOST'];
-	}
-
-	return $contexte_implicite;
+    static $notes = null;
+    if (is_null($notes)) {
+        $notes = charger_fonction('notes', 'inc', true);
+    }
+    $contexte_implicite = [
+        'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
+        'host' => ($_SERVER['HTTP_HOST'] ?? null),
+        'https' => ($_SERVER['HTTPS'] ?? ''),
+        'espace' => test_espace_prive(),
+        'marqueur' => ($GLOBALS['marqueur'] ?? ''),
+        'marqueur_skel' => ($GLOBALS['marqueur_skel'] ?? ''),
+        'notes' => $notes ? $notes('', 'contexter_cache') : '',
+        'spip_version_code' => $GLOBALS['spip_version_code'],
+    ];
+    if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
+        $contexte_implicite['host'] .= '|' . $_SERVER['HTTP_X_FORWARDED_HOST'];
+    }
+
+    return $contexte_implicite;
 }
 
 //
@@ -260,55 +260,55 @@ 
 
 function auto_content_type($page) {
 
-	if (!isset($GLOBALS['flag_preserver'])) {
-		$GLOBALS['flag_preserver'] = ($page && preg_match(
-			'/header\s*\(\s*.content\-type:/isx',
-			$page['texte']
-		) || (isset($page['entetes']['Content-Type'])));
-	}
+    if (!isset($GLOBALS['flag_preserver'])) {
+        $GLOBALS['flag_preserver'] = ($page && preg_match(
+            '/header\s*\(\s*.content\-type:/isx',
+            $page['texte']
+        ) || (isset($page['entetes']['Content-Type'])));
+    }
 }
 
 function inclure_page($fond, $contexte, string $connect = '') {
-	$use_cache = null;
-	$chemin_cache = null;
-	$lastinclude = null;
-	$res = null;
-	static $cacher, $produire_page;
-
-	// enlever le fond de contexte inclus car sinon il prend la main
-	// dans les sous inclusions -> boucle infinie d'inclusion identique
-	// (cette precaution n'est probablement plus utile)
-	unset($contexte['fond']);
-	$page = ['contexte_implicite' => calculer_contexte_implicite()];
-	$page['contexte_implicite']['cache'] = $fond;
-	if (is_null($cacher)) {
-		$cacher = charger_fonction('cacher', 'public', true);
-	}
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher) {
-		$res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
-	} else {
-		$use_cache = -1;
-	}
-	// $res = message d'erreur : on sort de la
-	if ($res) {
-		return ['texte' => $res];
-	}
-
-	// Si use_cache ne vaut pas 0, la page doit etre calculee
-	// produire la page : peut mettre a jour $lastinclude
-	// le contexte_cache envoye a cacher() a ete conserve et est passe a produire
-	if ($use_cache) {
-		if (is_null($produire_page)) {
-			$produire_page = charger_fonction('produire_page', 'public');
-		}
-		$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
-	}
-	// dans tous les cas, mettre a jour $GLOBALS['lastmodified']
-	$GLOBALS['lastmodified'] = max(($GLOBALS['lastmodified'] ?? 0), $lastinclude);
-
-	return $page;
+    $use_cache = null;
+    $chemin_cache = null;
+    $lastinclude = null;
+    $res = null;
+    static $cacher, $produire_page;
+
+    // enlever le fond de contexte inclus car sinon il prend la main
+    // dans les sous inclusions -> boucle infinie d'inclusion identique
+    // (cette precaution n'est probablement plus utile)
+    unset($contexte['fond']);
+    $page = ['contexte_implicite' => calculer_contexte_implicite()];
+    $page['contexte_implicite']['cache'] = $fond;
+    if (is_null($cacher)) {
+        $cacher = charger_fonction('cacher', 'public', true);
+    }
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher) {
+        $res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
+    } else {
+        $use_cache = -1;
+    }
+    // $res = message d'erreur : on sort de la
+    if ($res) {
+        return ['texte' => $res];
+    }
+
+    // Si use_cache ne vaut pas 0, la page doit etre calculee
+    // produire la page : peut mettre a jour $lastinclude
+    // le contexte_cache envoye a cacher() a ete conserve et est passe a produire
+    if ($use_cache) {
+        if (is_null($produire_page)) {
+            $produire_page = charger_fonction('produire_page', 'public');
+        }
+        $page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
+    }
+    // dans tous les cas, mettre a jour $GLOBALS['lastmodified']
+    $GLOBALS['lastmodified'] = max(($GLOBALS['lastmodified'] ?? 0), $lastinclude);
+
+    return $page;
 }
 
 /**
@@ -326,41 +326,41 @@ 
  * @return array
  */
 function public_produire_page_dist(
-	$fond,
-	$contexte,
-	$use_cache,
-	$chemin_cache,
-	$contexte_cache,
-	&$page,
-	&$lastinclude,
-	$connect = ''
+    $fond,
+    $contexte,
+    $use_cache,
+    $chemin_cache,
+    $contexte_cache,
+    &$page,
+    &$lastinclude,
+    $connect = ''
 ) {
-	static $parametrer, $cacher;
-	if (!$parametrer) {
-		$parametrer = charger_fonction('parametrer', 'public');
-	}
-	$page = $parametrer($fond, $contexte, $chemin_cache, $connect);
-	// et on l'enregistre sur le disque
-	if (
-		$chemin_cache
-		and $use_cache > -1
-		and is_array($page)
-		and count($page)
-		and isset($page['entetes']['X-Spip-Cache'])
-		and $page['entetes']['X-Spip-Cache'] > 0
-	) {
-		if (is_null($cacher)) {
-			$cacher = charger_fonction('cacher', 'public', true);
-		}
-		$lastinclude = time();
-		if ($cacher) {
-			$cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
-		} else {
-			$use_cache = -1;
-		}
-	}
-
-	return $page;
+    static $parametrer, $cacher;
+    if (!$parametrer) {
+        $parametrer = charger_fonction('parametrer', 'public');
+    }
+    $page = $parametrer($fond, $contexte, $chemin_cache, $connect);
+    // et on l'enregistre sur le disque
+    if (
+        $chemin_cache
+        and $use_cache > -1
+        and is_array($page)
+        and count($page)
+        and isset($page['entetes']['X-Spip-Cache'])
+        and $page['entetes']['X-Spip-Cache'] > 0
+    ) {
+        if (is_null($cacher)) {
+            $cacher = charger_fonction('cacher', 'public', true);
+        }
+        $lastinclude = time();
+        if ($cacher) {
+            $cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
+        } else {
+            $use_cache = -1;
+        }
+    }
+
+    return $page;
 }
 
 // Fonction inseree par le compilateur dans le code compile.
@@ -374,14 +374,14 @@ 
 // 4: langue
 
 function inserer_balise_dynamique($contexte_exec, $contexte_compil) {
-	arguments_balise_dyn_depuis_modele(null, 'reset');
-
-	if (!is_array($contexte_exec)) {
-		echo $contexte_exec;
-	} // message d'erreur etc
-	else {
-		inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
-	}
+    arguments_balise_dyn_depuis_modele(null, 'reset');
+
+    if (!is_array($contexte_exec)) {
+        echo $contexte_exec;
+    } // message d'erreur etc
+    else {
+        inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
+    }
 }
 
 /**
@@ -394,101 +394,101 @@ 
  * @return string
  */
 function inclure_balise_dynamique($texte, $echo = true, $contexte_compil = []) {
-	if (is_array($texte)) {
-		[$fond, $delainc, $contexte_inclus] = $texte;
-
-		// delais a l'ancienne, c'est pratiquement mort
-		$d = $GLOBALS['delais'] ?? null;
-		$GLOBALS['delais'] = $delainc;
-
-		$page = recuperer_fond(
-			$fond,
-			$contexte_inclus,
-			['trim' => false, 'raw' => true, 'compil' => $contexte_compil]
-		);
-
-		$texte = $page['texte'];
-
-		$GLOBALS['delais'] = $d;
-		// Faire remonter les entetes
-		if (
-			isset($page['entetes'])
-			and is_array($page['entetes'])
-		) {
-			// mais pas toutes
-			unset($page['entetes']['X-Spip-Cache']);
-			unset($page['entetes']['Content-Type']);
-			if (isset($GLOBALS['page']) and is_array($GLOBALS['page'])) {
-				if (!is_array($GLOBALS['page']['entetes'])) {
-					$GLOBALS['page']['entetes'] = [];
-				}
-				$GLOBALS['page']['entetes'] =
-					array_merge($GLOBALS['page']['entetes'], $page['entetes']);
-			}
-		}
-		// _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
-		if (
-			isset($page['contexte']['_pipelines'])
-			and is_array($page['contexte']['_pipelines'])
-			and count($page['contexte']['_pipelines'])
-		) {
-			foreach ($page['contexte']['_pipelines'] as $pipe => $args) {
-				$args['contexte'] = $page['contexte'];
-				unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
-				$texte = pipeline(
-					$pipe,
-					[
-						'data' => $texte,
-						'args' => $args
-					]
-				);
-			}
-		}
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		// compatibilite : avant on donnait le numero de ligne ou rien.
-		$ligne = intval($contexte_compil[3] ?? $contexte_compil);
-		$GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
-	}
-	if ($echo) {
-		echo $texte;
-	} else {
-		return $texte;
-	}
+    if (is_array($texte)) {
+        [$fond, $delainc, $contexte_inclus] = $texte;
+
+        // delais a l'ancienne, c'est pratiquement mort
+        $d = $GLOBALS['delais'] ?? null;
+        $GLOBALS['delais'] = $delainc;
+
+        $page = recuperer_fond(
+            $fond,
+            $contexte_inclus,
+            ['trim' => false, 'raw' => true, 'compil' => $contexte_compil]
+        );
+
+        $texte = $page['texte'];
+
+        $GLOBALS['delais'] = $d;
+        // Faire remonter les entetes
+        if (
+            isset($page['entetes'])
+            and is_array($page['entetes'])
+        ) {
+            // mais pas toutes
+            unset($page['entetes']['X-Spip-Cache']);
+            unset($page['entetes']['Content-Type']);
+            if (isset($GLOBALS['page']) and is_array($GLOBALS['page'])) {
+                if (!is_array($GLOBALS['page']['entetes'])) {
+                    $GLOBALS['page']['entetes'] = [];
+                }
+                $GLOBALS['page']['entetes'] =
+                    array_merge($GLOBALS['page']['entetes'], $page['entetes']);
+            }
+        }
+        // _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
+        if (
+            isset($page['contexte']['_pipelines'])
+            and is_array($page['contexte']['_pipelines'])
+            and count($page['contexte']['_pipelines'])
+        ) {
+            foreach ($page['contexte']['_pipelines'] as $pipe => $args) {
+                $args['contexte'] = $page['contexte'];
+                unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
+                $texte = pipeline(
+                    $pipe,
+                    [
+                        'data' => $texte,
+                        'args' => $args
+                    ]
+                );
+            }
+        }
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        // compatibilite : avant on donnait le numero de ligne ou rien.
+        $ligne = intval($contexte_compil[3] ?? $contexte_compil);
+        $GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
+    }
+    if ($echo) {
+        echo $texte;
+    } else {
+        return $texte;
+    }
 }
 
 function message_page_indisponible($page, $contexte) {
-	static $deja = false;
-	if ($deja) {
-		return 'erreur';
-	}
-	$codes = [
-		'404' => '404 Not Found',
-		'503' => '503 Service Unavailable',
-	];
-
-	$contexte['status'] = ($page !== false) ? '404' : '503';
-	$contexte['code'] = $codes[$contexte['status']];
-	$contexte['fond'] = '404'; // gere les 2 erreurs
-	if (!isset($contexte['lang'])) {
-		include_spip('inc/lang');
-		$contexte['lang'] = $GLOBALS['spip_lang'];
-	}
-
-	$deja = true;
-	// passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
-	// ex restriction d'acces => 401
-	$contexte = pipeline('page_indisponible', $contexte);
-
-	// produire la page d'erreur
-	$page = inclure_page($contexte['fond'], $contexte);
-	if (!$page) {
-		$page = inclure_page('404', $contexte);
-	}
-	$page['status'] = $contexte['status'];
-
-	return $page;
+    static $deja = false;
+    if ($deja) {
+        return 'erreur';
+    }
+    $codes = [
+        '404' => '404 Not Found',
+        '503' => '503 Service Unavailable',
+    ];
+
+    $contexte['status'] = ($page !== false) ? '404' : '503';
+    $contexte['code'] = $codes[$contexte['status']];
+    $contexte['fond'] = '404'; // gere les 2 erreurs
+    if (!isset($contexte['lang'])) {
+        include_spip('inc/lang');
+        $contexte['lang'] = $GLOBALS['spip_lang'];
+    }
+
+    $deja = true;
+    // passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
+    // ex restriction d'acces => 401
+    $contexte = pipeline('page_indisponible', $contexte);
+
+    // produire la page d'erreur
+    $page = inclure_page($contexte['fond'], $contexte);
+    if (!$page) {
+        $page = inclure_page('404', $contexte);
+    }
+    $page['status'] = $contexte['status'];
+
+    return $page;
 }
 
 /**
@@ -500,44 +500,44 @@ 
  * @return mixed
  */
 function arguments_balise_dyn_depuis_modele($arg, $operation = 'set') {
-	static $balise_dyn_appellee_par_modele = null;
-	switch ($operation) {
-		case 'read':
-			return $balise_dyn_appellee_par_modele;
-		case 'reset':
-			$balise_dyn_appellee_par_modele = null;
-			return null;
-		case 'set':
-		default:
-			$balise_dyn_appellee_par_modele = $arg;
-			return $arg;
-	}
+    static $balise_dyn_appellee_par_modele = null;
+    switch ($operation) {
+        case 'read':
+            return $balise_dyn_appellee_par_modele;
+        case 'reset':
+            $balise_dyn_appellee_par_modele = null;
+            return null;
+        case 'set':
+        default:
+            $balise_dyn_appellee_par_modele = $arg;
+            return $arg;
+    }
 }
 
 // temporairement ici : a mettre dans le futur inc/modeles
 // creer_contexte_de_modele('left', 'autostart=true', ...) renvoie un array()
 function creer_contexte_de_modele($args) {
-	$contexte = [];
-	foreach ($args as $var => $val) {
-		if (is_int($var)) { // argument pas formate
-			if (in_array($val, ['left', 'right', 'center'])) {
-				$var = 'align';
-				$contexte[$var] = $val;
-			} else {
-				$args = explode('=', $val);
-				if (count($args) >= 2) { // Flashvars=arg1=machin&arg2=truc genere plus de deux args
-				$contexte[trim($args[0])] = substr($val, strlen($args[0]) + 1);
-				} else // notation abregee
-				{
-					$contexte[trim($val)] = trim($val);
-				}
-			}
-		} else {
-			$contexte[$var] = $val;
-		}
-	}
-
-	return $contexte;
+    $contexte = [];
+    foreach ($args as $var => $val) {
+        if (is_int($var)) { // argument pas formate
+            if (in_array($val, ['left', 'right', 'center'])) {
+                $var = 'align';
+                $contexte[$var] = $val;
+            } else {
+                $args = explode('=', $val);
+                if (count($args) >= 2) { // Flashvars=arg1=machin&arg2=truc genere plus de deux args
+                $contexte[trim($args[0])] = substr($val, strlen($args[0]) + 1);
+                } else // notation abregee
+                {
+                    $contexte[trim($val)] = trim($val);
+                }
+            }
+        } else {
+            $contexte[$var] = $val;
+        }
+    }
+
+    return $contexte;
 }
 
 /**
@@ -552,43 +552,43 @@ 
  * @return string
  */
 function styliser_modele($modele, $id, $contexte = null) {
-	static $styliseurs = null;
-	if (is_null($styliseurs)) {
-		$tables_objet = lister_tables_objets_sql();
-		foreach ($tables_objet as $table => $desc) {
-			if (
-				isset($desc['modeles']) and $desc['modeles']
-				and isset($desc['modeles_styliser']) and $desc['modeles_styliser']
-				and function_exists($desc['modeles_styliser'])
-			) {
-				$primary = id_table_objet($table);
-				foreach ($desc['modeles'] as $m) {
-					$styliseurs[$m] = ['primary' => $primary, 'callback' => $desc['modeles_styliser']];
-				}
-			}
-		}
-	}
-
-	if (isset($styliseurs[$modele])) {
-		$styliseur = $styliseurs[$modele]['callback'];
-		$primary = $styliseurs[$modele]['primary'];
-		if (is_null($id) and $contexte) {
-			if (isset($contexte['id'])) {
-				$id = $contexte['id'];
-			} elseif (isset($contexte[$primary])) {
-				$id = $contexte[$primary];
-			}
-		}
-		if (is_null($id)) {
-			$msg = "modeles/$modele : " . _T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
-			erreur_squelette($msg);
-			// on passe id=0 au routeur pour tomber sur le modele par defaut et eviter une seconde erreur sur un modele inexistant
-			$id = 0;
-		}
-		$modele = $styliseur($modele, $id);
-	}
-
-	return $modele;
+    static $styliseurs = null;
+    if (is_null($styliseurs)) {
+        $tables_objet = lister_tables_objets_sql();
+        foreach ($tables_objet as $table => $desc) {
+            if (
+                isset($desc['modeles']) and $desc['modeles']
+                and isset($desc['modeles_styliser']) and $desc['modeles_styliser']
+                and function_exists($desc['modeles_styliser'])
+            ) {
+                $primary = id_table_objet($table);
+                foreach ($desc['modeles'] as $m) {
+                    $styliseurs[$m] = ['primary' => $primary, 'callback' => $desc['modeles_styliser']];
+                }
+            }
+        }
+    }
+
+    if (isset($styliseurs[$modele])) {
+        $styliseur = $styliseurs[$modele]['callback'];
+        $primary = $styliseurs[$modele]['primary'];
+        if (is_null($id) and $contexte) {
+            if (isset($contexte['id'])) {
+                $id = $contexte['id'];
+            } elseif (isset($contexte[$primary])) {
+                $id = $contexte[$primary];
+            }
+        }
+        if (is_null($id)) {
+            $msg = "modeles/$modele : " . _T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
+            erreur_squelette($msg);
+            // on passe id=0 au routeur pour tomber sur le modele par defaut et eviter une seconde erreur sur un modele inexistant
+            $id = 0;
+        }
+        $modele = $styliseur($modele, $id);
+    }
+
+    return $modele;
 }
 
 /**
@@ -605,102 +605,102 @@ 
  */
 function inclure_modele($type, $id, $params, $lien, string $connect = '', $env = []) {
 
-	static $compteur;
-	if (++$compteur > 10) {
-		return '';
-	} # ne pas boucler indefiniment
-
-	$type = strtolower($type);
-	$type = styliser_modele($type, $id);
-
-	$fond = $class = '';
-
-	$params = array_filter(explode('|', $params));
-	if ($params) {
-		$soustype = current($params);
-		$soustype = strtolower(trim($soustype));
-		if (in_array($soustype, ['left', 'right', 'center', 'ajax'])) {
-			$soustype = next($params);
-			$soustype = strtolower($soustype);
-		}
-
-		if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
-			if (!trouve_modele($fond = ($type . '_' . $soustype))) {
-				$fond = '';
-				$class = $soustype;
-			}
-			// enlever le sous type des params
-			$params = array_diff($params, [$soustype]);
-		}
-	}
-
-	// Si ca marche pas en precisant le sous-type, prendre le type
-	if (!$fond and !trouve_modele($fond = $type)) {
-		spip_log("Modele $type introuvable", _LOG_INFO_IMPORTANTE);
-
-		return false;
-	}
-	$fond = 'modeles/' . $fond;
-	// Creer le contexte
-	$contexte = $env;
-	$contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
-
-	// Le numero du modele est mis dans l'environnement
-	// d'une part sous l'identifiant "id"
-	// et d'autre part sous l'identifiant de la cle primaire
-	// par la fonction id_table_objet,
-	// (<article1> =>> article =>> id_article =>> id_article=1)
-	$_id = id_table_objet($type);
-	$contexte['id'] = $contexte[$_id] = $id;
-
-	if (isset($class)) {
-		$contexte['class'] = $class;
-	}
-
-	// Si un lien a ete passe en parametre, ex: [<modele1>->url] ou [<modele1|title_du_lien{hreflang}->url]
-	if ($lien) {
-		# un eventuel guillemet (") sera reechappe par #ENV
-		$contexte['lien'] = str_replace('&quot;', '"', $lien['href']);
-		$contexte['lien_class'] = $lien['class'];
-		$contexte['lien_mime'] = $lien['mime'];
-		$contexte['lien_title'] = $lien['title'];
-		$contexte['lien_hreflang'] = $lien['hreflang'];
-	}
-
-	// Traiter les parametres
-	// par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
-	$arg_list = creer_contexte_de_modele($params);
-	$contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
-	$contexte = array_merge($contexte, $arg_list);
-
-	// Appliquer le modele avec le contexte
-	$retour = recuperer_fond($fond, $contexte, [], $connect);
-
-	// Regarder si le modele tient compte des liens (il *doit* alors indiquer
-	// spip_lien_ok dans les classes de son conteneur de premier niveau ;
-	// sinon, s'il y a un lien, on l'ajoute classiquement
-	if (
-		strstr(
-			' ' . ($classes = extraire_attribut($retour, 'class')) . ' ',
-			'spip_lien_ok'
-		)
-	) {
-		$retour = inserer_attribut(
-			$retour,
-			'class',
-			trim(str_replace(' spip_lien_ok ', ' ', " $classes "))
-		);
-	} else {
-		if ($lien) {
-			$retour = "<a href='" . $lien['href'] . "' class='" . $lien['class'] . "'>" . $retour . '</a>';
-		}
-	}
-
-	$compteur--;
-
-	return (isset($arg_list['ajax']) and $arg_list['ajax'] == 'ajax')
-		? encoder_contexte_ajax($contexte, '', $retour)
-		: $retour;
+    static $compteur;
+    if (++$compteur > 10) {
+        return '';
+    } # ne pas boucler indefiniment
+
+    $type = strtolower($type);
+    $type = styliser_modele($type, $id);
+
+    $fond = $class = '';
+
+    $params = array_filter(explode('|', $params));
+    if ($params) {
+        $soustype = current($params);
+        $soustype = strtolower(trim($soustype));
+        if (in_array($soustype, ['left', 'right', 'center', 'ajax'])) {
+            $soustype = next($params);
+            $soustype = strtolower($soustype);
+        }
+
+        if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
+            if (!trouve_modele($fond = ($type . '_' . $soustype))) {
+                $fond = '';
+                $class = $soustype;
+            }
+            // enlever le sous type des params
+            $params = array_diff($params, [$soustype]);
+        }
+    }
+
+    // Si ca marche pas en precisant le sous-type, prendre le type
+    if (!$fond and !trouve_modele($fond = $type)) {
+        spip_log("Modele $type introuvable", _LOG_INFO_IMPORTANTE);
+
+        return false;
+    }
+    $fond = 'modeles/' . $fond;
+    // Creer le contexte
+    $contexte = $env;
+    $contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
+
+    // Le numero du modele est mis dans l'environnement
+    // d'une part sous l'identifiant "id"
+    // et d'autre part sous l'identifiant de la cle primaire
+    // par la fonction id_table_objet,
+    // (<article1> =>> article =>> id_article =>> id_article=1)
+    $_id = id_table_objet($type);
+    $contexte['id'] = $contexte[$_id] = $id;
+
+    if (isset($class)) {
+        $contexte['class'] = $class;
+    }
+
+    // Si un lien a ete passe en parametre, ex: [<modele1>->url] ou [<modele1|title_du_lien{hreflang}->url]
+    if ($lien) {
+        # un eventuel guillemet (") sera reechappe par #ENV
+        $contexte['lien'] = str_replace('&quot;', '"', $lien['href']);
+        $contexte['lien_class'] = $lien['class'];
+        $contexte['lien_mime'] = $lien['mime'];
+        $contexte['lien_title'] = $lien['title'];
+        $contexte['lien_hreflang'] = $lien['hreflang'];
+    }
+
+    // Traiter les parametres
+    // par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
+    $arg_list = creer_contexte_de_modele($params);
+    $contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
+    $contexte = array_merge($contexte, $arg_list);
+
+    // Appliquer le modele avec le contexte
+    $retour = recuperer_fond($fond, $contexte, [], $connect);
+
+    // Regarder si le modele tient compte des liens (il *doit* alors indiquer
+    // spip_lien_ok dans les classes de son conteneur de premier niveau ;
+    // sinon, s'il y a un lien, on l'ajoute classiquement
+    if (
+        strstr(
+            ' ' . ($classes = extraire_attribut($retour, 'class')) . ' ',
+            'spip_lien_ok'
+        )
+    ) {
+        $retour = inserer_attribut(
+            $retour,
+            'class',
+            trim(str_replace(' spip_lien_ok ', ' ', " $classes "))
+        );
+    } else {
+        if ($lien) {
+            $retour = "<a href='" . $lien['href'] . "' class='" . $lien['class'] . "'>" . $retour . '</a>';
+        }
+    }
+
+    $compteur--;
+
+    return (isset($arg_list['ajax']) and $arg_list['ajax'] == 'ajax')
+        ? encoder_contexte_ajax($contexte, '', $retour)
+        : $retour;
 }
 
 // Un inclure_page qui marche aussi pour l'espace prive
@@ -709,105 +709,105 @@ 
 // 	recuperer_fond($fond,$contexte,array('raw'=>true))
 function evaluer_fond($fond, $contexte = [], string $connect = '') {
 
-	$page = inclure_page($fond, $contexte, $connect);
-
-	if (!$page) {
-		return $page;
-	}
-	// eval $page et affecte $res
-	include _ROOT_RESTREINT . 'public/evaluer_page.php';
-
-	// Lever un drapeau (global) si le fond utilise #SESSION
-	// a destination de public/parametrer
-	// pour remonter vers les inclusions appelantes
-	// il faut bien lever ce drapeau apres avoir evalue le fond
-	// pour ne pas faire descendre le flag vers les inclusions appelees
-	if (
-		isset($page['invalideurs'])
-		and isset($page['invalideurs']['session'])
-	) {
-		$GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
-	}
-
-	return $page;
+    $page = inclure_page($fond, $contexte, $connect);
+
+    if (!$page) {
+        return $page;
+    }
+    // eval $page et affecte $res
+    include _ROOT_RESTREINT . 'public/evaluer_page.php';
+
+    // Lever un drapeau (global) si le fond utilise #SESSION
+    // a destination de public/parametrer
+    // pour remonter vers les inclusions appelantes
+    // il faut bien lever ce drapeau apres avoir evalue le fond
+    // pour ne pas faire descendre le flag vers les inclusions appelees
+    if (
+        isset($page['invalideurs'])
+        and isset($page['invalideurs']['session'])
+    ) {
+        $GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
+    }
+
+    return $page;
 }
 
 
 function page_base_href(&$texte) {
-	static $set_html_base = null;
-	if (is_null($set_html_base)) {
-		if (!defined('_SET_HTML_BASE')) {
-			// si la profondeur est superieure a 1
-			// est que ce n'est pas une url page ni une url action
-			// activer par defaut
-		$set_html_base = ((
-				$GLOBALS['profondeur_url'] >= (_DIR_RESTREINT ? 1 : 2)
-				and _request(_SPIP_PAGE) !== 'login'
-				and !_request('action')) ? true : false);
-		} else {
-			$set_html_base = _SET_HTML_BASE;
-		}
-	}
-
-	if (
-		$set_html_base
-		and isset($GLOBALS['html']) and $GLOBALS['html']
-		and $GLOBALS['profondeur_url'] > 0
-		and ($poshead = strpos($texte, '</head>')) !== false
-	) {
-		$head = substr($texte, 0, $poshead);
-		$insert = false;
-		$href_base = false;
-		if (strpos($head, '<base') === false) {
-			$insert = true;
-		} else {
-			// si aucun <base ...> n'a de href il faut en inserer un
-			// sinon juste re-ecrire les ancres si besoin
-			$insert = true;
-			include_spip('inc/filtres');
-			$bases = extraire_balises($head, 'base');
-			foreach ($bases as $base) {
-				if ($href_base = extraire_attribut($base, 'href')) {
-					$insert = false;
-					break;
-				}
-			}
-		}
-
-		if ($insert) {
-			include_spip('inc/filtres_mini');
-			// ajouter un base qui reglera tous les liens relatifs
-			$href_base = url_absolue('./');
-			$base = "\n<base href=\"$href_base\" />";
-			if (($pos = strpos($head, '<head>')) !== false) {
-				$head = substr_replace($head, $base, $pos + 6, 0);
-			} elseif (preg_match(',<head[^>]*>,i', $head, $r)) {
-				$head = str_replace($r[0], $r[0] . $base, $head);
-			}
-			$texte = $head . substr($texte, $poshead);
-		}
-		if ($href_base) {
-			// gerer les ancres
-			$base = $_SERVER['REQUEST_URI'];
-			// pas de guillemets ni < dans l'URL qu'on insere dans le HTML
-			if (strpos($base, "'") or strpos($base, '"') or strpos($base, '<')) {
-				$base = str_replace(["'",'"','<'], ['%27','%22','%3C'], $base);
-			}
-			if (strpos($texte, "href='#") !== false) {
-				$texte = str_replace("href='#", "href='$base#", $texte);
-			}
-			if (strpos($texte, 'href="#') !== false) {
-				$texte = str_replace('href="#', "href=\"$base#", $texte);
-			}
-		}
-	}
+    static $set_html_base = null;
+    if (is_null($set_html_base)) {
+        if (!defined('_SET_HTML_BASE')) {
+            // si la profondeur est superieure a 1
+            // est que ce n'est pas une url page ni une url action
+            // activer par defaut
+        $set_html_base = ((
+                $GLOBALS['profondeur_url'] >= (_DIR_RESTREINT ? 1 : 2)
+                and _request(_SPIP_PAGE) !== 'login'
+                and !_request('action')) ? true : false);
+        } else {
+            $set_html_base = _SET_HTML_BASE;
+        }
+    }
+
+    if (
+        $set_html_base
+        and isset($GLOBALS['html']) and $GLOBALS['html']
+        and $GLOBALS['profondeur_url'] > 0
+        and ($poshead = strpos($texte, '</head>')) !== false
+    ) {
+        $head = substr($texte, 0, $poshead);
+        $insert = false;
+        $href_base = false;
+        if (strpos($head, '<base') === false) {
+            $insert = true;
+        } else {
+            // si aucun <base ...> n'a de href il faut en inserer un
+            // sinon juste re-ecrire les ancres si besoin
+            $insert = true;
+            include_spip('inc/filtres');
+            $bases = extraire_balises($head, 'base');
+            foreach ($bases as $base) {
+                if ($href_base = extraire_attribut($base, 'href')) {
+                    $insert = false;
+                    break;
+                }
+            }
+        }
+
+        if ($insert) {
+            include_spip('inc/filtres_mini');
+            // ajouter un base qui reglera tous les liens relatifs
+            $href_base = url_absolue('./');
+            $base = "\n<base href=\"$href_base\" />";
+            if (($pos = strpos($head, '<head>')) !== false) {
+                $head = substr_replace($head, $base, $pos + 6, 0);
+            } elseif (preg_match(',<head[^>]*>,i', $head, $r)) {
+                $head = str_replace($r[0], $r[0] . $base, $head);
+            }
+            $texte = $head . substr($texte, $poshead);
+        }
+        if ($href_base) {
+            // gerer les ancres
+            $base = $_SERVER['REQUEST_URI'];
+            // pas de guillemets ni < dans l'URL qu'on insere dans le HTML
+            if (strpos($base, "'") or strpos($base, '"') or strpos($base, '<')) {
+                $base = str_replace(["'",'"','<'], ['%27','%22','%3C'], $base);
+            }
+            if (strpos($texte, "href='#") !== false) {
+                $texte = str_replace("href='#", "href='$base#", $texte);
+            }
+            if (strpos($texte, 'href="#') !== false) {
+                $texte = str_replace('href="#', "href=\"$base#", $texte);
+            }
+        }
+    }
 }
 
 
 // Envoyer les entetes, en retenant ceux qui sont a usage interne
 // et demarrent par X-Spip-...
 function envoyer_entetes($entetes) {
-	foreach ($entetes as $k => $v) { #	if (strncmp($k, 'X-Spip-', 7))
-	@header(strlen($v) ? "$k: $v" : $k);
-	}
+    foreach ($entetes as $k => $v) { #	if (strncmp($k, 'X-Spip-', 7))
+    @header(strlen($v) ? "$k: $v" : $k);
+    }
 }