spip / SPIP

ecrire/inc/filtres_images_lib_mini.php

Indentation +1323 added lines, -1323 removed lines

@@ -18,7 +18,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/filtres'); // par precaution
 include_spip('inc/filtres_images_mini'); // par precaution
@@ -38,21 +38,21 @@ 
  *     Le code de la couleur en hexadécimal.
  */
 function _couleur_dec_to_hex($red, $green, $blue) {
-	$red = dechex($red);
-	$green = dechex($green);
-	$blue = dechex($blue);
-
-	if (strlen($red) == 1) {
-		$red = '0' . $red;
-	}
-	if (strlen($green) == 1) {
-		$green = '0' . $green;
-	}
-	if (strlen($blue) == 1) {
-		$blue = '0' . $blue;
-	}
-
-	return "$red$green$blue";
+    $red = dechex($red);
+    $green = dechex($green);
+    $blue = dechex($blue);
+
+    if (strlen($red) == 1) {
+        $red = '0' . $red;
+    }
+    if (strlen($green) == 1) {
+        $green = '0' . $green;
+    }
+    if (strlen($blue) == 1) {
+        $blue = '0' . $blue;
+    }
+
+    return "$red$green$blue";
 }
 
 /**
@@ -64,17 +64,17 @@ 
  *     Un tableau des 3 éléments : rouge, vert, bleu.
  */
 function _couleur_hex_to_dec($couleur) {
-	$couleur = couleur_html_to_hex($couleur);
-	$couleur = ltrim($couleur, '#');
-	if (strlen($couleur) === 3) {
-		$couleur = $couleur[0] . $couleur[0] . $couleur[1] . $couleur[1] . $couleur[2] . $couleur[2];
-	}
-	$retour = [];
-	$retour['red'] = hexdec(substr($couleur, 0, 2));
-	$retour['green'] = hexdec(substr($couleur, 2, 2));
-	$retour['blue'] = hexdec(substr($couleur, 4, 2));
-
-	return $retour;
+    $couleur = couleur_html_to_hex($couleur);
+    $couleur = ltrim($couleur, '#');
+    if (strlen($couleur) === 3) {
+        $couleur = $couleur[0] . $couleur[0] . $couleur[1] . $couleur[1] . $couleur[2] . $couleur[2];
+    }
+    $retour = [];
+    $retour['red'] = hexdec(substr($couleur, 0, 2));
+    $retour['green'] = hexdec(substr($couleur, 2, 2));
+    $retour['blue'] = hexdec(substr($couleur, 4, 2));
+
+    return $retour;
 }
 
 
@@ -91,8 +91,8 @@ 
  *     Le code de la couleur en hexadécimal.
  */
 function _couleur_hsl_to_hex($hue, $saturation, $lightness) {
-	$rgb = _couleur_hsl_to_rgb($hue, $saturation, $lightness);
-	return _couleur_dec_to_hex($rgb['r'], $rgb['g'], $rgb['b']);
+    $rgb = _couleur_hsl_to_rgb($hue, $saturation, $lightness);
+    return _couleur_dec_to_hex($rgb['r'], $rgb['g'], $rgb['b']);
 }
 
 /**
@@ -104,8 +104,8 @@ 
  *     Un tableau des 3 éléments : teinte, saturation, luminosité.
  */
 function _couleur_hex_to_hsl($couleur) {
-	$rgb = _couleur_hex_to_dec($couleur);
-	return _couleur_rgb_to_hsl($rgb['red'], $rgb['green'], $rgb['blue']);
+    $rgb = _couleur_hex_to_dec($couleur);
+    return _couleur_rgb_to_hsl($rgb['red'], $rgb['green'], $rgb['blue']);
 }
 
 /**
@@ -120,59 +120,59 @@ 
  * @return array
  */
 function _couleur_rgb_to_hsl($R, $G, $B) {
-	$H = null;
-	$var_R = ($R / 255); // Where RGB values = 0 ÷ 255
-	$var_G = ($G / 255);
-	$var_B = ($B / 255);
-
-	$var_Min = min($var_R, $var_G, $var_B);   //Min. value of RGB
-	$var_Max = max($var_R, $var_G, $var_B);   //Max. value of RGB
-	$del_Max = $var_Max - $var_Min;           //Delta RGB value
-
-	$L = ($var_Max + $var_Min) / 2;
-
-	if ($del_Max == 0) {
-		//This is a gray, no chroma...
-		$H = 0; //HSL results = 0 ÷ 1
-		$S = 0;
-	} else {
-		// Chromatic data...
-		if ($L < 0.5) {
-			$S = $del_Max / ($var_Max + $var_Min);
-		} else {
-			$S = $del_Max / (2 - $var_Max - $var_Min);
-		}
-
-		$del_R = ((($var_Max - $var_R) / 6) + ($del_Max / 2)) / $del_Max;
-		$del_G = ((($var_Max - $var_G) / 6) + ($del_Max / 2)) / $del_Max;
-		$del_B = ((($var_Max - $var_B) / 6) + ($del_Max / 2)) / $del_Max;
-
-		if ($var_R == $var_Max) {
-			$H = $del_B - $del_G;
-		} else {
-			if ($var_G == $var_Max) {
-				$H = (1 / 3) + $del_R - $del_B;
-			} else {
-				if ($var_B == $var_Max) {
-					$H = (2 / 3) + $del_G - $del_R;
-				}
-			}
-		}
-
-		if ($H < 0) {
-			$H += 1;
-		}
-		if ($H > 1) {
-			$H -= 1;
-		}
-	}
-
-	$ret = [];
-	$ret['h'] = $H;
-	$ret['s'] = $S;
-	$ret['l'] = $L;
-
-	return $ret;
+    $H = null;
+    $var_R = ($R / 255); // Where RGB values = 0 ÷ 255
+    $var_G = ($G / 255);
+    $var_B = ($B / 255);
+
+    $var_Min = min($var_R, $var_G, $var_B);   //Min. value of RGB
+    $var_Max = max($var_R, $var_G, $var_B);   //Max. value of RGB
+    $del_Max = $var_Max - $var_Min;           //Delta RGB value
+
+    $L = ($var_Max + $var_Min) / 2;
+
+    if ($del_Max == 0) {
+        //This is a gray, no chroma...
+        $H = 0; //HSL results = 0 ÷ 1
+        $S = 0;
+    } else {
+        // Chromatic data...
+        if ($L < 0.5) {
+            $S = $del_Max / ($var_Max + $var_Min);
+        } else {
+            $S = $del_Max / (2 - $var_Max - $var_Min);
+        }
+
+        $del_R = ((($var_Max - $var_R) / 6) + ($del_Max / 2)) / $del_Max;
+        $del_G = ((($var_Max - $var_G) / 6) + ($del_Max / 2)) / $del_Max;
+        $del_B = ((($var_Max - $var_B) / 6) + ($del_Max / 2)) / $del_Max;
+
+        if ($var_R == $var_Max) {
+            $H = $del_B - $del_G;
+        } else {
+            if ($var_G == $var_Max) {
+                $H = (1 / 3) + $del_R - $del_B;
+            } else {
+                if ($var_B == $var_Max) {
+                    $H = (2 / 3) + $del_G - $del_R;
+                }
+            }
+        }
+
+        if ($H < 0) {
+            $H += 1;
+        }
+        if ($H > 1) {
+            $H -= 1;
+        }
+    }
+
+    $ret = [];
+    $ret['h'] = $H;
+    $ret['s'] = $S;
+    $ret['l'] = $L;
+
+    return $ret;
 }
 
 
@@ -188,52 +188,52 @@ 
  * @return array
  */
 function _couleur_hsl_to_rgb($H, $S, $L) {
-	// helper
-	$hue_2_rgb = function ($v1, $v2, $vH) {
-		if ($vH < 0) {
-			$vH += 1;
-		}
-		if ($vH > 1) {
-			$vH -= 1;
-		}
-		if ((6 * $vH) < 1) {
-			return ($v1 + ($v2 - $v1) * 6 * $vH);
-		}
-		if ((2 * $vH) < 1) {
-			return ($v2);
-		}
-		if ((3 * $vH) < 2) {
-			return ($v1 + ($v2 - $v1) * ((2 / 3) - $vH) * 6);
-		}
-
-		return ($v1);
-	};
-
-	if ($S == 0) {
-		// HSV values = 0 -> 1
-		$R = $L * 255;
-		$G = $L * 255;
-		$B = $L * 255;
-	} else {
-		if ($L < 0.5) {
-			$var_2 = $L * (1 + $S);
-		} else {
-			$var_2 = ($L + $S) - ($S * $L);
-		}
-
-		$var_1 = 2 * $L - $var_2;
-
-		$R = 255 * $hue_2_rgb($var_1, $var_2, $H + (1 / 3));
-		$G = 255 * $hue_2_rgb($var_1, $var_2, $H);
-		$B = 255 * $hue_2_rgb($var_1, $var_2, $H - (1 / 3));
-	}
-
-	$ret = [];
-	$ret['r'] = floor($R);
-	$ret['g'] = floor($G);
-	$ret['b'] = floor($B);
-
-	return $ret;
+    // helper
+    $hue_2_rgb = function ($v1, $v2, $vH) {
+        if ($vH < 0) {
+            $vH += 1;
+        }
+        if ($vH > 1) {
+            $vH -= 1;
+        }
+        if ((6 * $vH) < 1) {
+            return ($v1 + ($v2 - $v1) * 6 * $vH);
+        }
+        if ((2 * $vH) < 1) {
+            return ($v2);
+        }
+        if ((3 * $vH) < 2) {
+            return ($v1 + ($v2 - $v1) * ((2 / 3) - $vH) * 6);
+        }
+
+        return ($v1);
+    };
+
+    if ($S == 0) {
+        // HSV values = 0 -> 1
+        $R = $L * 255;
+        $G = $L * 255;
+        $B = $L * 255;
+    } else {
+        if ($L < 0.5) {
+            $var_2 = $L * (1 + $S);
+        } else {
+            $var_2 = ($L + $S) - ($S * $L);
+        }
+
+        $var_1 = 2 * $L - $var_2;
+
+        $R = 255 * $hue_2_rgb($var_1, $var_2, $H + (1 / 3));
+        $G = 255 * $hue_2_rgb($var_1, $var_2, $H);
+        $B = 255 * $hue_2_rgb($var_1, $var_2, $H - (1 / 3));
+    }
+
+    $ret = [];
+    $ret['r'] = floor($R);
+    $ret['g'] = floor($G);
+    $ret['b'] = floor($B);
+
+    return $ret;
 }
 
 /**
@@ -251,11 +251,11 @@ 
  *     true si il faut supprimer le fichier temporaire ; false sinon.
  */
 function statut_effacer_images_temporaires($stat) {
-	static $statut = false; // par defaut on grave toute les images
-	if ($stat === 'get') {
-		return $statut;
-	}
-	$statut = $stat ? true : false;
+    static $statut = false; // par defaut on grave toute les images
+    if ($stat === 'get') {
+        return $statut;
+    }
+    $statut = $stat ? true : false;
 }
 
 
@@ -308,243 +308,243 @@ 
  *     - array : tableau décrivant de l'image
  */
 function _image_valeurs_trans($img, $effet, $forcer_format = false, $fonction_creation = null, $find_in_path = false, $support_svg = false) {
-	$ret = [];
-	$f = null;
-	static $images_recalcul = [];
-	if (strlen($img) == 0) {
-		return false;
-	}
-
-	$source = trim(extraire_attribut($img, 'src') ?? '');
-	if (strlen($source) < 1) {
-		$source = $img;
-		$img = "<img src='$source' />";
-	} elseif (
-		preg_match('@^data:image/([^;]*);base64,(.*)$@isS', $source, $regs)
-		and $extension = _image_trouver_extension_depuis_mime('image/' . $regs[1])
-		and in_array($extension, _image_extensions_acceptees_en_entree())
-	) {
-		# gerer img src="data:....base64"
-		$local = sous_repertoire(_DIR_VAR, 'image-data') . md5($regs[2]) . '.' . _image_extension_normalisee($extension);
-		if (!file_exists($local)) {
-			ecrire_fichier($local, base64_decode($regs[2]));
-		}
-		if ($sanitizer = charger_fonction($extension, 'sanitizer', true)) {
-			$sanitizer($local);
-		}
-		$source = $local;
-		$img = inserer_attribut($img, 'src', $source);
-		# eviter les mauvaises surprises lors de conversions de format
-		$img = inserer_attribut($img, 'width', '');
-		$img = inserer_attribut($img, 'height', '');
-	}
-
-	// les protocoles web prennent au moins 3 lettres
-	if (tester_url_absolue($source)) {
-		include_spip('inc/distant');
-		$fichier = _DIR_RACINE . copie_locale($source);
-		if (!$fichier) {
-			return '';
-		}
-		if (
-			$extension = _image_trouver_extension($fichier)
-			and $sanitizer = charger_fonction($extension, 'sanitizer', true)
-		) {
-			$sanitizer($fichier);
-		}
-	} else {
-		// enlever le timestamp eventuel
-		if (strpos($source, '?') !== false) {
-			$source = preg_replace(',[?][0-9]+$,', '', $source);
-		}
-		if (
-			strpos($source, '?') !== false
-			and strncmp($source, _DIR_IMG, strlen(_DIR_IMG)) == 0
-			and file_exists($f = preg_replace(',[?].*$,', '', $source))
-		) {
-			$source = $f;
-		}
-		$fichier = $source;
-	}
-
-	$terminaison_dest = '';
-	if ($terminaison = _image_trouver_extension($fichier)) {
-		$terminaison_dest = ($terminaison == 'gif') ? 'png' : $terminaison;
-	}
-
-	if (
-		$forcer_format !== false
-		// ignorer forcer_format si on a une image svg, que le filtre appelant ne supporte pas SVG, et que le forcage est un autre format image
-		and ($terminaison_dest !== 'svg' or $support_svg or !in_array($forcer_format, _image_extensions_acceptees_en_sortie()))
-	) {
-		$terminaison_dest = $forcer_format;
-	}
-
-	if (!$terminaison_dest) {
-		return false;
-	}
-
-	$nom_fichier = substr($fichier, 0, strlen($fichier) - (strlen($terminaison) + 1));
-	$fichier_dest = $nom_fichier;
-	if (
-		($find_in_path and $f = find_in_path($fichier) and $fichier = $f)
-		or @file_exists($f = $fichier)
-	) {
-		// on passe la balise img a taille image qui exraira les attributs si possible
-		// au lieu de faire un acces disque sur le fichier
-		[$ret['hauteur'], $ret['largeur']] = taille_image($find_in_path ? $f : $img);
-		$date_src = @filemtime($f);
-	} elseif (
-		@file_exists($f = "$fichier.src")
-		and lire_fichier($f, $valeurs)
-		and $valeurs = unserialize($valeurs)
-		and isset($valeurs['hauteur_dest'])
-		and isset($valeurs['largeur_dest'])
-	) {
-		$ret['hauteur'] = $valeurs['hauteur_dest'];
-		$ret['largeur'] = $valeurs['largeur_dest'];
-		$date_src = $valeurs['date'];
-	} // pas de fichier source par la
-	else {
-		return false;
-	}
-
-	// pas de taille mesurable
-	if (!($ret['hauteur'] or $ret['largeur'])) {
-		return false;
-	}
-
-	// les images calculees dependent du chemin du fichier source
-	// pour une meme image source et un meme filtre on aboutira a 2 fichiers selon si l'appel est dans le public ou dans le prive
-	// ce n'est pas totalement optimal en terme de stockage, mais chaque image est associee a un fichier .src
-	// qui contient la methode de reconstrucion (le filtre + les arguments d'appel) et les arguments different entre prive et public
-	// la mise en commun du fichier image cree donc un bug et des problemes qui necessiteraient beaucoup de complexite de code
-	// alors que ca concerne peu de site au final
-	// la release de r23632+r23633+r23634 a provoque peu de remontee de bug attestant du peu de sites impactes
-	$identifiant = $fichier;
-
-	// cas general :
-	// on a un dossier cache commun et un nom de fichier qui varie avec l'effet
-	// cas particulier de reduire :
-	// un cache par dimension, et le nom de fichier est conserve, suffixe par la dimension aussi
-	$cache = 'cache-gd2';
-	if (substr($effet, 0, 7) == 'reduire') {
-		[, $maxWidth, $maxHeight] = explode('-', $effet);
-		[$destWidth, $destHeight] = _image_ratio($ret['largeur'], $ret['hauteur'], $maxWidth, $maxHeight);
-		$ret['largeur_dest'] = $destWidth;
-		$ret['hauteur_dest'] = $destHeight;
-		$effet = "L{$destWidth}xH$destHeight";
-		$cache = 'cache-vignettes';
-		$fichier_dest = basename($fichier_dest);
-		if (($ret['largeur'] <= $maxWidth) && ($ret['hauteur'] <= $maxHeight)) {
-			// on garde la terminaison initiale car image simplement copiee
-			// et on postfixe son nom avec un md5 du path
-			$terminaison_dest = $terminaison;
-			$fichier_dest .= '-' . substr(md5("$identifiant"), 0, 5);
-		} else {
-			$fichier_dest .= '-' . substr(md5("$identifiant-$effet"), 0, 5);
-		}
-		$cache = sous_repertoire(_DIR_VAR, $cache);
-		$cache = sous_repertoire($cache, $effet);
-	} else {
-		$fichier_dest = md5("$identifiant-$effet");
-		$cache = sous_repertoire(_DIR_VAR, $cache);
-		$cache = sous_repertoire($cache, substr($fichier_dest, 0, 2));
-		$fichier_dest = substr($fichier_dest, 2);
-	}
-
-	$fichier_dest = $cache . $fichier_dest . '.' . $terminaison_dest;
-
-	$GLOBALS['images_calculees'][] = $fichier_dest;
-
-	$creer = true;
-	// si recalcul des images demande, recalculer chaque image une fois
-	if (defined('_VAR_IMAGES') and _VAR_IMAGES and !isset($images_recalcul[$fichier_dest])) {
-		$images_recalcul[$fichier_dest] = true;
-	} else {
-		if (@file_exists($f = $fichier_dest)) {
-			if (filemtime($f) >= $date_src) {
-				$creer = false;
-			}
-		} else {
-			if (
-				@file_exists($f = "$fichier_dest.src")
-				and lire_fichier($f, $valeurs)
-				and $valeurs = unserialize($valeurs)
-				and $valeurs['date'] >= $date_src
-			) {
-				$creer = false;
-			}
-		}
-	}
-	if ($creer) {
-		if (!@file_exists($fichier)) {
-			if (!@file_exists("$fichier.src")) {
-				spip_log("Image absente : $fichier");
-
-				return false;
-			}
-			# on reconstruit l'image source absente a partir de la chaine des .src
-			reconstruire_image_intermediaire($fichier);
-		}
-	}
-
-	if ($creer) {
-		spip_log(
-			'filtre image ' . ($fonction_creation ? reset($fonction_creation) : '') . "[$effet] sur $fichier",
-			'images' . _LOG_DEBUG
-		);
-	}
-
-	$term_fonction = _image_trouver_extension_pertinente($fichier);
-	$ret['fonction_imagecreatefrom'] = '_imagecreatefrom' . $term_fonction;
-	$ret['fichier'] = $fichier;
-	$ret['fonction_image'] = '_image_image' . $terminaison_dest;
-	$ret['fichier_dest'] = $fichier_dest;
-	$ret['format_source'] = _image_extension_normalisee($terminaison);
-	$ret['format_dest'] = $terminaison_dest;
-	$ret['date_src'] = $date_src;
-	$ret['creer'] = $creer;
-	$ret['class'] = extraire_attribut($img, 'class');
-	$ret['alt'] = extraire_attribut($img, 'alt');
-	$ret['style'] = extraire_attribut($img, 'style');
-	$ret['tag'] = $img;
-	if ($fonction_creation) {
-		$ret['reconstruction'] = $fonction_creation;
-		# ecrire ici comment creer le fichier, car il est pas sur qu'on l'ecrira reelement
-		# cas de image_reduire qui finalement ne reduit pas l'image source
-		# ca evite d'essayer de le creer au prochain hit si il n'est pas la
-		#ecrire_fichier($ret['fichier_dest'].'.src',serialize($ret),true);
-	}
-
-	$ret = pipeline('image_preparer_filtre', [
-			'args' => [
-				'img' => $img,
-				'effet' => $effet,
-				'forcer_format' => $forcer_format,
-				'fonction_creation' => $fonction_creation,
-				'find_in_path' => $find_in_path,
-			],
-			'data' => $ret
-		]);
-
-	// une globale pour le debug en cas de crash memoire
-	$GLOBALS['derniere_image_calculee'] = $ret;
-
-	// traiter le cas particulier des SVG : si le filtre n'a pas annonce explicitement qu'il savait faire, on delegue
-	if ($term_fonction === 'svg') {
-		if ($creer and !$support_svg) {
-			process_image_svg_identite($ret);
-			$ret['creer'] = false;
-		}
-	}
-	else {
-		if (!function_exists($ret['fonction_imagecreatefrom'])) {
-			return false;
-		}
-	}
-
-	return $ret;
+    $ret = [];
+    $f = null;
+    static $images_recalcul = [];
+    if (strlen($img) == 0) {
+        return false;
+    }
+
+    $source = trim(extraire_attribut($img, 'src') ?? '');
+    if (strlen($source) < 1) {
+        $source = $img;
+        $img = "<img src='$source' />";
+    } elseif (
+        preg_match('@^data:image/([^;]*);base64,(.*)$@isS', $source, $regs)
+        and $extension = _image_trouver_extension_depuis_mime('image/' . $regs[1])
+        and in_array($extension, _image_extensions_acceptees_en_entree())
+    ) {
+        # gerer img src="data:....base64"
+        $local = sous_repertoire(_DIR_VAR, 'image-data') . md5($regs[2]) . '.' . _image_extension_normalisee($extension);
+        if (!file_exists($local)) {
+            ecrire_fichier($local, base64_decode($regs[2]));
+        }
+        if ($sanitizer = charger_fonction($extension, 'sanitizer', true)) {
+            $sanitizer($local);
+        }
+        $source = $local;
+        $img = inserer_attribut($img, 'src', $source);
+        # eviter les mauvaises surprises lors de conversions de format
+        $img = inserer_attribut($img, 'width', '');
+        $img = inserer_attribut($img, 'height', '');
+    }
+
+    // les protocoles web prennent au moins 3 lettres
+    if (tester_url_absolue($source)) {
+        include_spip('inc/distant');
+        $fichier = _DIR_RACINE . copie_locale($source);
+        if (!$fichier) {
+            return '';
+        }
+        if (
+            $extension = _image_trouver_extension($fichier)
+            and $sanitizer = charger_fonction($extension, 'sanitizer', true)
+        ) {
+            $sanitizer($fichier);
+        }
+    } else {
+        // enlever le timestamp eventuel
+        if (strpos($source, '?') !== false) {
+            $source = preg_replace(',[?][0-9]+$,', '', $source);
+        }
+        if (
+            strpos($source, '?') !== false
+            and strncmp($source, _DIR_IMG, strlen(_DIR_IMG)) == 0
+            and file_exists($f = preg_replace(',[?].*$,', '', $source))
+        ) {
+            $source = $f;
+        }
+        $fichier = $source;
+    }
+
+    $terminaison_dest = '';
+    if ($terminaison = _image_trouver_extension($fichier)) {
+        $terminaison_dest = ($terminaison == 'gif') ? 'png' : $terminaison;
+    }
+
+    if (
+        $forcer_format !== false
+        // ignorer forcer_format si on a une image svg, que le filtre appelant ne supporte pas SVG, et que le forcage est un autre format image
+        and ($terminaison_dest !== 'svg' or $support_svg or !in_array($forcer_format, _image_extensions_acceptees_en_sortie()))
+    ) {
+        $terminaison_dest = $forcer_format;
+    }
+
+    if (!$terminaison_dest) {
+        return false;
+    }
+
+    $nom_fichier = substr($fichier, 0, strlen($fichier) - (strlen($terminaison) + 1));
+    $fichier_dest = $nom_fichier;
+    if (
+        ($find_in_path and $f = find_in_path($fichier) and $fichier = $f)
+        or @file_exists($f = $fichier)
+    ) {
+        // on passe la balise img a taille image qui exraira les attributs si possible
+        // au lieu de faire un acces disque sur le fichier
+        [$ret['hauteur'], $ret['largeur']] = taille_image($find_in_path ? $f : $img);
+        $date_src = @filemtime($f);
+    } elseif (
+        @file_exists($f = "$fichier.src")
+        and lire_fichier($f, $valeurs)
+        and $valeurs = unserialize($valeurs)
+        and isset($valeurs['hauteur_dest'])
+        and isset($valeurs['largeur_dest'])
+    ) {
+        $ret['hauteur'] = $valeurs['hauteur_dest'];
+        $ret['largeur'] = $valeurs['largeur_dest'];
+        $date_src = $valeurs['date'];
+    } // pas de fichier source par la
+    else {
+        return false;
+    }
+
+    // pas de taille mesurable
+    if (!($ret['hauteur'] or $ret['largeur'])) {
+        return false;
+    }
+
+    // les images calculees dependent du chemin du fichier source
+    // pour une meme image source et un meme filtre on aboutira a 2 fichiers selon si l'appel est dans le public ou dans le prive
+    // ce n'est pas totalement optimal en terme de stockage, mais chaque image est associee a un fichier .src
+    // qui contient la methode de reconstrucion (le filtre + les arguments d'appel) et les arguments different entre prive et public
+    // la mise en commun du fichier image cree donc un bug et des problemes qui necessiteraient beaucoup de complexite de code
+    // alors que ca concerne peu de site au final
+    // la release de r23632+r23633+r23634 a provoque peu de remontee de bug attestant du peu de sites impactes
+    $identifiant = $fichier;
+
+    // cas general :
+    // on a un dossier cache commun et un nom de fichier qui varie avec l'effet
+    // cas particulier de reduire :
+    // un cache par dimension, et le nom de fichier est conserve, suffixe par la dimension aussi
+    $cache = 'cache-gd2';
+    if (substr($effet, 0, 7) == 'reduire') {
+        [, $maxWidth, $maxHeight] = explode('-', $effet);
+        [$destWidth, $destHeight] = _image_ratio($ret['largeur'], $ret['hauteur'], $maxWidth, $maxHeight);
+        $ret['largeur_dest'] = $destWidth;
+        $ret['hauteur_dest'] = $destHeight;
+        $effet = "L{$destWidth}xH$destHeight";
+        $cache = 'cache-vignettes';
+        $fichier_dest = basename($fichier_dest);
+        if (($ret['largeur'] <= $maxWidth) && ($ret['hauteur'] <= $maxHeight)) {
+            // on garde la terminaison initiale car image simplement copiee
+            // et on postfixe son nom avec un md5 du path
+            $terminaison_dest = $terminaison;
+            $fichier_dest .= '-' . substr(md5("$identifiant"), 0, 5);
+        } else {
+            $fichier_dest .= '-' . substr(md5("$identifiant-$effet"), 0, 5);
+        }
+        $cache = sous_repertoire(_DIR_VAR, $cache);
+        $cache = sous_repertoire($cache, $effet);
+    } else {
+        $fichier_dest = md5("$identifiant-$effet");
+        $cache = sous_repertoire(_DIR_VAR, $cache);
+        $cache = sous_repertoire($cache, substr($fichier_dest, 0, 2));
+        $fichier_dest = substr($fichier_dest, 2);
+    }
+
+    $fichier_dest = $cache . $fichier_dest . '.' . $terminaison_dest;
+
+    $GLOBALS['images_calculees'][] = $fichier_dest;
+
+    $creer = true;
+    // si recalcul des images demande, recalculer chaque image une fois
+    if (defined('_VAR_IMAGES') and _VAR_IMAGES and !isset($images_recalcul[$fichier_dest])) {
+        $images_recalcul[$fichier_dest] = true;
+    } else {
+        if (@file_exists($f = $fichier_dest)) {
+            if (filemtime($f) >= $date_src) {
+                $creer = false;
+            }
+        } else {
+            if (
+                @file_exists($f = "$fichier_dest.src")
+                and lire_fichier($f, $valeurs)
+                and $valeurs = unserialize($valeurs)
+                and $valeurs['date'] >= $date_src
+            ) {
+                $creer = false;
+            }
+        }
+    }
+    if ($creer) {
+        if (!@file_exists($fichier)) {
+            if (!@file_exists("$fichier.src")) {
+                spip_log("Image absente : $fichier");
+
+                return false;
+            }
+            # on reconstruit l'image source absente a partir de la chaine des .src
+            reconstruire_image_intermediaire($fichier);
+        }
+    }
+
+    if ($creer) {
+        spip_log(
+            'filtre image ' . ($fonction_creation ? reset($fonction_creation) : '') . "[$effet] sur $fichier",
+            'images' . _LOG_DEBUG
+        );
+    }
+
+    $term_fonction = _image_trouver_extension_pertinente($fichier);
+    $ret['fonction_imagecreatefrom'] = '_imagecreatefrom' . $term_fonction;
+    $ret['fichier'] = $fichier;
+    $ret['fonction_image'] = '_image_image' . $terminaison_dest;
+    $ret['fichier_dest'] = $fichier_dest;
+    $ret['format_source'] = _image_extension_normalisee($terminaison);
+    $ret['format_dest'] = $terminaison_dest;
+    $ret['date_src'] = $date_src;
+    $ret['creer'] = $creer;
+    $ret['class'] = extraire_attribut($img, 'class');
+    $ret['alt'] = extraire_attribut($img, 'alt');
+    $ret['style'] = extraire_attribut($img, 'style');
+    $ret['tag'] = $img;
+    if ($fonction_creation) {
+        $ret['reconstruction'] = $fonction_creation;
+        # ecrire ici comment creer le fichier, car il est pas sur qu'on l'ecrira reelement
+        # cas de image_reduire qui finalement ne reduit pas l'image source
+        # ca evite d'essayer de le creer au prochain hit si il n'est pas la
+        #ecrire_fichier($ret['fichier_dest'].'.src',serialize($ret),true);
+    }
+
+    $ret = pipeline('image_preparer_filtre', [
+            'args' => [
+                'img' => $img,
+                'effet' => $effet,
+                'forcer_format' => $forcer_format,
+                'fonction_creation' => $fonction_creation,
+                'find_in_path' => $find_in_path,
+            ],
+            'data' => $ret
+        ]);
+
+    // une globale pour le debug en cas de crash memoire
+    $GLOBALS['derniere_image_calculee'] = $ret;
+
+    // traiter le cas particulier des SVG : si le filtre n'a pas annonce explicitement qu'il savait faire, on delegue
+    if ($term_fonction === 'svg') {
+        if ($creer and !$support_svg) {
+            process_image_svg_identite($ret);
+            $ret['creer'] = false;
+        }
+    }
+    else {
+        if (!function_exists($ret['fonction_imagecreatefrom'])) {
+            return false;
+        }
+    }
+
+    return $ret;
 }
 
 
@@ -553,54 +553,54 @@ 
  * @return array
  */
 function _image_extensions_acceptees_en_entree() {
-	static $extensions = null;
-	if (empty($extensions)) {
-		$extensions = ['png', 'gif', 'jpg', 'jpeg'];
-		if (!empty($GLOBALS['meta']['gd_formats'])) {
-			// action=tester renseigne gd_formats et detecte le support de webp
-			$extensions = array_merge(explode(',', $GLOBALS['meta']['gd_formats']));
-			$extensions = array_map('trim', $extensions);
-			$extensions = array_filter($extensions);
-			if (in_array('jpg', $extensions)) {
-				$extensions[] = 'jpeg';
-			}
-			$extensions = array_unique($extensions);
-		}
-		$extensions[] = 'svg'; // on le supporte toujours avec des fonctions specifiques
-	}
-
-	return $extensions;
+    static $extensions = null;
+    if (empty($extensions)) {
+        $extensions = ['png', 'gif', 'jpg', 'jpeg'];
+        if (!empty($GLOBALS['meta']['gd_formats'])) {
+            // action=tester renseigne gd_formats et detecte le support de webp
+            $extensions = array_merge(explode(',', $GLOBALS['meta']['gd_formats']));
+            $extensions = array_map('trim', $extensions);
+            $extensions = array_filter($extensions);
+            if (in_array('jpg', $extensions)) {
+                $extensions[] = 'jpeg';
+            }
+            $extensions = array_unique($extensions);
+        }
+        $extensions[] = 'svg'; // on le supporte toujours avec des fonctions specifiques
+    }
+
+    return $extensions;
 }
 
 /**
  * @return array|string[]|null
  */
 function _image_extensions_acceptees_en_sortie() {
-	static $extensions = null;
-	if (empty($extensions)) {
-		$extensions = _image_extensions_acceptees_en_entree();
-		$extensions = array_diff($extensions, ['jpeg']);
-		if (in_array('gif', $extensions) and !function_exists('imagegif')) {
-			$extensions = array_diff($extensions, ['gif']);
-		}
-		if (in_array('webp', $extensions) and !function_exists('imagewebp')) {
-			$extensions = array_diff($extensions, ['webp']);
-		}
-	}
-
-	return $extensions;
+    static $extensions = null;
+    if (empty($extensions)) {
+        $extensions = _image_extensions_acceptees_en_entree();
+        $extensions = array_diff($extensions, ['jpeg']);
+        if (in_array('gif', $extensions) and !function_exists('imagegif')) {
+            $extensions = array_diff($extensions, ['gif']);
+        }
+        if (in_array('webp', $extensions) and !function_exists('imagewebp')) {
+            $extensions = array_diff($extensions, ['webp']);
+        }
+    }
+
+    return $extensions;
 }
 
 function _image_extension_normalisee($extension) {
-	$extension = strtolower($extension);
-	if ($extension === 'jpeg') {
-		$extension = 'jpg';
-	}
-	return $extension;
+    $extension = strtolower($extension);
+    if ($extension === 'jpeg') {
+        $extension = 'jpg';
+    }
+    return $extension;
 }
 
 function _image_extensions_conservent_transparence() {
-	return ['png', 'webp'];
+    return ['png', 'webp'];
 }
 
 
@@ -610,12 +610,12 @@ 
  * @return string
  */
 function _image_trouver_extension($path) {
-	$preg_extensions = implode('|', _image_extensions_acceptees_en_entree());
-	if (preg_match(",\.($preg_extensions)($|[?]),i", $path, $regs)) {
-		$terminaison = strtolower($regs[1]);
-		return $terminaison;
-	}
-	return '';
+    $preg_extensions = implode('|', _image_extensions_acceptees_en_entree());
+    if (preg_match(",\.($preg_extensions)($|[?]),i", $path, $regs)) {
+        $terminaison = strtolower($regs[1]);
+        return $terminaison;
+    }
+    return '';
 }
 
 /**
@@ -626,33 +626,33 @@ 
  * @return string Extension, dans le format attendu par les fonctions 'gd' ('jpeg' pour les .jpg par exemple)
  */
 function _image_trouver_extension_pertinente($path) {
-	$path = supprimer_timestamp($path);
-	$terminaison = _image_trouver_extension($path);
-	if ($terminaison == 'jpg') {
-		$terminaison = 'jpeg';
-	}
-
-	if (!file_exists($path)) {
-		return $terminaison;
-	}
-
-	if (!$info = @spip_getimagesize($path)) {
-		return $terminaison;
-	}
-
-	if (isset($info['mime'])) {
-		$mime = $info['mime'];
-	}
-	else {
-		$mime = image_type_to_mime_type($info[2]);
-	}
-
-	$_terminaison = _image_trouver_extension_depuis_mime($mime);
-	if ($_terminaison and $_terminaison !== $terminaison) {
-		spip_log("Mauvaise extension du fichier : $path . Son type mime est : $mime", 'images.' . _LOG_INFO_IMPORTANTE);
-		$terminaison = $_terminaison;
-	}
-	return $terminaison;
+    $path = supprimer_timestamp($path);
+    $terminaison = _image_trouver_extension($path);
+    if ($terminaison == 'jpg') {
+        $terminaison = 'jpeg';
+    }
+
+    if (!file_exists($path)) {
+        return $terminaison;
+    }
+
+    if (!$info = @spip_getimagesize($path)) {
+        return $terminaison;
+    }
+
+    if (isset($info['mime'])) {
+        $mime = $info['mime'];
+    }
+    else {
+        $mime = image_type_to_mime_type($info[2]);
+    }
+
+    $_terminaison = _image_trouver_extension_depuis_mime($mime);
+    if ($_terminaison and $_terminaison !== $terminaison) {
+        spip_log("Mauvaise extension du fichier : $path . Son type mime est : $mime", 'images.' . _LOG_INFO_IMPORTANTE);
+        $terminaison = $_terminaison;
+    }
+    return $terminaison;
 }
 
 /**
@@ -660,36 +660,36 @@ 
  * @return string
  */
 function _image_trouver_extension_depuis_mime($mime) {
-	switch (strtolower($mime)) {
-		case 'image/png':
-		case 'image/x-png':
-			$terminaison = 'png';
-			break;
-
-		case 'image/jpg':
-		case 'image/jpeg':
-		case 'image/pjpeg':
-			$terminaison = 'jpeg';
-			break;
-
-		case 'image/gif':
-			$terminaison = 'gif';
-			break;
-
-		case 'image/webp':
-		case 'image/x-webp':
-			$terminaison = 'webp';
-			break;
-
-		case 'image/svg+xml':
-			$terminaison = 'svg';
-			break;
-
-		default:
-			$terminaison = '';
-	}
-
-	return $terminaison;
+    switch (strtolower($mime)) {
+        case 'image/png':
+        case 'image/x-png':
+            $terminaison = 'png';
+            break;
+
+        case 'image/jpg':
+        case 'image/jpeg':
+        case 'image/pjpeg':
+            $terminaison = 'jpeg';
+            break;
+
+        case 'image/gif':
+            $terminaison = 'gif';
+            break;
+
+        case 'image/webp':
+        case 'image/x-webp':
+            $terminaison = 'webp';
+            break;
+
+        case 'image/svg+xml':
+            $terminaison = 'svg';
+            break;
+
+        default:
+            $terminaison = '';
+    }
+
+    return $terminaison;
 }
 
 
@@ -709,18 +709,18 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefrom_func(string $func, string $filename) {
-	if (!function_exists($func)) {
-		spip_log("GD indisponible : $func inexistante. Traitement $filename impossible.", _LOG_CRITIQUE);
-		erreur_squelette("GD indisponible : $func inexistante. Traitement $filename impossible.");
-		return null;
-	}
-	$img = @$func($filename);
-	if (!$img) {
-		spip_log("Erreur lecture imagecreatefromjpeg $filename", _LOG_CRITIQUE);
-		erreur_squelette("Erreur lecture imagecreatefromjpeg $filename");
-		$img = imagecreate(10, 10);
-	}
-	return $img;
+    if (!function_exists($func)) {
+        spip_log("GD indisponible : $func inexistante. Traitement $filename impossible.", _LOG_CRITIQUE);
+        erreur_squelette("GD indisponible : $func inexistante. Traitement $filename impossible.");
+        return null;
+    }
+    $img = @$func($filename);
+    if (!$img) {
+        spip_log("Erreur lecture imagecreatefromjpeg $filename", _LOG_CRITIQUE);
+        erreur_squelette("Erreur lecture imagecreatefromjpeg $filename");
+        $img = imagecreate(10, 10);
+    }
+    return $img;
 }
 
 /**
@@ -736,7 +736,7 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefromjpeg($filename) {
-	return _imagecreatefrom_func('imagecreatefromjpeg', $filename);
+    return _imagecreatefrom_func('imagecreatefromjpeg', $filename);
 }
 
 /**
@@ -752,7 +752,7 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefrompng($filename) {
-	return _imagecreatefrom_func('imagecreatefrompng', $filename);
+    return _imagecreatefrom_func('imagecreatefrompng', $filename);
 }
 
 /**
@@ -768,7 +768,7 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefromgif($filename) {
-	return _imagecreatefrom_func('imagecreatefromgif', $filename);
+    return _imagecreatefrom_func('imagecreatefromgif', $filename);
 }
 
 
@@ -785,7 +785,7 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefromwebp($filename) {
-	return _imagecreatefrom_func('imagecreatefromwebp', $filename);
+    return _imagecreatefrom_func('imagecreatefromwebp', $filename);
 }
 
 /**
@@ -803,24 +803,24 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagepng($img, $fichier) {
-	if (!function_exists('imagepng')) {
-		return false;
-	}
-	$tmp = $fichier . '.tmp';
-	$ret = imagepng($img, $tmp);
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return $ret;
-	}
-
-	return false;
+    if (!function_exists('imagepng')) {
+        return false;
+    }
+    $tmp = $fichier . '.tmp';
+    $ret = imagepng($img, $tmp);
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return $ret;
+    }
+
+    return false;
 }
 
 /**
@@ -838,24 +838,24 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagegif($img, $fichier) {
-	if (!function_exists('imagegif')) {
-		return false;
-	}
-	$tmp = $fichier . '.tmp';
-	$ret = imagegif($img, $tmp);
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return $ret;
-	}
-
-	return false;
+    if (!function_exists('imagegif')) {
+        return false;
+    }
+    $tmp = $fichier . '.tmp';
+    $ret = imagegif($img, $tmp);
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return $ret;
+    }
+
+    return false;
 }
 
 /**
@@ -878,29 +878,29 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagejpg($img, $fichier, $qualite = _IMG_GD_QUALITE) {
-	if (!function_exists('imagejpeg')) {
-		return false;
-	}
-	$tmp = $fichier . '.tmp';
+    if (!function_exists('imagejpeg')) {
+        return false;
+    }
+    $tmp = $fichier . '.tmp';
 
-	// Enable interlancing
-	imageinterlace($img, true);
+    // Enable interlancing
+    imageinterlace($img, true);
 
-	$ret = imagejpeg($img, $tmp, $qualite);
+    $ret = imagejpeg($img, $tmp, $qualite);
 
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
 
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
 
-		return $ret;
-	}
+        return $ret;
+    }
 
-	return false;
+    return false;
 }
 
 /**
@@ -918,9 +918,9 @@ 
  *     true si le fichier a bien été créé ; false sinon.
  */
 function _image_imageico($img, $fichier) {
-	$gd_image_array = [$img];
+    $gd_image_array = [$img];
 
-	return ecrire_fichier($fichier, phpthumb_functions::GD2ICOstring($gd_image_array));
+    return ecrire_fichier($fichier, phpthumb_functions::GD2ICOstring($gd_image_array));
 }
 
 
@@ -939,24 +939,24 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagewebp($img, $fichier, $qualite = _IMG_GD_QUALITE) {
-	if (!function_exists('imagewebp')) {
-		return false;
-	}
-	$tmp = $fichier . '.tmp';
-	$ret = imagewebp($img, $tmp, $qualite);
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return $ret;
-	}
-
-	return false;
+    if (!function_exists('imagewebp')) {
+        return false;
+    }
+    $tmp = $fichier . '.tmp';
+    $ret = imagewebp($img, $tmp, $qualite);
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return $ret;
+    }
+
+    return false;
 }
 
 /**
@@ -976,35 +976,35 @@ 
  */
 function _image_imagesvg($img, $fichier) {
 
-	$tmp = $fichier . '.tmp';
-	if (strpos($img, '<') === false) {
-		$img = supprimer_timestamp($img);
-		if (!file_exists($img)) {
-			return false;
-		}
-		@copy($img, $tmp);
-		if (filesize($tmp) == filesize($img)) {
-			spip_unlink($fichier); // le fichier peut deja exister
-			@rename($tmp, $fichier);
-			return true;
-		}
-		return false;
-	}
-
-	file_put_contents($tmp, $img);
-	if (file_exists($tmp)) {
-		$taille_test = spip_getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return true;
-	}
-
-	return false;
+    $tmp = $fichier . '.tmp';
+    if (strpos($img, '<') === false) {
+        $img = supprimer_timestamp($img);
+        if (!file_exists($img)) {
+            return false;
+        }
+        @copy($img, $tmp);
+        if (filesize($tmp) == filesize($img)) {
+            spip_unlink($fichier); // le fichier peut deja exister
+            @rename($tmp, $fichier);
+            return true;
+        }
+        return false;
+    }
+
+    file_put_contents($tmp, $img);
+    if (file_exists($tmp)) {
+        $taille_test = spip_getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return true;
+    }
+
+    return false;
 }
 
 
@@ -1032,30 +1032,30 @@ 
  *     - false sinon.
  */
 function _image_gd_output($img, $valeurs, $qualite = _IMG_GD_QUALITE, $fonction = null) {
-	if (is_null($fonction)) {
-		$fonction = '_image_image' . $valeurs['format_dest'];
-	}
-	$ret = false;
-	#un flag pour reperer les images gravees
-	$lock = (
-		!statut_effacer_images_temporaires('get') // si la fonction n'a pas ete activee, on grave tout
-		or (@file_exists($valeurs['fichier_dest']) and !@file_exists($valeurs['fichier_dest'] . '.src'))
-	);
-	if (
-		function_exists($fonction)
-		&& ($ret = $fonction($img, $valeurs['fichier_dest'], $qualite)) # on a reussi a creer l'image
-		&& isset($valeurs['reconstruction']) # et on sait comment la resonctruire le cas echeant
-		&& !$lock
-	) {
-		if (@file_exists($valeurs['fichier_dest'])) {
-			// dans tous les cas mettre a jour la taille de l'image finale
-			[$valeurs['hauteur_dest'], $valeurs['largeur_dest']] = taille_image($valeurs['fichier_dest']);
-			$valeurs['date'] = @filemtime($valeurs['fichier_dest']); // pour la retrouver apres disparition
-			ecrire_fichier($valeurs['fichier_dest'] . '.src', serialize($valeurs), true);
-		}
-	}
-
-	return $ret;
+    if (is_null($fonction)) {
+        $fonction = '_image_image' . $valeurs['format_dest'];
+    }
+    $ret = false;
+    #un flag pour reperer les images gravees
+    $lock = (
+        !statut_effacer_images_temporaires('get') // si la fonction n'a pas ete activee, on grave tout
+        or (@file_exists($valeurs['fichier_dest']) and !@file_exists($valeurs['fichier_dest'] . '.src'))
+    );
+    if (
+        function_exists($fonction)
+        && ($ret = $fonction($img, $valeurs['fichier_dest'], $qualite)) # on a reussi a creer l'image
+        && isset($valeurs['reconstruction']) # et on sait comment la resonctruire le cas echeant
+        && !$lock
+    ) {
+        if (@file_exists($valeurs['fichier_dest'])) {
+            // dans tous les cas mettre a jour la taille de l'image finale
+            [$valeurs['hauteur_dest'], $valeurs['largeur_dest']] = taille_image($valeurs['fichier_dest']);
+            $valeurs['date'] = @filemtime($valeurs['fichier_dest']); // pour la retrouver apres disparition
+            ecrire_fichier($valeurs['fichier_dest'] . '.src', serialize($valeurs), true);
+        }
+    }
+
+    return $ret;
 }
 
 /**
@@ -1068,27 +1068,27 @@ 
  *     Chemin vers le fichier manquant
  **/
 function reconstruire_image_intermediaire($fichier_manquant) {
-	$reconstruire = [];
-	$fichier = $fichier_manquant;
-	while (
-		strpos($fichier, '://') === false
-		and !@file_exists($fichier)
-		and lire_fichier($src = "$fichier.src", $source)
-		and $valeurs = unserialize($source)
-		and ($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
-	) {
-		spip_unlink($src); // si jamais on a un timeout pendant la reconstruction, elle se fera naturellement au hit suivant
-		$reconstruire[] = $valeurs['reconstruction'];
-	}
-	while (count($reconstruire)) {
-		$r = array_pop($reconstruire);
-		$fonction = $r[0];
-		$args = $r[1];
-		$fonction(...$args);
-	}
-	// cette image intermediaire est commune a plusieurs series de filtre, il faut la conserver
-	// mais l'on peut nettoyer les miettes de sa creation
-	ramasse_miettes($fichier_manquant);
+    $reconstruire = [];
+    $fichier = $fichier_manquant;
+    while (
+        strpos($fichier, '://') === false
+        and !@file_exists($fichier)
+        and lire_fichier($src = "$fichier.src", $source)
+        and $valeurs = unserialize($source)
+        and ($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
+    ) {
+        spip_unlink($src); // si jamais on a un timeout pendant la reconstruction, elle se fera naturellement au hit suivant
+        $reconstruire[] = $valeurs['reconstruction'];
+    }
+    while (count($reconstruire)) {
+        $r = array_pop($reconstruire);
+        $fonction = $r[0];
+        $args = $r[1];
+        $fonction(...$args);
+    }
+    // cette image intermediaire est commune a plusieurs series de filtre, il faut la conserver
+    // mais l'on peut nettoyer les miettes de sa creation
+    ramasse_miettes($fichier_manquant);
 }
 
 /**
@@ -1108,28 +1108,28 @@ 
  *     Chemin du fichier d'image calculé
  **/
 function ramasse_miettes($fichier) {
-	if (
-		strpos($fichier, '://') !== false
-		or !lire_fichier($src = "$fichier.src", $source)
-		or !$valeurs = unserialize($source)
-	) {
-		return;
-	}
-	spip_unlink($src); # on supprime la reference a sa source pour marquer cette image comme non intermediaire
-	while (
-		($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
-		and (substr($fichier, 0, strlen(_DIR_VAR)) == _DIR_VAR) # et est dans local
-		and (lire_fichier(
-			$src = "$fichier.src",
-			$source
-		)) # le fichier a une source connue (c'est donc une image calculee intermediaire)
-		and ($valeurs = unserialize($source))  # et valide
-	) {
-		# on efface le fichier
-		spip_unlink($fichier);
-		# mais laisse le .src qui permet de savoir comment reconstruire l'image si besoin
-		#spip_unlink($src);
-	}
+    if (
+        strpos($fichier, '://') !== false
+        or !lire_fichier($src = "$fichier.src", $source)
+        or !$valeurs = unserialize($source)
+    ) {
+        return;
+    }
+    spip_unlink($src); # on supprime la reference a sa source pour marquer cette image comme non intermediaire
+    while (
+        ($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
+        and (substr($fichier, 0, strlen(_DIR_VAR)) == _DIR_VAR) # et est dans local
+        and (lire_fichier(
+            $src = "$fichier.src",
+            $source
+        )) # le fichier a une source connue (c'est donc une image calculee intermediaire)
+        and ($valeurs = unserialize($source))  # et valide
+    ) {
+        # on efface le fichier
+        spip_unlink($fichier);
+        # mais laisse le .src qui permet de savoir comment reconstruire l'image si besoin
+        #spip_unlink($src);
+    }
 }
 
 
@@ -1154,31 +1154,31 @@ 
  *     Code HTML de l'image
  **/
 function image_graver($img) {
-	// appeler le filtre post_image_filtrer qui permet de faire
-	// des traitements auto a la fin d'une serie de filtres
-	$img = pipeline('post_image_filtrer', $img);
-
-	$fichier_ori = $fichier = extraire_attribut($img, 'src');
-	if (($p = strpos($fichier, '?')) !== false) {
-		$fichier = substr($fichier, 0, $p);
-	}
-	if (strlen($fichier) < 1) {
-		$fichier = $img;
-	}
-	# si jamais le fichier final n'a pas ete calcule car suppose temporaire
-	# et qu'il ne s'agit pas d'une URL
-	if (strpos($fichier, '://') === false and !@file_exists($fichier)) {
-		reconstruire_image_intermediaire($fichier);
-	}
-	ramasse_miettes($fichier);
-
-	// ajouter le timestamp si besoin
-	if (strpos($fichier_ori, '?') === false) {
-		// on utilise str_replace pour attraper le onmouseover des logo si besoin
-		$img = str_replace($fichier_ori, timestamp($fichier_ori), $img);
-	}
-
-	return $img;
+    // appeler le filtre post_image_filtrer qui permet de faire
+    // des traitements auto a la fin d'une serie de filtres
+    $img = pipeline('post_image_filtrer', $img);
+
+    $fichier_ori = $fichier = extraire_attribut($img, 'src');
+    if (($p = strpos($fichier, '?')) !== false) {
+        $fichier = substr($fichier, 0, $p);
+    }
+    if (strlen($fichier) < 1) {
+        $fichier = $img;
+    }
+    # si jamais le fichier final n'a pas ete calcule car suppose temporaire
+    # et qu'il ne s'agit pas d'une URL
+    if (strpos($fichier, '://') === false and !@file_exists($fichier)) {
+        reconstruire_image_intermediaire($fichier);
+    }
+    ramasse_miettes($fichier);
+
+    // ajouter le timestamp si besoin
+    if (strpos($fichier_ori, '?') === false) {
+        // on utilise str_replace pour attraper le onmouseover des logo si besoin
+        $img = str_replace($fichier_ori, timestamp($fichier_ori), $img);
+    }
+
+    return $img;
 }
 
 /**
@@ -1205,34 +1205,34 @@ 
  *     Code html modifié de la balise.
  **/
 function _image_tag_changer_taille($tag, $width, $height, $style = false) {
-	if ($style === false) {
-		$style = extraire_attribut($tag, 'style');
-	}
-
-	// enlever le width et height du style
-	if ($style) {
-		$style = preg_replace(',(^|;)\s*(width|height)\s*:\s*[^;]+,ims', '', $style);
-	}
-	if ($style and $style[0] === ';') {
-		$style = substr($style, 1);
-	}
-
-	// mettre des attributs de width et height sur les images,
-	// ca accelere le rendu du navigateur
-	// ca permet aux navigateurs de reserver la bonne taille
-	// quand on a desactive l'affichage des images.
-	$tag = inserer_attribut($tag, 'width', round($width));
-	$tag = inserer_attribut($tag, 'height', round($height));
-
-	// attributs deprecies. Transformer en CSS
-	if ($espace = extraire_attribut($tag, 'hspace')) {
-		$style = "margin:{$espace}px;" . $style;
-		$tag = inserer_attribut($tag, 'hspace', '');
-	}
-
-	$tag = inserer_attribut($tag, 'style', (string) $style, true, $style ? false : true);
-
-	return $tag;
+    if ($style === false) {
+        $style = extraire_attribut($tag, 'style');
+    }
+
+    // enlever le width et height du style
+    if ($style) {
+        $style = preg_replace(',(^|;)\s*(width|height)\s*:\s*[^;]+,ims', '', $style);
+    }
+    if ($style and $style[0] === ';') {
+        $style = substr($style, 1);
+    }
+
+    // mettre des attributs de width et height sur les images,
+    // ca accelere le rendu du navigateur
+    // ca permet aux navigateurs de reserver la bonne taille
+    // quand on a desactive l'affichage des images.
+    $tag = inserer_attribut($tag, 'width', round($width));
+    $tag = inserer_attribut($tag, 'height', round($height));
+
+    // attributs deprecies. Transformer en CSS
+    if ($espace = extraire_attribut($tag, 'hspace')) {
+        $style = "margin:{$espace}px;" . $style;
+        $tag = inserer_attribut($tag, 'hspace', '');
+    }
+
+    $tag = inserer_attribut($tag, 'style', (string) $style, true, $style ? false : true);
+
+    return $tag;
 }
 
 
@@ -1258,72 +1258,72 @@ 
  *     Retourne le code HTML de l'image
  **/
 function _image_ecrire_tag($valeurs, $surcharge = []) {
-	$valeurs = pipeline('image_ecrire_tag_preparer', $valeurs);
-
-	// fermer les tags img pas bien fermes;
-	$tag = str_replace('>', '/>', str_replace('/>', '>', $valeurs['tag']));
-
-	// le style
-	$style = $valeurs['style'];
-	if (isset($surcharge['style'])) {
-		$style = $surcharge['style'];
-		unset($surcharge['style']);
-	}
-
-	// traiter specifiquement la largeur et la hauteur
-	$width = $valeurs['largeur'];
-	if (isset($surcharge['width'])) {
-		$width = $surcharge['width'];
-		unset($surcharge['width']);
-	}
-	$height = $valeurs['hauteur'];
-	if (isset($surcharge['height'])) {
-		$height = $surcharge['height'];
-		unset($surcharge['height']);
-	}
-
-	$tag = _image_tag_changer_taille($tag, $width, $height, $style);
-	// traiter specifiquement le src qui peut etre repris dans un onmouseout
-	// on remplace toute les ref a src dans le tag
-	$src = extraire_attribut($tag, 'src');
-	if (isset($surcharge['src'])) {
-		$tag = str_replace($src, $surcharge['src'], $tag);
-		// si il y a des & dans src, alors ils peuvent provenir d'un &amp
-		// pas garanti comme methode, mais mieux que rien
-		if (strpos($src, '&') !== false) {
-			$tag = str_replace(str_replace('&', '&amp;', $src), $surcharge['src'], $tag);
-		}
-		$src = $surcharge['src'];
-		unset($surcharge['src']);
-	}
-
-	$class = $valeurs['class'];
-	if (isset($surcharge['class'])) {
-		$class = $surcharge['class'];
-		unset($surcharge['class']);
-	}
-	if (is_scalar($class) && strlen($class)) {
-		$tag = inserer_attribut($tag, 'class', $class);
-	}
-
-	if (count($surcharge)) {
-		foreach ($surcharge as $attribut => $valeur) {
-			$tag = inserer_attribut($tag, $attribut, $valeur);
-		}
-	}
-
-	$tag = pipeline(
-		'image_ecrire_tag_finir',
-		[
-			'args' => [
-				'valeurs' => $valeurs,
-				'surcharge' => $surcharge,
-			],
-			'data' => $tag
-		]
-	);
-
-	return $tag;
+    $valeurs = pipeline('image_ecrire_tag_preparer', $valeurs);
+
+    // fermer les tags img pas bien fermes;
+    $tag = str_replace('>', '/>', str_replace('/>', '>', $valeurs['tag']));
+
+    // le style
+    $style = $valeurs['style'];
+    if (isset($surcharge['style'])) {
+        $style = $surcharge['style'];
+        unset($surcharge['style']);
+    }
+
+    // traiter specifiquement la largeur et la hauteur
+    $width = $valeurs['largeur'];
+    if (isset($surcharge['width'])) {
+        $width = $surcharge['width'];
+        unset($surcharge['width']);
+    }
+    $height = $valeurs['hauteur'];
+    if (isset($surcharge['height'])) {
+        $height = $surcharge['height'];
+        unset($surcharge['height']);
+    }
+
+    $tag = _image_tag_changer_taille($tag, $width, $height, $style);
+    // traiter specifiquement le src qui peut etre repris dans un onmouseout
+    // on remplace toute les ref a src dans le tag
+    $src = extraire_attribut($tag, 'src');
+    if (isset($surcharge['src'])) {
+        $tag = str_replace($src, $surcharge['src'], $tag);
+        // si il y a des & dans src, alors ils peuvent provenir d'un &amp
+        // pas garanti comme methode, mais mieux que rien
+        if (strpos($src, '&') !== false) {
+            $tag = str_replace(str_replace('&', '&amp;', $src), $surcharge['src'], $tag);
+        }
+        $src = $surcharge['src'];
+        unset($surcharge['src']);
+    }
+
+    $class = $valeurs['class'];
+    if (isset($surcharge['class'])) {
+        $class = $surcharge['class'];
+        unset($surcharge['class']);
+    }
+    if (is_scalar($class) && strlen($class)) {
+        $tag = inserer_attribut($tag, 'class', $class);
+    }
+
+    if (count($surcharge)) {
+        foreach ($surcharge as $attribut => $valeur) {
+            $tag = inserer_attribut($tag, $attribut, $valeur);
+        }
+    }
+
+    $tag = pipeline(
+        'image_ecrire_tag_finir',
+        [
+            'args' => [
+                'valeurs' => $valeurs,
+                'surcharge' => $surcharge,
+            ],
+            'data' => $tag
+        ]
+    );
+
+    return $tag;
 }
 
 /**
@@ -1346,267 +1346,267 @@ 
  *     Description de l'image, sinon null.
  **/
 function _image_creer_vignette($valeurs, $maxWidth, $maxHeight, $process = 'AUTO', $force = false) {
-	$srcHeight = null;
-	$retour = [];
-	// ordre de preference des formats graphiques pour creer les vignettes
-	// le premier format disponible, selon la methode demandee, est utilise
-	$image = $valeurs['fichier'];
-	$format = $valeurs['format_source'];
-	$destdir = dirname($valeurs['fichier_dest']);
-	$destfile = basename($valeurs['fichier_dest'], '.' . $valeurs['format_dest']);
-
-	$format_sortie = $valeurs['format_dest'];
-
-	if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
-		$process = $GLOBALS['meta']['image_process'];
-	}
-
-	// si le doc n'est pas une image dans un format accetpable, refuser
-	if (!$force and !in_array($format, formats_image_acceptables(in_array($process, ['gd1', 'gd2'])))) {
-		return;
-	}
-	$destination = "$destdir/$destfile";
-
-	// calculer la taille
-	if (($srcWidth = $valeurs['largeur']) && ($srcHeight = $valeurs['hauteur'])) {
-		if (!($destWidth = $valeurs['largeur_dest']) || !($destHeight = $valeurs['hauteur_dest'])) {
-			[$destWidth, $destHeight] = _image_ratio($srcWidth, $srcHeight, $maxWidth, $maxHeight);
-		}
-	} elseif ($process == 'convert' or $process == 'imagick') {
-		$destWidth = $maxWidth;
-		$destHeight = $maxHeight;
-	} else {
-		spip_log("echec $process sur $image");
-
-		return;
-	}
-
-	$vignette = '';
-
-	// Si l'image est de la taille demandee (ou plus petite), simplement la retourner
-	if ($srcWidth and $srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
-		$vignette = $destination . '.' . $format;
-		@copy($image, $vignette);
-	}
-
-	elseif ($valeurs['format_source'] === 'svg') {
-		if ($svg = svg_redimensionner($valeurs['fichier'], $destWidth, $destHeight)) {
-			$format_sortie = 'svg';
-			$vignette = $destination . '.' . $format_sortie;
-			$valeurs['fichier_dest'] = $vignette;
-			_image_gd_output($svg, $valeurs);
-		}
-	}
-
-	// imagemagick en ligne de commande
-	elseif ($process == 'convert') {
-		if (!defined('_CONVERT_COMMAND')) {
-			define('_CONVERT_COMMAND', 'convert');
-		} // Securite : mes_options.php peut preciser le chemin absolu
-		if (!defined('_RESIZE_COMMAND')) {
-			define('_RESIZE_COMMAND', _CONVERT_COMMAND . ' -quality ' . _IMG_CONVERT_QUALITE . ' -resize %xx%y! %src %dest');
-		}
-		$vignette = $destination . '.' . $format_sortie;
-		$commande = str_replace(
-			['%x', '%y', '%src', '%dest'],
-			[
-				$destWidth,
-				$destHeight,
-				escapeshellcmd($image),
-				escapeshellcmd($vignette)
-			],
-			_RESIZE_COMMAND
-		);
-		spip_log($commande);
-		exec($commande);
-		if (!@file_exists($vignette)) {
-			spip_log("echec convert sur $vignette");
-
-			return;  // echec commande
-		}
-	}
-
-	// php5 imagemagick
-	elseif ($process == 'imagick') {
-		if (!class_exists(\Imagick::class)) {
-			spip_log('Classe Imagick absente !', _LOG_ERREUR);
-
-			return;
-		}
-
-		// chemin compatible Windows
-		$output = realpath(dirname($destination));
-		if (!$output) {
-			return;
-		}
-		$vignette = $output . DIRECTORY_SEPARATOR . basename($destination) . '.' . $format_sortie;
-
-		$imagick = new Imagick();
-		$imagick->readImage(realpath($image));
-		$imagick->resizeImage(
-			$destWidth,
-			$destHeight,
-			Imagick::FILTER_LANCZOS,
-			1
-		);//, IMAGICK_FILTER_LANCZOS, _IMG_IMAGICK_QUALITE / 100);
-		$imagick->writeImage($vignette);
-
-		if (!@file_exists($vignette)) {
-			spip_log("echec imagick sur $vignette");
-
-			return;
-		}
-		// remettre le chemin relatif car c'est ce qu'attend SPIP pour la suite (en particlier action/tester)
-		$vignette = $destination . '.' . $format_sortie;
-	}
-
-	// netpbm
-	elseif ($process == 'netpbm') {
-		if (!defined('_PNMSCALE_COMMAND')) {
-			define('_PNMSCALE_COMMAND', 'pnmscale');
-		} // Securite : mes_options.php peut preciser le chemin absolu
-		if (_PNMSCALE_COMMAND == '') {
-			return;
-		}
-		$vignette = $destination . '.' . $format_sortie;
-		$pnmtojpeg_command = str_replace('pnmscale', 'pnmtojpeg', _PNMSCALE_COMMAND);
-		if ($format == 'jpg') {
-			$jpegtopnm_command = str_replace('pnmscale', 'jpegtopnm', _PNMSCALE_COMMAND);
-			exec("$jpegtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
-			if (!($s = @filesize($vignette))) {
-				spip_unlink($vignette);
-			}
-			if (!@file_exists($vignette)) {
-				spip_log("echec netpbm-jpg sur $vignette");
-
-				return;
-			}
-		} else {
-			if ($format == 'gif') {
-				$giftopnm_command = str_replace('pnmscale', 'giftopnm', _PNMSCALE_COMMAND);
-				exec("$giftopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
-				if (!($s = @filesize($vignette))) {
-					spip_unlink($vignette);
-				}
-				if (!@file_exists($vignette)) {
-					spip_log("echec netpbm-gif sur $vignette");
-
-					return;
-				}
-			} else {
-				if ($format == 'png') {
-					$pngtopnm_command = str_replace('pnmscale', 'pngtopnm', _PNMSCALE_COMMAND);
-					exec("$pngtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
-					if (!($s = @filesize($vignette))) {
-						spip_unlink($vignette);
-					}
-					if (!@file_exists($vignette)) {
-						spip_log("echec netpbm-png sur $vignette");
-
-						return;
-					}
-				}
-			}
-		}
-	}
-
-	// gd ou gd2
-	elseif ($process == 'gd1' or $process == 'gd2') {
-		if (!function_exists('gd_info')) {
-			spip_log('Librairie GD absente !', _LOG_ERREUR);
-
-			return;
-		}
-		if (_IMG_GD_MAX_PIXELS && $srcWidth * $srcHeight > _IMG_GD_MAX_PIXELS) {
-			spip_log('vignette gd1/gd2 impossible : ' . $srcWidth * $srcHeight . 'pixels');
-
-			return;
-		}
-		$destFormat = $format_sortie;
-		if (!$destFormat) {
-			spip_log("pas de format pour $image");
-
-			return;
-		}
-
-		$fonction_imagecreatefrom = $valeurs['fonction_imagecreatefrom'];
-		if (!function_exists($fonction_imagecreatefrom)) {
-			return;
-		}
-		$srcImage = @$fonction_imagecreatefrom($image);
-		if (!$srcImage) {
-			spip_log('echec gd1/gd2');
-
-			return;
-		}
-
-		// Initialisation de l'image destination
-		$destImage = null;
-		if ($process == 'gd2' and $destFormat != 'gif') {
-			$destImage = ImageCreateTrueColor($destWidth, $destHeight);
-		}
-		if (!$destImage) {
-			$destImage = ImageCreate($destWidth, $destHeight);
-		}
-
-		// Recopie de l'image d'origine avec adaptation de la taille
-		$ok = false;
-		if (($process == 'gd2') and function_exists('ImageCopyResampled')) {
-			if ($format == 'gif') {
-				// Si un GIF est transparent,
-				// fabriquer un PNG transparent
-				$transp = imagecolortransparent($srcImage);
-				if ($transp > 0) {
-					$destFormat = 'png';
-				}
-			}
-			if (in_array($destFormat, _image_extensions_conservent_transparence())) {
-				// Conserver la transparence
-				if (function_exists('imageAntiAlias')) {
-					imageAntiAlias($destImage, true);
-				}
-				@imagealphablending($destImage, false);
-				@imagesavealpha($destImage, true);
-			}
-			$ok = @ImageCopyResampled($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
-		}
-		if (!$ok) {
-			$ok = ImageCopyResized($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
-		}
-
-		// Sauvegarde de l'image destination
-		$valeurs['fichier_dest'] = $vignette = "$destination.$destFormat";
-		$valeurs['format_dest'] = $format = $destFormat;
-		_image_gd_output($destImage, $valeurs);
-
-		if ($srcImage) {
-			ImageDestroy($srcImage);
-		}
-		ImageDestroy($destImage);
-	}
-
-	if (!$vignette or !$size = @spip_getimagesize($vignette)) {
-		$size = [$destWidth, $destHeight];
-	}
-
-	// Gaffe: en safe mode, pas d'acces a la vignette,
-	// donc risque de balancer "width='0'", ce qui masque l'image sous MSIE
-	if ($size[0] < 1) {
-		$size[0] = $destWidth;
-	}
-	if ($size[1] < 1) {
-		$size[1] = $destHeight;
-	}
-
-	$retour['width'] = $largeur = $size[0];
-	$retour['height'] = $hauteur = $size[1];
-
-	$retour['fichier'] = $vignette;
-	$retour['format'] = $format;
-	$retour['date'] = @filemtime($vignette);
-
-	// renvoyer l'image
-	return $retour;
+    $srcHeight = null;
+    $retour = [];
+    // ordre de preference des formats graphiques pour creer les vignettes
+    // le premier format disponible, selon la methode demandee, est utilise
+    $image = $valeurs['fichier'];
+    $format = $valeurs['format_source'];
+    $destdir = dirname($valeurs['fichier_dest']);
+    $destfile = basename($valeurs['fichier_dest'], '.' . $valeurs['format_dest']);
+
+    $format_sortie = $valeurs['format_dest'];
+
+    if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
+        $process = $GLOBALS['meta']['image_process'];
+    }
+
+    // si le doc n'est pas une image dans un format accetpable, refuser
+    if (!$force and !in_array($format, formats_image_acceptables(in_array($process, ['gd1', 'gd2'])))) {
+        return;
+    }
+    $destination = "$destdir/$destfile";
+
+    // calculer la taille
+    if (($srcWidth = $valeurs['largeur']) && ($srcHeight = $valeurs['hauteur'])) {
+        if (!($destWidth = $valeurs['largeur_dest']) || !($destHeight = $valeurs['hauteur_dest'])) {
+            [$destWidth, $destHeight] = _image_ratio($srcWidth, $srcHeight, $maxWidth, $maxHeight);
+        }
+    } elseif ($process == 'convert' or $process == 'imagick') {
+        $destWidth = $maxWidth;
+        $destHeight = $maxHeight;
+    } else {
+        spip_log("echec $process sur $image");
+
+        return;
+    }
+
+    $vignette = '';
+
+    // Si l'image est de la taille demandee (ou plus petite), simplement la retourner
+    if ($srcWidth and $srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
+        $vignette = $destination . '.' . $format;
+        @copy($image, $vignette);
+    }
+
+    elseif ($valeurs['format_source'] === 'svg') {
+        if ($svg = svg_redimensionner($valeurs['fichier'], $destWidth, $destHeight)) {
+            $format_sortie = 'svg';
+            $vignette = $destination . '.' . $format_sortie;
+            $valeurs['fichier_dest'] = $vignette;
+            _image_gd_output($svg, $valeurs);
+        }
+    }
+
+    // imagemagick en ligne de commande
+    elseif ($process == 'convert') {
+        if (!defined('_CONVERT_COMMAND')) {
+            define('_CONVERT_COMMAND', 'convert');
+        } // Securite : mes_options.php peut preciser le chemin absolu
+        if (!defined('_RESIZE_COMMAND')) {
+            define('_RESIZE_COMMAND', _CONVERT_COMMAND . ' -quality ' . _IMG_CONVERT_QUALITE . ' -resize %xx%y! %src %dest');
+        }
+        $vignette = $destination . '.' . $format_sortie;
+        $commande = str_replace(
+            ['%x', '%y', '%src', '%dest'],
+            [
+                $destWidth,
+                $destHeight,
+                escapeshellcmd($image),
+                escapeshellcmd($vignette)
+            ],
+            _RESIZE_COMMAND
+        );
+        spip_log($commande);
+        exec($commande);
+        if (!@file_exists($vignette)) {
+            spip_log("echec convert sur $vignette");
+
+            return;  // echec commande
+        }
+    }
+
+    // php5 imagemagick
+    elseif ($process == 'imagick') {
+        if (!class_exists(\Imagick::class)) {
+            spip_log('Classe Imagick absente !', _LOG_ERREUR);
+
+            return;
+        }
+
+        // chemin compatible Windows
+        $output = realpath(dirname($destination));
+        if (!$output) {
+            return;
+        }
+        $vignette = $output . DIRECTORY_SEPARATOR . basename($destination) . '.' . $format_sortie;
+
+        $imagick = new Imagick();
+        $imagick->readImage(realpath($image));
+        $imagick->resizeImage(
+            $destWidth,
+            $destHeight,
+            Imagick::FILTER_LANCZOS,
+            1
+        );//, IMAGICK_FILTER_LANCZOS, _IMG_IMAGICK_QUALITE / 100);
+        $imagick->writeImage($vignette);
+
+        if (!@file_exists($vignette)) {
+            spip_log("echec imagick sur $vignette");
+
+            return;
+        }
+        // remettre le chemin relatif car c'est ce qu'attend SPIP pour la suite (en particlier action/tester)
+        $vignette = $destination . '.' . $format_sortie;
+    }
+
+    // netpbm
+    elseif ($process == 'netpbm') {
+        if (!defined('_PNMSCALE_COMMAND')) {
+            define('_PNMSCALE_COMMAND', 'pnmscale');
+        } // Securite : mes_options.php peut preciser le chemin absolu
+        if (_PNMSCALE_COMMAND == '') {
+            return;
+        }
+        $vignette = $destination . '.' . $format_sortie;
+        $pnmtojpeg_command = str_replace('pnmscale', 'pnmtojpeg', _PNMSCALE_COMMAND);
+        if ($format == 'jpg') {
+            $jpegtopnm_command = str_replace('pnmscale', 'jpegtopnm', _PNMSCALE_COMMAND);
+            exec("$jpegtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+            if (!($s = @filesize($vignette))) {
+                spip_unlink($vignette);
+            }
+            if (!@file_exists($vignette)) {
+                spip_log("echec netpbm-jpg sur $vignette");
+
+                return;
+            }
+        } else {
+            if ($format == 'gif') {
+                $giftopnm_command = str_replace('pnmscale', 'giftopnm', _PNMSCALE_COMMAND);
+                exec("$giftopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+                if (!($s = @filesize($vignette))) {
+                    spip_unlink($vignette);
+                }
+                if (!@file_exists($vignette)) {
+                    spip_log("echec netpbm-gif sur $vignette");
+
+                    return;
+                }
+            } else {
+                if ($format == 'png') {
+                    $pngtopnm_command = str_replace('pnmscale', 'pngtopnm', _PNMSCALE_COMMAND);
+                    exec("$pngtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+                    if (!($s = @filesize($vignette))) {
+                        spip_unlink($vignette);
+                    }
+                    if (!@file_exists($vignette)) {
+                        spip_log("echec netpbm-png sur $vignette");
+
+                        return;
+                    }
+                }
+            }
+        }
+    }
+
+    // gd ou gd2
+    elseif ($process == 'gd1' or $process == 'gd2') {
+        if (!function_exists('gd_info')) {
+            spip_log('Librairie GD absente !', _LOG_ERREUR);
+
+            return;
+        }
+        if (_IMG_GD_MAX_PIXELS && $srcWidth * $srcHeight > _IMG_GD_MAX_PIXELS) {
+            spip_log('vignette gd1/gd2 impossible : ' . $srcWidth * $srcHeight . 'pixels');
+
+            return;
+        }
+        $destFormat = $format_sortie;
+        if (!$destFormat) {
+            spip_log("pas de format pour $image");
+
+            return;
+        }
+
+        $fonction_imagecreatefrom = $valeurs['fonction_imagecreatefrom'];
+        if (!function_exists($fonction_imagecreatefrom)) {
+            return;
+        }
+        $srcImage = @$fonction_imagecreatefrom($image);
+        if (!$srcImage) {
+            spip_log('echec gd1/gd2');
+
+            return;
+        }
+
+        // Initialisation de l'image destination
+        $destImage = null;
+        if ($process == 'gd2' and $destFormat != 'gif') {
+            $destImage = ImageCreateTrueColor($destWidth, $destHeight);
+        }
+        if (!$destImage) {
+            $destImage = ImageCreate($destWidth, $destHeight);
+        }
+
+        // Recopie de l'image d'origine avec adaptation de la taille
+        $ok = false;
+        if (($process == 'gd2') and function_exists('ImageCopyResampled')) {
+            if ($format == 'gif') {
+                // Si un GIF est transparent,
+                // fabriquer un PNG transparent
+                $transp = imagecolortransparent($srcImage);
+                if ($transp > 0) {
+                    $destFormat = 'png';
+                }
+            }
+            if (in_array($destFormat, _image_extensions_conservent_transparence())) {
+                // Conserver la transparence
+                if (function_exists('imageAntiAlias')) {
+                    imageAntiAlias($destImage, true);
+                }
+                @imagealphablending($destImage, false);
+                @imagesavealpha($destImage, true);
+            }
+            $ok = @ImageCopyResampled($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
+        }
+        if (!$ok) {
+            $ok = ImageCopyResized($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
+        }
+
+        // Sauvegarde de l'image destination
+        $valeurs['fichier_dest'] = $vignette = "$destination.$destFormat";
+        $valeurs['format_dest'] = $format = $destFormat;
+        _image_gd_output($destImage, $valeurs);
+
+        if ($srcImage) {
+            ImageDestroy($srcImage);
+        }
+        ImageDestroy($destImage);
+    }
+
+    if (!$vignette or !$size = @spip_getimagesize($vignette)) {
+        $size = [$destWidth, $destHeight];
+    }
+
+    // Gaffe: en safe mode, pas d'acces a la vignette,
+    // donc risque de balancer "width='0'", ce qui masque l'image sous MSIE
+    if ($size[0] < 1) {
+        $size[0] = $destWidth;
+    }
+    if ($size[1] < 1) {
+        $size[1] = $destHeight;
+    }
+
+    $retour['width'] = $largeur = $size[0];
+    $retour['height'] = $hauteur = $size[1];
+
+    $retour['fichier'] = $vignette;
+    $retour['format'] = $format;
+    $retour['date'] = @filemtime($vignette);
+
+    // renvoyer l'image
+    return $retour;
 }
 
 /**
@@ -1626,25 +1626,25 @@ 
  * @return array Liste [ largeur, hauteur, ratio de réduction ]
  **/
 function _image_ratio(int $srcWidth, int $srcHeight, int $maxWidth, int $maxHeight): array {
-	$ratioWidth = $srcWidth / $maxWidth;
-	$ratioHeight = $srcHeight / $maxHeight;
-
-	if ($srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
-		$destWidth = $srcWidth;
-		$destHeight = $srcHeight;
-	} elseif ($ratioWidth < $ratioHeight) {
-		$destWidth = $srcWidth / $ratioHeight;
-		$destHeight = $maxHeight;
-	} else {
-		$destWidth = $maxWidth;
-		$destHeight = $srcHeight / $ratioWidth;
-	}
-
-	return [
-		intval(round($destWidth)),
-		intval(round($destHeight)),
-		max($ratioWidth, $ratioHeight)
-	];
+    $ratioWidth = $srcWidth / $maxWidth;
+    $ratioHeight = $srcHeight / $maxHeight;
+
+    if ($srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
+        $destWidth = $srcWidth;
+        $destHeight = $srcHeight;
+    } elseif ($ratioWidth < $ratioHeight) {
+        $destWidth = $srcWidth / $ratioHeight;
+        $destHeight = $maxHeight;
+    } else {
+        $destWidth = $maxWidth;
+        $destHeight = $srcHeight / $ratioWidth;
+    }
+
+    return [
+        intval(round($destWidth)),
+        intval(round($destHeight)),
+        max($ratioWidth, $ratioHeight)
+    ];
 }
 
 /**
@@ -1664,25 +1664,25 @@ 
  * @return array Liste [ largeur, hauteur, ratio de réduction ]
  **/
 function ratio_passe_partout(int $srcWidth, int $srcHeight, int $maxWidth, int $maxHeight): array {
-	$ratioWidth = $srcWidth / $maxWidth;
-	$ratioHeight = $srcHeight / $maxHeight;
-
-	if ($srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
-		$destWidth = $srcWidth;
-		$destHeight = $srcHeight;
-	} elseif ($ratioWidth > $ratioHeight) {
-		$destWidth = $srcWidth / $ratioHeight;
-		$destHeight = $maxHeight;
-	} else {
-		$destWidth = $maxWidth;
-		$destHeight = $srcHeight / $ratioWidth;
-	}
-
-	return [
-		intval(round($destWidth)),
-		intval(round($destHeight)),
-		min($ratioWidth, $ratioHeight)
-	];
+    $ratioWidth = $srcWidth / $maxWidth;
+    $ratioHeight = $srcHeight / $maxHeight;
+
+    if ($srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
+        $destWidth = $srcWidth;
+        $destHeight = $srcHeight;
+    } elseif ($ratioWidth > $ratioHeight) {
+        $destWidth = $srcWidth / $ratioHeight;
+        $destHeight = $maxHeight;
+    } else {
+        $destWidth = $maxWidth;
+        $destHeight = $srcHeight / $ratioWidth;
+    }
+
+    return [
+        intval(round($destWidth)),
+        intval(round($destHeight)),
+        min($ratioWidth, $ratioHeight)
+    ];
 }
 
 
@@ -1695,12 +1695,12 @@ 
  * @return string
  */
 function process_image_svg_identite($image) {
-	if ($image['creer']) {
-		$source = $image['fichier'];
-		_image_gd_output($source, $image);
-	}
+    if ($image['creer']) {
+        $source = $image['fichier'];
+        _image_gd_output($source, $image);
+    }
 
-	return _image_ecrire_tag($image, ['src' => $image['fichier_dest']]);
+    return _image_ecrire_tag($image, ['src' => $image['fichier_dest']]);
 }
 
 
@@ -1733,109 +1733,109 @@ 
  *     Code HTML de la balise img produite
  **/
 function process_image_reduire($fonction, $img, $taille, $taille_y, $force, $process = 'AUTO') {
-	$image = false;
-	if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
-		$process = $GLOBALS['meta']['image_process'];
-	}
-	# determiner le format de sortie
-	$format_sortie = false; // le choix par defaut sera bon
-	if ($process == 'netpbm') {
-		$format_sortie = 'jpg';
-	} elseif ($process == 'gd1' or $process == 'gd2') {
-		$image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
-		// on verifie que l'extension choisie est bonne (en principe oui)
-		$gd_formats = formats_image_acceptables(true);
-		if (
-			is_array($image)
-			and (!in_array($image['format_dest'], $gd_formats)
-				or (!in_array($image['format_dest'], _image_extensions_acceptees_en_sortie()))
-			)
-		) {
-			if ($image['format_source'] == 'jpg') {
-				$formats_sortie = ['jpg', 'png', 'gif'];
-			} else // les gif sont passes en png preferentiellement pour etre homogene aux autres filtres images
-			{
-				$formats_sortie = ['png', 'jpg', 'gif'];
-			}
-			// Choisir le format destination
-			// - on sauve de preference en JPEG (meilleure compression)
-			// - pour le GIF : les GD recentes peuvent le lire mais pas l'ecrire
-			# bug : gd_formats contient la liste des fichiers qu'on sait *lire*,
-			# pas *ecrire*
-			$format_sortie = '';
-			foreach ($formats_sortie as $fmt) {
-				if (in_array($fmt, $gd_formats) and in_array($fmt, _image_extensions_acceptees_en_sortie())) {
-					$format_sortie = $fmt;
-					break;
-				}
-			}
-			$image = false;
-		}
-	}
-
-	if (!is_array($image)) {
-		$image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
-	}
-
-	if (!is_array($image) or !$image['largeur'] or !$image['hauteur']) {
-		spip_log("image_reduire_src:pas de version locale de $img ou extension non prise en charge");
-		// on peut resizer en mode html si on dispose des elements
-		[$srcw, $srch] = taille_image($img);
-		if ($srcw and $srch) {
-			[$w, $h] = _image_ratio($srcw, $srch, $taille, $taille_y);
-
-			return _image_tag_changer_taille($img, $w, $h);
-		}
-		// la on n'a pas d'infos sur l'image source... on refile le truc a css
-		// sous la forme style='max-width: NNpx;'
-		return inserer_attribut(
-			$img,
-			'style',
-			"max-width: {$taille}px;max-width: min(100%,{$taille}px); max-height: {$taille_y}px"
-		);
-	}
-
-	// si l'image est plus petite que la cible retourner une copie cachee de l'image
-	if (($image['largeur'] <= $taille) && ($image['hauteur'] <= $taille_y)) {
-		if ($image['creer']) {
-			@copy($image['fichier'], $image['fichier_dest']);
-		}
-
-		return _image_ecrire_tag($image, ['src' => $image['fichier_dest']]);
-	}
-
-	if ($image['creer'] == false && !$force) {
-		return _image_ecrire_tag(
-			$image,
-			['src' => $image['fichier_dest'], 'width' => $image['largeur_dest'], 'height' => $image['hauteur_dest']]
-		);
-	}
-
-	if (in_array($image['format_source'], _image_extensions_acceptees_en_entree())) {
-		$destWidth = $image['largeur_dest'];
-		$destHeight = $image['hauteur_dest'];
-		$logo = $image['fichier'];
-		$date = $image['date_src'];
-		$preview = _image_creer_vignette($image, $taille, $taille_y, $process, $force);
-
-		if ($preview && $preview['fichier']) {
-			$logo = $preview['fichier'];
-			$destWidth = $preview['width'];
-			$destHeight = $preview['height'];
-			$date = $preview['date'];
-		}
-		// dans l'espace prive mettre un timestamp sur l'adresse
-		// de l'image, de facon a tromper le cache du navigateur
-		// quand on fait supprimer/reuploader un logo
-		// (pas de filemtime si SAFE MODE)
-		$date = test_espace_prive() ? ('?' . $date) : '';
-
-		return _image_ecrire_tag($image, ['src' => "$logo$date", 'width' => $destWidth, 'height' => $destHeight]);
-	}
-	else {
-		# BMP, tiff ... les redacteurs osent tout!
-		return $img;
-	}
+    $image = false;
+    if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
+        $process = $GLOBALS['meta']['image_process'];
+    }
+    # determiner le format de sortie
+    $format_sortie = false; // le choix par defaut sera bon
+    if ($process == 'netpbm') {
+        $format_sortie = 'jpg';
+    } elseif ($process == 'gd1' or $process == 'gd2') {
+        $image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
+        // on verifie que l'extension choisie est bonne (en principe oui)
+        $gd_formats = formats_image_acceptables(true);
+        if (
+            is_array($image)
+            and (!in_array($image['format_dest'], $gd_formats)
+                or (!in_array($image['format_dest'], _image_extensions_acceptees_en_sortie()))
+            )
+        ) {
+            if ($image['format_source'] == 'jpg') {
+                $formats_sortie = ['jpg', 'png', 'gif'];
+            } else // les gif sont passes en png preferentiellement pour etre homogene aux autres filtres images
+            {
+                $formats_sortie = ['png', 'jpg', 'gif'];
+            }
+            // Choisir le format destination
+            // - on sauve de preference en JPEG (meilleure compression)
+            // - pour le GIF : les GD recentes peuvent le lire mais pas l'ecrire
+            # bug : gd_formats contient la liste des fichiers qu'on sait *lire*,
+            # pas *ecrire*
+            $format_sortie = '';
+            foreach ($formats_sortie as $fmt) {
+                if (in_array($fmt, $gd_formats) and in_array($fmt, _image_extensions_acceptees_en_sortie())) {
+                    $format_sortie = $fmt;
+                    break;
+                }
+            }
+            $image = false;
+        }
+    }
+
+    if (!is_array($image)) {
+        $image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
+    }
+
+    if (!is_array($image) or !$image['largeur'] or !$image['hauteur']) {
+        spip_log("image_reduire_src:pas de version locale de $img ou extension non prise en charge");
+        // on peut resizer en mode html si on dispose des elements
+        [$srcw, $srch] = taille_image($img);
+        if ($srcw and $srch) {
+            [$w, $h] = _image_ratio($srcw, $srch, $taille, $taille_y);
+
+            return _image_tag_changer_taille($img, $w, $h);
+        }
+        // la on n'a pas d'infos sur l'image source... on refile le truc a css
+        // sous la forme style='max-width: NNpx;'
+        return inserer_attribut(
+            $img,
+            'style',
+            "max-width: {$taille}px;max-width: min(100%,{$taille}px); max-height: {$taille_y}px"
+        );
+    }
+
+    // si l'image est plus petite que la cible retourner une copie cachee de l'image
+    if (($image['largeur'] <= $taille) && ($image['hauteur'] <= $taille_y)) {
+        if ($image['creer']) {
+            @copy($image['fichier'], $image['fichier_dest']);
+        }
+
+        return _image_ecrire_tag($image, ['src' => $image['fichier_dest']]);
+    }
+
+    if ($image['creer'] == false && !$force) {
+        return _image_ecrire_tag(
+            $image,
+            ['src' => $image['fichier_dest'], 'width' => $image['largeur_dest'], 'height' => $image['hauteur_dest']]
+        );
+    }
+
+    if (in_array($image['format_source'], _image_extensions_acceptees_en_entree())) {
+        $destWidth = $image['largeur_dest'];
+        $destHeight = $image['hauteur_dest'];
+        $logo = $image['fichier'];
+        $date = $image['date_src'];
+        $preview = _image_creer_vignette($image, $taille, $taille_y, $process, $force);
+
+        if ($preview && $preview['fichier']) {
+            $logo = $preview['fichier'];
+            $destWidth = $preview['width'];
+            $destHeight = $preview['height'];
+            $date = $preview['date'];
+        }
+        // dans l'espace prive mettre un timestamp sur l'adresse
+        // de l'image, de facon a tromper le cache du navigateur
+        // quand on fait supprimer/reuploader un logo
+        // (pas de filemtime si SAFE MODE)
+        $date = test_espace_prive() ? ('?' . $date) : '';
+
+        return _image_ecrire_tag($image, ['src' => "$logo$date", 'width' => $destWidth, 'height' => $destHeight]);
+    }
+    else {
+        # BMP, tiff ... les redacteurs osent tout!
+        return $img;
+    }
 }
 
 /**
@@ -1849,145 +1849,145 @@ 
  * Class phpthumb_functions
  */
 class phpthumb_functions {
-	/**
-	 * Retourne la couleur d'un pixel dans une image
-	 *
-	 * @param resource|GdImage $img
-	 * @param int $x
-	 * @param int $y
-	 * @return array|bool
-	 */
-	public static function GetPixelColor(&$img, $x, $y) {
-		if (is_resource($img) || (is_object($img) && $img instanceof \GdImage)) {
-			return @ImageColorsForIndex($img, @ImageColorAt($img, $x, $y));
-		}
-		return false;
-	}
-
-	/**
-	 * Retourne un nombre dans une représentation en Little Endian
-	 *
-	 * @param int $number
-	 * @param int $minbytes
-	 * @return string
-	 */
-	public static function LittleEndian2String($number, $minbytes = 1) {
-		$intstring = '';
-		while ($number > 0) {
-			$intstring = $intstring . chr($number & 255);
-			$number >>= 8;
-		}
-
-		return str_pad($intstring, $minbytes, "\x00", STR_PAD_RIGHT);
-	}
-
-	/**
-	 * Transforme une ressource GD en image au format ICO
-	 *
-	 * @param array $gd_image_array
-	 *     Tableau de ressources d'images GD
-	 * @return string
-	 *     Image au format ICO
-	 */
-	public static function GD2ICOstring(&$gd_image_array) {
-		foreach ($gd_image_array as $key => $gd_image) {
-			$ImageWidths[$key] = ImageSX($gd_image);
-			$ImageHeights[$key] = ImageSY($gd_image);
-			$bpp[$key] = ImageIsTrueColor($gd_image) ? 32 : 24;
-			$totalcolors[$key] = ImageColorsTotal($gd_image);
-
-			$icXOR[$key] = '';
-			for ($y = $ImageHeights[$key] - 1; $y >= 0; $y--) {
-				for ($x = 0; $x < $ImageWidths[$key]; $x++) {
-					$argb = phpthumb_functions::GetPixelColor($gd_image, $x, $y);
-					$a = round(255 * ((127 - $argb['alpha']) / 127));
-					$r = $argb['red'];
-					$g = $argb['green'];
-					$b = $argb['blue'];
-
-					if ($bpp[$key] == 32) {
-						$icXOR[$key] .= chr($b) . chr($g) . chr($r) . chr($a);
-					} elseif ($bpp[$key] == 24) {
-						$icXOR[$key] .= chr($b) . chr($g) . chr($r);
-					}
-
-					if ($a < 128) {
-						@$icANDmask[$key][$y] .= '1';
-					} else {
-						@$icANDmask[$key][$y] .= '0';
-					}
-				}
-				// mask bits are 32-bit aligned per scanline
-				while (strlen($icANDmask[$key][$y]) % 32) {
-					$icANDmask[$key][$y] .= '0';
-				}
-			}
-			$icAND[$key] = '';
-			foreach ($icANDmask[$key] as $y => $scanlinemaskbits) {
-				for ($i = 0; $i < strlen($scanlinemaskbits); $i += 8) {
-					$icAND[$key] .= chr(bindec(str_pad(substr($scanlinemaskbits, $i, 8), 8, '0', STR_PAD_LEFT)));
-				}
-			}
-		}
-
-		foreach ($gd_image_array as $key => $gd_image) {
-			$biSizeImage = $ImageWidths[$key] * $ImageHeights[$key] * ($bpp[$key] / 8);
-
-			// BITMAPINFOHEADER - 40 bytes
-			$BitmapInfoHeader[$key] = '';
-			$BitmapInfoHeader[$key] .= "\x28\x00\x00\x00";                // DWORD  biSize;
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageWidths[$key], 4);    // LONG   biWidth;
-			// The biHeight member specifies the combined
-			// height of the XOR and AND masks.
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageHeights[$key] * 2, 4); // LONG   biHeight;
-			$BitmapInfoHeader[$key] .= "\x01\x00";                    // WORD   biPlanes;
-			$BitmapInfoHeader[$key] .= chr($bpp[$key]) . "\x00";              // wBitCount;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biCompression;
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($biSizeImage, 4);      // DWORD  biSizeImage;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biXPelsPerMeter;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biYPelsPerMeter;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrUsed;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrImportant;
-		}
-
-
-		$icondata = "\x00\x00";                    // idReserved;   // Reserved (must be 0)
-		$icondata .= "\x01\x00";                    // idType;	   // Resource Type (1 for icons)
-		$icondata .= phpthumb_functions::LittleEndian2String(count($gd_image_array), 2);  // idCount;	  // How many images?
-
-		$dwImageOffset = 6 + (count($gd_image_array) * 16);
-		foreach ($gd_image_array as $key => $gd_image) {
-			// ICONDIRENTRY   idEntries[1]; // An entry for each image (idCount of 'em)
-
-			$icondata .= chr($ImageWidths[$key]);           // bWidth;		  // Width, in pixels, of the image
-			$icondata .= chr($ImageHeights[$key]);          // bHeight;		 // Height, in pixels, of the image
-			$icondata .= chr($totalcolors[$key]);           // bColorCount;	 // Number of colors in image (0 if >=8bpp)
-			$icondata .= "\x00";                    // bReserved;	   // Reserved ( must be 0)
-
-			$icondata .= "\x01\x00";                  // wPlanes;		 // Color Planes
-			$icondata .= chr($bpp[$key]) . "\x00";            // wBitCount;	   // Bits per pixel
-
-			$dwBytesInRes = 40 + strlen($icXOR[$key]) + strlen($icAND[$key]);
-			$icondata .= phpthumb_functions::LittleEndian2String(
-				$dwBytesInRes,
-				4
-			);     // dwBytesInRes;	// How many bytes in this resource?
-
-			$icondata .= phpthumb_functions::LittleEndian2String(
-				$dwImageOffset,
-				4
-			);    // dwImageOffset;   // Where in the file is this image?
-			$dwImageOffset += strlen($BitmapInfoHeader[$key]);
-			$dwImageOffset += strlen($icXOR[$key]);
-			$dwImageOffset += strlen($icAND[$key]);
-		}
-
-		foreach ($gd_image_array as $key => $gd_image) {
-			$icondata .= $BitmapInfoHeader[$key];
-			$icondata .= $icXOR[$key];
-			$icondata .= $icAND[$key];
-		}
-
-		return $icondata;
-	}
+    /**
+     * Retourne la couleur d'un pixel dans une image
+     *
+     * @param resource|GdImage $img
+     * @param int $x
+     * @param int $y
+     * @return array|bool
+     */
+    public static function GetPixelColor(&$img, $x, $y) {
+        if (is_resource($img) || (is_object($img) && $img instanceof \GdImage)) {
+            return @ImageColorsForIndex($img, @ImageColorAt($img, $x, $y));
+        }
+        return false;
+    }
+
+    /**
+     * Retourne un nombre dans une représentation en Little Endian
+     *
+     * @param int $number
+     * @param int $minbytes
+     * @return string
+     */
+    public static function LittleEndian2String($number, $minbytes = 1) {
+        $intstring = '';
+        while ($number > 0) {
+            $intstring = $intstring . chr($number & 255);
+            $number >>= 8;
+        }
+
+        return str_pad($intstring, $minbytes, "\x00", STR_PAD_RIGHT);
+    }
+
+    /**
+     * Transforme une ressource GD en image au format ICO
+     *
+     * @param array $gd_image_array
+     *     Tableau de ressources d'images GD
+     * @return string
+     *     Image au format ICO
+     */
+    public static function GD2ICOstring(&$gd_image_array) {
+        foreach ($gd_image_array as $key => $gd_image) {
+            $ImageWidths[$key] = ImageSX($gd_image);
+            $ImageHeights[$key] = ImageSY($gd_image);
+            $bpp[$key] = ImageIsTrueColor($gd_image) ? 32 : 24;
+            $totalcolors[$key] = ImageColorsTotal($gd_image);
+
+            $icXOR[$key] = '';
+            for ($y = $ImageHeights[$key] - 1; $y >= 0; $y--) {
+                for ($x = 0; $x < $ImageWidths[$key]; $x++) {
+                    $argb = phpthumb_functions::GetPixelColor($gd_image, $x, $y);
+                    $a = round(255 * ((127 - $argb['alpha']) / 127));
+                    $r = $argb['red'];
+                    $g = $argb['green'];
+                    $b = $argb['blue'];
+
+                    if ($bpp[$key] == 32) {
+                        $icXOR[$key] .= chr($b) . chr($g) . chr($r) . chr($a);
+                    } elseif ($bpp[$key] == 24) {
+                        $icXOR[$key] .= chr($b) . chr($g) . chr($r);
+                    }
+
+                    if ($a < 128) {
+                        @$icANDmask[$key][$y] .= '1';
+                    } else {
+                        @$icANDmask[$key][$y] .= '0';
+                    }
+                }
+                // mask bits are 32-bit aligned per scanline
+                while (strlen($icANDmask[$key][$y]) % 32) {
+                    $icANDmask[$key][$y] .= '0';
+                }
+            }
+            $icAND[$key] = '';
+            foreach ($icANDmask[$key] as $y => $scanlinemaskbits) {
+                for ($i = 0; $i < strlen($scanlinemaskbits); $i += 8) {
+                    $icAND[$key] .= chr(bindec(str_pad(substr($scanlinemaskbits, $i, 8), 8, '0', STR_PAD_LEFT)));
+                }
+            }
+        }
+
+        foreach ($gd_image_array as $key => $gd_image) {
+            $biSizeImage = $ImageWidths[$key] * $ImageHeights[$key] * ($bpp[$key] / 8);
+
+            // BITMAPINFOHEADER - 40 bytes
+            $BitmapInfoHeader[$key] = '';
+            $BitmapInfoHeader[$key] .= "\x28\x00\x00\x00";                // DWORD  biSize;
+            $BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageWidths[$key], 4);    // LONG   biWidth;
+            // The biHeight member specifies the combined
+            // height of the XOR and AND masks.
+            $BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageHeights[$key] * 2, 4); // LONG   biHeight;
+            $BitmapInfoHeader[$key] .= "\x01\x00";                    // WORD   biPlanes;
+            $BitmapInfoHeader[$key] .= chr($bpp[$key]) . "\x00";              // wBitCount;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biCompression;
+            $BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($biSizeImage, 4);      // DWORD  biSizeImage;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biXPelsPerMeter;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biYPelsPerMeter;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrUsed;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrImportant;
+        }
+
+
+        $icondata = "\x00\x00";                    // idReserved;   // Reserved (must be 0)
+        $icondata .= "\x01\x00";                    // idType;	   // Resource Type (1 for icons)
+        $icondata .= phpthumb_functions::LittleEndian2String(count($gd_image_array), 2);  // idCount;	  // How many images?
+
+        $dwImageOffset = 6 + (count($gd_image_array) * 16);
+        foreach ($gd_image_array as $key => $gd_image) {
+            // ICONDIRENTRY   idEntries[1]; // An entry for each image (idCount of 'em)
+
+            $icondata .= chr($ImageWidths[$key]);           // bWidth;		  // Width, in pixels, of the image
+            $icondata .= chr($ImageHeights[$key]);          // bHeight;		 // Height, in pixels, of the image
+            $icondata .= chr($totalcolors[$key]);           // bColorCount;	 // Number of colors in image (0 if >=8bpp)
+            $icondata .= "\x00";                    // bReserved;	   // Reserved ( must be 0)
+
+            $icondata .= "\x01\x00";                  // wPlanes;		 // Color Planes
+            $icondata .= chr($bpp[$key]) . "\x00";            // wBitCount;	   // Bits per pixel
+
+            $dwBytesInRes = 40 + strlen($icXOR[$key]) + strlen($icAND[$key]);
+            $icondata .= phpthumb_functions::LittleEndian2String(
+                $dwBytesInRes,
+                4
+            );     // dwBytesInRes;	// How many bytes in this resource?
+
+            $icondata .= phpthumb_functions::LittleEndian2String(
+                $dwImageOffset,
+                4
+            );    // dwImageOffset;   // Where in the file is this image?
+            $dwImageOffset += strlen($BitmapInfoHeader[$key]);
+            $dwImageOffset += strlen($icXOR[$key]);
+            $dwImageOffset += strlen($icAND[$key]);
+        }
+
+        foreach ($gd_image_array as $key => $gd_image) {
+            $icondata .= $BitmapInfoHeader[$key];
+            $icondata .= $icXOR[$key];
+            $icondata .= $icAND[$key];
+        }
+
+        return $icondata;
+    }
 }

ecrire/inc/traduire.php

Indentation +206 added lines, -206 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -38,20 +38,20 @@ 
  *     Liste des fichiers de langue trouvés, dans l'ordre des chemins
  */
 function find_langs_in_path($file, $dirname = 'lang') {
-	static $dirs = [];
-	$liste = [];
-	foreach (creer_chemin() as $dir) {
-		if (!isset($dirs[$a = $dir . $dirname])) {
-			$dirs[$a] = (is_dir($a) || !$a);
-		}
-		if ($dirs[$a]) {
-			if (is_readable($a .= $file)) {
-				$liste[] = $a;
-			}
-		}
-	}
+    static $dirs = [];
+    $liste = [];
+    foreach (creer_chemin() as $dir) {
+        if (!isset($dirs[$a = $dir . $dirname])) {
+            $dirs[$a] = (is_dir($a) || !$a);
+        }
+        if ($dirs[$a]) {
+            if (is_readable($a .= $file)) {
+                $liste[] = $a;
+            }
+        }
+    }
 
-	return array_reverse($liste);
+    return array_reverse($liste);
 }
 
 /**
@@ -66,23 +66,23 @@ 
  *     Liste des fichiers touvés pour ce module et cette langue.
  **/
 function chercher_module_lang($module, $lang = '') {
-	if ($lang) {
-		$lang = '_' . $lang;
-	}
+    if ($lang) {
+        $lang = '_' . $lang;
+    }
 
-	// 1) dans un repertoire nomme lang/ se trouvant sur le chemin
-	if (
-		$f = ($module == 'local'
-		? find_in_path($module . $lang . '.php', 'lang/')
-		: find_langs_in_path($module . $lang . '.php', 'lang/'))
-	) {
-		return is_array($f) ? $f : [$f];
-	}
+    // 1) dans un repertoire nomme lang/ se trouvant sur le chemin
+    if (
+        $f = ($module == 'local'
+        ? find_in_path($module . $lang . '.php', 'lang/')
+        : find_langs_in_path($module . $lang . '.php', 'lang/'))
+    ) {
+        return is_array($f) ? $f : [$f];
+    }
 
-	// 2) directement dans le chemin (old style, uniquement pour local)
-	return (($module == 'local') or strpos($module, '/'))
-		? (($f = find_in_path($module . $lang . '.php')) ? [$f] : false)
-		: false;
+    // 2) directement dans le chemin (old style, uniquement pour local)
+    return (($module == 'local') or strpos($module, '/'))
+        ? (($f = find_in_path($module . $lang . '.php')) ? [$f] : false)
+        : false;
 }
 
 /**
@@ -104,33 +104,33 @@ 
  * @return void
  **/
 function charger_langue($lang, $module = 'spip') {
-	static $langs = [];
-	$var = 'i18n_' . $module . '_' . $lang;
-	if (!isset($langs[$lang])) {
-		$langs[$lang] = [];
-		if ($lang) {
-			$langs[$lang][] = $lang;
-			if (strpos($lang, '_') !== false) {
-				$l = explode('_', $lang);
-				$langs[$lang][] = reset($l);
-			}
-		}
-		$langs[$lang][] = $GLOBALS['meta']['langue_site'];
-		$langs[$lang][] = _LANGUE_PAR_DEFAUT;
-	}
-	foreach ($langs[$lang] as $l) {
-		if ($fichiers_lang = chercher_module_lang($module, $l)) {
-			$GLOBALS['idx_lang'] = 'i18n_' . $module . '_' . $l;
-			$GLOBALS[$GLOBALS['idx_lang']] = lire_fichier_langue(array_shift($fichiers_lang));
-			surcharger_langue($fichiers_lang);
-			if ($l !== $lang) {
-				$GLOBALS[$var] = &$GLOBALS['i18n_' . $module . '_' . $l];
-			}
-			$GLOBALS['lang_' . $var] = $l;
-			#spip_log("module de langue : {$module}_$l.php", 'traduire');
-			break;
-		}
-	}
+    static $langs = [];
+    $var = 'i18n_' . $module . '_' . $lang;
+    if (!isset($langs[$lang])) {
+        $langs[$lang] = [];
+        if ($lang) {
+            $langs[$lang][] = $lang;
+            if (strpos($lang, '_') !== false) {
+                $l = explode('_', $lang);
+                $langs[$lang][] = reset($l);
+            }
+        }
+        $langs[$lang][] = $GLOBALS['meta']['langue_site'];
+        $langs[$lang][] = _LANGUE_PAR_DEFAUT;
+    }
+    foreach ($langs[$lang] as $l) {
+        if ($fichiers_lang = chercher_module_lang($module, $l)) {
+            $GLOBALS['idx_lang'] = 'i18n_' . $module . '_' . $l;
+            $GLOBALS[$GLOBALS['idx_lang']] = lire_fichier_langue(array_shift($fichiers_lang));
+            surcharger_langue($fichiers_lang);
+            if ($l !== $lang) {
+                $GLOBALS[$var] = &$GLOBALS['i18n_' . $module . '_' . $l];
+            }
+            $GLOBALS['lang_' . $var] = $l;
+            #spip_log("module de langue : {$module}_$l.php", 'traduire');
+            break;
+        }
+    }
 }
 
 /**
@@ -143,21 +143,21 @@ 
  * @return array<string, string>
  */
 function lire_fichier_langue(string $fichier): array {
-	$idx_lang_before = $GLOBALS['idx_lang'] ?? null;
-	$idx_lang_tmp = ($GLOBALS['idx_lang'] ?? 'lang') . '@temporaire';
-	$GLOBALS['idx_lang'] = $idx_lang_tmp;
-	$idx_lang = include $fichier;
-	$GLOBALS['idx_lang'] = $idx_lang_before;
-	if (!is_array($idx_lang)) {
-		if (isset($GLOBALS[$idx_lang_tmp]) and is_array($GLOBALS[$idx_lang_tmp])) {
-			$idx_lang = $GLOBALS[$idx_lang_tmp];
-		} else {
-			$idx_lang = [];
-			spip_log(sprintf('Fichier de langue incorrect : %s', $fichier), _LOG_ERREUR);
-		}
-		unset($GLOBALS[$idx_lang_tmp]);
-	}
-	return $idx_lang;
+    $idx_lang_before = $GLOBALS['idx_lang'] ?? null;
+    $idx_lang_tmp = ($GLOBALS['idx_lang'] ?? 'lang') . '@temporaire';
+    $GLOBALS['idx_lang'] = $idx_lang_tmp;
+    $idx_lang = include $fichier;
+    $GLOBALS['idx_lang'] = $idx_lang_before;
+    if (!is_array($idx_lang)) {
+        if (isset($GLOBALS[$idx_lang_tmp]) and is_array($GLOBALS[$idx_lang_tmp])) {
+            $idx_lang = $GLOBALS[$idx_lang_tmp];
+        } else {
+            $idx_lang = [];
+            spip_log(sprintf('Fichier de langue incorrect : %s', $fichier), _LOG_ERREUR);
+        }
+        unset($GLOBALS[$idx_lang_tmp]);
+    }
+    return $idx_lang;
 }
 
 /**
@@ -177,46 +177,46 @@ 
  *    Liste des chemins de fichiers de langue à surcharger.
  **/
 function surcharger_langue($fichiers) {
-	static $surcharges = [];
-	if (!isset($GLOBALS['idx_lang'])) {
-		return;
-	}
+    static $surcharges = [];
+    if (!isset($GLOBALS['idx_lang'])) {
+        return;
+    }
 
-	if (!is_array($fichiers)) {
-		$fichiers = [$fichiers];
-	}
-	if (!count($fichiers)) {
-		return;
-	}
-	foreach ($fichiers as $fichier) {
-		if (!isset($surcharges[$fichier])) {
-			$surcharges[$fichier] = lire_fichier_langue($fichier);
-		}
-		if (is_array($surcharges[$fichier])) {
-			$GLOBALS[$GLOBALS['idx_lang']] ??= [];
-			$GLOBALS[$GLOBALS['idx_lang']] = array_merge(
-				$GLOBALS[$GLOBALS['idx_lang']],
-				$surcharges[$fichier]
-			);
-		}
-	}
+    if (!is_array($fichiers)) {
+        $fichiers = [$fichiers];
+    }
+    if (!count($fichiers)) {
+        return;
+    }
+    foreach ($fichiers as $fichier) {
+        if (!isset($surcharges[$fichier])) {
+            $surcharges[$fichier] = lire_fichier_langue($fichier);
+        }
+        if (is_array($surcharges[$fichier])) {
+            $GLOBALS[$GLOBALS['idx_lang']] ??= [];
+            $GLOBALS[$GLOBALS['idx_lang']] = array_merge(
+                $GLOBALS[$GLOBALS['idx_lang']],
+                $surcharges[$fichier]
+            );
+        }
+    }
 }
 
 
 
 class SPIP_Traductions_Description {
-	/** @var string code de langue (hors module) */
-	public $code;
-	/** @var string nom du module de langue */
-	public $module;
-	/** @var string langue de la traduction */
-	public $langue;
-	/** @var string traduction */
-	public $texte;
-	/** @var string var mode particulier appliqué ? */
-	public $mode;
-	/** @var bool Corrections des textes appliqué ? */
-	public $corrections = false;
+    /** @var string code de langue (hors module) */
+    public $code;
+    /** @var string nom du module de langue */
+    public $module;
+    /** @var string langue de la traduction */
+    public $langue;
+    /** @var string traduction */
+    public $texte;
+    /** @var string var mode particulier appliqué ? */
+    public $mode;
+    /** @var bool Corrections des textes appliqué ? */
+    public $corrections = false;
 }
 
 
@@ -258,99 +258,99 @@ 
  *     - SPIP_Traductions_Description : traduction et description (texte, module, langue)
  **/
 function inc_traduire_dist($ori, $lang, $raw = false) {
-	static $deja_vu = [];
-	static $local = [];
+    static $deja_vu = [];
+    static $local = [];
 
-	if (isset($deja_vu[$lang][$ori]) and (_request('var_mode') != 'traduction')) {
-		return $raw ? $deja_vu[$lang][$ori] : $deja_vu[$lang][$ori]->texte;
-	}
+    if (isset($deja_vu[$lang][$ori]) and (_request('var_mode') != 'traduction')) {
+        return $raw ? $deja_vu[$lang][$ori] : $deja_vu[$lang][$ori]->texte;
+    }
 
-	// modules demandes explicitement <xxx|yyy|zzz:code> cf MODULES_IDIOMES
-	if (strpos($ori, ':')) {
-		[$modules, $code] = explode(':', $ori, 2);
-		$modules = explode('|', $modules);
-		$ori_complet = $ori;
-	} else {
-		$modules = ['spip', 'ecrire'];
-		$code = $ori;
-		$ori_complet = implode('|', $modules) . ':' . $ori;
-	}
+    // modules demandes explicitement <xxx|yyy|zzz:code> cf MODULES_IDIOMES
+    if (strpos($ori, ':')) {
+        [$modules, $code] = explode(':', $ori, 2);
+        $modules = explode('|', $modules);
+        $ori_complet = $ori;
+    } else {
+        $modules = ['spip', 'ecrire'];
+        $code = $ori;
+        $ori_complet = implode('|', $modules) . ':' . $ori;
+    }
 
-	$desc = new SPIP_Traductions_Description();
+    $desc = new SPIP_Traductions_Description();
 
-	// parcourir tous les modules jusqu'a ce qu'on trouve
-	foreach ($modules as $module) {
-		$var = 'i18n_' . $module . '_' . $lang;
+    // parcourir tous les modules jusqu'a ce qu'on trouve
+    foreach ($modules as $module) {
+        $var = 'i18n_' . $module . '_' . $lang;
 
-		if (empty($GLOBALS[$var])) {
-			charger_langue($lang, $module);
-			// surcharges persos -- on cherche
-			// (lang/)local_xx.php et/ou (lang/)local.php ...
-			if (!isset($local['local_' . $lang])) {
-				// redéfinir la langue en cours pour les surcharges (chercher_langue a pu le changer)
-				$GLOBALS['idx_lang'] = $var;
-				// ... (lang/)local_xx.php
-				$local['local_' . $lang] = chercher_module_lang('local', $lang);
-			}
-			if ($local['local_' . $lang]) {
-				surcharger_langue($local['local_' . $lang]);
-			}
-			// ... puis (lang/)local.php
-			if (!isset($local['local'])) {
-				$local['local'] = chercher_module_lang('local');
-			}
-			if ($local['local']) {
-				surcharger_langue($local['local']);
-			}
-		}
+        if (empty($GLOBALS[$var])) {
+            charger_langue($lang, $module);
+            // surcharges persos -- on cherche
+            // (lang/)local_xx.php et/ou (lang/)local.php ...
+            if (!isset($local['local_' . $lang])) {
+                // redéfinir la langue en cours pour les surcharges (chercher_langue a pu le changer)
+                $GLOBALS['idx_lang'] = $var;
+                // ... (lang/)local_xx.php
+                $local['local_' . $lang] = chercher_module_lang('local', $lang);
+            }
+            if ($local['local_' . $lang]) {
+                surcharger_langue($local['local_' . $lang]);
+            }
+            // ... puis (lang/)local.php
+            if (!isset($local['local'])) {
+                $local['local'] = chercher_module_lang('local');
+            }
+            if ($local['local']) {
+                surcharger_langue($local['local']);
+            }
+        }
 
-		if (isset($GLOBALS[$var][$code])) {
-			$desc->code = $code;
-			$desc->module = $module;
-			$desc->langue = $GLOBALS['lang_' . $var] ?? $lang;
-			$desc->texte = $GLOBALS[$var][$code];
-			break;
-		}
-	}
+        if (isset($GLOBALS[$var][$code])) {
+            $desc->code = $code;
+            $desc->module = $module;
+            $desc->langue = $GLOBALS['lang_' . $var] ?? $lang;
+            $desc->texte = $GLOBALS[$var][$code];
+            break;
+        }
+    }
 
-	if (!$desc->corrections) {
-		$desc->corrections = true;
-		// Retour aux sources si la chaine est absente dans la langue cible ;
-		// on essaie d'abord la langue du site, puis a defaut la langue fr
-		if (
-			($desc->texte === null || !strlen($desc->texte))
-			and $lang !== _LANGUE_PAR_DEFAUT
-		) {
-			if ($lang !== $GLOBALS['meta']['langue_site']) {
-				$desc = inc_traduire_dist($ori, $GLOBALS['meta']['langue_site'], true);
-			} else {
-				$desc = inc_traduire_dist($ori, _LANGUE_PAR_DEFAUT, true);
-			}
-		}
+    if (!$desc->corrections) {
+        $desc->corrections = true;
+        // Retour aux sources si la chaine est absente dans la langue cible ;
+        // on essaie d'abord la langue du site, puis a defaut la langue fr
+        if (
+            ($desc->texte === null || !strlen($desc->texte))
+            and $lang !== _LANGUE_PAR_DEFAUT
+        ) {
+            if ($lang !== $GLOBALS['meta']['langue_site']) {
+                $desc = inc_traduire_dist($ori, $GLOBALS['meta']['langue_site'], true);
+            } else {
+                $desc = inc_traduire_dist($ori, _LANGUE_PAR_DEFAUT, true);
+            }
+        }
 
-		// Supprimer la mention <NEW> ou <MODIF>
-		if ($desc->texte && substr($desc->texte, 0, 1) === '<') {
-			$desc->texte = str_replace(['<NEW>', '<MODIF>'], [], $desc->texte);
-		}
+        // Supprimer la mention <NEW> ou <MODIF>
+        if ($desc->texte && substr($desc->texte, 0, 1) === '<') {
+            $desc->texte = str_replace(['<NEW>', '<MODIF>'], [], $desc->texte);
+        }
 
-		// Si on n'est pas en utf-8, la chaine peut l'etre...
-		// le cas echeant on la convertit en entites html &#xxx;
-		if (
-			(!isset($GLOBALS['meta']['charset']) or $GLOBALS['meta']['charset'] !== 'utf-8')
-			and preg_match(',[\x7f-\xff],S', $desc->texte)
-		) {
-			include_spip('inc/charsets');
-			$desc->texte = charset2unicode($desc->texte, 'utf-8');
-		}
-	}
+        // Si on n'est pas en utf-8, la chaine peut l'etre...
+        // le cas echeant on la convertit en entites html &#xxx;
+        if (
+            (!isset($GLOBALS['meta']['charset']) or $GLOBALS['meta']['charset'] !== 'utf-8')
+            and preg_match(',[\x7f-\xff],S', $desc->texte)
+        ) {
+            include_spip('inc/charsets');
+            $desc->texte = charset2unicode($desc->texte, 'utf-8');
+        }
+    }
 
-	if (_request('var_mode') == 'traduction') {
-		$desc = definir_details_traduction($desc, $ori_complet);
-	} else {
-		$deja_vu[$lang][$ori] = $desc;
-	}
+    if (_request('var_mode') == 'traduction') {
+        $desc = definir_details_traduction($desc, $ori_complet);
+    } else {
+        $deja_vu[$lang][$ori] = $desc;
+    }
 
-	return $raw ? $desc : $desc->texte;
+    return $raw ? $desc : $desc->texte;
 }
 
 /**
@@ -362,23 +362,23 @@ 
  * @return SPIP_Traductions_Description
  */
 function definir_details_traduction($desc, $modules) {
-	if (!$desc->mode and $desc->texte) {
-		// ne pas modifier 2 fois l'affichage
-		$desc->mode = 'traduction';
-		$classe = 'debug-traduction' . ($desc->module == 'ecrire' ? '-prive' : '');
-		$desc->texte = '<span '
-			. 'lang=' . $desc->langue
-			. ' class=' . $classe
-			. ' data-module=' . $desc->module
-			. ' data-code=' . $desc->code
-			. ' title=' . $modules . '(' . $desc->langue . ')>'
-			. $desc->texte
-			. '</span>';
-		$desc->texte = str_replace(
-			["$desc->module:", "$desc->module|"],
-			["*$desc->module*:", "*$desc->module*|"],
-			$desc->texte
-		);
-	}
-	return $desc;
+    if (!$desc->mode and $desc->texte) {
+        // ne pas modifier 2 fois l'affichage
+        $desc->mode = 'traduction';
+        $classe = 'debug-traduction' . ($desc->module == 'ecrire' ? '-prive' : '');
+        $desc->texte = '<span '
+            . 'lang=' . $desc->langue
+            . ' class=' . $classe
+            . ' data-module=' . $desc->module
+            . ' data-code=' . $desc->code
+            . ' title=' . $modules . '(' . $desc->langue . ')>'
+            . $desc->texte
+            . '</span>';
+        $desc->texte = str_replace(
+            ["$desc->module:", "$desc->module|"],
+            ["*$desc->module*:", "*$desc->module*|"],
+            $desc->texte
+        );
+    }
+    return $desc;
 }

ecrire/iterateur/data.php

Indentation +636 added lines, -636 removed lines

@@ -17,11 +17,11 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_DATA_SOURCE_MAX_SIZE')) {
-	define('_DATA_SOURCE_MAX_SIZE', 2 * 1_048_576);
+    define('_DATA_SOURCE_MAX_SIZE', 2 * 1_048_576);
 }
 
 
@@ -42,17 +42,17 @@ 
  *     Description de la boucle complétée des champs
  */
 function iterateur_DATA_dist($b) {
-	$b->iterateur = 'DATA'; # designe la classe d'iterateur
-	$b->show = [
-		'field' => [
-			'cle' => 'STRING',
-			'valeur' => 'STRING',
-			'*' => 'ALL' // Champ joker *
-		]
-	];
-	$b->select[] = '.valeur';
-
-	return $b;
+    $b->iterateur = 'DATA'; # designe la classe d'iterateur
+    $b->show = [
+        'field' => [
+            'cle' => 'STRING',
+            'valeur' => 'STRING',
+            '*' => 'ALL' // Champ joker *
+        ]
+    ];
+    $b->select[] = '.valeur';
+
+    return $b;
 }
 
 
@@ -62,518 +62,518 @@ 
  * Pour itérer sur des données quelconques (transformables en tableau)
  */
 class IterateurDATA implements Iterator {
-	/** Tableau de données */
-	protected array $tableau = [];
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 */
-	protected array $filtre = [];
-
-
-	/**
-	 * Cle courante
-	 *
-	 * @var scalar
-	 */
-	protected $cle = null;
-
-	/**
-	 * Valeur courante
-	 *
-	 * @var mixed
-	 */
-	protected $valeur = null;
-
-	protected string $type = 'DATA';
-
-	protected array $command = [];
-
-	protected array $info = [];
-
-	/** Erreur presente ? */
-	public bool $err = false;
-
-	/**
-	 * Calcul du total des elements
-	 *
-	 * @var int|null
-	 **/
-	public $total = null;
-
-	/**
-	 * Constructeur
-	 *
-	 * @param  $command
-	 * @param array $info
-	 */
-	public function __construct($command, $info = []) {
-		$this->type = 'DATA';
-		$this->command = $command;
-		$this->info = $info;
-
-		$this->select($command);
-	}
-
-	/**
-	 * Revenir au depart
-	 *
-	 * @return void
-	 */
-	public function rewind(): void {
-		reset($this->tableau);
-		$this->cle = array_key_first($this->tableau);
-		$this->valeur = current($this->tableau);
-		next($this->tableau);
-	}
-
-	/**
-	 * Déclarer les critères exceptions
-	 *
-	 * @return array
-	 */
-	public function exception_des_criteres() {
-		return ['tableau'];
-	}
-
-	/**
-	 * Récupérer depuis le cache si possible
-	 *
-	 * @param string $cle
-	 * @return mixed
-	 */
-	protected function cache_get($cle) {
-		if (!$cle) {
-			return;
-		}
-		# utiliser memoization si dispo
-		if (!function_exists('cache_get')) {
-			return;
-		}
-
-		return cache_get($cle);
-	}
-
-	/**
-	 * Stocker en cache si possible
-	 *
-	 * @param string $cle
-	 * @param int $ttl
-	 * @param null|mixed $valeur
-	 * @return bool
-	 */
-	protected function cache_set($cle, $ttl, $valeur = null) {
-		if (!$cle) {
-			return;
-		}
-		if (is_null($valeur)) {
-			$valeur = $this->tableau;
-		}
-		# utiliser memoization si dispo
-		if (!function_exists('cache_set')) {
-			return;
-		}
-
-		return cache_set(
-			$cle,
-			[
-				'data' => $valeur,
-				'time' => time(),
-				'ttl' => $ttl
-			],
-			3600 + $ttl
-		);
-		# conserver le cache 1h de plus que la validite demandee,
-		# pour le cas ou le serveur distant ne reponde plus
-	}
-
-	/**
-	 * Aller chercher les données de la boucle DATA
-	 *
-	 * @throws Exception
-	 * @param array $command
-	 * @return void
-	 */
-	protected function select($command) {
-
-		// l'iterateur DATA peut etre appele en passant (data:type)
-		// le type se retrouve dans la commande 'from'
-		// dans ce cas la le critere {source}, si present, n'a pas besoin du 1er argument
-		if (isset($this->command['from'][0])) {
-			if (isset($this->command['source']) and is_array($this->command['source'])) {
-				array_unshift($this->command['source'], $this->command['sourcemode']);
-			}
-			$this->command['sourcemode'] = $this->command['from'][0];
-		}
-
-		// cherchons differents moyens de creer le tableau de donnees
-		// les commandes connues pour l'iterateur DATA
-		// sont : {tableau #ARRAY} ; {cle=...} ; {valeur=...}
-
-		// {source format, [URL], [arg2]...}
-		if (
-			isset($this->command['source'])
-			and isset($this->command['sourcemode'])
-		) {
-			$this->select_source();
-		}
-
-		// Critere {liste X1, X2, X3}
-		if (isset($this->command['liste'])) {
-			$this->select_liste();
-		}
-		if (isset($this->command['enum'])) {
-			$this->select_enum();
-		}
-
-		// Si a ce stade on n'a pas de table, il y a un bug
-		if (!is_array($this->tableau)) {
-			$this->err = true;
-			spip_log('erreur datasource ' . var_export($command, true));
-		}
-
-		// {datapath query.results}
-		// extraire le chemin "query.results" du tableau de donnees
-		if (
-			!$this->err
-			and isset($this->command['datapath'])
-			and is_array($this->command['datapath'])
-		) {
-			$this->select_datapath();
-		}
-
-		// tri {par x}
-		if ($this->command['orderby']) {
-			$this->select_orderby();
-		}
-
-		// grouper les resultats {fusion /x/y/z} ;
-		if ($this->command['groupby']) {
-			$this->select_groupby();
-		}
-
-		$this->rewind();
-		#var_dump($this->tableau);
-	}
-
-
-	/**
-	 * Aller chercher les donnees de la boucle DATA
-	 * depuis une source
-	 * {source format, [URL], [arg2]...}
-	 */
-	protected function select_source() {
-		# un peu crado : avant de charger le cache il faut charger
-		# les class indispensables, sinon PHP ne saura pas gerer
-		# l'objet en cache ; cf plugins/icalendar
-		# perf : pas de fonction table_to_array ! (table est deja un array)
-		if (
-			isset($this->command['sourcemode'])
-			and !in_array($this->command['sourcemode'], ['table', 'array', 'tableau'])
-		) {
-			charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
-		}
-
-		# le premier argument peut etre un array, une URL etc.
-		$src = $this->command['source'][0];
-
-		# avons-nous un cache dispo ?
-		$cle = null;
-		if (is_string($src)) {
-			$cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
-		}
-
-		$cache = $this->cache_get($cle);
-		if (isset($this->command['datacache'])) {
-			$ttl = intval($this->command['datacache']);
-		}
-		if (
-			$cache
-			and ($cache['time'] + ($ttl ?? $cache['ttl'])
-				> time())
-			and !(_request('var_mode') === 'recalcul'
-				and include_spip('inc/autoriser')
-				and autoriser('recalcul')
-			)
-		) {
-			$this->tableau = $cache['data'];
-		} else {
-			try {
-				if (
-					isset($this->command['sourcemode'])
-					and in_array(
-						$this->command['sourcemode'],
-						['table', 'array', 'tableau']
-					)
-				) {
-					if (
-						is_array($a = $src)
-						or (is_string($a)
-							and $a = str_replace('"', '"', $a) # fragile!
-							and is_array($a = @unserialize($a)))
-					) {
-						$this->tableau = $a;
-					}
-				} else {
-					$data = $src;
-					if (is_string($src)) {
-						if (tester_url_absolue($src)) {
-							include_spip('inc/distant');
-							$data = recuperer_url($src, ['taille_max' => _DATA_SOURCE_MAX_SIZE]);
-							$data = $data['page'] ?? '';
-							if (!$data) {
-								throw new Exception('404');
-							}
-							if (!isset($ttl)) {
-								$ttl = 24 * 3600;
-							}
-						} elseif (@is_dir($src)) {
-							$data = $src;
-						} elseif (@is_readable($src) && @is_file($src)) {
-							$data = spip_file_get_contents($src);
-						}
-						if (!isset($ttl)) {
-							$ttl = 10;
-						}
-					}
-
-					if (
-						!$this->err
-						and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
-					) {
-						$args = $this->command['source'];
-						$args[0] = $data;
-						if (is_array($a = $data_to_array(...$args))) {
-							$this->tableau = $a;
-						}
-					}
-				}
-
-				if (!is_array($this->tableau)) {
-					$this->err = true;
-				}
-
-				if (!$this->err and isset($ttl) and $ttl > 0) {
-					$this->cache_set($cle, $ttl);
-				}
-			} catch (Exception $e) {
-				$e = $e->getMessage();
-				$err = sprintf(
-					"[%s, %s] $e",
-					$src,
-					$this->command['sourcemode']
-				);
-				erreur_squelette([$err, []]);
-				$this->err = true;
-			}
-		}
-
-		# en cas d'erreur, utiliser le cache si encore dispo
-		if (
-			$this->err
-			and $cache
-		) {
-			$this->tableau = $cache['data'];
-			$this->err = false;
-		}
-	}
-
-
-	/**
-	 * Retourne un tableau donne depuis un critère liste
-	 *
-	 * Critère `{liste X1, X2, X3}`
-	 *
-	 * @see critere_DATA_liste_dist()
-	 *
-	 **/
-	protected function select_liste() {
-		# s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
-		if (!isset($this->command['liste'][1])) {
-			if (!is_array($this->command['liste'][0])) {
-				$this->command['liste'] = explode(',', $this->command['liste'][0]);
-			} else {
-				$this->command['liste'] = $this->command['liste'][0];
-			}
-		}
-		$this->tableau = $this->command['liste'];
-	}
-
-	/**
-	 * Retourne un tableau donne depuis un critere liste
-	 * Critere {enum Xmin, Xmax}
-	 *
-	 **/
-	protected function select_enum() {
-		# s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
-		if (!isset($this->command['enum'][1])) {
-			if (!is_array($this->command['enum'][0])) {
-				$this->command['enum'] = explode(',', $this->command['enum'][0]);
-			} else {
-				$this->command['enum'] = $this->command['enum'][0];
-			}
-		}
-		if ((is_countable($this->command['enum']) ? count($this->command['enum']) : 0) >= 3) {
-			$enum = range(
-				array_shift($this->command['enum']),
-				array_shift($this->command['enum']),
-				array_shift($this->command['enum'])
-			);
-		} else {
-			$enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']));
-		}
-		$this->tableau = $enum;
-	}
-
-
-	/**
-	 * extraire le chemin "query.results" du tableau de donnees
-	 * {datapath query.results}
-	 *
-	 **/
-	protected function select_datapath() {
-		$base = reset($this->command['datapath']);
-		if (strlen($base = ltrim(trim($base), '/'))) {
-			$this->tableau = table_valeur($this->tableau, $base);
-			if (!is_array($this->tableau)) {
-				$this->tableau = [];
-				$this->err = true;
-				spip_log("datapath '$base' absent");
-			}
-		}
-	}
-
-	/**
-	 * Ordonner les resultats
-	 * {par x}
-	 *
-	 **/
-	protected function select_orderby() {
-		$sortfunc = '';
-		$aleas = 0;
-		foreach ($this->command['orderby'] as $tri) {
-			// virer le / initial pour les criteres de la forme {par /xx}
-			if (preg_match(',^\.?([/\w:_-]+)( DESC)?$,iS', ltrim($tri, '/'), $r)) {
-				$r = array_pad($r, 3, null);
-
-				// tri par cle
-				if ($r[1] == 'cle') {
-					if (isset($r[2]) and $r[2]) {
-						krsort($this->tableau);
-					} else {
-						ksort($this->tableau);
-					}
-				} # {par hasard}
-				else {
-					if ($r[1] == 'hasard') {
-						$k = array_keys($this->tableau);
-						shuffle($k);
-						$v = [];
-						foreach ($k as $cle) {
-							$v[$cle] = $this->tableau[$cle];
-						}
-						$this->tableau = $v;
-					} else {
-						# {par valeur}
-						if ($r[1] == 'valeur') {
-							$tv = '%s';
-						} # {par valeur/xx/yy} ??
-						else {
-							$tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
-						}
-						$sortfunc .= '
+    /** Tableau de données */
+    protected array $tableau = [];
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     */
+    protected array $filtre = [];
+
+
+    /**
+     * Cle courante
+     *
+     * @var scalar
+     */
+    protected $cle = null;
+
+    /**
+     * Valeur courante
+     *
+     * @var mixed
+     */
+    protected $valeur = null;
+
+    protected string $type = 'DATA';
+
+    protected array $command = [];
+
+    protected array $info = [];
+
+    /** Erreur presente ? */
+    public bool $err = false;
+
+    /**
+     * Calcul du total des elements
+     *
+     * @var int|null
+     **/
+    public $total = null;
+
+    /**
+     * Constructeur
+     *
+     * @param  $command
+     * @param array $info
+     */
+    public function __construct($command, $info = []) {
+        $this->type = 'DATA';
+        $this->command = $command;
+        $this->info = $info;
+
+        $this->select($command);
+    }
+
+    /**
+     * Revenir au depart
+     *
+     * @return void
+     */
+    public function rewind(): void {
+        reset($this->tableau);
+        $this->cle = array_key_first($this->tableau);
+        $this->valeur = current($this->tableau);
+        next($this->tableau);
+    }
+
+    /**
+     * Déclarer les critères exceptions
+     *
+     * @return array
+     */
+    public function exception_des_criteres() {
+        return ['tableau'];
+    }
+
+    /**
+     * Récupérer depuis le cache si possible
+     *
+     * @param string $cle
+     * @return mixed
+     */
+    protected function cache_get($cle) {
+        if (!$cle) {
+            return;
+        }
+        # utiliser memoization si dispo
+        if (!function_exists('cache_get')) {
+            return;
+        }
+
+        return cache_get($cle);
+    }
+
+    /**
+     * Stocker en cache si possible
+     *
+     * @param string $cle
+     * @param int $ttl
+     * @param null|mixed $valeur
+     * @return bool
+     */
+    protected function cache_set($cle, $ttl, $valeur = null) {
+        if (!$cle) {
+            return;
+        }
+        if (is_null($valeur)) {
+            $valeur = $this->tableau;
+        }
+        # utiliser memoization si dispo
+        if (!function_exists('cache_set')) {
+            return;
+        }
+
+        return cache_set(
+            $cle,
+            [
+                'data' => $valeur,
+                'time' => time(),
+                'ttl' => $ttl
+            ],
+            3600 + $ttl
+        );
+        # conserver le cache 1h de plus que la validite demandee,
+        # pour le cas ou le serveur distant ne reponde plus
+    }
+
+    /**
+     * Aller chercher les données de la boucle DATA
+     *
+     * @throws Exception
+     * @param array $command
+     * @return void
+     */
+    protected function select($command) {
+
+        // l'iterateur DATA peut etre appele en passant (data:type)
+        // le type se retrouve dans la commande 'from'
+        // dans ce cas la le critere {source}, si present, n'a pas besoin du 1er argument
+        if (isset($this->command['from'][0])) {
+            if (isset($this->command['source']) and is_array($this->command['source'])) {
+                array_unshift($this->command['source'], $this->command['sourcemode']);
+            }
+            $this->command['sourcemode'] = $this->command['from'][0];
+        }
+
+        // cherchons differents moyens de creer le tableau de donnees
+        // les commandes connues pour l'iterateur DATA
+        // sont : {tableau #ARRAY} ; {cle=...} ; {valeur=...}
+
+        // {source format, [URL], [arg2]...}
+        if (
+            isset($this->command['source'])
+            and isset($this->command['sourcemode'])
+        ) {
+            $this->select_source();
+        }
+
+        // Critere {liste X1, X2, X3}
+        if (isset($this->command['liste'])) {
+            $this->select_liste();
+        }
+        if (isset($this->command['enum'])) {
+            $this->select_enum();
+        }
+
+        // Si a ce stade on n'a pas de table, il y a un bug
+        if (!is_array($this->tableau)) {
+            $this->err = true;
+            spip_log('erreur datasource ' . var_export($command, true));
+        }
+
+        // {datapath query.results}
+        // extraire le chemin "query.results" du tableau de donnees
+        if (
+            !$this->err
+            and isset($this->command['datapath'])
+            and is_array($this->command['datapath'])
+        ) {
+            $this->select_datapath();
+        }
+
+        // tri {par x}
+        if ($this->command['orderby']) {
+            $this->select_orderby();
+        }
+
+        // grouper les resultats {fusion /x/y/z} ;
+        if ($this->command['groupby']) {
+            $this->select_groupby();
+        }
+
+        $this->rewind();
+        #var_dump($this->tableau);
+    }
+
+
+    /**
+     * Aller chercher les donnees de la boucle DATA
+     * depuis une source
+     * {source format, [URL], [arg2]...}
+     */
+    protected function select_source() {
+        # un peu crado : avant de charger le cache il faut charger
+        # les class indispensables, sinon PHP ne saura pas gerer
+        # l'objet en cache ; cf plugins/icalendar
+        # perf : pas de fonction table_to_array ! (table est deja un array)
+        if (
+            isset($this->command['sourcemode'])
+            and !in_array($this->command['sourcemode'], ['table', 'array', 'tableau'])
+        ) {
+            charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
+        }
+
+        # le premier argument peut etre un array, une URL etc.
+        $src = $this->command['source'][0];
+
+        # avons-nous un cache dispo ?
+        $cle = null;
+        if (is_string($src)) {
+            $cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
+        }
+
+        $cache = $this->cache_get($cle);
+        if (isset($this->command['datacache'])) {
+            $ttl = intval($this->command['datacache']);
+        }
+        if (
+            $cache
+            and ($cache['time'] + ($ttl ?? $cache['ttl'])
+                > time())
+            and !(_request('var_mode') === 'recalcul'
+                and include_spip('inc/autoriser')
+                and autoriser('recalcul')
+            )
+        ) {
+            $this->tableau = $cache['data'];
+        } else {
+            try {
+                if (
+                    isset($this->command['sourcemode'])
+                    and in_array(
+                        $this->command['sourcemode'],
+                        ['table', 'array', 'tableau']
+                    )
+                ) {
+                    if (
+                        is_array($a = $src)
+                        or (is_string($a)
+                            and $a = str_replace('"', '"', $a) # fragile!
+                            and is_array($a = @unserialize($a)))
+                    ) {
+                        $this->tableau = $a;
+                    }
+                } else {
+                    $data = $src;
+                    if (is_string($src)) {
+                        if (tester_url_absolue($src)) {
+                            include_spip('inc/distant');
+                            $data = recuperer_url($src, ['taille_max' => _DATA_SOURCE_MAX_SIZE]);
+                            $data = $data['page'] ?? '';
+                            if (!$data) {
+                                throw new Exception('404');
+                            }
+                            if (!isset($ttl)) {
+                                $ttl = 24 * 3600;
+                            }
+                        } elseif (@is_dir($src)) {
+                            $data = $src;
+                        } elseif (@is_readable($src) && @is_file($src)) {
+                            $data = spip_file_get_contents($src);
+                        }
+                        if (!isset($ttl)) {
+                            $ttl = 10;
+                        }
+                    }
+
+                    if (
+                        !$this->err
+                        and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
+                    ) {
+                        $args = $this->command['source'];
+                        $args[0] = $data;
+                        if (is_array($a = $data_to_array(...$args))) {
+                            $this->tableau = $a;
+                        }
+                    }
+                }
+
+                if (!is_array($this->tableau)) {
+                    $this->err = true;
+                }
+
+                if (!$this->err and isset($ttl) and $ttl > 0) {
+                    $this->cache_set($cle, $ttl);
+                }
+            } catch (Exception $e) {
+                $e = $e->getMessage();
+                $err = sprintf(
+                    "[%s, %s] $e",
+                    $src,
+                    $this->command['sourcemode']
+                );
+                erreur_squelette([$err, []]);
+                $this->err = true;
+            }
+        }
+
+        # en cas d'erreur, utiliser le cache si encore dispo
+        if (
+            $this->err
+            and $cache
+        ) {
+            $this->tableau = $cache['data'];
+            $this->err = false;
+        }
+    }
+
+
+    /**
+     * Retourne un tableau donne depuis un critère liste
+     *
+     * Critère `{liste X1, X2, X3}`
+     *
+     * @see critere_DATA_liste_dist()
+     *
+     **/
+    protected function select_liste() {
+        # s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
+        if (!isset($this->command['liste'][1])) {
+            if (!is_array($this->command['liste'][0])) {
+                $this->command['liste'] = explode(',', $this->command['liste'][0]);
+            } else {
+                $this->command['liste'] = $this->command['liste'][0];
+            }
+        }
+        $this->tableau = $this->command['liste'];
+    }
+
+    /**
+     * Retourne un tableau donne depuis un critere liste
+     * Critere {enum Xmin, Xmax}
+     *
+     **/
+    protected function select_enum() {
+        # s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
+        if (!isset($this->command['enum'][1])) {
+            if (!is_array($this->command['enum'][0])) {
+                $this->command['enum'] = explode(',', $this->command['enum'][0]);
+            } else {
+                $this->command['enum'] = $this->command['enum'][0];
+            }
+        }
+        if ((is_countable($this->command['enum']) ? count($this->command['enum']) : 0) >= 3) {
+            $enum = range(
+                array_shift($this->command['enum']),
+                array_shift($this->command['enum']),
+                array_shift($this->command['enum'])
+            );
+        } else {
+            $enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']));
+        }
+        $this->tableau = $enum;
+    }
+
+
+    /**
+     * extraire le chemin "query.results" du tableau de donnees
+     * {datapath query.results}
+     *
+     **/
+    protected function select_datapath() {
+        $base = reset($this->command['datapath']);
+        if (strlen($base = ltrim(trim($base), '/'))) {
+            $this->tableau = table_valeur($this->tableau, $base);
+            if (!is_array($this->tableau)) {
+                $this->tableau = [];
+                $this->err = true;
+                spip_log("datapath '$base' absent");
+            }
+        }
+    }
+
+    /**
+     * Ordonner les resultats
+     * {par x}
+     *
+     **/
+    protected function select_orderby() {
+        $sortfunc = '';
+        $aleas = 0;
+        foreach ($this->command['orderby'] as $tri) {
+            // virer le / initial pour les criteres de la forme {par /xx}
+            if (preg_match(',^\.?([/\w:_-]+)( DESC)?$,iS', ltrim($tri, '/'), $r)) {
+                $r = array_pad($r, 3, null);
+
+                // tri par cle
+                if ($r[1] == 'cle') {
+                    if (isset($r[2]) and $r[2]) {
+                        krsort($this->tableau);
+                    } else {
+                        ksort($this->tableau);
+                    }
+                } # {par hasard}
+                else {
+                    if ($r[1] == 'hasard') {
+                        $k = array_keys($this->tableau);
+                        shuffle($k);
+                        $v = [];
+                        foreach ($k as $cle) {
+                            $v[$cle] = $this->tableau[$cle];
+                        }
+                        $this->tableau = $v;
+                    } else {
+                        # {par valeur}
+                        if ($r[1] == 'valeur') {
+                            $tv = '%s';
+                        } # {par valeur/xx/yy} ??
+                        else {
+                            $tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
+                        }
+                        $sortfunc .= '
 					$a = ' . sprintf($tv, '$aa') . ';
 					$b = ' . sprintf($tv, '$bb') . ';
 					if ($a <> $b)
 						return ($a ' . (!empty($r[2]) ? '>' : '<') . ' $b) ? -1 : 1;';
-					}
-				}
-			}
-		}
-
-		if ($sortfunc) {
-			$sortfunc .= "\n return 0;";
-			uasort($this->tableau, fn($aa, $bb) => eval($sortfunc));
-		}
-	}
-
-
-	/**
-	 * Grouper les resultats
-	 * {fusion /x/y/z}
-	 *
-	 **/
-	protected function select_groupby() {
-		// virer le / initial pour les criteres de la forme {fusion /xx}
-		if (strlen($fusion = ltrim($this->command['groupby'][0], '/'))) {
-			$vu = [];
-			foreach ($this->tableau as $k => $v) {
-				$val = table_valeur($v, $fusion);
-				if (isset($vu[$val])) {
-					unset($this->tableau[$k]);
-				} else {
-					$vu[$val] = true;
-				}
-			}
-		}
-	}
-
-
-	/**
-	 * L'iterateur est-il encore valide ?
-	 *
-	 * @return bool
-	 */
-	public function valid(): bool {
-		return !is_null($this->cle);
-	}
-
-	/**
-	 * Retourner la valeur
-	 *
-	 * @return mixed
-	 */
-	#[\ReturnTypeWillChange]
-	public function current() {
-		return $this->valeur;
-	}
-
-	/**
-	 * Retourner la cle
-	 *
-	 * @return mixed
-	 */
-	#[\ReturnTypeWillChange]
-	public function key() {
-		return $this->cle;
-	}
-
-	/**
-	 * Passer a la valeur suivante
-	 *
-	 * @return void
-	 */
-	public function next(): void {
-		if ($this->valid()) {
-			$this->cle = key($this->tableau);
-			$this->valeur = current($this->tableau);
-			next($this->tableau);
-		}
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			$this->total = count($this->tableau);
-		}
-
-		return $this->total;
-	}
+                    }
+                }
+            }
+        }
+
+        if ($sortfunc) {
+            $sortfunc .= "\n return 0;";
+            uasort($this->tableau, fn($aa, $bb) => eval($sortfunc));
+        }
+    }
+
+
+    /**
+     * Grouper les resultats
+     * {fusion /x/y/z}
+     *
+     **/
+    protected function select_groupby() {
+        // virer le / initial pour les criteres de la forme {fusion /xx}
+        if (strlen($fusion = ltrim($this->command['groupby'][0], '/'))) {
+            $vu = [];
+            foreach ($this->tableau as $k => $v) {
+                $val = table_valeur($v, $fusion);
+                if (isset($vu[$val])) {
+                    unset($this->tableau[$k]);
+                } else {
+                    $vu[$val] = true;
+                }
+            }
+        }
+    }
+
+
+    /**
+     * L'iterateur est-il encore valide ?
+     *
+     * @return bool
+     */
+    public function valid(): bool {
+        return !is_null($this->cle);
+    }
+
+    /**
+     * Retourner la valeur
+     *
+     * @return mixed
+     */
+    #[\ReturnTypeWillChange]
+    public function current() {
+        return $this->valeur;
+    }
+
+    /**
+     * Retourner la cle
+     *
+     * @return mixed
+     */
+    #[\ReturnTypeWillChange]
+    public function key() {
+        return $this->cle;
+    }
+
+    /**
+     * Passer a la valeur suivante
+     *
+     * @return void
+     */
+    public function next(): void {
+        if ($this->valid()) {
+            $this->cle = key($this->tableau);
+            $this->valeur = current($this->tableau);
+            next($this->tableau);
+        }
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            $this->total = count($this->tableau);
+        }
+
+        return $this->total;
+    }
 }
 
 /*
@@ -587,7 +587,7 @@ 
  * @return array
  */
 function inc_file_to_array_dist($data) {
-	return preg_split('/\r?\n/', $data);
+    return preg_split('/\r?\n/', $data);
 }
 
 /**
@@ -596,9 +596,9 @@ 
  * @return array
  */
 function inc_plugins_to_array_dist() {
-	include_spip('inc/plugin');
+    include_spip('inc/plugin');
 
-	return liste_chemin_plugin_actifs();
+    return liste_chemin_plugin_actifs();
 }
 
 /**
@@ -608,7 +608,7 @@ 
  * @return array
  */
 function inc_xml_to_array_dist($data) {
-	return @XMLObjectToArray(new SimpleXmlIterator($data));
+    return @XMLObjectToArray(new SimpleXmlIterator($data));
 }
 
 /**
@@ -620,14 +620,14 @@ 
  *
  */
 function inc_object_to_array($object) {
-	if (!is_object($object) && !is_array($object)) {
-		return $object;
-	}
-	if (is_object($object)) {
-		$object = get_object_vars($object);
-	}
-
-	return array_map('inc_object_to_array', $object);
+    if (!is_object($object) && !is_array($object)) {
+        return $object;
+    }
+    if (is_object($object)) {
+        $object = get_object_vars($object);
+    }
+
+    return array_map('inc_object_to_array', $object);
 }
 
 /**
@@ -637,20 +637,20 @@ 
  * @return array|bool
  */
 function inc_sql_to_array_dist($data) {
-	# sortir le connecteur de $data
-	preg_match(',^(?:(\w+):)?(.*)$,Sm', $data, $v);
-	$serveur = (string)$v[1];
-	$req = trim($v[2]);
-	if ($s = sql_query($req, $serveur)) {
-		$r = [];
-		while ($t = sql_fetch($s)) {
-			$r[] = $t;
-		}
-
-		return $r;
-	}
-
-	return false;
+    # sortir le connecteur de $data
+    preg_match(',^(?:(\w+):)?(.*)$,Sm', $data, $v);
+    $serveur = (string)$v[1];
+    $req = trim($v[2]);
+    if ($s = sql_query($req, $serveur)) {
+        $r = [];
+        while ($t = sql_fetch($s)) {
+            $r[] = $t;
+        }
+
+        return $r;
+    }
+
+    return false;
 }
 
 /**
@@ -660,13 +660,13 @@ 
  * @return array|bool
  */
 function inc_json_to_array_dist($data) {
-	try {
-		$json = json_decode($data, true, 512, JSON_THROW_ON_ERROR);
-	} catch (JsonException $e) {
-		$json = null;
-		spip_log('Failed to parse Json data : ' . $e->getMessage(), _LOG_INFO);
-	}
-	return is_array($json) ? (array) $json : [];
+    try {
+        $json = json_decode($data, true, 512, JSON_THROW_ON_ERROR);
+    } catch (JsonException $e) {
+        $json = null;
+        spip_log('Failed to parse Json data : ' . $e->getMessage(), _LOG_INFO);
+    }
+    return is_array($json) ? (array) $json : [];
 }
 
 /**
@@ -676,30 +676,30 @@ 
  * @return array|bool
  */
 function inc_csv_to_array_dist($data) {
-	include_spip('inc/csv');
-	[$entete, $csv] = analyse_csv($data);
-	array_unshift($csv, $entete);
-
-	include_spip('inc/charsets');
-	$i = 1;
-	foreach ($entete as $k => $v) {
-		if (trim($v) == '') {
-			$v = 'col' . $i;
-		} // reperer des eventuelles cases vides
-		if (is_numeric($v) and $v < 0) {
-			$v = '__' . $v;
-		} // ne pas risquer d'ecraser une cle numerique
-		if (is_numeric($v)) {
-			$v = '_' . $v;
-		} // ne pas risquer d'ecraser une cle numerique
-		$v = strtolower(preg_replace(',\W+,', '_', translitteration($v)));
-		foreach ($csv as &$item) {
-			$item[$v] = &$item[$k];
-		}
-		$i++;
-	}
-
-	return $csv;
+    include_spip('inc/csv');
+    [$entete, $csv] = analyse_csv($data);
+    array_unshift($csv, $entete);
+
+    include_spip('inc/charsets');
+    $i = 1;
+    foreach ($entete as $k => $v) {
+        if (trim($v) == '') {
+            $v = 'col' . $i;
+        } // reperer des eventuelles cases vides
+        if (is_numeric($v) and $v < 0) {
+            $v = '__' . $v;
+        } // ne pas risquer d'ecraser une cle numerique
+        if (is_numeric($v)) {
+            $v = '_' . $v;
+        } // ne pas risquer d'ecraser une cle numerique
+        $v = strtolower(preg_replace(',\W+,', '_', translitteration($v)));
+        foreach ($csv as &$item) {
+            $item[$v] = &$item[$k];
+        }
+        $i++;
+    }
+
+    return $csv;
 }
 
 /**
@@ -709,13 +709,13 @@ 
  * @return array|bool
  */
 function inc_rss_to_array_dist($data) {
-	$tableau = null;
-	include_spip('inc/syndic');
-	if (is_array($rss = analyser_backend($data))) {
-		$tableau = $rss;
-	}
+    $tableau = null;
+    include_spip('inc/syndic');
+    if (is_array($rss = analyser_backend($data))) {
+        $tableau = $rss;
+    }
 
-	return $tableau;
+    return $tableau;
 }
 
 /**
@@ -725,9 +725,9 @@ 
  * @return array|bool
  */
 function inc_atom_to_array_dist($data) {
-	$rss_to_array = charger_fonction('rss_to_array', 'inc');
+    $rss_to_array = charger_fonction('rss_to_array', 'inc');
 
-	return $rss_to_array($data);
+    return $rss_to_array($data);
 }
 
 /**
@@ -738,12 +738,12 @@ 
  * @return array|bool
  */
 function inc_glob_to_array_dist($data) {
-	$a = glob(
-		$data,
-		GLOB_MARK | GLOB_NOSORT | GLOB_BRACE
-	);
+    $a = glob(
+        $data,
+        GLOB_MARK | GLOB_NOSORT | GLOB_BRACE
+    );
 
-	return $a ?: [];
+    return $a ?: [];
 }
 
 /**
@@ -754,14 +754,14 @@ 
  * @throws Exception
  */
 function inc_yaml_to_array_dist($data) {
-	include_spip('inc/yaml-mini');
-	if (!function_exists('yaml_decode')) {
-		throw new Exception('YAML: impossible de trouver la fonction yaml_decode');
+    include_spip('inc/yaml-mini');
+    if (!function_exists('yaml_decode')) {
+        throw new Exception('YAML: impossible de trouver la fonction yaml_decode');
 
-		return false;
-	}
+        return false;
+    }
 
-	return yaml_decode($data);
+    return yaml_decode($data);
 }
 
 
@@ -776,7 +776,7 @@ 
  * @return array|bool
  */
 function inc_pregfiles_to_array_dist($dir, $regexp = -1, $limit = 10000) {
-	return (array)preg_files($dir, $regexp, $limit);
+    return (array)preg_files($dir, $regexp, $limit);
 }
 
 /**
@@ -788,23 +788,23 @@ 
  * @return array|bool
  */
 function inc_ls_to_array_dist($data) {
-	$glob_to_array = charger_fonction('glob_to_array', 'inc');
-	$a = $glob_to_array($data);
-	foreach ($a as &$v) {
-		$b = (array)@stat($v);
-		foreach ($b as $k => $ignore) {
-			if (is_numeric($k)) {
-				unset($b[$k]);
-			}
-		}
-		$b['file'] = preg_replace('`/$`', '', $v) ;
-		$v = array_merge(
-			pathinfo($v),
-			$b
-		);
-	}
-
-	return $a;
+    $glob_to_array = charger_fonction('glob_to_array', 'inc');
+    $a = $glob_to_array($data);
+    foreach ($a as &$v) {
+        $b = (array)@stat($v);
+        foreach ($b as $k => $ignore) {
+            if (is_numeric($k)) {
+                unset($b[$k]);
+            }
+        }
+        $b['file'] = preg_replace('`/$`', '', $v) ;
+        $v = array_merge(
+            pathinfo($v),
+            $b
+        );
+    }
+
+    return $a;
 }
 
 /**
@@ -814,25 +814,25 @@ 
  * @return array|bool
  */
 function XMLObjectToArray($object) {
-	$xml_array = [];
-	for ($object->rewind(); $object->valid(); $object->next()) {
-		if (array_key_exists($key = $object->key(), $xml_array)) {
-			$key .= '-' . uniqid();
-		}
-		$vars = get_object_vars($object->current());
-		if (isset($vars['@attributes'])) {
-			foreach ($vars['@attributes'] as $k => $v) {
-				$xml_array[$key][$k] = $v;
-			}
-		}
-		if ($object->hasChildren()) {
-			$xml_array[$key][] = XMLObjectToArray(
-				$object->current()
-			);
-		} else {
-			$xml_array[$key][] = strval($object->current());
-		}
-	}
-
-	return $xml_array;
+    $xml_array = [];
+    for ($object->rewind(); $object->valid(); $object->next()) {
+        if (array_key_exists($key = $object->key(), $xml_array)) {
+            $key .= '-' . uniqid();
+        }
+        $vars = get_object_vars($object->current());
+        if (isset($vars['@attributes'])) {
+            foreach ($vars['@attributes'] as $k => $v) {
+                $xml_array[$key][$k] = $v;
+            }
+        }
+        if ($object->hasChildren()) {
+            $xml_array[$key][] = XMLObjectToArray(
+                $object->current()
+            );
+        } else {
+            $xml_array[$key][] = strval($object->current());
+        }
+    }
+
+    return $xml_array;
 }

ecrire/iterateur/sql.php

Indentation +209 added lines, -209 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -27,215 +27,215 @@ 
  * Permet d'itérer sur des données en base de données
  */
 class IterateurSQL implements Iterator {
-	/**
-	 * Ressource sql
-	 *
-	 * @var Object|bool
-	 */
-	protected $sqlresult = false;
-
-	/**
-	 * row sql courante
-	 *
-	 * @var array|null
-	 */
-	protected $row = null;
-
-	protected bool $firstseek = false;
-
-	protected int $pos = -1;
-
-	protected string $type = 'SQL';
-
-	protected array $command = [];
-
-	protected array $info = [];
-
-
-	/** Erreur presente ? **/
-	public bool $err = false;
-
-	/**
-	 * Calcul du total des elements
-	 *
-	 * @var int|null
-	 **/
-	public $total = null;
-
-	/**
-	 * selectionner les donnees, ie faire la requete SQL
-	 *
-	 * @return void
-	 */
-	protected function select() {
-		$this->row = null;
-		$v = &$this->command;
-		$this->sqlresult = calculer_select(
-			$v['select'],
-			$v['from'],
-			$v['type'],
-			$v['where'],
-			$v['join'],
-			$v['groupby'],
-			$v['orderby'],
-			$v['limit'],
-			$v['having'],
-			$v['table'],
-			$v['id'],
-			$v['connect'],
-			$this->info
-		);
-		$this->err = !$this->sqlresult;
-		$this->firstseek = false;
-		$this->pos = -1;
-
-		// pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
-		//$this->total = $this->count();
-	}
-
-	/*
+    /**
+     * Ressource sql
+     *
+     * @var Object|bool
+     */
+    protected $sqlresult = false;
+
+    /**
+     * row sql courante
+     *
+     * @var array|null
+     */
+    protected $row = null;
+
+    protected bool $firstseek = false;
+
+    protected int $pos = -1;
+
+    protected string $type = 'SQL';
+
+    protected array $command = [];
+
+    protected array $info = [];
+
+
+    /** Erreur presente ? **/
+    public bool $err = false;
+
+    /**
+     * Calcul du total des elements
+     *
+     * @var int|null
+     **/
+    public $total = null;
+
+    /**
+     * selectionner les donnees, ie faire la requete SQL
+     *
+     * @return void
+     */
+    protected function select() {
+        $this->row = null;
+        $v = &$this->command;
+        $this->sqlresult = calculer_select(
+            $v['select'],
+            $v['from'],
+            $v['type'],
+            $v['where'],
+            $v['join'],
+            $v['groupby'],
+            $v['orderby'],
+            $v['limit'],
+            $v['having'],
+            $v['table'],
+            $v['id'],
+            $v['connect'],
+            $this->info
+        );
+        $this->err = !$this->sqlresult;
+        $this->firstseek = false;
+        $this->pos = -1;
+
+        // pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
+        //$this->total = $this->count();
+    }
+
+    /*
 	 * array command: les commandes d'initialisation
 	 * array info: les infos sur le squelette
 	 */
-	public function __construct($command, $info = []) {
-		$this->type = 'SQL';
-		$this->command = $command;
-		$this->info = $info;
-		$this->select();
-	}
-
-	/**
-	 * Rembobiner
-	 *
-	 * @return bool
-	 */
-	public function rewind(): void {
-		if ($this->pos > 0) {
-			$this->seek(0);
-		}
-	}
-
-	/**
-	 * Verifier l'etat de l'iterateur
-	 *
-	 * @return bool
-	 */
-	public function valid(): bool {
-		if ($this->err) {
-			return false;
-		}
-		if (!$this->firstseek) {
-			$this->next();
-		}
-
-		return is_array($this->row);
-	}
-
-	/**
-	 * Valeurs sur la position courante
-	 *
-	 * @return array
-	 */
-	#[\ReturnTypeWillChange]
-	public function current() {
-		return $this->row;
-	}
-
-	#[\ReturnTypeWillChange]
-	public function key() {
-		return $this->pos;
-	}
-
-	/**
-	 * Sauter a une position absolue
-	 *
-	 * @param int $n
-	 * @param null|string $continue
-	 * @return bool
-	 */
-	public function seek($n = 0, $continue = null) {
-		if (!sql_seek($this->sqlresult, $n, $this->command['connect'], $continue)) {
-			// SQLite ne sait pas seek(), il faut relancer la query
-			// si la position courante est apres la position visee
-			// il faut relancer la requete
-			if ($this->pos > $n) {
-				$this->free();
-				$this->select();
-				$this->valid();
-			}
-			// et utiliser la methode par defaut pour se deplacer au bon endroit
-			// (sera fait en cas d'echec de cette fonction)
-			return false;
-		}
-		$this->row = sql_fetch($this->sqlresult, $this->command['connect']);
-		$this->pos = min($n, $this->count());
-
-		return true;
-	}
-
-	/**
-	 * Avancer d'un cran
-	 *
-	 * @return void
-	 */
-	public function next(): void {
-		$this->row = sql_fetch($this->sqlresult, $this->command['connect']);
-		$this->pos++;
-		$this->firstseek |= true;
-	}
-
-	/**
-	 * Avancer et retourner les donnees pour le nouvel element
-	 *
-	 * @return array|bool|null
-	 */
-	public function fetch() {
-		if ($this->valid()) {
-			$r = $this->current();
-			$this->next();
-		} else {
-			$r = false;
-		}
-
-		return $r;
-	}
-
-	/**
-	 * liberer les ressources
-	 *
-	 * @return bool
-	 */
-	public function free() {
-		if (!$this->sqlresult) {
-			return true;
-		}
-		$a = sql_free($this->sqlresult, $this->command['connect']);
-		$this->sqlresult = null;
-
-		return $a;
-	}
-
-	/**
-	 * Compter le nombre de resultats
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			if (!$this->sqlresult) {
-				$this->total = 0;
-			} else {
-				# cas count(*)
-				if (in_array('count(*)', $this->command['select'])) {
-					$this->valid();
-					$s = $this->current();
-					$this->total = $s['count(*)'];
-				} else {
-					$this->total = sql_count($this->sqlresult, $this->command['connect']);
-				}
-			}
-		}
-
-		return $this->total;
-	}
+    public function __construct($command, $info = []) {
+        $this->type = 'SQL';
+        $this->command = $command;
+        $this->info = $info;
+        $this->select();
+    }
+
+    /**
+     * Rembobiner
+     *
+     * @return bool
+     */
+    public function rewind(): void {
+        if ($this->pos > 0) {
+            $this->seek(0);
+        }
+    }
+
+    /**
+     * Verifier l'etat de l'iterateur
+     *
+     * @return bool
+     */
+    public function valid(): bool {
+        if ($this->err) {
+            return false;
+        }
+        if (!$this->firstseek) {
+            $this->next();
+        }
+
+        return is_array($this->row);
+    }
+
+    /**
+     * Valeurs sur la position courante
+     *
+     * @return array
+     */
+    #[\ReturnTypeWillChange]
+    public function current() {
+        return $this->row;
+    }
+
+    #[\ReturnTypeWillChange]
+    public function key() {
+        return $this->pos;
+    }
+
+    /**
+     * Sauter a une position absolue
+     *
+     * @param int $n
+     * @param null|string $continue
+     * @return bool
+     */
+    public function seek($n = 0, $continue = null) {
+        if (!sql_seek($this->sqlresult, $n, $this->command['connect'], $continue)) {
+            // SQLite ne sait pas seek(), il faut relancer la query
+            // si la position courante est apres la position visee
+            // il faut relancer la requete
+            if ($this->pos > $n) {
+                $this->free();
+                $this->select();
+                $this->valid();
+            }
+            // et utiliser la methode par defaut pour se deplacer au bon endroit
+            // (sera fait en cas d'echec de cette fonction)
+            return false;
+        }
+        $this->row = sql_fetch($this->sqlresult, $this->command['connect']);
+        $this->pos = min($n, $this->count());
+
+        return true;
+    }
+
+    /**
+     * Avancer d'un cran
+     *
+     * @return void
+     */
+    public function next(): void {
+        $this->row = sql_fetch($this->sqlresult, $this->command['connect']);
+        $this->pos++;
+        $this->firstseek |= true;
+    }
+
+    /**
+     * Avancer et retourner les donnees pour le nouvel element
+     *
+     * @return array|bool|null
+     */
+    public function fetch() {
+        if ($this->valid()) {
+            $r = $this->current();
+            $this->next();
+        } else {
+            $r = false;
+        }
+
+        return $r;
+    }
+
+    /**
+     * liberer les ressources
+     *
+     * @return bool
+     */
+    public function free() {
+        if (!$this->sqlresult) {
+            return true;
+        }
+        $a = sql_free($this->sqlresult, $this->command['connect']);
+        $this->sqlresult = null;
+
+        return $a;
+    }
+
+    /**
+     * Compter le nombre de resultats
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            if (!$this->sqlresult) {
+                $this->total = 0;
+            } else {
+                # cas count(*)
+                if (in_array('count(*)', $this->command['select'])) {
+                    $this->valid();
+                    $s = $this->current();
+                    $this->total = $s['count(*)'];
+                } else {
+                    $this->total = sql_count($this->sqlresult, $this->command['connect']);
+                }
+            }
+        }
+
+        return $this->total;
+    }
 }

ecrire/public/balises.php

Indentation +941 added lines, -941 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;
 }
 
 
@@ -793,46 +793,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_objet_introduction($_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_objet_introduction($_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;
 }
 
 
@@ -852,15 +852,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;
 }
 
 /**
@@ -882,45 +882,45 @@ 
  *     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, '');
-
-	// 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) {
-		$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, '');
+
+    // 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) {
+        $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;
 }
 
 
@@ -947,76 +947,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;
 }
 
 
@@ -1038,12 +1038,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;
 }
 
 /**
@@ -1054,8 +1054,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))'
@@ -1092,75 +1092,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;
 }
 
 
@@ -1187,11 +1187,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 ?
 }
 
 
@@ -1212,17 +1212,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;
 }
 
 
@@ -1250,10 +1250,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;
 }
 
 
@@ -1280,17 +1280,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((string)' . $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((string)' . $arg . ')';
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1315,16 +1315,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((string)' . $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((string)' . $arg . ')';
+    }
 
-	$p->interdire_scripts = false;
-	return $p;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1362,36 +1362,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;
 }
 
 /**
@@ -1421,16 +1421,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;
 }
 
 
@@ -1453,10 +1453,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;
 }
 
 
@@ -1484,15 +1484,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;
 }
 
 
@@ -1515,18 +1515,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;
 }
 
 
@@ -1557,30 +1557,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;
 }
 
 
@@ -1610,19 +1610,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;
 }
 
 /**
@@ -1648,13 +1648,13 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_VAL_dist($p) {
-	$p->code = interprete_argument_balise(1, $p) ?? '';
-	if (!strlen($p->code)) {
-		$p->code = "''";
-	}
-	$p->interdire_scripts = false;
+    $p->code = interprete_argument_balise(1, $p) ?? '';
+    if (!strlen($p->code)) {
+        $p->code = "''";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1683,10 +1683,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;
 }
 
 /**
@@ -1696,10 +1696,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;
 }
 
 
@@ -1723,18 +1723,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;
 }
 
 
@@ -1759,20 +1759,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;
+    }
 }
 
 
@@ -1808,55 +1808,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;
 }
 
 
@@ -1888,13 +1888,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;
 }
 
 /**
@@ -1912,10 +1912,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;
 }
 
 /**
@@ -1930,11 +1930,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);
+    }
 }
 
 /**
@@ -1968,66 +1968,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;
 }
 
 
@@ -2055,69 +2055,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;
 }
 
 
@@ -2141,21 +2141,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;
 }
 
 
@@ -2185,12 +2185,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"]??[]');
+    }
 }
 
 
@@ -2213,22 +2213,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;
 }
 
 
@@ -2251,18 +2251,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;
 }
 
 
@@ -2287,10 +2287,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;
 }
 
 
@@ -2313,11 +2313,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;
 }
 
 /**
@@ -2340,19 +2340,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;
 }
 
 /**
@@ -2371,15 +2371,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;
 }
 
 
@@ -2413,21 +2413,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;
 }
 
 
@@ -2451,15 +2451,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;
 }
 
 /**
@@ -2480,9 +2480,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;
 }
 
 /**
@@ -2508,16 +2508,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 . '\' />' .
@@ -2528,9 +2528,9 @@ 
 	(\$Pile[0]['_hidden'] ?? '') .
 	'</span>'";
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2571,25 +2571,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;
 }
 
 
@@ -2608,10 +2608,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;
 }
 
 
@@ -2635,10 +2635,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;
 }
 
 
@@ -2664,58 +2664,58 @@ 
  *     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;
+    }
 
-	// Différentes infos relatives au tri présentes dans les modificateurs
-	$_tri_nom = $boucle->modificateur['tri_nom'] ; // nom du paramètre définissant le tri
-	$_tri_champ = $boucle->modificateur['tri_champ']; // champ actuel utilisé le tri
-	$_tri_sens = $boucle->modificateur['tri_sens']; // sens de tri actuel
-	$_tri_liste_sens_defaut = $boucle->modificateur['tri_liste_sens_defaut']; // sens par défaut pour chaque champ
+    // Différentes infos relatives au tri présentes dans les modificateurs
+    $_tri_nom = $boucle->modificateur['tri_nom'] ; // nom du paramètre définissant le tri
+    $_tri_champ = $boucle->modificateur['tri_champ']; // champ actuel utilisé le tri
+    $_tri_sens = $boucle->modificateur['tri_sens']; // sens de tri actuel
+    $_tri_liste_sens_defaut = $boucle->modificateur['tri_liste_sens_defaut']; // sens par défaut pour chaque champ
 
-	$_champ_ou_sens = interprete_argument_balise(1, $p);
-	// si pas de champ, renvoyer le critère de tri actuel
-	if (!$_champ_ou_sens) {
-		$p->code = $_tri_champ;
+    $_champ_ou_sens = interprete_argument_balise(1, $p);
+    // si pas de champ, renvoyer le critère de tri actuel
+    if (!$_champ_ou_sens) {
+        $p->code = $_tri_champ;
 
-		return $p;
-	}
-	// forcer la jointure si besoin, et si le champ est statique
-	if (preg_match(",^'([\w.]+)'$,i", $_champ_ou_sens, $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_ou_sens, $m)) {
+        index_pile($b, $m[1], $p->boucles, '', null, true, false);
+    }
 
-	$_libelle = interprete_argument_balise(2, $p);
-	$_libelle = $_libelle ?: $_champ_ou_sens;
+    $_libelle = interprete_argument_balise(2, $p);
+    $_libelle = $_libelle ?: $_champ_ou_sens;
 
-	$_class = interprete_argument_balise(3, $p) ?? "''";
+    $_class = interprete_argument_balise(3, $p) ?? "''";
 
-	$p->code = "calculer_balise_tri($_champ_ou_sens, $_libelle, $_class, $_tri_nom, $_tri_champ, $_tri_sens, $_tri_liste_sens_defaut)";
+    $p->code = "calculer_balise_tri($_champ_ou_sens, $_libelle, $_class, $_tri_nom, $_tri_champ, $_tri_sens, $_tri_liste_sens_defaut)";
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2736,21 +2736,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;
 }
 
 
@@ -2772,22 +2772,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;
 }
 
 /**
@@ -2816,12 +2816,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;
 }
 
 /**
@@ -2840,13 +2840,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;
 }
 
 
@@ -2862,14 +2862,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/references.php

Indentation +547 added lines, -547 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Compilateur\References
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -41,14 +41,14 @@ 
  *     - '' si une référence explicite incorrecte est envoyée
  */
 function index_boucle($p) {
-	if (strlen($p->nom_boucle)) {
-		// retourne l’index explicite demandé s’il existe
-		if (!empty($p->boucles[$p->nom_boucle])) {
-			return $p->nom_boucle;
-		}
-		return '';
-	}
-	return $p->id_boucle;
+    if (strlen($p->nom_boucle)) {
+        // retourne l’index explicite demandé s’il existe
+        if (!empty($p->boucles[$p->nom_boucle])) {
+            return $p->nom_boucle;
+        }
+        return '';
+    }
+    return $p->id_boucle;
 }
 
 
@@ -71,17 +71,17 @@ 
  *     - '' si une référence explicite incorrecte est envoyée
  */
 function index_boucle_mere($p) {
-	if (strlen($p->nom_boucle)) {
-		// retourne l’index explicite demandé s’il existe
-		if (!empty($p->boucles[$p->nom_boucle])) {
-			return $p->nom_boucle;
-		}
-		return '';
-	}
-	if (!empty($p->descr['id_mere'])) {
-		return $p->descr['id_mere'];
-	}
-	return '';
+    if (strlen($p->nom_boucle)) {
+        // retourne l’index explicite demandé s’il existe
+        if (!empty($p->boucles[$p->nom_boucle])) {
+            return $p->nom_boucle;
+        }
+        return '';
+    }
+    if (!empty($p->descr['id_mere'])) {
+        return $p->descr['id_mere'];
+    }
+    return '';
 }
 
 /**
@@ -115,74 +115,74 @@ 
  *     Code PHP pour obtenir le champ SQL
  */
 function index_pile(
-	$idb,
-	$nom_champ,
-	&$boucles,
-	$explicite = '',
-	$defaut = null,
-	$remonte_pile = true,
-	$select = true
+    $idb,
+    $nom_champ,
+    &$boucles,
+    $explicite = '',
+    $defaut = null,
+    $remonte_pile = true,
+    $select = true
 ) {
-	if (!is_string($defaut)) {
-		$defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
-	}
-
-	$idb_origine = $idb;
-	$nom_champ_origine = $nom_champ;
-
-	$i = 0;
-	if (strlen($explicite)) {
-		// Recherche d'un champ dans un etage superieur
-		while (($idb !== $explicite) && ($idb !== '')) {
-			#	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
-			$i++;
-			$idb = $boucles[$idb]->id_parent;
-		}
-	}
-
-	#	spip_log("Cherche: $nom_champ a partir de '$idb'");
-	$nom_champ = strtolower($nom_champ);
-	$conditionnel = [];
-	// attention: entre la boucle nommee 0, "" et le tableau vide,
-	// il y a incoherences qu'il vaut mieux eviter
-	while (isset($boucles[$idb])) {
-		$joker = true;
-		// modifie $joker si tous les champs sont autorisés.
-		// $t = le select pour le champ, si on l'a trouvé (ou si joker)
-		// $c = le nom du champ demandé
-		[$t, $c] = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
-		if ($t) {
-			if ($select and !in_array($t, $boucles[$idb]->select)) {
-				$boucles[$idb]->select[] = $t;
-			}
-			// renseigner la boucle source de ce champ pour les traitements
-			$boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
-			$champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
-			if (!$joker) {
-				return index_compose($conditionnel, $champ);
-			}
-
-			// tant que l'on trouve des tables avec joker, on continue
-			// avec la boucle parente et on conditionne à l'exécution
-			// la présence du champ. Si le champ existe à l'exécution
-			// dans une boucle, il est pris, sinon on le cherche dans le parent...
-			$conditionnel[] = "isset($champ)?$champ";
-		}
-
-		if ($remonte_pile) {
-			#	spip_log("On remonte vers $i");
-			// Sinon on remonte d'un cran
-			$idb = $boucles[$idb]->id_parent;
-			$i++;
-		} else {
-			$idb = null;
-		}
-	}
-
-	#	spip_log("Pas vu $nom_champ");
-	// esperons qu'il y sera
-	// ou qu'on a fourni une valeur par "defaut" plus pertinent
-	return index_compose($conditionnel, $defaut);
+    if (!is_string($defaut)) {
+        $defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
+    }
+
+    $idb_origine = $idb;
+    $nom_champ_origine = $nom_champ;
+
+    $i = 0;
+    if (strlen($explicite)) {
+        // Recherche d'un champ dans un etage superieur
+        while (($idb !== $explicite) && ($idb !== '')) {
+            #	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
+            $i++;
+            $idb = $boucles[$idb]->id_parent;
+        }
+    }
+
+    #	spip_log("Cherche: $nom_champ a partir de '$idb'");
+    $nom_champ = strtolower($nom_champ);
+    $conditionnel = [];
+    // attention: entre la boucle nommee 0, "" et le tableau vide,
+    // il y a incoherences qu'il vaut mieux eviter
+    while (isset($boucles[$idb])) {
+        $joker = true;
+        // modifie $joker si tous les champs sont autorisés.
+        // $t = le select pour le champ, si on l'a trouvé (ou si joker)
+        // $c = le nom du champ demandé
+        [$t, $c] = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
+        if ($t) {
+            if ($select and !in_array($t, $boucles[$idb]->select)) {
+                $boucles[$idb]->select[] = $t;
+            }
+            // renseigner la boucle source de ce champ pour les traitements
+            $boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
+            $champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
+            if (!$joker) {
+                return index_compose($conditionnel, $champ);
+            }
+
+            // tant que l'on trouve des tables avec joker, on continue
+            // avec la boucle parente et on conditionne à l'exécution
+            // la présence du champ. Si le champ existe à l'exécution
+            // dans une boucle, il est pris, sinon on le cherche dans le parent...
+            $conditionnel[] = "isset($champ)?$champ";
+        }
+
+        if ($remonte_pile) {
+            #	spip_log("On remonte vers $i");
+            // Sinon on remonte d'un cran
+            $idb = $boucles[$idb]->id_parent;
+            $i++;
+        } else {
+            $idb = null;
+        }
+    }
+
+    #	spip_log("Pas vu $nom_champ");
+    // esperons qu'il y sera
+    // ou qu'on a fourni une valeur par "defaut" plus pertinent
+    return index_compose($conditionnel, $defaut);
 }
 
 /**
@@ -196,12 +196,12 @@ 
  * @return string              Code PHP complet de recherche d'un champ
  */
 function index_compose($conditionnel, $defaut) {
-	while ($c = array_pop($conditionnel)) {
-		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(" . ($defaut ?: "''") . '))';
-	}
+    while ($c = array_pop($conditionnel)) {
+        // si on passe defaut = '', ne pas générer d'erreur de compilation.
+        $defaut = "($c:(" . ($defaut ?: "''") . '))';
+    }
 
-	return $defaut;
+    return $defaut;
 }
 
 /**
@@ -237,97 +237,97 @@ 
  **/
 function index_tables_en_pile($idb, $nom_champ, &$boucles, &$joker) {
 
-	$r = $boucles[$idb]->type_requete;
-	// boucle recursive, c'est foutu...
-	if ($r == TYPE_RECURSIF) {
-		return [];
-	}
-	if (!$r) {
-		$joker = false; // indiquer a l'appelant
-		# continuer pour chercher l'erreur suivante
-		return ["'#" . $r . ':' . $nom_champ . "'", ''];
-	}
-
-	$desc = $boucles[$idb]->show;
-	// le nom du champ est il une exception de la table ? un alias ?
-	$excep = $GLOBALS['exceptions_des_tables'][$r] ?? '';
-	if ($excep) {
-		$excep = $excep[$nom_champ] ?? '';
-	}
-
-	// il y a un alias connu pour ce champ
-	if ($excep) {
-		$joker = false; // indiquer a l'appelant
-		return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
-	}
-
-	// le champ existe dans la table, on le prend.
-	if (isset($desc['field'][$nom_champ])) {
-		$t = $boucles[$idb]->id_table ?? '';
-		$joker = false; // indiquer a l'appelant
-		// note: dans certains cas ('valeur' d’une boucle DATA, sans id_table), retourne ['.valeur', 'valeur'] …
-		return ["$t.$nom_champ", $nom_champ];
-	}
-
-	// Tous les champs sont-ils acceptés ?
-	// Si oui, on retourne le champ, et on lève le flag joker
-	// C'est le cas des itérateurs DATA qui acceptent tout
-	// et testent la présence du champ à l'exécution et non à la compilation
-	// car ils ne connaissent pas ici leurs contenus.
-	if (
-		/*$joker AND */
-		isset($desc['field']['*'])
-	) {
-		$joker = true; // indiquer a l'appelant
-		return [$nom_champ, $nom_champ];
-	}
-
-	$joker = false; // indiquer a l'appelant
-
-	// la table de jointure est explicitement indiquée (rubrique.titre)
-	if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
-		[, $_table, $_nom_champ] = $r;
-		if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
-			$_alias = $cle . '_' . $_nom_champ;
-			return index_exception(
-				$boucles[$idb],
-				$desc,
-				$_alias,
-				[$_table, $_nom_champ]
-			);
-		}
-		return ['', ''];
-	}
-
-	// pas d'alias, pas de champ, pas de joker...
-	// tenter via une jointure...
-
-	// regarder si le champ est deja dans une jointure existante
-	// sinon, si il y a des joitures explicites, la construire
-	if (!$t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb])) {
-		if ($boucles[$idb]->jointures_explicites) {
-			// [todo] Ne pas lancer que lorsque il y a des jointures explicites !!!!
-			// fonctionnel, il suffit d'utiliser $boucles[$idb]->jointures au lieu de jointures_explicites
-			// mais est-ce ce qu'on veut ?
-			$jointures = preg_split('/\s+/', $boucles[$idb]->jointures_explicites);
-			if ($cle = trouver_jointure_champ($nom_champ, $boucles[$idb], $jointures)) {
-				$t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]);
-			}
-		}
-	}
-
-	if ($t) {
-		// si on a trouvé une jointure possible, on fait comme
-		// si c'était une exception pour le champ demandé
-		return index_exception(
-			$boucles[$idb],
-			$desc,
-			$nom_champ,
-			[$t[1]['id_table'], reset($t[2])]
-		);
-	}
-
-	return ['', ''];
+    $r = $boucles[$idb]->type_requete;
+    // boucle recursive, c'est foutu...
+    if ($r == TYPE_RECURSIF) {
+        return [];
+    }
+    if (!$r) {
+        $joker = false; // indiquer a l'appelant
+        # continuer pour chercher l'erreur suivante
+        return ["'#" . $r . ':' . $nom_champ . "'", ''];
+    }
+
+    $desc = $boucles[$idb]->show;
+    // le nom du champ est il une exception de la table ? un alias ?
+    $excep = $GLOBALS['exceptions_des_tables'][$r] ?? '';
+    if ($excep) {
+        $excep = $excep[$nom_champ] ?? '';
+    }
+
+    // il y a un alias connu pour ce champ
+    if ($excep) {
+        $joker = false; // indiquer a l'appelant
+        return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
+    }
+
+    // le champ existe dans la table, on le prend.
+    if (isset($desc['field'][$nom_champ])) {
+        $t = $boucles[$idb]->id_table ?? '';
+        $joker = false; // indiquer a l'appelant
+        // note: dans certains cas ('valeur' d’une boucle DATA, sans id_table), retourne ['.valeur', 'valeur'] …
+        return ["$t.$nom_champ", $nom_champ];
+    }
+
+    // Tous les champs sont-ils acceptés ?
+    // Si oui, on retourne le champ, et on lève le flag joker
+    // C'est le cas des itérateurs DATA qui acceptent tout
+    // et testent la présence du champ à l'exécution et non à la compilation
+    // car ils ne connaissent pas ici leurs contenus.
+    if (
+        /*$joker AND */
+        isset($desc['field']['*'])
+    ) {
+        $joker = true; // indiquer a l'appelant
+        return [$nom_champ, $nom_champ];
+    }
+
+    $joker = false; // indiquer a l'appelant
+
+    // la table de jointure est explicitement indiquée (rubrique.titre)
+    if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
+        [, $_table, $_nom_champ] = $r;
+        if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
+            $_alias = $cle . '_' . $_nom_champ;
+            return index_exception(
+                $boucles[$idb],
+                $desc,
+                $_alias,
+                [$_table, $_nom_champ]
+            );
+        }
+        return ['', ''];
+    }
+
+    // pas d'alias, pas de champ, pas de joker...
+    // tenter via une jointure...
+
+    // regarder si le champ est deja dans une jointure existante
+    // sinon, si il y a des joitures explicites, la construire
+    if (!$t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb])) {
+        if ($boucles[$idb]->jointures_explicites) {
+            // [todo] Ne pas lancer que lorsque il y a des jointures explicites !!!!
+            // fonctionnel, il suffit d'utiliser $boucles[$idb]->jointures au lieu de jointures_explicites
+            // mais est-ce ce qu'on veut ?
+            $jointures = preg_split('/\s+/', $boucles[$idb]->jointures_explicites);
+            if ($cle = trouver_jointure_champ($nom_champ, $boucles[$idb], $jointures)) {
+                $t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]);
+            }
+        }
+    }
+
+    if ($t) {
+        // si on a trouvé une jointure possible, on fait comme
+        // si c'était une exception pour le champ demandé
+        return index_exception(
+            $boucles[$idb],
+            $desc,
+            $nom_champ,
+            [$t[1]['id_table'], reset($t[2])]
+        );
+    }
+
+    return ['', ''];
 }
 
 
@@ -355,52 +355,52 @@ 
  *     est une expression pour le SELECT de la boucle du style "mots.titre AS titre_mot"
  **/
 function index_exception(&$boucle, $desc, $nom_champ, $excep) {
-	static $trouver_table;
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (is_array($excep)) {
-		// permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
-		$t = null;
-		if (count($excep) == 3) {
-			$index_exception_derogatoire = array_pop($excep);
-			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
-		}
-		if ($t == null) {
-			[$e, $x] = $excep;  #PHP4 affecte de gauche a droite
-			$excep = $x;    #PHP5 de droite a gauche !
-			$j = $trouver_table($e, $boucle->sql_serveur);
-			if (!$j) {
-				return ['', ''];
-			}
-			$e = $j['table'];
-			if (!$t = array_search($e, $boucle->from)) {
-				$k = $j['key']['PRIMARY KEY'];
-				if (strpos($k, ',')) {
-					$l = (preg_split('/\s*,\s*/', $k));
-					$k = $desc['key']['PRIMARY KEY'];
-					if (!in_array($k, $l)) {
-						spip_log("jointure impossible $e " . join(',', $l));
-
-						return ['', ''];
-					}
-				}
-				$k = [$boucle->id_table, [$e], $k];
-				fabrique_jointures($boucle, [$k]);
-				$t = array_search($e, $boucle->from);
-			}
-		}
-	} else {
-		$t = $boucle->id_table;
-	}
-	// demander a SQL de gerer le synonyme
-	// ca permet que excep soit dynamique (Cedric, 2/3/06)
-	if ($excep != $nom_champ) {
-		$excep .= ' AS ' . $nom_champ;
-	}
-
-	return ["$t.$excep", $nom_champ];
+    static $trouver_table;
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (is_array($excep)) {
+        // permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
+        $t = null;
+        if (count($excep) == 3) {
+            $index_exception_derogatoire = array_pop($excep);
+            $t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
+        }
+        if ($t == null) {
+            [$e, $x] = $excep;  #PHP4 affecte de gauche a droite
+            $excep = $x;    #PHP5 de droite a gauche !
+            $j = $trouver_table($e, $boucle->sql_serveur);
+            if (!$j) {
+                return ['', ''];
+            }
+            $e = $j['table'];
+            if (!$t = array_search($e, $boucle->from)) {
+                $k = $j['key']['PRIMARY KEY'];
+                if (strpos($k, ',')) {
+                    $l = (preg_split('/\s*,\s*/', $k));
+                    $k = $desc['key']['PRIMARY KEY'];
+                    if (!in_array($k, $l)) {
+                        spip_log("jointure impossible $e " . join(',', $l));
+
+                        return ['', ''];
+                    }
+                }
+                $k = [$boucle->id_table, [$e], $k];
+                fabrique_jointures($boucle, [$k]);
+                $t = array_search($e, $boucle->from);
+            }
+        }
+    } else {
+        $t = $boucle->id_table;
+    }
+    // demander a SQL de gerer le synonyme
+    // ca permet que excep soit dynamique (Cedric, 2/3/06)
+    if ($excep != $nom_champ) {
+        $excep .= ' AS ' . $nom_champ;
+    }
+
+    return ["$t.$excep", $nom_champ];
 }
 
 /**
@@ -425,7 +425,7 @@ 
  *     Code PHP pour retrouver le champ
  */
 function champ_sql($champ, $p, $defaut = null, $remonte_pile = true) {
-	return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
+    return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
 }
 
 
@@ -445,9 +445,9 @@ 
  *     Code PHP pour d'exécution de la balise et de ses filtres
  **/
 function calculer_champ($p) {
-	$p = calculer_balise($p->nom_champ, $p);
+    $p = calculer_balise($p->nom_champ, $p);
 
-	return applique_filtres($p);
+    return applique_filtres($p);
 }
 
 
@@ -484,26 +484,26 @@ 
  **/
 function calculer_balise(string $nom, \Champ $p): \Champ {
 
-	// S'agit-t-il d'une balise_XXXX[_dist]() ?
-	if ($f = charger_fonction($nom, 'balise', true)) {
-		$p->balise_calculee = true;
-		$res = $f($p);
-		if ($res !== null and is_object($res)) {
-			return $res;
-		}
-	}
-
-	// Certaines des balises comportant un _ sont generiques
-	if ($balise_generique = chercher_balise_generique($nom)) {
-		$res = $balise_generique['fonction_generique']($p);
-		if ($res !== null and is_object($res)) {
-			return $res;
-		}
-	}
-
-	$f = charger_fonction('DEFAUT', 'calculer_balise');
-
-	return $f($nom, $p);
+    // S'agit-t-il d'une balise_XXXX[_dist]() ?
+    if ($f = charger_fonction($nom, 'balise', true)) {
+        $p->balise_calculee = true;
+        $res = $f($p);
+        if ($res !== null and is_object($res)) {
+            return $res;
+        }
+    }
+
+    // Certaines des balises comportant un _ sont generiques
+    if ($balise_generique = chercher_balise_generique($nom)) {
+        $res = $balise_generique['fonction_generique']($p);
+        if ($res !== null and is_object($res)) {
+            return $res;
+        }
+    }
+
+    $f = charger_fonction('DEFAUT', 'calculer_balise');
+
+    return $f($nom, $p);
 }
 
 
@@ -531,37 +531,37 @@ 
  **/
 function calculer_balise_DEFAUT_dist($nom, $p) {
 
-	// ca pourrait etre un champ SQL homonyme,
-	$p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
-
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
-		$code = addslashes($p->fonctions[0][1]);
-		$p->code .= " . '$code'";
-	}
-
-	// ne pas passer le filtre securite sur les id_xxx
-	if (strpos($nom, 'ID_') === 0) {
-		$p->interdire_scripts = false;
-	}
-
-	// Compatibilite ascendante avec les couleurs html (#FEFEFE) :
-	// SI le champ SQL n'est pas trouve
-	// ET si la balise a une forme de couleur
-	// ET s'il n'y a ni filtre ni etoile
-	// ALORS retourner la couleur.
-	// Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
-	if (
-		preg_match('/^[A-F]{1,6}$/i', $nom)
-		and !$p->etoile
-		and !$p->fonctions
-	) {
-		$p->code = "'#$nom'";
-		$p->interdire_scripts = false;
-	}
-
-	return $p;
+    // ca pourrait etre un champ SQL homonyme,
+    $p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
+
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
+        $code = addslashes($p->fonctions[0][1]);
+        $p->code .= " . '$code'";
+    }
+
+    // ne pas passer le filtre securite sur les id_xxx
+    if (strpos($nom, 'ID_') === 0) {
+        $p->interdire_scripts = false;
+    }
+
+    // Compatibilite ascendante avec les couleurs html (#FEFEFE) :
+    // SI le champ SQL n'est pas trouve
+    // ET si la balise a une forme de couleur
+    // ET s'il n'y a ni filtre ni etoile
+    // ALORS retourner la couleur.
+    // Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
+    if (
+        preg_match('/^[A-F]{1,6}$/i', $nom)
+        and !$p->etoile
+        and !$p->fonctions
+    ) {
+        $p->code = "'#$nom'";
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -604,39 +604,39 @@ 
  **/
 function calculer_balise_dynamique($p, $nom, $l, $supp = []) {
 
-	if (!balise_distante_interdite($p)) {
-		$p->code = "''";
-
-		return $p;
-	}
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
-		$p->fonctions = [];
-	}
-
-	if ($p->param and ($c = $p->param[0])) {
-		// liste d'arguments commence toujours par la chaine vide
-		array_shift($c);
-		// construire la liste d'arguments comme pour un filtre
-		$param = compose_filtres_args($p, $c, ',');
-	} else {
-		$param = '';
-	}
-	$collecte = collecter_balise_dynamique($l, $p, $nom);
-
-	$p->code = sprintf(
-		CODE_EXECUTER_BALISE,
-		$nom,
-		join(',', $collecte),
-		($collecte ? $param : substr($param, 1)), # virer la virgule
-		memoriser_contexte_compil($p),
-		(!$supp ? '' : (', ' . join(',', $supp)))
-	);
-
-	$p->interdire_scripts = false;
-
-	return $p;
+    if (!balise_distante_interdite($p)) {
+        $p->code = "''";
+
+        return $p;
+    }
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
+        $p->fonctions = [];
+    }
+
+    if ($p->param and ($c = $p->param[0])) {
+        // liste d'arguments commence toujours par la chaine vide
+        array_shift($c);
+        // construire la liste d'arguments comme pour un filtre
+        $param = compose_filtres_args($p, $c, ',');
+    } else {
+        $param = '';
+    }
+    $collecte = collecter_balise_dynamique($l, $p, $nom);
+
+    $p->code = sprintf(
+        CODE_EXECUTER_BALISE,
+        $nom,
+        join(',', $collecte),
+        ($collecte ? $param : substr($param, 1)), # virer la virgule
+        memoriser_contexte_compil($p),
+        (!$supp ? '' : (', ' . join(',', $supp)))
+    );
+
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -666,17 +666,17 @@ 
  *     Liste des codes PHP d'éxecution des balises collectées
  **/
 function collecter_balise_dynamique(array $l, \Champ &$p, string $nom): array {
-	$args = [];
-	foreach ($l as $c) {
-		if ($c === null) {
-			$args[] = 'null';
-		} else {
-			$x = calculer_balise($c, $p);
-			$args[] = $x->code;
-		}
-	}
-
-	return $args;
+    $args = [];
+    foreach ($l as $c) {
+        if ($c === null) {
+            $args[] = 'null';
+        } else {
+            $x = calculer_balise($c, $p);
+            $args[] = $x->code;
+        }
+    }
+
+    return $args;
 }
 
 
@@ -691,22 +691,22 @@ 
  *     Nom de la connexion
  **/
 function trouver_nom_serveur_distant($p) {
-	$nom = $p->id_boucle;
-	if (
-		$nom
-		and isset($p->boucles[$nom])
-	) {
-		$s = $p->boucles[$nom]->sql_serveur;
-		if (
-			strlen($s)
-			and strlen($serveur = strtolower($s))
-			and !in_array($serveur, $GLOBALS['exception_des_connect'])
-		) {
-			return $serveur;
-		}
-	}
-
-	return '';
+    $nom = $p->id_boucle;
+    if (
+        $nom
+        and isset($p->boucles[$nom])
+    ) {
+        $s = $p->boucles[$nom]->sql_serveur;
+        if (
+            strlen($s)
+            and strlen($serveur = strtolower($s))
+            and !in_array($serveur, $GLOBALS['exception_des_connect'])
+        ) {
+            return $serveur;
+        }
+    }
+
+    return '';
 }
 
 
@@ -730,15 +730,15 @@ 
  *     - false : La balise est interdite car le serveur est distant
  **/
 function balise_distante_interdite($p) {
-	$nom = $p->id_boucle;
+    $nom = $p->id_boucle;
 
-	if ($nom and trouver_nom_serveur_distant($p)) {
-		spip_log($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
+    if ($nom and trouver_nom_serveur_distant($p)) {
+        spip_log($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
 
-		return false;
-	}
+        return false;
+    }
 
-	return true;
+    return true;
 }
 
 
@@ -748,84 +748,84 @@ 
 //
 function champs_traitements($p) {
 
-	if (isset($GLOBALS['table_des_traitements'][$p->nom_champ])) {
-		$ps = $GLOBALS['table_des_traitements'][$p->nom_champ];
-	} else {
-		// quand on utilise un traitement catch-all *
-		// celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
-		// leur propre securite
-		if (!$p->balise_calculee) {
-			$ps = $GLOBALS['table_des_traitements']['*'];
-		} else {
-			$ps = false;
-		}
-	}
-
-	if (is_array($ps)) {
-		// Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
-		$idb = index_boucle($p);
-		// si le champ a ete trouve dans une boucle parente sa source est renseignee ici
-		if (!empty($p->boucles[$idb]->index_champ[$p->nom_champ])) {
-			$idb = $p->boucles[$idb]->index_champ[$p->nom_champ];
-		}
-
-		// mais on peut aussi etre hors boucle. Se mefier.
-		$type_requete = $p->boucles[$idb]->type_requete ?? false;
-		$table_sql = $p->boucles[$idb]->show['table_sql'] ?? false;
-
-		// bien prendre en compte les alias de boucles (hierarchie => rubrique, syndication => syncdic, etc.)
-		if ($type_requete and isset($GLOBALS['table_des_tables'][$type_requete])) {
-			$type_alias = $type_requete;
-			$type_requete = $GLOBALS['table_des_tables'][$type_requete];
-		} else {
-			$type_alias = false;
-		}
-
-		// le traitement peut n'etre defini que pour une table en particulier "spip_articles"
-		if ($table_sql and isset($ps[$table_sql])) {
-			$ps = $ps[$table_sql];
-		} // ou pour une boucle en particulier "DATA","articles"
-		elseif ($type_requete and isset($ps[$type_requete])) {
-			$ps = $ps[$type_requete];
-		} // ou pour une boucle utilisant un alias ("hierarchie")
-		elseif ($type_alias and isset($ps[$type_alias])) {
-			$ps = $ps[$type_alias];
-		} // ou pour indifféremment quelle que soit la boucle
-		elseif (isset($ps[0])) {
-			$ps = $ps[0];
-		} else {
-			$ps = false;
-		}
-	}
-
-	if (!$ps) {
-		return $p->code;
-	}
-
-	// Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
-	// ou si in INCLURE contient {doublons}
-	// on insere une fonction de remplissage du tableau des doublons
-	// dans les filtres propre() ou typo()
-	// (qui traitent les raccourcis <docXX> referencant les docs)
-
-	if (
-		isset($p->descr['documents'])
-		and
-		$p->descr['documents']
-		and (
-			(strpos($ps, 'propre') !== false)
-			or
-			(strpos($ps, 'typo') !== false)
-		)
-	) {
-		$ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
-	}
-
-	// La protection des champs par |safehtml est assuree par les extensions
-	// dans la declaration des traitements des champs sensibles
-
-	// Remplacer enfin le placeholder %s par le vrai code de la balise
-	return str_replace('%s', $p->code, $ps);
+    if (isset($GLOBALS['table_des_traitements'][$p->nom_champ])) {
+        $ps = $GLOBALS['table_des_traitements'][$p->nom_champ];
+    } else {
+        // quand on utilise un traitement catch-all *
+        // celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
+        // leur propre securite
+        if (!$p->balise_calculee) {
+            $ps = $GLOBALS['table_des_traitements']['*'];
+        } else {
+            $ps = false;
+        }
+    }
+
+    if (is_array($ps)) {
+        // Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
+        $idb = index_boucle($p);
+        // si le champ a ete trouve dans une boucle parente sa source est renseignee ici
+        if (!empty($p->boucles[$idb]->index_champ[$p->nom_champ])) {
+            $idb = $p->boucles[$idb]->index_champ[$p->nom_champ];
+        }
+
+        // mais on peut aussi etre hors boucle. Se mefier.
+        $type_requete = $p->boucles[$idb]->type_requete ?? false;
+        $table_sql = $p->boucles[$idb]->show['table_sql'] ?? false;
+
+        // bien prendre en compte les alias de boucles (hierarchie => rubrique, syndication => syncdic, etc.)
+        if ($type_requete and isset($GLOBALS['table_des_tables'][$type_requete])) {
+            $type_alias = $type_requete;
+            $type_requete = $GLOBALS['table_des_tables'][$type_requete];
+        } else {
+            $type_alias = false;
+        }
+
+        // le traitement peut n'etre defini que pour une table en particulier "spip_articles"
+        if ($table_sql and isset($ps[$table_sql])) {
+            $ps = $ps[$table_sql];
+        } // ou pour une boucle en particulier "DATA","articles"
+        elseif ($type_requete and isset($ps[$type_requete])) {
+            $ps = $ps[$type_requete];
+        } // ou pour une boucle utilisant un alias ("hierarchie")
+        elseif ($type_alias and isset($ps[$type_alias])) {
+            $ps = $ps[$type_alias];
+        } // ou pour indifféremment quelle que soit la boucle
+        elseif (isset($ps[0])) {
+            $ps = $ps[0];
+        } else {
+            $ps = false;
+        }
+    }
+
+    if (!$ps) {
+        return $p->code;
+    }
+
+    // Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
+    // ou si in INCLURE contient {doublons}
+    // on insere une fonction de remplissage du tableau des doublons
+    // dans les filtres propre() ou typo()
+    // (qui traitent les raccourcis <docXX> referencant les docs)
+
+    if (
+        isset($p->descr['documents'])
+        and
+        $p->descr['documents']
+        and (
+            (strpos($ps, 'propre') !== false)
+            or
+            (strpos($ps, 'typo') !== false)
+        )
+    ) {
+        $ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
+    }
+
+    // La protection des champs par |safehtml est assuree par les extensions
+    // dans la declaration des traitements des champs sensibles
+
+    // Remplacer enfin le placeholder %s par le vrai code de la balise
+    return str_replace('%s', $p->code, $ps);
 }
 
 
@@ -837,110 +837,110 @@ 
 //
 function applique_filtres($p) {
 
-	// Traitements standards (cf. supra)
-	if ($p->etoile == '') {
-		$code = champs_traitements($p);
-	} else {
-		$code = $p->code;
-	}
+    // Traitements standards (cf. supra)
+    if ($p->etoile == '') {
+        $code = champs_traitements($p);
+    } else {
+        $code = $p->code;
+    }
 
-	// Appliquer les filtres perso
-	if ($p->param) {
-		$code = compose_filtres($p, $code);
-	}
+    // Appliquer les filtres perso
+    if ($p->param) {
+        $code = compose_filtres($p, $code);
+    }
 
-	// S'il y a un lien avec la session, ajouter un code qui levera
-	// un drapeau dans la structure d'invalidation $Cache
-	if (isset($p->descr['session'])) {
-		$code = "invalideur_session(\$Cache, $code)";
-	}
+    // S'il y a un lien avec la session, ajouter un code qui levera
+    // un drapeau dans la structure d'invalidation $Cache
+    if (isset($p->descr['session'])) {
+        $code = "invalideur_session(\$Cache, $code)";
+    }
 
-	$code = sandbox_composer_interdire_scripts($code, $p);
+    $code = sandbox_composer_interdire_scripts($code, $p);
 
-	return $code;
+    return $code;
 }
 
 // Cf. function pipeline dans ecrire/inc_utils.php
 function compose_filtres(&$p, $code) {
 
-	$image_miette = false;
-	foreach ($p->param as $filtre) {
-		$fonc = array_shift($filtre);
-		if (!$fonc) {
-			continue;
-		} // normalement qu'au premier tour.
-		$is_filtre_image = ((substr($fonc, 0, 6) == 'image_') and $fonc != 'image_graver');
-		if ($image_miette and !$is_filtre_image) {
-			// il faut graver maintenant car apres le filtre en cours
-			// on est pas sur d'avoir encore le nom du fichier dans le pipe
-			$code = "filtrer('image_graver', $code)";
-			$image_miette = false;
-		}
-
-		// recuperer les arguments du filtre,
-		// a separer par "," ou ":" dans le cas du filtre "?{a,b}"
-		$countfiltre = is_countable($filtre) ? count($filtre) : 0;
-		if ($fonc !== '?') {
-			$sep = ',';
-		} else {
-			$sep = ':';
-			// |?{a,b} *doit* avoir exactement 2 arguments ; on les force
-			if ($countfiltre != 2) {
-				$filtre = [$filtre[0] ?? '', $filtre[1] ?? ''];
-				$countfiltre = 2;
-			}
-		}
-		$arglist = compose_filtres_args($p, $filtre, $sep);
-		$logique = filtre_logique($fonc, $code, substr($arglist, 1));
-		if ($logique) {
-			$code = $logique;
-		} else {
-			$code = sandbox_composer_filtre($fonc, $code, $arglist, $p, $countfiltre);
-			if ($is_filtre_image) {
-				$image_miette = true;
-			}
-		}
-	}
-	// ramasser les images intermediaires inutiles et graver l'image finale
-	if ($image_miette) {
-		$code = "filtrer('image_graver',$code)";
-	}
-
-	return $code;
+    $image_miette = false;
+    foreach ($p->param as $filtre) {
+        $fonc = array_shift($filtre);
+        if (!$fonc) {
+            continue;
+        } // normalement qu'au premier tour.
+        $is_filtre_image = ((substr($fonc, 0, 6) == 'image_') and $fonc != 'image_graver');
+        if ($image_miette and !$is_filtre_image) {
+            // il faut graver maintenant car apres le filtre en cours
+            // on est pas sur d'avoir encore le nom du fichier dans le pipe
+            $code = "filtrer('image_graver', $code)";
+            $image_miette = false;
+        }
+
+        // recuperer les arguments du filtre,
+        // a separer par "," ou ":" dans le cas du filtre "?{a,b}"
+        $countfiltre = is_countable($filtre) ? count($filtre) : 0;
+        if ($fonc !== '?') {
+            $sep = ',';
+        } else {
+            $sep = ':';
+            // |?{a,b} *doit* avoir exactement 2 arguments ; on les force
+            if ($countfiltre != 2) {
+                $filtre = [$filtre[0] ?? '', $filtre[1] ?? ''];
+                $countfiltre = 2;
+            }
+        }
+        $arglist = compose_filtres_args($p, $filtre, $sep);
+        $logique = filtre_logique($fonc, $code, substr($arglist, 1));
+        if ($logique) {
+            $code = $logique;
+        } else {
+            $code = sandbox_composer_filtre($fonc, $code, $arglist, $p, $countfiltre);
+            if ($is_filtre_image) {
+                $image_miette = true;
+            }
+        }
+    }
+    // ramasser les images intermediaires inutiles et graver l'image finale
+    if ($image_miette) {
+        $code = "filtrer('image_graver',$code)";
+    }
+
+    return $code;
 }
 
 // Filtres et,ou,oui,non,sinon,xou,xor,and,or,not,yes
 // et comparateurs
 function filtre_logique($fonc, $code, $arg) {
 
-	switch (true) {
-		case in_array($fonc, $GLOBALS['table_criteres_infixes']):
-			return "($code $fonc $arg)";
-		case ($fonc == 'and') or ($fonc == 'et'):
-			return "((($code) AND ($arg)) ?' ' :'')";
-		case ($fonc == 'or') or ($fonc == 'ou'):
-			return "((($code) OR ($arg)) ?' ' :'')";
-		case ($fonc == 'xor') or ($fonc == 'xou'):
-			return "((($code) XOR ($arg)) ?' ' :'')";
-		case ($fonc == 'sinon'):
-			return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
-		case ($fonc == 'not') or ($fonc == 'non'):
-			return "(($code) ?'' :' ')";
-		case ($fonc == 'yes') or ($fonc == 'oui'):
-			return "(($code) ?' ' :'')";
-	}
-
-	return '';
+    switch (true) {
+        case in_array($fonc, $GLOBALS['table_criteres_infixes']):
+            return "($code $fonc $arg)";
+        case ($fonc == 'and') or ($fonc == 'et'):
+            return "((($code) AND ($arg)) ?' ' :'')";
+        case ($fonc == 'or') or ($fonc == 'ou'):
+            return "((($code) OR ($arg)) ?' ' :'')";
+        case ($fonc == 'xor') or ($fonc == 'xou'):
+            return "((($code) XOR ($arg)) ?' ' :'')";
+        case ($fonc == 'sinon'):
+            return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
+        case ($fonc == 'not') or ($fonc == 'non'):
+            return "(($code) ?'' :' ')";
+        case ($fonc == 'yes') or ($fonc == 'oui'):
+            return "(($code) ?' ' :'')";
+    }
+
+    return '';
 }
 
 function compose_filtres_args($p, $args, $sep) {
-	$arglist = '';
-	foreach ($args as $arg) {
-		$arglist .= $sep .
-			calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
-	}
+    $arglist = '';
+    foreach ($args as $arg) {
+        $arglist .= $sep .
+            calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
+    }
 
-	return $arglist;
+    return $arglist;
 }
 
 
@@ -958,15 +958,15 @@ 
  **/
 function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut = null) {
 
-	// si recursif, forcer l'extraction du champ SQL mais ignorer le code
-	if ($boucles[$idb]->externe) {
-		index_pile($idb, $nom_champ, $boucles, '', $defaut);
-		// retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
-		// on ignore le defaut fourni dans ce cas
-		$defaut = "(\$Pile[\$SP]['$nom_champ'] ?? null)";
-	}
+    // si recursif, forcer l'extraction du champ SQL mais ignorer le code
+    if ($boucles[$idb]->externe) {
+        index_pile($idb, $nom_champ, $boucles, '', $defaut);
+        // retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
+        // on ignore le defaut fourni dans ce cas
+        $defaut = "(\$Pile[\$SP]['$nom_champ'] ?? null)";
+    }
 
-	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
+    return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
 }
 
 //
@@ -980,30 +980,30 @@ 
 //
 
 function rindex_pile($p, $champ, $motif) {
-	$n = 0;
-	$b = $p->id_boucle;
-	$p->code = '';
-	while ($b != '') {
-		foreach ($p->boucles[$b]->criteres as $critere) {
-			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
-					"]['$champ']";
-				$b = '';
-				break 2;
-			}
-		}
-		$n++;
-		$b = $p->boucles[$b]->id_parent;
-	}
-
-	// si on est hors d'une boucle de {recherche}, cette balise est vide
-	if (!$p->code) {
-		$p->code = "''";
-	}
-
-	$p->interdire_scripts = false;
-
-	return $p;
+    $n = 0;
+    $b = $p->id_boucle;
+    $p->code = '';
+    while ($b != '') {
+        foreach ($p->boucles[$b]->criteres as $critere) {
+            if ($critere->op == $motif) {
+                $p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
+                    "]['$champ']";
+                $b = '';
+                break 2;
+            }
+        }
+        $n++;
+        $b = $p->boucles[$b]->id_parent;
+    }
+
+    // si on est hors d'une boucle de {recherche}, cette balise est vide
+    if (!$p->code) {
+        $p->code = "''";
+    }
+
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 /**
@@ -1013,7 +1013,7 @@ 
  * @return string Nom de la balise, avec indication de boucle explicite si présent.
  */
 function zbug_presenter_champ($p, $champ = '') {
-	$balise = $champ ?: $p->nom_champ;
-	$explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
-	return "#{$explicite}{$balise}";
+    $balise = $champ ?: $p->nom_champ;
+    $explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
+    return "#{$explicite}{$balise}";
 }

ecrire/public/interfaces.php

Indentation +747 added lines, -747 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -34,35 +34,35 @@ 
  * @package SPIP\Core\Compilateur\AST
  */
 class Contexte {
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
-
-	/** Identifiant de la boucle */
-	public string $id_boucle = '';
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
-
-	/** Langue d'exécution */
-	public string $lang = '';
-
-	/** Résultat de la compilation: toujours une expression PHP */
-	public string $code = '';
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
+
+    /** Identifiant de la boucle */
+    public string $id_boucle = '';
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
+
+    /** Langue d'exécution */
+    public string $lang = '';
+
+    /** Résultat de la compilation: toujours une expression PHP */
+    public string $code = '';
 }
 
 
@@ -72,32 +72,32 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Texte {
-	/** Type de noeud */
-	public string $type = 'texte';
-
-	/** Le texte */
-	public string $texte;
-
-	/**
-	 * Contenu avant le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Contenu après le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Type de noeud */
+    public string $type = 'texte';
+
+    /** Le texte */
+    public string $texte;
+
+    /**
+     * Contenu avant le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Contenu après le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }
 
 /**
@@ -106,59 +106,59 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Inclure {
-	/** Type de noeud */
-	public string $type = 'include';
-
-	/**
-	 * Nom d'un fichier inclu
-	 *
-	 * - Objet Texte si inclusion d'un autre squelette
-	 * - chaîne si inclusion d'un fichier PHP directement
-	 *
-	 * @var string|Texte
-	 */
-	public $texte;
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
-
-	/** Valeurs des paramètres */
-	public array $param = [];
-
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
+    /** Type de noeud */
+    public string $type = 'include';
+
+    /**
+     * Nom d'un fichier inclu
+     *
+     * - Objet Texte si inclusion d'un autre squelette
+     * - chaîne si inclusion d'un fichier PHP directement
+     *
+     * @var string|Texte
+     */
+    public $texte;
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
+
+    /** Valeurs des paramètres */
+    public array $param = [];
+
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
 }
 
 
@@ -168,362 +168,362 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Boucle {
-	/** Type de noeud */
-	public string $type = 'boucle';
-
-	/** Identifiant de la boucle */
-	public string $id_boucle;
-
-	/** Identifiant de la boucle parente */
-	public string $id_parent = '';
-
-	/** Un nom explicite qui peut être affecté manuellement à certaines boucles générées */
-	public string $nom = '';
-
-	/**
-	 * Partie avant toujours affichee
-	 *
-	 * @var string|array
-	 */
-	public $preaff = '';
-
-	/**
-	 * Partie optionnelle avant
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Pour chaque élément
-	 *
-	 * @var string|array
-	 */
-	public $milieu = '';
-
-	/**
-	 * Partie optionnelle après
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/**
-	 * Partie alternative, si pas de résultat dans la boucle
-	 *
-	 * @var string|array
-	 */
-	public $altern = '';
-
-	/**
-	 * Partie apres toujours affichee
-	 *
-	 * @var string|array
-	 */
-	public $postaff = '';
-
-
-	/**
-	 * La boucle doit-elle sélectionner la langue ?
-	 *
-	 * Valeurs : '', 'oui', 'non'
-	 */
-	public string $lang_select = '';
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 *
-	 * FIXME: un seul typage (string ?)
-	 *
-	 * @var string|false|null
-	 */
-	public $type_requete = null;
-
-	/**
-	 * La table est elle optionnelle ?
-	 *
-	 * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
-	 */
-	public bool $table_optionnelle = false;
-
-	/**
-	 * Nom du fichier de connexion
-	 */
-	public string $sql_serveur = '';
-
-	/**
-	 * Paramètres de la boucle
-	 *
-	 * Description des paramètres passés à la boucle, qui servent ensuite
-	 * au calcul des critères
-	 */
-	public array $param = [];
-
-	/**
-	 * Critères de la boucle
-	 *
-	 * FIXME: type array unique.
-	 *
-	 * @var string|Critere[]
-	 * - string: phrasage (code brut). Il reste si erreur de critère
-	 * - array: analyse correcte des critères...
-	 */
-	public $criteres = [];
-
-	/**
-	 * Textes insérés entre 2 éléments de boucle (critère inter)
-	 *
-	 * @var string[]
-	 */
-	public array $separateur = [];
-
-	/**
-	 * Liste des jointures possibles avec cette table
-	 *
-	 * Les jointures par défaut de la table sont complétées en priorité
-	 * des jointures déclarées explicitement sur la boucle
-	 *
-	 * @see base_trouver_table_dist()
-	 */
-	public array $jointures = [];
-
-	/**
-	 * Jointures explicites avec cette table
-	 *
-	 * Ces jointures sont utilisées en priorité par rapport aux jointures
-	 * normales possibles pour retrouver les colonnes demandées extérieures
-	 * à la boucle.
-	 *
-	 * @var string|bool
-	 */
-	public $jointures_explicites = false;
-
-	/**
-	 * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
-	 */
-	public string $doublons = '';
-
-	/**
-	 * Code PHP ajouté au début de chaque itération de boucle.
-	 *
-	 * Utilisé entre autre par les critères {pagination}, {n-a,b}, {a/b}...
-	 */
-	public string $partie = '';
-
-	/**
-	 * Nombre de divisions de la boucle, d'éléments à afficher,
-	 * ou de soustractions d'éléments à faire
-	 *
-	 * Dans les critères limitant le nombre d'éléments affichés
-	 * {a,b}, {a,n-b}, {a/b}, {pagination b}, b est affecté à total_parties.
-	 */
-	public string $total_parties = '';
-
-	/**
-	 * Code PHP ajouté avant l'itération de boucle.
-	 *
-	 * Utilisé entre autre par les critères {pagination}, {a,b}, {a/b}
-	 * pour initialiser les variables de début et de fin d'itération.
-	 */
-	public string $mode_partie = '';
-
-	/**
-	 * Identifiant d'une boucle qui appelle celle-ci de manière récursive
-	 *
-	 * Si une boucle est appelée de manière récursive quelque part par
-	 * une autre boucle comme <BOUCLE_rec(boucle_identifiant) />, cette
-	 * boucle (identifiant) reçoit dans cette propriété l'identifiant
-	 * de l'appelant (rec)
-	 */
-	public string $externe = '';
-
-	// champs pour la construction de la requete SQL
-
-	/**
-	 * Liste des champs à récupérer par la boucle
-	 *
-	 * Expression 'table.nom_champ' ou calculée 'nom_champ AS x'
-	 *
-	 * @var string[]
-	 */
-	public array $select = [];
-
-	/**
-	 * Liste des alias / tables SQL utilisées dans la boucle
-	 *
-	 * L'index est un identifiant (xx dans spip_xx assez souvent) qui servira
-	 * d'alias au nom de la table ; la valeur est le nom de la table SQL désirée.
-	 *
-	 * L'index 0 peut définir le type de sources de données de l'itérateur DATA
-	 *
-	 * @var string[]
-	 */
-	public array $from = [];
-
-	/**
-	 * Liste des alias / type de jointures utilisées dans la boucle
-	 *
-	 * L'index est le nom d'alias (comme pour la propriété $from), et la valeur
-	 * un type de jointure parmi 'INNER', 'LEFT', 'RIGHT', 'OUTER'.
-	 *
-	 * Lorsque le type n'est pas déclaré pour un alias, c'est 'INNER'
-	 * qui sera utilisé par défaut (créant donc un INNER JOIN).
-	 *
-	 * @var string[]
-	 */
-	public array $from_type = [];
-
-	/**
-	 * Liste des conditions WHERE de la boucle
-	 *
-	 * Permet de restreindre les éléments retournés par une boucle
-	 * en fonctions des conditions transmises dans ce tableau.
-	 *
-	 * Ce tableau peut avoir plusieurs niveaux de profondeur.
-	 *
-	 * Les éléments du premier niveau sont reliés par des AND, donc
-	 * chaque élément ajouté directement au where par
-	 * $boucle->where[] = array(...) ou $boucle->where[] = "'expression'"
-	 * est une condition AND en plus.
-	 *
-	 * Par contre, lorsqu'on indique un tableau, il peut décrire des relations
-	 * internes différentes. Soit $expr un tableau d'expressions quelconques de 3 valeurs :
-	 * $expr = array(operateur, val1, val2)
-	 *
-	 * Ces 3 valeurs sont des expressions PHP. L'index 0 désigne l'opérateur
-	 * à réaliser tel que :
-	 *
-	 * - "'='" , "'>='", "'<'", "'IN'", "'REGEXP'", "'LIKE'", ... :
-	 *    val1 et val2 sont des champs et valeurs à utiliser dans la comparaison
-	 *    suivant cet ordre : "val1 operateur val2".
-	 *    Exemple : $boucle->where[] = array("'='", "'articles.statut'", "'\"publie\"'");
-	 * - "'AND'", "'OR'", "'NOT'" :
-	 *    dans ce cas val1 et val2 sont également des expressions
-	 *    de comparaison complètes, et peuvent être eux-même des tableaux comme $expr
-	 *    Exemples :
-	 *    $boucle->where[] = array("'OR'", $expr1, $expr2);
-	 *    $boucle->where[] = array("'NOT'", $expr); // val2 n'existe pas avec NOT
-	 *
-	 * D'autres noms sont possibles pour l'opérateur (le nombre de valeurs diffère) :
-	 * - "'SELF'", "'SUBSELECT'" : indiquent des sous requêtes
-	 * - "'?'" : indique une condition à faire évaluer (val1 ? val2 : val3)
-	 */
-	public array $where = [];
-
-	public array $join = [];
-	public array $having = [];
-	public $limit = '';
-	public array $group = [];
-	public array $order = [];
-	public array $default_order = [];
-	public string $date = 'date';
-	public string $hash = '';
-	public $in = '';
-	public bool $sous_requete = false;
-
-	/**
-	 * Code PHP qui sera ajouté en tout début de la fonction de boucle
-	 *
-	 * Il sert à insérer le code calculant une hierarchie
-	 */
-	public string $hierarchie = '';
-
-	// champs pour la construction du corps PHP
-
-	/**
-	 * Description des sources de données de la boucle
-	 *
-	 * Description des données de la boucle issu de trouver_table
-	 * dans le cadre de l'itérateur SQL et contenant au moins l'index 'field'.
-	 *
-	 * @see base_trouver_table_dist()
-	 */
-	public array $show = [];
-
-	/**
-	 * Nom de la table SQL principale de la boucle, sans son préfixe
-	 */
-	public string $id_table = '';
-
-	/**
-	 * Nom de la clé primaire de la table SQL principale de la boucle
-	 */
-	public string $primary = '';
-
-	/**
-	 * Code PHP compilé de la boucle
-	 *
-	 * FIXME: un seul type (string ?)
-	 *
-	 * - false: boucle fautive ?
-	 *
-	 * @var string|false
-	 */
-	public $return = '';
-
-	public $numrows = false;
-	public $cptrows = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
-
-
-	/**
-	 * table pour stocker les modificateurs de boucle tels que tout, plat ...,
-	 * utilisable par les plugins egalement
-	 *
-	 * @var array<string, mixed>
-	 */
-	public array $modificateur = [];
-
-	/**
-	 * Type d'itérateur utilisé pour cette boucle
-	 *
-	 * - 'SQL' dans le cadre d'une boucle sur une table SQL
-	 * - 'DATA' pour l'itérateur DATA, ...
-	 *
-	 * @var string
-	 */
-	public string $iterateur = ''; // type d'iterateur
-
-	/**
-	 * @var array $debug Textes qui seront insérés dans l’entête de boucle du mode debug
-	 */
-	public array $debug = [];
-
-	/**
-	 * Index de la boucle dont le champ présent dans cette boucle est originaire,
-	 * notamment si le champ a été trouve dans une boucle parente
-	 *
-	 * Tableau nom du champ => index de boucle
-	*/
-	public array $index_champ = [];
-
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
-
-	// obsoletes, conserves provisoirement pour compatibilite
-	public $tout = false;
-	public $plat = false;
-	public $lien = false;
+    /** Type de noeud */
+    public string $type = 'boucle';
+
+    /** Identifiant de la boucle */
+    public string $id_boucle;
+
+    /** Identifiant de la boucle parente */
+    public string $id_parent = '';
+
+    /** Un nom explicite qui peut être affecté manuellement à certaines boucles générées */
+    public string $nom = '';
+
+    /**
+     * Partie avant toujours affichee
+     *
+     * @var string|array
+     */
+    public $preaff = '';
+
+    /**
+     * Partie optionnelle avant
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Pour chaque élément
+     *
+     * @var string|array
+     */
+    public $milieu = '';
+
+    /**
+     * Partie optionnelle après
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /**
+     * Partie alternative, si pas de résultat dans la boucle
+     *
+     * @var string|array
+     */
+    public $altern = '';
+
+    /**
+     * Partie apres toujours affichee
+     *
+     * @var string|array
+     */
+    public $postaff = '';
+
+
+    /**
+     * La boucle doit-elle sélectionner la langue ?
+     *
+     * Valeurs : '', 'oui', 'non'
+     */
+    public string $lang_select = '';
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     *
+     * FIXME: un seul typage (string ?)
+     *
+     * @var string|false|null
+     */
+    public $type_requete = null;
+
+    /**
+     * La table est elle optionnelle ?
+     *
+     * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
+     */
+    public bool $table_optionnelle = false;
+
+    /**
+     * Nom du fichier de connexion
+     */
+    public string $sql_serveur = '';
+
+    /**
+     * Paramètres de la boucle
+     *
+     * Description des paramètres passés à la boucle, qui servent ensuite
+     * au calcul des critères
+     */
+    public array $param = [];
+
+    /**
+     * Critères de la boucle
+     *
+     * FIXME: type array unique.
+     *
+     * @var string|Critere[]
+     * - string: phrasage (code brut). Il reste si erreur de critère
+     * - array: analyse correcte des critères...
+     */
+    public $criteres = [];
+
+    /**
+     * Textes insérés entre 2 éléments de boucle (critère inter)
+     *
+     * @var string[]
+     */
+    public array $separateur = [];
+
+    /**
+     * Liste des jointures possibles avec cette table
+     *
+     * Les jointures par défaut de la table sont complétées en priorité
+     * des jointures déclarées explicitement sur la boucle
+     *
+     * @see base_trouver_table_dist()
+     */
+    public array $jointures = [];
+
+    /**
+     * Jointures explicites avec cette table
+     *
+     * Ces jointures sont utilisées en priorité par rapport aux jointures
+     * normales possibles pour retrouver les colonnes demandées extérieures
+     * à la boucle.
+     *
+     * @var string|bool
+     */
+    public $jointures_explicites = false;
+
+    /**
+     * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
+     */
+    public string $doublons = '';
+
+    /**
+     * Code PHP ajouté au début de chaque itération de boucle.
+     *
+     * Utilisé entre autre par les critères {pagination}, {n-a,b}, {a/b}...
+     */
+    public string $partie = '';
+
+    /**
+     * Nombre de divisions de la boucle, d'éléments à afficher,
+     * ou de soustractions d'éléments à faire
+     *
+     * Dans les critères limitant le nombre d'éléments affichés
+     * {a,b}, {a,n-b}, {a/b}, {pagination b}, b est affecté à total_parties.
+     */
+    public string $total_parties = '';
+
+    /**
+     * Code PHP ajouté avant l'itération de boucle.
+     *
+     * Utilisé entre autre par les critères {pagination}, {a,b}, {a/b}
+     * pour initialiser les variables de début et de fin d'itération.
+     */
+    public string $mode_partie = '';
+
+    /**
+     * Identifiant d'une boucle qui appelle celle-ci de manière récursive
+     *
+     * Si une boucle est appelée de manière récursive quelque part par
+     * une autre boucle comme <BOUCLE_rec(boucle_identifiant) />, cette
+     * boucle (identifiant) reçoit dans cette propriété l'identifiant
+     * de l'appelant (rec)
+     */
+    public string $externe = '';
+
+    // champs pour la construction de la requete SQL
+
+    /**
+     * Liste des champs à récupérer par la boucle
+     *
+     * Expression 'table.nom_champ' ou calculée 'nom_champ AS x'
+     *
+     * @var string[]
+     */
+    public array $select = [];
+
+    /**
+     * Liste des alias / tables SQL utilisées dans la boucle
+     *
+     * L'index est un identifiant (xx dans spip_xx assez souvent) qui servira
+     * d'alias au nom de la table ; la valeur est le nom de la table SQL désirée.
+     *
+     * L'index 0 peut définir le type de sources de données de l'itérateur DATA
+     *
+     * @var string[]
+     */
+    public array $from = [];
+
+    /**
+     * Liste des alias / type de jointures utilisées dans la boucle
+     *
+     * L'index est le nom d'alias (comme pour la propriété $from), et la valeur
+     * un type de jointure parmi 'INNER', 'LEFT', 'RIGHT', 'OUTER'.
+     *
+     * Lorsque le type n'est pas déclaré pour un alias, c'est 'INNER'
+     * qui sera utilisé par défaut (créant donc un INNER JOIN).
+     *
+     * @var string[]
+     */
+    public array $from_type = [];
+
+    /**
+     * Liste des conditions WHERE de la boucle
+     *
+     * Permet de restreindre les éléments retournés par une boucle
+     * en fonctions des conditions transmises dans ce tableau.
+     *
+     * Ce tableau peut avoir plusieurs niveaux de profondeur.
+     *
+     * Les éléments du premier niveau sont reliés par des AND, donc
+     * chaque élément ajouté directement au where par
+     * $boucle->where[] = array(...) ou $boucle->where[] = "'expression'"
+     * est une condition AND en plus.
+     *
+     * Par contre, lorsqu'on indique un tableau, il peut décrire des relations
+     * internes différentes. Soit $expr un tableau d'expressions quelconques de 3 valeurs :
+     * $expr = array(operateur, val1, val2)
+     *
+     * Ces 3 valeurs sont des expressions PHP. L'index 0 désigne l'opérateur
+     * à réaliser tel que :
+     *
+     * - "'='" , "'>='", "'<'", "'IN'", "'REGEXP'", "'LIKE'", ... :
+     *    val1 et val2 sont des champs et valeurs à utiliser dans la comparaison
+     *    suivant cet ordre : "val1 operateur val2".
+     *    Exemple : $boucle->where[] = array("'='", "'articles.statut'", "'\"publie\"'");
+     * - "'AND'", "'OR'", "'NOT'" :
+     *    dans ce cas val1 et val2 sont également des expressions
+     *    de comparaison complètes, et peuvent être eux-même des tableaux comme $expr
+     *    Exemples :
+     *    $boucle->where[] = array("'OR'", $expr1, $expr2);
+     *    $boucle->where[] = array("'NOT'", $expr); // val2 n'existe pas avec NOT
+     *
+     * D'autres noms sont possibles pour l'opérateur (le nombre de valeurs diffère) :
+     * - "'SELF'", "'SUBSELECT'" : indiquent des sous requêtes
+     * - "'?'" : indique une condition à faire évaluer (val1 ? val2 : val3)
+     */
+    public array $where = [];
+
+    public array $join = [];
+    public array $having = [];
+    public $limit = '';
+    public array $group = [];
+    public array $order = [];
+    public array $default_order = [];
+    public string $date = 'date';
+    public string $hash = '';
+    public $in = '';
+    public bool $sous_requete = false;
+
+    /**
+     * Code PHP qui sera ajouté en tout début de la fonction de boucle
+     *
+     * Il sert à insérer le code calculant une hierarchie
+     */
+    public string $hierarchie = '';
+
+    // champs pour la construction du corps PHP
+
+    /**
+     * Description des sources de données de la boucle
+     *
+     * Description des données de la boucle issu de trouver_table
+     * dans le cadre de l'itérateur SQL et contenant au moins l'index 'field'.
+     *
+     * @see base_trouver_table_dist()
+     */
+    public array $show = [];
+
+    /**
+     * Nom de la table SQL principale de la boucle, sans son préfixe
+     */
+    public string $id_table = '';
+
+    /**
+     * Nom de la clé primaire de la table SQL principale de la boucle
+     */
+    public string $primary = '';
+
+    /**
+     * Code PHP compilé de la boucle
+     *
+     * FIXME: un seul type (string ?)
+     *
+     * - false: boucle fautive ?
+     *
+     * @var string|false
+     */
+    public $return = '';
+
+    public $numrows = false;
+    public $cptrows = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
+
+
+    /**
+     * table pour stocker les modificateurs de boucle tels que tout, plat ...,
+     * utilisable par les plugins egalement
+     *
+     * @var array<string, mixed>
+     */
+    public array $modificateur = [];
+
+    /**
+     * Type d'itérateur utilisé pour cette boucle
+     *
+     * - 'SQL' dans le cadre d'une boucle sur une table SQL
+     * - 'DATA' pour l'itérateur DATA, ...
+     *
+     * @var string
+     */
+    public string $iterateur = ''; // type d'iterateur
+
+    /**
+     * @var array $debug Textes qui seront insérés dans l’entête de boucle du mode debug
+     */
+    public array $debug = [];
+
+    /**
+     * Index de la boucle dont le champ présent dans cette boucle est originaire,
+     * notamment si le champ a été trouve dans une boucle parente
+     *
+     * Tableau nom du champ => index de boucle
+     */
+    public array $index_champ = [];
+
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
+
+    // obsoletes, conserves provisoirement pour compatibilite
+    public $tout = false;
+    public $plat = false;
+    public $lien = false;
 }
 
 /**
@@ -534,30 +534,30 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Critere {
-	/** Type de noeud */
-	public string $type = 'critere';
+    /** Type de noeud */
+    public string $type = 'critere';
 
-	/** Opérateur (>, <, >=, IN, ...) */
-	public ?string $op;
+    /** Opérateur (>, <, >=, IN, ...) */
+    public ?string $op;
 
-	/** Présence d'une négation (truc !op valeur) */
-	public bool $not = false;
+    /** Présence d'une négation (truc !op valeur) */
+    public bool $not = false;
 
-	/** Présence d'une exclusion (!truc op valeur) */
-	public string $exclus = '';
+    /** Présence d'une exclusion (!truc op valeur) */
+    public string $exclus = '';
 
-	/** Présence d'une condition dans le critère (truc ?) */
-	public bool $cond = false;
+    /** Présence d'une condition dans le critère (truc ?) */
+    public bool $cond = false;
 
-	/**
-	 * Paramètres du critère
-	 * - $param[0] : élément avant l'opérateur
-	 * - $param[1..n] : éléments après l'opérateur
-	 */
-	public array $param = [];
+    /**
+     * Paramètres du critère
+     * - $param[0] : élément avant l'opérateur
+     * - $param[1..n] : éléments après l'opérateur
+     */
+    public array $param = [];
 
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }
 
 /**
@@ -566,100 +566,100 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Champ {
-	/** Type de noeud */
-	public string $type = 'champ';
-
-	/** Nom du champ demandé. Exemple 'ID_ARTICLE' */
-	public ?string $nom_champ;
-
-	/** Identifiant de la boucle parente si explicité */
-	public ?string $nom_boucle = '';
-
-	/**
-	 * Partie optionnelle avant
-	 *
-	 * @var null|string|array
-	 */
-	public $avant;
-
-	/**
-	 * Partie optionnelle après
-	 *
-	 * @var null|string|array
-	 */
-	public $apres;
-
-	/**
-	 * Étoiles : annuler des automatismes
-	 *
-	 * - '*' annule les filtres automatiques
-	 * - '**' annule en plus les protections de scripts
-	 */
-	public ?string $etoile;
-
-	/**
-	 * Arguments et filtres explicites sur la balise
-	 *
-	 * - $param[0] contient les arguments de la balise
-	 * - $param[1..n] contient les filtres à appliquer à la balise
-	 */
-	public array $param = [];
-
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
-
-	/**
-	 * Identifiant de la boucle
-	 *
-	 * @var string
-	 */
-	public $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 *
-	 * @var Boucle[]
-	 */
-	public array $boucles;
-
-	/** Alias de table d'application de la requête ou nom complet de la table SQL */
-	public ?string $type_requete;
-
-	/** Résultat de la compilation: toujours une expression PHP */
-	public string $code = '';
-
-	/**
-	 * Interdire les scripts
-	 *
-	 * false si on est sûr de cette balise
-	 *
-	 * @see interdire_scripts()
-	 */
-	public bool $interdire_scripts = true;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
-
-	/** Numéro de ligne dans le code source du squelette*/
-	public int $ligne = 0;
-
-	/** Drapeau pour reperer les balises calculées par une fonction explicite */
-	public bool $balise_calculee = false;
+    /** Type de noeud */
+    public string $type = 'champ';
+
+    /** Nom du champ demandé. Exemple 'ID_ARTICLE' */
+    public ?string $nom_champ;
+
+    /** Identifiant de la boucle parente si explicité */
+    public ?string $nom_boucle = '';
+
+    /**
+     * Partie optionnelle avant
+     *
+     * @var null|string|array
+     */
+    public $avant;
+
+    /**
+     * Partie optionnelle après
+     *
+     * @var null|string|array
+     */
+    public $apres;
+
+    /**
+     * Étoiles : annuler des automatismes
+     *
+     * - '*' annule les filtres automatiques
+     * - '**' annule en plus les protections de scripts
+     */
+    public ?string $etoile;
+
+    /**
+     * Arguments et filtres explicites sur la balise
+     *
+     * - $param[0] contient les arguments de la balise
+     * - $param[1..n] contient les filtres à appliquer à la balise
+     */
+    public array $param = [];
+
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
+
+    /**
+     * Identifiant de la boucle
+     *
+     * @var string
+     */
+    public $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     *
+     * @var Boucle[]
+     */
+    public array $boucles;
+
+    /** Alias de table d'application de la requête ou nom complet de la table SQL */
+    public ?string $type_requete;
+
+    /** Résultat de la compilation: toujours une expression PHP */
+    public string $code = '';
+
+    /**
+     * Interdire les scripts
+     *
+     * false si on est sûr de cette balise
+     *
+     * @see interdire_scripts()
+     */
+    public bool $interdire_scripts = true;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
+
+    /** Numéro de ligne dans le code source du squelette*/
+    public int $ligne = 0;
+
+    /** Drapeau pour reperer les balises calculées par une fonction explicite */
+    public bool $balise_calculee = false;
 }
 
 
@@ -667,80 +667,80 @@ 
  * Description d'une chaîne de langue
  **/
 class Idiome {
-	/** Type de noeud */
-	public string $type = 'idiome';
-
-	/** Clé de traduction demandée. Exemple 'item_oui' */
-	public string $nom_champ = '';
-
-	/** Module de langue où chercher la clé de traduction. Exemple 'medias' */
-	public string $module = '';
-
-	/** Arguments à passer à la chaîne */
-	public array $arg = [];
-
-	/** Filtres à appliquer au résultat */
-	public array $param = [];
-
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/** Identifiant de la boucle */
-	public string $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 *
-	 * @var Boucle[]
-	 */
-	public array $boucles;
-
-	/** Alias de table d'application de la requête ou nom complet de la table SQL */
-	public ?string $type_requete;
-
-	/** Résultat de la compilation: toujours une expression PHP */
-	public string $code = '';
-
-	/**
-	 * Interdire les scripts
-	 *
-	 * @see interdire_scripts()
-	 */
-	public bool $interdire_scripts = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Type de noeud */
+    public string $type = 'idiome';
+
+    /** Clé de traduction demandée. Exemple 'item_oui' */
+    public string $nom_champ = '';
+
+    /** Module de langue où chercher la clé de traduction. Exemple 'medias' */
+    public string $module = '';
+
+    /** Arguments à passer à la chaîne */
+    public array $arg = [];
+
+    /** Filtres à appliquer au résultat */
+    public array $param = [];
+
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /** Identifiant de la boucle */
+    public string $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     *
+     * @var Boucle[]
+     */
+    public array $boucles;
+
+    /** Alias de table d'application de la requête ou nom complet de la table SQL */
+    public ?string $type_requete;
+
+    /** Résultat de la compilation: toujours une expression PHP */
+    public string $code = '';
+
+    /**
+     * Interdire les scripts
+     *
+     * @see interdire_scripts()
+     */
+    public bool $interdire_scripts = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }
 
 /**
@@ -749,18 +749,18 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Polyglotte {
-	/** Type de noeud */
-	public string $type = 'polyglotte';
-
-	/**
-	 * Tableau des traductions possibles classées par langue
-	 *
-	 * Tableau code de langue => texte
-	 */
-	public array $traductions = [];
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Type de noeud */
+    public string $type = 'polyglotte';
+
+    /**
+     * Tableau des traductions possibles classées par langue
+     *
+     * Tableau code de langue => texte
+     */
+    public array $traductions = [];
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }
 
 
@@ -783,90 +783,90 @@ 
  */
 function declarer_interfaces() {
 
-	$GLOBALS['table_des_tables']['articles'] = 'articles';
-	$GLOBALS['table_des_tables']['auteurs'] = 'auteurs';
-	$GLOBALS['table_des_tables']['rubriques'] = 'rubriques';
-	$GLOBALS['table_des_tables']['hierarchie'] = 'rubriques';
-
-	// definition des statuts de publication
-	$GLOBALS['table_statut'] = [];
-
-	//
-	// tableau des tables de jointures
-	// Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
-	$GLOBALS['tables_jointures'] = [];
-	$GLOBALS['tables_jointures']['spip_jobs'][] = 'jobs_liens';
-
-	// $GLOBALS['exceptions_des_jointures']['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
-	$GLOBALS['exceptions_des_jointures']['profondeur'] = ['spip_rubriques', 'profondeur'];
-
-
-	if (!defined('_TRAITEMENT_TYPO')) {
-		define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
-	}
-	if (!defined('_TRAITEMENT_RACCOURCIS')) {
-		define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
-	}
-	if (!defined('_TRAITEMENT_TYPO_SANS_NUMERO')) {
-		define('_TRAITEMENT_TYPO_SANS_NUMERO', 'supprimer_numero(typo(%s, "TYPO", $connect, $Pile[0]))');
-	}
-	$GLOBALS['table_des_traitements']['BIO'][] = 'safehtml(' . _TRAITEMENT_RACCOURCIS . ')';
-	$GLOBALS['table_des_traitements']['NOM_SITE']['spip_auteurs'] = 'entites_html(%s)';
-	$GLOBALS['table_des_traitements']['NOM']['spip_auteurs'] = 'safehtml(' . _TRAITEMENT_TYPO_SANS_NUMERO . ')';
-	$GLOBALS['table_des_traitements']['CHAPO'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['DATE'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DATE_REDAC'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DATE_MODIF'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DATE_NOUVEAUTES'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DESCRIPTIF'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['INTRODUCTION'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['NOM_SITE_SPIP'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['NOM'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
-	$GLOBALS['table_des_traitements']['AUTEUR'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['PS'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['SOURCE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['SOUSTITRE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['SURTITRE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['TAGS'][] = '%s';
-	$GLOBALS['table_des_traitements']['TEXTE'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['TITRE'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
-	$GLOBALS['table_des_traitements']['TYPE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['DESCRIPTIF_SITE_SPIP'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['SLOGAN_SITE_SPIP'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['ENV'][] = 'entites_html(%s,true)';
-
-	// valeur par defaut pour les balises non listees ci-dessus
-	$GLOBALS['table_des_traitements']['*'][] = false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
-	// toujours securiser les DATA
-	$GLOBALS['table_des_traitements']['*']['DATA'] = 'safehtml(%s)';
-	// expliciter pour VALEUR qui est un champ calcule et ne sera pas protege par le catch-all *
-	$GLOBALS['table_des_traitements']['VALEUR']['DATA'] = 'safehtml(%s)';
-
-
-	// gerer l'affectation en 2 temps car si le pipe n'est pas encore declare, on ecrase les globales
-	$interfaces = pipeline(
-		'declarer_tables_interfaces',
-		[
-			'table_des_tables' => $GLOBALS['table_des_tables'],
-			'exceptions_des_tables' => $GLOBALS['exceptions_des_tables'],
-			'table_date' => $GLOBALS['table_date'],
-			'table_titre' => $GLOBALS['table_titre'],
-			'tables_jointures' => $GLOBALS['tables_jointures'],
-			'exceptions_des_jointures' => $GLOBALS['exceptions_des_jointures'],
-			'table_des_traitements' => $GLOBALS['table_des_traitements'],
-			'table_statut' => $GLOBALS['table_statut'],
-		]
-	);
-	if ($interfaces) {
-		$GLOBALS['table_des_tables'] = $interfaces['table_des_tables'];
-		$GLOBALS['exceptions_des_tables'] = $interfaces['exceptions_des_tables'];
-		$GLOBALS['table_date'] = $interfaces['table_date'];
-		$GLOBALS['table_titre'] = $interfaces['table_titre'];
-		$GLOBALS['tables_jointures'] = $interfaces['tables_jointures'];
-		$GLOBALS['exceptions_des_jointures'] = $interfaces['exceptions_des_jointures'];
-		$GLOBALS['table_des_traitements'] = $interfaces['table_des_traitements'];
-		$GLOBALS['table_statut'] = $interfaces['table_statut'];
-	}
+    $GLOBALS['table_des_tables']['articles'] = 'articles';
+    $GLOBALS['table_des_tables']['auteurs'] = 'auteurs';
+    $GLOBALS['table_des_tables']['rubriques'] = 'rubriques';
+    $GLOBALS['table_des_tables']['hierarchie'] = 'rubriques';
+
+    // definition des statuts de publication
+    $GLOBALS['table_statut'] = [];
+
+    //
+    // tableau des tables de jointures
+    // Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
+    $GLOBALS['tables_jointures'] = [];
+    $GLOBALS['tables_jointures']['spip_jobs'][] = 'jobs_liens';
+
+    // $GLOBALS['exceptions_des_jointures']['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
+    $GLOBALS['exceptions_des_jointures']['profondeur'] = ['spip_rubriques', 'profondeur'];
+
+
+    if (!defined('_TRAITEMENT_TYPO')) {
+        define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
+    }
+    if (!defined('_TRAITEMENT_RACCOURCIS')) {
+        define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
+    }
+    if (!defined('_TRAITEMENT_TYPO_SANS_NUMERO')) {
+        define('_TRAITEMENT_TYPO_SANS_NUMERO', 'supprimer_numero(typo(%s, "TYPO", $connect, $Pile[0]))');
+    }
+    $GLOBALS['table_des_traitements']['BIO'][] = 'safehtml(' . _TRAITEMENT_RACCOURCIS . ')';
+    $GLOBALS['table_des_traitements']['NOM_SITE']['spip_auteurs'] = 'entites_html(%s)';
+    $GLOBALS['table_des_traitements']['NOM']['spip_auteurs'] = 'safehtml(' . _TRAITEMENT_TYPO_SANS_NUMERO . ')';
+    $GLOBALS['table_des_traitements']['CHAPO'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['DATE'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DATE_REDAC'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DATE_MODIF'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DATE_NOUVEAUTES'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DESCRIPTIF'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['INTRODUCTION'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['NOM_SITE_SPIP'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['NOM'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
+    $GLOBALS['table_des_traitements']['AUTEUR'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['PS'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['SOURCE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['SOUSTITRE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['SURTITRE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['TAGS'][] = '%s';
+    $GLOBALS['table_des_traitements']['TEXTE'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['TITRE'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
+    $GLOBALS['table_des_traitements']['TYPE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['DESCRIPTIF_SITE_SPIP'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['SLOGAN_SITE_SPIP'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['ENV'][] = 'entites_html(%s,true)';
+
+    // valeur par defaut pour les balises non listees ci-dessus
+    $GLOBALS['table_des_traitements']['*'][] = false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
+    // toujours securiser les DATA
+    $GLOBALS['table_des_traitements']['*']['DATA'] = 'safehtml(%s)';
+    // expliciter pour VALEUR qui est un champ calcule et ne sera pas protege par le catch-all *
+    $GLOBALS['table_des_traitements']['VALEUR']['DATA'] = 'safehtml(%s)';
+
+
+    // gerer l'affectation en 2 temps car si le pipe n'est pas encore declare, on ecrase les globales
+    $interfaces = pipeline(
+        'declarer_tables_interfaces',
+        [
+            'table_des_tables' => $GLOBALS['table_des_tables'],
+            'exceptions_des_tables' => $GLOBALS['exceptions_des_tables'],
+            'table_date' => $GLOBALS['table_date'],
+            'table_titre' => $GLOBALS['table_titre'],
+            'tables_jointures' => $GLOBALS['tables_jointures'],
+            'exceptions_des_jointures' => $GLOBALS['exceptions_des_jointures'],
+            'table_des_traitements' => $GLOBALS['table_des_traitements'],
+            'table_statut' => $GLOBALS['table_statut'],
+        ]
+    );
+    if ($interfaces) {
+        $GLOBALS['table_des_tables'] = $interfaces['table_des_tables'];
+        $GLOBALS['exceptions_des_tables'] = $interfaces['exceptions_des_tables'];
+        $GLOBALS['table_date'] = $interfaces['table_date'];
+        $GLOBALS['table_titre'] = $interfaces['table_titre'];
+        $GLOBALS['tables_jointures'] = $interfaces['tables_jointures'];
+        $GLOBALS['exceptions_des_jointures'] = $interfaces['exceptions_des_jointures'];
+        $GLOBALS['table_des_traitements'] = $interfaces['table_des_traitements'];
+        $GLOBALS['table_statut'] = $interfaces['table_statut'];
+    }
 }
 
 declarer_interfaces();

ecrire/public/compiler.php

Indentation +1209 added lines, -1209 removed lines

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

ecrire/public/criteres.php

Indentation +1716 added lines, -1716 removed lines

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