spip / SPIP

ecrire/maj/2021.php

Indentation +17 added lines, -17 removed lines

@@ -19,21 +19,21 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 $GLOBALS['maj'][2021_02_18_00] = [
-	['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
-	['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
+    ['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
+    ['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
 ];
 
 $GLOBALS['maj'][2022_02_23_02] = [
-	['sql_alter', "TABLE spip_auteurs ADD backup_cles mediumtext DEFAULT '' NOT NULL" ],
-	['sql_delete', 'spip_meta', "nom='secret_du_site'" ],
+    ['sql_alter', "TABLE spip_auteurs ADD backup_cles mediumtext DEFAULT '' NOT NULL" ],
+    ['sql_delete', 'spip_meta', "nom='secret_du_site'" ],
 ];
 
 $GLOBALS['maj'][2022_02_23_03] = [
-	['maj2021_supprimer_toutes_sessions_si_aucun_backup_cles'],
+    ['maj2021_supprimer_toutes_sessions_si_aucun_backup_cles'],
 ];
 
 /**
@@ -44,15 +44,15 @@ 
  * - les autres auteurs vont tous regénérer un mot de passe plus sécure au premier login
  **/
 function maj2021_supprimer_toutes_sessions_si_aucun_backup_cles() {
-	if (!sql_countsel('spip_auteurs', "webmestre='oui' AND backup_cles!=''")) {
-		spip_log('supprimer sessions auteur', 'maj');
-		if ($dir = opendir(_DIR_SESSIONS)) {
-			while (($f = readdir($dir)) !== false) {
-				spip_unlink(_DIR_SESSIONS . $f);
-				if (time() >= _TIME_OUT) {
-					return;
-				}
-			}
-		}
-	}
+    if (!sql_countsel('spip_auteurs', "webmestre='oui' AND backup_cles!=''")) {
+        spip_log('supprimer sessions auteur', 'maj');
+        if ($dir = opendir(_DIR_SESSIONS)) {
+            while (($f = readdir($dir)) !== false) {
+                spip_unlink(_DIR_SESSIONS . $f);
+                if (time() >= _TIME_OUT) {
+                    return;
+                }
+            }
+        }
+    }
 }

Spacing +5 added lines, -5 removed lines

@@ -23,13 +23,13 @@ 
 }
 
 $GLOBALS['maj'][2021_02_18_00] = [
-	['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
-	['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
+	['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL"],
+	['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL"],
 ];
 
 $GLOBALS['maj'][2022_02_23_02] = [
-	['sql_alter', "TABLE spip_auteurs ADD backup_cles mediumtext DEFAULT '' NOT NULL" ],
-	['sql_delete', 'spip_meta', "nom='secret_du_site'" ],
+	['sql_alter', "TABLE spip_auteurs ADD backup_cles mediumtext DEFAULT '' NOT NULL"],
+	['sql_delete', 'spip_meta', "nom='secret_du_site'"],
 ];
 
 $GLOBALS['maj'][2022_02_23_03] = [
@@ -48,7 +48,7 @@ 
 		spip_log('supprimer sessions auteur', 'maj');
 		if ($dir = opendir(_DIR_SESSIONS)) {
 			while (($f = readdir($dir)) !== false) {
-				spip_unlink(_DIR_SESSIONS . $f);
+				spip_unlink(_DIR_SESSIONS.$f);
 				if (time() >= _TIME_OUT) {
 					return;
 				}

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;
+    }
 
 }

Spacing +2 added lines, -2 removed lines

@@ -118,13 +118,13 @@
 				// 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 . "|";
+					$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']) . '|@';
+				$rempl = $this->markId.base64_encode($c['raw']).'|@';
 				$texte = substr_replace($texte, $rempl, $c['pos'] + $offset_pos, $c['length']);
 				$offset_pos += strlen($rempl) - $c['length'];
 			}

Braces +1 added lines, -2 removed lines

@@ -154,8 +154,7 @@
 				if ($c = base64_decode($base64, true)) {
 					$texte = substr_replace($texte, $c, $p, $end + 2 - $p);
 					$pos = $p + strlen($c);
-				}
-				else {
+				} else {
 					$pos = $end;
 				}
 			}

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;
+    }
 
 }

Spacing +1 added lines, -1 removed lines

@@ -107,7 +107,7 @@
 				$offset_pos = 0;
 				foreach ($idiomes as $idiome) {
 
-					$cle = ($idiome['module'] ? $idiome['module'] . ':' : '') . $idiome['chaine'];
+					$cle = ($idiome['module'] ? $idiome['module'].':' : '').$idiome['chaine'];
 					$desc = $traduire($cle, $lang, true);
 					$l = $desc->langue;
 

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;
+    }
 
 }

Spacing +2 added lines, -3 removed lines

@@ -32,11 +32,10 @@
 
 	public function __construct(?string $preg = null) {
 
-		$this->preg_modele = ($preg ?:
-			'@<([a-z_-]{3,})' # <modele
+		$this->preg_modele = ($preg ?: '@<([a-z_-]{3,})' # <modele
 			. '\s*([0-9]*)\s*' # id
 			. '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
-			. '\s*/?' . '>@isS' # fin du modele >
+			. '\s*/?'.'>@isS' # fin du modele >
 		);
 	}
 

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/src/Texte/Collecteur/Multis.php

Spacing +2 added lines, -2 removed lines

@@ -209,9 +209,9 @@
 								// il ne faut pas echapper en div si propre produit un seul paragraphe
 								include_spip('inc/texte');
 								$trad_propre = preg_replace(',(^<p[^>]*>|</p>$),Uims', '', propre($trad));
-								$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
+								$mode = preg_match(',</?('._BALISES_BLOCS.')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
 								if ($mode === 'div') {
-									$trad = rtrim($trad) . "\n\n";
+									$trad = rtrim($trad)."\n\n";
 								}
 								$trad = code_echappement($trad, 'multi', false, $mode);
 								$trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));

Indentation +205 added lines, -205 removed lines

@@ -29,210 +29,210 @@
  */
 class Multis extends AbstractCollecteur {
 
-	protected static string $markPrefix = 'MULTI';
-
-	/**
-	 * La preg pour découper et collecter les modèles
-	 * @var string
-	 */
-	protected string $preg_multi;
-
-	public function __construct(?string $preg = null) {
-
-		$this->preg_multi = ($preg ?: '@<multi>(.*?)</multi>@sS');
-	}
-
-	/**
-	 * Sanitizer une collection d'occurences de multi : on sanitize chaque texte de langue séparemment
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-
-		foreach ($collection as &$multi) {
-			$changed = false;
-			foreach ($multi['trads'] as $lang => $trad) {
-				$t = $sanitize_callback($trad);
-				if ($t !== $trad) {
-					$changed = true;
-					$multi['trads'][$lang] = $t;
-				}
-			}
-			if ($changed) {
-				$texte = $this->agglomerer_trads($multi['trads']);
-				$multi['raw'] = str_replace($multi['texte'], $texte, $multi['raw']);
-				$multi['texte'] = $texte;
-			}
-		}
-		return $collection;
-	}
-
-
-	/**
-	 * Convertit le contenu d'une balise `<multi>` en un tableau
-	 *
-	 * Exemple de blocs.
-	 * - `texte par défaut [fr] en français [en] en anglais`
-	 * - `[fr] en français [en] en anglais`
-	 *
-	 * @param string $bloc
-	 *     Le contenu intérieur d'un bloc multi
-	 * @return array [code de langue => texte]
-	 *     Peut retourner un code de langue vide, lorsqu'un texte par défaut est indiqué.
-	 **/
-	protected function extraire_trads($bloc) {
-		$trads = [];
-
-		if (strlen($bloc)) {
-			$langs = $this->collecteur($bloc, ']', '[', '@[\[]([a-z]{2,3}(_[a-z]{2,3})?(_[a-z]{2,3})?)[\]]@siS');
-			$lang = '';
-			$pos_prev = 0;
-			foreach ($langs as $l) {
-				$pos = $l['pos'];
-				if ($lang or $pos > $pos_prev) {
-					$trads[$lang] = substr($bloc, $pos_prev, $pos - $pos_prev);
-				}
-				$lang = $l['match'][1];
-				$pos_prev = $pos + $l['length'];
-			}
-			$trads[$lang] = substr($bloc, $pos_prev);
-		}
-
-		return $trads;
-	}
-
-	/**
-	 * Recoller ensemble les trads pour reconstituer le texte dans la balise <multi>...</multi>
-	 * @param $trads
-	 * @return string
-	 */
-	protected function agglomerer_trads($trads) {
-		$texte = '';
-		foreach ($trads as $lang => $trad) {
-			if ($texte or $lang) {
-				$texte .= "[$lang]";
-			}
-			$texte .= $trad;
-		}
-		return $texte;
-	}
-
-	/**
-	 * @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
-		$multis = $this->collecteur($texte, '', '<multi', $this->preg_multi, 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 ($multis as $k => &$multi) {
-				$multi['texte'] = $multi['match'][1];
-				// extraire les trads du texte
-				$multi['trads'] = $this->extraire_trads($multi['texte']);
-			}
-		}
-
-		return $multis;
-	}
-
-	/**
-	 * Traiter les multis d'un texte
-	 *
-	 * @uses approcher_langue()
-	 * @uses lang_typo()
-	 * @uses code_echappement()
-	 * @uses echappe_retour()
-	 *
-	 * @param string $texte
-	 * @param array $options
-	 *   ?string $lang
-	 *   ?string $lang_defaut
-	 *   ?bool echappe_span
-	 *   ?bool appliquer_typo
-	 * @return string
-	 */
-	public function traiter(string $texte, array $options) {
-		if ($texte) {
-
-			$multis = $this->collecter($texte);
-			if (!empty($multis)) {
-				$lang = $options['lang'] ?? $GLOBALS['spip_lang'];
-				$lang_defaut = $options['lang_defaut'] ?? _LANGUE_PAR_DEFAUT;
-				$echappe_span = $options['echappe_span'] ?? false;
-				$appliquer_typo = $options['appliquer_typo'] ?? true;
-
-				if (!function_exists('approcher_langue')) {
-					include_spip('inc/lang');
-				}
-				if (!function_exists('code_echappement')) {
-					include_spip('inc/texte_mini');
-				}
-
-				$offset_pos = 0;
-				foreach ($multis as $m) {
-
-					// chercher la version de la langue courante
-					$trads = $m['trads'];
-					if (empty($trads)) {
-						$trad = '';
-					}
-					elseif ($l = approcher_langue($trads, $lang)) {
-						$trad = $trads[$l];
-					} else {
-						if ($lang_defaut == 'aucune') {
-							$trad = '';
-						} else {
-							// langue absente, prendre le fr ou une langue précisée (meme comportement que inc/traduire.php)
-							// ou la premiere dispo
-							if (!$l = approcher_langue($trads, $options['lang_defaut'])) {
-								$l = array_keys($trads);
-								$l = reset($l);
-							}
-
-							// mais typographier le texte selon les regles de celle-ci
-							// Attention aux blocs multi sur plusieurs lignes
-							if ($appliquer_typo) {
-								$trad = $trads[$l];
-								$typographie = charger_fonction(lang_typo($l), 'typographie');
-								$trad = $typographie($trad);
-
-								// Tester si on echappe en span ou en div
-								// il ne faut pas echapper en div si propre produit un seul paragraphe
-								include_spip('inc/texte');
-								$trad_propre = preg_replace(',(^<p[^>]*>|</p>$),Uims', '', propre($trad));
-								$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
-								if ($mode === 'div') {
-									$trad = rtrim($trad) . "\n\n";
-								}
-								$trad = code_echappement($trad, 'multi', false, $mode);
-								$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, 'multi');
-								}
-							}
-						}
-					}
-
-					$texte = substr_replace($texte, $trad, $m['pos'] + $offset_pos, $m['length']);
-					$offset_pos += strlen($trad) - $m['length'];
-				}
-			}
-		}
-
-		return $texte;
-	}
+    protected static string $markPrefix = 'MULTI';
+
+    /**
+     * La preg pour découper et collecter les modèles
+     * @var string
+     */
+    protected string $preg_multi;
+
+    public function __construct(?string $preg = null) {
+
+        $this->preg_multi = ($preg ?: '@<multi>(.*?)</multi>@sS');
+    }
+
+    /**
+     * Sanitizer une collection d'occurences de multi : on sanitize chaque texte de langue séparemment
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+
+        foreach ($collection as &$multi) {
+            $changed = false;
+            foreach ($multi['trads'] as $lang => $trad) {
+                $t = $sanitize_callback($trad);
+                if ($t !== $trad) {
+                    $changed = true;
+                    $multi['trads'][$lang] = $t;
+                }
+            }
+            if ($changed) {
+                $texte = $this->agglomerer_trads($multi['trads']);
+                $multi['raw'] = str_replace($multi['texte'], $texte, $multi['raw']);
+                $multi['texte'] = $texte;
+            }
+        }
+        return $collection;
+    }
+
+
+    /**
+     * Convertit le contenu d'une balise `<multi>` en un tableau
+     *
+     * Exemple de blocs.
+     * - `texte par défaut [fr] en français [en] en anglais`
+     * - `[fr] en français [en] en anglais`
+     *
+     * @param string $bloc
+     *     Le contenu intérieur d'un bloc multi
+     * @return array [code de langue => texte]
+     *     Peut retourner un code de langue vide, lorsqu'un texte par défaut est indiqué.
+     **/
+    protected function extraire_trads($bloc) {
+        $trads = [];
+
+        if (strlen($bloc)) {
+            $langs = $this->collecteur($bloc, ']', '[', '@[\[]([a-z]{2,3}(_[a-z]{2,3})?(_[a-z]{2,3})?)[\]]@siS');
+            $lang = '';
+            $pos_prev = 0;
+            foreach ($langs as $l) {
+                $pos = $l['pos'];
+                if ($lang or $pos > $pos_prev) {
+                    $trads[$lang] = substr($bloc, $pos_prev, $pos - $pos_prev);
+                }
+                $lang = $l['match'][1];
+                $pos_prev = $pos + $l['length'];
+            }
+            $trads[$lang] = substr($bloc, $pos_prev);
+        }
+
+        return $trads;
+    }
+
+    /**
+     * Recoller ensemble les trads pour reconstituer le texte dans la balise <multi>...</multi>
+     * @param $trads
+     * @return string
+     */
+    protected function agglomerer_trads($trads) {
+        $texte = '';
+        foreach ($trads as $lang => $trad) {
+            if ($texte or $lang) {
+                $texte .= "[$lang]";
+            }
+            $texte .= $trad;
+        }
+        return $texte;
+    }
+
+    /**
+     * @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
+        $multis = $this->collecteur($texte, '', '<multi', $this->preg_multi, 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 ($multis as $k => &$multi) {
+                $multi['texte'] = $multi['match'][1];
+                // extraire les trads du texte
+                $multi['trads'] = $this->extraire_trads($multi['texte']);
+            }
+        }
+
+        return $multis;
+    }
+
+    /**
+     * Traiter les multis d'un texte
+     *
+     * @uses approcher_langue()
+     * @uses lang_typo()
+     * @uses code_echappement()
+     * @uses echappe_retour()
+     *
+     * @param string $texte
+     * @param array $options
+     *   ?string $lang
+     *   ?string $lang_defaut
+     *   ?bool echappe_span
+     *   ?bool appliquer_typo
+     * @return string
+     */
+    public function traiter(string $texte, array $options) {
+        if ($texte) {
+
+            $multis = $this->collecter($texte);
+            if (!empty($multis)) {
+                $lang = $options['lang'] ?? $GLOBALS['spip_lang'];
+                $lang_defaut = $options['lang_defaut'] ?? _LANGUE_PAR_DEFAUT;
+                $echappe_span = $options['echappe_span'] ?? false;
+                $appliquer_typo = $options['appliquer_typo'] ?? true;
+
+                if (!function_exists('approcher_langue')) {
+                    include_spip('inc/lang');
+                }
+                if (!function_exists('code_echappement')) {
+                    include_spip('inc/texte_mini');
+                }
+
+                $offset_pos = 0;
+                foreach ($multis as $m) {
+
+                    // chercher la version de la langue courante
+                    $trads = $m['trads'];
+                    if (empty($trads)) {
+                        $trad = '';
+                    }
+                    elseif ($l = approcher_langue($trads, $lang)) {
+                        $trad = $trads[$l];
+                    } else {
+                        if ($lang_defaut == 'aucune') {
+                            $trad = '';
+                        } else {
+                            // langue absente, prendre le fr ou une langue précisée (meme comportement que inc/traduire.php)
+                            // ou la premiere dispo
+                            if (!$l = approcher_langue($trads, $options['lang_defaut'])) {
+                                $l = array_keys($trads);
+                                $l = reset($l);
+                            }
+
+                            // mais typographier le texte selon les regles de celle-ci
+                            // Attention aux blocs multi sur plusieurs lignes
+                            if ($appliquer_typo) {
+                                $trad = $trads[$l];
+                                $typographie = charger_fonction(lang_typo($l), 'typographie');
+                                $trad = $typographie($trad);
+
+                                // Tester si on echappe en span ou en div
+                                // il ne faut pas echapper en div si propre produit un seul paragraphe
+                                include_spip('inc/texte');
+                                $trad_propre = preg_replace(',(^<p[^>]*>|</p>$),Uims', '', propre($trad));
+                                $mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
+                                if ($mode === 'div') {
+                                    $trad = rtrim($trad) . "\n\n";
+                                }
+                                $trad = code_echappement($trad, 'multi', false, $mode);
+                                $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, 'multi');
+                                }
+                            }
+                        }
+                    }
+
+                    $texte = substr_replace($texte, $trad, $m['pos'] + $offset_pos, $m['length']);
+                    $offset_pos += strlen($trad) - $m['length'];
+                }
+            }
+        }
+
+        return $texte;
+    }
 
 }

Braces +1 added lines, -2 removed lines

@@ -185,8 +185,7 @@
 					$trads = $m['trads'];
 					if (empty($trads)) {
 						$trad = '';
-					}
-					elseif ($l = approcher_langue($trads, $lang)) {
+					} elseif ($l = approcher_langue($trads, $lang)) {
 						$trad = $trads[$l];
 					} else {
 						if ($lang_defaut == 'aucune') {

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/inc/texte_mini.php

Braces +2 added lines, -4 removed lines

@@ -83,8 +83,7 @@ 
 		  . '</code>'
 		  . '</pre>'
 		  . '</div>';
-	}
-	else {
+	} else {
 		$echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
 		$echap = str_replace("  ", " &nbsp;", $echap);
 		$html = "<code class=\"$class\" dir=\"ltr\"$attributs>" . $echap . '</code>';
@@ -611,8 +610,7 @@ 
 		$collecteurLiens = $collecteurModeles = null;
 		if (!empty($options['expanser_liens'])) {
 			$texte = expanser_liens($texte, $env['connect'] ?? '', $env['env'] ?? []);
-		}
-		else {
+		} else {
 			include_spip("src/Texte/Collecteur/AbstractCollecteur");
 			include_spip("src/Texte/Collecteur/Liens");
 			include_spip("src/Texte/Collecteur/Modeles");

Indentation +520 added lines, -520 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/filtres');
 include_spip('inc/lang');
@@ -39,21 +39,21 @@ 
  **/
 function definir_puce() {
 
-	// Attention au sens, qui n'est pas defini de la meme facon dans
-	// l'espace prive (spip_lang est la langue de l'interface, lang_dir
-	// celle du texte) et public (spip_lang est la langue du texte)
-	$dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
+    // Attention au sens, qui n'est pas defini de la meme facon dans
+    // l'espace prive (spip_lang est la langue de l'interface, lang_dir
+    // celle du texte) et public (spip_lang est la langue du texte)
+    $dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
 
-	$p = 'puce' . (test_espace_prive() ? '_prive' : '');
-	if ($dir == 'rtl') {
-		$p .= '_rtl';
-	}
+    $p = 'puce' . (test_espace_prive() ? '_prive' : '');
+    if ($dir == 'rtl') {
+        $p .= '_rtl';
+    }
 
-	if (!isset($GLOBALS[$p])) {
-		$GLOBALS[$p] = '<span class="spip-puce ' . $dir . '"><b>–</b></span>';
-	}
+    if (!isset($GLOBALS[$p])) {
+        $GLOBALS[$p] = '<span class="spip-puce ' . $dir . '"><b>–</b></span>';
+    }
 
-	return $GLOBALS[$p];
+    return $GLOBALS[$p];
 }
 
 /**
@@ -67,31 +67,31 @@ 
  */
 function spip_balisage_code(string $corps, bool $bloc = false, string $attributs = '', string $langage = '') {
 
-	$echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
-	$class = "spip_code " . ($bloc ? 'spip_code_block' : 'spip_code_inline');
-	if ($attributs) {
-		$attributs = " " . trim($attributs);
-	}
-	if ($langage) {
-		$class .= " language-$langage";
-		$attributs .= ' data-language="'. $langage .'"';
-	}
-	if ($bloc) {
-		$html = "<div class=\"precode\">"
-		  . "<pre class=\"$class\" dir=\"ltr\" style=\"text-align: left;\"$attributs>"
-		  . "<code>"
-		  . $echap
-		  . '</code>'
-		  . '</pre>'
-		  . '</div>';
-	}
-	else {
-		$echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
-		$echap = str_replace("  ", " &nbsp;", $echap);
-		$html = "<code class=\"$class\" dir=\"ltr\"$attributs>" . $echap . '</code>';
-	}
-
-	return $html;
+    $echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
+    $class = "spip_code " . ($bloc ? 'spip_code_block' : 'spip_code_inline');
+    if ($attributs) {
+        $attributs = " " . trim($attributs);
+    }
+    if ($langage) {
+        $class .= " language-$langage";
+        $attributs .= ' data-language="'. $langage .'"';
+    }
+    if ($bloc) {
+        $html = "<div class=\"precode\">"
+            . "<pre class=\"$class\" dir=\"ltr\" style=\"text-align: left;\"$attributs>"
+            . "<code>"
+            . $echap
+            . '</code>'
+            . '</pre>'
+            . '</div>';
+    }
+    else {
+        $echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
+        $echap = str_replace("  ", " &nbsp;", $echap);
+        $html = "<code class=\"$class\" dir=\"ltr\"$attributs>" . $echap . '</code>';
+    }
+
+    return $html;
 }
 
 
@@ -99,14 +99,14 @@ 
 // dont on souhaite qu'ils provoquent un saut de paragraphe
 
 if (!defined('_BALISES_BLOCS')) {
-	define(
-		'_BALISES_BLOCS',
-		'address|applet|article|aside|blockquote|button|center|d[ltd]|div|fieldset|fig(ure|caption)|footer|form|h[1-6r]|hgroup|head|header|iframe|li|map|marquee|nav|noscript|object|ol|pre|section|t(able|[rdh]|body|foot|extarea)|ul|script|style'
-	);
+    define(
+        '_BALISES_BLOCS',
+        'address|applet|article|aside|blockquote|button|center|d[ltd]|div|fieldset|fig(ure|caption)|footer|form|h[1-6r]|hgroup|head|header|iframe|li|map|marquee|nav|noscript|object|ol|pre|section|t(able|[rdh]|body|foot|extarea)|ul|script|style'
+    );
 }
 
 if (!defined('_BALISES_BLOCS_REGEXP')) {
-	define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
+    define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
 }
 
 //
@@ -117,100 +117,100 @@ 
 // une $source differente ; le script detecte automagiquement si ce qu'on
 // echappe est un div ou un span
 function code_echappement($rempl, $source = '', $no_transform = false, $mode = null) {
-	if (!strlen($rempl)) {
-		return '';
-	}
-
-	// Tester si on echappe en span ou en div
-	if (is_null($mode) or !in_array($mode, ['div', 'span'])) {
-		$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
-	}
-
-	// Decouper en morceaux, base64 a des probleme selon la taille de la pile
-	$taille = 30000;
-	$return = '';
-	for ($i = 0; $i < strlen($rempl); $i += $taille) {
-		// Convertir en base64 et cacher dans un attribut
-		// utiliser les " pour eviter le re-encodage de ' et &#8217
-		$base64 = base64_encode(substr($rempl, $i, $taille));
-		$return .= "<$mode class=\"base64$source\" title=\"$base64\"></$mode>";
-	}
-
-	return $return;
+    if (!strlen($rempl)) {
+        return '';
+    }
+
+    // Tester si on echappe en span ou en div
+    if (is_null($mode) or !in_array($mode, ['div', 'span'])) {
+        $mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
+    }
+
+    // Decouper en morceaux, base64 a des probleme selon la taille de la pile
+    $taille = 30000;
+    $return = '';
+    for ($i = 0; $i < strlen($rempl); $i += $taille) {
+        // Convertir en base64 et cacher dans un attribut
+        // utiliser les " pour eviter le re-encodage de ' et &#8217
+        $base64 = base64_encode(substr($rempl, $i, $taille));
+        $return .= "<$mode class=\"base64$source\" title=\"$base64\"></$mode>";
+    }
+
+    return $return;
 }
 
 
 // Echapper les <html>...</ html>
 function traiter_echap_html_dist($regs, $options = []) {
-	return $regs[3];
+    return $regs[3];
 }
 
 // Echapper les <pre>...</ pre>
 function traiter_echap_pre_dist($regs, $options = []) {
-	// echapper les <code> dans <pre>
-	$pre = $regs[3];
-
-	// echapper les < dans <code>
-	// on utilise _PROTEGE_BLOCS pour simplifier le code et la maintenance, mais on est interesse que par <code>
-	if (
-		strpos($pre, '<') !== false
-		and preg_match_all(_PROTEGE_BLOCS, $pre, $matches, PREG_SET_ORDER)
-	) {
-		foreach ($matches as $m) {
-			if ($m[1] === 'code') {
-				$code = '<code' . $m[2] . '>' . spip_htmlspecialchars($m[3]) . '</code>';
-				$pre = str_replace($m[0], $code, $pre);
-			}
-		}
-	}
-	return "<pre>$pre</pre>";
+    // echapper les <code> dans <pre>
+    $pre = $regs[3];
+
+    // echapper les < dans <code>
+    // on utilise _PROTEGE_BLOCS pour simplifier le code et la maintenance, mais on est interesse que par <code>
+    if (
+        strpos($pre, '<') !== false
+        and preg_match_all(_PROTEGE_BLOCS, $pre, $matches, PREG_SET_ORDER)
+    ) {
+        foreach ($matches as $m) {
+            if ($m[1] === 'code') {
+                $code = '<code' . $m[2] . '>' . spip_htmlspecialchars($m[3]) . '</code>';
+                $pre = str_replace($m[0], $code, $pre);
+            }
+        }
+    }
+    return "<pre>$pre</pre>";
 }
 
 // Echapper les <code>...</ code>
 function traiter_echap_code_dist($regs, $options = []) {
-	[, , $att, $corps] = $regs;
+    [, , $att, $corps] = $regs;
 
-	// ne pas mettre le <div...> s'il n'y a qu'une ligne
-	if (strpos($corps, "\n") !== false) {
-		// supprimer les sauts de ligne debut/fin
-		// (mais pas les espaces => ascii art).
-		$corps = preg_replace("/^[\n\r]+|[\n\r]+$/s", '', $corps);
+    // ne pas mettre le <div...> s'il n'y a qu'une ligne
+    if (strpos($corps, "\n") !== false) {
+        // supprimer les sauts de ligne debut/fin
+        // (mais pas les espaces => ascii art).
+        $corps = preg_replace("/^[\n\r]+|[\n\r]+$/s", '', $corps);
 
-		$echap = spip_balisage_code($corps, true, $att);
-	} else {
-		$echap = spip_balisage_code($corps, false, $att);
-	}
+        $echap = spip_balisage_code($corps, true, $att);
+    } else {
+        $echap = spip_balisage_code($corps, false, $att);
+    }
 
-	return $echap;
+    return $echap;
 }
 
 // Echapper les <cadre>...</ cadre> aka <frame>...</ frame>
 function traiter_echap_cadre_dist($regs, $options = []) {
-	$echap = trim(entites_html($regs[3]));
-	// compter les lignes un peu plus finement qu'avec les \n
-	$lignes = explode("\n", trim($echap));
-	$n = 0;
-	foreach ($lignes as $l) {
-		$n += floor(strlen($l) / 60) + 1;
-	}
-	$n = max($n, 2);
-	$echap = "\n<textarea readonly='readonly' cols='40' rows='$n' class='spip_cadre spip_cadre_block' dir='ltr'>$echap</textarea>";
-
-	return $echap;
+    $echap = trim(entites_html($regs[3]));
+    // compter les lignes un peu plus finement qu'avec les \n
+    $lignes = explode("\n", trim($echap));
+    $n = 0;
+    foreach ($lignes as $l) {
+        $n += floor(strlen($l) / 60) + 1;
+    }
+    $n = max($n, 2);
+    $echap = "\n<textarea readonly='readonly' cols='40' rows='$n' class='spip_cadre spip_cadre_block' dir='ltr'>$echap</textarea>";
+
+    return $echap;
 }
 
 function traiter_echap_frame_dist($regs, $options = []) {
-	return traiter_echap_cadre_dist($regs);
+    return traiter_echap_cadre_dist($regs);
 }
 
 function traiter_echap_script_dist($regs, $options = []) {
-	// rendre joli (et inactif) si c'est un script language=php
-	if (preg_match(',<script\b[^>]+php,ims', $regs[0])) {
-		return highlight_string($regs[0], true);
-	}
+    // rendre joli (et inactif) si c'est un script language=php
+    if (preg_match(',<script\b[^>]+php,ims', $regs[0])) {
+        return highlight_string($regs[0], true);
+    }
 
-	// Cas normal : le script passe tel quel
-	return $regs[0];
+    // Cas normal : le script passe tel quel
+    return $regs[0];
 }
 
 define('_PROTEGE_BLOCS', ',<(html|pre|code|cadre|frame|script|style)(\b[^>]*)?>(.*)</\1>,UimsS');
@@ -229,73 +229,73 @@ 
  * @return string|string[]
  */
 function echappe_html(
-	$letexte,
-	$source = '',
-	$no_transform = false,
-	$preg = '',
-	$callback_prefix = '',
-	$callback_options = []
+    $letexte,
+    $source = '',
+    $no_transform = false,
+    $preg = '',
+    $callback_prefix = '',
+    $callback_options = []
 ) {
-	if (!is_string($letexte) or !strlen($letexte)) {
-		return $letexte;
-	}
-
-	if (
-		($preg or str_contains($letexte, '<'))
-		and preg_match_all($preg ?: _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER)
-	) {
-		foreach ($matches as $regs) {
-			// echappements tels quels ?
-			if ($no_transform) {
-				$echap = $regs[0];
-			} // sinon les traiter selon le cas
-			else {
-				$callback_secure_prefix = ($callback_options['secure_prefix'] ?? '');
-				if (
-					function_exists($f = $callback_prefix . $callback_secure_prefix . 'traiter_echap_' . strtolower($regs[1]))
-					or function_exists($f = $f . '_dist')
-					or ($callback_secure_prefix and (
-						function_exists($f = $callback_prefix . 'traiter_echap_' . strtolower($regs[1]))
-						or function_exists($f = $f . '_dist')
-					))
-				) {
-					$echap = $f($regs, $callback_options);
-				}
-			}
-
-			$p = strpos($letexte, (string) $regs[0]);
-			$letexte = substr_replace($letexte, code_echappement($echap, $source, $no_transform), $p, strlen($regs[0]));
-		}
-	}
-
-	if ($no_transform) {
-		return $letexte;
-	}
-
-	// Echapper le php pour faire joli (ici, c'est pas pour la securite)
-	// seulement si on a echappe les <script>
-	// (derogatoire car on ne peut pas faire passer < ? ... ? >
-	// dans une callback autonommee
-	if (strpos($preg ?: _PROTEGE_BLOCS, 'script') !== false) {
-		if (
-			strpos($letexte, '<' . '?') !== false and preg_match_all(
-				',<[?].*($|[?]>),UisS',
-				$letexte,
-				$matches,
-				PREG_SET_ORDER
-			)
-		) {
-			foreach ($matches as $regs) {
-				$letexte = str_replace(
-					$regs[0],
-					code_echappement(highlight_string($regs[0], true), $source),
-					$letexte
-				);
-			}
-		}
-	}
-
-	return $letexte;
+    if (!is_string($letexte) or !strlen($letexte)) {
+        return $letexte;
+    }
+
+    if (
+        ($preg or str_contains($letexte, '<'))
+        and preg_match_all($preg ?: _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER)
+    ) {
+        foreach ($matches as $regs) {
+            // echappements tels quels ?
+            if ($no_transform) {
+                $echap = $regs[0];
+            } // sinon les traiter selon le cas
+            else {
+                $callback_secure_prefix = ($callback_options['secure_prefix'] ?? '');
+                if (
+                    function_exists($f = $callback_prefix . $callback_secure_prefix . 'traiter_echap_' . strtolower($regs[1]))
+                    or function_exists($f = $f . '_dist')
+                    or ($callback_secure_prefix and (
+                        function_exists($f = $callback_prefix . 'traiter_echap_' . strtolower($regs[1]))
+                        or function_exists($f = $f . '_dist')
+                    ))
+                ) {
+                    $echap = $f($regs, $callback_options);
+                }
+            }
+
+            $p = strpos($letexte, (string) $regs[0]);
+            $letexte = substr_replace($letexte, code_echappement($echap, $source, $no_transform), $p, strlen($regs[0]));
+        }
+    }
+
+    if ($no_transform) {
+        return $letexte;
+    }
+
+    // Echapper le php pour faire joli (ici, c'est pas pour la securite)
+    // seulement si on a echappe les <script>
+    // (derogatoire car on ne peut pas faire passer < ? ... ? >
+    // dans une callback autonommee
+    if (strpos($preg ?: _PROTEGE_BLOCS, 'script') !== false) {
+        if (
+            strpos($letexte, '<' . '?') !== false and preg_match_all(
+                ',<[?].*($|[?]>),UisS',
+                $letexte,
+                $matches,
+                PREG_SET_ORDER
+            )
+        ) {
+            foreach ($matches as $regs) {
+                $letexte = str_replace(
+                    $regs[0],
+                    code_echappement(highlight_string($regs[0], true), $source),
+                    $letexte
+                );
+            }
+        }
+    }
+
+    return $letexte;
 }
 
 //
@@ -303,57 +303,57 @@ 
 // Rq: $source sert a faire des echappements "a soi" qui ne sont pas nettoyes
 // par propre() : exemple dans multi et dans typo()
 function echappe_retour($letexte, $source = '', $filtre = '') {
-	if (strpos($letexte, (string) "base64$source")) {
-		# spip_log(spip_htmlspecialchars($letexte));  ## pour les curieux
-		$max_prof = 5;
-		while (
-			strpos($letexte, '<') !== false
-			and
-			preg_match_all(
-				',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
-				$letexte,
-				$regs,
-				PREG_SET_ORDER
-			)
-			and $max_prof--
-		) {
-			foreach ($regs as $reg) {
-				$rempl = base64_decode(extraire_attribut($reg[0], 'title'));
-				// recherche d'attributs supplementaires
-				$at = [];
-				foreach (['lang', 'dir'] as $attr) {
-					if ($a = extraire_attribut($reg[0], $attr)) {
-						$at[$attr] = $a;
-					}
-				}
-				if ($at) {
-					$rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
-					foreach ($at as $attr => $a) {
-						$rempl = inserer_attribut($rempl, $attr, $a);
-					}
-				}
-				if ($filtre) {
-					$rempl = $filtre($rempl);
-				}
-				$letexte = str_replace($reg[0], $rempl, $letexte);
-			}
-		}
-	}
-
-	return $letexte;
+    if (strpos($letexte, (string) "base64$source")) {
+        # spip_log(spip_htmlspecialchars($letexte));  ## pour les curieux
+        $max_prof = 5;
+        while (
+            strpos($letexte, '<') !== false
+            and
+            preg_match_all(
+                ',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
+                $letexte,
+                $regs,
+                PREG_SET_ORDER
+            )
+            and $max_prof--
+        ) {
+            foreach ($regs as $reg) {
+                $rempl = base64_decode(extraire_attribut($reg[0], 'title'));
+                // recherche d'attributs supplementaires
+                $at = [];
+                foreach (['lang', 'dir'] as $attr) {
+                    if ($a = extraire_attribut($reg[0], $attr)) {
+                        $at[$attr] = $a;
+                    }
+                }
+                if ($at) {
+                    $rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
+                    foreach ($at as $attr => $a) {
+                        $rempl = inserer_attribut($rempl, $attr, $a);
+                    }
+                }
+                if ($filtre) {
+                    $rempl = $filtre($rempl);
+                }
+                $letexte = str_replace($reg[0], $rempl, $letexte);
+            }
+        }
+    }
+
+    return $letexte;
 }
 
 // Reinserer le javascript de confiance (venant des modeles)
 
 function echappe_retour_modeles($letexte, $interdire_scripts = false) {
-	$letexte = echappe_retour($letexte);
+    $letexte = echappe_retour($letexte);
 
-	// Dans les appels directs hors squelette, securiser aussi ici
-	if ($interdire_scripts) {
-		$letexte = interdire_scripts($letexte);
-	}
+    // Dans les appels directs hors squelette, securiser aussi ici
+    if ($interdire_scripts) {
+        $letexte = interdire_scripts($letexte);
+    }
 
-	return trim($letexte);
+    return trim($letexte);
 }
 
 
@@ -381,131 +381,131 @@ 
  *     texte coupé
  **/
 function couper($texte, $taille = 50, $suite = null) {
-	if (!($length = strlen($texte)) or $taille <= 0) {
-		return '';
-	}
-	$offset = 400 + 2 * $taille;
-	while (
-		$offset < $length
-		and strlen(preg_replace(',<(!--|\w|/)[^>]+>,Uims', '', substr($texte, 0, $offset))) < $taille
-	) {
-		$offset = 2 * $offset;
-	}
-	if (
-		$offset < $length
-		&& ($p_tag_ouvrant = strpos($texte, '<', $offset)) !== null
-	) {
-		$p_tag_fermant = strpos($texte, '>', $offset);
-		if ($p_tag_fermant && ($p_tag_fermant < $p_tag_ouvrant)) {
-			$offset = $p_tag_fermant + 1;
-		} // prolonger la coupe jusqu'au tag fermant suivant eventuel
-	}
-	$texte = substr($texte, 0, $offset); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
-
-	if (!function_exists('nettoyer_raccourcis_typo')) {
-		include_spip('inc/lien');
-	}
-	$texte = nettoyer_raccourcis_typo($texte);
-
-	// balises de sauts de ligne et paragraphe
-	$texte = preg_replace('/<p( [^>]*)?' . '>/', "\r", $texte);
-	$texte = preg_replace('/<br( [^>]*)?' . '>/', "\n", $texte);
-
-	// on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
-	$texte = str_replace("\n\n", "\r", $texte);
-
-	// supprimer les tags
-	$texte = supprimer_tags($texte);
-	$texte = trim(str_replace("\n", ' ', $texte));
-	$texte .= "\n";  // marquer la fin
-
-	// corriger la longueur de coupe
-	// en fonction de la presence de caracteres utf
-	if ($GLOBALS['meta']['charset'] == 'utf-8') {
-		$long = charset2unicode($texte);
-		$long = spip_substr($long, 0, max($taille, 1));
-		$nbcharutf = preg_match_all('/(&#[0-9]{3,6};)/S', $long, $matches);
-		$taille += $nbcharutf;
-	}
-
-
-	// couper au mot precedent
-	$long = spip_substr($texte, 0, max($taille - 4, 1));
-	$u = $GLOBALS['meta']['pcre_u'];
-	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
-	if (is_null($suite)) {
-		$suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
-	}
-	$points = $suite;
-
-	// trop court ? ne pas faire de (...)
-	if (spip_strlen($court) < max(0.75 * $taille, 2)) {
-		$points = '';
-		$long = spip_substr($texte, 0, $taille);
-		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
-		// encore trop court ? couper au caractere
-		if (spip_strlen($texte) < 0.75 * $taille) {
-			$texte = $long;
-		}
-	} else {
-		$texte = $court;
-	}
-
-	if (strpos($texte, "\n")) {  // la fin est encore la : c'est qu'on n'a pas de texte de suite
-	$points = '';
-	}
-
-	// remettre les paragraphes
-	$texte = preg_replace("/\r+/", "\n\n", $texte);
-
-	// supprimer l'eventuelle entite finale mal coupee
-	$texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
-
-	return quote_amp(trim($texte)) . $points;
+    if (!($length = strlen($texte)) or $taille <= 0) {
+        return '';
+    }
+    $offset = 400 + 2 * $taille;
+    while (
+        $offset < $length
+        and strlen(preg_replace(',<(!--|\w|/)[^>]+>,Uims', '', substr($texte, 0, $offset))) < $taille
+    ) {
+        $offset = 2 * $offset;
+    }
+    if (
+        $offset < $length
+        && ($p_tag_ouvrant = strpos($texte, '<', $offset)) !== null
+    ) {
+        $p_tag_fermant = strpos($texte, '>', $offset);
+        if ($p_tag_fermant && ($p_tag_fermant < $p_tag_ouvrant)) {
+            $offset = $p_tag_fermant + 1;
+        } // prolonger la coupe jusqu'au tag fermant suivant eventuel
+    }
+    $texte = substr($texte, 0, $offset); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
+
+    if (!function_exists('nettoyer_raccourcis_typo')) {
+        include_spip('inc/lien');
+    }
+    $texte = nettoyer_raccourcis_typo($texte);
+
+    // balises de sauts de ligne et paragraphe
+    $texte = preg_replace('/<p( [^>]*)?' . '>/', "\r", $texte);
+    $texte = preg_replace('/<br( [^>]*)?' . '>/', "\n", $texte);
+
+    // on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
+    $texte = str_replace("\n\n", "\r", $texte);
+
+    // supprimer les tags
+    $texte = supprimer_tags($texte);
+    $texte = trim(str_replace("\n", ' ', $texte));
+    $texte .= "\n";  // marquer la fin
+
+    // corriger la longueur de coupe
+    // en fonction de la presence de caracteres utf
+    if ($GLOBALS['meta']['charset'] == 'utf-8') {
+        $long = charset2unicode($texte);
+        $long = spip_substr($long, 0, max($taille, 1));
+        $nbcharutf = preg_match_all('/(&#[0-9]{3,6};)/S', $long, $matches);
+        $taille += $nbcharutf;
+    }
+
+
+    // couper au mot precedent
+    $long = spip_substr($texte, 0, max($taille - 4, 1));
+    $u = $GLOBALS['meta']['pcre_u'];
+    $court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+    if (is_null($suite)) {
+        $suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
+    }
+    $points = $suite;
+
+    // trop court ? ne pas faire de (...)
+    if (spip_strlen($court) < max(0.75 * $taille, 2)) {
+        $points = '';
+        $long = spip_substr($texte, 0, $taille);
+        $texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+        // encore trop court ? couper au caractere
+        if (spip_strlen($texte) < 0.75 * $taille) {
+            $texte = $long;
+        }
+    } else {
+        $texte = $court;
+    }
+
+    if (strpos($texte, "\n")) {  // la fin est encore la : c'est qu'on n'a pas de texte de suite
+    $points = '';
+    }
+
+    // remettre les paragraphes
+    $texte = preg_replace("/\r+/", "\n\n", $texte);
+
+    // supprimer l'eventuelle entite finale mal coupee
+    $texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
+
+    return quote_amp(trim($texte)) . $points;
 }
 
 
 function protege_js_modeles($t) {
-	if (isset($GLOBALS['visiteur_session'])) {
-		if (preg_match_all(',<script.*?($|</script.),isS', $t, $r, PREG_SET_ORDER)) {
-			if (!defined('_PROTEGE_JS_MODELES')) {
-				include_spip('inc/acces');
-				define('_PROTEGE_JS_MODELES', creer_uniqid());
-			}
-			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
-			}
-		}
-		if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
-			if (!defined('_PROTEGE_PHP_MODELES')) {
-				include_spip('inc/acces');
-				define('_PROTEGE_PHP_MODELES', creer_uniqid());
-			}
-			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
-			}
-		}
-	}
-
-	return $t;
+    if (isset($GLOBALS['visiteur_session'])) {
+        if (preg_match_all(',<script.*?($|</script.),isS', $t, $r, PREG_SET_ORDER)) {
+            if (!defined('_PROTEGE_JS_MODELES')) {
+                include_spip('inc/acces');
+                define('_PROTEGE_JS_MODELES', creer_uniqid());
+            }
+            foreach ($r as $regs) {
+                $t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
+            }
+        }
+        if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
+            if (!defined('_PROTEGE_PHP_MODELES')) {
+                include_spip('inc/acces');
+                define('_PROTEGE_PHP_MODELES', creer_uniqid());
+            }
+            foreach ($r as $regs) {
+                $t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
+            }
+        }
+    }
+
+    return $t;
 }
 
 
 function echapper_faux_tags($letexte) {
-	if (strpos($letexte, '<') === false) {
-		return $letexte;
-	}
-	$textMatches = preg_split(',(</?[a-z!][^<>]*>),', $letexte, -1, PREG_SPLIT_DELIM_CAPTURE);
-
-	$letexte = '';
-	while (is_countable($textMatches) ? count($textMatches) : 0) {
-		// un texte a echapper
-		$letexte .= str_replace('<', '&lt;', array_shift($textMatches));
-		// un tag html qui a servit a faite le split
-		$letexte .= array_shift($textMatches);
-	}
-
-	return $letexte;
+    if (strpos($letexte, '<') === false) {
+        return $letexte;
+    }
+    $textMatches = preg_split(',(</?[a-z!][^<>]*>),', $letexte, -1, PREG_SPLIT_DELIM_CAPTURE);
+
+    $letexte = '';
+    while (is_countable($textMatches) ? count($textMatches) : 0) {
+        // un texte a echapper
+        $letexte .= str_replace('<', '&lt;', array_shift($textMatches));
+        // un tag html qui a servit a faite le split
+        $letexte .= array_shift($textMatches);
+    }
+
+    return $letexte;
 }
 
 /**
@@ -525,115 +525,115 @@ 
  * @return string
  */
 function echapper_html_suspect($texte, $options = [], $connect = null, $env = []) {
-	static $echapper_html_suspect;
-	if (!$texte or !is_string($texte)) {
-		return $texte;
-	}
-
-	if (!isset($echapper_html_suspect)) {
-		$echapper_html_suspect = charger_fonction('echapper_html_suspect', 'inc', true);
-	}
-	// si fonction personalisee, on delegue
-	if ($echapper_html_suspect) {
-		// on collecte le tableau d'arg minimal pour ne pas casser un appel a une fonction inc_echapper_html_suspect() selon l'ancienne signature
-		$args = [$texte, $options];
-		if ($connect or !empty($env)) {
-			$args[] = $connect;
-		}
-		if (!empty($env)) {
-			$args[] = $env;
-		}
-		return $echapper_html_suspect(...$args);
-	}
-
-	if (is_bool($options)) {
-		$options = ['strict' => $options];
-	}
-	$strict = $options['strict'] ?? true;
-
-	// pas de balise html ou pas d'attribut sur les balises ? c'est OK
-	if (
-		strpos($texte, '<') === false
-		or !str_contains($texte, '=')
-	) {
-		return $texte;
-	}
-
-	// dans le prive, on veut afficher tout echappé pour la moderation
-	if (!isset($env['espace_prive'])) {
-		// conserver le comportement historique en cas d'appel court sans env
-		$env['espace_prive'] = test_espace_prive();
-	}
-	if (!empty($env['espace_prive']) or !empty($env['wysiwyg'])) {
-
-		// quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
-		// car sinon on declenche sur les modeles ou ressources
-		if (
-			!$strict and
-			(strpos($texte, 'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
-		) {
-			return $texte;
-		}
-
-		include_spip("src/Texte/Collecteur/AbstractCollecteur");
-		include_spip("src/Texte/Collecteur/Modeles");
-		$collecteurModeles = new Spip\Texte\Collecteur\Modeles();
-		$texte = $collecteurModeles->echapper($texte);
-		$texte = echappe_js($texte);
-
-		$texte_to_check = $texte;
-		// si les raccourcis liens vont etre interprétés, il faut les expanser avant de vérifier que le html est safe
-		// car un raccourci peut etre utilisé pour faire un lien malin
-		// et un raccourci est potentiellement modifié par safehtml, ce qui fait un faux positif dans is_html_safe
-		if (!empty($options['expanser_liens'])) {
-			$texte_to_check = expanser_liens($texte_to_check, $env['connect'] ?? '', $env['env'] ?? []);
-		}
-		if (!is_html_safe($texte_to_check)) {
-			$texte = $options['texte_source_affiche'] ?? $texte;
-			$texte = preg_replace(",<(/?\w+\b[^>]*>),", "<tt>&lt;\\1</tt>", $texte);
-			$texte = str_replace('<', '&lt;', $texte);
-			$texte = str_replace('&lt;tt>', '<tt>', $texte);
-			$texte = str_replace('&lt;/tt>', '</tt>', $texte);
-			if (!function_exists('attribut_html')) {
-				include_spip('inc/filtres');
-			}
-			if (!empty($options['wrap_suspect'])) {
-				$texte = wrap($texte, $options['wrap_suspect']);
-			}
-			$texte = "<mark class='danger-js' title='" . attribut_html(_T('erreur_contenu_suspect')) . "'>⚠️</mark> " . $texte;
-		}
-
-		$texte = $collecteurModeles->retablir($texte);
-	}
-
-	// si on est là dans le public c'est le mode parano
-	// on veut donc un rendu propre et secure, et virer silencieusement ce qui est dangereux
-	else {
-		$collecteurLiens = $collecteurModeles = null;
-		if (!empty($options['expanser_liens'])) {
-			$texte = expanser_liens($texte, $env['connect'] ?? '', $env['env'] ?? []);
-		}
-		else {
-			include_spip("src/Texte/Collecteur/AbstractCollecteur");
-			include_spip("src/Texte/Collecteur/Liens");
-			include_spip("src/Texte/Collecteur/Modeles");
-
-			$collecteurLiens = new Spip\Texte\Collecteur\Liens();
-			$texte = $collecteurLiens->echapper($texte, ['sanitize_callback' => 'safehtml']);
-
-			$collecteurModeles = new Spip\Texte\Collecteur\Modeles();
-			$texte = $collecteurModeles->echapper($texte);
-		}
-		$texte = safehtml($texte);
-		if ($collecteurModeles) {
-			$texte = $collecteurModeles->retablir($texte);
-		}
-		if ($collecteurLiens) {
-			$texte = $collecteurLiens->retablir($texte);
-		}
-	}
-
-	return $texte;
+    static $echapper_html_suspect;
+    if (!$texte or !is_string($texte)) {
+        return $texte;
+    }
+
+    if (!isset($echapper_html_suspect)) {
+        $echapper_html_suspect = charger_fonction('echapper_html_suspect', 'inc', true);
+    }
+    // si fonction personalisee, on delegue
+    if ($echapper_html_suspect) {
+        // on collecte le tableau d'arg minimal pour ne pas casser un appel a une fonction inc_echapper_html_suspect() selon l'ancienne signature
+        $args = [$texte, $options];
+        if ($connect or !empty($env)) {
+            $args[] = $connect;
+        }
+        if (!empty($env)) {
+            $args[] = $env;
+        }
+        return $echapper_html_suspect(...$args);
+    }
+
+    if (is_bool($options)) {
+        $options = ['strict' => $options];
+    }
+    $strict = $options['strict'] ?? true;
+
+    // pas de balise html ou pas d'attribut sur les balises ? c'est OK
+    if (
+        strpos($texte, '<') === false
+        or !str_contains($texte, '=')
+    ) {
+        return $texte;
+    }
+
+    // dans le prive, on veut afficher tout echappé pour la moderation
+    if (!isset($env['espace_prive'])) {
+        // conserver le comportement historique en cas d'appel court sans env
+        $env['espace_prive'] = test_espace_prive();
+    }
+    if (!empty($env['espace_prive']) or !empty($env['wysiwyg'])) {
+
+        // quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
+        // car sinon on declenche sur les modeles ou ressources
+        if (
+            !$strict and
+            (strpos($texte, 'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
+        ) {
+            return $texte;
+        }
+
+        include_spip("src/Texte/Collecteur/AbstractCollecteur");
+        include_spip("src/Texte/Collecteur/Modeles");
+        $collecteurModeles = new Spip\Texte\Collecteur\Modeles();
+        $texte = $collecteurModeles->echapper($texte);
+        $texte = echappe_js($texte);
+
+        $texte_to_check = $texte;
+        // si les raccourcis liens vont etre interprétés, il faut les expanser avant de vérifier que le html est safe
+        // car un raccourci peut etre utilisé pour faire un lien malin
+        // et un raccourci est potentiellement modifié par safehtml, ce qui fait un faux positif dans is_html_safe
+        if (!empty($options['expanser_liens'])) {
+            $texte_to_check = expanser_liens($texte_to_check, $env['connect'] ?? '', $env['env'] ?? []);
+        }
+        if (!is_html_safe($texte_to_check)) {
+            $texte = $options['texte_source_affiche'] ?? $texte;
+            $texte = preg_replace(",<(/?\w+\b[^>]*>),", "<tt>&lt;\\1</tt>", $texte);
+            $texte = str_replace('<', '&lt;', $texte);
+            $texte = str_replace('&lt;tt>', '<tt>', $texte);
+            $texte = str_replace('&lt;/tt>', '</tt>', $texte);
+            if (!function_exists('attribut_html')) {
+                include_spip('inc/filtres');
+            }
+            if (!empty($options['wrap_suspect'])) {
+                $texte = wrap($texte, $options['wrap_suspect']);
+            }
+            $texte = "<mark class='danger-js' title='" . attribut_html(_T('erreur_contenu_suspect')) . "'>⚠️</mark> " . $texte;
+        }
+
+        $texte = $collecteurModeles->retablir($texte);
+    }
+
+    // si on est là dans le public c'est le mode parano
+    // on veut donc un rendu propre et secure, et virer silencieusement ce qui est dangereux
+    else {
+        $collecteurLiens = $collecteurModeles = null;
+        if (!empty($options['expanser_liens'])) {
+            $texte = expanser_liens($texte, $env['connect'] ?? '', $env['env'] ?? []);
+        }
+        else {
+            include_spip("src/Texte/Collecteur/AbstractCollecteur");
+            include_spip("src/Texte/Collecteur/Liens");
+            include_spip("src/Texte/Collecteur/Modeles");
+
+            $collecteurLiens = new Spip\Texte\Collecteur\Liens();
+            $texte = $collecteurLiens->echapper($texte, ['sanitize_callback' => 'safehtml']);
+
+            $collecteurModeles = new Spip\Texte\Collecteur\Modeles();
+            $texte = $collecteurModeles->echapper($texte);
+        }
+        $texte = safehtml($texte);
+        if ($collecteurModeles) {
+            $texte = $collecteurModeles->retablir($texte);
+        }
+        if ($collecteurLiens) {
+            $texte = $collecteurLiens->retablir($texte);
+        }
+    }
+
+    return $texte;
 }
 
 
@@ -654,52 +654,52 @@ 
  *      texte sécurisé
  **/
 function safehtml($t) {
-	static $safehtml;
-
-	if (!$t or !is_string($t)) {
-		return $t;
-	}
-	# attention safehtml nettoie deux ou trois caracteres de plus. A voir
-	if (strpos($t, '<') === false) {
-		return str_replace("\x00", '', $t);
-	}
-
-	$collecteurIdiomes = null;
-	if (stripos($t, '<:') !== false) {
-		include_spip("src/Texte/Collecteur/AbstractCollecteur");
-		include_spip("src/Texte/Collecteur/Idiomes");
-		$collecteurIdiomes = new Spip\Texte\Collecteur\Idiomes();
-		$t = $collecteurIdiomes->echapper($t);
-	}
-	$collecteurMultis = null;
-	if (stripos($t, '<multi') !== false) {
-		include_spip("src/Texte/Collecteur/AbstractCollecteur");
-		include_spip("src/Texte/Collecteur/Multis");
-		$collecteurMultis = new Spip\Texte\Collecteur\Multis();
-		$t = $collecteurMultis->echapper($t, ['sanitize_callback' => 'safehtml']);
-	}
-
-	if (!function_exists('interdire_scripts')) {
-		include_spip('inc/texte');
-	}
-	$t = interdire_scripts($t); // jolifier le php
-	$t = echappe_js($t);
-
-	if (!isset($safehtml)) {
-		$safehtml = charger_fonction('safehtml', 'inc', true);
-	}
-	if ($safehtml) {
-		$t = $safehtml($t);
-	}
-
-	if ($collecteurMultis) {
-		$t = $collecteurMultis->retablir($t);
-	}
-	if ($collecteurIdiomes) {
-		$t = $collecteurIdiomes->retablir($t);
-	}
-
-	return interdire_scripts($t); // interdire le php (2 precautions)
+    static $safehtml;
+
+    if (!$t or !is_string($t)) {
+        return $t;
+    }
+    # attention safehtml nettoie deux ou trois caracteres de plus. A voir
+    if (strpos($t, '<') === false) {
+        return str_replace("\x00", '', $t);
+    }
+
+    $collecteurIdiomes = null;
+    if (stripos($t, '<:') !== false) {
+        include_spip("src/Texte/Collecteur/AbstractCollecteur");
+        include_spip("src/Texte/Collecteur/Idiomes");
+        $collecteurIdiomes = new Spip\Texte\Collecteur\Idiomes();
+        $t = $collecteurIdiomes->echapper($t);
+    }
+    $collecteurMultis = null;
+    if (stripos($t, '<multi') !== false) {
+        include_spip("src/Texte/Collecteur/AbstractCollecteur");
+        include_spip("src/Texte/Collecteur/Multis");
+        $collecteurMultis = new Spip\Texte\Collecteur\Multis();
+        $t = $collecteurMultis->echapper($t, ['sanitize_callback' => 'safehtml']);
+    }
+
+    if (!function_exists('interdire_scripts')) {
+        include_spip('inc/texte');
+    }
+    $t = interdire_scripts($t); // jolifier le php
+    $t = echappe_js($t);
+
+    if (!isset($safehtml)) {
+        $safehtml = charger_fonction('safehtml', 'inc', true);
+    }
+    if ($safehtml) {
+        $t = $safehtml($t);
+    }
+
+    if ($collecteurMultis) {
+        $t = $collecteurMultis->retablir($t);
+    }
+    if ($collecteurIdiomes) {
+        $t = $collecteurIdiomes->retablir($t);
+    }
+
+    return interdire_scripts($t); // interdire le php (2 precautions)
 }
 
 
@@ -707,25 +707,25 @@ 
  * Detecter si un texte est "safe" ie non modifie significativement par safehtml()
  */
 function is_html_safe(string $texte): bool {
-	if ($is_html_safe = charger_fonction('is_html_safe', 'inc', true)) {
-		return $is_html_safe($texte);
-	}
-
-	// simplifier les retour ligne pour etre certain de ce que l'on compare
-	$texte = str_replace("\r\n", "\n", $texte);
-	// safehtml reduit aussi potentiellement les &nbsp;
-	$texte = str_replace("&nbsp;", " ", $texte);
-	// safehtml remplace les entités numériques
-	if (strpos($texte, '&#') !== false) {
-		$texte = unicode2charset($texte);
-	}
-
-	$texte_safe = safehtml($texte);
-
-	// on teste sur strlen car safehtml supprime le contenu dangereux
-	// mais il peut aussi changer des ' en " sur les attributs html,
-	// donc un test d'egalite est trop strict
-	return strlen($texte_safe) === strlen($texte);
+    if ($is_html_safe = charger_fonction('is_html_safe', 'inc', true)) {
+        return $is_html_safe($texte);
+    }
+
+    // simplifier les retour ligne pour etre certain de ce que l'on compare
+    $texte = str_replace("\r\n", "\n", $texte);
+    // safehtml reduit aussi potentiellement les &nbsp;
+    $texte = str_replace("&nbsp;", " ", $texte);
+    // safehtml remplace les entités numériques
+    if (strpos($texte, '&#') !== false) {
+        $texte = unicode2charset($texte);
+    }
+
+    $texte_safe = safehtml($texte);
+
+    // on teste sur strlen car safehtml supprime le contenu dangereux
+    // mais il peut aussi changer des ' en " sur les attributs html,
+    // donc un test d'egalite est trop strict
+    return strlen($texte_safe) === strlen($texte);
 }
 
 /**
@@ -746,13 +746,13 @@ 
  *     texte sans les modèles d'image
  **/
 function supprime_img($letexte, $message = null) {
-	if ($message === null) {
-		$message = '(' . _T('img_indisponible') . ')';
-	}
-
-	return preg_replace(
-		',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
-		$message,
-		$letexte
-	);
+    if ($message === null) {
+        $message = '(' . _T('img_indisponible') . ')';
+    }
+
+    return preg_replace(
+        ',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
+        $message,
+        $letexte
+    );
 }

Spacing +29 added lines, -29 removed lines

@@ -44,13 +44,13 @@ 
 	// celle du texte) et public (spip_lang est la langue du texte)
 	$dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
 
-	$p = 'puce' . (test_espace_prive() ? '_prive' : '');
+	$p = 'puce'.(test_espace_prive() ? '_prive' : '');
 	if ($dir == 'rtl') {
 		$p .= '_rtl';
 	}
 
 	if (!isset($GLOBALS[$p])) {
-		$GLOBALS[$p] = '<span class="spip-puce ' . $dir . '"><b>–</b></span>';
+		$GLOBALS[$p] = '<span class="spip-puce '.$dir.'"><b>–</b></span>';
 	}
 
 	return $GLOBALS[$p];
@@ -68,13 +68,13 @@ 
 function spip_balisage_code(string $corps, bool $bloc = false, string $attributs = '', string $langage = '') {
 
 	$echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
-	$class = "spip_code " . ($bloc ? 'spip_code_block' : 'spip_code_inline');
+	$class = "spip_code ".($bloc ? 'spip_code_block' : 'spip_code_inline');
 	if ($attributs) {
-		$attributs = " " . trim($attributs);
+		$attributs = " ".trim($attributs);
 	}
 	if ($langage) {
 		$class .= " language-$langage";
-		$attributs .= ' data-language="'. $langage .'"';
+		$attributs .= ' data-language="'.$langage.'"';
 	}
 	if ($bloc) {
 		$html = "<div class=\"precode\">"
@@ -88,7 +88,7 @@ 
 	else {
 		$echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
 		$echap = str_replace("  ", " &nbsp;", $echap);
-		$html = "<code class=\"$class\" dir=\"ltr\"$attributs>" . $echap . '</code>';
+		$html = "<code class=\"$class\" dir=\"ltr\"$attributs>".$echap.'</code>';
 	}
 
 	return $html;
@@ -106,7 +106,7 @@ 
 }
 
 if (!defined('_BALISES_BLOCS_REGEXP')) {
-	define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
+	define('_BALISES_BLOCS_REGEXP', ',</?('._BALISES_BLOCS.')[>[:space:]],iS');
 }
 
 //
@@ -123,7 +123,7 @@ 
 
 	// Tester si on echappe en span ou en div
 	if (is_null($mode) or !in_array($mode, ['div', 'span'])) {
-		$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
+		$mode = preg_match(',</?('._BALISES_BLOCS.')[>[:space:]],iS', $rempl) ? 'div' : 'span';
 	}
 
 	// Decouper en morceaux, base64 a des probleme selon la taille de la pile
@@ -158,7 +158,7 @@ 
 	) {
 		foreach ($matches as $m) {
 			if ($m[1] === 'code') {
-				$code = '<code' . $m[2] . '>' . spip_htmlspecialchars($m[3]) . '</code>';
+				$code = '<code'.$m[2].'>'.spip_htmlspecialchars($m[3]).'</code>';
 				$pre = str_replace($m[0], $code, $pre);
 			}
 		}
@@ -168,7 +168,7 @@ 
 
 // Echapper les <code>...</ code>
 function traiter_echap_code_dist($regs, $options = []) {
-	[, , $att, $corps] = $regs;
+	[,, $att, $corps] = $regs;
 
 	// ne pas mettre le <div...> s'il n'y a qu'une ligne
 	if (strpos($corps, "\n") !== false) {
@@ -252,11 +252,11 @@ 
 			else {
 				$callback_secure_prefix = ($callback_options['secure_prefix'] ?? '');
 				if (
-					function_exists($f = $callback_prefix . $callback_secure_prefix . 'traiter_echap_' . strtolower($regs[1]))
-					or function_exists($f = $f . '_dist')
+					function_exists($f = $callback_prefix.$callback_secure_prefix.'traiter_echap_'.strtolower($regs[1]))
+					or function_exists($f = $f.'_dist')
 					or ($callback_secure_prefix and (
-						function_exists($f = $callback_prefix . 'traiter_echap_' . strtolower($regs[1]))
-						or function_exists($f = $f . '_dist')
+						function_exists($f = $callback_prefix.'traiter_echap_'.strtolower($regs[1]))
+						or function_exists($f = $f.'_dist')
 					))
 				) {
 					$echap = $f($regs, $callback_options);
@@ -278,7 +278,7 @@ 
 	// dans une callback autonommee
 	if (strpos($preg ?: _PROTEGE_BLOCS, 'script') !== false) {
 		if (
-			strpos($letexte, '<' . '?') !== false and preg_match_all(
+			strpos($letexte, '<'.'?') !== false and preg_match_all(
 				',<[?].*($|[?]>),UisS',
 				$letexte,
 				$matches,
@@ -310,7 +310,7 @@ 
 			strpos($letexte, '<') !== false
 			and
 			preg_match_all(
-				',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
+				',<(span|div)\sclass=[\'"]base64'.$source.'[\'"]\s(.*)>\s*</\1>,UmsS',
 				$letexte,
 				$regs,
 				PREG_SET_ORDER
@@ -327,7 +327,7 @@ 
 					}
 				}
 				if ($at) {
-					$rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
+					$rempl = '<'.$reg[1].'>'.$rempl.'</'.$reg[1].'>';
 					foreach ($at as $attr => $a) {
 						$rempl = inserer_attribut($rempl, $attr, $a);
 					}
@@ -408,8 +408,8 @@ 
 	$texte = nettoyer_raccourcis_typo($texte);
 
 	// balises de sauts de ligne et paragraphe
-	$texte = preg_replace('/<p( [^>]*)?' . '>/', "\r", $texte);
-	$texte = preg_replace('/<br( [^>]*)?' . '>/', "\n", $texte);
+	$texte = preg_replace('/<p( [^>]*)?'.'>/', "\r", $texte);
+	$texte = preg_replace('/<br( [^>]*)?'.'>/', "\n", $texte);
 
 	// on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
 	$texte = str_replace("\n\n", "\r", $texte);
@@ -417,7 +417,7 @@ 
 	// supprimer les tags
 	$texte = supprimer_tags($texte);
 	$texte = trim(str_replace("\n", ' ', $texte));
-	$texte .= "\n";  // marquer la fin
+	$texte .= "\n"; // marquer la fin
 
 	// corriger la longueur de coupe
 	// en fonction de la presence de caracteres utf
@@ -432,7 +432,7 @@ 
 	// couper au mot precedent
 	$long = spip_substr($texte, 0, max($taille - 4, 1));
 	$u = $GLOBALS['meta']['pcre_u'];
-	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/".$u, "\\1", $long);
 	if (is_null($suite)) {
 		$suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
 	}
@@ -442,7 +442,7 @@ 
 	if (spip_strlen($court) < max(0.75 * $taille, 2)) {
 		$points = '';
 		$long = spip_substr($texte, 0, $taille);
-		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/".$u, "\\1", $long);
 		// encore trop court ? couper au caractere
 		if (spip_strlen($texte) < 0.75 * $taille) {
 			$texte = $long;
@@ -461,7 +461,7 @@ 
 	// supprimer l'eventuelle entite finale mal coupee
 	$texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
 
-	return quote_amp(trim($texte)) . $points;
+	return quote_amp(trim($texte)).$points;
 }
 
 
@@ -473,16 +473,16 @@ 
 				define('_PROTEGE_JS_MODELES', creer_uniqid());
 			}
 			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
+				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript'._PROTEGE_JS_MODELES), $t);
 			}
 		}
-		if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
+		if (preg_match_all(',<\?php.*?($|\?'.'>),isS', $t, $r, PREG_SET_ORDER)) {
 			if (!defined('_PROTEGE_PHP_MODELES')) {
 				include_spip('inc/acces');
 				define('_PROTEGE_PHP_MODELES', creer_uniqid());
 			}
 			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
+				$t = str_replace($regs[0], code_echappement($regs[0], 'php'._PROTEGE_PHP_MODELES), $t);
 			}
 		}
 	}
@@ -600,7 +600,7 @@ 
 			if (!empty($options['wrap_suspect'])) {
 				$texte = wrap($texte, $options['wrap_suspect']);
 			}
-			$texte = "<mark class='danger-js' title='" . attribut_html(_T('erreur_contenu_suspect')) . "'>⚠️</mark> " . $texte;
+			$texte = "<mark class='danger-js' title='".attribut_html(_T('erreur_contenu_suspect'))."'>⚠️</mark> ".$texte;
 		}
 
 		$texte = $collecteurModeles->retablir($texte);
@@ -747,11 +747,11 @@ 
  **/
 function supprime_img($letexte, $message = null) {
 	if ($message === null) {
-		$message = '(' . _T('img_indisponible') . ')';
+		$message = '('._T('img_indisponible').')';
 	}
 
 	return preg_replace(
-		',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
+		',<(img|doc|emb)([0-9]+)(\|([^>]*))?'.'\s*/?'.'>,i',
 		$message,
 		$letexte
 	);