spip / SPIP

ecrire/action/api_transmettre.php

Indentation +80 added lines, -80 removed lines

@@ -17,92 +17,92 @@
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 function action_api_transmettre_dist($arg = null) {
 
-	// Obtenir l'argument 'id_auteur/cle/format/fond'
-	if (is_null($arg)) {
-		$arg = _request('arg');
-	}
-
-	$args = explode('/', $arg);
-
-	if (count($args) !== 4) {
-		action_api_transmettre_fail($arg);
-	}
-
-	[$id_auteur, $cle, $format, $fond] = $args;
-	$id_auteur = intval($id_auteur);
-
-	if (preg_match(',[^\w\\.-],', $format)) {
-		action_api_transmettre_fail("format $format ??");
-	}
-	if (preg_match(',[^\w\\.-],', $fond)) {
-		action_api_transmettre_fail("fond $fond ??");
-	}
-
-	// verifier la cle
-	//[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
-	//[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
-
-	$qs = $_SERVER['QUERY_STRING'];
-	// retirer action et arg de la qs
-	$contexte = [];
-	parse_str($qs, $contexte);
-	foreach ($contexte as $k => $v) {
-		if (in_array($k, ['action', 'arg', 'var_mode'])) {
-			unset($contexte[$k]);
-		}
-	}
-	$qs = http_build_query($contexte);
-	include_spip('inc/acces');
-	if (!securiser_acces_low_sec(intval($id_auteur), $cle, "transmettre/$format", $fond, $qs)) {
-		// si le autoriser low_sec n'est pas bon, on peut valider l'appel si l'auteur est identifie
-		include_spip('inc/autoriser');
-		$autoriser_type = preg_replace(',\W+,', '', "_{$format}{$fond}");
-		if (
-			!$id_auteur
-			or empty($GLOBALS['visiteur_session']['id_auteur'])
-			or $GLOBALS['visiteur_session']['id_auteur'] != $id_auteur
-			or !autoriser('transmettre', $autoriser_type, $id_auteur)
-		) {
-			action_api_transmettre_fail("auth QS $qs ??");
-		}
-	}
-
-	$contexte['id_auteur'] = $id_auteur;
-
-	$fond = "transmettre/$format/$fond";
-
-	if (!trouver_fond($fond)) {
-		$fond = "prive/$fond";
-	}
-
-	if (!trouver_fond($fond)) {
-		action_api_transmettre_fail("fond $fond ??");
-	}
-
-	$res = recuperer_fond($fond, $contexte, ['raw' => true]);
-	if (!empty($res['entetes'])) {
-		foreach ($res['entetes'] as $h => $v) {
-			header("$h: $v");
-		}
-	}
-
-	$res = ltrim($res['texte']);
-	if (empty($res)) {
-		spip_log("$arg $qs resultat vide", 'transmettre' . _LOG_INFO_IMPORTANTE);
-	}
-
-	echo $res;
-	exit();
+    // Obtenir l'argument 'id_auteur/cle/format/fond'
+    if (is_null($arg)) {
+        $arg = _request('arg');
+    }
+
+    $args = explode('/', $arg);
+
+    if (count($args) !== 4) {
+        action_api_transmettre_fail($arg);
+    }
+
+    [$id_auteur, $cle, $format, $fond] = $args;
+    $id_auteur = intval($id_auteur);
+
+    if (preg_match(',[^\w\\.-],', $format)) {
+        action_api_transmettre_fail("format $format ??");
+    }
+    if (preg_match(',[^\w\\.-],', $fond)) {
+        action_api_transmettre_fail("fond $fond ??");
+    }
+
+    // verifier la cle
+    //[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
+    //[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
+
+    $qs = $_SERVER['QUERY_STRING'];
+    // retirer action et arg de la qs
+    $contexte = [];
+    parse_str($qs, $contexte);
+    foreach ($contexte as $k => $v) {
+        if (in_array($k, ['action', 'arg', 'var_mode'])) {
+            unset($contexte[$k]);
+        }
+    }
+    $qs = http_build_query($contexte);
+    include_spip('inc/acces');
+    if (!securiser_acces_low_sec(intval($id_auteur), $cle, "transmettre/$format", $fond, $qs)) {
+        // si le autoriser low_sec n'est pas bon, on peut valider l'appel si l'auteur est identifie
+        include_spip('inc/autoriser');
+        $autoriser_type = preg_replace(',\W+,', '', "_{$format}{$fond}");
+        if (
+            !$id_auteur
+            or empty($GLOBALS['visiteur_session']['id_auteur'])
+            or $GLOBALS['visiteur_session']['id_auteur'] != $id_auteur
+            or !autoriser('transmettre', $autoriser_type, $id_auteur)
+        ) {
+            action_api_transmettre_fail("auth QS $qs ??");
+        }
+    }
+
+    $contexte['id_auteur'] = $id_auteur;
+
+    $fond = "transmettre/$format/$fond";
+
+    if (!trouver_fond($fond)) {
+        $fond = "prive/$fond";
+    }
+
+    if (!trouver_fond($fond)) {
+        action_api_transmettre_fail("fond $fond ??");
+    }
+
+    $res = recuperer_fond($fond, $contexte, ['raw' => true]);
+    if (!empty($res['entetes'])) {
+        foreach ($res['entetes'] as $h => $v) {
+            header("$h: $v");
+        }
+    }
+
+    $res = ltrim($res['texte']);
+    if (empty($res)) {
+        spip_log("$arg $qs resultat vide", 'transmettre' . _LOG_INFO_IMPORTANTE);
+    }
+
+    echo $res;
+    exit();
 }
 
 function action_api_transmettre_fail($arg) {
-	include_spip('inc/minipres');
-	echo minipres(_T('info_acces_interdit'), $arg);
-	exit;
+    include_spip('inc/minipres');
+    echo minipres(_T('info_acces_interdit'), $arg);
+    exit;
 }

ecrire/src/Texte/Collecteur/AbstractCollecteur.php

Indentation +149 added lines, -149 removed lines

@@ -14,154 +14,154 @@
 
 abstract class AbstractCollecteur {
 
-	protected static string $markPrefix = 'COLLECT';
-	protected string $markId;
-
-	/**
-	 * Collecteur générique des occurences d'une preg dans un texte avec leurs positions et longueur
-	 * @param string $texte
-	 *   texte à analyser pour la collecte
-	 * @param string $if_chars
-	 *   caractere(s) à tester avant de tenter la preg
-	 * @param string $start_with
-	 *   caractere(s) par lesquels commencent l'expression recherchée (permet de démarrer la preg à la prochaine occurence de cette chaine)
-	 * @param string $preg
-	 *   preg utilisée pour la collecte
-	 * @param int $max_items
-	 *   pour limiter le nombre de preg collectée (pour la detection simple de présence par exemple)
-	 * @return array
-	 */
-	protected static function collecteur(string $texte, string $if_chars, string $start_with, string $preg, int $max_items = 0): array {
-
-		$collection = [];
-		$pos = 0;
-		while (
-			(!$if_chars || strpos($texte, $if_chars, $pos) !== false)
-			and ($next = ($start_with ? strpos($texte, $start_with, $pos) : $pos)) !== false
-			and preg_match($preg, $texte, $r, PREG_OFFSET_CAPTURE, $next)) {
-
-			$found_pos = $r[0][1];
-			$found_length = strlen($r[0][0]);
-			$match = [
-				'raw' => $r[0][0],
-				'match' => array_column($r, 0),
-				'pos' => $found_pos,
-				'length' => $found_length
-			];
-
-			$collection[] = $match;
-
-			if ($max_items and count($collection) === $max_items) {
-				break;
-			}
-
-			$pos = $match['pos'] + $match['length'];
-		}
-
-		return $collection;
-	}
-
-	/**
-	 * Sanitizer une collection d'occurences
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-		foreach ($collection as &$c) {
-			$c['raw'] = $sanitize_callback($c['raw']);
-		}
-
-		return $collection;
-	}
-
-	/**
-	 * @param string $texte
-	 * @param array $options
-	 * @return array
-	 */
-	public function collecter(string $texte, array $options = []): array {
-		$collection = [];
-		return $collection;
-	}
-
-	public function detecter($texte): bool {
-		if (!empty($this->markId) and strpos($texte, $this->markId) !== false) {
-			return true;
-		}
-		return !empty($this->collecter($texte, ['detecter_presence' => true]));
-	}
-
-	/**
-	 * Echapper les occurences de la collecte par un texte neutre du point de vue HTML
-	 *
-	 * @see retablir()
-	 * @param string $texte
-	 * @param array $options
-	 *   string $sanitize_callback
-	 * @return array
-	 *   texte, marqueur utilise pour echapper les modeles
-	 */
-	public function echapper(string $texte, array $options = []): string {
-		if (!function_exists('creer_uniqid')) {
-			include_spip('inc/acces');
-		}
-
-		$collection = $this->collecter($texte, $options);
-		if (!empty($options['sanitize_callback']) and is_callable($options['sanitize_callback'])) {
-			$collection = $this->sanitizer_collection($collection, $options['sanitize_callback']);
-		}
-
-		if (!empty($collection)) {
-			if (empty($this->markId)) {
-				// generer un marqueur qui n'existe pas dans le texte
-				do {
-					$this->markId = substr(md5(uniqid(static::class, 1)), 0, 7);
-					$this->markId = "@|".static::$markPrefix . $this->markId . "|";
-				} while (strpos($texte, $this->markId) !== false);
-			}
-
-			$offset_pos = 0;
-			foreach ($collection as $c) {
-				$rempl = $this->markId . base64_encode($c['raw']) . '|@';
-				$texte = substr_replace($texte, $rempl, $c['pos'] + $offset_pos, $c['length']);
-				$offset_pos += strlen($rempl) - $c['length'];
-			}
-		}
-
-		return $texte;
-	}
-
-
-	/**
-	 * Retablir les occurences échappées précédemment
-	 *
-	 * @see echapper()
-	 * @param string $texte
-	 * @return string
-	 */
-	function retablir(string $texte): string {
-
-		if (!empty($this->markId)) {
-			$lm = strlen($this->markId);
-			$pos = 0;
-			while (
-				($p = strpos($texte, $this->markId, $pos)) !== false
-				and $end = strpos($texte, '|@', $p + $lm)
-			) {
-				$base64 = substr($texte, $p + $lm, $end - ($p + $lm));
-				if ($c = base64_decode($base64, true)) {
-					$texte = substr_replace($texte, $c, $p, $end + 2 - $p);
-					$pos = $p + strlen($c);
-				}
-				else {
-					$pos = $end;
-				}
-			}
-		}
-
-		return $texte;
-	}
+    protected static string $markPrefix = 'COLLECT';
+    protected string $markId;
+
+    /**
+     * Collecteur générique des occurences d'une preg dans un texte avec leurs positions et longueur
+     * @param string $texte
+     *   texte à analyser pour la collecte
+     * @param string $if_chars
+     *   caractere(s) à tester avant de tenter la preg
+     * @param string $start_with
+     *   caractere(s) par lesquels commencent l'expression recherchée (permet de démarrer la preg à la prochaine occurence de cette chaine)
+     * @param string $preg
+     *   preg utilisée pour la collecte
+     * @param int $max_items
+     *   pour limiter le nombre de preg collectée (pour la detection simple de présence par exemple)
+     * @return array
+     */
+    protected static function collecteur(string $texte, string $if_chars, string $start_with, string $preg, int $max_items = 0): array {
+
+        $collection = [];
+        $pos = 0;
+        while (
+            (!$if_chars || strpos($texte, $if_chars, $pos) !== false)
+            and ($next = ($start_with ? strpos($texte, $start_with, $pos) : $pos)) !== false
+            and preg_match($preg, $texte, $r, PREG_OFFSET_CAPTURE, $next)) {
+
+            $found_pos = $r[0][1];
+            $found_length = strlen($r[0][0]);
+            $match = [
+                'raw' => $r[0][0],
+                'match' => array_column($r, 0),
+                'pos' => $found_pos,
+                'length' => $found_length
+            ];
+
+            $collection[] = $match;
+
+            if ($max_items and count($collection) === $max_items) {
+                break;
+            }
+
+            $pos = $match['pos'] + $match['length'];
+        }
+
+        return $collection;
+    }
+
+    /**
+     * Sanitizer une collection d'occurences
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+        foreach ($collection as &$c) {
+            $c['raw'] = $sanitize_callback($c['raw']);
+        }
+
+        return $collection;
+    }
+
+    /**
+     * @param string $texte
+     * @param array $options
+     * @return array
+     */
+    public function collecter(string $texte, array $options = []): array {
+        $collection = [];
+        return $collection;
+    }
+
+    public function detecter($texte): bool {
+        if (!empty($this->markId) and strpos($texte, $this->markId) !== false) {
+            return true;
+        }
+        return !empty($this->collecter($texte, ['detecter_presence' => true]));
+    }
+
+    /**
+     * Echapper les occurences de la collecte par un texte neutre du point de vue HTML
+     *
+     * @see retablir()
+     * @param string $texte
+     * @param array $options
+     *   string $sanitize_callback
+     * @return array
+     *   texte, marqueur utilise pour echapper les modeles
+     */
+    public function echapper(string $texte, array $options = []): string {
+        if (!function_exists('creer_uniqid')) {
+            include_spip('inc/acces');
+        }
+
+        $collection = $this->collecter($texte, $options);
+        if (!empty($options['sanitize_callback']) and is_callable($options['sanitize_callback'])) {
+            $collection = $this->sanitizer_collection($collection, $options['sanitize_callback']);
+        }
+
+        if (!empty($collection)) {
+            if (empty($this->markId)) {
+                // generer un marqueur qui n'existe pas dans le texte
+                do {
+                    $this->markId = substr(md5(uniqid(static::class, 1)), 0, 7);
+                    $this->markId = "@|".static::$markPrefix . $this->markId . "|";
+                } while (strpos($texte, $this->markId) !== false);
+            }
+
+            $offset_pos = 0;
+            foreach ($collection as $c) {
+                $rempl = $this->markId . base64_encode($c['raw']) . '|@';
+                $texte = substr_replace($texte, $rempl, $c['pos'] + $offset_pos, $c['length']);
+                $offset_pos += strlen($rempl) - $c['length'];
+            }
+        }
+
+        return $texte;
+    }
+
+
+    /**
+     * Retablir les occurences échappées précédemment
+     *
+     * @see echapper()
+     * @param string $texte
+     * @return string
+     */
+    function retablir(string $texte): string {
+
+        if (!empty($this->markId)) {
+            $lm = strlen($this->markId);
+            $pos = 0;
+            while (
+                ($p = strpos($texte, $this->markId, $pos)) !== false
+                and $end = strpos($texte, '|@', $p + $lm)
+            ) {
+                $base64 = substr($texte, $p + $lm, $end - ($p + $lm));
+                if ($c = base64_decode($base64, true)) {
+                    $texte = substr_replace($texte, $c, $p, $end + 2 - $p);
+                    $pos = $p + strlen($c);
+                }
+                else {
+                    $pos = $end;
+                }
+            }
+        }
+
+        return $texte;
+    }
 
 }

ecrire/src/Texte/Collecteur/Idiomes.php

Indentation +110 added lines, -110 removed lines

@@ -23,115 +23,115 @@
  */
 class Idiomes extends AbstractCollecteur {
 
-	protected static string $markPrefix = 'IDIOME';
-
-	/**
-	 * La preg pour découper et collecter les modèles
-	 * @var string
-	 */
-	protected string $preg_idiome;
-
-	public function __construct(?string $preg = null) {
-
-		$this->preg_idiome = ($preg ?: '@<:(?:([a-z0-9_]+):)?([a-z0-9_]+):>@isS');
-	}
-
-	/**
-	 * Sanitizer une collection d'occurences d'idiomes : on ne fait rien
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-
-		return $collection;
-	}
-
-
-	/**
-	 * @param string $texte
-	 * @param array $options
-	 *   bool $collecter_liens
-	 * @return array
-	 */
-	public function collecter(string $texte, array $options = []): array {
-		if (!$texte) {
-			return [];
-		}
-
-		// collecter les matchs de la preg
-		$idiomes = $this->collecteur($texte, '', '<:', $this->preg_idiome, empty($options['detecter_presence']) ? 0 : 1);
-
-		// si on veut seulement detecter la présence, on peut retourner tel quel
-		if (empty($options['detecter_presence'])) {
-
-			$pos_prev = 0;
-			foreach ($idiomes as $k => &$idiome) {
-
-				$idiome['module'] = $idiome['match'][1];
-				$idiome['chaine'] = $idiome['match'][2];
-			}
-		}
-
-		return $idiomes;
-	}
-
-	/**
-	 * Traiter les idiomes d'un texte
-	 *
-	 * @uses inc_traduire_dist()
-	 * @uses code_echappement()
-	 * @uses echappe_retour()
-	 *
-	 * @param string $texte
-	 * @param array $options
-	 *   ?string $lang
-	 *   ?bool echappe_span
-	 * @return string
-	 */
-	public function traiter(string $texte, array $options) {
-		static $traduire;
-		if ($texte) {
-
-			$idiomes = $this->collecter($texte);
-			if (!empty($idiomes)) {
-				$lang = $options['lang'] ?? $GLOBALS['spip_lang'];
-				$echappe_span = $options['echappe_span'] ?? false;
-
-				if (is_null($traduire)) {
-					$traduire = charger_fonction('traduire', 'inc');
-					include_spip('inc/lang');
-				}
-
-				$offset_pos = 0;
-				foreach ($idiomes as $idiome) {
-
-					$cle = ($idiome['module'] ? $idiome['module'] . ':' : '') . $idiome['chaine'];
-					$desc = $traduire($cle, $lang, true);
-					$l = $desc->langue;
-
-					// si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
-					if (strlen($desc->texte ?? '')) {
-						$trad = code_echappement($desc->texte, 'idiome', false);
-						if ($l !== $lang) {
-							$trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
-						}
-						if (lang_dir($l) !== lang_dir($lang)) {
-							$trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
-						}
-						if (!$echappe_span) {
-							$trad = echappe_retour($trad, 'idiome');
-						}
-						$texte = substr_replace($texte, $trad, $idiome['pos'] + $offset_pos, $idiome['length']);
-						$offset_pos += strlen($trad) - $idiome['length'];
-					}
-
-				}
-			}
-		}
-
-		return $texte;
-	}
+    protected static string $markPrefix = 'IDIOME';
+
+    /**
+     * La preg pour découper et collecter les modèles
+     * @var string
+     */
+    protected string $preg_idiome;
+
+    public function __construct(?string $preg = null) {
+
+        $this->preg_idiome = ($preg ?: '@<:(?:([a-z0-9_]+):)?([a-z0-9_]+):>@isS');
+    }
+
+    /**
+     * Sanitizer une collection d'occurences d'idiomes : on ne fait rien
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+
+        return $collection;
+    }
+
+
+    /**
+     * @param string $texte
+     * @param array $options
+     *   bool $collecter_liens
+     * @return array
+     */
+    public function collecter(string $texte, array $options = []): array {
+        if (!$texte) {
+            return [];
+        }
+
+        // collecter les matchs de la preg
+        $idiomes = $this->collecteur($texte, '', '<:', $this->preg_idiome, empty($options['detecter_presence']) ? 0 : 1);
+
+        // si on veut seulement detecter la présence, on peut retourner tel quel
+        if (empty($options['detecter_presence'])) {
+
+            $pos_prev = 0;
+            foreach ($idiomes as $k => &$idiome) {
+
+                $idiome['module'] = $idiome['match'][1];
+                $idiome['chaine'] = $idiome['match'][2];
+            }
+        }
+
+        return $idiomes;
+    }
+
+    /**
+     * Traiter les idiomes d'un texte
+     *
+     * @uses inc_traduire_dist()
+     * @uses code_echappement()
+     * @uses echappe_retour()
+     *
+     * @param string $texte
+     * @param array $options
+     *   ?string $lang
+     *   ?bool echappe_span
+     * @return string
+     */
+    public function traiter(string $texte, array $options) {
+        static $traduire;
+        if ($texte) {
+
+            $idiomes = $this->collecter($texte);
+            if (!empty($idiomes)) {
+                $lang = $options['lang'] ?? $GLOBALS['spip_lang'];
+                $echappe_span = $options['echappe_span'] ?? false;
+
+                if (is_null($traduire)) {
+                    $traduire = charger_fonction('traduire', 'inc');
+                    include_spip('inc/lang');
+                }
+
+                $offset_pos = 0;
+                foreach ($idiomes as $idiome) {
+
+                    $cle = ($idiome['module'] ? $idiome['module'] . ':' : '') . $idiome['chaine'];
+                    $desc = $traduire($cle, $lang, true);
+                    $l = $desc->langue;
+
+                    // si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
+                    if (strlen($desc->texte ?? '')) {
+                        $trad = code_echappement($desc->texte, 'idiome', false);
+                        if ($l !== $lang) {
+                            $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
+                        }
+                        if (lang_dir($l) !== lang_dir($lang)) {
+                            $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
+                        }
+                        if (!$echappe_span) {
+                            $trad = echappe_retour($trad, 'idiome');
+                        }
+                        $texte = substr_replace($texte, $trad, $idiome['pos'] + $offset_pos, $idiome['length']);
+                        $offset_pos += strlen($trad) - $idiome['length'];
+                    }
+
+                }
+            }
+        }
+
+        return $texte;
+    }
 
 }

ecrire/src/Texte/Collecteur/Modeles.php

Indentation +197 added lines, -197 removed lines

@@ -22,202 +22,202 @@
  */
 class Modeles extends AbstractCollecteur {
 
-	protected static string $markPrefix = 'MODELE';
-
-	/**
-	 * La preg pour découper et collecter les modèles
-	 * @var string
-	 */
-	protected string $preg_modele;
-
-	public function __construct(?string $preg = null) {
-
-		$this->preg_modele = ($preg ?:
-			'@<([a-z_-]{3,})' # <modele
-			. '\s*([0-9]*)\s*' # id
-			. '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
-			. '\s*/?' . '>@isS' # fin du modele >
-		);
-	}
-
-	/**
-	 * Sanitizer une collection d'occurences de modèle : on ne fait rien
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-
-		return $collection;
-	}
-
-	/**
-	 * @param string $texte
-	 * @param array $options
-	 *   bool $collecter_liens
-	 * @return array
-	 */
-	public function collecter(string $texte, array $options = []): array {
-		if (!$texte) {
-			return [];
-		}
-
-		// collecter les matchs de la preg
-		$modeles = $this->collecteur($texte, '', '<', $this->preg_modele);
-
-		$pos_prev = 0;
-		foreach ($modeles as $k => &$modele) {
-			$pos = $modele['pos'];
-			$modele['type'] = $modele['match'][1];
-			$modele['id'] = $modele['match'][2] ?? '';
-			$modele['params'] = $modele['match'][3] ?? '';
-
-			$longueur = $modele['length'];
-			$end = $pos + $longueur;
-
-			// il faut avoir un id ou des params commençant par un | sinon c'est une simple balise html
-			if (empty($modele['id']) and empty($modele['params'])) {
-				unset($modeles[$k]);
-				continue;
-			}
-
-			// si on veut seulement detecter la présence, on peut retourner tel quel
-			if (!empty($options['detecter_presence'])) {
-				break;
-			}
-
-			$modele['lien'] = false;
-			if (!empty($options['collecter_liens'])
-				and $pos_fermeture_lien = stripos($texte, '</a>', $end)
-				and !strlen(trim(substr($texte, $end, $pos_fermeture_lien - $end)))) {
-
-				$pos_lien_ouvrant = stripos($texte, '<a', $pos_prev);
-				if ($pos_lien_ouvrant !== false
-					and $pos_lien_ouvrant < $pos
-					and preg_match('/<a\s[^<>]*>\s*$/i', substr($texte, $pos_prev, $pos - $pos_prev), $r)
-				) {
-					$modele['lien'] = [
-						'href' => extraire_attribut($r[0], 'href'),
-						'class' => extraire_attribut($r[0], 'class'),
-						'mime' => extraire_attribut($r[0], 'type'),
-						'title' => extraire_attribut($r[0], 'title'),
-						'hreflang' => extraire_attribut($r[0], 'hreflang')
-					];
-					$n = strlen($r[0]);
-					$pos -= $n;
-					$longueur = $pos_fermeture_lien - $pos + 4;
-					$end = $pos + $longueur;
-				}
-			}
-
-
-			$modele['pos'] = $pos;
-			$modele['length'] = $longueur;
-			$pos_prev = $end;
-		}
-
-		return $modeles;
-	}
-
-	/**
-	 * Traiter les modeles d'un texte
-	 * @param string $texte
-	 * @param array $options
-	 *   bool|array $doublons
-	 *   string $echap
-	 *   ?Spip\Texte\CollecteurLiens $collecteurLiens
-	 *   ?array $env
-	 *   ?string $connect
-	 * @return string
-	 */
-	public function traiter(string $texte, array $options) {
-		if ($texte) {
-			$doublons = $options['doublons'] ?? false;
-			$echap = $options['echap'] ?? '';
-			$collecteurLiens = $options['collecteurLiens'] ?? null;
-			$env = $options['env'] ?? [];
-			$connect = $options['connect'] ?? '';
-
-			// preserver la compatibilite : true = recherche des documents
-			if ($doublons === true) {
-				$doublons = ['documents' => ['doc', 'emb', 'img']];
-			}
-
-			$modeles = $this->collecter($texte, ['collecter_liens' => true]);
-			if (!empty($modeles)) {
-				include_spip('public/assembler');
-				$wrap_embed_html = charger_fonction('wrap_embed_html', 'inc', true);
-
-				$offset_pos = 0;
-				foreach ($modeles as $m) {
-					// calculer le modele
-					# hack indexation
-					if ($doublons) {
-						$texte .= preg_replace(',[|][^|=]*,s', ' ', $m['params']);
-					} # version normale
-					else {
-						// si un tableau de liens a ete passe, reinjecter le contenu d'origine
-						// dans les parametres, plutot que les liens echappes
-						$params = $m['params'];
-						if (!is_null($collecteurLiens)) {
-							$params = $collecteurLiens->retablir($params);
-						}
-
-						$modele = inclure_modele($m['type'], $m['id'], $params, $m['lien'], $connect ?? '', $env);
-
-						// en cas d'echec,
-						// si l'objet demande a une url,
-						// creer un petit encadre vers elle
-						if ($modele === false) {
-							$modele = $m['raw'];
-
-							if (!is_null($collecteurLiens)) {
-								$modele = $collecteurLiens->retablir($modele);
-							}
-
-							$contexte = array_merge($env, ['id' => $m['id'], 'type' => $m['type'], 'modele' => $modele]);
-
-							if (!empty($m['lien'])) {
-								# un eventuel guillemet (") sera reechappe par #ENV
-								$contexte['lien'] = str_replace('&quot;', '"', $m['lien']['href']);
-								$contexte['lien_class'] = $m['lien']['class'];
-								$contexte['lien_mime'] = $m['lien']['mime'];
-								$contexte['lien_title'] = $m['lien']['title'];
-								$contexte['lien_hreflang'] = $m['lien']['hreflang'];
-							}
-
-							$modele = recuperer_fond('modeles/dist', $contexte, [], $connect ?? '');
-						}
-
-						// le remplacer dans le texte
-						if ($modele !== false) {
-							$modele = protege_js_modeles($modele);
-
-							if ($wrap_embed_html) {
-								$modele = $wrap_embed_html($m['raw'], $modele);
-							}
-
-							$rempl = code_echappement($modele, $echap);
-							$texte = substr_replace($texte, $rempl, $m['pos'] + $offset_pos, $m['length']);
-							$offset_pos += strlen($rempl) - $m['length'];
-						}
-					}
-
-					// hack pour tout l'espace prive
-					if ((test_espace_prive() or ($doublons)) and !empty($m['id'])) {
-						$type = strtolower($m['type']);
-						foreach ($doublons ?: ['documents' => ['doc', 'emb', 'img']] as $quoi => $type_modeles) {
-							if (in_array($type, $type_modeles)) {
-								$GLOBALS["doublons_{$quoi}_inclus"][] = $m['id'];
-							}
-						}
-					}
-				}
-			}
-		}
-
-		return $texte;
-	}
+    protected static string $markPrefix = 'MODELE';
+
+    /**
+     * La preg pour découper et collecter les modèles
+     * @var string
+     */
+    protected string $preg_modele;
+
+    public function __construct(?string $preg = null) {
+
+        $this->preg_modele = ($preg ?:
+            '@<([a-z_-]{3,})' # <modele
+            . '\s*([0-9]*)\s*' # id
+            . '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
+            . '\s*/?' . '>@isS' # fin du modele >
+        );
+    }
+
+    /**
+     * Sanitizer une collection d'occurences de modèle : on ne fait rien
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+
+        return $collection;
+    }
+
+    /**
+     * @param string $texte
+     * @param array $options
+     *   bool $collecter_liens
+     * @return array
+     */
+    public function collecter(string $texte, array $options = []): array {
+        if (!$texte) {
+            return [];
+        }
+
+        // collecter les matchs de la preg
+        $modeles = $this->collecteur($texte, '', '<', $this->preg_modele);
+
+        $pos_prev = 0;
+        foreach ($modeles as $k => &$modele) {
+            $pos = $modele['pos'];
+            $modele['type'] = $modele['match'][1];
+            $modele['id'] = $modele['match'][2] ?? '';
+            $modele['params'] = $modele['match'][3] ?? '';
+
+            $longueur = $modele['length'];
+            $end = $pos + $longueur;
+
+            // il faut avoir un id ou des params commençant par un | sinon c'est une simple balise html
+            if (empty($modele['id']) and empty($modele['params'])) {
+                unset($modeles[$k]);
+                continue;
+            }
+
+            // si on veut seulement detecter la présence, on peut retourner tel quel
+            if (!empty($options['detecter_presence'])) {
+                break;
+            }
+
+            $modele['lien'] = false;
+            if (!empty($options['collecter_liens'])
+                and $pos_fermeture_lien = stripos($texte, '</a>', $end)
+                and !strlen(trim(substr($texte, $end, $pos_fermeture_lien - $end)))) {
+
+                $pos_lien_ouvrant = stripos($texte, '<a', $pos_prev);
+                if ($pos_lien_ouvrant !== false
+                    and $pos_lien_ouvrant < $pos
+                    and preg_match('/<a\s[^<>]*>\s*$/i', substr($texte, $pos_prev, $pos - $pos_prev), $r)
+                ) {
+                    $modele['lien'] = [
+                        'href' => extraire_attribut($r[0], 'href'),
+                        'class' => extraire_attribut($r[0], 'class'),
+                        'mime' => extraire_attribut($r[0], 'type'),
+                        'title' => extraire_attribut($r[0], 'title'),
+                        'hreflang' => extraire_attribut($r[0], 'hreflang')
+                    ];
+                    $n = strlen($r[0]);
+                    $pos -= $n;
+                    $longueur = $pos_fermeture_lien - $pos + 4;
+                    $end = $pos + $longueur;
+                }
+            }
+
+
+            $modele['pos'] = $pos;
+            $modele['length'] = $longueur;
+            $pos_prev = $end;
+        }
+
+        return $modeles;
+    }
+
+    /**
+     * Traiter les modeles d'un texte
+     * @param string $texte
+     * @param array $options
+     *   bool|array $doublons
+     *   string $echap
+     *   ?Spip\Texte\CollecteurLiens $collecteurLiens
+     *   ?array $env
+     *   ?string $connect
+     * @return string
+     */
+    public function traiter(string $texte, array $options) {
+        if ($texte) {
+            $doublons = $options['doublons'] ?? false;
+            $echap = $options['echap'] ?? '';
+            $collecteurLiens = $options['collecteurLiens'] ?? null;
+            $env = $options['env'] ?? [];
+            $connect = $options['connect'] ?? '';
+
+            // preserver la compatibilite : true = recherche des documents
+            if ($doublons === true) {
+                $doublons = ['documents' => ['doc', 'emb', 'img']];
+            }
+
+            $modeles = $this->collecter($texte, ['collecter_liens' => true]);
+            if (!empty($modeles)) {
+                include_spip('public/assembler');
+                $wrap_embed_html = charger_fonction('wrap_embed_html', 'inc', true);
+
+                $offset_pos = 0;
+                foreach ($modeles as $m) {
+                    // calculer le modele
+                    # hack indexation
+                    if ($doublons) {
+                        $texte .= preg_replace(',[|][^|=]*,s', ' ', $m['params']);
+                    } # version normale
+                    else {
+                        // si un tableau de liens a ete passe, reinjecter le contenu d'origine
+                        // dans les parametres, plutot que les liens echappes
+                        $params = $m['params'];
+                        if (!is_null($collecteurLiens)) {
+                            $params = $collecteurLiens->retablir($params);
+                        }
+
+                        $modele = inclure_modele($m['type'], $m['id'], $params, $m['lien'], $connect ?? '', $env);
+
+                        // en cas d'echec,
+                        // si l'objet demande a une url,
+                        // creer un petit encadre vers elle
+                        if ($modele === false) {
+                            $modele = $m['raw'];
+
+                            if (!is_null($collecteurLiens)) {
+                                $modele = $collecteurLiens->retablir($modele);
+                            }
+
+                            $contexte = array_merge($env, ['id' => $m['id'], 'type' => $m['type'], 'modele' => $modele]);
+
+                            if (!empty($m['lien'])) {
+                                # un eventuel guillemet (") sera reechappe par #ENV
+                                $contexte['lien'] = str_replace('&quot;', '"', $m['lien']['href']);
+                                $contexte['lien_class'] = $m['lien']['class'];
+                                $contexte['lien_mime'] = $m['lien']['mime'];
+                                $contexte['lien_title'] = $m['lien']['title'];
+                                $contexte['lien_hreflang'] = $m['lien']['hreflang'];
+                            }
+
+                            $modele = recuperer_fond('modeles/dist', $contexte, [], $connect ?? '');
+                        }
+
+                        // le remplacer dans le texte
+                        if ($modele !== false) {
+                            $modele = protege_js_modeles($modele);
+
+                            if ($wrap_embed_html) {
+                                $modele = $wrap_embed_html($m['raw'], $modele);
+                            }
+
+                            $rempl = code_echappement($modele, $echap);
+                            $texte = substr_replace($texte, $rempl, $m['pos'] + $offset_pos, $m['length']);
+                            $offset_pos += strlen($rempl) - $m['length'];
+                        }
+                    }
+
+                    // hack pour tout l'espace prive
+                    if ((test_espace_prive() or ($doublons)) and !empty($m['id'])) {
+                        $type = strtolower($m['type']);
+                        foreach ($doublons ?: ['documents' => ['doc', 'emb', 'img']] as $quoi => $type_modeles) {
+                            if (in_array($type, $type_modeles)) {
+                                $GLOBALS["doublons_{$quoi}_inclus"][] = $m['id'];
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        return $texte;
+    }
 
 }

ecrire/src/Texte/Collecteur/Liens.php

Indentation +98 added lines, -98 removed lines

@@ -17,103 +17,103 @@
  */
 class Liens extends AbstractCollecteur {
 
-	protected static string $markPrefix = 'LIEN';
-
-	/**
-	 * La preg pour découper et collecter les modèles
-	 * @var string
-	 */
-	protected string $preg_lien;
-
-	public function __construct(?string $preg = null) {
-
-		// Regexp des raccourcis, aussi utilisee pour la fusion de sauvegarde Spip
-		// Laisser passer des paires de crochets pour la balise multi
-		// mais refuser plus d'imbrications ou de mauvaises imbrications
-		// sinon les crochets ne peuvent plus servir qu'a ce type de raccourci
-		$this->preg_lien = ($preg ?: '/\[([^][]*?([[][^]>-]*[]][^][]*)*)->(>?)([^]]*)\]/msS');
-	}
-
-
-	/**
-	 * Sanitizer une collection d'occurences de liens : il faut sanitizer le href et le texte uniquement
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-		foreach ($collection as &$lien) {
-			$t = $sanitize_callback($lien['texte']);
-			if ($t !== $lien['texte']) {
-				$lien['raw'] = str_replace($lien['texte'], $t, $lien['raw']);
-				$lien['texte'] = $t;
-			}
-			$href = $sanitize_callback($lien['href']);
-			if ($href !== $lien['href']) {
-				$lien['raw'] = str_replace($lien['href'], $href, $lien['raw']);
-				$lien['href'] = $href;
-			}
-		}
-
-		return $collection;
-	}
-
-	/**
-	 * @param string $texte
-	 * @param array $options
-	 *   bool $collecter_liens
-	 * @return array
-	 */
-	public function collecter(string $texte, array $options = []): array {
-		if (!$texte) {
-			return [];
-		}
-
-		$liens = [];
-		if (strpos($texte, '->') !== false) {
-
-			$desechappe_crochets = false;
-			// si il y a un crochet ouvrant échappé ou un crochet fermant échappé, les substituer pour les ignorer
-			if (strpos($texte, '\[') !== false or strpos($texte, '\]') !== false) {
-				$texte = str_replace(['\[', '\]'], ["\x1\x5", "\x1\x6"], $texte);
-				$desechappe_crochets = true;
-			}
-
-			// collecter les matchs de la preg
-			$liens = $this->collecteur($texte, '->', '[', $this->preg_lien, empty($options['detecter_presence']) ? 0 : 1);
-
-			// si on veut seulement detecter la présence, on peut retourner tel quel
-			if (empty($options['detecter_presence'])) {
-
-				foreach ($liens as $k => &$lien) {
-
-					$lien['href'] = end($lien['match']);
-					$lien['texte'] = $lien['match'][1];
-					$lien['ouvrant'] = $lien['match'][3] ?? '';
-
-					// la mise en lien automatique est passee par la a tort !
-					// corrigeons pour eviter d'avoir un <a...> dans un href...
-					if (strncmp($lien['href'], '<a', 2) == 0) {
-						$href = extraire_attribut($lien['href'], 'href');
-						// remplacons dans la source qui peut etre reinjectee dans les arguments
-						// d'un modele
-						$lien['raw'] = str_replace($lien['href'], $href, $lien['raw']);
-						// et prenons le href comme la vraie url a linker
-						$lien['href'] = $href;
-					}
-
-					if ($desechappe_crochets and strpos($lien['raw'], "\x1") !== false) {
-						$lien['raw'] = str_replace(["\x1\x5", "\x1\x6"], ['[', ']'], $lien['raw']);
-						$lien['texte'] = str_replace(["\x1\x5", "\x1\x6"], ['[', ']'], $lien['texte']);
-						$lien['href'] = str_replace(["\x1\x5", "\x1\x6"], ['[', ']'], $lien['href']);
-					}
-
-				}
-			}
-		}
-
-		return $liens;
-	}
+    protected static string $markPrefix = 'LIEN';
+
+    /**
+     * La preg pour découper et collecter les modèles
+     * @var string
+     */
+    protected string $preg_lien;
+
+    public function __construct(?string $preg = null) {
+
+        // Regexp des raccourcis, aussi utilisee pour la fusion de sauvegarde Spip
+        // Laisser passer des paires de crochets pour la balise multi
+        // mais refuser plus d'imbrications ou de mauvaises imbrications
+        // sinon les crochets ne peuvent plus servir qu'a ce type de raccourci
+        $this->preg_lien = ($preg ?: '/\[([^][]*?([[][^]>-]*[]][^][]*)*)->(>?)([^]]*)\]/msS');
+    }
+
+
+    /**
+     * Sanitizer une collection d'occurences de liens : il faut sanitizer le href et le texte uniquement
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+        foreach ($collection as &$lien) {
+            $t = $sanitize_callback($lien['texte']);
+            if ($t !== $lien['texte']) {
+                $lien['raw'] = str_replace($lien['texte'], $t, $lien['raw']);
+                $lien['texte'] = $t;
+            }
+            $href = $sanitize_callback($lien['href']);
+            if ($href !== $lien['href']) {
+                $lien['raw'] = str_replace($lien['href'], $href, $lien['raw']);
+                $lien['href'] = $href;
+            }
+        }
+
+        return $collection;
+    }
+
+    /**
+     * @param string $texte
+     * @param array $options
+     *   bool $collecter_liens
+     * @return array
+     */
+    public function collecter(string $texte, array $options = []): array {
+        if (!$texte) {
+            return [];
+        }
+
+        $liens = [];
+        if (strpos($texte, '->') !== false) {
+
+            $desechappe_crochets = false;
+            // si il y a un crochet ouvrant échappé ou un crochet fermant échappé, les substituer pour les ignorer
+            if (strpos($texte, '\[') !== false or strpos($texte, '\]') !== false) {
+                $texte = str_replace(['\[', '\]'], ["\x1\x5", "\x1\x6"], $texte);
+                $desechappe_crochets = true;
+            }
+
+            // collecter les matchs de la preg
+            $liens = $this->collecteur($texte, '->', '[', $this->preg_lien, empty($options['detecter_presence']) ? 0 : 1);
+
+            // si on veut seulement detecter la présence, on peut retourner tel quel
+            if (empty($options['detecter_presence'])) {
+
+                foreach ($liens as $k => &$lien) {
+
+                    $lien['href'] = end($lien['match']);
+                    $lien['texte'] = $lien['match'][1];
+                    $lien['ouvrant'] = $lien['match'][3] ?? '';
+
+                    // la mise en lien automatique est passee par la a tort !
+                    // corrigeons pour eviter d'avoir un <a...> dans un href...
+                    if (strncmp($lien['href'], '<a', 2) == 0) {
+                        $href = extraire_attribut($lien['href'], 'href');
+                        // remplacons dans la source qui peut etre reinjectee dans les arguments
+                        // d'un modele
+                        $lien['raw'] = str_replace($lien['href'], $href, $lien['raw']);
+                        // et prenons le href comme la vraie url a linker
+                        $lien['href'] = $href;
+                    }
+
+                    if ($desechappe_crochets and strpos($lien['raw'], "\x1") !== false) {
+                        $lien['raw'] = str_replace(["\x1\x5", "\x1\x6"], ['[', ']'], $lien['raw']);
+                        $lien['texte'] = str_replace(["\x1\x5", "\x1\x6"], ['[', ']'], $lien['texte']);
+                        $lien['href'] = str_replace(["\x1\x5", "\x1\x6"], ['[', ']'], $lien['href']);
+                    }
+
+                }
+            }
+        }
+
+        return $liens;
+    }
 
 }

ecrire/inc/modeles.php

Indentation +12 added lines, -12 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -26,16 +26,16 @@ 
  */
 function traiter_modeles($texte, $doublons = false, $echap = '', string $connect = '', ?Spip\Texte\Collecteur\Liens $collecteurLiens = null, $env = []) {
 
-	include_spip("src/Texte/Collecteur/AbstractCollecteur");
-	include_spip("src/Texte/Collecteur/Modeles");
-	$collecteurModeles = new Spip\Texte\Collecteur\Modeles();
+    include_spip("src/Texte/Collecteur/AbstractCollecteur");
+    include_spip("src/Texte/Collecteur/Modeles");
+    $collecteurModeles = new Spip\Texte\Collecteur\Modeles();
 
-	$options = [
-		'doublons' => $doublons,
-		'echap' => $echap,
-		'connect' => $connect,
-		'collecteurLiens' => $collecteurLiens,
-		'env' => $env
-	];
-	return $collecteurModeles->traiter($texte ?? '', $options);
+    $options = [
+        'doublons' => $doublons,
+        'echap' => $echap,
+        'connect' => $connect,
+        'collecteurLiens' => $collecteurLiens,
+        'env' => $env
+    ];
+    return $collecteurModeles->traiter($texte ?? '', $options);
 }

ecrire/inc/liens.php

Indentation +1 added lines, -1 removed lines

@@ -11,5 +11,5 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }

ecrire/req/sqlite_fonctions.php

Indentation +216 added lines, -216 removed lines

@@ -22,7 +22,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,90 +43,90 @@ 
  */
 function _sqlite_init_functions(&$sqlite) {
 
-	if (!$sqlite) {
-		return false;
-	}
+    if (!$sqlite) {
+        return false;
+    }
 
 
-	$fonctions = [
-		// A
-		'ACOS'  => ['acos', 1],
-		'ASIN'  => ['asin', 1],
-		'ATAN'  => ['atan', 1], // mysql accepte 2 params comme atan2… hum ?
-		'ATAN2' => ['atan2', 2],
+    $fonctions = [
+        // A
+        'ACOS'  => ['acos', 1],
+        'ASIN'  => ['asin', 1],
+        'ATAN'  => ['atan', 1], // mysql accepte 2 params comme atan2… hum ?
+        'ATAN2' => ['atan2', 2],
 
-		// C
-		'CEIL'   => ['_sqlite_func_ceil', 1],
-		'CONCAT' => ['_sqlite_func_concat', -1],
-		'COS'    => ['cos', 1],
+        // C
+        'CEIL'   => ['_sqlite_func_ceil', 1],
+        'CONCAT' => ['_sqlite_func_concat', -1],
+        'COS'    => ['cos', 1],
 
-		// D
-		'DATE_FORMAT' => ['_sqlite_func_date_format', 2], // équivalent a strftime avec args inversés
-		'DAYOFMONTH'  => ['_sqlite_func_dayofmonth', 1],
-		'DEGREES'     => ['rad2deg', 1],
+        // D
+        'DATE_FORMAT' => ['_sqlite_func_date_format', 2], // équivalent a strftime avec args inversés
+        'DAYOFMONTH'  => ['_sqlite_func_dayofmonth', 1],
+        'DEGREES'     => ['rad2deg', 1],
 
-		// E
-		'EXTRAIRE_MULTI' => ['_sqlite_func_extraire_multi', 2], // specifique a SPIP/sql_multi()
-		'EXP'            => ['exp', 1],
+        // E
+        'EXTRAIRE_MULTI' => ['_sqlite_func_extraire_multi', 2], // specifique a SPIP/sql_multi()
+        'EXP'            => ['exp', 1],
 
-		// F
-		'FIND_IN_SET' => ['_sqlite_func_find_in_set', 2],
-		'FLOOR'       => ['_sqlite_func_floor', 1],
+        // F
+        'FIND_IN_SET' => ['_sqlite_func_find_in_set', 2],
+        'FLOOR'       => ['_sqlite_func_floor', 1],
 
-		// G
-		'GREATEST' => ['_sqlite_func_greatest', -1],
+        // G
+        'GREATEST' => ['_sqlite_func_greatest', -1],
 
-		// I
-		'IF'     => ['_sqlite_func_if', 3],
-		'INSERT' => ['_sqlite_func_insert', 4],
-		'INSTR'  => ['_sqlite_func_instr', 2],
+        // I
+        'IF'     => ['_sqlite_func_if', 3],
+        'INSERT' => ['_sqlite_func_insert', 4],
+        'INSTR'  => ['_sqlite_func_instr', 2],
 
-		// L
-		'LEAST'  => ['_sqlite_func_least', -1],
-		'_LEFT'  => ['_sqlite_func_left', 2],
+        // L
+        'LEAST'  => ['_sqlite_func_least', -1],
+        '_LEFT'  => ['_sqlite_func_left', 2],
 
-		// N
-		'NOW' => ['_sqlite_func_now', 0],
+        // N
+        'NOW' => ['_sqlite_func_now', 0],
 
-		// M
-		'MD5'   => ['md5', 1],
-		'MONTH' => ['_sqlite_func_month', 1],
+        // M
+        'MD5'   => ['md5', 1],
+        'MONTH' => ['_sqlite_func_month', 1],
 
-		// P
-		'PREG_REPLACE' => ['_sqlite_func_preg_replace', 3],
+        // P
+        'PREG_REPLACE' => ['_sqlite_func_preg_replace', 3],
 
-		// R
-		'RADIANS' => ['deg2rad', 1],
-		'RAND'    => ['_sqlite_func_rand', 0], // sinon random() v2.4
-		'REGEXP'  => ['_sqlite_func_regexp_match', 2], // critere REGEXP supporte a partir de v3.3.2
-		'RIGHT'   => ['_sqlite_func_right', 2],
+        // R
+        'RADIANS' => ['deg2rad', 1],
+        'RAND'    => ['_sqlite_func_rand', 0], // sinon random() v2.4
+        'REGEXP'  => ['_sqlite_func_regexp_match', 2], // critere REGEXP supporte a partir de v3.3.2
+        'RIGHT'   => ['_sqlite_func_right', 2],
 
-		// S
-		'SETTYPE'   => ['settype', 2], // CAST present en v3.2.3
-		'SIN'       => ['sin', 1],
-		'SQRT'      => ['sqrt', 1],
-		'SUBSTRING' => ['_sqlite_func_substring' /*, 3*/], // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
+        // S
+        'SETTYPE'   => ['settype', 2], // CAST present en v3.2.3
+        'SIN'       => ['sin', 1],
+        'SQRT'      => ['sqrt', 1],
+        'SUBSTRING' => ['_sqlite_func_substring' /*, 3*/], // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
 
-		// T
-		'TAN'           => ['tan', 1],
-		'TIMESTAMPDIFF' => ['_sqlite_timestampdiff'    /*, 3*/],
-		'TO_DAYS'       => ['_sqlite_func_to_days', 1],
+        // T
+        'TAN'           => ['tan', 1],
+        'TIMESTAMPDIFF' => ['_sqlite_timestampdiff'    /*, 3*/],
+        'TO_DAYS'       => ['_sqlite_func_to_days', 1],
 
-		// U
-		'UNIX_TIMESTAMP' => ['_sqlite_func_unix_timestamp', 1],
+        // U
+        'UNIX_TIMESTAMP' => ['_sqlite_func_unix_timestamp', 1],
 
-		// V
-		'VIDE' => ['_sqlite_func_vide', 0], // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
+        // V
+        'VIDE' => ['_sqlite_func_vide', 0], // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
 
-		// Y
-		'YEAR' => ['_sqlite_func_year', 1]
-	];
+        // Y
+        'YEAR' => ['_sqlite_func_year', 1]
+    ];
 
-	foreach ($fonctions as $f => $r) {
-		_sqlite_add_function($sqlite, $f, $r);
-	}
+    foreach ($fonctions as $f => $r) {
+        _sqlite_add_function($sqlite, $f, $r);
+    }
 
-	#spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
+    #spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
 }
 
 
@@ -147,9 +147,9 @@ 
  *
 **/
 function _sqlite_add_function(&$sqlite, &$f, &$r) {
-	isset($r[1])
-		? $sqlite->sqliteCreateFunction($f, $r[0], $r[1])
-		: $sqlite->sqliteCreateFunction($f, $r[0]);
+    isset($r[1])
+        ? $sqlite->sqliteCreateFunction($f, $r[0], $r[1])
+        : $sqlite->sqliteCreateFunction($f, $r[0]);
 }
 
 /**
@@ -159,7 +159,7 @@ 
  * @return int
  */
 function _sqlite_func_ceil($a) {
-	return ceil($a);
+    return ceil($a);
 }
 
 /**
@@ -169,7 +169,7 @@ 
  * @return string
  */
 function _sqlite_func_concat(...$args) {
-	return join('', $args);
+    return join('', $args);
 }
 
 
@@ -182,7 +182,7 @@ 
  * @return string
  */
 function _sqlite_func_dayofmonth($d) {
-	return _sqlite_func_date('d', $d);
+    return _sqlite_func_date('d', $d);
 }
 
 
@@ -194,15 +194,15 @@ 
  * @return int
  */
 function _sqlite_func_find_in_set($num, $set) {
-	$rank = 0;
-	foreach (explode(',', $set) as $v) {
-		if ($v == $num) {
-			return (++$rank);
-		}
-		$rank++;
-	}
-
-	return 0;
+    $rank = 0;
+    foreach (explode(',', $set) as $v) {
+        if ($v == $num) {
+            return (++$rank);
+        }
+        $rank++;
+    }
+
+    return 0;
 }
 
 /**
@@ -212,7 +212,7 @@ 
  * @return int
  */
 function _sqlite_func_floor($a) {
-	return floor($a);
+    return floor($a);
 }
 
 
@@ -225,7 +225,7 @@ 
  * @return mixed
  */
 function _sqlite_func_if($bool, $oui, $non) {
-	return ($bool) ? $oui : $non;
+    return ($bool) ? $oui : $non;
 }
 
 
@@ -242,10 +242,10 @@ 
  * @return string
  */
 function _sqlite_func_insert($s, $index, $longueur, $chaine) {
-	return
-		substr($s, 0, $index)
-		. $chaine
-		. substr(substr($s, $index), $longueur);
+    return
+        substr($s, 0, $index)
+        . $chaine
+        . substr(substr($s, $index), $longueur);
 }
 
 
@@ -257,7 +257,7 @@ 
  * @return int
  */
 function _sqlite_func_instr($s, $search) {
-	return strpos($s, $search);
+    return strpos($s, $search);
 }
 
 
@@ -268,7 +268,7 @@ 
  * @return int
  */
 function _sqlite_func_least(...$args) {
-	return min($args);
+    return min($args);
 }
 
 
@@ -279,7 +279,7 @@ 
  * @return int
  */
 function _sqlite_func_greatest(...$args) {
-	return max($args);
+    return max($args);
 }
 
 
@@ -291,7 +291,7 @@ 
  * @return string
  */
 function _sqlite_func_left($s, $lenght) {
-	return substr($s, $lenght);
+    return substr($s, $lenght);
 }
 
 /**
@@ -301,13 +301,13 @@ 
  * @return string
  */
 function _sqlite_func_now($force_refresh = false) {
-	static $now = null;
-	if (is_null($now) or $force_refresh) {
-		$now = date('Y-m-d H:i:s');
-	}
+    static $now = null;
+    if (is_null($now) or $force_refresh) {
+        $now = date('Y-m-d H:i:s');
+    }
 
-	#spip_log("Passage avec NOW : $now | ".time(),'sqlite.'._LOG_DEBUG);
-	return $now;
+    #spip_log("Passage avec NOW : $now | ".time(),'sqlite.'._LOG_DEBUG);
+    return $now;
 }
 
 
@@ -320,7 +320,7 @@ 
  * @return string
  */
 function _sqlite_func_month($d) {
-	return _sqlite_func_date('m', $d);
+    return _sqlite_func_date('m', $d);
 }
 
 
@@ -333,10 +333,10 @@ 
  * @return string
  */
 function _sqlite_func_preg_replace($quoi, $cherche, $remplace) {
-	$return = preg_replace('%' . $cherche . '%', $remplace, $quoi);
+    $return = preg_replace('%' . $cherche . '%', $remplace, $quoi);
 
-	#spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    #spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 /**
@@ -349,13 +349,13 @@ 
  * @return string, l'extrait trouve.
  **/
 function _sqlite_func_extraire_multi($quoi, $lang) {
-	if (strpos($quoi, '<')) {
-		include_spip("src/Texte/Collecteur/AbstractCollecteur");
-		include_spip("src/Texte/Collecteur/Multis");
-		$collecteurMultis = new Spip\Texte\Collecteur\Multis();
-		$quoi = $collecteurMultis->traiter($quoi, ['lang' => $lang, 'appliquer_typo' => false]);
-	}
-	return $quoi;
+    if (strpos($quoi, '<')) {
+        include_spip("src/Texte/Collecteur/AbstractCollecteur");
+        include_spip("src/Texte/Collecteur/Multis");
+        $collecteurMultis = new Spip\Texte\Collecteur\Multis();
+        $quoi = $collecteurMultis->traiter($quoi, ['lang' => $lang, 'appliquer_typo' => false]);
+    }
+    return $quoi;
 }
 
 
@@ -365,7 +365,7 @@ 
  * @return float
  */
 function _sqlite_func_rand() {
-	return random_int(0, mt_getrandmax());
+    return random_int(0, mt_getrandmax());
 }
 
 
@@ -377,7 +377,7 @@ 
  * @return string
  */
 function _sqlite_func_right($s, $length) {
-	return substr($s, 0 - $length);
+    return substr($s, 0 - $length);
 }
 
 
@@ -389,17 +389,17 @@ 
  * @return bool
  */
 function _sqlite_func_regexp_match($cherche, $quoi) {
-	// optimiser un cas tres courant avec les requetes en base
-	if (!$quoi and !strlen($quoi)) {
-		return false;
-	}
-	// il faut enlever un niveau d'echappement pour être homogène à mysql
-	$cherche = str_replace('\\\\', '\\', $cherche);
-	$u = $GLOBALS['meta']['pcre_u'] ?? 'u';
-	$return = preg_match('%' . $cherche . '%imsS' . $u, $quoi);
-
-	#spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    // optimiser un cas tres courant avec les requetes en base
+    if (!$quoi and !strlen($quoi)) {
+        return false;
+    }
+    // il faut enlever un niveau d'echappement pour être homogène à mysql
+    $cherche = str_replace('\\\\', '\\', $cherche);
+    $u = $GLOBALS['meta']['pcre_u'] ?? 'u';
+    $return = preg_match('%' . $cherche . '%imsS' . $u, $quoi);
+
+    #spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 
@@ -414,8 +414,8 @@ 
  * @return string
  */
 function _sqlite_func_date_format($date, $conv) {
-	$conv = _sqlite_func_strftime_format_converter($conv);
-	return strftime($conv, is_int($date) ? $date : strtotime($date));
+    $conv = _sqlite_func_strftime_format_converter($conv);
+    return strftime($conv, is_int($date) ? $date : strtotime($date));
 }
 
 /**
@@ -431,28 +431,28 @@ 
  * @return void
  */
 function _sqlite_func_strftime_format_converter(string $conv): string {
-	// ok : %a %b %d %e %H %I %l %j %k %m %p %r %S %T %w %y %Y
-	// on ne sait pas en gérer certains...
-	static $mysql_to_strftime_not_ok = ['%c', '%D', '%f', '%U', '%V', '%W', '%X'];
-	static $mysql_to_strftime = [
-		'%h' => '%I',
-		'%i' => '%M',
-		'%M' => '%B',
-		'%s' => '%S',
-		'%u' => '%U',
-		'%v' => '%V',
-		'%x' => '%G',
-	];
-	static $to_strftime = [];
-	if (!isset($to_strftime[$conv])) {
-		$count = 0;
-		str_replace($mysql_to_strftime_not_ok, '', $conv, $count);
-		if ($count > 0) {
-			spip_log("DATE_FORMAT : At least one parameter can't be parsed by strftime with format '$conv'", 'sqlite.' . _LOG_ERREUR);
-		}
-		$to_strftime[$conv] = str_replace(array_keys($mysql_to_strftime), $mysql_to_strftime, $conv);
-	}
-	return $to_strftime[$conv];
+    // ok : %a %b %d %e %H %I %l %j %k %m %p %r %S %T %w %y %Y
+    // on ne sait pas en gérer certains...
+    static $mysql_to_strftime_not_ok = ['%c', '%D', '%f', '%U', '%V', '%W', '%X'];
+    static $mysql_to_strftime = [
+        '%h' => '%I',
+        '%i' => '%M',
+        '%M' => '%B',
+        '%s' => '%S',
+        '%u' => '%U',
+        '%v' => '%V',
+        '%x' => '%G',
+    ];
+    static $to_strftime = [];
+    if (!isset($to_strftime[$conv])) {
+        $count = 0;
+        str_replace($mysql_to_strftime_not_ok, '', $conv, $count);
+        if ($count > 0) {
+            spip_log("DATE_FORMAT : At least one parameter can't be parsed by strftime with format '$conv'", 'sqlite.' . _LOG_ERREUR);
+        }
+        $to_strftime[$conv] = str_replace(array_keys($mysql_to_strftime), $mysql_to_strftime, $conv);
+    }
+    return $to_strftime[$conv];
 }
 
 /**
@@ -466,11 +466,11 @@ 
  * @return int
  */
 function _sqlite_func_to_days($d) {
-	static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
-	$result = $offset + (int)ceil(_sqlite_func_unix_timestamp($d) / (24 * 3600));
+    static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
+    $result = $offset + (int)ceil(_sqlite_func_unix_timestamp($d) / (24 * 3600));
 
-	#spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
-	return $result;
+    #spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
+    return $result;
 }
 
 /**
@@ -482,13 +482,13 @@ 
  * @return string
  */
 function _sqlite_func_substring($string, $start, $len = null) {
-	// SQL compte a partir de 1, php a partir de 0
-	$start = ($start > 0) ? $start - 1 : $start;
-	if (is_null($len)) {
-		return substr($string, $start);
-	} else {
-		return substr($string, $start, $len);
-	}
+    // SQL compte a partir de 1, php a partir de 0
+    $start = ($start > 0) ? $start - 1 : $start;
+    if (is_null($len)) {
+        return substr($string, $start);
+    } else {
+        return substr($string, $start, $len);
+    }
 }
 
 /**
@@ -504,33 +504,33 @@ 
  * @return int
  */
 function _sqlite_timestampdiff($unit, $date1, $date2) {
-	$d1 = date_create($date1);
-	$d2 = date_create($date2);
-	$diff = date_diff($d1, $d2);
-	$inv = $diff->invert ? -1 : 1;
-	switch ($unit) {
-		case 'YEAR':
-			return $inv * $diff->y;
-		case 'QUARTER':
-			return $inv * (4 * $diff->y + intval(floor($diff->m / 3)));
-		case 'MONTH':
-			return $inv * (12 * $diff->y + $diff->m);
-		case 'WEEK':
-			return $inv * intval(floor($diff->days / 7));
-		case 'DAY':
-			#var_dump($inv*$diff->days);
-			return $inv * $diff->days;
-		case 'HOUR':
-			return $inv * (24 * $diff->days + $diff->h);
-		case 'MINUTE':
-			return $inv * ((24 * $diff->days + $diff->h) * 60 + $diff->i);
-		case 'SECOND':
-			return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s);
-		case 'MICROSECOND':
-			return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s) * 1_000_000;
-	}
-
-	return 0;
+    $d1 = date_create($date1);
+    $d2 = date_create($date2);
+    $diff = date_diff($d1, $d2);
+    $inv = $diff->invert ? -1 : 1;
+    switch ($unit) {
+        case 'YEAR':
+            return $inv * $diff->y;
+        case 'QUARTER':
+            return $inv * (4 * $diff->y + intval(floor($diff->m / 3)));
+        case 'MONTH':
+            return $inv * (12 * $diff->y + $diff->m);
+        case 'WEEK':
+            return $inv * intval(floor($diff->days / 7));
+        case 'DAY':
+            #var_dump($inv*$diff->days);
+            return $inv * $diff->days;
+        case 'HOUR':
+            return $inv * (24 * $diff->days + $diff->h);
+        case 'MINUTE':
+            return $inv * ((24 * $diff->days + $diff->h) * 60 + $diff->i);
+        case 'SECOND':
+            return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s);
+        case 'MICROSECOND':
+            return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s) * 1_000_000;
+    }
+
+    return 0;
 }
 
 /**
@@ -540,24 +540,24 @@ 
  * @return int
  */
 function _sqlite_func_unix_timestamp($d) {
-	static $mem = [];
-	static $n = 0;
-	if (isset($mem[$d])) {
-		return $mem[$d];
-	}
-	if ($n++ > 100) {
-		$mem = [];
-		$n = 0;
-	}
-
-	//2005-12-02 20:53:53
-	#spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
-	if (!$d) {
-		return $mem[$d] = time();
-	}
-
-	// une pile plus grosse n'accelere pas le calcul
-	return $mem[$d] = strtotime($d);
+    static $mem = [];
+    static $n = 0;
+    if (isset($mem[$d])) {
+        return $mem[$d];
+    }
+    if ($n++ > 100) {
+        $mem = [];
+        $n = 0;
+    }
+
+    //2005-12-02 20:53:53
+    #spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
+    if (!$d) {
+        return $mem[$d] = time();
+    }
+
+    // une pile plus grosse n'accelere pas le calcul
+    return $mem[$d] = strtotime($d);
 }
 
 
@@ -570,7 +570,7 @@ 
  * @return string
  */
 function _sqlite_func_year($d) {
-	return _sqlite_func_date('Y', $d);
+    return _sqlite_func_date('Y', $d);
 }
 
 /**
@@ -583,20 +583,20 @@ 
  * @return string
  */
 function _sqlite_func_date($quoi, $d) {
-	static $mem = [];
-	static $n = 0;
-	if (isset($mem[$d])) {
-		return $mem[$d][$quoi];
-	}
-	if ($n++ > 100) {
-		$mem = [];
-		$n = 0;
-	}
-
-	$dec = date('Y-m-d', _sqlite_func_unix_timestamp($d));
-	$mem[$d] = ['Y' => substr($dec, 0, 4), 'm' => substr($dec, 5, 2), 'd' => substr($dec, 8, 2)];
-
-	return $mem[$d][$quoi];
+    static $mem = [];
+    static $n = 0;
+    if (isset($mem[$d])) {
+        return $mem[$d][$quoi];
+    }
+    if ($n++ > 100) {
+        $mem = [];
+        $n = 0;
+    }
+
+    $dec = date('Y-m-d', _sqlite_func_unix_timestamp($d));
+    $mem[$d] = ['Y' => substr($dec, 0, 4), 'm' => substr($dec, 5, 2), 'd' => substr($dec, 8, 2)];
+
+    return $mem[$d][$quoi];
 }
 
 /**
@@ -605,5 +605,5 @@ 
  * @return void
  */
 function _sqlite_func_vide() {
-	return;
+    return;
 }

ecrire/public/debusquer.php

Indentation +695 added lines, -695 removed lines

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