spip / SPIP

ecrire/balise/logo_.php

Indentation +95 added lines, -95 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -54,84 +54,84 @@ 
  */
 function balise_LOGO__dist($p) {
 
-	preg_match(',^LOGO_([A-Z_]+?)(|_NORMAL|_SURVOL|_RUBRIQUE)$,i', $p->nom_champ, $regs);
-	$type = strtolower($regs[1]);
-	$suite_logo = $regs[2];
-
-	// cas de #LOGO_SITE_SPIP
-	if ($type == 'site_spip') {
-		$type = 'site';
-		$_id_objet = "\"'0'\"";
-	}
-
-	$id_objet = id_table_objet($type);
-	if (!isset($_id_objet)) {
-		$_id_objet = champ_sql($id_objet, $p);
-	}
-
-	$fichier = ($p->etoile === '**') ? -1 : 0;
-	$coord = [];
-	$align = $lien = '';
-	$mode_logo = '';
-
-	if ($p->param and !$p->param[0][0]) {
-		$params = $p->param[0];
-		array_shift($params);
-		foreach ($params as $a) {
-			if ($a[0]->type === 'texte') {
-				$n = $a[0]->texte;
-				if (is_numeric($n)) {
-					$coord[] = $n;
-				} elseif (in_array($n, ['top', 'left', 'right', 'center', 'bottom'])) {
-					$align = $n;
-				} elseif (in_array($n, ['auto', 'icone', 'apercu', 'vignette'])) {
-					$mode_logo = $n;
-				}
-			} else {
-				$lien = calculer_liste($a, $p->descr, $p->boucles, $p->id_boucle);
-			}
-		}
-	}
-
-	$coord_x = !$coord ? 0 : intval(array_shift($coord));
-	$coord_y = !$coord ? 0 : intval(array_shift($coord));
-
-	if ($p->etoile === '*') {
-		include_spip('balise/url_');
-		$lien = generer_generer_url_arg($type, $p, $_id_objet);
-	}
-
-	$connect = $p->id_boucle ? $p->boucles[$p->id_boucle]->sql_serveur : '';
-	if ($type == 'document') {
-		$qconnect = _q($connect);
-		$doc = "quete_document($_id_objet, $qconnect)";
-		if ($fichier) {
-			$code = "quete_logo_file($doc, $qconnect)";
-		} else {
-			$code = "quete_logo_document($doc, " . ($lien ?: "''") . ", '$align', '$mode_logo', $coord_x, $coord_y, $qconnect)";
-		}
-		// (x=non-faux ? y : '') pour affecter x en retournant y
-		if ($p->descr['documents']) {
-			$code = '(($doublons["documents"] .= ",". '
-				. $_id_objet
-				. ") ? $code : '')";
-		}
-	} elseif ($connect) {
-		$code = "''";
-		spip_log('Les logos distants ne sont pas prevus');
-	} else {
-		$code = logo_survol($id_objet, $_id_objet, $type, $align, $fichier, $lien, $p, $suite_logo);
-	}
-
-	// demande de reduction sur logo avec ecriture spip 2.1 : #LOGO_xxx{200, 0}
-	if ($coord_x or $coord_y) {
-		$code = "filtrer('image_graver',filtrer('image_reduire'," . $code . ", '$coord_x', '$coord_y'))";
-	}
-
-	$p->code = $code;
-	$p->interdire_scripts = false;
-
-	return $p;
+    preg_match(',^LOGO_([A-Z_]+?)(|_NORMAL|_SURVOL|_RUBRIQUE)$,i', $p->nom_champ, $regs);
+    $type = strtolower($regs[1]);
+    $suite_logo = $regs[2];
+
+    // cas de #LOGO_SITE_SPIP
+    if ($type == 'site_spip') {
+        $type = 'site';
+        $_id_objet = "\"'0'\"";
+    }
+
+    $id_objet = id_table_objet($type);
+    if (!isset($_id_objet)) {
+        $_id_objet = champ_sql($id_objet, $p);
+    }
+
+    $fichier = ($p->etoile === '**') ? -1 : 0;
+    $coord = [];
+    $align = $lien = '';
+    $mode_logo = '';
+
+    if ($p->param and !$p->param[0][0]) {
+        $params = $p->param[0];
+        array_shift($params);
+        foreach ($params as $a) {
+            if ($a[0]->type === 'texte') {
+                $n = $a[0]->texte;
+                if (is_numeric($n)) {
+                    $coord[] = $n;
+                } elseif (in_array($n, ['top', 'left', 'right', 'center', 'bottom'])) {
+                    $align = $n;
+                } elseif (in_array($n, ['auto', 'icone', 'apercu', 'vignette'])) {
+                    $mode_logo = $n;
+                }
+            } else {
+                $lien = calculer_liste($a, $p->descr, $p->boucles, $p->id_boucle);
+            }
+        }
+    }
+
+    $coord_x = !$coord ? 0 : intval(array_shift($coord));
+    $coord_y = !$coord ? 0 : intval(array_shift($coord));
+
+    if ($p->etoile === '*') {
+        include_spip('balise/url_');
+        $lien = generer_generer_url_arg($type, $p, $_id_objet);
+    }
+
+    $connect = $p->id_boucle ? $p->boucles[$p->id_boucle]->sql_serveur : '';
+    if ($type == 'document') {
+        $qconnect = _q($connect);
+        $doc = "quete_document($_id_objet, $qconnect)";
+        if ($fichier) {
+            $code = "quete_logo_file($doc, $qconnect)";
+        } else {
+            $code = "quete_logo_document($doc, " . ($lien ?: "''") . ", '$align', '$mode_logo', $coord_x, $coord_y, $qconnect)";
+        }
+        // (x=non-faux ? y : '') pour affecter x en retournant y
+        if ($p->descr['documents']) {
+            $code = '(($doublons["documents"] .= ",". '
+                . $_id_objet
+                . ") ? $code : '')";
+        }
+    } elseif ($connect) {
+        $code = "''";
+        spip_log('Les logos distants ne sont pas prevus');
+    } else {
+        $code = logo_survol($id_objet, $_id_objet, $type, $align, $fichier, $lien, $p, $suite_logo);
+    }
+
+    // demande de reduction sur logo avec ecriture spip 2.1 : #LOGO_xxx{200, 0}
+    if ($coord_x or $coord_y) {
+        $code = "filtrer('image_graver',filtrer('image_reduire'," . $code . ", '$coord_x', '$coord_y'))";
+    }
+
+    $p->code = $code;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 /**
@@ -158,20 +158,20 @@ 
  *     Code compilé retournant le chemin du logo ou le code HTML du logo.
  **/
 function logo_survol($id_objet, $_id_objet, $type, $align, $fichier, $_lien, $p, $suite) {
-	$code = "quete_logo('$id_objet', '" .
-		(($suite == '_SURVOL') ? 'off' :
-			(($suite == '_NORMAL') ? 'on' : 'ON')) .
-		"', $_id_objet," .
-		(($suite == '_RUBRIQUE') ?
-			champ_sql('id_rubrique', $p) :
-			(($type == 'rubrique') ? "quete_parent($_id_objet)" : "''")) .
-		', ' . intval($fichier) . ')';
-
-	if ($fichier) {
-		return $code;
-	}
-
-	$align = preg_replace(',\W,', '', $align);
-
-	return "quete_html_logo($code, '$align', " . ($_lien ?: "''") . ')';
+    $code = "quete_logo('$id_objet', '" .
+        (($suite == '_SURVOL') ? 'off' :
+            (($suite == '_NORMAL') ? 'on' : 'ON')) .
+        "', $_id_objet," .
+        (($suite == '_RUBRIQUE') ?
+            champ_sql('id_rubrique', $p) :
+            (($type == 'rubrique') ? "quete_parent($_id_objet)" : "''")) .
+        ', ' . intval($fichier) . ')';
+
+    if ($fichier) {
+        return $code;
+    }
+
+    $align = preg_replace(',\W,', '', $align);
+
+    return "quete_html_logo($code, '$align', " . ($_lien ?: "''") . ')';
 }

ecrire/balise/info_.php

Indentation +23 added lines, -23 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -40,29 +40,29 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_INFO__dist($p) {
-	$info = $p->nom_champ;
-	$type_objet = interprete_argument_balise(1, $p);
-	$id_objet = interprete_argument_balise(2, $p);
-	if ($info === 'INFO_' or !$type_objet or !$id_objet) {
-		$msg = _T('zbug_balise_sans_argument', ['balise' => ' INFO_']);
-		erreur_squelette($msg, $p);
-		$p->interdire_scripts = true;
+    $info = $p->nom_champ;
+    $type_objet = interprete_argument_balise(1, $p);
+    $id_objet = interprete_argument_balise(2, $p);
+    if ($info === 'INFO_' or !$type_objet or !$id_objet) {
+        $msg = _T('zbug_balise_sans_argument', ['balise' => ' INFO_']);
+        erreur_squelette($msg, $p);
+        $p->interdire_scripts = true;
 
-		return $p;
-	} else {
-		// Récupérer tous les params à la suite de objet et id_objet
-		$_params = '[';
-		$nb_params = is_countable($p->param[0]) ? count($p->param[0]) : 0; // 1ère valeur vide donc 1 en plus
-		for ($i = 3; $i < $nb_params; $i++) {
-			$_params .= interprete_argument_balise($i, $p) . ',';
-		}
-		$_params .= ']';
+        return $p;
+    } else {
+        // Récupérer tous les params à la suite de objet et id_objet
+        $_params = '[';
+        $nb_params = is_countable($p->param[0]) ? count($p->param[0]) : 0; // 1ère valeur vide donc 1 en plus
+        for ($i = 3; $i < $nb_params; $i++) {
+            $_params .= interprete_argument_balise($i, $p) . ',';
+        }
+        $_params .= ']';
 
-		$info_sql = strtolower(substr($info, 5));
-		$code = "generer_info_entite($id_objet, $type_objet, '$info_sql', " . ($p->etoile ? _q($p->etoile) : "''") . ", $_params)";
-		$p->code = champ_sql($info, $p, $code);
-		$p->interdire_scripts = true;
+        $info_sql = strtolower(substr($info, 5));
+        $code = "generer_info_entite($id_objet, $type_objet, '$info_sql', " . ($p->etoile ? _q($p->etoile) : "''") . ", $_params)";
+        $p->code = champ_sql($info, $p, $code);
+        $p->interdire_scripts = true;
 
-		return $p;
-	}
+        return $p;
+    }
 }

ecrire/balise/url_logout.php

Indentation +8 added lines, -8 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -36,7 +36,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_URL_LOGOUT($p) {
-	return calculer_balise_dynamique($p, 'URL_LOGOUT', []);
+    return calculer_balise_dynamique($p, 'URL_LOGOUT', []);
 }
 
 
@@ -52,9 +52,9 @@ 
  *   Liste (url) des arguments collectés.
  */
 function balise_URL_LOGOUT_stat($args, $context_compil) {
-	$url = $args[0] ?? '';
+    $url = $args[0] ?? '';
 
-	return [$url];
+    return [$url];
 }
 
 /**
@@ -69,9 +69,9 @@ 
  **/
 function balise_URL_LOGOUT_dyn($cible) {
 
-	if (empty($GLOBALS['visiteur_session']['login']) and empty($GLOBALS['visiteur_session']['statut'])) {
-		return '';
-	}
+    if (empty($GLOBALS['visiteur_session']['login']) and empty($GLOBALS['visiteur_session']['statut'])) {
+        return '';
+    }
 
-	return generer_url_action('logout', 'logout=public&url=' . rawurlencode($cible ?: self('&')));
+    return generer_url_action('logout', 'logout=public&url=' . rawurlencode($cible ?: self('&')));
 }

ecrire/balise/formulaire_.php

Indentation +266 added lines, -266 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Formulaires
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/filtres');
@@ -35,22 +35,22 @@ 
  *     Saisie protégée
  **/
 function protege_champ($texte) {
-	if (is_array($texte)) {
-		return array_map('protege_champ', $texte);
-	} elseif ($texte === null) {
-		return $texte;
-	} elseif (is_bool($texte)) {
-		return $texte ? '1' : '';
-	} elseif (is_string($texte) and $texte) {
-		if (preg_match(',^[abis]:\d+[:;],', $texte) and @unserialize($texte) !== false) {
-			// ne pas corrompre une valeur serialize
-			return $texte;
-		} elseif (strpbrk($texte, "&\"'<>") !== false) {
-			return spip_htmlspecialchars($texte, ENT_QUOTES);
-		}
-	}
-
-	return $texte;
+    if (is_array($texte)) {
+        return array_map('protege_champ', $texte);
+    } elseif ($texte === null) {
+        return $texte;
+    } elseif (is_bool($texte)) {
+        return $texte ? '1' : '';
+    } elseif (is_string($texte) and $texte) {
+        if (preg_match(',^[abis]:\d+[:;],', $texte) and @unserialize($texte) !== false) {
+            // ne pas corrompre une valeur serialize
+            return $texte;
+        } elseif (strpbrk($texte, "&\"'<>") !== false) {
+            return spip_htmlspecialchars($texte, ENT_QUOTES);
+        }
+    }
+
+    return $texte;
 }
 
 /**
@@ -64,17 +64,17 @@ 
  *     - false : pas de squelette trouvé
  **/
 function existe_formulaire($form) {
-	if (substr($form, 0, 11) == 'FORMULAIRE_') {
-		$form = strtolower(substr($form, 11));
-	} else {
-		$form = strtolower($form);
-	}
+    if (substr($form, 0, 11) == 'FORMULAIRE_') {
+        $form = strtolower(substr($form, 11));
+    } else {
+        $form = strtolower($form);
+    }
 
-	if (!$form) {
-		return '';
-	} // on ne sait pas, le nom du formulaire n'est pas fourni ici
+    if (!$form) {
+        return '';
+    } // on ne sait pas, le nom du formulaire n'est pas fourni ici
 
-	return trouver_fond($form, 'formulaires/') ? $form : false;
+    return trouver_fond($form, 'formulaires/') ? $form : false;
 }
 
 /**
@@ -83,31 +83,31 @@ 
  * @return false|array
  */
 function test_formulaire_inclus_par_modele() {
-	$trace = debug_backtrace(null, 20);
-	$trace_fonctions = array_column($trace, 'function');
-	$trace_fonctions = array_map('strtolower', $trace_fonctions);
-
-	// regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
-	if (
-		function_exists('arguments_balise_dyn_depuis_modele')
-		and $form = arguments_balise_dyn_depuis_modele(null, 'read')
-	) {
-		if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
-			$k = array_search('balise_formulaire__dyn', $trace_fonctions);
-			if ($trace[$k]['args'][0] === $form) {
-				return $trace[$k]['args'];
-			}
-		}
-	}
-
-	// fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
-	// mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
-	if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
-		$k = array_search('inclure_modele', $trace_fonctions);
-		// les arguments de recuperer_fond() passes par inclure_modele()
-		return $trace[$k - 1]['args'][1]['args'];
-	}
-	return false;
+    $trace = debug_backtrace(null, 20);
+    $trace_fonctions = array_column($trace, 'function');
+    $trace_fonctions = array_map('strtolower', $trace_fonctions);
+
+    // regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
+    if (
+        function_exists('arguments_balise_dyn_depuis_modele')
+        and $form = arguments_balise_dyn_depuis_modele(null, 'read')
+    ) {
+        if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
+            $k = array_search('balise_formulaire__dyn', $trace_fonctions);
+            if ($trace[$k]['args'][0] === $form) {
+                return $trace[$k]['args'];
+            }
+        }
+    }
+
+    // fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
+    // mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
+    if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
+        $k = array_search('inclure_modele', $trace_fonctions);
+        // les arguments de recuperer_fond() passes par inclure_modele()
+        return $trace[$k - 1]['args'][1]['args'];
+    }
+    return false;
 }
 
 /**
@@ -122,32 +122,32 @@ 
  **/
 function balise_FORMULAIRE__dist($p) {
 
-	// Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
-	// mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
-	if (existe_formulaire($p->nom_champ) === false) {
-		$p->code = "''";
-		$p->interdire_scripts = false;
-
-		return $p;
-	}
-
-	// sinon renvoyer un code php dynamique
-	$p = calculer_balise_dynamique($p, $p->nom_champ, []);
-
-	if (
-		!test_espace_prive()
-		and !empty($p->descr['sourcefile'])
-		and $f = $p->descr['sourcefile']
-		and basename(dirname($f)) === 'modeles'
-	) {
-		// un modele est toujours inséré en texte dans son contenant
-		// donc si on est dans le public avec un cache on va perdre le dynamisme
-		// et on risque de mettre en cache les valeurs pre-remplies du formulaire
-		// on injecte donc le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
-		$p->code = "'<'.'?php echo (" . texte_script($p->code) . "); ?'.'>'";
-		// dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave)
-	}
-	return $p;
+    // Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
+    // mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
+    if (existe_formulaire($p->nom_champ) === false) {
+        $p->code = "''";
+        $p->interdire_scripts = false;
+
+        return $p;
+    }
+
+    // sinon renvoyer un code php dynamique
+    $p = calculer_balise_dynamique($p, $p->nom_champ, []);
+
+    if (
+        !test_espace_prive()
+        and !empty($p->descr['sourcefile'])
+        and $f = $p->descr['sourcefile']
+        and basename(dirname($f)) === 'modeles'
+    ) {
+        // un modele est toujours inséré en texte dans son contenant
+        // donc si on est dans le public avec un cache on va perdre le dynamisme
+        // et on risque de mettre en cache les valeurs pre-remplies du formulaire
+        // on injecte donc le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
+        $p->code = "'<'.'?php echo (" . texte_script($p->code) . "); ?'.'>'";
+        // dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave)
+    }
+    return $p;
 }
 
 /**
@@ -167,17 +167,17 @@ 
  *     - string : texte à afficher directement
  */
 function balise_FORMULAIRE__dyn($form, ...$args) {
-	$form = existe_formulaire($form);
-	if (!$form) {
-		return '';
-	}
+    $form = existe_formulaire($form);
+    if (!$form) {
+        return '';
+    }
 
-	$contexte = balise_FORMULAIRE__contexte($form, $args);
-	if (!is_array($contexte)) {
-		return $contexte;
-	}
+    $contexte = balise_FORMULAIRE__contexte($form, $args);
+    if (!is_array($contexte)) {
+        return $contexte;
+    }
 
-	return ["formulaires/$form", 3600, $contexte];
+    return ["formulaires/$form", 3600, $contexte];
 }
 
 /**
@@ -191,84 +191,84 @@ 
  *     Contexte d'environnement à envoyer au squelette
  **/
 function balise_FORMULAIRE__contexte($form, $args) {
-	// tester si ce formulaire vient d'etre poste (memes arguments)
-	// pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
-	// si poste, on recupere les erreurs
-
-	$je_suis_poste = false;
-	if (
-		$post_form = _request('formulaire_action')
-		and $post_form == $form
-		and $p = _request('formulaire_action_args')
-		and is_array($p = decoder_contexte_ajax($p, $post_form))
-	) {
-		// enlever le faux attribut de langue masque
-		array_shift($p);
-		if (formulaire__identifier($form, $args, $p)) {
-			$je_suis_poste = true;
-		}
-	}
-
-	$editable = true;
-	$erreurs = $post = [];
-	if ($je_suis_poste) {
-		$post = traiter_formulaires_dynamiques(true);
-		$e = "erreurs_$form";
-		$erreurs = $post[$e] ?? [];
-		$editable = "editable_$form";
-		$editable = (!isset($post[$e]))
-			|| (is_countable($erreurs) ? count($erreurs) : 0)
-			|| (isset($post[$editable]) && $post[$editable]);
-	}
-
-	$valeurs = formulaire__charger($form, $args, $je_suis_poste);
-
-	// si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
-	// C'est plus fort qu'editable qui est gere par le squelette
-	// Idealement $valeur doit etre alors un message explicatif.
-	if (!is_array($valeurs)) {
-		return is_string($valeurs) ? $valeurs : '';
-	}
-
-	// charger peut passer une action si le formulaire ne tourne pas sur self()
-	// ou une action vide si elle ne sert pas
-	$action = $valeurs['action'] ?? self('&amp;', true);
-	// bug IEx : si action finit par /
-	// IE croit que le <form ... action=../ > est autoferme
-	if (substr($action, -1) == '/') {
-		// on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
-		$action .= '#';
-	}
-
-	// recuperer la saisie en cours si erreurs
-	// seulement si c'est ce formulaire qui est poste
-	// ou si on le demande explicitement par le parametre _forcer_request = true
-	$dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
-	foreach (array_keys($valeurs) as $champ) {
-		if ($champ[0] !== '_' and !in_array($champ, ['message_ok', 'message_erreur', 'editable'])) {
-			if ($dispo and (($v = _request($champ)) !== null)) {
-				$valeurs[$champ] = $v;
-			}
-			// nettoyer l'url des champs qui vont etre saisis
-			if ($action) {
-				$action = parametre_url($action, $champ, '');
-			}
-			// proteger les ' et les " dans les champs que l'on va injecter
-			$valeurs[$champ] = protege_champ($valeurs[$champ]);
-		}
-	}
-
-	if ($action) {
-		// nettoyer l'url
-		$action = parametre_url($action, 'formulaire_action', '');
-		$action = parametre_url($action, 'formulaire_action_args', '');
-	}
-
-	/**
-	 * @deprecated
-	 * servait pour poster sur les actions de type editer_xxx() qui ne prenaient pas d'argument autrement que par _request('arg') et pour lesquelles il fallait donc passer un hash valide
-	 */
-	/*
+    // tester si ce formulaire vient d'etre poste (memes arguments)
+    // pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
+    // si poste, on recupere les erreurs
+
+    $je_suis_poste = false;
+    if (
+        $post_form = _request('formulaire_action')
+        and $post_form == $form
+        and $p = _request('formulaire_action_args')
+        and is_array($p = decoder_contexte_ajax($p, $post_form))
+    ) {
+        // enlever le faux attribut de langue masque
+        array_shift($p);
+        if (formulaire__identifier($form, $args, $p)) {
+            $je_suis_poste = true;
+        }
+    }
+
+    $editable = true;
+    $erreurs = $post = [];
+    if ($je_suis_poste) {
+        $post = traiter_formulaires_dynamiques(true);
+        $e = "erreurs_$form";
+        $erreurs = $post[$e] ?? [];
+        $editable = "editable_$form";
+        $editable = (!isset($post[$e]))
+            || (is_countable($erreurs) ? count($erreurs) : 0)
+            || (isset($post[$editable]) && $post[$editable]);
+    }
+
+    $valeurs = formulaire__charger($form, $args, $je_suis_poste);
+
+    // si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
+    // C'est plus fort qu'editable qui est gere par le squelette
+    // Idealement $valeur doit etre alors un message explicatif.
+    if (!is_array($valeurs)) {
+        return is_string($valeurs) ? $valeurs : '';
+    }
+
+    // charger peut passer une action si le formulaire ne tourne pas sur self()
+    // ou une action vide si elle ne sert pas
+    $action = $valeurs['action'] ?? self('&amp;', true);
+    // bug IEx : si action finit par /
+    // IE croit que le <form ... action=../ > est autoferme
+    if (substr($action, -1) == '/') {
+        // on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
+        $action .= '#';
+    }
+
+    // recuperer la saisie en cours si erreurs
+    // seulement si c'est ce formulaire qui est poste
+    // ou si on le demande explicitement par le parametre _forcer_request = true
+    $dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
+    foreach (array_keys($valeurs) as $champ) {
+        if ($champ[0] !== '_' and !in_array($champ, ['message_ok', 'message_erreur', 'editable'])) {
+            if ($dispo and (($v = _request($champ)) !== null)) {
+                $valeurs[$champ] = $v;
+            }
+            // nettoyer l'url des champs qui vont etre saisis
+            if ($action) {
+                $action = parametre_url($action, $champ, '');
+            }
+            // proteger les ' et les " dans les champs que l'on va injecter
+            $valeurs[$champ] = protege_champ($valeurs[$champ]);
+        }
+    }
+
+    if ($action) {
+        // nettoyer l'url
+        $action = parametre_url($action, 'formulaire_action', '');
+        $action = parametre_url($action, 'formulaire_action_args', '');
+    }
+
+    /**
+     * @deprecated
+     * servait pour poster sur les actions de type editer_xxx() qui ne prenaient pas d'argument autrement que par _request('arg') et pour lesquelles il fallait donc passer un hash valide
+     */
+    /*
 	if (isset($valeurs['_action'])) {
 		$securiser_action = charger_fonction('securiser_action', 'inc');
 		$secu = $securiser_action(reset($valeurs['_action']), end($valeurs['_action']), '', -1);
@@ -278,59 +278,59 @@ 
 	}
 	*/
 
-	// empiler la lang en tant que premier argument implicite du CVT
-	// pour permettre de la restaurer au moment du Verifier et du Traiter
-	array_unshift($args, $GLOBALS['spip_lang']);
-
-	$valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
-	$valeurs['erreurs'] = $erreurs;
-	$valeurs['action'] = $action;
-	$valeurs['form'] = $form;
-
-	$valeurs['formulaire_sign'] = '';
-	if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$secu = $securiser_action($valeurs['form'], $valeurs['formulaire_args'], '', -1);
-		$valeurs['formulaire_sign'] = $secu['hash'];
-	}
-
-	if (!isset($valeurs['id'])) {
-		$valeurs['id'] = 'new';
-	}
-	// editable peut venir de charger() ou de traiter() sinon
-	if (!isset($valeurs['editable'])) {
-		$valeurs['editable'] = $editable;
-	}
-	// dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
-	$valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
-
-	if ($je_suis_poste) {
-		$valeurs['message_erreur'] = '';
-		if (isset($erreurs['message_erreur'])) {
-			$valeurs['message_erreur'] = $erreurs['message_erreur'];
-		}
-
-		$valeurs['message_ok'] = '';
-		if (isset($post["message_ok_$form"])) {
-			$valeurs['message_ok'] = $post["message_ok_$form"];
-		} elseif (isset($erreurs['message_ok'])) {
-			$valeurs['message_ok'] = $erreurs['message_ok'];
-		}
-
-		// accessibilite : encapsuler toutes les erreurs dans un role='alert'
-		// uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
-		// et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
-		if (html5_permis()) {
-			foreach ($erreurs as $k => $v) {
-				if (is_string($v) and strlen(trim($v)) and strpos($k, '_') !== 0) {
-					// on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
-					$valeurs['erreurs'][$k] = "<span role='alert'>" . $erreurs[$k] . '</span>';
-				}
-			}
-		}
-	}
-
-	return $valeurs;
+    // empiler la lang en tant que premier argument implicite du CVT
+    // pour permettre de la restaurer au moment du Verifier et du Traiter
+    array_unshift($args, $GLOBALS['spip_lang']);
+
+    $valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
+    $valeurs['erreurs'] = $erreurs;
+    $valeurs['action'] = $action;
+    $valeurs['form'] = $form;
+
+    $valeurs['formulaire_sign'] = '';
+    if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $secu = $securiser_action($valeurs['form'], $valeurs['formulaire_args'], '', -1);
+        $valeurs['formulaire_sign'] = $secu['hash'];
+    }
+
+    if (!isset($valeurs['id'])) {
+        $valeurs['id'] = 'new';
+    }
+    // editable peut venir de charger() ou de traiter() sinon
+    if (!isset($valeurs['editable'])) {
+        $valeurs['editable'] = $editable;
+    }
+    // dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
+    $valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
+
+    if ($je_suis_poste) {
+        $valeurs['message_erreur'] = '';
+        if (isset($erreurs['message_erreur'])) {
+            $valeurs['message_erreur'] = $erreurs['message_erreur'];
+        }
+
+        $valeurs['message_ok'] = '';
+        if (isset($post["message_ok_$form"])) {
+            $valeurs['message_ok'] = $post["message_ok_$form"];
+        } elseif (isset($erreurs['message_ok'])) {
+            $valeurs['message_ok'] = $erreurs['message_ok'];
+        }
+
+        // accessibilite : encapsuler toutes les erreurs dans un role='alert'
+        // uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
+        // et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
+        if (html5_permis()) {
+            foreach ($erreurs as $k => $v) {
+                if (is_string($v) and strlen(trim($v)) and strpos($k, '_') !== 0) {
+                    // on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
+                    $valeurs['erreurs'][$k] = "<span role='alert'>" . $erreurs[$k] . '</span>';
+                }
+            }
+        }
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -342,51 +342,51 @@ 
  * @return array
  */
 function formulaire__charger($form, $args, $poste) {
-	if ($charger_valeurs = charger_fonction('charger', "formulaires/$form", true)) {
-		$valeurs = call_user_func_array($charger_valeurs, $args);
-	} else {
-		$valeurs = [];
-	}
-
-	$valeurs = pipeline(
-		'formulaire_charger',
-		[
-			'args' => ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
-			'data' => $valeurs
-		]
-	);
-
-	// prise en charge CVT multi etape
-	if (is_array($valeurs) and isset($valeurs['_etapes'])) {
-		include_spip('inc/cvt_multietapes');
-		$valeurs = cvtmulti_formulaire_charger_etapes(
-			['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
-			$valeurs
-		);
-	}
-
-	// si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
-	if (is_array($valeurs)) {
-		if (!isset($valeurs['_pipelines'])) {
-			$valeurs['_pipelines'] = [];
-		}
-		// l'ancien argument _pipeline devient maintenant _pipelines
-		// reinjectons le vieux _pipeline au debut de _pipelines
-		if (isset($valeurs['_pipeline'])) {
-			$pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
-			$args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : [];
-
-			$pipelines = [$pipe => $args];
-			$valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
-		}
-
-		// et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
-		// qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
-		// (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
-		$valeurs['_pipelines']['formulaire_fond'] = ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste];
-	}
-
-	return $valeurs;
+    if ($charger_valeurs = charger_fonction('charger', "formulaires/$form", true)) {
+        $valeurs = call_user_func_array($charger_valeurs, $args);
+    } else {
+        $valeurs = [];
+    }
+
+    $valeurs = pipeline(
+        'formulaire_charger',
+        [
+            'args' => ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
+            'data' => $valeurs
+        ]
+    );
+
+    // prise en charge CVT multi etape
+    if (is_array($valeurs) and isset($valeurs['_etapes'])) {
+        include_spip('inc/cvt_multietapes');
+        $valeurs = cvtmulti_formulaire_charger_etapes(
+            ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
+            $valeurs
+        );
+    }
+
+    // si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
+    if (is_array($valeurs)) {
+        if (!isset($valeurs['_pipelines'])) {
+            $valeurs['_pipelines'] = [];
+        }
+        // l'ancien argument _pipeline devient maintenant _pipelines
+        // reinjectons le vieux _pipeline au debut de _pipelines
+        if (isset($valeurs['_pipeline'])) {
+            $pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
+            $args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : [];
+
+            $pipelines = [$pipe => $args];
+            $valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
+        }
+
+        // et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
+        // qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
+        // (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
+        $valeurs['_pipelines']['formulaire_fond'] = ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste];
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -405,9 +405,9 @@ 
  * @return bool
  */
 function formulaire__identifier($form, $args, $p) {
-	if ($identifier_args = charger_fonction('identifier', "formulaires/$form", true)) {
-		return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
-	}
+    if ($identifier_args = charger_fonction('identifier', "formulaires/$form", true)) {
+        return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
+    }
 
-	return $args === $p;
+    return $args === $p;
 }

ecrire/balise/formulaire_inscription.php

Indentation +6 added lines, -6 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/abstract_sql');
@@ -43,7 +43,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_FORMULAIRE_INSCRIPTION($p) {
-	return calculer_balise_dynamique($p, 'FORMULAIRE_INSCRIPTION', []);
+    return calculer_balise_dynamique($p, 'FORMULAIRE_INSCRIPTION', []);
 }
 
 /**
@@ -72,9 +72,9 @@ 
  *   - chaîne vide sinon.
  */
 function balise_FORMULAIRE_INSCRIPTION_stat($args, $context_compil) {
-	[$mode, $id, $retour] = array_pad($args, 3, null);
-	include_spip('action/inscrire_auteur');
-	$mode = tester_statut_inscription($mode, $id ?? 0);
+    [$mode, $id, $retour] = array_pad($args, 3, null);
+    include_spip('action/inscrire_auteur');
+    $mode = tester_statut_inscription($mode, $id ?? 0);
 
-	return $mode ? [$mode, $id, $retour] : '';
+    return $mode ? [$mode, $id, $retour] : '';
 }

ecrire/public/balises.php

Indentation +948 added lines, -948 removed lines

@@ -26,7 +26,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -48,16 +48,16 @@ 
  *     Code PHP si cet argument est présent, sinon null
  **/
 function interprete_argument_balise(int $n, Champ $p): ?string {
-	if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) {
-		return calculer_liste(
-			$p->param[0][$n],
-			$p->descr,
-			$p->boucles,
-			$p->id_boucle
-		);
-	} else {
-		return null;
-	}
+    if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) {
+        return calculer_liste(
+            $p->param[0][$n],
+            $p->descr,
+            $p->boucles,
+            $p->id_boucle
+        );
+    } else {
+        return null;
+    }
 }
 
 
@@ -77,10 +77,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_NOM_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['nom_site']";
+    $p->code = "\$GLOBALS['meta']['nom_site']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -96,10 +96,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_EMAIL_WEBMASTER_dist($p) {
-	$p->code = "\$GLOBALS['meta']['email_webmaster']";
+    $p->code = "\$GLOBALS['meta']['email_webmaster']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -115,10 +115,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_DESCRIPTIF_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['descriptif_site']";
+    $p->code = "\$GLOBALS['meta']['descriptif_site']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 
@@ -139,10 +139,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CHARSET_dist($p) {
-	$p->code = "\$GLOBALS['meta']['charset']";
+    $p->code = "\$GLOBALS['meta']['charset']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -167,11 +167,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_LEFT_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'left','right')";
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'left','right')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -191,11 +191,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_RIGHT_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'right','left')";
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'right','left')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -220,11 +220,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_DIR_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'ltr','rtl')";
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'ltr','rtl')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -241,10 +241,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_PUCE_dist($p) {
-	$p->code = 'definir_puce()';
-	$p->interdire_scripts = false;
+    $p->code = 'definir_puce()';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -268,9 +268,9 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_dist($p) {
-	$p->code = champ_sql('date', $p);
+    $p->code = champ_sql('date', $p);
 
-	return $p;
+    return $p;
 }
 
 
@@ -290,10 +290,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_REDAC_dist($p) {
-	$p->code = champ_sql('date_redac', $p);
-	$p->interdire_scripts = false;
+    $p->code = champ_sql('date_redac', $p);
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -312,10 +312,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_MODIF_dist($p) {
-	$p->code = champ_sql('date_modif', $p);
-	$p->interdire_scripts = false;
+    $p->code = champ_sql('date_modif', $p);
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -333,13 +333,13 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_NOUVEAUTES_dist($p) {
-	$p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
+    $p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
 	AND isset(\$GLOBALS['meta']['dernier_envoi_neuf'])) ?
 	\$GLOBALS['meta']['dernier_envoi_neuf'] :
 	\"'0000-00-00'\")";
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -357,11 +357,11 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DOSSIER_SQUELETTE_dist($p) {
-	$code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
-	$p->code = "_DIR_RACINE . '$code'" .
-		$p->interdire_scripts = false;
+    $code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
+    $p->code = "_DIR_RACINE . '$code'" .
+        $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -376,11 +376,11 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_SQUELETTE_dist($p) {
-	$code = addslashes($p->descr['sourcefile']);
-	$p->code = "'$code'" .
-		$p->interdire_scripts = false;
+    $code = addslashes($p->descr['sourcefile']);
+    $p->code = "'$code'" .
+        $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -399,10 +399,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_SPIP_VERSION_dist($p) {
-	$p->code = 'spip_version()';
-	$p->interdire_scripts = false;
+    $p->code = 'spip_version()';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -428,18 +428,18 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_NOM_SITE_dist($p) {
-	if (!$p->etoile) {
-		$p->code = 'supprimer_numero(calculer_url(' .
-			champ_sql('url_site', $p) . ',' .
-			champ_sql('nom_site', $p) .
-			", 'titre', \$connect, false))";
-	} else {
-		$p->code = champ_sql('nom_site', $p);
-	}
+    if (!$p->etoile) {
+        $p->code = 'supprimer_numero(calculer_url(' .
+            champ_sql('url_site', $p) . ',' .
+            champ_sql('nom_site', $p) .
+            ", 'titre', \$connect, false))";
+    } else {
+        $p->code = champ_sql('nom_site', $p);
+    }
 
-	$p->interdire_scripts = true;
+    $p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 
@@ -456,11 +456,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_NOTES_dist($p) {
-	// Recuperer les notes
-	$p->code = 'calculer_notes()';
+    // Recuperer les notes
+    $p->code = 'calculer_notes()';
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 
@@ -482,10 +482,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_RECHERCHE_dist($p) {
-	$p->code = 'entites_html(_request("recherche"))';
-	$p->interdire_scripts = false;
+    $p->code = 'entites_html(_request("recherche"))';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -503,17 +503,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_COMPTEUR_BOUCLE_dist($p) {
-	$b = index_boucle_mere($p);
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "(\$Numrows['$b']['compteur_boucle'] ?? 0)";
-		$p->boucles[$b]->cptrows = true;
-		$p->interdire_scripts = false;
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['compteur_boucle'] ?? 0)";
+        $p->boucles[$b]->cptrows = true;
+        $p->interdire_scripts = false;
 
-		return $p;
-	}
+        return $p;
+    }
 }
 
 /**
@@ -531,17 +531,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_TOTAL_BOUCLE_dist($p) {
-	$b = index_boucle_mere($p);
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "(\$Numrows['$b']['total'] ?? 0)";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['total'] ?? 0)";
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -561,7 +561,7 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POINTS_dist($p) {
-	return rindex_pile($p, 'points', 'recherche');
+    return rindex_pile($p, 'points', 'recherche');
 }
 
 
@@ -582,12 +582,12 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_ABSOLUE_dist($p) {
-	$p->code = 'ceil(' .
-		champ_sql('popularite', $p) .
-		')';
-	$p->interdire_scripts = false;
+    $p->code = 'ceil(' .
+        champ_sql('popularite', $p) .
+        ')';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -607,10 +607,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_SITE_dist($p) {
-	$p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])';
-	$p->interdire_scripts = false;
+    $p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -631,10 +631,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_MAX_dist($p) {
-	$p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])';
-	$p->interdire_scripts = false;
+    $p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -660,15 +660,15 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_VALEUR_dist($p) {
-	$b = $p->nom_boucle ?: $p->id_boucle;
-	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
+    $b = $p->nom_boucle ?: $p->id_boucle;
+    $p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
 ;
-	if (($v = interprete_argument_balise(1, $p)) !== null) {
-		$p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
-	}
-	$p->interdire_scripts = true;
+    if (($v = interprete_argument_balise(1, $p)) !== null) {
+        $p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
+    }
+    $p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -697,16 +697,16 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_EXPOSE_dist($p) {
-	$on = "'on'";
-	$off = "''";
-	if (($v = interprete_argument_balise(1, $p)) !== null) {
-		$on = $v;
-		if (($v = interprete_argument_balise(2, $p)) !== null) {
-			$off = $v;
-		}
-	}
+    $on = "'on'";
+    $off = "''";
+    if (($v = interprete_argument_balise(1, $p)) !== null) {
+        $on = $v;
+        if (($v = interprete_argument_balise(2, $p)) !== null) {
+            $off = $v;
+        }
+    }
 
-	return calculer_balise_expose($p, $on, $off);
+    return calculer_balise_expose($p, $on, $off);
 }
 
 /**
@@ -724,35 +724,35 @@ 
  *     Pile complétée par le code à générer
  **/
 function calculer_balise_expose($p, $on, $off) {
-	$b = index_boucle($p);
-	if (empty($p->boucles[$b]->primary)) {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$key = $p->boucles[$b]->primary;
-		$type = $p->boucles[$p->id_boucle]->primary;
-		$desc = $p->boucles[$b]->show;
-		$connect = sql_quote($p->boucles[$b]->sql_serveur);
+    $b = index_boucle($p);
+    if (empty($p->boucles[$b]->primary)) {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $key = $p->boucles[$b]->primary;
+        $type = $p->boucles[$p->id_boucle]->primary;
+        $desc = $p->boucles[$b]->show;
+        $connect = sql_quote($p->boucles[$b]->sql_serveur);
 
-		// Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite
-		$c = index_pile($p->id_boucle, $type, $p->boucles);
+        // Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite
+        $c = index_pile($p->id_boucle, $type, $p->boucles);
 
-		if (isset($desc['field']['id_parent'])) {
-			$parent = 0; // pour if (!$parent) dans calculer_expose
-		} elseif (isset($desc['field']['id_rubrique'])) {
-			$parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
-		} elseif (isset($desc['field']['id_groupe'])) {
-			$parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
-		} else {
-			$parent = "''";
-		}
+        if (isset($desc['field']['id_parent'])) {
+            $parent = 0; // pour if (!$parent) dans calculer_expose
+        } elseif (isset($desc['field']['id_rubrique'])) {
+            $parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
+        } elseif (isset($desc['field']['id_groupe'])) {
+            $parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
+        } else {
+            $parent = "''";
+        }
 
-		$p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
-	}
+        $p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -792,46 +792,46 @@ 
  **/
 function balise_INTRODUCTION_dist($p) {
 
-	$type_objet = $p->type_requete;
-	$cle_objet = id_table_objet($type_objet);
-	$_id_objet = champ_sql($cle_objet, $p);
-
-	// Récupérer les valeurs sql nécessaires : descriptif, texte et chapo
-	// ainsi que le longueur d'introduction donnée dans la description de l'objet.
-	$_introduction_longueur = 'null';
-	$_ligne = 'array(';
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	if ($desc = $trouver_table(table_objet_sql($type_objet))) {
-		if (isset($desc['field']['descriptif'])) {
-			$_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
-		}
-		if (isset($desc['field']['texte'])) {
-			$_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
-		}
-		if (isset($desc['field']['chapo'])) {
-			$_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
-		}
-		if (isset($desc['introduction_longueur'])) {
-			$_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
-		}
-	}
-	$_ligne .= ')';
-
-	// Récupérer la longueur et la suite passés en paramètres
-	$_longueur_ou_suite = 'null';
-	if (($v1 = interprete_argument_balise(1, $p)) !== null) {
-		$_longueur_ou_suite = $v1;
-	}
-	$_suite = 'null';
-	if (($v2 = interprete_argument_balise(2, $p)) !== null) {
-		$_suite = $v2;
-	}
-
-	$p->code = "generer_introduction_entite($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)";
-
-	#$p->interdire_scripts = true;
-	$p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
-	return $p;
+    $type_objet = $p->type_requete;
+    $cle_objet = id_table_objet($type_objet);
+    $_id_objet = champ_sql($cle_objet, $p);
+
+    // Récupérer les valeurs sql nécessaires : descriptif, texte et chapo
+    // ainsi que le longueur d'introduction donnée dans la description de l'objet.
+    $_introduction_longueur = 'null';
+    $_ligne = 'array(';
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    if ($desc = $trouver_table(table_objet_sql($type_objet))) {
+        if (isset($desc['field']['descriptif'])) {
+            $_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
+        }
+        if (isset($desc['field']['texte'])) {
+            $_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
+        }
+        if (isset($desc['field']['chapo'])) {
+            $_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
+        }
+        if (isset($desc['introduction_longueur'])) {
+            $_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
+        }
+    }
+    $_ligne .= ')';
+
+    // Récupérer la longueur et la suite passés en paramètres
+    $_longueur_ou_suite = 'null';
+    if (($v1 = interprete_argument_balise(1, $p)) !== null) {
+        $_longueur_ou_suite = $v1;
+    }
+    $_suite = 'null';
+    if (($v2 = interprete_argument_balise(2, $p)) !== null) {
+        $_suite = $v2;
+    }
+
+    $p->code = "generer_introduction_entite($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)";
+
+    #$p->interdire_scripts = true;
+    $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
+    return $p;
 }
 
 
@@ -851,15 +851,15 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	if (!$p->etoile) {
-		$p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
-	} else {
-		$p->code = "spip_htmlentities($_lang)";
-	}
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    if (!$p->etoile) {
+        $p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
+    } else {
+        $p->code = "spip_htmlentities($_lang)";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -881,48 +881,48 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_LESAUTEURS_dist($p) {
-	// Cherche le champ 'lesauteurs' dans la pile
-	$_lesauteurs = champ_sql('lesauteurs', $p, false);
-
-	// Si le champ n'existe pas (cas de spip_articles), on applique
-	// le modele lesauteurs.html en passant id_article dans le contexte;
-	// dans le cas contraire on prend le champ 'lesauteurs'
-	// (cf extension sites/)
-	if (
-		$_lesauteurs
-		and $_lesauteurs != '@$Pile[0][\'lesauteurs\']'
-	) {
-		$p->code = "safehtml($_lesauteurs)";
-		// $p->interdire_scripts = true;
-	} else {
-		if (!$p->id_boucle) {
-			$connect = '';
-			$objet = 'article';
-			$id_table_objet = 'id_article';
-		} else {
-			$b = $p->nom_boucle ?: $p->id_boucle;
-			$connect = $p->boucles[$b]->sql_serveur;
-			$type_boucle = $p->boucles[$b]->type_requete;
-			$objet = objet_type($type_boucle);
-			$id_table_objet = id_table_objet($type_boucle);
-		}
-		$c = memoriser_contexte_compil($p);
-
-		$p->code = sprintf(
-			CODE_RECUPERER_FOND,
-			"'modeles/lesauteurs'",
-			"array('objet'=>'" . $objet .
-			"','id_objet' => " . champ_sql($id_table_objet, $p) .
-			",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
-			($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
-			')',
-			"'trim'=>true, 'compil'=>array($c)",
-			_q($connect)
-		);
-		$p->interdire_scripts = false; // securite apposee par recuperer_fond()
-	}
-
-	return $p;
+    // Cherche le champ 'lesauteurs' dans la pile
+    $_lesauteurs = champ_sql('lesauteurs', $p, false);
+
+    // Si le champ n'existe pas (cas de spip_articles), on applique
+    // le modele lesauteurs.html en passant id_article dans le contexte;
+    // dans le cas contraire on prend le champ 'lesauteurs'
+    // (cf extension sites/)
+    if (
+        $_lesauteurs
+        and $_lesauteurs != '@$Pile[0][\'lesauteurs\']'
+    ) {
+        $p->code = "safehtml($_lesauteurs)";
+        // $p->interdire_scripts = true;
+    } else {
+        if (!$p->id_boucle) {
+            $connect = '';
+            $objet = 'article';
+            $id_table_objet = 'id_article';
+        } else {
+            $b = $p->nom_boucle ?: $p->id_boucle;
+            $connect = $p->boucles[$b]->sql_serveur;
+            $type_boucle = $p->boucles[$b]->type_requete;
+            $objet = objet_type($type_boucle);
+            $id_table_objet = id_table_objet($type_boucle);
+        }
+        $c = memoriser_contexte_compil($p);
+
+        $p->code = sprintf(
+            CODE_RECUPERER_FOND,
+            "'modeles/lesauteurs'",
+            "array('objet'=>'" . $objet .
+            "','id_objet' => " . champ_sql($id_table_objet, $p) .
+            ",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
+            ($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
+            ')',
+            "'trim'=>true, 'compil'=>array($c)",
+            _q($connect)
+        );
+        $p->interdire_scripts = false; // securite apposee par recuperer_fond()
+    }
+
+    return $p;
 }
 
 
@@ -949,76 +949,76 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_RANG_dist($p) {
-	$b = index_boucle($p);
-	if ($b === '') {
-		$msg = [
-			'zbug_champ_hors_boucle',
-			['champ' => '#RANG']
-		];
-		erreur_squelette($msg, $p);
-	} else {
-		// chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql)
-		// dans la boucle immediatement englobante uniquement
-		// sinon on compose le champ calcule
-		$_rang = champ_sql('rang', $p, '', false);
-
-		// si pas trouve de champ sql rang :
-		if (!$_rang or $_rang == "''") {
-			$boucle = &$p->boucles[$b];
-
-			// on gere le cas ou #RANG est une extraction du numero dans le titre
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($boucle->id_table);
-			$_titre = ''; # où extraire le numero ?
-
-			if (isset($desc['titre'])) {
-				$t = $desc['titre'];
-				if (
-					// Soit on trouve avec la déclaration de la lang AVANT
-					preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m)
-					// Soit on prend depuis le début
-					or preg_match(';^(.*?titre)\s*(,|$);', $t, $m)
-				) {
-					$m = preg_replace(',as\s+titre$,i', '', $m[1]);
-					$m = trim($m);
-					if ($m != "''") {
-						if (!preg_match(',\W,', $m)) {
-							$m = $boucle->id_table . ".$m";
-						}
-
-						$m .= ' AS titre_rang';
-
-						$boucle->select[] = $m;
-						$_titre = '$Pile[$SP][\'titre_rang\']';
-					}
-				}
-			}
-
-			// si on n'a rien trouvé, on utilise le champ titre classique
-			if (!$_titre) {
-				$_titre = champ_sql('titre', $p);
-			}
-
-			// et on recupere aussi les infos de liaison si on est en train d'editer les liens justement
-			// cas des formulaires xxx_lies utilises par #FORMULAIRE_EDITER_LIENS
-			$type_boucle = $boucle->type_requete;
-			$objet = objet_type($type_boucle);
-			$id_table_objet = id_table_objet($type_boucle);
-			$_primary = champ_sql($id_table_objet, $p, '', false);
-			$_env = '$Pile[0]';
-
-			if (!$_titre) {$_titre = "''";
-			}
-			if (!$_primary) {$_primary = "''";
-			}
-			$_rang = "calculer_rang_smart($_titre, '$objet', $_primary, $_env)";
-		}
-
-		$p->code = $_rang;
-		$p->interdire_scripts = false;
-	}
-
-	return $p;
+    $b = index_boucle($p);
+    if ($b === '') {
+        $msg = [
+            'zbug_champ_hors_boucle',
+            ['champ' => '#RANG']
+        ];
+        erreur_squelette($msg, $p);
+    } else {
+        // chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql)
+        // dans la boucle immediatement englobante uniquement
+        // sinon on compose le champ calcule
+        $_rang = champ_sql('rang', $p, '', false);
+
+        // si pas trouve de champ sql rang :
+        if (!$_rang or $_rang == "''") {
+            $boucle = &$p->boucles[$b];
+
+            // on gere le cas ou #RANG est une extraction du numero dans le titre
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($boucle->id_table);
+            $_titre = ''; # où extraire le numero ?
+
+            if (isset($desc['titre'])) {
+                $t = $desc['titre'];
+                if (
+                    // Soit on trouve avec la déclaration de la lang AVANT
+                    preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m)
+                    // Soit on prend depuis le début
+                    or preg_match(';^(.*?titre)\s*(,|$);', $t, $m)
+                ) {
+                    $m = preg_replace(',as\s+titre$,i', '', $m[1]);
+                    $m = trim($m);
+                    if ($m != "''") {
+                        if (!preg_match(',\W,', $m)) {
+                            $m = $boucle->id_table . ".$m";
+                        }
+
+                        $m .= ' AS titre_rang';
+
+                        $boucle->select[] = $m;
+                        $_titre = '$Pile[$SP][\'titre_rang\']';
+                    }
+                }
+            }
+
+            // si on n'a rien trouvé, on utilise le champ titre classique
+            if (!$_titre) {
+                $_titre = champ_sql('titre', $p);
+            }
+
+            // et on recupere aussi les infos de liaison si on est en train d'editer les liens justement
+            // cas des formulaires xxx_lies utilises par #FORMULAIRE_EDITER_LIENS
+            $type_boucle = $boucle->type_requete;
+            $objet = objet_type($type_boucle);
+            $id_table_objet = id_table_objet($type_boucle);
+            $_primary = champ_sql($id_table_objet, $p, '', false);
+            $_env = '$Pile[0]';
+
+            if (!$_titre) {$_titre = "''";
+            }
+            if (!$_primary) {$_primary = "''";
+            }
+            $_rang = "calculer_rang_smart($_titre, '$objet', $_primary, $_env)";
+        }
+
+        $p->code = $_rang;
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -1040,12 +1040,12 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_dist($p) {
-	$_popularite = champ_sql('popularite', $p);
-	$p->code = "(ceil(min(100, 100 * $_popularite
+    $_popularite = champ_sql('popularite', $p);
+    $p->code = "(ceil(min(100, 100 * $_popularite
 	/ max(1 , 0 + \$GLOBALS['meta']['popularite_max']))))";
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1056,8 +1056,8 @@ 
  * l'absence peut-être due à une faute de frappe dans le contexte inclus.
  */
 define(
-	'CODE_PAGINATION',
-	'%s($Numrows["%s"]["grand_total"],
+    'CODE_PAGINATION',
+    '%s($Numrows["%s"]["grand_total"],
  		%s,
 		isset($Pile[0][%4$s])?$Pile[0][%4$s]:intval(_request(%4$s)),
 		%5$s, %6$s, %7$s, %8$s, array(%9$s))'
@@ -1094,75 +1094,75 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_PAGINATION_dist($p, $liste = 'true') {
-	$b = index_boucle_mere($p);
-
-	// s'il n'y a pas de nom de boucle, on ne peut pas paginer
-	if ($b === '') {
-		$msg = [
-			'zbug_champ_hors_boucle',
-			['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION']
-		];
-		erreur_squelette($msg, $p);
-
-		return $p;
-	}
-
-	// s'il n'y a pas de mode_partie, c'est qu'on se trouve
-	// dans un boucle recursive ou qu'on a oublie le critere {pagination}
-	if (!$p->boucles[$b]->mode_partie) {
-		if (!$p->boucles[$b]->table_optionnelle) {
-			$msg = [
-				'zbug_pagination_sans_critere',
-				['champ' => '#PAGINATION']
-			];
-			erreur_squelette($msg, $p);
-		}
-
-		return $p;
-	}
-
-	// a priori true
-	// si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
-	// si true, les arguments simples (sans truc=chose) vont degager
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
-	if (is_countable($_contexte) ? count($_contexte) : 0) {
-		$key = key($_contexte);
-		if (is_numeric($key)) {
-			array_shift($_contexte);
-			$__modele = interprete_argument_balise(1, $p);
-		}
-	}
-
-	if (is_countable($_contexte) ? count($_contexte) : 0) {
-		$code_contexte = implode(',', $_contexte);
-	} else {
-		$code_contexte = '';
-	}
-
-	$connect = $p->boucles[$b]->sql_serveur;
-	$pas = $p->boucles[$b]->total_parties;
-	$f_pagination = chercher_filtre('pagination');
-	$type = $p->boucles[$b]->modificateur['debut_nom'];
-	$modif = ($type[0] !== "'") ? "'debut'.$type"
-		: ("'debut" . substr($type, 1));
-
-	$p->code = sprintf(
-		CODE_PAGINATION,
-		$f_pagination,
-		$b,
-		$type,
-		$modif,
-		$pas,
-		$liste,
-		((isset($__modele) and $__modele) ? $__modele : "''"),
-		_q($connect),
-		$code_contexte
-	);
-
-	$p->boucles[$b]->numrows = true;
-	$p->interdire_scripts = false;
-
-	return $p;
+    $b = index_boucle_mere($p);
+
+    // s'il n'y a pas de nom de boucle, on ne peut pas paginer
+    if ($b === '') {
+        $msg = [
+            'zbug_champ_hors_boucle',
+            ['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION']
+        ];
+        erreur_squelette($msg, $p);
+
+        return $p;
+    }
+
+    // s'il n'y a pas de mode_partie, c'est qu'on se trouve
+    // dans un boucle recursive ou qu'on a oublie le critere {pagination}
+    if (!$p->boucles[$b]->mode_partie) {
+        if (!$p->boucles[$b]->table_optionnelle) {
+            $msg = [
+                'zbug_pagination_sans_critere',
+                ['champ' => '#PAGINATION']
+            ];
+            erreur_squelette($msg, $p);
+        }
+
+        return $p;
+    }
+
+    // a priori true
+    // si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
+    // si true, les arguments simples (sans truc=chose) vont degager
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
+    if (is_countable($_contexte) ? count($_contexte) : 0) {
+        $key = key($_contexte);
+        if (is_numeric($key)) {
+            array_shift($_contexte);
+            $__modele = interprete_argument_balise(1, $p);
+        }
+    }
+
+    if (is_countable($_contexte) ? count($_contexte) : 0) {
+        $code_contexte = implode(',', $_contexte);
+    } else {
+        $code_contexte = '';
+    }
+
+    $connect = $p->boucles[$b]->sql_serveur;
+    $pas = $p->boucles[$b]->total_parties;
+    $f_pagination = chercher_filtre('pagination');
+    $type = $p->boucles[$b]->modificateur['debut_nom'];
+    $modif = ($type[0] !== "'") ? "'debut'.$type"
+        : ("'debut" . substr($type, 1));
+
+    $p->code = sprintf(
+        CODE_PAGINATION,
+        $f_pagination,
+        $b,
+        $type,
+        $modif,
+        $pas,
+        $liste,
+        ((isset($__modele) and $__modele) ? $__modele : "''"),
+        _q($connect),
+        $code_contexte
+    );
+
+    $p->boucles[$b]->numrows = true;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -1189,11 +1189,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_ANCRE_PAGINATION_dist($p) {
-	if ($f = charger_fonction('PAGINATION', 'balise', true)) {
-		return $f($p, $liste = 'false');
-	} else {
-		return null;
-	} // ou une erreur ?
+    if ($f = charger_fonction('PAGINATION', 'balise', true)) {
+        return $f($p, $liste = 'false');
+    } else {
+        return null;
+    } // ou une erreur ?
 }
 
 
@@ -1214,17 +1214,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_GRAND_TOTAL_dist($p) {
-	$b = index_boucle_mere($p);
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)";
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -1252,10 +1252,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_SELF_dist($p) {
-	$p->code = 'self()';
-	$p->interdire_scripts = false;
+    $p->code = 'self()';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1282,17 +1282,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CHEMIN_dist($p) {
-	$arg = interprete_argument_balise(1, $p);
-	if (!$arg) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = 'find_in_path(' . $arg . ')';
-	}
+    $arg = interprete_argument_balise(1, $p);
+    if (!$arg) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = 'find_in_path(' . $arg . ')';
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1317,16 +1317,16 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CHEMIN_IMAGE_dist($p) {
-	$arg = interprete_argument_balise(1, $p);
-	if (!$arg) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = 'chemin_image(' . $arg . ')';
-	}
+    $arg = interprete_argument_balise(1, $p);
+    if (!$arg) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = 'chemin_image(' . $arg . ')';
+    }
 
-	$p->interdire_scripts = false;
-	return $p;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1364,36 +1364,36 @@ 
  **/
 function balise_ENV_dist($p, $src = null) {
 
-	// cle du tableau desiree
-	$_nom = interprete_argument_balise(1, $p);
-	// valeur par defaut
-	$_sinon = interprete_argument_balise(2, $p);
+    // cle du tableau desiree
+    $_nom = interprete_argument_balise(1, $p);
+    // valeur par defaut
+    $_sinon = interprete_argument_balise(2, $p);
 
-	// $src est un tableau de donnees sources eventuellement transmis
-	// en absence, on utilise l'environnement du squelette $Pile[0]
+    // $src est un tableau de donnees sources eventuellement transmis
+    // en absence, on utilise l'environnement du squelette $Pile[0]
 
-	if (!$_nom) {
-		// cas de #ENV sans argument : on retourne le serialize() du tableau
-		// une belle fonction [(#ENV|affiche_env)] serait pratique
-		if ($src) {
-			$p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")';
-		} else {
-			$p->code = 'serialize($Pile[0]??[])';
-		}
-	} else {
-		if (!$src) {
-			$src = '$Pile[0]??[]';
-		}
-		if ($_sinon) {
-			$p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)";
-		} else {
-			$p->code = "table_valeur($src, (string)$_nom, null)";
-		}
-	}
+    if (!$_nom) {
+        // cas de #ENV sans argument : on retourne le serialize() du tableau
+        // une belle fonction [(#ENV|affiche_env)] serait pratique
+        if ($src) {
+            $p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")';
+        } else {
+            $p->code = 'serialize($Pile[0]??[])';
+        }
+    } else {
+        if (!$src) {
+            $src = '$Pile[0]??[]';
+        }
+        if ($_sinon) {
+            $p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)";
+        } else {
+            $p->code = "table_valeur($src, (string)$_nom, null)";
+        }
+    }
 
-	#$p->interdire_scripts = true;
+    #$p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1423,16 +1423,16 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_CONFIG_dist($p) {
-	if (!$arg = interprete_argument_balise(1, $p)) {
-		$arg = "''";
-	}
-	$_sinon = interprete_argument_balise(2, $p);
-	$_unserialize = sinon(interprete_argument_balise(3, $p), 'false');
+    if (!$arg = interprete_argument_balise(1, $p)) {
+        $arg = "''";
+    }
+    $_sinon = interprete_argument_balise(2, $p);
+    $_unserialize = sinon(interprete_argument_balise(3, $p), 'false');
 
-	$p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
-		($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
+    $p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
+        ($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
 
-	return $p;
+    return $p;
 }
 
 
@@ -1455,10 +1455,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_CONNECT_dist($p) {
-	$p->code = '($connect ? $connect : NULL)';
-	$p->interdire_scripts = false;
+    $p->code = '($connect ? $connect : NULL)';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1486,15 +1486,15 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  **/
 function balise_SESSION_dist($p) {
-	$p->descr['session'] = true;
+    $p->descr['session'] = true;
 
-	$f = function_exists('balise_ENV')
-		? 'balise_ENV'
-		: 'balise_ENV_dist';
+    $f = function_exists('balise_ENV')
+        ? 'balise_ENV'
+        : 'balise_ENV_dist';
 
-	$p = $f($p, '$GLOBALS["visiteur_session"]??[]');
+    $p = $f($p, '$GLOBALS["visiteur_session"]??[]');
 
-	return $p;
+    return $p;
 }
 
 
@@ -1517,18 +1517,18 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  **/
 function balise_SESSION_SET_dist($p) {
-	$_nom = interprete_argument_balise(1, $p);
-	$_val = interprete_argument_balise(2, $p);
-	if (!$_nom or !$_val) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']];
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))';
-	}
+    $_nom = interprete_argument_balise(1, $p);
+    $_val = interprete_argument_balise(2, $p);
+    if (!$_nom or !$_val) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']];
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))';
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1559,30 +1559,30 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  **/
 function balise_EVAL_dist($p) {
-	$php = interprete_argument_balise(1, $p);
-	if ($php) {
-		# optimisation sur les #EVAL{une expression sans #BALISE}
-		# attention au commentaire "// x signes" qui precede
-		if (
-			preg_match(
-				",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
-				$php,
-				$r
-			)
-		) {
-			$p->code = /* $r[1]. */
-				'(' . $r[2] . ')';
-		} else {
-			$p->code = "eval('return '.$php.';')";
-		}
-	} else {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' EVAL']];
-		erreur_squelette($msg, $p);
-	}
-
-	#$p->interdire_scripts = true;
-
-	return $p;
+    $php = interprete_argument_balise(1, $p);
+    if ($php) {
+        # optimisation sur les #EVAL{une expression sans #BALISE}
+        # attention au commentaire "// x signes" qui precede
+        if (
+            preg_match(
+                ",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
+                $php,
+                $r
+            )
+        ) {
+            $p->code = /* $r[1]. */
+                '(' . $r[2] . ')';
+        } else {
+            $p->code = "eval('return '.$php.';')";
+        }
+    } else {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' EVAL']];
+        erreur_squelette($msg, $p);
+    }
+
+    #$p->interdire_scripts = true;
+
+    return $p;
 }
 
 
@@ -1612,19 +1612,19 @@ 
  **/
 function balise_CHAMP_SQL_dist($p) {
 
-	if (
-		$p->param
-		and isset($p->param[0][1][0])
-		and $champ = ($p->param[0][1][0]->texte)
-	) {
-		$p->code = champ_sql($champ, $p);
-	} else {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => ' CHAMP_SQL']];
-		erreur_squelette($err_b_s_a, $p);
-	}
+    if (
+        $p->param
+        and isset($p->param[0][1][0])
+        and $champ = ($p->param[0][1][0]->texte)
+    ) {
+        $p->code = champ_sql($champ, $p);
+    } else {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => ' CHAMP_SQL']];
+        erreur_squelette($err_b_s_a, $p);
+    }
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -1650,13 +1650,13 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_VAL_dist($p) {
-	$p->code = interprete_argument_balise(1, $p);
-	if ($p->code === null || !strlen($p->code)) {
-		$p->code = "''";
-	}
-	$p->interdire_scripts = false;
+    $p->code = interprete_argument_balise(1, $p);
+    if ($p->code === null || !strlen($p->code)) {
+        $p->code = "''";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1685,10 +1685,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_REM_dist($p) {
-	$p->code = "''";
-	$p->interdire_scripts = false;
+    $p->code = "''";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1698,10 +1698,10 @@ 
  * @return mixed
  */
 function balise_NULL_dist($p) {
-	$p->code = 'null';
-	$p->interdire_scripts = false;
+    $p->code = 'null';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1725,18 +1725,18 @@ 
  **/
 function balise_HTTP_HEADER_dist($p) {
 
-	$header = interprete_argument_balise(1, $p);
-	if (!$header) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'HTTP_HEADER']];
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$p->code = "'<'.'?php header(' . _q("
-			. $header
-			. ") . '); ?'.'>'";
-	}
-	$p->interdire_scripts = false;
+    $header = interprete_argument_balise(1, $p);
+    if (!$header) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'HTTP_HEADER']];
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $p->code = "'<'.'?php header(' . _q("
+            . $header
+            . ") . '); ?'.'>'";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1761,20 +1761,20 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_FILTRE_dist($p) {
-	if ($p->param) {
-		$args = [];
-		foreach ($p->param as $i => $ignore) {
-			$args[] = interprete_argument_balise($i + 1, $p);
-		}
-		$p->code = "'<' . '"
-			. '?php header("X-Spip-Filtre: \'.'
-			. join('.\'|\'.', $args)
-			. " . '\"); ?'.'>'";
+    if ($p->param) {
+        $args = [];
+        foreach ($p->param as $i => $ignore) {
+            $args[] = interprete_argument_balise($i + 1, $p);
+        }
+        $p->code = "'<' . '"
+            . '?php header("X-Spip-Filtre: \'.'
+            . join('.\'|\'.', $args)
+            . " . '\"); ?'.'>'";
 
-		$p->interdire_scripts = false;
+        $p->interdire_scripts = false;
 
-		return $p;
-	}
+        return $p;
+    }
 }
 
 
@@ -1810,55 +1810,55 @@ 
  **/
 function balise_CACHE_dist($p) {
 
-	if ($p->param) {
-		$duree = valeur_numerique($p->param[0][1][0]->texte);
-
-		// noter la duree du cache dans un entete proprietaire
-
-		$code = "'<'.'" . '?php header("X-Spip-Cache: '
-			. $duree
-			. '"); ?' . "'.'>'";
-
-		// Remplir le header Cache-Control
-		// cas #CACHE{0}
-		if ($duree == 0) {
-			$code .= ".'<'.'"
-				. '?php header("Cache-Control: no-cache, must-revalidate"); ?'
-				. "'.'><'.'"
-				. '?php header("Pragma: no-cache"); ?'
-				. "'.'>'";
-		}
-
-		// recuperer les parametres suivants
-		$i = 1;
-		while (isset($p->param[0][++$i])) {
-			$pa = ($p->param[0][$i][0]->texte);
-
-			if (
-				$pa == 'cache-client'
-				and $duree > 0
-			) {
-				$code .= ".'<'.'" . '?php header("Cache-Control: max-age='
-					. $duree
-					. '"); ?' . "'.'>'";
-				// il semble logique, si on cache-client, de ne pas invalider
-				$pa = 'statique';
-			}
-
-			if (
-				$pa == 'statique'
-				and $duree > 0
-			) {
-				$code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'";
-			}
-		}
-	} else {
-		$code = "''";
-	}
-	$p->code = $code;
-	$p->interdire_scripts = false;
-
-	return $p;
+    if ($p->param) {
+        $duree = valeur_numerique($p->param[0][1][0]->texte);
+
+        // noter la duree du cache dans un entete proprietaire
+
+        $code = "'<'.'" . '?php header("X-Spip-Cache: '
+            . $duree
+            . '"); ?' . "'.'>'";
+
+        // Remplir le header Cache-Control
+        // cas #CACHE{0}
+        if ($duree == 0) {
+            $code .= ".'<'.'"
+                . '?php header("Cache-Control: no-cache, must-revalidate"); ?'
+                . "'.'><'.'"
+                . '?php header("Pragma: no-cache"); ?'
+                . "'.'>'";
+        }
+
+        // recuperer les parametres suivants
+        $i = 1;
+        while (isset($p->param[0][++$i])) {
+            $pa = ($p->param[0][$i][0]->texte);
+
+            if (
+                $pa == 'cache-client'
+                and $duree > 0
+            ) {
+                $code .= ".'<'.'" . '?php header("Cache-Control: max-age='
+                    . $duree
+                    . '"); ?' . "'.'>'";
+                // il semble logique, si on cache-client, de ne pas invalider
+                $pa = 'statique';
+            }
+
+            if (
+                $pa == 'statique'
+                and $duree > 0
+            ) {
+                $code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'";
+            }
+        }
+    } else {
+        $code = "''";
+    }
+    $p->code = $code;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -1890,13 +1890,13 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_INSERT_HEAD_dist($p) {
-	$p->code = "'<'.'"
-		. '?php header("X-Spip-Filtre: insert_head_css_conditionnel"); ?'
-		. "'.'>'";
-	$p->code .= ". pipeline('insert_head','<!-- insert_head -->')";
-	$p->interdire_scripts = false;
+    $p->code = "'<'.'"
+        . '?php header("X-Spip-Filtre: insert_head_css_conditionnel"); ?'
+        . "'.'>'";
+    $p->code .= ". pipeline('insert_head','<!-- insert_head -->')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1914,10 +1914,10 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_INSERT_HEAD_CSS_dist($p) {
-	$p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')";
-	$p->interdire_scripts = false;
+    $p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1932,11 +1932,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_INCLUDE_dist($p) {
-	if (function_exists('balise_INCLURE')) {
-		return balise_INCLURE($p);
-	} else {
-		return balise_INCLURE_dist($p);
-	}
+    if (function_exists('balise_INCLURE')) {
+        return balise_INCLURE($p);
+    } else {
+        return balise_INCLURE_dist($p);
+    }
 }
 
 /**
@@ -1970,66 +1970,66 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_INCLURE_dist($p) {
-	$id_boucle = $p->id_boucle;
-	// la lang n'est pas passe de facon automatique par argumenter
-	// mais le sera pas recuperer_fond, sauf si etoile=>true est passe
-	// en option
-
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false);
-
-	// erreur de syntaxe = fond absent
-	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) {
-		$contexte = [];
-	}
-
-	if (isset($_contexte['fond'])) {
-		$f = $_contexte['fond'];
-		// toujours vrai :
-		if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
-			$f = $r[1];
-			unset($_contexte['fond']);
-		} else {
-			spip_log('compilation de #INCLURE a revoir');
-		}
-
-		// #INCLURE{doublons}
-		if (isset($_contexte['doublons'])) {
-			$_contexte['doublons'] = "'doublons' => \$doublons";
-		}
-
-		// Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
-		$flag_env = false;
-		if (isset($_contexte['env']) or isset($_contexte['self'])) {
-			$flag_env = true;
-			unset($_contexte['env']);
-		}
-
-		$_options = [];
-		if (isset($_contexte['ajax'])) {
-			$_options[] = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
-			unset($_contexte['ajax']);
-		}
-		if ($p->etoile) {
-			$_options[] = "'etoile'=>true";
-		}
-		$_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')';
-
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
-		if ($flag_env) {
-			$_l = "array_merge(\$Pile[0],$_l)";
-		}
-
-		$p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',', $_options), "_request('connect') ?? ''");
-	} elseif (!isset($_contexte[1])) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
-	}
-
-	$p->interdire_scripts = false; // la securite est assuree par recuperer_fond
-	return $p;
+    $id_boucle = $p->id_boucle;
+    // la lang n'est pas passe de facon automatique par argumenter
+    // mais le sera pas recuperer_fond, sauf si etoile=>true est passe
+    // en option
+
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false);
+
+    // erreur de syntaxe = fond absent
+    // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
+    if (!$_contexte) {
+        $contexte = [];
+    }
+
+    if (isset($_contexte['fond'])) {
+        $f = $_contexte['fond'];
+        // toujours vrai :
+        if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
+            $f = $r[1];
+            unset($_contexte['fond']);
+        } else {
+            spip_log('compilation de #INCLURE a revoir');
+        }
+
+        // #INCLURE{doublons}
+        if (isset($_contexte['doublons'])) {
+            $_contexte['doublons'] = "'doublons' => \$doublons";
+        }
+
+        // Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
+        $flag_env = false;
+        if (isset($_contexte['env']) or isset($_contexte['self'])) {
+            $flag_env = true;
+            unset($_contexte['env']);
+        }
+
+        $_options = [];
+        if (isset($_contexte['ajax'])) {
+            $_options[] = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
+        if ($p->etoile) {
+            $_options[] = "'etoile'=>true";
+        }
+        $_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')';
+
+        $_l = 'array(' . join(",\n\t", $_contexte) . ')';
+        if ($flag_env) {
+            $_l = "array_merge(\$Pile[0],$_l)";
+        }
+
+        $p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',', $_options), "_request('connect') ?? ''");
+    } elseif (!isset($_contexte[1])) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+    }
+
+    $p->interdire_scripts = false; // la securite est assuree par recuperer_fond
+    return $p;
 }
 
 
@@ -2057,69 +2057,69 @@ 
  **/
 function balise_MODELE_dist($p) {
 
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false);
-
-	// erreur de syntaxe = fond absent
-	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) {
-		$_contexte = [];
-	}
-
-	if (!isset($_contexte[1])) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' MODELE']];
-		erreur_squelette($msg, $p);
-	} else {
-		$nom = $_contexte[1];
-		unset($_contexte[1]);
-
-		if (preg_match("/^\s*'[^']*'/s", $nom)) {
-			$nom = "'modeles/" . substr($nom, 1);
-		} else {
-			$nom = "'modeles/' . $nom";
-		}
-
-		$flag_env = false;
-		if (isset($_contexte['env'])) {
-			$flag_env = true;
-			unset($_contexte['env']);
-		}
-
-		// Incoherence dans la syntaxe du contexte. A revoir.
-		// Reserver la cle primaire de la boucle courante si elle existe
-		if (isset($p->boucles[$p->id_boucle]->primary)) {
-			$primary = $p->boucles[$p->id_boucle]->primary;
-			if (!strpos($primary, ',')) {
-				$id = champ_sql($primary, $p);
-				$_contexte[] = "'$primary'=>" . $id;
-				$_contexte[] = "'id'=>" . $id;
-			}
-		}
-		$_contexte[] = "'recurs'=>(++\$recurs)";
-		$connect = '';
-		if (isset($p->boucles[$p->id_boucle])) {
-			$connect = $p->boucles[$p->id_boucle]->sql_serveur;
-		}
-
-		$_options = memoriser_contexte_compil($p);
-		$_options = "'compil'=>array($_options), 'trim'=>true";
-		if (isset($_contexte['ajax'])) {
-			$_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
-			unset($_contexte['ajax']);
-		}
-
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
-		if ($flag_env) {
-			$_l = "array_merge(\$Pile[0],$_l)";
-		}
-
-		$page = sprintf(CODE_RECUPERER_FOND, $nom, $_l, $_options, _q($connect));
-
-		$p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
-
-		$p->interdire_scripts = false; // securite assuree par le squelette
-	}
-
-	return $p;
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false);
+
+    // erreur de syntaxe = fond absent
+    // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
+    if (!$_contexte) {
+        $_contexte = [];
+    }
+
+    if (!isset($_contexte[1])) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' MODELE']];
+        erreur_squelette($msg, $p);
+    } else {
+        $nom = $_contexte[1];
+        unset($_contexte[1]);
+
+        if (preg_match("/^\s*'[^']*'/s", $nom)) {
+            $nom = "'modeles/" . substr($nom, 1);
+        } else {
+            $nom = "'modeles/' . $nom";
+        }
+
+        $flag_env = false;
+        if (isset($_contexte['env'])) {
+            $flag_env = true;
+            unset($_contexte['env']);
+        }
+
+        // Incoherence dans la syntaxe du contexte. A revoir.
+        // Reserver la cle primaire de la boucle courante si elle existe
+        if (isset($p->boucles[$p->id_boucle]->primary)) {
+            $primary = $p->boucles[$p->id_boucle]->primary;
+            if (!strpos($primary, ',')) {
+                $id = champ_sql($primary, $p);
+                $_contexte[] = "'$primary'=>" . $id;
+                $_contexte[] = "'id'=>" . $id;
+            }
+        }
+        $_contexte[] = "'recurs'=>(++\$recurs)";
+        $connect = '';
+        if (isset($p->boucles[$p->id_boucle])) {
+            $connect = $p->boucles[$p->id_boucle]->sql_serveur;
+        }
+
+        $_options = memoriser_contexte_compil($p);
+        $_options = "'compil'=>array($_options), 'trim'=>true";
+        if (isset($_contexte['ajax'])) {
+            $_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
+
+        $_l = 'array(' . join(",\n\t", $_contexte) . ')';
+        if ($flag_env) {
+            $_l = "array_merge(\$Pile[0],$_l)";
+        }
+
+        $page = sprintf(CODE_RECUPERER_FOND, $nom, $_l, $_options, _q($connect));
+
+        $p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
+
+        $p->interdire_scripts = false; // securite assuree par le squelette
+    }
+
+    return $p;
 }
 
 
@@ -2143,21 +2143,21 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_SET_dist($p) {
-	$_nom = interprete_argument_balise(1, $p);
-	$_val = interprete_argument_balise(2, $p);
+    $_nom = interprete_argument_balise(1, $p);
+    $_val = interprete_argument_balise(2, $p);
 
-	if (!$_nom or !$_val) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SET']];
-		erreur_squelette($err_b_s_a, $p);
-	}
-	// affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
-	// cf https://bugs.php.net/bug.php?id=65845
-	else {
-		$p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
-	}
+    if (!$_nom or !$_val) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SET']];
+        erreur_squelette($err_b_s_a, $p);
+    }
+    // affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
+    // cf https://bugs.php.net/bug.php?id=65845
+    else {
+        $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
+    }
 
-	$p->interdire_scripts = false; // la balise ne renvoie rien
-	return $p;
+    $p->interdire_scripts = false; // la balise ne renvoie rien
+    return $p;
 }
 
 
@@ -2187,12 +2187,12 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_GET_dist($p) {
-	$p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance
-	if (function_exists('balise_ENV')) {
-		return balise_ENV($p, '$Pile["vars"]??[]');
-	} else {
-		return balise_ENV_dist($p, '$Pile["vars"]??[]');
-	}
+    $p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance
+    if (function_exists('balise_ENV')) {
+        return balise_ENV($p, '$Pile["vars"]??[]');
+    } else {
+        return balise_ENV_dist($p, '$Pile["vars"]??[]');
+    }
 }
 
 
@@ -2215,22 +2215,22 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_DOUBLONS_dist($p) {
-	if ($type = interprete_argument_balise(1, $p)) {
-		if ($famille = interprete_argument_balise(2, $p)) {
-			$type .= '.' . $famille;
-		}
-		$p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")';
-		if (!$p->etoile) {
-			$p->code = 'array_filter(array_map("intval",explode(",",'
-				. $p->code . ')))';
-		}
-	} else {
-		$p->code = '$doublons';
-	}
+    if ($type = interprete_argument_balise(1, $p)) {
+        if ($famille = interprete_argument_balise(2, $p)) {
+            $type .= '.' . $famille;
+        }
+        $p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")';
+        if (!$p->etoile) {
+            $p->code = 'array_filter(array_map("intval",explode(",",'
+                . $p->code . ')))';
+        }
+    } else {
+        $p->code = '$doublons';
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2253,18 +2253,18 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_PIPELINE_dist($p) {
-	$_pipe = interprete_argument_balise(1, $p);
-	if (!$_pipe) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']];
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$_flux = interprete_argument_balise(2, $p);
-		$_flux = $_flux ?: "''";
-		$p->code = "pipeline( $_pipe , $_flux )";
-		$p->interdire_scripts = false;
-	}
+    $_pipe = interprete_argument_balise(1, $p);
+    if (!$_pipe) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']];
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $_flux = interprete_argument_balise(2, $p);
+        $_flux = $_flux ?: "''";
+        $p->code = "pipeline( $_pipe , $_flux )";
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -2289,10 +2289,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_EDIT_dist($p) {
-	$p->code = "''";
-	$p->interdire_scripts = false;
+    $p->code = "''";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2315,11 +2315,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_TOTAL_UNIQUE_dist($p) {
-	$_famille = interprete_argument_balise(1, $p);
-	$_famille = $_famille ?: "''";
-	$p->code = "unique('', $_famille, true)";
+    $_famille = interprete_argument_balise(1, $p);
+    $_famille = $_famille ?: "''";
+    $p->code = "unique('', $_famille, true)";
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2342,19 +2342,19 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_ARRAY_dist($p) {
-	$_code = [];
-	$n = 1;
-	do {
-		$_key = interprete_argument_balise($n++, $p);
-		$_val = interprete_argument_balise($n++, $p);
-		if ($_key and $_val) {
-			$_code[] = "$_key => $_val";
-		}
-	} while ($_key && $_val);
-	$p->code = 'array(' . join(', ', $_code) . ')';
-	$p->interdire_scripts = false;
+    $_code = [];
+    $n = 1;
+    do {
+        $_key = interprete_argument_balise($n++, $p);
+        $_val = interprete_argument_balise($n++, $p);
+        if ($_key and $_val) {
+            $_code[] = "$_key => $_val";
+        }
+    } while ($_key && $_val);
+    $p->code = 'array(' . join(', ', $_code) . ')';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2373,15 +2373,15 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_LISTE_dist($p) {
-	$_code = [];
-	$n = 1;
-	while ($_val = interprete_argument_balise($n++, $p)) {
-		$_code[] = $_val;
-	}
-	$p->code = 'array(' . join(', ', $_code) . ')';
-	$p->interdire_scripts = false;
+    $_code = [];
+    $n = 1;
+    while ($_val = interprete_argument_balise($n++, $p)) {
+        $_code[] = $_val;
+    }
+    $p->code = 'array(' . join(', ', $_code) . ')';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2415,21 +2415,21 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_AUTORISER_dist($p) {
-	$_code = [];
-	$p->descr['session'] = true; // faire un cache par session
+    $_code = [];
+    $p->descr['session'] = true; // faire un cache par session
 
-	$n = 1;
-	while ($_v = interprete_argument_balise($n++, $p)) {
-		$_code[] = $_v;
-	}
+    $n = 1;
+    while ($_v = interprete_argument_balise($n++, $p)) {
+        $_code[] = $_v;
+    }
 
-	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(
-		', ',
-		$_code
-	) . ')?" ":"")';
-	$p->interdire_scripts = false;
+    $p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(
+        ', ',
+        $_code
+    ) . ')?" ":"")';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2453,15 +2453,15 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_PLUGIN_dist($p) {
-	$plugin = interprete_argument_balise(1, $p);
-	$plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""';
-	$type_info = interprete_argument_balise(2, $p);
-	$type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
+    $plugin = interprete_argument_balise(1, $p);
+    $plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""';
+    $type_info = interprete_argument_balise(2, $p);
+    $type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
 
-	$f = chercher_filtre('info_plugin');
-	$p->code = $f . '(' . $plugin . ', ' . $type_info . ')';
+    $f = chercher_filtre('info_plugin');
+    $p->code = $f . '(' . $plugin . ', ' . $type_info . ')';
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2482,9 +2482,9 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_AIDER_dist($p) {
-	$_motif = interprete_argument_balise(1, $p);
-	$p->code = "((\$aider=charger_fonction('aide','inc',true))?\$aider($_motif):'')";
-	return $p;
+    $_motif = interprete_argument_balise(1, $p);
+    $p->code = "((\$aider=charger_fonction('aide','inc',true))?\$aider($_motif):'')";
+    return $p;
 }
 
 /**
@@ -2510,16 +2510,16 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_ACTION_FORMULAIRE($p) {
-	if (!$_url = interprete_argument_balise(1, $p)) {
-		$_url = "(\$Pile[0]['action'] ?? '')";
-	}
-	if (!$_form = interprete_argument_balise(2, $p)) {
-		$_form = "(\$Pile[0]['form'] ?? '')";
-	}
-
-	// envoyer le nom du formulaire que l'on traite
-	// transmettre les eventuels args de la balise formulaire
-	$p->code = "	'<span class=\"form-hidden\">' .
+    if (!$_url = interprete_argument_balise(1, $p)) {
+        $_url = "(\$Pile[0]['action'] ?? '')";
+    }
+    if (!$_form = interprete_argument_balise(2, $p)) {
+        $_form = "(\$Pile[0]['form'] ?? '')";
+    }
+
+    // envoyer le nom du formulaire que l'on traite
+    // transmettre les eventuels args de la balise formulaire
+    $p->code = "	'<span class=\"form-hidden\">' .
 	form_hidden($_url) .
 	'<input name=\'formulaire_action\' type=\'hidden\'
 		value=\'' . $_form . '\' />' .
@@ -2530,9 +2530,9 @@ 
 	(\$Pile[0]['_hidden'] ?? '') .
 	'</span>'";
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2573,25 +2573,25 @@ 
  */
 function balise_BOUTON_ACTION_dist($p) {
 
-	$args = [];
-	for ($k = 1; $k <= 6; $k++) {
-		$_a = interprete_argument_balise($k, $p);
-		if (!$_a) {
-			$_a = "''";
-		}
-		$args[] = $_a;
-	}
-	// supprimer les args vides
-	while (end($args) == "''" and count($args) > 2) {
-		array_pop($args);
-	}
-	$args = implode(',', $args);
+    $args = [];
+    for ($k = 1; $k <= 6; $k++) {
+        $_a = interprete_argument_balise($k, $p);
+        if (!$_a) {
+            $_a = "''";
+        }
+        $args[] = $_a;
+    }
+    // supprimer les args vides
+    while (end($args) == "''" and count($args) > 2) {
+        array_pop($args);
+    }
+    $args = implode(',', $args);
 
-	$bouton_action = chercher_filtre('bouton_action');
-	$p->code = "$bouton_action($args)";
-	$p->interdire_scripts = false;
+    $bouton_action = chercher_filtre('bouton_action');
+    $p->code = "$bouton_action($args)";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2610,10 +2610,10 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_SLOGAN_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['slogan_site']";
+    $p->code = "\$GLOBALS['meta']['slogan_site']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 
@@ -2637,10 +2637,10 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_HTML5_dist($p) {
-	$p->code = html5_permis() ? "' '" : "''";
-	$p->interdire_scripts = false;
+    $p->code = html5_permis() ? "' '" : "''";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2666,61 +2666,61 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_TRI_dist($p, $liste = 'true') {
-	$b = index_boucle_mere($p);
-	// s'il n'y a pas de nom de boucle, on ne peut pas trier
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-		$p->code = "''";
+    $b = index_boucle_mere($p);
+    // s'il n'y a pas de nom de boucle, on ne peut pas trier
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+        $p->code = "''";
 
-		return $p;
-	}
-	$boucle = $p->boucles[$b];
+        return $p;
+    }
+    $boucle = $p->boucles[$b];
 
-	// s'il n'y a pas de tri_champ, c'est qu'on se trouve
-	// dans un boucle recursive ou qu'on a oublie le critere {tri}
-	if (!isset($boucle->modificateur['tri_champ'])) {
-		$msg = ['zbug_champ_hors_critere', [
-			'champ' => zbug_presenter_champ($p),
-			'critere' => 'tri'
-		]];
-		erreur_squelette($msg, $p);
-		$p->code = "''";
+    // s'il n'y a pas de tri_champ, c'est qu'on se trouve
+    // dans un boucle recursive ou qu'on a oublie le critere {tri}
+    if (!isset($boucle->modificateur['tri_champ'])) {
+        $msg = ['zbug_champ_hors_critere', [
+            'champ' => zbug_presenter_champ($p),
+            'critere' => 'tri'
+        ]];
+        erreur_squelette($msg, $p);
+        $p->code = "''";
 
-		return $p;
-	}
+        return $p;
+    }
 
-	$_champ = interprete_argument_balise(1, $p);
-	// si pas de champ, renvoyer le critere de tri utilise
-	if (!$_champ) {
-		$p->code = $boucle->modificateur['tri_champ'];
+    $_champ = interprete_argument_balise(1, $p);
+    // si pas de champ, renvoyer le critere de tri utilise
+    if (!$_champ) {
+        $p->code = $boucle->modificateur['tri_champ'];
 
-		return $p;
-	}
-	// forcer la jointure si besoin, et si le champ est statique
-	if (preg_match(",^'([\w.]+)'$,i", $_champ, $m)) {
-		index_pile($b, $m[1], $p->boucles, '', null, true, false);
-	}
+        return $p;
+    }
+    // forcer la jointure si besoin, et si le champ est statique
+    if (preg_match(",^'([\w.]+)'$,i", $_champ, $m)) {
+        index_pile($b, $m[1], $p->boucles, '', null, true, false);
+    }
 
-	$_libelle = interprete_argument_balise(2, $p);
-	$_libelle = $_libelle ?: $_champ;
+    $_libelle = interprete_argument_balise(2, $p);
+    $_libelle = $_libelle ?: $_champ;
 
-	$_class = interprete_argument_balise(3, $p);
-	// si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1
-	// si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1
-	$_issens = "in_array($_champ,array('>','<'))";
-	$_sens = "(strpos('< >',$_champ)-1)";
+    $_class = interprete_argument_balise(3, $p);
+    // si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1
+    // si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1
+    $_issens = "in_array($_champ,array('>','<'))";
+    $_sens = "(strpos('< >',$_champ)-1)";
 
-	$_variable = "((\$s=$_issens)?'sens':'tri')." . $boucle->modificateur['tri_nom'];
-	$_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)";
-	$_url = "parametre_url($_url,'var_memotri',strncmp(" . $boucle->modificateur['tri_nom'] . ",'session',7)==0?$_variable:'')";
-	$_on = '$s?(' . $boucle->modificateur['tri_sens'] . "==$_sens" . '):(' . $boucle->modificateur['tri_champ'] . "==$_champ)";
+    $_variable = "((\$s=$_issens)?'sens':'tri')." . $boucle->modificateur['tri_nom'];
+    $_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)";
+    $_url = "parametre_url($_url,'var_memotri',strncmp(" . $boucle->modificateur['tri_nom'] . ",'session',7)==0?$_variable:'')";
+    $_on = '$s?(' . $boucle->modificateur['tri_sens'] . "==$_sens" . '):(' . $boucle->modificateur['tri_champ'] . "==$_champ)";
 
-	$p->code = "lien_ou_expose($_url,$_libelle,$_on" . ($_class ? ",$_class" : '') . ')';
-	//$p->code = "''";
-	$p->interdire_scripts = false;
+    $p->code = "lien_ou_expose($_url,$_libelle,$_on" . ($_class ? ",$_class" : '') . ')';
+    //$p->code = "''";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2741,21 +2741,21 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_SAUTER_dist($p) {
-	$id_boucle = $p->id_boucle;
+    $id_boucle = $p->id_boucle;
 
-	if (empty($p->boucles[$id_boucle])) {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => '#SAUTER']];
-		erreur_squelette($msg, $p);
-	} else {
-		$_saut = interprete_argument_balise(1, $p);
-		$_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
-		$_total = "(\$Numrows['$id_boucle']['total'] ?? null)";
+    if (empty($p->boucles[$id_boucle])) {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => '#SAUTER']];
+        erreur_squelette($msg, $p);
+    } else {
+        $_saut = interprete_argument_balise(1, $p);
+        $_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
+        $_total = "(\$Numrows['$id_boucle']['total'] ?? null)";
 
-		$p->code = "vide($_compteur=\$iter->skip($_saut,$_total))";
-	}
-	$p->interdire_scripts = false;
+        $p->code = "vide($_compteur=\$iter->skip($_saut,$_total))";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2777,22 +2777,22 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_PUBLIE_dist($p) {
-	if (!$_type = interprete_argument_balise(1, $p)) {
-		$_type = _q($p->type_requete);
-		$_id = champ_sql($p->boucles[$p->id_boucle]->primary, $p);
-	} else {
-		$_id = interprete_argument_balise(2, $p);
-	}
+    if (!$_type = interprete_argument_balise(1, $p)) {
+        $_type = _q($p->type_requete);
+        $_id = champ_sql($p->boucles[$p->id_boucle]->primary, $p);
+    } else {
+        $_id = interprete_argument_balise(2, $p);
+    }
 
-	$connect = '';
-	if (isset($p->boucles[$p->id_boucle])) {
-		$connect = $p->boucles[$p->id_boucle]->sql_serveur;
-	}
+    $connect = '';
+    if (isset($p->boucles[$p->id_boucle])) {
+        $connect = $p->boucles[$p->id_boucle]->sql_serveur;
+    }
 
-	$p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')";
-	$p->interdire_scripts = false;
+    $p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2821,12 +2821,12 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_PRODUIRE_dist($p) {
-	$balise_inclure = charger_fonction('INCLURE', 'balise');
-	$p = $balise_inclure($p);
+    $balise_inclure = charger_fonction('INCLURE', 'balise');
+    $p = $balise_inclure($p);
 
-	$p->code = str_replace('recuperer_fond(', 'produire_fond_statique(', $p->code);
+    $p->code = str_replace('recuperer_fond(', 'produire_fond_statique(', $p->code);
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2845,13 +2845,13 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_LARGEUR_ECRAN_dist($p) {
-	$_class = interprete_argument_balise(1, $p);
-	if (!$_class) {
-		$_class = 'null';
-	}
-	$p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
+    $_class = interprete_argument_balise(1, $p);
+    if (!$_class) {
+        $_class = 'null';
+    }
+    $p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
 
-	return $p;
+    return $p;
 }
 
 
@@ -2867,14 +2867,14 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CONST_dist($p) {
-	$_const = interprete_argument_balise(1, $p);
-	if (!strlen($_const)) {
-		$p->code = "''";
-	}
-	else {
-		$p->code = "(defined($_const)?constant($_const):'')";
-	}
-	$p->interdire_scripts = false;
-
-	return $p;
+    $_const = interprete_argument_balise(1, $p);
+    if (!strlen($_const)) {
+        $p->code = "''";
+    }
+    else {
+        $p->code = "(defined($_const)?constant($_const):'')";
+    }
+    $p->interdire_scripts = false;
+
+    return $p;
 }

ecrire/public/cacher.php

Indentation +320 added lines, -320 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -27,9 +27,9 @@ 
  * @return string
  */
 function generer_nom_fichier_cache($contexte, $page) {
-	$u = md5(var_export([$contexte, $page], true));
+    $u = md5(var_export([$contexte, $page], true));
 
-	return $u . '.cache';
+    return $u . '.cache';
 }
 
 /**
@@ -45,26 +45,26 @@ 
  * @return string
  */
 function cache_chemin_fichier($nom_cache, $ecrire = false) {
-	static $l1, $l2;
-	if (is_null($l1)) {
-		$length = (defined('_CACHE_PROFONDEUR_STOCKAGE') ? min(8, max(_CACHE_PROFONDEUR_STOCKAGE, 2)) : 4);
-		$l1 = intval(floor($length / 2));
-		$l2 = $length - $l1;
-	}
-	$d = substr($nom_cache, 0, $l1);
-	$u = substr($nom_cache, $l1, $l2);
-
-	if ($ecrire) {
-		$rep = sous_repertoire(_DIR_CACHE, '', false, true);
-		$rep = sous_repertoire($rep, 'calcul/', false, true);
-		$rep = sous_repertoire($rep, $d, false, true);
-	}
-	else {
-		// en lecture on essaye pas de creer les repertoires, on va au plus vite
-		$rep = _DIR_CACHE . "calcul/$d/";
-	}
-
-	return $rep . $u . '.cache';
+    static $l1, $l2;
+    if (is_null($l1)) {
+        $length = (defined('_CACHE_PROFONDEUR_STOCKAGE') ? min(8, max(_CACHE_PROFONDEUR_STOCKAGE, 2)) : 4);
+        $l1 = intval(floor($length / 2));
+        $l2 = $length - $l1;
+    }
+    $d = substr($nom_cache, 0, $l1);
+    $u = substr($nom_cache, $l1, $l2);
+
+    if ($ecrire) {
+        $rep = sous_repertoire(_DIR_CACHE, '', false, true);
+        $rep = sous_repertoire($rep, 'calcul/', false, true);
+        $rep = sous_repertoire($rep, $d, false, true);
+    }
+    else {
+        // en lecture on essaye pas de creer les repertoires, on va au plus vite
+        $rep = _DIR_CACHE . "calcul/$d/";
+    }
+
+    return $rep . $u . '.cache';
 }
 
 /**
@@ -75,7 +75,7 @@ 
  * @return bool
  */
 function ecrire_cache($nom_cache, $valeur) {
-	return ecrire_fichier(cache_chemin_fichier($nom_cache, true), serialize(['nom_cache' => $nom_cache, 'valeur' => $valeur]));
+    return ecrire_fichier(cache_chemin_fichier($nom_cache, true), serialize(['nom_cache' => $nom_cache, 'valeur' => $valeur]));
 }
 
 /**
@@ -85,38 +85,38 @@ 
  * @return mixed
  */
 function lire_cache($nom_cache) {
-	$tmp = [];
-	if (
-		file_exists($f = cache_chemin_fichier($nom_cache))
-		and lire_fichier($f, $tmp)
-		and $tmp = unserialize($tmp)
-		and $tmp['nom_cache'] == $nom_cache
-		and isset($tmp['valeur'])
-	) {
-		return $tmp['valeur'];
-	}
-
-	return false;
+    $tmp = [];
+    if (
+        file_exists($f = cache_chemin_fichier($nom_cache))
+        and lire_fichier($f, $tmp)
+        and $tmp = unserialize($tmp)
+        and $tmp['nom_cache'] == $nom_cache
+        and isset($tmp['valeur'])
+    ) {
+        return $tmp['valeur'];
+    }
+
+    return false;
 }
 
 // Parano : on signe le cache, afin d'interdire un hack d'injection
 // dans notre memcache
 function cache_signature(&$page) {
-	if (!isset($GLOBALS['meta']['cache_signature'])) {
-		include_spip('inc/acces');
-		include_spip('auth/sha256.inc');
-		ecrire_meta(
-			'cache_signature',
-			spip_sha256(
-				$_SERVER['DOCUMENT_ROOT']
-				. ($_SERVER['SERVER_SIGNATURE'] ?? '')
-				. creer_uniqid()
-			),
-			'non'
-		);
-	}
-
-	return crc32($GLOBALS['meta']['cache_signature'] . $page['texte']);
+    if (!isset($GLOBALS['meta']['cache_signature'])) {
+        include_spip('inc/acces');
+        include_spip('auth/sha256.inc');
+        ecrire_meta(
+            'cache_signature',
+            spip_sha256(
+                $_SERVER['DOCUMENT_ROOT']
+                . ($_SERVER['SERVER_SIGNATURE'] ?? '')
+                . creer_uniqid()
+            ),
+            'non'
+        );
+    }
+
+    return crc32($GLOBALS['meta']['cache_signature'] . $page['texte']);
 }
 
 /**
@@ -130,14 +130,14 @@ 
  * @return array
  */
 function gzip_page($page) {
-	if (function_exists('gzcompress') and strlen($page['texte']) > 16 * 1024) {
-		$page['gz'] = true;
-		$page['texte'] = gzcompress($page['texte']);
-	} else {
-		$page['gz'] = false;
-	}
-
-	return $page;
+    if (function_exists('gzcompress') and strlen($page['texte']) > 16 * 1024) {
+        $page['gz'] = true;
+        $page['texte'] = gzcompress($page['texte']);
+    } else {
+        $page['gz'] = false;
+    }
+
+    return $page;
 }
 
 /**
@@ -152,10 +152,10 @@ 
  * @return void
  */
 function gunzip_page(&$page) {
-	if ($page['gz']) {
-		$page['texte'] = gzuncompress($page['texte']);
-		$page['gz'] = false; // ne pas gzuncompress deux fois une meme page
-	}
+    if ($page['gz']) {
+        $page['texte'] = gzuncompress($page['texte']);
+        $page['gz'] = false; // ne pas gzuncompress deux fois une meme page
+    }
 }
 
 /**
@@ -171,72 +171,72 @@ 
  */
 /// https://code.spip.net/@cache_valide
 function cache_valide(&$page, $date) {
-	$now = $_SERVER['REQUEST_TIME'];
-
-	// Apparition d'un nouvel article post-date ?
-	if (
-		isset($GLOBALS['meta']['post_dates'])
-		and $GLOBALS['meta']['post_dates'] == 'non'
-		and isset($GLOBALS['meta']['date_prochain_postdate'])
-		and $now > $GLOBALS['meta']['date_prochain_postdate']
-	) {
-		spip_log('Un article post-date invalide le cache');
-		include_spip('inc/rubriques');
-		calculer_prochain_postdate(true);
-	}
-
-	if (defined('_VAR_NOCACHE') and _VAR_NOCACHE) {
-		return -1;
-	}
-	if (isset($GLOBALS['meta']['cache_inhib']) and $_SERVER['REQUEST_TIME'] < $GLOBALS['meta']['cache_inhib']) {
-		return -1;
-	}
-	if (defined('_NO_CACHE')) {
-		return (_NO_CACHE == 0 and !isset($page['texte'])) ? 1 : _NO_CACHE;
-	}
-
-	// pas de cache ? on le met a jour, sauf pour les bots (on leur calcule la page sans mise en cache)
-	if (!$page or !isset($page['texte']) or !isset($page['entetes']['X-Spip-Cache'])) {
-		return _IS_BOT ? -1 : 1;
-	}
-
-	// controle de la signature
-	if ($page['sig'] !== cache_signature($page)) {
-		return _IS_BOT ? -1 : 1;
-	}
-
-	// #CACHE{n,statique} => on n'invalide pas avec derniere_modif
-	// cf. ecrire/public/balises.php, balise_CACHE_dist()
-	if (!isset($page['entetes']['X-Spip-Statique']) or $page['entetes']['X-Spip-Statique'] !== 'oui') {
-		// Cache invalide par la meta 'derniere_modif'
-		// sauf pour les bots, qui utilisent toujours le cache
-		if (
-			!_IS_BOT
-			and $GLOBALS['derniere_modif_invalide']
-			and isset($GLOBALS['meta']['derniere_modif'])
-			and $date < $GLOBALS['meta']['derniere_modif']
-		) {
-			return 1;
-		}
-	}
-
-	// Sinon comparer l'age du fichier a sa duree de cache
-	$duree = intval($page['entetes']['X-Spip-Cache']);
-	$cache_mark = ($GLOBALS['meta']['cache_mark'] ?? 0);
-	if ($duree == 0) {  #CACHE{0}
-	return -1;
-	} // sauf pour les bots, qui utilisent toujours le cache
-	else {
-		if (
-			(!_IS_BOT and $date + $duree < $now)
-			# le cache est anterieur a la derniere purge : l'ignorer, meme pour les bots
-			or $date < $cache_mark
-		) {
-			return _IS_BOT ? -1 : 1;
-		} else {
-			return 0;
-		}
-	}
+    $now = $_SERVER['REQUEST_TIME'];
+
+    // Apparition d'un nouvel article post-date ?
+    if (
+        isset($GLOBALS['meta']['post_dates'])
+        and $GLOBALS['meta']['post_dates'] == 'non'
+        and isset($GLOBALS['meta']['date_prochain_postdate'])
+        and $now > $GLOBALS['meta']['date_prochain_postdate']
+    ) {
+        spip_log('Un article post-date invalide le cache');
+        include_spip('inc/rubriques');
+        calculer_prochain_postdate(true);
+    }
+
+    if (defined('_VAR_NOCACHE') and _VAR_NOCACHE) {
+        return -1;
+    }
+    if (isset($GLOBALS['meta']['cache_inhib']) and $_SERVER['REQUEST_TIME'] < $GLOBALS['meta']['cache_inhib']) {
+        return -1;
+    }
+    if (defined('_NO_CACHE')) {
+        return (_NO_CACHE == 0 and !isset($page['texte'])) ? 1 : _NO_CACHE;
+    }
+
+    // pas de cache ? on le met a jour, sauf pour les bots (on leur calcule la page sans mise en cache)
+    if (!$page or !isset($page['texte']) or !isset($page['entetes']['X-Spip-Cache'])) {
+        return _IS_BOT ? -1 : 1;
+    }
+
+    // controle de la signature
+    if ($page['sig'] !== cache_signature($page)) {
+        return _IS_BOT ? -1 : 1;
+    }
+
+    // #CACHE{n,statique} => on n'invalide pas avec derniere_modif
+    // cf. ecrire/public/balises.php, balise_CACHE_dist()
+    if (!isset($page['entetes']['X-Spip-Statique']) or $page['entetes']['X-Spip-Statique'] !== 'oui') {
+        // Cache invalide par la meta 'derniere_modif'
+        // sauf pour les bots, qui utilisent toujours le cache
+        if (
+            !_IS_BOT
+            and $GLOBALS['derniere_modif_invalide']
+            and isset($GLOBALS['meta']['derniere_modif'])
+            and $date < $GLOBALS['meta']['derniere_modif']
+        ) {
+            return 1;
+        }
+    }
+
+    // Sinon comparer l'age du fichier a sa duree de cache
+    $duree = intval($page['entetes']['X-Spip-Cache']);
+    $cache_mark = ($GLOBALS['meta']['cache_mark'] ?? 0);
+    if ($duree == 0) {  #CACHE{0}
+    return -1;
+    } // sauf pour les bots, qui utilisent toujours le cache
+    else {
+        if (
+            (!_IS_BOT and $date + $duree < $now)
+            # le cache est anterieur a la derniere purge : l'ignorer, meme pour les bots
+            or $date < $cache_mark
+        ) {
+            return _IS_BOT ? -1 : 1;
+        } else {
+            return 0;
+        }
+    }
 }
 
 /**
@@ -251,59 +251,59 @@ 
  */
 function creer_cache(&$page, &$chemin_cache) {
 
-	// Ne rien faire si on est en preview, debug, ou si une erreur
-	// grave s'est presentee (compilation du squelette, MySQL, etc)
-	// le cas var_nocache ne devrait jamais arriver ici (securite)
-	// le cas spip_interdire_cache correspond a une ereur SQL grave non anticipable
-	if (
-		(defined('_VAR_NOCACHE') and _VAR_NOCACHE)
-		or defined('spip_interdire_cache')
-	) {
-		return;
-	}
-
-	// Si la page c1234 a un invalideur de session 'zz', sauver dans
-	// 'tmp/cache/MD5(chemin_cache)_zz'
-	if (
-		isset($page['invalideurs'])
-		and isset($page['invalideurs']['session'])
-	) {
-		// on verifie que le contenu du chemin cache indique seulement
-		// "cache sessionne" ; sa date indique la date de validite
-		// des caches sessionnes
-		if (!$tmp = lire_cache($chemin_cache)) {
-			spip_log('Creation cache sessionne ' . $chemin_cache);
-			$tmp = [
-				'invalideurs' => ['session' => ''],
-				'lastmodified' => $_SERVER['REQUEST_TIME']
-			];
-			ecrire_cache($chemin_cache, $tmp);
-		}
-		$chemin_cache = generer_nom_fichier_cache(
-			['chemin_cache' => $chemin_cache],
-			['session' => $page['invalideurs']['session']]
-		);
-	}
-
-	// ajouter la date de production dans le cache lui meme
-	// (qui contient deja sa duree de validite)
-	$page['lastmodified'] = $_SERVER['REQUEST_TIME'];
-
-	// compresser le contenu si besoin
-	$pagez = gzip_page($page);
-
-	// signer le contenu
-	$pagez['sig'] = cache_signature($pagez);
-
-	// l'enregistrer, compresse ou non...
-	$ok = ecrire_cache($chemin_cache, $pagez);
-
-	spip_log((_IS_BOT ? 'Bot:' : '') . "Creation du cache $chemin_cache pour "
-		. $page['entetes']['X-Spip-Cache'] . ' secondes' . ($ok ? '' : ' (erreur!)'), _LOG_INFO);
-
-	// Inserer ses invalideurs
-	include_spip('inc/invalideur');
-	maj_invalideurs($chemin_cache, $page);
+    // Ne rien faire si on est en preview, debug, ou si une erreur
+    // grave s'est presentee (compilation du squelette, MySQL, etc)
+    // le cas var_nocache ne devrait jamais arriver ici (securite)
+    // le cas spip_interdire_cache correspond a une ereur SQL grave non anticipable
+    if (
+        (defined('_VAR_NOCACHE') and _VAR_NOCACHE)
+        or defined('spip_interdire_cache')
+    ) {
+        return;
+    }
+
+    // Si la page c1234 a un invalideur de session 'zz', sauver dans
+    // 'tmp/cache/MD5(chemin_cache)_zz'
+    if (
+        isset($page['invalideurs'])
+        and isset($page['invalideurs']['session'])
+    ) {
+        // on verifie que le contenu du chemin cache indique seulement
+        // "cache sessionne" ; sa date indique la date de validite
+        // des caches sessionnes
+        if (!$tmp = lire_cache($chemin_cache)) {
+            spip_log('Creation cache sessionne ' . $chemin_cache);
+            $tmp = [
+                'invalideurs' => ['session' => ''],
+                'lastmodified' => $_SERVER['REQUEST_TIME']
+            ];
+            ecrire_cache($chemin_cache, $tmp);
+        }
+        $chemin_cache = generer_nom_fichier_cache(
+            ['chemin_cache' => $chemin_cache],
+            ['session' => $page['invalideurs']['session']]
+        );
+    }
+
+    // ajouter la date de production dans le cache lui meme
+    // (qui contient deja sa duree de validite)
+    $page['lastmodified'] = $_SERVER['REQUEST_TIME'];
+
+    // compresser le contenu si besoin
+    $pagez = gzip_page($page);
+
+    // signer le contenu
+    $pagez['sig'] = cache_signature($pagez);
+
+    // l'enregistrer, compresse ou non...
+    $ok = ecrire_cache($chemin_cache, $pagez);
+
+    spip_log((_IS_BOT ? 'Bot:' : '') . "Creation du cache $chemin_cache pour "
+        . $page['entetes']['X-Spip-Cache'] . ' secondes' . ($ok ? '' : ' (erreur!)'), _LOG_INFO);
+
+    // Inserer ses invalideurs
+    include_spip('inc/invalideur');
+    maj_invalideurs($chemin_cache, $page);
 }
 
 
@@ -318,15 +318,15 @@ 
  * @return void
  */
 function nettoyer_petit_cache($prefix, $duree = 300) {
-	// determiner le repertoire a purger : 'tmp/CACHE/rech/'
-	$dircache = sous_repertoire(_DIR_CACHE, $prefix);
-	if (spip_touch($dircache . 'purger_' . $prefix, $duree, true)) {
-		foreach (preg_files($dircache, '[.]txt$') as $f) {
-			if ($_SERVER['REQUEST_TIME'] - (@file_exists($f) ? @filemtime($f) : 0) > $duree) {
-				spip_unlink($f);
-			}
-		}
-	}
+    // determiner le repertoire a purger : 'tmp/CACHE/rech/'
+    $dircache = sous_repertoire(_DIR_CACHE, $prefix);
+    if (spip_touch($dircache . 'purger_' . $prefix, $duree, true)) {
+        foreach (preg_files($dircache, '[.]txt$') as $f) {
+            if ($_SERVER['REQUEST_TIME'] - (@file_exists($f) ? @filemtime($f) : 0) > $duree) {
+                spip_unlink($f);
+            }
+        }
+    }
 }
 
 
@@ -356,133 +356,133 @@ 
  */
 function public_cacher_dist($contexte, &$use_cache, &$chemin_cache, &$page, &$lastmodified) {
 
-	# fonction de cache minimale : dire "non on ne met rien en cache"
-	# $use_cache = -1; return;
-
-	// Second appel, destine a l'enregistrement du cache sur le disque
-	if (isset($chemin_cache)) {
-		return creer_cache($page, $chemin_cache);
-	}
-
-	// Toute la suite correspond au premier appel
-	$contexte_implicite = $page['contexte_implicite'];
-
-	// Cas ignorant le cache car completement dynamique
-	if (
-		(!empty($_SERVER['REQUEST_METHOD']) and $_SERVER['REQUEST_METHOD'] === 'POST')
-		or _request('connect')
-	) {
-		$use_cache = -1;
-		$lastmodified = 0;
-		$chemin_cache = '';
-		$page = [];
-
-		return;
-	}
-
-	// Controler l'existence d'un cache nous correspondant
-	$chemin_cache = generer_nom_fichier_cache($contexte, $page);
-	$lastmodified = 0;
-
-	// charger le cache s'il existe (et si il a bien le bon hash = anticollision)
-	if (!$page = lire_cache($chemin_cache)) {
-		$page = [];
-	}
-
-	// s'il est sessionne, charger celui correspondant a notre session
-	if (
-		isset($page['invalideurs'])
-		and isset($page['invalideurs']['session'])
-	) {
-		$chemin_cache_session = generer_nom_fichier_cache(
-			['chemin_cache' => $chemin_cache],
-			['session' => spip_session()]
-		);
-		if (
-			$page_session = lire_cache($chemin_cache_session)
-			and $page_session['lastmodified'] >= $page['lastmodified']
-		) {
-			$page = $page_session;
-		} else {
-			$page = [];
-		}
-	}
-
-
-	// Faut-il effacer des pages invalidees (en particulier ce cache-ci) ?
-	if (isset($GLOBALS['meta']['invalider'])) {
-		// ne le faire que si la base est disponible
-		if (spip_connect()) {
-			include_spip('inc/invalideur');
-			retire_caches($chemin_cache); # API invalideur inutile
-			supprimer_fichier(_DIR_CACHE . $chemin_cache);
-			if (isset($chemin_cache_session) and $chemin_cache_session) {
-				supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
-			}
-		}
-	}
-
-	// Si un calcul, recalcul [ou preview, mais c'est recalcul] est demande,
-	// on supprime le cache
-	if (
-		defined('_VAR_MODE') &&
-		_VAR_MODE &&
-		(isset($_COOKIE['spip_session']) ||
-			isset($_COOKIE['spip_admin']) ||
-			@file_exists(_ACCESS_FILE_NAME))
-	) {
-		$page = ['contexte_implicite' => $contexte_implicite]; // ignorer le cache deja lu
-		include_spip('inc/invalideur');
-		retire_caches($chemin_cache); # API invalideur inutile
-		supprimer_fichier(_DIR_CACHE . $chemin_cache);
-		if (isset($chemin_cache_session) and $chemin_cache_session) {
-			supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
-		}
-	}
-
-	// $delais par defaut
-	// pour toutes les pages sans #CACHE{} hors modeles/ et espace privé
-	// qui sont a cache nul par defaut
-	if (!isset($GLOBALS['delais'])) {
-		if (!defined('_DUREE_CACHE_DEFAUT')) {
-			define('_DUREE_CACHE_DEFAUT', 24 * 3600);
-		}
-		$GLOBALS['delais'] = _DUREE_CACHE_DEFAUT;
-	}
-
-	// determiner la validite de la page
-	if ($page) {
-		$use_cache = cache_valide($page, $page['lastmodified'] ?? 0);
-		// le contexte implicite n'est pas stocke dans le cache, mais il y a equivalence
-		// par le nom du cache. On le reinjecte donc ici pour utilisation eventuelle au calcul
-		$page['contexte_implicite'] = $contexte_implicite;
-		if (!$use_cache) {
-			// $page est un cache utilisable
-			gunzip_page($page);
-
-			return;
-		}
-	} else {
-		$page = ['contexte_implicite' => $contexte_implicite];
-		$use_cache = cache_valide($page, 0); // fichier cache absent : provoque le calcul
-	}
-
-	// Si pas valide mais pas de connexion a la base, le garder quand meme
-	if (!spip_connect()) {
-		if (isset($page['texte'])) {
-			gunzip_page($page);
-			$use_cache = 0;
-		} else {
-			spip_log("Erreur base de donnees, impossible utiliser $chemin_cache");
-			include_spip('inc/minipres');
-
-			return minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
-		}
-	}
-
-	if ($use_cache < 0) {
-		$chemin_cache = '';
-	}
-
-	return;
+    # fonction de cache minimale : dire "non on ne met rien en cache"
+    # $use_cache = -1; return;
+
+    // Second appel, destine a l'enregistrement du cache sur le disque
+    if (isset($chemin_cache)) {
+        return creer_cache($page, $chemin_cache);
+    }
+
+    // Toute la suite correspond au premier appel
+    $contexte_implicite = $page['contexte_implicite'];
+
+    // Cas ignorant le cache car completement dynamique
+    if (
+        (!empty($_SERVER['REQUEST_METHOD']) and $_SERVER['REQUEST_METHOD'] === 'POST')
+        or _request('connect')
+    ) {
+        $use_cache = -1;
+        $lastmodified = 0;
+        $chemin_cache = '';
+        $page = [];
+
+        return;
+    }
+
+    // Controler l'existence d'un cache nous correspondant
+    $chemin_cache = generer_nom_fichier_cache($contexte, $page);
+    $lastmodified = 0;
+
+    // charger le cache s'il existe (et si il a bien le bon hash = anticollision)
+    if (!$page = lire_cache($chemin_cache)) {
+        $page = [];
+    }
+
+    // s'il est sessionne, charger celui correspondant a notre session
+    if (
+        isset($page['invalideurs'])
+        and isset($page['invalideurs']['session'])
+    ) {
+        $chemin_cache_session = generer_nom_fichier_cache(
+            ['chemin_cache' => $chemin_cache],
+            ['session' => spip_session()]
+        );
+        if (
+            $page_session = lire_cache($chemin_cache_session)
+            and $page_session['lastmodified'] >= $page['lastmodified']
+        ) {
+            $page = $page_session;
+        } else {
+            $page = [];
+        }
+    }
+
+
+    // Faut-il effacer des pages invalidees (en particulier ce cache-ci) ?
+    if (isset($GLOBALS['meta']['invalider'])) {
+        // ne le faire que si la base est disponible
+        if (spip_connect()) {
+            include_spip('inc/invalideur');
+            retire_caches($chemin_cache); # API invalideur inutile
+            supprimer_fichier(_DIR_CACHE . $chemin_cache);
+            if (isset($chemin_cache_session) and $chemin_cache_session) {
+                supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
+            }
+        }
+    }
+
+    // Si un calcul, recalcul [ou preview, mais c'est recalcul] est demande,
+    // on supprime le cache
+    if (
+        defined('_VAR_MODE') &&
+        _VAR_MODE &&
+        (isset($_COOKIE['spip_session']) ||
+            isset($_COOKIE['spip_admin']) ||
+            @file_exists(_ACCESS_FILE_NAME))
+    ) {
+        $page = ['contexte_implicite' => $contexte_implicite]; // ignorer le cache deja lu
+        include_spip('inc/invalideur');
+        retire_caches($chemin_cache); # API invalideur inutile
+        supprimer_fichier(_DIR_CACHE . $chemin_cache);
+        if (isset($chemin_cache_session) and $chemin_cache_session) {
+            supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
+        }
+    }
+
+    // $delais par defaut
+    // pour toutes les pages sans #CACHE{} hors modeles/ et espace privé
+    // qui sont a cache nul par defaut
+    if (!isset($GLOBALS['delais'])) {
+        if (!defined('_DUREE_CACHE_DEFAUT')) {
+            define('_DUREE_CACHE_DEFAUT', 24 * 3600);
+        }
+        $GLOBALS['delais'] = _DUREE_CACHE_DEFAUT;
+    }
+
+    // determiner la validite de la page
+    if ($page) {
+        $use_cache = cache_valide($page, $page['lastmodified'] ?? 0);
+        // le contexte implicite n'est pas stocke dans le cache, mais il y a equivalence
+        // par le nom du cache. On le reinjecte donc ici pour utilisation eventuelle au calcul
+        $page['contexte_implicite'] = $contexte_implicite;
+        if (!$use_cache) {
+            // $page est un cache utilisable
+            gunzip_page($page);
+
+            return;
+        }
+    } else {
+        $page = ['contexte_implicite' => $contexte_implicite];
+        $use_cache = cache_valide($page, 0); // fichier cache absent : provoque le calcul
+    }
+
+    // Si pas valide mais pas de connexion a la base, le garder quand meme
+    if (!spip_connect()) {
+        if (isset($page['texte'])) {
+            gunzip_page($page);
+            $use_cache = 0;
+        } else {
+            spip_log("Erreur base de donnees, impossible utiliser $chemin_cache");
+            include_spip('inc/minipres');
+
+            return minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
+        }
+    }
+
+    if ($use_cache < 0) {
+        $chemin_cache = '';
+    }
+
+    return;
 }

ecrire/public/jointures.php

Indentation +401 added lines, -401 removed lines

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

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 */
@@ -59,92 +59,92 @@ 
 
 // https://code.spip.net/@argumenter_inclure
 function argumenter_inclure(
-	$params,
-	$rejet_filtres,
-	$p,
-	&$boucles,
-	$id_boucle,
-	$echap = true,
-	$lang = '',
-	$fond1 = false
+    $params,
+    $rejet_filtres,
+    $p,
+    &$boucles,
+    $id_boucle,
+    $echap = true,
+    $lang = '',
+    $fond1 = false
 ) {
-	$l = [];
-	$erreur_p_i_i = '';
-	if (!is_array($params)) {
-		return $l;
-	}
-	foreach ($params as $k => $couple) {
-		// la liste d'arguments d'inclusion peut se terminer par un filtre
-		$filtre = array_shift($couple);
-		if ($filtre) {
-			break;
-		}
-		foreach ($couple as $n => $val) {
-			$var = $val[0];
-			if ($var->type != 'texte') {
-				if ($n or $k or $fond1) {
-					$erreur_p_i_i = [
-						'zbug_parametres_inclus_incorrects',
-						['param' => $var->nom_champ]
-					];
-					erreur_squelette($erreur_p_i_i, $p);
-					break;
-				} else {
-					$l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
-				}
-			} else {
-				preg_match(',^([^=]*)(=?)(.*)$,m', $var->texte, $m);
-				$m = array_pad($m, 3, null);
-				$var = $m[1];
-				$auto = false;
+    $l = [];
+    $erreur_p_i_i = '';
+    if (!is_array($params)) {
+        return $l;
+    }
+    foreach ($params as $k => $couple) {
+        // la liste d'arguments d'inclusion peut se terminer par un filtre
+        $filtre = array_shift($couple);
+        if ($filtre) {
+            break;
+        }
+        foreach ($couple as $n => $val) {
+            $var = $val[0];
+            if ($var->type != 'texte') {
+                if ($n or $k or $fond1) {
+                    $erreur_p_i_i = [
+                        'zbug_parametres_inclus_incorrects',
+                        ['param' => $var->nom_champ]
+                    ];
+                    erreur_squelette($erreur_p_i_i, $p);
+                    break;
+                } else {
+                    $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
+                }
+            } else {
+                preg_match(',^([^=]*)(=?)(.*)$,m', $var->texte, $m);
+                $m = array_pad($m, 3, null);
+                $var = $m[1];
+                $auto = false;
 ;
-				if ($m[2]) {
-					$v = $m[3];
-					if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) {
-						$v = $m[1];
-					}
-					$val[0] = new Texte();
-					$val[0]->texte = $v;
-				} elseif ($k or $n or $fond1) {
-					$auto = true;
-				} else {
-					$var = 1;
-				}
-
-				if ($var == 'lang') {
-					$lang = !$auto
-						? calculer_liste($val, $p->descr, $boucles, $id_boucle)
-						: '$GLOBALS["spip_lang"]';
-				} else {
-					$val = $auto
-						? index_pile($id_boucle, $var, $boucles)
-						: calculer_liste($val, $p->descr, $boucles, $id_boucle);
-					if ($var !== 1) {
-						$val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ")
-							. $val . ($echap ? ") . '" : ' ');
-					} else {
-						$val = $echap ? "'.$val.'" : $val;
-					}
-					$l[$var] = $val;
-				}
-			}
-		}
-	}
-	if ($erreur_p_i_i) {
-		return false;
-	}
-	// Cas particulier de la langue : si {lang=xx} est definie, on
-	// la passe, sinon on passe la langue courante au moment du calcul
-	// sauf si on n'en veut pas
-	if ($lang === false) {
-		return $l;
-	}
-	if (!$lang) {
-		$lang = '$GLOBALS["spip_lang"]';
-	}
-	$l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : ' ');
-
-	return $l;
+                if ($m[2]) {
+                    $v = $m[3];
+                    if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) {
+                        $v = $m[1];
+                    }
+                    $val[0] = new Texte();
+                    $val[0]->texte = $v;
+                } elseif ($k or $n or $fond1) {
+                    $auto = true;
+                } else {
+                    $var = 1;
+                }
+
+                if ($var == 'lang') {
+                    $lang = !$auto
+                        ? calculer_liste($val, $p->descr, $boucles, $id_boucle)
+                        : '$GLOBALS["spip_lang"]';
+                } else {
+                    $val = $auto
+                        ? index_pile($id_boucle, $var, $boucles)
+                        : calculer_liste($val, $p->descr, $boucles, $id_boucle);
+                    if ($var !== 1) {
+                        $val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ")
+                            . $val . ($echap ? ") . '" : ' ');
+                    } else {
+                        $val = $echap ? "'.$val.'" : $val;
+                    }
+                    $l[$var] = $val;
+                }
+            }
+        }
+    }
+    if ($erreur_p_i_i) {
+        return false;
+    }
+    // Cas particulier de la langue : si {lang=xx} est definie, on
+    // la passe, sinon on passe la langue courante au moment du calcul
+    // sauf si on n'en veut pas
+    if ($lang === false) {
+        return $l;
+    }
+    if (!$lang) {
+        $lang = '$GLOBALS["spip_lang"]';
+    }
+    $l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : ' ');
+
+    return $l;
 }
 
 /**
@@ -168,84 +168,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?'." . "'>'";
 }
 
 
@@ -263,7 +263,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.
@@ -287,74 +287,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)
+                );
+            }
+        }
+    }
 }
 
 /**
@@ -373,29 +373,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);
 }
 
 
@@ -418,15 +418,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;";
 }
 
 /**
@@ -479,174 +479,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;
 }
 
 
@@ -662,48 +662,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;
 }
 
 /**
@@ -721,13 +721,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\']'
+    ]);
 }
 
 /**
@@ -745,19 +745,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;
 }
 
 /**
@@ -783,12 +783,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
@@ -796,11 +796,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 . ';'];
 }
 
 /**
@@ -820,33 +820,33 @@ 
  *     Expression PHP décrivant un texte ou un tableau
  **/
 function calculer_dump_array($a) {
-	if (!is_array($a)) {
-		return $a;
-	}
-	$res = '';
-	if ($a and $a[0] == "'?'") {
-		return ('(' . calculer_dump_array($a[1]) .
-			' ? ' . calculer_dump_array($a[2]) .
-			' : ' . calculer_dump_array($a[3]) .
-			')');
-	} else {
-		foreach ($a as $k => $v) {
-			$showk = (is_numeric($k) ? '' : sql_quote($k) . ' => ');
-			$res .= ', ' . $showk . calculer_dump_array($v);
-		}
-
-		return "\n\t\t\tarray(" . substr($res, 2) . ')';
-	}
+    if (!is_array($a)) {
+        return $a;
+    }
+    $res = '';
+    if ($a and $a[0] == "'?'") {
+        return ('(' . calculer_dump_array($a[1]) .
+            ' ? ' . calculer_dump_array($a[2]) .
+            ' : ' . calculer_dump_array($a[3]) .
+            ')');
+    } else {
+        foreach ($a as $k => $v) {
+            $showk = (is_numeric($k) ? '' : sql_quote($k) . ' => ');
+            $res .= ', ' . $showk . calculer_dump_array($v);
+        }
+
+        return "\n\t\t\tarray(" . substr($res, 2) . ')';
+    }
 }
 
 // https://code.spip.net/@calculer_dump_join
 function calculer_dump_join($a) {
-	$res = '';
-	foreach ($a as $k => $v) {
-		$res .= ", '$k' => array(" . implode(',', $v) . ')';
-	}
+    $res = '';
+    foreach ($a as $k => $v) {
+        $res .= ", '$k' => array(" . implode(',', $v) . ')';
+    }
 
-	return 'array(' . substr($res, 2) . ')';
+    return 'array(' . substr($res, 2) . ')';
 }
 
 /**
@@ -858,12 +858,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) . ')';
 }
 
 /**
@@ -876,31 +876,31 @@ 
  *     Code PHP construisant un tableau des alias et type de jointure du FROM
  **/
 function calculer_from_type(&$boucle) {
-	$res = '';
-	foreach ($boucle->from_type as $k => $v) {
-		$res .= ",'$k' => '$v'";
-	}
+    $res = '';
+    foreach ($boucle->from_type as $k => $v) {
+        $res .= ",'$k' => '$v'";
+    }
 
-	return 'array(' . substr($res, 1) . ')';
+    return 'array(' . substr($res, 1) . ')';
 }
 
 // https://code.spip.net/@calculer_order
 function calculer_order(&$boucle) {
-	if (
-		!$order = $boucle->order
-		and !$order = $boucle->default_order
-	) {
-		$order = [];
-	}
-
-	/*if (isset($boucle->modificateur['collate'])){
+    if (
+        !$order = $boucle->order
+        and !$order = $boucle->default_order
+    ) {
+        $order = [];
+    }
+
+    /*if (isset($boucle->modificateur['collate'])){
 		$col = "." . $boucle->modificateur['collate'];
 		foreach($order as $k=>$o)
 			if (strpos($order[$k],'COLLATE')===false)
 				$order[$k].= $col;
 	}*/
 
-	return join(', ', $order);
+    return join(', ', $order);
 }
 
 // Production du code PHP a partir de la sequence livree par le phraseur
@@ -910,62 +910,62 @@ 
 
 // https://code.spip.net/@calculer_liste
 function calculer_liste($tableau, $descr, &$boucles, $id_boucle = '') {
-	if (!$tableau) {
-		return "''";
-	}
-	if (is_string($descr)) {
-		if (isset($boucles[$descr])) {
-			$idb = $descr;
-			$descr = [];
-			if (isset($boucles[$idb]->descr['id_mere_contexte'])) {
-				$descr['id_mere'] = $boucles[$idb]->descr['id_mere_contexte'];
-			}
-			if (isset($boucles[$idb]->descr['sourcefile'])) {
-				$descr['sourcefile'] = $boucles[$idb]->descr['sourcefile'];
-			}
-		}
-		else {
-			$descr = [];
-		}
-	}
-	if (!isset($descr['niv'])) {
-		$descr['niv'] = 0;
-	}
-	$codes = compile_cas($tableau, $descr, $boucles, $id_boucle);
-	if ($codes === false) {
-		return false;
-	}
-	$n = 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
+        ) . ')))';
+    }
 }
 
 
@@ -976,213 +976,213 @@ 
 // https://code.spip.net/@compile_cas
 function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 
-	$codes = [];
-	// cas de la boucle recursive
-	if (is_array($id_boucle)) {
-		$id_boucle = $id_boucle[0];
-	}
-	$type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete;
-	$tab = str_repeat("\t", ++$descr['niv']);
-	$mode = _request('var_mode_affiche');
-	$err_e_c = '';
-	// chaque commentaire introduit dans le code doit commencer
-	// par un caractere distinguant le cas, pour exploitation par debug.
-	foreach ($tableau as $p) {
-		switch ($p->type) {
-			// texte seul
-			case 'texte':
-				$code = sandbox_composer_texte($p->texte, $p);
-				$commentaire = strlen($p->texte) . ' signes';
-				$avant = '';
-				$apres = '';
-				$altern = "''";
-				break;
-
-			case 'polyglotte':
-				$code = '';
-				foreach ($p->traductions as $k => $v) {
-					$code .= ",'" .
-						str_replace(['\\', "'"], ['\\\\', "\\'"], $k) .
-						"' => '" .
-						str_replace(['\\', "'"], ['\\\\', "\\'"], $v) .
-						"'";
-				}
-				$code = 'choisir_traduction(array(' .
-					substr($code, 1) .
-					'))';
-				$commentaire = '&';
-				$avant = '';
-				$apres = '';
-				$altern = "''";
-				break;
-
-			// inclure
-			case 'include':
-				$p->descr = $descr;
-				$code = calculer_inclure($p, $boucles, $id_boucle);
-				if ($code === false) {
-					$err_e_c = true;
-					$code = "''";
-				} else {
-					$commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
-					$avant = '';
-					$apres = '';
-					$altern = "''";
-				}
-				break;
-
-			// boucle
-			case TYPE_RECURSIF:
-				$nom = $p->id_boucle;
-				$newdescr = $descr;
-				$newdescr['id_mere'] = $nom;
-				$newdescr['niv']++;
-				$preaff = calculer_liste($p->preaff, $newdescr, $boucles, $id_boucle);
-				$avant = calculer_liste($p->avant, $newdescr, $boucles, $id_boucle);
-				$apres = calculer_liste($p->apres, $newdescr, $boucles, $id_boucle);
-				$postaff = calculer_liste($p->postaff, $newdescr, $boucles, $id_boucle);
-				$newdescr['niv']--;
-				$altern = calculer_liste($p->altern, $newdescr, $boucles, $id_boucle);
-				if (
-					$preaff === false
-					or $avant === false
-					or $apres === false
-					or $altern === false
-					or $postaff === false
-				) {
-					$err_e_c = true;
-					$code = "''";
-				} else {
-					$code = 'BOUCLE' .
-						str_replace('-', '_', $nom) . $descr['nom'] .
-						'($Cache, $Pile, $doublons, $Numrows, $SP)';
-					$commentaire = "?$nom";
-					if (
-						!$boucles[$nom]->milieu
-						and $boucles[$nom]->type_requete <> TYPE_RECURSIF
-					) {
-						if ($preaff != "''") {
-							$code .= "\n. $preaff";
-						}
-						if ($altern != "''") {
-							$code .= "\n. $altern";
-						}
-						if ($postaff != "''") {
-							$code .= "\n. $postaff";
-						}
-						if ($avant <> "''" or $apres <> "''") {
-							spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]");
-						}
-						$avant = $apres = $altern = "''";
-					} else {
-						if ($preaff != "''") {
-							$avant = compile_concatene_parties_codes($preaff, $avant);
-							$altern = compile_concatene_parties_codes($preaff, $altern);
-						}
-						if ($postaff != "''") {
-							$apres = compile_concatene_parties_codes($apres, $postaff);
-							$altern = compile_concatene_parties_codes($altern, $postaff);
-						}
-						if ($altern != "''") {
-							$altern = "($altern)";
-						}
-					}
-				}
-				break;
-
-			case 'idiome':
-				$l = [];
-				$code = '';
-				foreach ($p->arg as $k => $v) {
-					$_v = calculer_liste($v, $descr, $boucles, $id_boucle);
-					if ($k) {
-						$l[] = _q($k) . ' => ' . $_v;
-					} else {
-						$code = $_v;
-					}
-				}
-				// Si le module n'est pas fourni, l'expliciter sauf si calculé
-				if ($p->module) {
-					$m = $p->module . ':' . $p->nom_champ;
-				} elseif ($p->nom_champ) {
-					$m = MODULES_IDIOMES . ':' . $p->nom_champ;
-				} else {
-					$m = '';
-				}
-
-				$code = (!$code ? "'$m'" :
-						($m ? "'$m' . $code" :
-							("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
-					. (!$l ? '' : (', array(' . implode(",\n", $l) . ')'));
-				$code = "_T($code)";
-				if ($p->param) {
-					$p->id_boucle = $id_boucle;
-					$p->boucles = &$boucles;
-					$code = compose_filtres($p, $code);
-				}
-				$commentaire = ':';
-				$avant = '';
-				$apres = '';
-				$altern = "''";
-				break;
-
-			case 'champ':
-				// cette structure pourrait etre completee des le phrase' (a faire)
-				$p->id_boucle = $id_boucle;
-				$p->boucles = &$boucles;
-				$p->descr = $descr;
-				#$p->interdire_scripts = true;
-				$p->type_requete = $type;
-
-				$code = calculer_champ($p);
-				$commentaire = '#' . $p->nom_champ . $p->etoile;
-				$avant = calculer_liste(
-					$p->avant,
-					$descr,
-					$boucles,
-					$id_boucle
-				);
-				$apres = calculer_liste(
-					$p->apres,
-					$descr,
-					$boucles,
-					$id_boucle
-				);
-				$altern = "''";
-				// Si la valeur est destinee a une comparaison a ''
-				// forcer la conversion en une chaine par strval
-				// si ca peut etre autre chose qu'une chaine
-				if (
-					($avant != "''" or $apres != "''")
-					and $code[0] != "'"
+    $codes = [];
+    // cas de la boucle recursive
+    if (is_array($id_boucle)) {
+        $id_boucle = $id_boucle[0];
+    }
+    $type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete;
+    $tab = str_repeat("\t", ++$descr['niv']);
+    $mode = _request('var_mode_affiche');
+    $err_e_c = '';
+    // chaque commentaire introduit dans le code doit commencer
+    // par un caractere distinguant le cas, pour exploitation par debug.
+    foreach ($tableau as $p) {
+        switch ($p->type) {
+            // texte seul
+            case 'texte':
+                $code = sandbox_composer_texte($p->texte, $p);
+                $commentaire = strlen($p->texte) . ' signes';
+                $avant = '';
+                $apres = '';
+                $altern = "''";
+                break;
+
+            case 'polyglotte':
+                $code = '';
+                foreach ($p->traductions as $k => $v) {
+                    $code .= ",'" .
+                        str_replace(['\\', "'"], ['\\\\', "\\'"], $k) .
+                        "' => '" .
+                        str_replace(['\\', "'"], ['\\\\', "\\'"], $v) .
+                        "'";
+                }
+                $code = 'choisir_traduction(array(' .
+                    substr($code, 1) .
+                    '))';
+                $commentaire = '&';
+                $avant = '';
+                $apres = '';
+                $altern = "''";
+                break;
+
+            // inclure
+            case 'include':
+                $p->descr = $descr;
+                $code = calculer_inclure($p, $boucles, $id_boucle);
+                if ($code === false) {
+                    $err_e_c = true;
+                    $code = "''";
+                } else {
+                    $commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
+                    $avant = '';
+                    $apres = '';
+                    $altern = "''";
+                }
+                break;
+
+            // boucle
+            case TYPE_RECURSIF:
+                $nom = $p->id_boucle;
+                $newdescr = $descr;
+                $newdescr['id_mere'] = $nom;
+                $newdescr['niv']++;
+                $preaff = calculer_liste($p->preaff, $newdescr, $boucles, $id_boucle);
+                $avant = calculer_liste($p->avant, $newdescr, $boucles, $id_boucle);
+                $apres = calculer_liste($p->apres, $newdescr, $boucles, $id_boucle);
+                $postaff = calculer_liste($p->postaff, $newdescr, $boucles, $id_boucle);
+                $newdescr['niv']--;
+                $altern = calculer_liste($p->altern, $newdescr, $boucles, $id_boucle);
+                if (
+                    $preaff === false
+                    or $avant === false
+                    or $apres === false
+                    or $altern === false
+                    or $postaff === false
+                ) {
+                    $err_e_c = true;
+                    $code = "''";
+                } else {
+                    $code = 'BOUCLE' .
+                        str_replace('-', '_', $nom) . $descr['nom'] .
+                        '($Cache, $Pile, $doublons, $Numrows, $SP)';
+                    $commentaire = "?$nom";
+                    if (
+                        !$boucles[$nom]->milieu
+                        and $boucles[$nom]->type_requete <> TYPE_RECURSIF
+                    ) {
+                        if ($preaff != "''") {
+                            $code .= "\n. $preaff";
+                        }
+                        if ($altern != "''") {
+                            $code .= "\n. $altern";
+                        }
+                        if ($postaff != "''") {
+                            $code .= "\n. $postaff";
+                        }
+                        if ($avant <> "''" or $apres <> "''") {
+                            spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]");
+                        }
+                        $avant = $apres = $altern = "''";
+                    } else {
+                        if ($preaff != "''") {
+                            $avant = compile_concatene_parties_codes($preaff, $avant);
+                            $altern = compile_concatene_parties_codes($preaff, $altern);
+                        }
+                        if ($postaff != "''") {
+                            $apres = compile_concatene_parties_codes($apres, $postaff);
+                            $altern = compile_concatene_parties_codes($altern, $postaff);
+                        }
+                        if ($altern != "''") {
+                            $altern = "($altern)";
+                        }
+                    }
+                }
+                break;
+
+            case 'idiome':
+                $l = [];
+                $code = '';
+                foreach ($p->arg as $k => $v) {
+                    $_v = calculer_liste($v, $descr, $boucles, $id_boucle);
+                    if ($k) {
+                        $l[] = _q($k) . ' => ' . $_v;
+                    } else {
+                        $code = $_v;
+                    }
+                }
+                // Si le module n'est pas fourni, l'expliciter sauf si calculé
+                if ($p->module) {
+                    $m = $p->module . ':' . $p->nom_champ;
+                } elseif ($p->nom_champ) {
+                    $m = MODULES_IDIOMES . ':' . $p->nom_champ;
+                } else {
+                    $m = '';
+                }
+
+                $code = (!$code ? "'$m'" :
+                        ($m ? "'$m' . $code" :
+                            ("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
+                    . (!$l ? '' : (', array(' . implode(",\n", $l) . ')'));
+                $code = "_T($code)";
+                if ($p->param) {
+                    $p->id_boucle = $id_boucle;
+                    $p->boucles = &$boucles;
+                    $code = compose_filtres($p, $code);
+                }
+                $commentaire = ':';
+                $avant = '';
+                $apres = '';
+                $altern = "''";
+                break;
+
+            case 'champ':
+                // cette structure pourrait etre completee des le phrase' (a faire)
+                $p->id_boucle = $id_boucle;
+                $p->boucles = &$boucles;
+                $p->descr = $descr;
+                #$p->interdire_scripts = true;
+                $p->type_requete = $type;
+
+                $code = calculer_champ($p);
+                $commentaire = '#' . $p->nom_champ . $p->etoile;
+                $avant = calculer_liste(
+                    $p->avant,
+                    $descr,
+                    $boucles,
+                    $id_boucle
+                );
+                $apres = calculer_liste(
+                    $p->apres,
+                    $descr,
+                    $boucles,
+                    $id_boucle
+                );
+                $altern = "''";
+                // Si la valeur est destinee a une comparaison a ''
+                // forcer la conversion en une chaine par strval
+                // si ca peut etre autre chose qu'une chaine
+                if (
+                    ($avant != "''" or $apres != "''")
+                    and $code[0] != "'"
 #			AND (strpos($code,'interdire_scripts') !== 0)
-					and !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code)
-					and !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code)
-					and !preg_match(_REGEXP_CONCAT_NON_VIDE, $code)
-				) {
-					$code = "strval($code)";
-				}
-				break;
-
-			default:
-				// Erreur de construction de l'arbre de syntaxe abstraite
-				$code = "''";
-				$p->descr = $descr;
-				$err_e_c = _T('zbug_erreur_compilation');
-				erreur_squelette($err_e_c, $p);
-		} // switch
-
-		if ($code != "''") {
-			$code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
-			$codes[] = (($mode == 'validation') ?
-				"array($code, '$commentaire', " . $p->ligne . ')'
-				: (($mode == 'code') ?
-					"\n// $commentaire\n$code" :
-					$code));
-		}
-	} // foreach
-
-	return $err_e_c ? false : $codes;
+                    and !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code)
+                    and !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code)
+                    and !preg_match(_REGEXP_CONCAT_NON_VIDE, $code)
+                ) {
+                    $code = "strval($code)";
+                }
+                break;
+
+            default:
+                // Erreur de construction de l'arbre de syntaxe abstraite
+                $code = "''";
+                $p->descr = $descr;
+                $err_e_c = _T('zbug_erreur_compilation');
+                erreur_squelette($err_e_c, $p);
+        } // switch
+
+        if ($code != "''") {
+            $code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
+            $codes[] = (($mode == 'validation') ?
+                "array($code, '$commentaire', " . $p->ligne . ')'
+                : (($mode == 'code') ?
+                    "\n// $commentaire\n$code" :
+                    $code));
+        }
+    } // foreach
+
+    return $err_e_c ? false : $codes;
 }
 
 /**
@@ -1192,13 +1192,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";
 }
 
 
@@ -1223,56 +1223,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,
@@ -1292,354 +1292,354 @@ 
 
 // https://code.spip.net/@public_compiler_dist
 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;
 }
 
 
@@ -1656,18 +1656,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);
+    }
 }
 
 
@@ -1685,22 +1685,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);
+    }
 }