spip / SPIP

ecrire/public/composer.php

Indentation +768 added lines, -768 removed lines

@@ -18,7 +18,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/texte');
@@ -41,234 +41,234 @@ 
 
 function public_composer_dist($squelette, $mime_type, $gram, $source, string $connect = '') {
 
-	$skel = null;
-	$boucle = null;
-	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
-
-	//  si deja en memoire (INCLURE  a repetition) c'est bon.
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		$GLOBALS['debug_objets']['courant'] = $nom;
-	}
-
-	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
-
-	// si squelette est deja compile et perenne, le charger
-	if (!squelette_obsolete($phpfile, $source)) {
-		include_once $phpfile;
-		#if (!squelette_obsolete($phpfile, $source)
-		#  AND lire_fichier ($phpfile, $skel_code,
-		#  array('critique' => 'oui', 'phpcheck' => 'oui'))){
-		## eval('?'.'>'.$skel_code);
-		#	 spip_log($skel_code, 'comp')
-		#}
-	}
-
-	if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
-		include_once $lib;
-	}
-
-	// tester si le eval ci-dessus a mis le squelette en memoire
-
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	// charger le source, si possible, et compiler
-	$skel_code = '';
-	if (lire_fichier($source, $skel)) {
-		$compiler = charger_fonction('compiler', 'public');
-		$skel_code = $compiler($skel, $nom, $gram, $source, $connect);
-	}
-
-	// Ne plus rien faire si le compilateur n'a pas pu operer.
-	if (!$skel_code) {
-		return false;
-	}
-
-	foreach ($skel_code as $id => $boucle) {
-		$f = $boucle->return;
-		try {
-			eval("return true; $f ;");
-		} catch (\ParseError $e) {
-			// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
-			erreur_squelette($msg, $boucle);
-			// continuer pour trouver d'autres fautes eventuelles
-			// mais prevenir que c'est mort
-			$nom = '';
-		}
-
-		// contexte de compil inutile a present
-		// (mais la derniere valeur de $boucle est utilisee ci-dessous)
-		$skel_code[$id] = $f;
-	}
-
-	$code = '';
-	if ($nom) {
-		// Si le code est bon, concatener et mettre en cache
-		if (function_exists($nom)) {
-			$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
-		} else {
-			// code semantiquement faux: bug du compilateur
-			// $boucle est en fait ici la fct principale du squelette
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			$nom = '';
-		}
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
-
-		// si c'est ce que demande le debusqueur, lui passer la main
-		if (
-			$GLOBALS['debug_objets']['sourcefile']
-			and (_request('var_mode_objet') == $nom)
-			and (_request('var_mode_affiche') == 'code')
-		) {
-			erreur_squelette();
-		}
-	}
-
-	return $nom ?: false;
+    $skel = null;
+    $boucle = null;
+    $nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
+
+    //  si deja en memoire (INCLURE  a repetition) c'est bon.
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        $GLOBALS['debug_objets']['courant'] = $nom;
+    }
+
+    $phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
+
+    // si squelette est deja compile et perenne, le charger
+    if (!squelette_obsolete($phpfile, $source)) {
+        include_once $phpfile;
+        #if (!squelette_obsolete($phpfile, $source)
+        #  AND lire_fichier ($phpfile, $skel_code,
+        #  array('critique' => 'oui', 'phpcheck' => 'oui'))){
+        ## eval('?'.'>'.$skel_code);
+        #	 spip_log($skel_code, 'comp')
+        #}
+    }
+
+    if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
+        include_once $lib;
+    }
+
+    // tester si le eval ci-dessus a mis le squelette en memoire
+
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    // charger le source, si possible, et compiler
+    $skel_code = '';
+    if (lire_fichier($source, $skel)) {
+        $compiler = charger_fonction('compiler', 'public');
+        $skel_code = $compiler($skel, $nom, $gram, $source, $connect);
+    }
+
+    // Ne plus rien faire si le compilateur n'a pas pu operer.
+    if (!$skel_code) {
+        return false;
+    }
+
+    foreach ($skel_code as $id => $boucle) {
+        $f = $boucle->return;
+        try {
+            eval("return true; $f ;");
+        } catch (\ParseError $e) {
+            // Code syntaxiquement faux (critere etc mal programme')
+            $msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
+            erreur_squelette($msg, $boucle);
+            // continuer pour trouver d'autres fautes eventuelles
+            // mais prevenir que c'est mort
+            $nom = '';
+        }
+
+        // contexte de compil inutile a present
+        // (mais la derniere valeur de $boucle est utilisee ci-dessous)
+        $skel_code[$id] = $f;
+    }
+
+    $code = '';
+    if ($nom) {
+        // Si le code est bon, concatener et mettre en cache
+        if (function_exists($nom)) {
+            $code = squelette_traduit($skel, $source, $phpfile, $skel_code);
+        } else {
+            // code semantiquement faux: bug du compilateur
+            // $boucle est en fait ici la fct principale du squelette
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            $nom = '';
+        }
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        // Tracer ce qui vient d'etre compile
+        $GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+
+        // si c'est ce que demande le debusqueur, lui passer la main
+        if (
+            $GLOBALS['debug_objets']['sourcefile']
+            and (_request('var_mode_objet') == $nom)
+            and (_request('var_mode_affiche') == 'code')
+        ) {
+            erreur_squelette();
+        }
+    }
+
+    return $nom ?: false;
 }
 
 function squelette_traduit($squelette, $sourcefile, $phpfile, $boucles) {
 
-	$code = null;
-	// Le dernier index est '' (fonction principale)
-	$noms = substr(join(', ', array_keys($boucles)), 0, -2);
-	if (CODE_COMMENTE) {
-		$code = "
+    $code = null;
+    // Le dernier index est '' (fonction principale)
+    $noms = substr(join(', ', array_keys($boucles)), 0, -2);
+    if (CODE_COMMENTE) {
+        $code = "
 /*
  * Squelette : $sourcefile
  * Date :      " . gmdate('D, d M Y H:i:s', @filemtime($sourcefile)) . ' GMT
  * Compile :   ' . gmdate('D, d M Y H:i:s', time()) . ' GMT
  * ' . (!$boucles ? 'Pas de boucle' : ('Boucles :   ' . $noms)) . '
  */ ';
-	}
+    }
 
-	$code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
-	if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
-		ecrire_fichier($phpfile, $code);
-	}
+    $code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
+    if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
+        ecrire_fichier($phpfile, $code);
+    }
 
-	return $code;
+    return $code;
 }
 
 // Le squelette compile est-il trop vieux ?
 function squelette_obsolete($skel, $squelette) {
-	static $date_change = null;
-	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
-	// par hit
-	if (is_null($date_change)) {
-		if (@file_exists($fonc = 'mes_fonctions.php')) {
-			$date_change = @filemtime($fonc);
-		} # compatibilite
-		if (defined('_FILE_OPTIONS')) {
-			$date_change = max($date_change, @filemtime(_FILE_OPTIONS));
-		}
-	}
-
-	return (
-		(defined('_VAR_MODE') and in_array(_VAR_MODE, ['recalcul', 'preview', 'debug']))
-		or !@file_exists($skel)
-		or ((@file_exists($squelette) ? @filemtime($squelette) : 0)
-			> ($date = @filemtime($skel)))
-		or ($date_change > $date)
-	);
+    static $date_change = null;
+    // ne verifier la date de mes_fonctions et mes_options qu'une seule fois
+    // par hit
+    if (is_null($date_change)) {
+        if (@file_exists($fonc = 'mes_fonctions.php')) {
+            $date_change = @filemtime($fonc);
+        } # compatibilite
+        if (defined('_FILE_OPTIONS')) {
+            $date_change = max($date_change, @filemtime(_FILE_OPTIONS));
+        }
+    }
+
+    return (
+        (defined('_VAR_MODE') and in_array(_VAR_MODE, ['recalcul', 'preview', 'debug']))
+        or !@file_exists($skel)
+        or ((@file_exists($squelette) ? @filemtime($squelette) : 0)
+            > ($date = @filemtime($skel)))
+        or ($date_change > $date)
+    );
 }
 
 // Activer l'invalideur de session
 function invalideur_session(&$Cache, $code = null) {
-	$Cache['session'] = spip_session();
+    $Cache['session'] = spip_session();
 
-	return $code;
+    return $code;
 }
 
 
 function analyse_resultat_skel($nom, $cache, $corps, $source = '') {
-	static $filtres = [];
-	$headers = [];
-	$corps ??= '';
-
-	// Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
-	// note: on essaie d'attrapper aussi certains de ces entetes codes
-	// "a la main" dans les squelettes, mais evidemment sans exhaustivite
-	if (
-		stripos($corps, 'header') !== false
-		and preg_match_all(
-			'/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
-			$corps,
-			$regs,
-			PREG_SET_ORDER
-		)
-	) {
-		foreach ($regs as $r) {
-			$corps = str_replace($r[0], '', $corps);
-			# $j = Content-Type, et pas content-TYPE.
-			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
-
-			if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
-				$headers[$j] .= '|' . $r[3];
-			} else {
-				$headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
-			}
-		}
-	}
-	// S'agit-il d'un resultat constant ou contenant du code php
-	$process_ins = (
-		strpos($corps, '<' . '?') === false
-		or
-		(strpos($corps, '<' . '?xml') !== false and
-			strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
-	)
-		? 'html'
-		: 'php';
-
-	$skel = [
-		'squelette' => $nom,
-		'source' => $source,
-		'process_ins' => $process_ins,
-		'invalideurs' => $cache,
-		'entetes' => $headers,
-		'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
-	];
-
-	// traiter #FILTRE{} et filtres
-	if (!isset($filtres[$nom])) {
-		$filtres[$nom] = pipeline('declarer_filtres_squelettes', ['args' => $skel, 'data' => []]);
-	}
-	$filtres_headers = [];
-	if (isset($headers['X-Spip-Filtre']) and strlen($headers['X-Spip-Filtre'])) {
-		$filtres_headers = array_filter(explode('|', $headers['X-Spip-Filtre']));
-		unset($headers['X-Spip-Filtre']);
-	}
-	if (is_array($filtres[$nom]) || $filtres[$nom] instanceof \Countable ? count($filtres[$nom]) : 0 or count($filtres_headers)) {
-		include_spip('public/sandbox');
-		$corps = sandbox_filtrer_squelette($skel, $corps, $filtres_headers, $filtres[$nom]);
-
-		if ($process_ins == 'html') {
-			$skel['process_ins'] = (
-				strpos($corps, '<' . '?') === false
-				or
-				(strpos($corps, '<' . '?xml') !== false and
-					strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
-			)
-				? 'html'
-				: 'php';
-		}
-	}
-
-	$skel['entetes'] = $headers;
-	$skel['texte'] = $corps;
-
-	return $skel;
+    static $filtres = [];
+    $headers = [];
+    $corps ??= '';
+
+    // Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
+    // note: on essaie d'attrapper aussi certains de ces entetes codes
+    // "a la main" dans les squelettes, mais evidemment sans exhaustivite
+    if (
+        stripos($corps, 'header') !== false
+        and preg_match_all(
+            '/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
+            $corps,
+            $regs,
+            PREG_SET_ORDER
+        )
+    ) {
+        foreach ($regs as $r) {
+            $corps = str_replace($r[0], '', $corps);
+            # $j = Content-Type, et pas content-TYPE.
+            $j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
+
+            if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
+                $headers[$j] .= '|' . $r[3];
+            } else {
+                $headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
+            }
+        }
+    }
+    // S'agit-il d'un resultat constant ou contenant du code php
+    $process_ins = (
+        strpos($corps, '<' . '?') === false
+        or
+        (strpos($corps, '<' . '?xml') !== false and
+            strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+    )
+        ? 'html'
+        : 'php';
+
+    $skel = [
+        'squelette' => $nom,
+        'source' => $source,
+        'process_ins' => $process_ins,
+        'invalideurs' => $cache,
+        'entetes' => $headers,
+        'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
+    ];
+
+    // traiter #FILTRE{} et filtres
+    if (!isset($filtres[$nom])) {
+        $filtres[$nom] = pipeline('declarer_filtres_squelettes', ['args' => $skel, 'data' => []]);
+    }
+    $filtres_headers = [];
+    if (isset($headers['X-Spip-Filtre']) and strlen($headers['X-Spip-Filtre'])) {
+        $filtres_headers = array_filter(explode('|', $headers['X-Spip-Filtre']));
+        unset($headers['X-Spip-Filtre']);
+    }
+    if (is_array($filtres[$nom]) || $filtres[$nom] instanceof \Countable ? count($filtres[$nom]) : 0 or count($filtres_headers)) {
+        include_spip('public/sandbox');
+        $corps = sandbox_filtrer_squelette($skel, $corps, $filtres_headers, $filtres[$nom]);
+
+        if ($process_ins == 'html') {
+            $skel['process_ins'] = (
+                strpos($corps, '<' . '?') === false
+                or
+                (strpos($corps, '<' . '?xml') !== false and
+                    strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+            )
+                ? 'html'
+                : 'php';
+        }
+    }
+
+    $skel['entetes'] = $headers;
+    $skel['texte'] = $corps;
+
+    return $skel;
 }
 
 //
@@ -282,7 +282,7 @@ 
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
 if ($lang_select) lang_select();
 ?'
-	. '>');
+    . '>');
 
 /**
  * Synthétise une balise dynamique : crée l'appel à l'inclusion
@@ -302,35 +302,35 @@ 
  *     Code PHP pour inclure le squelette de la balise dynamique
  **/
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
-	if (
-		strncmp($file, '/', 1) !== 0
-		// pas de lien symbolique sous Windows
-		and !(stristr(PHP_OS, 'WIN') and str_contains($file, ':'))
-	) {
-		$file = './" . _DIR_RACINE . "' . $file;
-	}
-
-	$lang = $context_compil[4];
-	if (preg_match(',\W,', $lang)) {
-		$lang = '';
-	}
-
-	$args = array_map('argumenter_squelette', $args);
-	if (!empty($context_compil['appel_php_depuis_modele'])) {
-		$args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
-	}
-	$args = join(', ', $args);
-
-	$r = sprintf(
-		CODE_INCLURE_BALISE,
-		$file,
-		$lang,
-		$nom,
-		$args,
-		join(', ', array_map('_q', $context_compil))
-	);
-
-	return $r;
+    if (
+        strncmp($file, '/', 1) !== 0
+        // pas de lien symbolique sous Windows
+        and !(stristr(PHP_OS, 'WIN') and str_contains($file, ':'))
+    ) {
+        $file = './" . _DIR_RACINE . "' . $file;
+    }
+
+    $lang = $context_compil[4];
+    if (preg_match(',\W,', $lang)) {
+        $lang = '';
+    }
+
+    $args = array_map('argumenter_squelette', $args);
+    if (!empty($context_compil['appel_php_depuis_modele'])) {
+        $args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
+    }
+    $args = join(', ', $args);
+
+    $r = sprintf(
+        CODE_INCLURE_BALISE,
+        $file,
+        $lang,
+        $nom,
+        $args,
+        join(', ', array_map('_q', $context_compil))
+    );
+
+    return $r;
 }
 
 /**
@@ -348,18 +348,18 @@ 
  **/
 function argumenter_squelette($v) {
 
-	if (is_object($v)) {
-		return var_export($v, true);
-	} elseif (!is_array($v)) {
-		return "'" . texte_script((string) $v) . "'";
-	} else {
-		$out = [];
-		foreach ($v as $k => $val) {
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
-		}
-
-		return 'array(' . join(', ', $out) . ')';
-	}
+    if (is_object($v)) {
+        return var_export($v, true);
+    } elseif (!is_array($v)) {
+        return "'" . texte_script((string) $v) . "'";
+    } else {
+        $out = [];
+        foreach ($v as $k => $val) {
+            $out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+        }
+
+        return 'array(' . join(', ', $out) . ')';
+    }
 }
 
 /**
@@ -378,13 +378,13 @@ 
  * @return string
  */
 function executer_balise_dynamique_dans_un_modele(...$args) {
-	if (test_espace_prive()) {
-		return executer_balise_dynamique(...$args);
-	}
-	else {
-		$str_args = base64_encode(serialize($args));
-		return "<?" . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
-	}
+    if (test_espace_prive()) {
+        return executer_balise_dynamique(...$args);
+    }
+    else {
+        $str_args = base64_encode(serialize($args));
+        return "<?" . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
+    }
 }
 
 
@@ -415,87 +415,87 @@ 
  *     Code PHP d'exécutant l'inclusion du squelette (ou texte) de la balise dynamique
  **/
 function executer_balise_dynamique($nom, $args, $context_compil) {
-	/** @var string Nom de la balise à charger (balise demandée ou balise générique) */
-	$nom_balise = $nom;
-	/** @var string Nom de la balise générique (si utilisée) */
-	$nom_balise_generique = '';
-
-	$appel_php_depuis_modele = false;
-	if (
-		is_array($context_compil)
-		and !is_numeric($context_compil[3])
-		and empty($context_compil[0])
-		and empty($context_compil[1])
-		and empty($context_compil[2])
-		and empty($context_compil[3])
-	) {
-		$appel_php_depuis_modele = true;
-	}
-
-	if (!$fonction_balise = charger_fonction($nom_balise, 'balise', true)) {
-		// Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
-		if ($balise_generique = chercher_balise_generique($nom)) {
-			// injecter en premier arg le nom de la balise
-			array_unshift($args, $nom);
-			$nom_balise_generique = $balise_generique['nom_generique'];
-			$fonction_balise = $balise_generique['fonction_generique'];
-			$nom_balise = $nom_balise_generique;
-		}
-		unset($balise_generique);
-	}
-
-	if (!$fonction_balise) {
-		$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
-		erreur_squelette($msg, $context_compil);
-
-		return '';
-	}
-
-	// retrouver le fichier qui a déclaré la fonction
-	// même si la fonction dynamique est déclarée dans un fichier de fonctions.
-	// Attention sous windows, getFileName() retourne un antislash.
-	$reflector = new ReflectionFunction($fonction_balise);
-	$file = str_replace('\\', '/', $reflector->getFileName());
-	if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
-		$file = substr($file, strlen(_ROOT_RACINE));
-	}
-
-	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nom_balise . '_stat';
-
-	$r = !function_exists($f) ? $args : $f($args, $context_compil);
-
-	if (!is_array($r)) {
-		return $r;
-	}
-
-	// verifier que la fonction dyn est la,
-	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nom_balise . '_dyn')) {
-		if (
-			$balise_generique = chercher_balise_generique($nom)
-			and $nom_balise_generique = $balise_generique['nom_generique']
-			and $file = include_spip('balise/' . strtolower($nom_balise_generique))
-			and function_exists('balise_' . $nom_balise_generique . '_dyn')
-		) {
-			// et lui injecter en premier arg le nom de la balise
-			array_unshift($r, $nom);
-			$nom_balise = $nom_balise_generique;
-			if (!_DIR_RESTREINT) {
-				$file = _DIR_RESTREINT_ABS . $file;
-			}
-		} else {
-			$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
-			erreur_squelette($msg, $context_compil);
-
-			return '';
-		}
-	}
-
-	if ($appel_php_depuis_modele) {
-		$context_compil['appel_php_depuis_modele'] = true;
-	}
-	return synthetiser_balise_dynamique($nom_balise, $r, $file, $context_compil);
+    /** @var string Nom de la balise à charger (balise demandée ou balise générique) */
+    $nom_balise = $nom;
+    /** @var string Nom de la balise générique (si utilisée) */
+    $nom_balise_generique = '';
+
+    $appel_php_depuis_modele = false;
+    if (
+        is_array($context_compil)
+        and !is_numeric($context_compil[3])
+        and empty($context_compil[0])
+        and empty($context_compil[1])
+        and empty($context_compil[2])
+        and empty($context_compil[3])
+    ) {
+        $appel_php_depuis_modele = true;
+    }
+
+    if (!$fonction_balise = charger_fonction($nom_balise, 'balise', true)) {
+        // Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
+        if ($balise_generique = chercher_balise_generique($nom)) {
+            // injecter en premier arg le nom de la balise
+            array_unshift($args, $nom);
+            $nom_balise_generique = $balise_generique['nom_generique'];
+            $fonction_balise = $balise_generique['fonction_generique'];
+            $nom_balise = $nom_balise_generique;
+        }
+        unset($balise_generique);
+    }
+
+    if (!$fonction_balise) {
+        $msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
+        erreur_squelette($msg, $context_compil);
+
+        return '';
+    }
+
+    // retrouver le fichier qui a déclaré la fonction
+    // même si la fonction dynamique est déclarée dans un fichier de fonctions.
+    // Attention sous windows, getFileName() retourne un antislash.
+    $reflector = new ReflectionFunction($fonction_balise);
+    $file = str_replace('\\', '/', $reflector->getFileName());
+    if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
+        $file = substr($file, strlen(_ROOT_RACINE));
+    }
+
+    // Y a-t-il une fonction de traitement des arguments ?
+    $f = 'balise_' . $nom_balise . '_stat';
+
+    $r = !function_exists($f) ? $args : $f($args, $context_compil);
+
+    if (!is_array($r)) {
+        return $r;
+    }
+
+    // verifier que la fonction dyn est la,
+    // sinon se replier sur la generique si elle existe
+    if (!function_exists('balise_' . $nom_balise . '_dyn')) {
+        if (
+            $balise_generique = chercher_balise_generique($nom)
+            and $nom_balise_generique = $balise_generique['nom_generique']
+            and $file = include_spip('balise/' . strtolower($nom_balise_generique))
+            and function_exists('balise_' . $nom_balise_generique . '_dyn')
+        ) {
+            // et lui injecter en premier arg le nom de la balise
+            array_unshift($r, $nom);
+            $nom_balise = $nom_balise_generique;
+            if (!_DIR_RESTREINT) {
+                $file = _DIR_RESTREINT_ABS . $file;
+            }
+        } else {
+            $msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
+            erreur_squelette($msg, $context_compil);
+
+            return '';
+        }
+    }
+
+    if ($appel_php_depuis_modele) {
+        $context_compil['appel_php_depuis_modele'] = true;
+    }
+    return synthetiser_balise_dynamique($nom_balise, $r, $file, $context_compil);
 }
 
 /**
@@ -510,23 +510,23 @@ 
  * @return array|null
  */
 function chercher_balise_generique($nom) {
-	if (!str_contains($nom, '_')) {
-		return null;
-	}
-	$nom_generique = $nom;
-	while (false !== ($p = strrpos($nom_generique, '_'))) {
-		$nom_generique = substr($nom_generique, 0, $p + 1);
-		$fonction_generique = charger_fonction($nom_generique, 'balise', true);
-		if ($fonction_generique) {
-			return [
-				'nom' => $nom,
-				'nom_generique' => $nom_generique,
-				'fonction_generique' => $fonction_generique,
-			];
-		}
-		$nom_generique = substr($nom_generique, 0, -1);
-	}
-	return null;
+    if (!str_contains($nom, '_')) {
+        return null;
+    }
+    $nom_generique = $nom;
+    while (false !== ($p = strrpos($nom_generique, '_'))) {
+        $nom_generique = substr($nom_generique, 0, $p + 1);
+        $fonction_generique = charger_fonction($nom_generique, 'balise', true);
+        if ($fonction_generique) {
+            return [
+                'nom' => $nom,
+                'nom_generique' => $nom_generique,
+                'fonction_generique' => $fonction_generique,
+            ];
+        }
+        $nom_generique = substr($nom_generique, 0, -1);
+    }
+    return null;
 }
 
 
@@ -550,50 +550,50 @@ 
  * @return null;
  **/
 function lang_select_public($lang, $lang_select, $titre = null) {
-	// Cas 1. forcer_lang = true et pas de critere {lang_select}
-	if (
-		isset($GLOBALS['forcer_lang']) and $GLOBALS['forcer_lang']
-		and $lang_select !== 'oui'
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
-	elseif (!strlen($lang)) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 3. l'objet est multilingue !
-	elseif (
-		$lang_select !== 'oui'
-		and strlen($titre) > 10
-		and str_contains($titre, '<multi>')
-		and str_contains(echappe_html($titre), '<multi>')
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	}
-
-	// faire un lang_select() eventuellement sur la langue inchangee
-	lang_select($lang);
-
-	return;
+    // Cas 1. forcer_lang = true et pas de critere {lang_select}
+    if (
+        isset($GLOBALS['forcer_lang']) and $GLOBALS['forcer_lang']
+        and $lang_select !== 'oui'
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
+    elseif (!strlen($lang)) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 3. l'objet est multilingue !
+    elseif (
+        $lang_select !== 'oui'
+        and strlen($titre) > 10
+        and str_contains($titre, '<multi>')
+        and str_contains(echappe_html($titre), '<multi>')
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    }
+
+    // faire un lang_select() eventuellement sur la langue inchangee
+    lang_select($lang);
+
+    return;
 }
 
 
 // Si un tableau &doublons[articles] est passe en parametre,
 // il faut le nettoyer car il pourrait etre injecte en SQL
 function nettoyer_env_doublons($envd) {
-	foreach ($envd as $table => $liste) {
-		$n = '';
-		foreach (explode(',', $liste) as $val) {
-			if ($a = intval($val) and $val === strval($a)) {
-				$n .= ',' . $val;
-			}
-		}
-		if (strlen($n)) {
-			$envd[$table] = $n;
-		} else {
-			unset($envd[$table]);
-		}
-	}
-
-	return $envd;
+    foreach ($envd as $table => $liste) {
+        $n = '';
+        foreach (explode(',', $liste) as $val) {
+            if ($a = intval($val) and $val === strval($a)) {
+                $n .= ',' . $val;
+            }
+        }
+        if (strlen($n)) {
+            $envd[$table] = $n;
+        } else {
+            unset($envd[$table]);
+        }
+    }
+
+    return $envd;
 }
 
 /**
@@ -612,21 +612,21 @@ 
  *     Opérateur trouvé (SELF ou SUBSELECT) sinon false.
  **/
 function match_self($w) {
-	if (is_string($w)) {
-		return false;
-	}
-	if (is_array($w)) {
-		if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
-			return $w;
-		}
-		foreach (array_filter($w, 'is_array') as $sw) {
-			if ($m = match_self($sw)) {
-				return $m;
-			}
-		}
-	}
-
-	return false;
+    if (is_string($w)) {
+        return false;
+    }
+    if (is_array($w)) {
+        if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
+            return $w;
+        }
+        foreach (array_filter($w, 'is_array') as $sw) {
+            if ($m = match_self($sw)) {
+                return $m;
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -642,16 +642,16 @@ 
  *     est remplacée par son code.
  **/
 function remplace_sous_requete($w, $sousrequete) {
-	if (is_array($w)) {
-		if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
-			return $sousrequete;
-		}
-		foreach ($w as $k => $sw) {
-			$w[$k] = remplace_sous_requete($sw, $sousrequete);
-		}
-	}
-
-	return $w;
+    if (is_array($w)) {
+        if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
+            return $sousrequete;
+        }
+        foreach ($w as $k => $sw) {
+            $w[$k] = remplace_sous_requete($sw, $sousrequete);
+        }
+    }
+
+    return $w;
 }
 
 /**
@@ -665,17 +665,17 @@ 
  *     - Conditions avec des sous requêtes
  **/
 function trouver_sous_requetes($where) {
-	$where_simples = [];
-	$where_sous = [];
-	foreach ($where as $k => $w) {
-		if (match_self($w)) {
-			$where_sous[$k] = $w;
-		} else {
-			$where_simples[$k] = $w;
-		}
-	}
-
-	return [$where_simples, $where_sous];
+    $where_simples = [];
+    $where_sous = [];
+    foreach ($where as $k => $w) {
+        if (match_self($w)) {
+            $where_sous[$k] = $w;
+        } else {
+            $where_simples[$k] = $w;
+        }
+    }
+
+    return [$where_simples, $where_sous];
 }
 
 
@@ -701,292 +701,292 @@ 
  * @return resource
  */
 function calculer_select(
-	$select = [],
-	$from = [],
-	$from_type = [],
-	$where = [],
-	$join = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$table = '',
-	$id = '',
-	$serveur = '',
-	$requeter = true
+    $select = [],
+    $from = [],
+    $from_type = [],
+    $where = [],
+    $join = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $table = '',
+    $id = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	// retirer les criteres vides:
-	// {X ?} avec X absent de l'URL
-	// {par #ENV{X}} avec X absent de l'URL
-	// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
-	$menage = false;
-	foreach ($where as $k => $v) {
-		if (is_array($v) and count($v)) {
-			if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
-				$op = false;
-			} elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
-				$op = false;
-			} else {
-				$op = $v[0] ?: $v;
-			}
-		} else {
-			$op = $v;
-		}
-		if ((!$op) or ($op == 1) or ($op == '0=0')) {
-			unset($where[$k]);
-			$menage = true;
-		}
-	}
-
-	// evacuer les eventuels groupby vide issus d'un calcul dynamique
-	$groupby = array_diff($groupby, ['']);
-
-	// remplacer les sous requetes recursives au calcul
-	[$where_simples, $where_sous] = trouver_sous_requetes($where);
-	foreach ($where_sous as $k => $w) {
-		$menage = true;
-		// on recupere la sous requete
-		$sous = match_self($w);
-		if ($sous[0] == 'SELF') {
-			// c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
-			array_push($where_simples, $sous[2]);
-			$wheresub = [
-				$sous[2],
-				'0=0'
-			]; // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
-			$jsub = $join;
-			// trouver les jointures utiles a
-			// reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
-			// ie L1.objet='article'
-			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
-			$i = 0;
-			do {
-				$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-					[$sous[1] . ' AS id'],
-					$from,
-					$from_type,
-					$wheresub,
-					$jsub,
-					[],
-					[],
-					'',
-					$having,
-					$table,
-					$id,
-					$serveur,
-					false
-				) . ')');
-				if (!$i) {
-					$i = 1;
-					$wherestring = calculer_where_to_string($where[$k]);
-					foreach ($join as $cle => $wj) {
-						if (
-							(is_countable($wj) ? count($wj) : 0) == 4
-							and str_contains($wherestring, (string) "{$cle}.")
-						) {
-							$i = 0;
-							$wheresub[] = $wj[3];
-							unset($jsub[$cle][3]);
-						}
-					}
-				}
-			} while ($i++ < 1);
-		}
-		if ($sous[0] == 'SUBSELECT') {
-			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
-			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-				$sous[1], # select
-				$sous[2], #from
-				[], #from_type
-				$sous[3] ? (is_array($sous[3]) ? $sous[3] : [$sous[3]]) : [],
-				#where, qui peut etre de la forme string comme dans sql_select
-					[], #join
-				$sous[4] ?: [], #groupby
-				$sous[5] ?: [], #orderby
-				$sous[6], #limit
-				$sous[7] ?: [], #having
-				$table,
-				$id,
-				$serveur,
-				false
-			) . ')');
-		}
-		array_pop($where_simples);
-	}
-
-	foreach ($having as $k => $v) {
-		if ((!$v) or ($v == 1) or ($v == '0=0')) {
-			unset($having[$k]);
-		}
-	}
-
-	// Installer les jointures.
-	// Retirer celles seulement utiles aux criteres finalement absents mais
-	// parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
-	// si elle est seulement utile a Ln+1 elle meme inutile
-
-	$afrom = [];
-	$equiv = [];
-	$k = count($join);
-	foreach (array_reverse($join, true) as $cledef => $j) {
-		$cle = $cledef;
-		// le format de join est :
-		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		$join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
-		if (count($join[$cle]) == 2) {
-			$join[$cle][] = $join[$cle][1];
-		}
-		if ((is_array($join[$cle]) || $join[$cle] instanceof \Countable ? count($join[$cle]) : 0) == 3) {
-			$join[$cle][] = '';
-		}
-		[$t, $c, $carr, $and] = $join[$cle];
-		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
-		// pour compat avec ancienne convention
-		if (is_numeric($cle)) {
-			$cle = "L$k";
-		}
-		$cle_where_lie = "JOIN-$cle";
-		if (
-			!$menage
-			or isset($afrom[$cle])
-			or calculer_jointnul($cle, $select)
-			or calculer_jointnul($cle, array_diff_key($join, [$cle => $join[$cle]]))
-			or calculer_jointnul($cle, $having)
-			or calculer_jointnul($cle, array_diff_key($where_simples, [$cle_where_lie => '']))
-		) {
-			// corriger les references non explicites dans select
-			// ou groupby
-			foreach ($select as $i => $s) {
-				if ($s == $c) {
-					$select[$i] = "$cle.$c AS $c";
-					break;
-				}
-			}
-			foreach ($groupby as $i => $g) {
-				if ($g == $c) {
-					$groupby[$i] = "$cle.$c";
-					break;
-				}
-			}
-			// on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
-			// sans recours a preg_match
-			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
-			$afrom[$t][$cle] = [
-				"\n" .
-				($from_type[$cle] ?? 'INNER') . ' JOIN',
-				$from[$cle],
-				"AS $cle",
-				'ON (',
-				"$cle.$c",
-				'=',
-				"$t.$carr",
-				($and ? 'AND ' . $and : '') .
-				')'
-			];
-			if (isset($afrom[$cle])) {
-				$afrom[$t] = $afrom[$t] + $afrom[$cle];
-				unset($afrom[$cle]);
-			}
-			$equiv[] = $carr;
-		} else {
-			unset($join[$cledef]);
-			if (isset($where_simples[$cle_where_lie])) {
-				unset($where_simples[$cle_where_lie]);
-				unset($where[$cle_where_lie]);
-			}
-		}
-		unset($from[$cle]);
-		$k--;
-	}
-
-	if (count($afrom)) {
-		// Regarder si la table principale ne sert finalement a rien comme dans
-		//<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
-		//<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
-		//<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
-		// ou dans
-		//<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
-		// qui comporte plusieurs jointures
-		// ou dans
-		// <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
-		// <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
-		// penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
-		// <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
-		// penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
-		// <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
-
-		$t = key($from);
-		$c = current($from);
-		reset($from);
-		$e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
-		if (
-			!(strpos($t, ' ') or // jointure des le depart cf boucle_doc
-				calculer_jointnul($t, $select, $e) or
-				calculer_jointnul($t, $join, $e) or
-				calculer_jointnul($t, $where, $e) or
-				calculer_jointnul($t, $orderby, $e) or
-				calculer_jointnul($t, $groupby, $e) or
-				calculer_jointnul($t, $having, $e))
-			&& count($afrom[$t])
-		) {
-			$nfrom = reset($afrom[$t]);
-			$nt = array_key_first($afrom[$t]);
-			unset($from[$t]);
-			$from[$nt] = $nfrom[1];
-			unset($afrom[$t][$nt]);
-			$afrom[$nt] = $afrom[$t];
-			unset($afrom[$t]);
-			$e = '/\b' . preg_quote($nfrom[6]) . '\b/';
-			$t = $nfrom[4];
-			$alias = '';
-			// verifier que les deux cles sont homonymes, sinon installer un alias dans le select
-			$oldcle = explode('.', $nfrom[6]);
-			$oldcle = end($oldcle);
-			$newcle = explode('.', $nfrom[4]);
-			$newcle = end($newcle);
-			if ($newcle != $oldcle) {
-				// si l'ancienne cle etait deja dans le select avec un AS
-				// reprendre simplement ce AS
-				$as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
-				if (preg_match($as, implode(',', $select), $m)) {
-					$alias = '';
-				} else {
-					$alias = ', ' . $nfrom[4] . " AS $oldcle";
-				}
-			}
-			$select = remplacer_jointnul($t . $alias, $select, $e);
-			$join = remplacer_jointnul($t, $join, $e);
-			$where = remplacer_jointnul($t, $where, $e);
-			$having = remplacer_jointnul($t, $having, $e);
-			$groupby = remplacer_jointnul($t, $groupby, $e);
-			$orderby = remplacer_jointnul($t, $orderby, $e);
-		}
-		$from = reinjecte_joint($afrom, $from);
-	}
-	if (empty($GLOBALS['debug']) or !is_array($GLOBALS['debug'])) {
-		$wasdebug = empty($GLOBALS['debug']) ? false : $GLOBALS['debug'];
-		$GLOBALS['debug'] = [];
-		if ($wasdebug) {
-			$GLOBALS['debug']['debug'] = true;
-		}
-	}
-	$GLOBALS['debug']['aucasou'] = [$table, $id, $serveur, $requeter];
-	$r = sql_select(
-		$select,
-		$from,
-		$where,
-		$groupby,
-		array_filter($orderby),
-		$limit,
-		$having,
-		$serveur,
-		$requeter
-	);
-	unset($GLOBALS['debug']['aucasou']);
-
-	return $r;
+    // retirer les criteres vides:
+    // {X ?} avec X absent de l'URL
+    // {par #ENV{X}} avec X absent de l'URL
+    // IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
+    $menage = false;
+    foreach ($where as $k => $v) {
+        if (is_array($v) and count($v)) {
+            if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
+                $op = false;
+            } elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
+                $op = false;
+            } else {
+                $op = $v[0] ?: $v;
+            }
+        } else {
+            $op = $v;
+        }
+        if ((!$op) or ($op == 1) or ($op == '0=0')) {
+            unset($where[$k]);
+            $menage = true;
+        }
+    }
+
+    // evacuer les eventuels groupby vide issus d'un calcul dynamique
+    $groupby = array_diff($groupby, ['']);
+
+    // remplacer les sous requetes recursives au calcul
+    [$where_simples, $where_sous] = trouver_sous_requetes($where);
+    foreach ($where_sous as $k => $w) {
+        $menage = true;
+        // on recupere la sous requete
+        $sous = match_self($w);
+        if ($sous[0] == 'SELF') {
+            // c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
+            array_push($where_simples, $sous[2]);
+            $wheresub = [
+                $sous[2],
+                '0=0'
+            ]; // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
+            $jsub = $join;
+            // trouver les jointures utiles a
+            // reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
+            // ie L1.objet='article'
+            // on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
+            $i = 0;
+            do {
+                $where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+                    [$sous[1] . ' AS id'],
+                    $from,
+                    $from_type,
+                    $wheresub,
+                    $jsub,
+                    [],
+                    [],
+                    '',
+                    $having,
+                    $table,
+                    $id,
+                    $serveur,
+                    false
+                ) . ')');
+                if (!$i) {
+                    $i = 1;
+                    $wherestring = calculer_where_to_string($where[$k]);
+                    foreach ($join as $cle => $wj) {
+                        if (
+                            (is_countable($wj) ? count($wj) : 0) == 4
+                            and str_contains($wherestring, (string) "{$cle}.")
+                        ) {
+                            $i = 0;
+                            $wheresub[] = $wj[3];
+                            unset($jsub[$cle][3]);
+                        }
+                    }
+                }
+            } while ($i++ < 1);
+        }
+        if ($sous[0] == 'SUBSELECT') {
+            // c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
+            array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
+            $where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+                $sous[1], # select
+                $sous[2], #from
+                [], #from_type
+                $sous[3] ? (is_array($sous[3]) ? $sous[3] : [$sous[3]]) : [],
+                #where, qui peut etre de la forme string comme dans sql_select
+                    [], #join
+                $sous[4] ?: [], #groupby
+                $sous[5] ?: [], #orderby
+                $sous[6], #limit
+                $sous[7] ?: [], #having
+                $table,
+                $id,
+                $serveur,
+                false
+            ) . ')');
+        }
+        array_pop($where_simples);
+    }
+
+    foreach ($having as $k => $v) {
+        if ((!$v) or ($v == 1) or ($v == '0=0')) {
+            unset($having[$k]);
+        }
+    }
+
+    // Installer les jointures.
+    // Retirer celles seulement utiles aux criteres finalement absents mais
+    // parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
+    // si elle est seulement utile a Ln+1 elle meme inutile
+
+    $afrom = [];
+    $equiv = [];
+    $k = count($join);
+    foreach (array_reverse($join, true) as $cledef => $j) {
+        $cle = $cledef;
+        // le format de join est :
+        // array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
+        $join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
+        if (count($join[$cle]) == 2) {
+            $join[$cle][] = $join[$cle][1];
+        }
+        if ((is_array($join[$cle]) || $join[$cle] instanceof \Countable ? count($join[$cle]) : 0) == 3) {
+            $join[$cle][] = '';
+        }
+        [$t, $c, $carr, $and] = $join[$cle];
+        // si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
+        // pour compat avec ancienne convention
+        if (is_numeric($cle)) {
+            $cle = "L$k";
+        }
+        $cle_where_lie = "JOIN-$cle";
+        if (
+            !$menage
+            or isset($afrom[$cle])
+            or calculer_jointnul($cle, $select)
+            or calculer_jointnul($cle, array_diff_key($join, [$cle => $join[$cle]]))
+            or calculer_jointnul($cle, $having)
+            or calculer_jointnul($cle, array_diff_key($where_simples, [$cle_where_lie => '']))
+        ) {
+            // corriger les references non explicites dans select
+            // ou groupby
+            foreach ($select as $i => $s) {
+                if ($s == $c) {
+                    $select[$i] = "$cle.$c AS $c";
+                    break;
+                }
+            }
+            foreach ($groupby as $i => $g) {
+                if ($g == $c) {
+                    $groupby[$i] = "$cle.$c";
+                    break;
+                }
+            }
+            // on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
+            // sans recours a preg_match
+            // un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
+            $afrom[$t][$cle] = [
+                "\n" .
+                ($from_type[$cle] ?? 'INNER') . ' JOIN',
+                $from[$cle],
+                "AS $cle",
+                'ON (',
+                "$cle.$c",
+                '=',
+                "$t.$carr",
+                ($and ? 'AND ' . $and : '') .
+                ')'
+            ];
+            if (isset($afrom[$cle])) {
+                $afrom[$t] = $afrom[$t] + $afrom[$cle];
+                unset($afrom[$cle]);
+            }
+            $equiv[] = $carr;
+        } else {
+            unset($join[$cledef]);
+            if (isset($where_simples[$cle_where_lie])) {
+                unset($where_simples[$cle_where_lie]);
+                unset($where[$cle_where_lie]);
+            }
+        }
+        unset($from[$cle]);
+        $k--;
+    }
+
+    if (count($afrom)) {
+        // Regarder si la table principale ne sert finalement a rien comme dans
+        //<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
+        //<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
+        //<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
+        // ou dans
+        //<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
+        // qui comporte plusieurs jointures
+        // ou dans
+        // <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
+        // <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
+        // penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
+        // <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
+        // penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
+        // <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
+
+        $t = key($from);
+        $c = current($from);
+        reset($from);
+        $e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
+        if (
+            !(strpos($t, ' ') or // jointure des le depart cf boucle_doc
+                calculer_jointnul($t, $select, $e) or
+                calculer_jointnul($t, $join, $e) or
+                calculer_jointnul($t, $where, $e) or
+                calculer_jointnul($t, $orderby, $e) or
+                calculer_jointnul($t, $groupby, $e) or
+                calculer_jointnul($t, $having, $e))
+            && count($afrom[$t])
+        ) {
+            $nfrom = reset($afrom[$t]);
+            $nt = array_key_first($afrom[$t]);
+            unset($from[$t]);
+            $from[$nt] = $nfrom[1];
+            unset($afrom[$t][$nt]);
+            $afrom[$nt] = $afrom[$t];
+            unset($afrom[$t]);
+            $e = '/\b' . preg_quote($nfrom[6]) . '\b/';
+            $t = $nfrom[4];
+            $alias = '';
+            // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
+            $oldcle = explode('.', $nfrom[6]);
+            $oldcle = end($oldcle);
+            $newcle = explode('.', $nfrom[4]);
+            $newcle = end($newcle);
+            if ($newcle != $oldcle) {
+                // si l'ancienne cle etait deja dans le select avec un AS
+                // reprendre simplement ce AS
+                $as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
+                if (preg_match($as, implode(',', $select), $m)) {
+                    $alias = '';
+                } else {
+                    $alias = ', ' . $nfrom[4] . " AS $oldcle";
+                }
+            }
+            $select = remplacer_jointnul($t . $alias, $select, $e);
+            $join = remplacer_jointnul($t, $join, $e);
+            $where = remplacer_jointnul($t, $where, $e);
+            $having = remplacer_jointnul($t, $having, $e);
+            $groupby = remplacer_jointnul($t, $groupby, $e);
+            $orderby = remplacer_jointnul($t, $orderby, $e);
+        }
+        $from = reinjecte_joint($afrom, $from);
+    }
+    if (empty($GLOBALS['debug']) or !is_array($GLOBALS['debug'])) {
+        $wasdebug = empty($GLOBALS['debug']) ? false : $GLOBALS['debug'];
+        $GLOBALS['debug'] = [];
+        if ($wasdebug) {
+            $GLOBALS['debug']['debug'] = true;
+        }
+    }
+    $GLOBALS['debug']['aucasou'] = [$table, $id, $serveur, $requeter];
+    $r = sql_select(
+        $select,
+        $from,
+        $where,
+        $groupby,
+        array_filter($orderby),
+        $limit,
+        $having,
+        $serveur,
+        $requeter
+    );
+    unset($GLOBALS['debug']['aucasou']);
+
+    return $r;
 }
 
 /**
@@ -997,79 +997,79 @@ 
  * @return string
  */
 function calculer_where_to_string($v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
-
-	if (!is_array($v)) {
-		return $v;
-	} else {
-		$exp = '';
-		if (strtoupper($join) === 'AND') {
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    if (!is_array($v)) {
+        return $v;
+    } else {
+        $exp = '';
+        if (strtoupper($join) === 'AND') {
+            return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
 //condition suffisante (mais non necessaire) pour qu'une table soit utile
 
 function calculer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		if ($equiv) {
-			$exp = preg_replace($equiv, '', $exp);
-		}
-
-		return preg_match("/\\b$cle\\./", $exp);
-	} else {
-		foreach ($exp as $v) {
-			if (calculer_jointnul($cle, $v, $equiv)) {
-				return true;
-			}
-		}
-
-		return false;
-	}
+    if (!is_array($exp)) {
+        if ($equiv) {
+            $exp = preg_replace($equiv, '', $exp);
+        }
+
+        return preg_match("/\\b$cle\\./", $exp);
+    } else {
+        foreach ($exp as $v) {
+            if (calculer_jointnul($cle, $v, $equiv)) {
+                return true;
+            }
+        }
+
+        return false;
+    }
 }
 
 function reinjecte_joint($afrom, $from) {
-	$from_synth = [];
-	foreach ($from as $k => $v) {
-		$from_synth[$k] = $from[$k];
-		if (isset($afrom[$k])) {
-			foreach ($afrom[$k] as $kk => $vv) {
-				$afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
-			}
-			$from_synth["$k@"] = implode(' ', $afrom[$k]);
-			unset($afrom[$k]);
-		}
-	}
-
-	return $from_synth;
+    $from_synth = [];
+    foreach ($from as $k => $v) {
+        $from_synth[$k] = $from[$k];
+        if (isset($afrom[$k])) {
+            foreach ($afrom[$k] as $kk => $vv) {
+                $afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
+            }
+            $from_synth["$k@"] = implode(' ', $afrom[$k]);
+            unset($afrom[$k]);
+        }
+    }
+
+    return $from_synth;
 }
 
 function remplacer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		return preg_replace($equiv, $cle, $exp);
-	} else {
-		foreach ($exp as $k => $v) {
-			$exp[$k] = remplacer_jointnul($cle, $v, $equiv);
-		}
-
-		return $exp;
-	}
+    if (!is_array($exp)) {
+        return preg_replace($equiv, $cle, $exp);
+    } else {
+        foreach ($exp as $k => $v) {
+            $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
+        }
+
+        return $exp;
+    }
 }
 
 // calcul du nom du squelette
 function calculer_nom_fonction_squel($skel, $mime_type = 'html', string $connect = '') {
-	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if ($l = strlen(_DIR_RACINE) and strncmp($skel, _DIR_RACINE, $l) == 0) {
-		$skel = substr($skel, strlen(_DIR_RACINE));
-	}
-
-	return $mime_type
-	. (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
+    // ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
+    if ($l = strlen(_DIR_RACINE) and strncmp($skel, _DIR_RACINE, $l) == 0) {
+        $skel = substr($skel, strlen(_DIR_RACINE));
+    }
+
+    return $mime_type
+    . (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
+    . md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
 }

ecrire/public/styliser_par_z.php

Indentation +319 added lines, -319 removed lines

@@ -19,7 +19,7 @@ 
  * @package SPIP\Core\Public\Styliser
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -29,193 +29,193 @@ 
  * @return array Données modifiées du pipeline
  */
 function public_styliser_par_z_dist($flux) {
-	static $prefix_path = null;
-	static $prefix_length;
-	static $z_blocs;
-	static $apl_constant;
-	static $page;
-	static $disponible = [];
-	static $echafauder;
-	static $prepend = '';
-
-	if (!isset($prefix_path)) {
-		$z_blocs = z_blocs(test_espace_prive());
-		if (test_espace_prive()) {
-			$prefix_path = 'prive/squelettes/';
-			$prefix_length = strlen($prefix_path);
-			$apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
-			$page = 'exec';
-			$echafauder = charger_fonction('echafauder', 'prive', true);
-			define('_ZCORE_EXCLURE_PATH', '');
-		} else {
-			$prefix_path = '';
-			$prefix_length = 0;
-			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
-			$page = _SPIP_PAGE;
-			$echafauder = charger_fonction('echafauder', 'public', true);
-			define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim(
-				_DIR_PLUGIN_DIST,
-				'/'
-			) : ''));
-		}
-		$prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : '');
-	}
-	$z_contenu = reset($z_blocs); // contenu par defaut
-
-	$fond = $flux['args']['fond'];
-
-	if ($prepend or strncmp($fond, $prefix_path, $prefix_length) == 0) {
-		$fond = substr($fond, $prefix_length);
-		$squelette = $flux['data'];
-		$ext = $flux['args']['ext'];
-		// Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
-		if (
-			defined('_Z_AJAX_PARALLEL_LOAD_OK')
-			and $dir = explode('/', $fond)
-			and count($dir) == 2 // pas un sous repertoire
-			and $dir = reset($dir)
-			and in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
-			and defined($apl_constant)
-			and in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
-			and $pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
-		) {
-			$flux['data'] = $pipe;
-
-			return $flux;
-		}
-
-		// surcharger aussi les squelettes venant de squelettes-dist/
-		if ($squelette and !z_fond_valide($squelette)) {
-			$squelette = '';
-			$echafauder = '';
-		}
-		if ($prepend) {
-			$squelette = substr(find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext"));
-			if ($squelette) {
-				$flux['data'] = $squelette;
-			}
-		}
-
-		// gerer les squelettes non trouves
-		// -> router vers les /dist.html
-		// ou scaffolding ou page automatique les contenus
-		if (!$squelette) {
-			// si on est sur un ?page=XX non trouve
-			if (
-				(isset($flux['args']['contexte'][$page])
-					and $flux['args']['contexte'][$page] == $fond)
-				or (isset($flux['args']['contexte']['type-page'])
-					and $flux['args']['contexte']['type-page'] == $fond)
-				or ($fond == 'sommaire'
-					and (!isset($flux['args']['contexte'][$page]) or !$flux['args']['contexte'][$page]))
-			) {
-				// si on est sur un ?page=XX non trouve
-				// se brancher sur contenu/xx si il existe
-				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
-				if (!isset($disponible[$fond])) {
-					$disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, $echafauder);
-				}
-
-				if ($disponible[$fond]) {
-					$flux['data'] = substr(find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext"));
-				}
-			}
-
-			// echafaudage :
-			// si c'est un fond de contenu d'un objet en base
-			// generer un fond automatique a la volee pour les webmestres
-			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu) + 1) == 0) {
-				$type = substr($fond, strlen($z_contenu) + 1);
-				if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
-					$type = $flux['args']['contexte'][$page];
-				}
-				if (!isset($disponible[$type])) {
-					$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
-				}
-				if (is_string($disponible[$type])) {
-					$flux['data'] = $disponible[$type];
-				} elseif (
-					$echafauder
-					and include_spip('inc/autoriser')
-					and isset($GLOBALS['visiteur_session']['statut']) // performance
-					and autoriser('echafauder', $type)
-					and $is = $disponible[$type]
-					and is_array($is)
-				) {
-					$flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
-				} else {
-					$flux['data'] = ($disponible['404'] = z_contenu_disponible(
-						$prefix_path . $prepend,
-						$z_contenu,
-						'404',
-						$ext,
-						$echafauder
-					));
-				}
-			}
-
-			// sinon, si on demande un fond non trouve dans un des autres blocs
-			// et si il y a bien un contenu correspondant ou echafaudable
-			// se rabbatre sur le dist.html du bloc concerne
-			else {
-				if (
-					$dir = explode('/', $fond)
-					and $dir = reset($dir)
-					and $dir !== $z_contenu
-					and in_array($dir, $z_blocs)
-				) {
-					$type = substr($fond, strlen("$dir/"));
-					if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
-						$type = $flux['args']['contexte'][$page];
-					}
-					if ($type !== 'page' and !isset($disponible[$type])) {
-						$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
-					}
-					if ($type == 'page' or $disponible[$type]) {
-						$flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext);
-					}
-				}
-			}
-			$squelette = $flux['data'];
-		}
-		// layout specifiques par type et compositions :
-		// body-article.html
-		// body-sommaire.html
-		// pour des raisons de perfo, les declinaisons doivent etre dans le
-		// meme dossier que body.html
-		if ($fond == 'body' and substr($squelette, -strlen($fond)) == $fond) {
-			if (
-				isset($flux['args']['contexte']['type-page'])
-				and (
-					(isset($flux['args']['contexte']['composition'])
-						and file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext"))
-					or
-					file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext")
-				)
-			) {
-				$flux['data'] = $f;
-			}
-		} elseif (
-			$fond == 'structure'
-			and z_sanitize_var_zajax()
-			and $f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")
-		) {
-			$flux['data'] = substr($f, 0, -strlen(".$ext"));
-		} // chercher le fond correspondant a la composition
-		elseif (
-			isset($flux['args']['contexte']['composition'])
-			and (basename($fond) == 'page' or ($squelette and substr($squelette, -strlen($fond)) == $fond))
-			and $dir = substr($fond, $prefix_length)
-			and $dir = explode('/', $dir)
-			and $dir = reset($dir)
-			and in_array($dir, $z_blocs)
-			and $f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")
-		) {
-			$flux['data'] = substr($f, 0, -strlen(".$ext"));
-		}
-	}
-
-	return $flux;
+    static $prefix_path = null;
+    static $prefix_length;
+    static $z_blocs;
+    static $apl_constant;
+    static $page;
+    static $disponible = [];
+    static $echafauder;
+    static $prepend = '';
+
+    if (!isset($prefix_path)) {
+        $z_blocs = z_blocs(test_espace_prive());
+        if (test_espace_prive()) {
+            $prefix_path = 'prive/squelettes/';
+            $prefix_length = strlen($prefix_path);
+            $apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
+            $page = 'exec';
+            $echafauder = charger_fonction('echafauder', 'prive', true);
+            define('_ZCORE_EXCLURE_PATH', '');
+        } else {
+            $prefix_path = '';
+            $prefix_length = 0;
+            $apl_constant = '_Z_AJAX_PARALLEL_LOAD';
+            $page = _SPIP_PAGE;
+            $echafauder = charger_fonction('echafauder', 'public', true);
+            define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim(
+                _DIR_PLUGIN_DIST,
+                '/'
+            ) : ''));
+        }
+        $prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : '');
+    }
+    $z_contenu = reset($z_blocs); // contenu par defaut
+
+    $fond = $flux['args']['fond'];
+
+    if ($prepend or strncmp($fond, $prefix_path, $prefix_length) == 0) {
+        $fond = substr($fond, $prefix_length);
+        $squelette = $flux['data'];
+        $ext = $flux['args']['ext'];
+        // Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
+        if (
+            defined('_Z_AJAX_PARALLEL_LOAD_OK')
+            and $dir = explode('/', $fond)
+            and count($dir) == 2 // pas un sous repertoire
+            and $dir = reset($dir)
+            and in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
+            and defined($apl_constant)
+            and in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
+            and $pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
+        ) {
+            $flux['data'] = $pipe;
+
+            return $flux;
+        }
+
+        // surcharger aussi les squelettes venant de squelettes-dist/
+        if ($squelette and !z_fond_valide($squelette)) {
+            $squelette = '';
+            $echafauder = '';
+        }
+        if ($prepend) {
+            $squelette = substr(find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext"));
+            if ($squelette) {
+                $flux['data'] = $squelette;
+            }
+        }
+
+        // gerer les squelettes non trouves
+        // -> router vers les /dist.html
+        // ou scaffolding ou page automatique les contenus
+        if (!$squelette) {
+            // si on est sur un ?page=XX non trouve
+            if (
+                (isset($flux['args']['contexte'][$page])
+                    and $flux['args']['contexte'][$page] == $fond)
+                or (isset($flux['args']['contexte']['type-page'])
+                    and $flux['args']['contexte']['type-page'] == $fond)
+                or ($fond == 'sommaire'
+                    and (!isset($flux['args']['contexte'][$page]) or !$flux['args']['contexte'][$page]))
+            ) {
+                // si on est sur un ?page=XX non trouve
+                // se brancher sur contenu/xx si il existe
+                // ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
+                if (!isset($disponible[$fond])) {
+                    $disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, $echafauder);
+                }
+
+                if ($disponible[$fond]) {
+                    $flux['data'] = substr(find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext"));
+                }
+            }
+
+            // echafaudage :
+            // si c'est un fond de contenu d'un objet en base
+            // generer un fond automatique a la volee pour les webmestres
+            elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu) + 1) == 0) {
+                $type = substr($fond, strlen($z_contenu) + 1);
+                if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
+                    $type = $flux['args']['contexte'][$page];
+                }
+                if (!isset($disponible[$type])) {
+                    $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+                }
+                if (is_string($disponible[$type])) {
+                    $flux['data'] = $disponible[$type];
+                } elseif (
+                    $echafauder
+                    and include_spip('inc/autoriser')
+                    and isset($GLOBALS['visiteur_session']['statut']) // performance
+                    and autoriser('echafauder', $type)
+                    and $is = $disponible[$type]
+                    and is_array($is)
+                ) {
+                    $flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
+                } else {
+                    $flux['data'] = ($disponible['404'] = z_contenu_disponible(
+                        $prefix_path . $prepend,
+                        $z_contenu,
+                        '404',
+                        $ext,
+                        $echafauder
+                    ));
+                }
+            }
+
+            // sinon, si on demande un fond non trouve dans un des autres blocs
+            // et si il y a bien un contenu correspondant ou echafaudable
+            // se rabbatre sur le dist.html du bloc concerne
+            else {
+                if (
+                    $dir = explode('/', $fond)
+                    and $dir = reset($dir)
+                    and $dir !== $z_contenu
+                    and in_array($dir, $z_blocs)
+                ) {
+                    $type = substr($fond, strlen("$dir/"));
+                    if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
+                        $type = $flux['args']['contexte'][$page];
+                    }
+                    if ($type !== 'page' and !isset($disponible[$type])) {
+                        $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+                    }
+                    if ($type == 'page' or $disponible[$type]) {
+                        $flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext);
+                    }
+                }
+            }
+            $squelette = $flux['data'];
+        }
+        // layout specifiques par type et compositions :
+        // body-article.html
+        // body-sommaire.html
+        // pour des raisons de perfo, les declinaisons doivent etre dans le
+        // meme dossier que body.html
+        if ($fond == 'body' and substr($squelette, -strlen($fond)) == $fond) {
+            if (
+                isset($flux['args']['contexte']['type-page'])
+                and (
+                    (isset($flux['args']['contexte']['composition'])
+                        and file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext"))
+                    or
+                    file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext")
+                )
+            ) {
+                $flux['data'] = $f;
+            }
+        } elseif (
+            $fond == 'structure'
+            and z_sanitize_var_zajax()
+            and $f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")
+        ) {
+            $flux['data'] = substr($f, 0, -strlen(".$ext"));
+        } // chercher le fond correspondant a la composition
+        elseif (
+            isset($flux['args']['contexte']['composition'])
+            and (basename($fond) == 'page' or ($squelette and substr($squelette, -strlen($fond)) == $fond))
+            and $dir = substr($fond, $prefix_length)
+            and $dir = explode('/', $dir)
+            and $dir = reset($dir)
+            and in_array($dir, $z_blocs)
+            and $f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")
+        ) {
+            $flux['data'] = substr($f, 0, -strlen(".$ext"));
+        }
+    }
+
+    return $flux;
 }
 
 /**
@@ -225,18 +225,18 @@ 
  * @return array
  */
 function z_blocs($espace_prive = false) {
-	if ($espace_prive) {
-		return ($GLOBALS['z_blocs_ecrire'] ?? [
-			'contenu',
-			'navigation',
-			'extra',
-			'head',
-			'hierarchie',
-			'top'
-		]);
-	}
-
-	return ($GLOBALS['z_blocs'] ?? ['contenu']);
+    if ($espace_prive) {
+        return ($GLOBALS['z_blocs_ecrire'] ?? [
+            'contenu',
+            'navigation',
+            'extra',
+            'head',
+            'hierarchie',
+            'top'
+        ]);
+    }
+
+    return ($GLOBALS['z_blocs'] ?? ['contenu']);
 }
 
 /**
@@ -251,11 +251,11 @@ 
  * @return mixed
  */
 function z_contenu_disponible($prefix_path, $z_contenu, $type, $ext, $echafauder = true) {
-	if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) {
-		return $d;
-	}
+    if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) {
+        return $d;
+    }
 
-	return $echafauder ? z_echafaudable($type) : false;
+    return $echafauder ? z_echafaudable($type) : false;
 }
 
 /**
@@ -269,14 +269,14 @@ 
  *   `true` si on peut l'utiliser, `false` sinon.
  **/
 function z_fond_valide($squelette) {
-	if (
-		!_ZCORE_EXCLURE_PATH
-		or !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette)
-	) {
-		return true;
-	}
-
-	return false;
+    if (
+        !_ZCORE_EXCLURE_PATH
+        or !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette)
+    ) {
+        return true;
+    }
+
+    return false;
 }
 
 /**
@@ -294,14 +294,14 @@ 
  * @return string
  */
 function z_trouver_bloc($prefix_path, $bloc, $fond, $ext) {
-	if (
-		(defined('_ZCORE_BLOC_PREFIX_SKEL') and $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") and z_fond_valide($f))
-		or ($f = find_in_path("$prefix_path$bloc/$fond.$ext") and z_fond_valide($f))
-	) {
-		return substr($f, 0, -strlen(".$ext"));
-	}
-
-	return '';
+    if (
+        (defined('_ZCORE_BLOC_PREFIX_SKEL') and $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") and z_fond_valide($f))
+        or ($f = find_in_path("$prefix_path$bloc/$fond.$ext") and z_fond_valide($f))
+    ) {
+        return substr($f, 0, -strlen(".$ext"));
+    }
+
+    return '';
 }
 
 /**
@@ -313,52 +313,52 @@ 
  * @return bool
  */
 function z_echafaudable($type) {
-	static $pages = null;
-	static $echafaudable = [];
-	if (isset($echafaudable[$type])) {
-		return $echafaudable[$type];
-	}
-	if (preg_match(',[^\w],', $type)) {
-		return $echafaudable[$type] = false;
-	}
-
-	if (test_espace_prive()) {
-		if (!function_exists('trouver_objet_exec')) {
-			include_spip('inc/pipelines_ecrire');
-		}
-		if ($e = trouver_objet_exec($type)) {
-			return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e];
-		} else {
-			// peut etre c'est un exec=types qui liste tous les objets "type"
-			if (
-				($t = objet_type($type, false)) !== $type
-				and $e = trouver_objet_exec($t)
-			) {
-				return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t];
-			}
-		}
-	} else {
-		if (is_null($pages)) {
-			$pages = [];
-			$liste = lister_tables_objets_sql();
-			foreach ($liste as $t => $d) {
-				if ($d['page']) {
-					$pages[$d['page']] = [$d['table_objet'], $t];
-				}
-			}
-		}
-		if (!isset($pages[$type])) {
-			return $echafaudable[$type] = false;
-		}
-		if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$pages[$type][] = $trouver_table(reset($pages[$type]));
-		}
-
-		return $echafaudable[$type] = $pages[$type];
-	}
-
-	return $echafaudable[$type] = false;
+    static $pages = null;
+    static $echafaudable = [];
+    if (isset($echafaudable[$type])) {
+        return $echafaudable[$type];
+    }
+    if (preg_match(',[^\w],', $type)) {
+        return $echafaudable[$type] = false;
+    }
+
+    if (test_espace_prive()) {
+        if (!function_exists('trouver_objet_exec')) {
+            include_spip('inc/pipelines_ecrire');
+        }
+        if ($e = trouver_objet_exec($type)) {
+            return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e];
+        } else {
+            // peut etre c'est un exec=types qui liste tous les objets "type"
+            if (
+                ($t = objet_type($type, false)) !== $type
+                and $e = trouver_objet_exec($t)
+            ) {
+                return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t];
+            }
+        }
+    } else {
+        if (is_null($pages)) {
+            $pages = [];
+            $liste = lister_tables_objets_sql();
+            foreach ($liste as $t => $d) {
+                if ($d['page']) {
+                    $pages[$d['page']] = [$d['table_objet'], $t];
+                }
+            }
+        }
+        if (!isset($pages[$type])) {
+            return $echafaudable[$type] = false;
+        }
+        if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $pages[$type][] = $trouver_table(reset($pages[$type]));
+        }
+
+        return $echafaudable[$type] = $pages[$type];
+    }
+
+    return $echafaudable[$type] = false;
 }
 
 
@@ -375,46 +375,46 @@ 
  * @return string
  */
 function prive_echafauder_dist($exec, $table, $table_sql, $desc_exec, $ext) {
-	$scaffold = '';
-
-	// page objet ou objet_edit
-	if (is_array($desc_exec)) {
-		$type = $desc_exec['type'];
-		$primary = $desc_exec['id_table_objet'];
-
-		if ($desc_exec['edition'] === false) {
-			$fond = 'objet';
-		} else {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($table_sql);
-			if (isset($desc['field']['id_rubrique'])) {
-				$fond = 'objet_edit';
-			} else {
-				$fond = 'objet_edit.sans_rubrique';
-			}
-		}
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper($primary) . ',env}>';
-	} // page objets
-	elseif ($type = $desc_exec and !str_contains($type, '/')) {
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />';
-	}
-	// morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
-	// et objet et tire de $table
-	elseif ($fond = $desc_exec) {
-		$dir = md5(dirname($fond));
-		$scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />';
-	}
-
-	$base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false);
-	$base_dir = sous_repertoire($base_dir, $dir, false);
-	$f = $base_dir . "$exec";
-	ecrire_fichier("$f.$ext", $scaffold);
-
-	return $f;
+    $scaffold = '';
+
+    // page objet ou objet_edit
+    if (is_array($desc_exec)) {
+        $type = $desc_exec['type'];
+        $primary = $desc_exec['id_table_objet'];
+
+        if ($desc_exec['edition'] === false) {
+            $fond = 'objet';
+        } else {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($table_sql);
+            if (isset($desc['field']['id_rubrique'])) {
+                $fond = 'objet_edit';
+            } else {
+                $fond = 'objet_edit.sans_rubrique';
+            }
+        }
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper($primary) . ',env}>';
+    } // page objets
+    elseif ($type = $desc_exec and !str_contains($type, '/')) {
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />';
+    }
+    // morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
+    // et objet et tire de $table
+    elseif ($fond = $desc_exec) {
+        $dir = md5(dirname($fond));
+        $scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />';
+    }
+
+    $base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false);
+    $base_dir = sous_repertoire($base_dir, $dir, false);
+    $f = $base_dir . "$exec";
+    ecrire_fichier("$f.$ext", $scaffold);
+
+    return $f;
 }
 
 /**
@@ -423,17 +423,17 @@ 
  * @return bool|string
  */
 function z_sanitize_var_zajax() {
-	$z_ajax = _request('var_zajax');
-	if (!$z_ajax) {
-		return false;
-	}
-	if (
-		!$z_blocs = z_blocs(test_espace_prive())
-		or !in_array($z_ajax, $z_blocs)
-	) {
-		set_request('var_zajax'); // enlever cette demande incongrue
-		$z_ajax = false;
-	}
-
-	return $z_ajax;
+    $z_ajax = _request('var_zajax');
+    if (!$z_ajax) {
+        return false;
+    }
+    if (
+        !$z_blocs = z_blocs(test_espace_prive())
+        or !in_array($z_ajax, $z_blocs)
+    ) {
+        set_request('var_zajax'); // enlever cette demande incongrue
+        $z_ajax = false;
+    }
+
+    return $z_ajax;
 }

ecrire/public/sandbox.php

Indentation +99 added lines, -99 removed lines

@@ -23,7 +23,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -41,9 +41,9 @@ 
  *     texte
  */
 function sandbox_composer_texte($texte, &$p) {
-	$code = "'" . str_replace(['\\', "'"], ['\\\\', "\\'"], $texte) . "'";
+    $code = "'" . str_replace(['\\', "'"], ['\\\\', "\\'"], $texte) . "'";
 
-	return $code;
+    return $code;
 }
 
 
@@ -59,42 +59,42 @@ 
  * @return string
  */
 function sandbox_composer_filtre($fonc, $code, $arglist, &$p, $nb_arg_droite = 1000): string {
-	if (isset($GLOBALS['spip_matrice'][$fonc])) {
-		$code = "filtrer('$fonc',$code$arglist)";
-	}
-
-	// le filtre est defini sous forme de fonction ou de methode
-	// par ex. dans inc_texte, inc_filtres ou mes_fonctions
-	elseif ($f = chercher_filtre($fonc)) {
-		// cas particulier : le filtre |set doit acceder a la $Pile
-		// proto: filtre_set(&$Pile, $val, $args...)
-		if (strpbrk($f, ':')) { // Class::method
-			$refl = new ReflectionMethod($f);
-		} else {
-			$refl = new ReflectionFunction($f);
-		}
-		$refs = $refl->getParameters();
-		if (isset($refs[0]) and $refs[0]->name == 'Pile') {
-			$code = "$f(\$Pile,$code$arglist)";
-			$nb_arg_gauche = 2; // la balise à laquelle s'applique le filtre + $Pile
-		} else {
-			$code = "$f($code$arglist)";
-			$nb_arg_gauche = 1; // la balise à laquelle s'applique le filtre
-		}
-		$nb_args_f = $nb_arg_gauche + $nb_arg_droite;
-		$min_f = $refl->getNumberOfRequiredParameters();
-		if (($nb_args_f < $min_f)) {
-			$msg_args = ['filtre' => texte_script($fonc), 'nb' => $min_f - $nb_args_f];
-			erreur_squelette([ 'zbug_erreur_filtre_nbarg_min', $msg_args], $p);
-		}
-	}
-	// le filtre n'existe pas,
-	// on le notifie
-	else {
-		erreur_squelette(['zbug_erreur_filtre', ['filtre' => texte_script($fonc)]], $p);
-	}
-
-	return $code;
+    if (isset($GLOBALS['spip_matrice'][$fonc])) {
+        $code = "filtrer('$fonc',$code$arglist)";
+    }
+
+    // le filtre est defini sous forme de fonction ou de methode
+    // par ex. dans inc_texte, inc_filtres ou mes_fonctions
+    elseif ($f = chercher_filtre($fonc)) {
+        // cas particulier : le filtre |set doit acceder a la $Pile
+        // proto: filtre_set(&$Pile, $val, $args...)
+        if (strpbrk($f, ':')) { // Class::method
+            $refl = new ReflectionMethod($f);
+        } else {
+            $refl = new ReflectionFunction($f);
+        }
+        $refs = $refl->getParameters();
+        if (isset($refs[0]) and $refs[0]->name == 'Pile') {
+            $code = "$f(\$Pile,$code$arglist)";
+            $nb_arg_gauche = 2; // la balise à laquelle s'applique le filtre + $Pile
+        } else {
+            $code = "$f($code$arglist)";
+            $nb_arg_gauche = 1; // la balise à laquelle s'applique le filtre
+        }
+        $nb_args_f = $nb_arg_gauche + $nb_arg_droite;
+        $min_f = $refl->getNumberOfRequiredParameters();
+        if (($nb_args_f < $min_f)) {
+            $msg_args = ['filtre' => texte_script($fonc), 'nb' => $min_f - $nb_args_f];
+            erreur_squelette([ 'zbug_erreur_filtre_nbarg_min', $msg_args], $p);
+        }
+    }
+    // le filtre n'existe pas,
+    // on le notifie
+    else {
+        erreur_squelette(['zbug_erreur_filtre', ['filtre' => texte_script($fonc)]], $p);
+    }
+
+    return $code;
 }
 
 // Calculer un <INCLURE(xx.php)>
@@ -117,15 +117,15 @@ 
  * @return string
  */
 function sandbox_composer_inclure_php($fichier, &$p, $_contexte) {
-	$compil = texte_script(memoriser_contexte_compil($p));
-	// si inexistant, on essaiera a l'execution
-	if ($path = find_in_path($fichier)) {
-		$path = "\"$path\"";
-	} else {
-		$path = "find_in_path(\"$fichier\")";
-	}
-
-	return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
+    $compil = texte_script(memoriser_contexte_compil($p));
+    // si inexistant, on essaiera a l'execution
+    if ($path = find_in_path($fichier)) {
+        $path = "\"$path\"";
+    } else {
+        $path = "find_in_path(\"$fichier\")";
+    }
+
+    return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
 }
 
 /**
@@ -137,20 +137,20 @@ 
  * @return string
  */
 function sandbox_composer_interdire_scripts($code, &$p) {
-	// Securite
-	if (
-		$p->interdire_scripts
-		and $p->etoile != '**'
-	) {
-		if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r)) {
-			$code = "interdire_scripts($code)";
-		} else {
-			$code = interdire_scripts($r[2]);
-			$code = "sinon(interdire_scripts($r[1]),'$code')";
-		}
-	}
-
-	return $code;
+    // Securite
+    if (
+        $p->interdire_scripts
+        and $p->etoile != '**'
+    ) {
+        if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r)) {
+            $code = "interdire_scripts($code)";
+        } else {
+            $code = interdire_scripts($r[2]);
+            $code = "sinon(interdire_scripts($r[1]),'$code')";
+        }
+    }
+
+    return $code;
 }
 
 
@@ -169,30 +169,30 @@ 
  * @return mixed|string
  */
 function sandbox_filtrer_squelette($skel, $corps, $filtres) {
-	$series_filtres = func_get_args();
-	array_shift($series_filtres);// skel
-	array_shift($series_filtres);// corps
-
-	// proteger les <INCLUDE> et tous les morceaux de php licites
-	if ($skel['process_ins'] == 'php') {
-		$corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS', 'echapper_php_callback', $corps);
-	}
-
-	// recuperer les couples de remplacement
-	$replace = echapper_php_callback();
-
-	foreach ($series_filtres as $filtres) {
-		if (is_countable($filtres) ? count($filtres) : 0) {
-			foreach ($filtres as $filtre) {
-				if ($filtre and $f = chercher_filtre($filtre)) {
-					$corps = $f($corps);
-				}
-			}
-		}
-	}
-
-	// restaurer les echappements
-	return str_replace($replace[0], $replace[1], $corps);
+    $series_filtres = func_get_args();
+    array_shift($series_filtres);// skel
+    array_shift($series_filtres);// corps
+
+    // proteger les <INCLUDE> et tous les morceaux de php licites
+    if ($skel['process_ins'] == 'php') {
+        $corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS', 'echapper_php_callback', $corps);
+    }
+
+    // recuperer les couples de remplacement
+    $replace = echapper_php_callback();
+
+    foreach ($series_filtres as $filtres) {
+        if (is_countable($filtres) ? count($filtres) : 0) {
+            foreach ($filtres as $filtre) {
+                if ($filtre and $f = chercher_filtre($filtre)) {
+                    $corps = $f($corps);
+                }
+            }
+        }
+    }
+
+    // restaurer les echappements
+    return str_replace($replace[0], $replace[1], $corps);
 }
 
 
@@ -211,21 +211,21 @@ 
  *     - array : Liste( liste des codes PHP, liste des substitutions )
  **/
 function echapper_php_callback($r = null) {
-	static $src = [];
-	static $dst = [];
+    static $src = [];
+    static $dst = [];
 
-	// si on recoit un tableau, on est en mode echappement
-	// on enregistre le code a echapper dans dst, et le code echappe dans src
-	if (is_array($r)) {
-		$dst[] = $r[0];
+    // si on recoit un tableau, on est en mode echappement
+    // on enregistre le code a echapper dans dst, et le code echappe dans src
+    if (is_array($r)) {
+        $dst[] = $r[0];
 
-		return $src[] = '___' . md5($r[0]) . '___';
-	}
+        return $src[] = '___' . md5($r[0]) . '___';
+    }
 
-	// si on recoit pas un tableau, on renvoit les couples de substitution
-	// et on RAZ les remplacements
-	$r = [$src, $dst];
-	$src = $dst = [];
+    // si on recoit pas un tableau, on renvoit les couples de substitution
+    // et on RAZ les remplacements
+    $r = [$src, $dst];
+    $src = $dst = [];
 
-	return $r;
+    return $r;
 }

ecrire/public/phraser_html.php

Indentation +1032 added lines, -1032 removed lines

@@ -28,7 +28,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** Début de la partie principale d'une boucle */
@@ -72,82 +72,82 @@ 
 
 function phraser_inclure($texte, $ligne, $result) {
 
-	while (preg_match(BALISE_INCLURE, $texte, $match)) {
-		$match = array_pad($match, 3, null);
-		$p = strpos($texte, (string) $match[0]);
-		$debut = substr($texte, 0, $p);
-		if ($p) {
-			$result = phraser_idiomes($debut, $ligne, $result);
-		}
-		$ligne += substr_count($debut, "\n");
-		$champ = new Inclure();
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		$fichier = $match[2];
-		# assurer ici la migration .php3 => .php
-		# et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
-		if ($fichier and preg_match(',^(.*[.]php)3$,', $fichier, $r)) {
-			$fichier = $r[1];
-		}
-		$champ->texte = ($fichier !== 'page.php') ? $fichier : '';
-		$texte = substr($texte, $p + strlen($match[0]));
-		// on assimile {var=val} a une liste de un argument sans fonction
-		$pos_apres = 0;
-		phraser_args($texte, '/>', '', $result, $champ, $pos_apres);
-		if (!$champ->texte or (is_countable($champ->param) ? count($champ->param) : 0) > 1) {
-			if (!function_exists('normaliser_inclure')) {
-				include_spip('public/normaliser');
-			}
-			normaliser_inclure($champ);
-		}
-		$texte = substr($texte, strpos($texte, '>', $pos_apres) + 1);
-		$texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
-		$result[] = $champ;
-	}
-
-	return (($texte === '') ? $result : phraser_idiomes($texte, $ligne, $result));
+    while (preg_match(BALISE_INCLURE, $texte, $match)) {
+        $match = array_pad($match, 3, null);
+        $p = strpos($texte, (string) $match[0]);
+        $debut = substr($texte, 0, $p);
+        if ($p) {
+            $result = phraser_idiomes($debut, $ligne, $result);
+        }
+        $ligne += substr_count($debut, "\n");
+        $champ = new Inclure();
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        $fichier = $match[2];
+        # assurer ici la migration .php3 => .php
+        # et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
+        if ($fichier and preg_match(',^(.*[.]php)3$,', $fichier, $r)) {
+            $fichier = $r[1];
+        }
+        $champ->texte = ($fichier !== 'page.php') ? $fichier : '';
+        $texte = substr($texte, $p + strlen($match[0]));
+        // on assimile {var=val} a une liste de un argument sans fonction
+        $pos_apres = 0;
+        phraser_args($texte, '/>', '', $result, $champ, $pos_apres);
+        if (!$champ->texte or (is_countable($champ->param) ? count($champ->param) : 0) > 1) {
+            if (!function_exists('normaliser_inclure')) {
+                include_spip('public/normaliser');
+            }
+            normaliser_inclure($champ);
+        }
+        $texte = substr($texte, strpos($texte, '>', $pos_apres) + 1);
+        $texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
+        $result[] = $champ;
+    }
+
+    return (($texte === '') ? $result : phraser_idiomes($texte, $ligne, $result));
 }
 
 function phraser_polyglotte($texte, $ligne, $result) {
 
-	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
-		foreach ($m as $match) {
-			$p = strpos($texte, (string) $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p) {
-				$champ = new Texte();
-				$champ->texte = $debut;
-				$champ->ligne = $ligne;
-				$result[] = $champ;
-				$ligne += substr_count($champ->texte, "\n");
-			}
-
-			$champ = new Polyglotte();
-			$champ->ligne = $ligne;
-			$ligne += substr_count($match[0], "\n");
-			$lang = '';
-			$bloc = $match[1];
-			$texte = substr($texte, $p + strlen($match[0]));
-			while (preg_match('/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si', $bloc, $regs)) {
-				$trad = $regs[1];
-				if ($trad or $lang) {
-					$champ->traductions[$lang] = $trad;
-				}
-				$lang = $regs[2];
-				$bloc = $regs[3];
-			}
-			$champ->traductions[$lang] = $bloc;
-			$result[] = $champ;
-		}
-	}
-	if ($texte !== '') {
-		$champ = new Texte();
-		$champ->texte = $texte;
-		$champ->ligne = $ligne;
-		$result[] = $champ;
-	}
-
-	return $result;
+    if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
+        foreach ($m as $match) {
+            $p = strpos($texte, (string) $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p) {
+                $champ = new Texte();
+                $champ->texte = $debut;
+                $champ->ligne = $ligne;
+                $result[] = $champ;
+                $ligne += substr_count($champ->texte, "\n");
+            }
+
+            $champ = new Polyglotte();
+            $champ->ligne = $ligne;
+            $ligne += substr_count($match[0], "\n");
+            $lang = '';
+            $bloc = $match[1];
+            $texte = substr($texte, $p + strlen($match[0]));
+            while (preg_match('/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si', $bloc, $regs)) {
+                $trad = $regs[1];
+                if ($trad or $lang) {
+                    $champ->traductions[$lang] = $trad;
+                }
+                $lang = $regs[2];
+                $bloc = $regs[3];
+            }
+            $champ->traductions[$lang] = $bloc;
+            $result[] = $champ;
+        }
+    }
+    if ($texte !== '') {
+        $champ = new Texte();
+        $champ->texte = $texte;
+        $champ->ligne = $ligne;
+        $result[] = $champ;
+    }
+
+    return $result;
 }
 
 
@@ -169,43 +169,43 @@ 
  * @return array
  **/
 function phraser_idiomes($texte, $ligne, $result) {
-	while (preg_match(BALISE_IDIOMES, $texte, $match)) {
-		$match = array_pad($match, 8, null);
-		$p = strpos($texte, (string) $match[0]);
-		$ko = (!$match[3] && ($match[5][0] !== '='));
-		$debut = substr($texte, 0, $p + ($ko ? strlen($match[0]) : 0));
-		if ($debut) {
-			$result = phraser_champs($debut, $ligne, $result);
-		}
-		$texte = substr($texte, $p + strlen($match[0]));
-		$ligne += substr_count($debut, "\n");
-		if ($ko) {
-			continue;
-		} // faux idiome
-		$champ = new Idiome();
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		// Stocker les arguments de la balise de traduction
-		$args = [];
-		$largs = $match[5];
-		while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
-			$args[$r[1]] = phraser_champs($r[2], 0, []);
-			$largs = substr($largs, strlen($r[0]));
-		}
-		$champ->arg = $args;
-		$champ->nom_champ = strtolower($match[3]);
-		$champ->module = $match[2];
-		// pas d'imbrication pour les filtres sur langue
-		$pos_apres = 0;
-		phraser_args($match[7] ?? '', ':', '', [], $champ, $pos_apres);
-		$champ->apres = substr($match[7] ?? '', $pos_apres);
-		$result[] = $champ;
-	}
-	if ($texte !== '') {
-		$result = phraser_champs($texte, $ligne, $result);
-	}
-
-	return $result;
+    while (preg_match(BALISE_IDIOMES, $texte, $match)) {
+        $match = array_pad($match, 8, null);
+        $p = strpos($texte, (string) $match[0]);
+        $ko = (!$match[3] && ($match[5][0] !== '='));
+        $debut = substr($texte, 0, $p + ($ko ? strlen($match[0]) : 0));
+        if ($debut) {
+            $result = phraser_champs($debut, $ligne, $result);
+        }
+        $texte = substr($texte, $p + strlen($match[0]));
+        $ligne += substr_count($debut, "\n");
+        if ($ko) {
+            continue;
+        } // faux idiome
+        $champ = new Idiome();
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        // Stocker les arguments de la balise de traduction
+        $args = [];
+        $largs = $match[5];
+        while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
+            $args[$r[1]] = phraser_champs($r[2], 0, []);
+            $largs = substr($largs, strlen($r[0]));
+        }
+        $champ->arg = $args;
+        $champ->nom_champ = strtolower($match[3]);
+        $champ->module = $match[2];
+        // pas d'imbrication pour les filtres sur langue
+        $pos_apres = 0;
+        phraser_args($match[7] ?? '', ':', '', [], $champ, $pos_apres);
+        $champ->apres = substr($match[7] ?? '', $pos_apres);
+        $result[] = $champ;
+    }
+    if ($texte !== '') {
+        $result = phraser_champs($texte, $ligne, $result);
+    }
+
+    return $result;
 }
 
 /**
@@ -223,47 +223,47 @@ 
  * @return array
  **/
 function phraser_champs($texte, $ligne, $result) {
-	while (preg_match('/' . NOM_DE_CHAMP . '/S', $texte, $match)) {
-		$p = strpos($texte, (string) $match[0]);
-		// texte après la balise
-		$suite = substr($texte, $p + strlen($match[0]));
-
-		$debut = substr($texte, 0, $p);
-		if ($p) {
-			$result = phraser_polyglotte($debut, $ligne, $result);
-		}
-		$ligne += substr_count($debut, "\n");
-		$champ = new Champ();
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		$champ->nom_boucle = $match[2];
-		$champ->nom_champ = $match[3];
-		$champ->etoile = $match[5];
-
-		if ($suite and $suite[0] == '{') {
-			phraser_arg($suite, '', [], $champ);
-			// ce ltrim est une ereur de conception
-			// mais on le conserve par souci de compatibilite
-			$texte = ltrim($suite);
-			// Il faudrait le normaliser dans l'arbre de syntaxe abstraite
-			// pour faire sauter ce cas particulier a la decompilation.
-			/* Ce qui suit est malheureusement incomplet pour cela:
+    while (preg_match('/' . NOM_DE_CHAMP . '/S', $texte, $match)) {
+        $p = strpos($texte, (string) $match[0]);
+        // texte après la balise
+        $suite = substr($texte, $p + strlen($match[0]));
+
+        $debut = substr($texte, 0, $p);
+        if ($p) {
+            $result = phraser_polyglotte($debut, $ligne, $result);
+        }
+        $ligne += substr_count($debut, "\n");
+        $champ = new Champ();
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        $champ->nom_boucle = $match[2];
+        $champ->nom_champ = $match[3];
+        $champ->etoile = $match[5];
+
+        if ($suite and $suite[0] == '{') {
+            phraser_arg($suite, '', [], $champ);
+            // ce ltrim est une ereur de conception
+            // mais on le conserve par souci de compatibilite
+            $texte = ltrim($suite);
+            // Il faudrait le normaliser dans l'arbre de syntaxe abstraite
+            // pour faire sauter ce cas particulier a la decompilation.
+            /* Ce qui suit est malheureusement incomplet pour cela:
 			if ($n = (strlen($suite) - strlen($texte))) {
 				$champ->apres = array(new Texte);
 				$champ->apres[0]->texte = substr($suite,0,$n);
 			}
 			*/
-		} else {
-			$texte = $suite;
-		}
-		phraser_vieux($champ);
-		$result[] = $champ;
-	}
-	if ($texte !== '') {
-		$result = phraser_polyglotte($texte, $ligne, $result);
-	}
-
-	return $result;
+        } else {
+            $texte = $suite;
+        }
+        phraser_vieux($champ);
+        $result[] = $champ;
+    }
+    if ($texte !== '') {
+        $result = phraser_polyglotte($texte, $ligne, $result);
+    }
+
+    return $result;
 }
 
 // Gestion des imbrications:
@@ -272,15 +272,15 @@ 
 // on recommence tant qu'il y a des [...] en substituant a l'appel suivant
 
 function phraser_champs_etendus($texte, $ligne, $result) {
-	if ($texte === '') {
-		return $result;
-	}
-	$sep = '##';
-	while (strpos($texte, (string) $sep) !== false) {
-		$sep .= '#';
-	}
-
-	return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, []));
+    if ($texte === '') {
+        return $result;
+    }
+    $sep = '##';
+    while (strpos($texte, (string) $sep) !== false) {
+        $sep .= '#';
+    }
+
+    return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, []));
 }
 
 /**
@@ -299,275 +299,275 @@ 
  * @return array
  */
 function phraser_args(string $texte, $fin, $sep, $result, &$pointeur_champ, &$pos_debut) {
-	$length = strlen($texte);
-	while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
-		$pos_debut++;
-	}
-	while (($pos_debut < $length) && !str_contains($fin, $texte[$pos_debut])) {
-		// phraser_arg modifie directement le $texte, on fait donc avec ici en passant par une sous chaine
-		$st = substr($texte, $pos_debut);
-		$result = phraser_arg($st, $sep, $result, $pointeur_champ);
-		$pos_debut = $length - strlen($st);
-		while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
-			$pos_debut++;
-		}
-	}
-
-	return $result;
+    $length = strlen($texte);
+    while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
+        $pos_debut++;
+    }
+    while (($pos_debut < $length) && !str_contains($fin, $texte[$pos_debut])) {
+        // phraser_arg modifie directement le $texte, on fait donc avec ici en passant par une sous chaine
+        $st = substr($texte, $pos_debut);
+        $result = phraser_arg($st, $sep, $result, $pointeur_champ);
+        $pos_debut = $length - strlen($st);
+        while ($pos_debut < $length and trim($texte[$pos_debut]) === '') {
+            $pos_debut++;
+        }
+    }
+
+    return $result;
 }
 
 function phraser_arg(&$texte, $sep, $result, &$pointeur_champ) {
-	preg_match(',^(\|?[^}{)|]*)(.*)$,ms', $texte, $match);
-	$suite = ltrim($match[2]);
-	$fonc = trim($match[1]);
-	if ($fonc && $fonc[0] == '|') {
-		$fonc = ltrim(substr($fonc, 1));
-	}
-	$res = [$fonc];
-	$err_f = '';
-	// cas du filtre sans argument ou du critere /
-	if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) {
-		// si pas d'argument, alors il faut une fonction ou un double |
-		if (!$match[1]) {
-			$err_f = ['zbug_erreur_filtre', ['filtre' => $texte]];
-			erreur_squelette($err_f, $pointeur_champ);
-			$texte = '';
-		} else {
-			$texte = $suite;
-		}
-		if ($err_f) {
-			$pointeur_champ->param = false;
-		} elseif ($fonc !== '') {
-			$pointeur_champ->param[] = $res;
-		}
-		// pour les balises avec faux filtres qui boudent ce dur larbeur
-		$pointeur_champ->fonctions[] = [$fonc, ''];
-
-		return $result;
-	}
-	$args = ltrim(substr($suite, 1)); // virer le '(' initial
-	$collecte = [];
-	while ($args && $args[0] != '}') {
-		if ($args[0] == '"') {
-			preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
-		} elseif ($args[0] == "'") {
-			preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
-		} else {
-			preg_match('/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms', $args, $regs);
-			if (!isset($regs[2]) or !strlen($regs[2])) {
-				$err_f = ['zbug_erreur_filtre', ['filtre' => $args]];
-				erreur_squelette($err_f, $pointeur_champ);
-				$champ = new Texte();
-				$champ->apres = $champ->avant = $args = '';
-				break;
-			}
-		}
-		$arg = $regs[2];
-		if (trim($regs[1])) {
-			$champ = new Texte();
-			$champ->texte = $arg;
-			$champ->apres = $champ->avant = $regs[1];
-			$result[] = $champ;
-			$collecte[] = $champ;
-			$args = ltrim($regs[count($regs) - 1]);
-		} else {
-			if (!preg_match('/' . NOM_DE_CHAMP . '([{|])/', $arg, $r)) {
-				// 0 est un aveu d'impuissance. A completer
-				$arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
-
-				$args = ltrim($regs[count($regs) - 1]);
-				$collecte = array_merge($collecte, $arg);
-				$result = array_merge($result, $arg);
-			} else {
-				$n = strpos($args, (string) $r[0]);
-				$pred = substr($args, 0, $n);
-				$par = ',}';
-				if (preg_match('/^(.*)\($/', $pred, $m)) {
-					$pred = $m[1];
-					$par = ')';
-				}
-				if ($pred) {
-					$champ = new Texte();
-					$champ->texte = $pred;
-					$champ->apres = $champ->avant = '';
-					$result[] = $champ;
-					$collecte[] = $champ;
-				}
-				$rec = substr($args, $n + strlen($r[0]) - 1);
-				$champ = new Champ();
-				$champ->nom_boucle = $r[2];
-				$champ->nom_champ = $r[3];
-				$champ->etoile = $r[5];
-				$next = $r[6];
-				while ($next == '{') {
-					phraser_arg($rec, $sep, [], $champ);
-					$args = ltrim($rec);
-					$next = $args[0] ?? '';
-				}
-				while ($next == '|') {
-					$pos_apres = 0;
-					phraser_args($rec, $par, $sep, [], $champ, $pos_apres);
-					$args = substr($rec, $pos_apres);
-					$next = $args[0] ?? '';
-				}
-				// Si erreur de syntaxe dans un sous-argument, propager.
-				if ($champ->param === false) {
-					$err_f = true;
-				} else {
-					phraser_vieux($champ);
-				}
-				if ($par == ')') {
-					$args = substr($args, 1);
-				}
-				$collecte[] = $champ;
-				$result[] = $champ;
-			}
-		}
-		if (isset($args[0]) and $args[0] == ',') {
-			$args = ltrim(substr($args, 1));
-			if ($collecte) {
-				$res[] = $collecte;
-				$collecte = [];
-			}
-		}
-	}
-	if ($collecte) {
-		$res[] = $collecte;
-		$collecte = [];
-	}
-	$texte = substr($args, 1);
-	$source = substr($suite, 0, strlen($suite) - strlen($texte));
-	// propager les erreurs, et ignorer les param vides
-	if ($pointeur_champ->param !== false) {
-		if ($err_f) {
-			$pointeur_champ->param = false;
-		} elseif ($fonc !== '' || count($res) > 1) {
-			$pointeur_champ->param[] = $res;
-		}
-	}
-	// pour les balises avec faux filtres qui boudent ce dur larbeur
-	$pointeur_champ->fonctions[] = [$fonc, $source];
-
-	return $result;
+    preg_match(',^(\|?[^}{)|]*)(.*)$,ms', $texte, $match);
+    $suite = ltrim($match[2]);
+    $fonc = trim($match[1]);
+    if ($fonc && $fonc[0] == '|') {
+        $fonc = ltrim(substr($fonc, 1));
+    }
+    $res = [$fonc];
+    $err_f = '';
+    // cas du filtre sans argument ou du critere /
+    if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) {
+        // si pas d'argument, alors il faut une fonction ou un double |
+        if (!$match[1]) {
+            $err_f = ['zbug_erreur_filtre', ['filtre' => $texte]];
+            erreur_squelette($err_f, $pointeur_champ);
+            $texte = '';
+        } else {
+            $texte = $suite;
+        }
+        if ($err_f) {
+            $pointeur_champ->param = false;
+        } elseif ($fonc !== '') {
+            $pointeur_champ->param[] = $res;
+        }
+        // pour les balises avec faux filtres qui boudent ce dur larbeur
+        $pointeur_champ->fonctions[] = [$fonc, ''];
+
+        return $result;
+    }
+    $args = ltrim(substr($suite, 1)); // virer le '(' initial
+    $collecte = [];
+    while ($args && $args[0] != '}') {
+        if ($args[0] == '"') {
+            preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
+        } elseif ($args[0] == "'") {
+            preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
+        } else {
+            preg_match('/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms', $args, $regs);
+            if (!isset($regs[2]) or !strlen($regs[2])) {
+                $err_f = ['zbug_erreur_filtre', ['filtre' => $args]];
+                erreur_squelette($err_f, $pointeur_champ);
+                $champ = new Texte();
+                $champ->apres = $champ->avant = $args = '';
+                break;
+            }
+        }
+        $arg = $regs[2];
+        if (trim($regs[1])) {
+            $champ = new Texte();
+            $champ->texte = $arg;
+            $champ->apres = $champ->avant = $regs[1];
+            $result[] = $champ;
+            $collecte[] = $champ;
+            $args = ltrim($regs[count($regs) - 1]);
+        } else {
+            if (!preg_match('/' . NOM_DE_CHAMP . '([{|])/', $arg, $r)) {
+                // 0 est un aveu d'impuissance. A completer
+                $arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
+
+                $args = ltrim($regs[count($regs) - 1]);
+                $collecte = array_merge($collecte, $arg);
+                $result = array_merge($result, $arg);
+            } else {
+                $n = strpos($args, (string) $r[0]);
+                $pred = substr($args, 0, $n);
+                $par = ',}';
+                if (preg_match('/^(.*)\($/', $pred, $m)) {
+                    $pred = $m[1];
+                    $par = ')';
+                }
+                if ($pred) {
+                    $champ = new Texte();
+                    $champ->texte = $pred;
+                    $champ->apres = $champ->avant = '';
+                    $result[] = $champ;
+                    $collecte[] = $champ;
+                }
+                $rec = substr($args, $n + strlen($r[0]) - 1);
+                $champ = new Champ();
+                $champ->nom_boucle = $r[2];
+                $champ->nom_champ = $r[3];
+                $champ->etoile = $r[5];
+                $next = $r[6];
+                while ($next == '{') {
+                    phraser_arg($rec, $sep, [], $champ);
+                    $args = ltrim($rec);
+                    $next = $args[0] ?? '';
+                }
+                while ($next == '|') {
+                    $pos_apres = 0;
+                    phraser_args($rec, $par, $sep, [], $champ, $pos_apres);
+                    $args = substr($rec, $pos_apres);
+                    $next = $args[0] ?? '';
+                }
+                // Si erreur de syntaxe dans un sous-argument, propager.
+                if ($champ->param === false) {
+                    $err_f = true;
+                } else {
+                    phraser_vieux($champ);
+                }
+                if ($par == ')') {
+                    $args = substr($args, 1);
+                }
+                $collecte[] = $champ;
+                $result[] = $champ;
+            }
+        }
+        if (isset($args[0]) and $args[0] == ',') {
+            $args = ltrim(substr($args, 1));
+            if ($collecte) {
+                $res[] = $collecte;
+                $collecte = [];
+            }
+        }
+    }
+    if ($collecte) {
+        $res[] = $collecte;
+        $collecte = [];
+    }
+    $texte = substr($args, 1);
+    $source = substr($suite, 0, strlen($suite) - strlen($texte));
+    // propager les erreurs, et ignorer les param vides
+    if ($pointeur_champ->param !== false) {
+        if ($err_f) {
+            $pointeur_champ->param = false;
+        } elseif ($fonc !== '' || count($res) > 1) {
+            $pointeur_champ->param[] = $res;
+        }
+    }
+    // pour les balises avec faux filtres qui boudent ce dur larbeur
+    $pointeur_champ->fonctions[] = [$fonc, $source];
+
+    return $result;
 }
 
 
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
-	$res = [];
-	while (($p = strpos($texte, (string) "%$sep")) !== false) {
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
-			break;
-		}
-		$debut = substr($texte, 0, $p);
-		$texte = substr($texte, $p + strlen($m[0]));
-		if ($p) {
-			$res = phraser_inclure($debut, $ligne, $res);
-		}
-		$ligne += substr_count($debut, "\n");
-		$res[] = $nested[$m[1]];
-	}
-
-	return (($texte === '') ? $res : phraser_inclure($texte, $ligne, $res));
+    $res = [];
+    while (($p = strpos($texte, (string) "%$sep")) !== false) {
+        if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
+            break;
+        }
+        $debut = substr($texte, 0, $p);
+        $texte = substr($texte, $p + strlen($m[0]));
+        if ($p) {
+            $res = phraser_inclure($debut, $ligne, $res);
+        }
+        $ligne += substr_count($debut, "\n");
+        $res[] = $nested[$m[1]];
+    }
+
+    return (($texte === '') ? $res : phraser_inclure($texte, $ligne, $res));
 }
 
 function phraser_champs_interieurs($texte, $ligne, $sep, $result) {
-	$i = 0; // en fait count($result)
-	$x = '';
-
-	while (true) {
-		$j = $i;
-		$n = $ligne;
-		while (preg_match(CHAMP_ETENDU, $texte, $match)) {
-			$p = strpos($texte, (string) $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p) {
-				$result[$i] = $debut;
-				$i++;
-			}
-			$nom = $match[4];
-			$champ = new Champ();
-			// ca ne marche pas encore en cas de champ imbrique
-			$champ->ligne = $x ? 0 : ($n + substr_count($debut, "\n"));
-			$champ->nom_boucle = $match[3];
-			$champ->nom_champ = $nom;
-			$champ->etoile = $match[6];
-			// phraser_args indiquera ou commence apres
-			$pos_apres = 0;
-			$result = phraser_args($match[7], ')', $sep, $result, $champ, $pos_apres);
-			phraser_vieux($champ);
-			$champ->avant =	phraser_champs_exterieurs($match[1], $n, $sep, $result);
-			$debut = substr($match[7], $pos_apres + 1);
-			if (!empty($debut)) {
-				$n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
-			}
-			$champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
-
-			// reinjecter la boucle si c'en est une
-			phraser_boucle_placeholder($champ);
-
-			$result[$i] = $champ;
-			$i++;
-			$texte = substr($texte, $p + strlen($match[0]));
-		}
-		if ($texte !== '') {
-			$result[$i] = $texte;
-			$i++;
-		}
-		$x = '';
-
-		while ($j < $i) {
-			$z = $result[$j];
-			// j'aurais besoin de connaitre le nombre de lignes...
-			if (is_object($z)) {
-				$x .= "%$sep$j@";
-			} else {
-				$x .= $z;
-			}
-			$j++;
-		}
-		if (preg_match(CHAMP_ETENDU, $x)) {
-			$texte = $x;
-		} else {
-			return phraser_champs_exterieurs($x, $ligne, $sep, $result);
-		}
-	}
+    $i = 0; // en fait count($result)
+    $x = '';
+
+    while (true) {
+        $j = $i;
+        $n = $ligne;
+        while (preg_match(CHAMP_ETENDU, $texte, $match)) {
+            $p = strpos($texte, (string) $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p) {
+                $result[$i] = $debut;
+                $i++;
+            }
+            $nom = $match[4];
+            $champ = new Champ();
+            // ca ne marche pas encore en cas de champ imbrique
+            $champ->ligne = $x ? 0 : ($n + substr_count($debut, "\n"));
+            $champ->nom_boucle = $match[3];
+            $champ->nom_champ = $nom;
+            $champ->etoile = $match[6];
+            // phraser_args indiquera ou commence apres
+            $pos_apres = 0;
+            $result = phraser_args($match[7], ')', $sep, $result, $champ, $pos_apres);
+            phraser_vieux($champ);
+            $champ->avant =	phraser_champs_exterieurs($match[1], $n, $sep, $result);
+            $debut = substr($match[7], $pos_apres + 1);
+            if (!empty($debut)) {
+                $n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
+            }
+            $champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
+
+            // reinjecter la boucle si c'en est une
+            phraser_boucle_placeholder($champ);
+
+            $result[$i] = $champ;
+            $i++;
+            $texte = substr($texte, $p + strlen($match[0]));
+        }
+        if ($texte !== '') {
+            $result[$i] = $texte;
+            $i++;
+        }
+        $x = '';
+
+        while ($j < $i) {
+            $z = $result[$j];
+            // j'aurais besoin de connaitre le nombre de lignes...
+            if (is_object($z)) {
+                $x .= "%$sep$j@";
+            } else {
+                $x .= $z;
+            }
+            $j++;
+        }
+        if (preg_match(CHAMP_ETENDU, $x)) {
+            $texte = $x;
+        } else {
+            return phraser_champs_exterieurs($x, $ligne, $sep, $result);
+        }
+    }
 }
 
 function phraser_vieux(&$champ) {
-	$nom = $champ->nom_champ;
-	if ($nom == 'EMBED_DOCUMENT') {
-		if (!function_exists('phraser_vieux_emb')) {
-			include_spip('public/normaliser');
-		}
-		phraser_vieux_emb($champ);
-	} elseif ($nom == 'EXPOSER') {
-		if (!function_exists('phraser_vieux_exposer')) {
-			include_spip('public/normaliser');
-		}
-		phraser_vieux_exposer($champ);
-	} elseif ($champ->param) {
-		if ($nom == 'FORMULAIRE_RECHERCHE') {
-			if (!function_exists('phraser_vieux_recherche')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_recherche($champ);
-		} elseif (preg_match(',^LOGO_[A-Z]+,', $nom)) {
-			if (!function_exists('phraser_vieux_logos')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_logos($champ);
-		} elseif ($nom == 'MODELE') {
-			if (!function_exists('phraser_vieux_modele')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_modele($champ);
-		} elseif ($nom == 'INCLURE' or $nom == 'INCLUDE') {
-			if (!function_exists('phraser_vieux_inclu')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_inclu($champ);
-		}
-	}
+    $nom = $champ->nom_champ;
+    if ($nom == 'EMBED_DOCUMENT') {
+        if (!function_exists('phraser_vieux_emb')) {
+            include_spip('public/normaliser');
+        }
+        phraser_vieux_emb($champ);
+    } elseif ($nom == 'EXPOSER') {
+        if (!function_exists('phraser_vieux_exposer')) {
+            include_spip('public/normaliser');
+        }
+        phraser_vieux_exposer($champ);
+    } elseif ($champ->param) {
+        if ($nom == 'FORMULAIRE_RECHERCHE') {
+            if (!function_exists('phraser_vieux_recherche')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_recherche($champ);
+        } elseif (preg_match(',^LOGO_[A-Z]+,', $nom)) {
+            if (!function_exists('phraser_vieux_logos')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_logos($champ);
+        } elseif ($nom == 'MODELE') {
+            if (!function_exists('phraser_vieux_modele')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_modele($champ);
+        } elseif ($nom == 'INCLURE' or $nom == 'INCLUDE') {
+            if (!function_exists('phraser_vieux_inclu')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_inclu($champ);
+        }
+    }
 }
 
 
@@ -595,200 +595,200 @@ 
  **/
 function phraser_criteres($params, &$result) {
 
-	$err_ci = ''; // indiquera s'il y a eu une erreur
-	$args = [];
-	$type = $result->type_requete;
-	$doublons = [];
-	foreach ($params as $v) {
-		$var = $v[1][0];
-		$param = ($var->type != 'texte') ? '' : $var->texte;
-		if (((is_countable($v) ? count($v) : 0) > 2) && (!preg_match(',[^A-Za-z]IN[^A-Za-z],i', $param))) {
-			// plus d'un argument et pas le critere IN:
-			// detecter comme on peut si c'est le critere implicite LIMIT debut, fin
-			if (
-				$var->type != 'texte'
-				or preg_match('/^(n|n-|(n-)?\d+)$/S', $param)
-			) {
-				$op = ',';
-				$not = false;
-				$cond = false;
-			} else {
-				// Le debut du premier argument est l'operateur
-				preg_match('/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms', $param, $m);
-				$op = $m[2];
-				$not = (bool) $m[1];
-				$cond = $m[3];
-				// virer le premier argument,
-				// et mettre son reliquat eventuel
-				// Recopier pour ne pas alterer le texte source
-				// utile au debusqueur
-				if ($m[4]) {
-					// une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
-					if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
-						$c = null;
-						eval('$c = ' . $m[4] . ';');
-						if (isset($c)) {
-							$m[4] = $c;
-						}
-					}
-					$texte = new Texte();
-					$texte->texte = $m[4];
-					$v[1][0] = $texte;
-				} else {
-					array_shift($v[1]);
-				}
-			}
-			array_shift($v); // $v[O] est vide
-			$crit = new Critere();
-			$crit->op = $op;
-			$crit->not = $not;
-			$crit->cond = $cond;
-			$crit->exclus = '';
-			$crit->param = $v;
-			$args[] = $crit;
-		} else {
-			if ($var->type != 'texte') {
-				// cas 1 seul arg ne commencant pas par du texte brut:
-				// erreur ou critere infixe "/"
-				if (($v[1][1]->type != 'texte') || (trim($v[1][1]->texte) != '/')) {
-					$err_ci = [
-						'zbug_critere_inconnu',
-						['critere' => $var->nom_champ]
-					];
-					erreur_squelette($err_ci, $result);
-				} else {
-					$crit = new Critere();
-					$crit->op = '/';
-					$crit->not = false;
-					$crit->exclus = '';
-					$crit->param = [[$v[1][0]], [$v[1][2]]];
-					$args[] = $crit;
-				}
-			} else {
-				// traiter qq lexemes particuliers pour faciliter la suite
-				// les separateurs
-				if ($var->apres) {
-					$result->separateur[] = $param;
-				} elseif (($param == 'tout') or ($param == 'tous')) {
-					$result->modificateur['tout'] = true;
-				} elseif ($param == 'plat') {
-					$result->modificateur['plat'] = true;
-				}
-
-				// Boucle hierarchie, analyser le critere id_rubrique
-				// et les autres critères {id_x} pour forcer {tout} sur
-				// ceux-ci pour avoir la rubrique mere...
-				// Les autres critères de la boucle hierarchie doivent être
-				// traités normalement.
-				elseif (
-					strcasecmp($type, 'hierarchie') == 0
-					and !preg_match(",^id_rubrique\b,", $param)
-					and preg_match(',^id_\w+\s*$,', $param)
-				) {
-					$result->modificateur['tout'] = true;
-				} elseif (strcasecmp($type, 'hierarchie') == 0 and $param == 'id_rubrique') {
-					// rien a faire sur {id_rubrique} tout seul
-				} else {
-					// pas d'emplacement statique, faut un dynamique
-					// mais il y a 2 cas qui ont les 2 !
-					if (($param == 'unique') || (preg_match(',^!?doublons *,', $param))) {
-						// cette variable sera inseree dans le code
-						// et son nom sert d'indicateur des maintenant
-						$result->doublons = '$doublons_index';
-						if ($param == 'unique') {
-							$param = 'doublons';
-						}
-					} elseif ($param == 'recherche') {
-						// meme chose (a cause de #nom_de_boucle:URL_*)
-						$result->hash = ' ';
-					}
-
-					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
-						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
-					} elseif (
-						preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
-						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)
-					) {
-						$a2 = trim($m[8]);
-						if ($a2 and ($a2[0] == "'" or $a2[0] == '"') and ($a2[0] == substr($a2, -1))) {
-							$a2 = substr($a2, 1, -1);
-						}
-						$crit = phraser_critere_infixe(
-							$m[2],
-							$a2,
-							$v,
-							(($m[2] == 'lang_select') ? $m[2] : $m[7]),
-							$m[6],
-							$m[5]
-						);
-						$crit->exclus = $m[1];
-					} elseif (
-						preg_match('/^([!]?)\s*(' .
-						CHAMP_SQL_PLUS_FONC .
-						')\s*(\??)(.*)$/is', $param, $m)
-					) {
-						// contient aussi les comparaisons implicites !
-						// Comme ci-dessus:
-						// le premier arg contient l'operateur
-						array_shift($v);
-						if ($m[6]) {
-							$v[0][0] = new Texte();
-							$v[0][0]->texte = $m[6];
-						} else {
-							array_shift($v[0]);
-							if (!$v[0]) {
-								array_shift($v);
-							}
-						}
-						$crit = new Critere();
-						$crit->op = $m[2];
-						$crit->param = $v;
-						$crit->not = (bool) $m[1];
-						$crit->cond = $m[5];
-					} else {
-						$err_ci = [
-							'zbug_critere_inconnu',
-							['critere' => $param]
-						];
-						erreur_squelette($err_ci, $result);
-					}
-
-					if ((!preg_match(',^!?doublons *,', $param)) || $crit->not) {
-						$args[] = $crit;
-					} else {
-						$doublons[] = $crit;
-					}
-				}
-			}
-		}
-	}
-
-	// les doublons non nies doivent etre le dernier critere
-	// pour que la variable $doublon_index ait la bonne valeur
-	// cf critere_doublon
-	if ($doublons) {
-		$args = [...$args, ...$doublons];
-	}
-
-	// Si erreur, laisser la chaine dans ce champ pour le HTTP 503
-	if (!$err_ci) {
-		$result->criteres = $args;
-	}
+    $err_ci = ''; // indiquera s'il y a eu une erreur
+    $args = [];
+    $type = $result->type_requete;
+    $doublons = [];
+    foreach ($params as $v) {
+        $var = $v[1][0];
+        $param = ($var->type != 'texte') ? '' : $var->texte;
+        if (((is_countable($v) ? count($v) : 0) > 2) && (!preg_match(',[^A-Za-z]IN[^A-Za-z],i', $param))) {
+            // plus d'un argument et pas le critere IN:
+            // detecter comme on peut si c'est le critere implicite LIMIT debut, fin
+            if (
+                $var->type != 'texte'
+                or preg_match('/^(n|n-|(n-)?\d+)$/S', $param)
+            ) {
+                $op = ',';
+                $not = false;
+                $cond = false;
+            } else {
+                // Le debut du premier argument est l'operateur
+                preg_match('/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms', $param, $m);
+                $op = $m[2];
+                $not = (bool) $m[1];
+                $cond = $m[3];
+                // virer le premier argument,
+                // et mettre son reliquat eventuel
+                // Recopier pour ne pas alterer le texte source
+                // utile au debusqueur
+                if ($m[4]) {
+                    // une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
+                    if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
+                        $c = null;
+                        eval('$c = ' . $m[4] . ';');
+                        if (isset($c)) {
+                            $m[4] = $c;
+                        }
+                    }
+                    $texte = new Texte();
+                    $texte->texte = $m[4];
+                    $v[1][0] = $texte;
+                } else {
+                    array_shift($v[1]);
+                }
+            }
+            array_shift($v); // $v[O] est vide
+            $crit = new Critere();
+            $crit->op = $op;
+            $crit->not = $not;
+            $crit->cond = $cond;
+            $crit->exclus = '';
+            $crit->param = $v;
+            $args[] = $crit;
+        } else {
+            if ($var->type != 'texte') {
+                // cas 1 seul arg ne commencant pas par du texte brut:
+                // erreur ou critere infixe "/"
+                if (($v[1][1]->type != 'texte') || (trim($v[1][1]->texte) != '/')) {
+                    $err_ci = [
+                        'zbug_critere_inconnu',
+                        ['critere' => $var->nom_champ]
+                    ];
+                    erreur_squelette($err_ci, $result);
+                } else {
+                    $crit = new Critere();
+                    $crit->op = '/';
+                    $crit->not = false;
+                    $crit->exclus = '';
+                    $crit->param = [[$v[1][0]], [$v[1][2]]];
+                    $args[] = $crit;
+                }
+            } else {
+                // traiter qq lexemes particuliers pour faciliter la suite
+                // les separateurs
+                if ($var->apres) {
+                    $result->separateur[] = $param;
+                } elseif (($param == 'tout') or ($param == 'tous')) {
+                    $result->modificateur['tout'] = true;
+                } elseif ($param == 'plat') {
+                    $result->modificateur['plat'] = true;
+                }
+
+                // Boucle hierarchie, analyser le critere id_rubrique
+                // et les autres critères {id_x} pour forcer {tout} sur
+                // ceux-ci pour avoir la rubrique mere...
+                // Les autres critères de la boucle hierarchie doivent être
+                // traités normalement.
+                elseif (
+                    strcasecmp($type, 'hierarchie') == 0
+                    and !preg_match(",^id_rubrique\b,", $param)
+                    and preg_match(',^id_\w+\s*$,', $param)
+                ) {
+                    $result->modificateur['tout'] = true;
+                } elseif (strcasecmp($type, 'hierarchie') == 0 and $param == 'id_rubrique') {
+                    // rien a faire sur {id_rubrique} tout seul
+                } else {
+                    // pas d'emplacement statique, faut un dynamique
+                    // mais il y a 2 cas qui ont les 2 !
+                    if (($param == 'unique') || (preg_match(',^!?doublons *,', $param))) {
+                        // cette variable sera inseree dans le code
+                        // et son nom sert d'indicateur des maintenant
+                        $result->doublons = '$doublons_index';
+                        if ($param == 'unique') {
+                            $param = 'doublons';
+                        }
+                    } elseif ($param == 'recherche') {
+                        // meme chose (a cause de #nom_de_boucle:URL_*)
+                        $result->hash = ' ';
+                    }
+
+                    if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
+                        $crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
+                    } elseif (
+                        preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+                        ')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)
+                    ) {
+                        $a2 = trim($m[8]);
+                        if ($a2 and ($a2[0] == "'" or $a2[0] == '"') and ($a2[0] == substr($a2, -1))) {
+                            $a2 = substr($a2, 1, -1);
+                        }
+                        $crit = phraser_critere_infixe(
+                            $m[2],
+                            $a2,
+                            $v,
+                            (($m[2] == 'lang_select') ? $m[2] : $m[7]),
+                            $m[6],
+                            $m[5]
+                        );
+                        $crit->exclus = $m[1];
+                    } elseif (
+                        preg_match('/^([!]?)\s*(' .
+                        CHAMP_SQL_PLUS_FONC .
+                        ')\s*(\??)(.*)$/is', $param, $m)
+                    ) {
+                        // contient aussi les comparaisons implicites !
+                        // Comme ci-dessus:
+                        // le premier arg contient l'operateur
+                        array_shift($v);
+                        if ($m[6]) {
+                            $v[0][0] = new Texte();
+                            $v[0][0]->texte = $m[6];
+                        } else {
+                            array_shift($v[0]);
+                            if (!$v[0]) {
+                                array_shift($v);
+                            }
+                        }
+                        $crit = new Critere();
+                        $crit->op = $m[2];
+                        $crit->param = $v;
+                        $crit->not = (bool) $m[1];
+                        $crit->cond = $m[5];
+                    } else {
+                        $err_ci = [
+                            'zbug_critere_inconnu',
+                            ['critere' => $param]
+                        ];
+                        erreur_squelette($err_ci, $result);
+                    }
+
+                    if ((!preg_match(',^!?doublons *,', $param)) || $crit->not) {
+                        $args[] = $crit;
+                    } else {
+                        $doublons[] = $crit;
+                    }
+                }
+            }
+        }
+    }
+
+    // les doublons non nies doivent etre le dernier critere
+    // pour que la variable $doublon_index ait la bonne valeur
+    // cf critere_doublon
+    if ($doublons) {
+        $args = [...$args, ...$doublons];
+    }
+
+    // Si erreur, laisser la chaine dans ce champ pour le HTTP 503
+    if (!$err_ci) {
+        $result->criteres = $args;
+    }
 }
 
 function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond) {
-	$args[0] = new Texte();
-	$args[0]->texte = $arg1;
-	$args[0] = [$args[0]];
-	$args[1][0] = new Texte();
-	$args[1][0]->texte = $arg2;
-	$crit = new Critere();
-	$crit->op = $op;
-	$crit->not = $not;
-	$crit->cond = $cond;
-	$crit->param = $args;
-
-	return $crit;
+    $args[0] = new Texte();
+    $args[0]->texte = $arg1;
+    $args[0] = [$args[0]];
+    $args[1][0] = new Texte();
+    $args[1][0]->texte = $arg2;
+    $crit = new Critere();
+    $crit->op = $op;
+    $crit->not = $not;
+    $crit->cond = $cond;
+    $crit->param = $args;
+
+    return $crit;
 }
 
 /**
@@ -799,12 +799,12 @@ 
  * @return int
  */
 function public_compte_ligne($texte, $debut = 0, $fin = null) {
-	if (is_null($fin)) {
-		return substr_count($texte, "\n", $debut);
-	}
-	else {
-		return substr_count($texte, "\n", $debut, $fin - $debut);
-	}
+    if (is_null($fin)) {
+        return substr_count($texte, "\n", $debut);
+    }
+    else {
+        return substr_count($texte, "\n", $debut, $fin - $debut);
+    }
 }
 
 
@@ -820,87 +820,87 @@ 
  * @return array|null
  */
 function public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte = 0) {
-	$premiere_boucle = null;
-	$pos_derniere_boucle_anonyme = $pos_debut_texte;
-
-	$current_pos = $pos_debut_texte;
-	while (($pos_boucle = strpos($texte, BALISE_BOUCLE, $current_pos)) !== false) {
-		$current_pos = $pos_boucle + 1;
-		$pos_parent = strpos($texte, '(', $pos_boucle);
-
-		$id_boucle = '';
-		if ($pos_parent !== false) {
-			$id_boucle = trim(substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)));
-		}
-		if (
-			$pos_parent === false
-			or (strlen($id_boucle) and !(is_numeric($id_boucle) or strpos($id_boucle, '_') === 0))
-		) {
-			$result = new Boucle();
-			$result->id_parent = $id_parent;
-			$result->descr = $descr;
-
-			// un id_boucle pour l'affichage de l'erreur
-			if (!strlen($id_boucle)) {
-				$id_boucle = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
-			}
-			$result->id_boucle = $id_boucle;
-			$err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
-			erreur_squelette($err_b, $result);
-
-			continue;
-		}
-		else {
-			$boucle = [
-				'id_boucle' => $id_boucle,
-				'id_boucle_err' => $id_boucle,
-				'debut_boucle' => $pos_boucle,
-				'pos_boucle' => $pos_boucle,
-				'pos_parent' => $pos_parent,
-				'pos_precond' => false,
-				'pos_precond_inside' => false,
-				'pos_preaff' => false,
-				'pos_preaff_inside' => false,
-			];
-
-			// un id_boucle pour l'affichage de l'erreur sur les boucle anonymes
-			if (!strlen($id_boucle)) {
-				$boucle['id_boucle_err'] = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
-			}
-
-			// trouver sa position de depart reelle : au <Bxx> ou au <BBxx>
-			$precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
-			$pos_precond = strpos($texte, $precond_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
-			if (
-				$pos_precond !== false
-				and $pos_precond < $boucle['debut_boucle']
-			) {
-				$boucle['debut_boucle'] = $pos_precond;
-				$boucle['pos_precond'] = $pos_precond;
-				$boucle['pos_precond_inside'] = $pos_precond + strlen($precond_boucle);
-			}
-
-			$preaff_boucle = BALISE_PREAFF_BOUCLE . $id_boucle . '>';
-			$pos_preaff = strpos($texte, $preaff_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
-			if (
-				$pos_preaff !== false
-				and $pos_preaff < $boucle['debut_boucle']
-			) {
-				$boucle['debut_boucle'] = $pos_preaff;
-				$boucle['pos_preaff'] = $pos_preaff;
-				$boucle['pos_preaff_inside'] = $pos_preaff + strlen($preaff_boucle);
-			}
-			if (!strlen($id_boucle)) {
-				$pos_derniere_boucle_anonyme = $pos_boucle;
-			}
-
-			if (is_null($premiere_boucle) or $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) {
-				$premiere_boucle = $boucle;
-			}
-		}
-	}
-
-	return $premiere_boucle;
+    $premiere_boucle = null;
+    $pos_derniere_boucle_anonyme = $pos_debut_texte;
+
+    $current_pos = $pos_debut_texte;
+    while (($pos_boucle = strpos($texte, BALISE_BOUCLE, $current_pos)) !== false) {
+        $current_pos = $pos_boucle + 1;
+        $pos_parent = strpos($texte, '(', $pos_boucle);
+
+        $id_boucle = '';
+        if ($pos_parent !== false) {
+            $id_boucle = trim(substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), $pos_parent - $pos_boucle - strlen(BALISE_BOUCLE)));
+        }
+        if (
+            $pos_parent === false
+            or (strlen($id_boucle) and !(is_numeric($id_boucle) or strpos($id_boucle, '_') === 0))
+        ) {
+            $result = new Boucle();
+            $result->id_parent = $id_parent;
+            $result->descr = $descr;
+
+            // un id_boucle pour l'affichage de l'erreur
+            if (!strlen($id_boucle)) {
+                $id_boucle = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
+            }
+            $result->id_boucle = $id_boucle;
+            $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
+            erreur_squelette($err_b, $result);
+
+            continue;
+        }
+        else {
+            $boucle = [
+                'id_boucle' => $id_boucle,
+                'id_boucle_err' => $id_boucle,
+                'debut_boucle' => $pos_boucle,
+                'pos_boucle' => $pos_boucle,
+                'pos_parent' => $pos_parent,
+                'pos_precond' => false,
+                'pos_precond_inside' => false,
+                'pos_preaff' => false,
+                'pos_preaff_inside' => false,
+            ];
+
+            // un id_boucle pour l'affichage de l'erreur sur les boucle anonymes
+            if (!strlen($id_boucle)) {
+                $boucle['id_boucle_err'] = substr($texte, $pos_boucle + strlen(BALISE_BOUCLE), 15);
+            }
+
+            // trouver sa position de depart reelle : au <Bxx> ou au <BBxx>
+            $precond_boucle = BALISE_PRECOND_BOUCLE . $id_boucle . '>';
+            $pos_precond = strpos($texte, $precond_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
+            if (
+                $pos_precond !== false
+                and $pos_precond < $boucle['debut_boucle']
+            ) {
+                $boucle['debut_boucle'] = $pos_precond;
+                $boucle['pos_precond'] = $pos_precond;
+                $boucle['pos_precond_inside'] = $pos_precond + strlen($precond_boucle);
+            }
+
+            $preaff_boucle = BALISE_PREAFF_BOUCLE . $id_boucle . '>';
+            $pos_preaff = strpos($texte, $preaff_boucle, $id_boucle ? $pos_debut_texte : $pos_derniere_boucle_anonyme);
+            if (
+                $pos_preaff !== false
+                and $pos_preaff < $boucle['debut_boucle']
+            ) {
+                $boucle['debut_boucle'] = $pos_preaff;
+                $boucle['pos_preaff'] = $pos_preaff;
+                $boucle['pos_preaff_inside'] = $pos_preaff + strlen($preaff_boucle);
+            }
+            if (!strlen($id_boucle)) {
+                $pos_derniere_boucle_anonyme = $pos_boucle;
+            }
+
+            if (is_null($premiere_boucle) or $premiere_boucle['debut_boucle'] > $boucle['debut_boucle']) {
+                $premiere_boucle = $boucle;
+            }
+        }
+    }
+
+    return $premiere_boucle;
 }
 
 /**
@@ -915,68 +915,68 @@ 
  * @return mixed
  */
 function public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_debut_texte, $result) {
-	$id_boucle = $boucle['id_boucle'];
-	$pos_courante = $pos_debut_texte;
-
-	$boucle['pos_postcond'] = false;
-	$boucle['pos_postcond_inside'] = false;
-	$boucle['pos_altern'] = false;
-	$boucle['pos_altern_inside'] = false;
-	$boucle['pos_postaff'] = false;
-	$boucle['pos_postaff_inside'] = false;
-
-	$pos_anonyme_next = null;
-	// si c'est une boucle anonyme, chercher la position de la prochaine boucle anonyme
-	if (!strlen($id_boucle)) {
-		$pos_anonyme_next = strpos($texte, BALISE_BOUCLE . '(', $pos_courante);
-	}
-
-	//
-	// 1. Recuperer la partie conditionnelle apres
-	//
-	$apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . '>';
-	$pos_apres = strpos($texte, $apres_boucle, $pos_courante);
-	if (
-		$pos_apres !== false
-		and (!$pos_anonyme_next or $pos_apres < $pos_anonyme_next)
-	) {
-		$boucle['pos_postcond'] = $pos_apres;
-		$pos_apres += strlen($apres_boucle);
-		$boucle['pos_postcond_inside'] = $pos_apres;
-		$pos_courante = $pos_apres ;
-	}
-
-	//
-	// 2. Récuperer la partie alternative apres
-	//
-	$altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . '>';
-	$pos_altern = strpos($texte, $altern_boucle, $pos_courante);
-	if (
-		$pos_altern !== false
-		and (!$pos_anonyme_next or $pos_altern < $pos_anonyme_next)
-	) {
-		$boucle['pos_altern'] = $pos_altern;
-		$pos_altern += strlen($altern_boucle);
-		$boucle['pos_altern_inside'] = $pos_altern;
-		$pos_courante = $pos_altern;
-	}
-
-	//
-	// 3. Recuperer la partie footer non alternative
-	//
-	$postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . '>';
-	$pos_postaff = strpos($texte, $postaff_boucle, $pos_courante);
-	if (
-		$pos_postaff !== false
-		and (!$pos_anonyme_next or $pos_postaff < $pos_anonyme_next)
-	) {
-		$boucle['pos_postaff'] = $pos_postaff;
-		$pos_postaff += strlen($postaff_boucle);
-		$boucle['pos_postaff_inside'] = $pos_postaff;
-		$pos_courante = $pos_postaff ;
-	}
-
-	return $boucle;
+    $id_boucle = $boucle['id_boucle'];
+    $pos_courante = $pos_debut_texte;
+
+    $boucle['pos_postcond'] = false;
+    $boucle['pos_postcond_inside'] = false;
+    $boucle['pos_altern'] = false;
+    $boucle['pos_altern_inside'] = false;
+    $boucle['pos_postaff'] = false;
+    $boucle['pos_postaff_inside'] = false;
+
+    $pos_anonyme_next = null;
+    // si c'est une boucle anonyme, chercher la position de la prochaine boucle anonyme
+    if (!strlen($id_boucle)) {
+        $pos_anonyme_next = strpos($texte, BALISE_BOUCLE . '(', $pos_courante);
+    }
+
+    //
+    // 1. Recuperer la partie conditionnelle apres
+    //
+    $apres_boucle = BALISE_POSTCOND_BOUCLE . $id_boucle . '>';
+    $pos_apres = strpos($texte, $apres_boucle, $pos_courante);
+    if (
+        $pos_apres !== false
+        and (!$pos_anonyme_next or $pos_apres < $pos_anonyme_next)
+    ) {
+        $boucle['pos_postcond'] = $pos_apres;
+        $pos_apres += strlen($apres_boucle);
+        $boucle['pos_postcond_inside'] = $pos_apres;
+        $pos_courante = $pos_apres ;
+    }
+
+    //
+    // 2. Récuperer la partie alternative apres
+    //
+    $altern_boucle = BALISE_ALT_BOUCLE . $id_boucle . '>';
+    $pos_altern = strpos($texte, $altern_boucle, $pos_courante);
+    if (
+        $pos_altern !== false
+        and (!$pos_anonyme_next or $pos_altern < $pos_anonyme_next)
+    ) {
+        $boucle['pos_altern'] = $pos_altern;
+        $pos_altern += strlen($altern_boucle);
+        $boucle['pos_altern_inside'] = $pos_altern;
+        $pos_courante = $pos_altern;
+    }
+
+    //
+    // 3. Recuperer la partie footer non alternative
+    //
+    $postaff_boucle = BALISE_POSTAFF_BOUCLE . $id_boucle . '>';
+    $pos_postaff = strpos($texte, $postaff_boucle, $pos_courante);
+    if (
+        $pos_postaff !== false
+        and (!$pos_anonyme_next or $pos_postaff < $pos_anonyme_next)
+    ) {
+        $boucle['pos_postaff'] = $pos_postaff;
+        $pos_postaff += strlen($postaff_boucle);
+        $boucle['pos_postaff_inside'] = $pos_postaff;
+        $pos_courante = $pos_postaff ;
+    }
+
+    return $boucle;
 }
 
 
@@ -986,21 +986,21 @@ 
  * @param null|object $boucle
  */
 function phraser_boucle_placeholder(&$champ, $boucle_placeholder = null, $boucle = null) {
-	static $boucles_connues = [];
-	// si c'est un appel pour memoriser une boucle, memorisons la
-	if (is_string($champ) and !empty($boucle_placeholder) and !empty($boucle)) {
-		$boucles_connues[$boucle_placeholder][$champ] = &$boucle;
-	}
-	else {
-		if (!empty($champ->nom_champ) and !empty($boucles_connues[$champ->nom_champ])) {
-			$placeholder = $champ->nom_champ;
-			$id = reset($champ->param[0][1]);
-			$id = $id->texte;
-			if (!empty($boucles_connues[$placeholder][$id])) {
-				$champ = $boucles_connues[$placeholder][$id];
-			}
-		}
-	}
+    static $boucles_connues = [];
+    // si c'est un appel pour memoriser une boucle, memorisons la
+    if (is_string($champ) and !empty($boucle_placeholder) and !empty($boucle)) {
+        $boucles_connues[$boucle_placeholder][$champ] = &$boucle;
+    }
+    else {
+        if (!empty($champ->nom_champ) and !empty($boucles_connues[$champ->nom_champ])) {
+            $placeholder = $champ->nom_champ;
+            $id = reset($champ->param[0][1]);
+            $id = $id->texte;
+            if (!empty($boucles_connues[$placeholder][$id])) {
+                $champ = $boucles_connues[$placeholder][$id];
+            }
+        }
+    }
 }
 
 
@@ -1013,274 +1013,274 @@ 
  * @return string
  */
 function public_generer_boucle_placeholder($id_boucle, &$boucle, $boucle_placeholder, $nb_lignes) {
-	$placeholder = "[(#{$boucle_placeholder}{" . $id_boucle . '})' . str_pad('', $nb_lignes, "\n") . ']';
-	//memoriser la boucle a reinjecter
-	$id_boucle = "$id_boucle";
-	phraser_boucle_placeholder($id_boucle, $boucle_placeholder, $boucle);
-	return $placeholder;
+    $placeholder = "[(#{$boucle_placeholder}{" . $id_boucle . '})' . str_pad('', $nb_lignes, "\n") . ']';
+    //memoriser la boucle a reinjecter
+    $id_boucle = "$id_boucle";
+    phraser_boucle_placeholder($id_boucle, $boucle_placeholder, $boucle);
+    return $placeholder;
 }
 
 function public_phraser_html_dist($texte, $id_parent, &$boucles, $descr, $ligne_debut_texte = 1, $boucle_placeholder = null) {
 
-	$all_res = [];
-	// definir un placholder pour les boucles dont on est sur d'avoir aucune occurence dans le squelette
-	if (is_null($boucle_placeholder)) {
-		do {
-			$boucle_placeholder = 'BOUCLE_PLACEHOLDER_' . strtoupper(md5(uniqid()));
-		} while (strpos($texte, $boucle_placeholder) !== false);
-	}
-
-	$ligne_debut_initial = $ligne_debut_texte;
-	$pos_debut_texte = 0;
-	while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte)) {
-		$err_b = ''; // indiquera s'il y a eu une erreur
-		$result = new Boucle();
-		$result->id_parent = $id_parent;
-		$result->descr = $descr;
-
-		$pos_courante = $boucle['pos_boucle'];
-		$pos_parent = $boucle['pos_parent'];
-		$id_boucle_search = $id_boucle = $boucle['id_boucle'];
-
-		$ligne_preaff = $ligne_avant = $ligne_milieu = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_parent);
-
-		// boucle anonyme ?
-		if (!strlen($id_boucle)) {
-			$id_boucle = '_anon_L' . $ligne_milieu . '_' . substr(md5('anonyme:' . $id_parent . ':' . json_encode($boucle, JSON_THROW_ON_ERROR)), 0, 8);
-		}
-
-		$pos_debut_boucle = $pos_courante;
-
-		$pos_milieu = $pos_parent;
-
-		// Regarder si on a une partie conditionnelle avant <B_xxx>
-		if ($boucle['pos_precond'] !== false) {
-			$pos_debut_boucle = $boucle['pos_precond'];
-
-			$pos_avant = $boucle['pos_precond_inside'];
-			$result->avant = substr($texte, $pos_avant, $pos_courante - $pos_avant);
-			$ligne_avant = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_avant);
-		}
-
-		// Regarder si on a une partie inconditionnelle avant <BB_xxx>
-		if ($boucle['pos_preaff'] !== false) {
-			$end_preaff = $pos_debut_boucle;
-
-			$pos_preaff = $boucle['pos_preaff_inside'];
-			$result->preaff = substr($texte, $pos_preaff, $end_preaff - $pos_preaff);
-			$ligne_preaff = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_preaff);
-		}
-
-		$result->id_boucle = $id_boucle;
-
-		if (
-			!preg_match(SPEC_BOUCLE, $texte, $match, 0, $pos_milieu)
-			or ($pos_match = strpos($texte, (string) $match[0], $pos_milieu)) === false
-			or $pos_match > $pos_milieu
-		) {
-			$err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
-			erreur_squelette($err_b, $result);
-
-			$ligne_debut_texte += public_compte_ligne($texte, $pos_debut_texte, $pos_courante + 1);
-			$pos_debut_texte = $pos_courante + 1;
-			continue;
-		}
-
-		$result->type_requete = $match[0];
-		$pos_milieu += strlen($match[0]);
-		$pos_courante = $pos_milieu; // on s'en sert pour compter les lignes plus precisemment
-
-		$type = $match[1];
-		$jointures = trim($match[2]);
-		$table_optionnelle = ($match[3]);
-		if ($jointures) {
-			// on affecte pas ici les jointures explicites, mais dans la compilation
-			// ou elles seront completees des jointures declarees
-			$result->jointures_explicites = $jointures;
-		}
-
-		if ($table_optionnelle) {
-			$result->table_optionnelle = $type;
-		}
-
-		// 1ere passe sur les criteres, vu comme des arguments sans fct
-		// Resultat mis dans result->param
-		$pos_fin_criteres = $pos_milieu;
-		phraser_args($texte, '/>', '', $all_res, $result, $pos_fin_criteres);
-
-		// En 2e passe result->criteres contiendra un tableau
-		// pour l'instant on met le source (chaine) :
-		// si elle reste ici au final, c'est qu'elle contient une erreur
-		$pos_courante = $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment
-		$result->criteres = substr($texte, $pos_milieu, $pos_fin_criteres - $pos_milieu);
-		$pos_milieu = $pos_fin_criteres;
-
-		//
-		// Recuperer la fin :
-		//
-		if ($texte[$pos_milieu] === '/') {
-			// boucle autofermante : pas de partie conditionnelle apres
-			$pos_courante += 2;
-			$result->milieu = '';
-		} else {
-			$pos_milieu += 1;
-
-			$fin_boucle = BALISE_FIN_BOUCLE . $id_boucle_search . '>';
-			$pos_fin = strpos($texte, $fin_boucle, $pos_milieu);
-			if ($pos_fin === false) {
-				$err_b = [
-					'zbug_erreur_boucle_fermant',
-					['id' => $id_boucle]
-				];
-				erreur_squelette($err_b, $result);
-				$pos_courante += strlen($fin_boucle);
-			}
-			else {
-				// verifier une eventuelle imbrication d'une boucle homonyme
-				// (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur)
-				$search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '(';
-				$search_from = $pos_milieu;
-				$nb_open = 1;
-				$nb_close = 1;
-				$maxiter = 0;
-				do {
-					while (
-						$nb_close < $nb_open
-						and $p = strpos($texte, $fin_boucle, $pos_fin + 1)
-					) {
-						$nb_close++;
-						$pos_fin = $p;
-					}
-					// si on a pas trouve assez de boucles fermantes, sortir de la, on a fait de notre mieux
-					if ($nb_close < $nb_open) {
-						break;
-					}
-					while (
-						$p = strpos($texte, $search_debut_boucle, $search_from)
-						and $p < $pos_fin
-					) {
-						$nb_open++;
-						$search_from = $p + 1;
-					}
-				} while ($nb_close < $nb_open and $maxiter++ < 5);
-
-				$pos_courante = $pos_fin + strlen($fin_boucle);
-			}
-			$result->milieu = substr($texte, $pos_milieu, $pos_fin - $pos_milieu);
-		}
-
-		$ligne_suite = $ligne_apres = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_courante);
-		$boucle = public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_courante, $result);
-
-		//
-		// 1. Partie conditionnelle apres ?
-		//
-		if ($boucle['pos_postcond']) {
-			$result->apres = substr($texte, $pos_courante, $boucle['pos_postcond'] - $pos_courante);
-			$ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postcond_inside']);
-			$pos_courante = $boucle['pos_postcond_inside'] ;
-		}
-
-
-		//
-		// 2. Partie alternative apres ?
-		//
-		$ligne_altern = $ligne_suite;
-		if ($boucle['pos_altern']) {
-			$result->altern = substr($texte, $pos_courante, $boucle['pos_altern'] - $pos_courante);
-			$ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_altern_inside']);
-			$pos_courante = $boucle['pos_altern_inside'];
-		}
-
-		//
-		// 3. Partie footer non alternative ?
-		//
-		$ligne_postaff = $ligne_suite;
-		if ($boucle['pos_postaff']) {
-			$result->postaff = substr($texte, $pos_courante, $boucle['pos_postaff'] - $pos_courante);
-			$ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postaff_inside']);
-			$pos_courante = $boucle['pos_postaff_inside'];
-		}
-
-		$result->ligne = $ligne_preaff;
-
-		if ($p = strpos($type, ':')) {
-			$result->sql_serveur = substr($type, 0, $p);
-			$type = substr($type, $p + 1);
-		}
-		$soustype = strtolower($type);
-
-		if (!isset($GLOBALS['table_des_tables'][$soustype])) {
-			$soustype = $type;
-		}
-
-		$result->type_requete = $soustype;
-		// Lancer la 2e passe sur les criteres si la 1ere etait bonne
-		if (!is_array($result->param)) {
-			$err_b = true;
-		} else {
-			phraser_criteres($result->param, $result);
-			if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) {
-				$result->type_requete = TYPE_RECURSIF;
-				$args = $result->param;
-				array_unshift(
-					$args,
-					substr($type, strlen(TYPE_RECURSIF))
-				);
-				$result->param = $args;
-			}
-		}
-
-		$descr['id_mere_contexte'] = $id_boucle;
-		$result->milieu = public_phraser_html_dist($result->milieu, $id_boucle, $boucles, $descr, $ligne_milieu, $boucle_placeholder);
-		// reserver la place dans la pile des boucles pour compiler ensuite dans le bon ordre
-		// ie les boucles qui apparaissent dans les partie conditionnelles doivent etre compilees apres cette boucle
-		// si il y a deja une boucle de ce nom, cela declenchera une erreur ensuite
-		if (empty($boucles[$id_boucle])) {
-			$boucles[$id_boucle] = null;
-		}
-		$result->preaff = public_phraser_html_dist($result->preaff, $id_parent, $boucles, $descr, $ligne_preaff, $boucle_placeholder);
-		$result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant, $boucle_placeholder);
-		$result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres, $boucle_placeholder);
-		$result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern, $boucle_placeholder);
-		$result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff, $boucle_placeholder);
-
-		// Prevenir le generateur de code que le squelette est faux
-		if ($err_b) {
-			$result->type_requete = false;
-		}
-
-		// Verifier qu'il n'y a pas double definition
-		// apres analyse des sous-parties (pas avant).
-		if (!empty($boucles[$id_boucle])) {
-			if ($boucles[$id_boucle]->type_requete !== false) {
-				$err_b_d = [
-					'zbug_erreur_boucle_double',
-					['id' => $id_boucle]
-				];
-				erreur_squelette($err_b_d, $result);
-				// Prevenir le generateur de code que le squelette est faux
-				$boucles[$id_boucle]->type_requete = false;
-			}
-		} else {
-			$boucles[$id_boucle] = $result;
-		}
-
-		// remplacer la boucle par un placeholder qui compte le meme nombre de lignes
-		$placeholder = public_generer_boucle_placeholder($id_boucle, $boucles[$id_boucle], $boucle_placeholder, $ligne_suite - $ligne_debut_texte);
-		$longueur_boucle = $pos_courante - $boucle['debut_boucle'];
-		$texte = substr_replace($texte, $placeholder, $boucle['debut_boucle'], $longueur_boucle);
-		$pos_courante = $pos_courante - $longueur_boucle + strlen($placeholder);
-
-		// phraser la partie avant le debut de la boucle
-		#$all_res = phraser_champs_etendus(substr($texte, $pos_debut_texte, $boucle['debut_boucle'] - $pos_debut_texte), $ligne_debut_texte, $all_res);
-		#$all_res[] = &$boucles[$id_boucle];
-
-		$ligne_debut_texte = $ligne_suite;
-		$pos_debut_texte = $pos_courante;
-	}
-
-	$all_res = phraser_champs_etendus($texte, $ligne_debut_initial, $all_res);
-
-	return $all_res;
+    $all_res = [];
+    // definir un placholder pour les boucles dont on est sur d'avoir aucune occurence dans le squelette
+    if (is_null($boucle_placeholder)) {
+        do {
+            $boucle_placeholder = 'BOUCLE_PLACEHOLDER_' . strtoupper(md5(uniqid()));
+        } while (strpos($texte, $boucle_placeholder) !== false);
+    }
+
+    $ligne_debut_initial = $ligne_debut_texte;
+    $pos_debut_texte = 0;
+    while ($boucle = public_trouver_premiere_boucle($texte, $id_parent, $descr, $pos_debut_texte)) {
+        $err_b = ''; // indiquera s'il y a eu une erreur
+        $result = new Boucle();
+        $result->id_parent = $id_parent;
+        $result->descr = $descr;
+
+        $pos_courante = $boucle['pos_boucle'];
+        $pos_parent = $boucle['pos_parent'];
+        $id_boucle_search = $id_boucle = $boucle['id_boucle'];
+
+        $ligne_preaff = $ligne_avant = $ligne_milieu = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_parent);
+
+        // boucle anonyme ?
+        if (!strlen($id_boucle)) {
+            $id_boucle = '_anon_L' . $ligne_milieu . '_' . substr(md5('anonyme:' . $id_parent . ':' . json_encode($boucle, JSON_THROW_ON_ERROR)), 0, 8);
+        }
+
+        $pos_debut_boucle = $pos_courante;
+
+        $pos_milieu = $pos_parent;
+
+        // Regarder si on a une partie conditionnelle avant <B_xxx>
+        if ($boucle['pos_precond'] !== false) {
+            $pos_debut_boucle = $boucle['pos_precond'];
+
+            $pos_avant = $boucle['pos_precond_inside'];
+            $result->avant = substr($texte, $pos_avant, $pos_courante - $pos_avant);
+            $ligne_avant = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_avant);
+        }
+
+        // Regarder si on a une partie inconditionnelle avant <BB_xxx>
+        if ($boucle['pos_preaff'] !== false) {
+            $end_preaff = $pos_debut_boucle;
+
+            $pos_preaff = $boucle['pos_preaff_inside'];
+            $result->preaff = substr($texte, $pos_preaff, $end_preaff - $pos_preaff);
+            $ligne_preaff = $ligne_debut_texte +  public_compte_ligne($texte, $pos_debut_texte, $pos_preaff);
+        }
+
+        $result->id_boucle = $id_boucle;
+
+        if (
+            !preg_match(SPEC_BOUCLE, $texte, $match, 0, $pos_milieu)
+            or ($pos_match = strpos($texte, (string) $match[0], $pos_milieu)) === false
+            or $pos_match > $pos_milieu
+        ) {
+            $err_b = ['zbug_erreur_boucle_syntaxe', ['id' => $id_boucle]];
+            erreur_squelette($err_b, $result);
+
+            $ligne_debut_texte += public_compte_ligne($texte, $pos_debut_texte, $pos_courante + 1);
+            $pos_debut_texte = $pos_courante + 1;
+            continue;
+        }
+
+        $result->type_requete = $match[0];
+        $pos_milieu += strlen($match[0]);
+        $pos_courante = $pos_milieu; // on s'en sert pour compter les lignes plus precisemment
+
+        $type = $match[1];
+        $jointures = trim($match[2]);
+        $table_optionnelle = ($match[3]);
+        if ($jointures) {
+            // on affecte pas ici les jointures explicites, mais dans la compilation
+            // ou elles seront completees des jointures declarees
+            $result->jointures_explicites = $jointures;
+        }
+
+        if ($table_optionnelle) {
+            $result->table_optionnelle = $type;
+        }
+
+        // 1ere passe sur les criteres, vu comme des arguments sans fct
+        // Resultat mis dans result->param
+        $pos_fin_criteres = $pos_milieu;
+        phraser_args($texte, '/>', '', $all_res, $result, $pos_fin_criteres);
+
+        // En 2e passe result->criteres contiendra un tableau
+        // pour l'instant on met le source (chaine) :
+        // si elle reste ici au final, c'est qu'elle contient une erreur
+        $pos_courante = $pos_fin_criteres; // on s'en sert pour compter les lignes plus precisemment
+        $result->criteres = substr($texte, $pos_milieu, $pos_fin_criteres - $pos_milieu);
+        $pos_milieu = $pos_fin_criteres;
+
+        //
+        // Recuperer la fin :
+        //
+        if ($texte[$pos_milieu] === '/') {
+            // boucle autofermante : pas de partie conditionnelle apres
+            $pos_courante += 2;
+            $result->milieu = '';
+        } else {
+            $pos_milieu += 1;
+
+            $fin_boucle = BALISE_FIN_BOUCLE . $id_boucle_search . '>';
+            $pos_fin = strpos($texte, $fin_boucle, $pos_milieu);
+            if ($pos_fin === false) {
+                $err_b = [
+                    'zbug_erreur_boucle_fermant',
+                    ['id' => $id_boucle]
+                ];
+                erreur_squelette($err_b, $result);
+                $pos_courante += strlen($fin_boucle);
+            }
+            else {
+                // verifier une eventuelle imbrication d'une boucle homonyme
+                // (interdite, generera une erreur plus loin, mais permet de signaler la bonne erreur)
+                $search_debut_boucle = BALISE_BOUCLE . $id_boucle_search . '(';
+                $search_from = $pos_milieu;
+                $nb_open = 1;
+                $nb_close = 1;
+                $maxiter = 0;
+                do {
+                    while (
+                        $nb_close < $nb_open
+                        and $p = strpos($texte, $fin_boucle, $pos_fin + 1)
+                    ) {
+                        $nb_close++;
+                        $pos_fin = $p;
+                    }
+                    // si on a pas trouve assez de boucles fermantes, sortir de la, on a fait de notre mieux
+                    if ($nb_close < $nb_open) {
+                        break;
+                    }
+                    while (
+                        $p = strpos($texte, $search_debut_boucle, $search_from)
+                        and $p < $pos_fin
+                    ) {
+                        $nb_open++;
+                        $search_from = $p + 1;
+                    }
+                } while ($nb_close < $nb_open and $maxiter++ < 5);
+
+                $pos_courante = $pos_fin + strlen($fin_boucle);
+            }
+            $result->milieu = substr($texte, $pos_milieu, $pos_fin - $pos_milieu);
+        }
+
+        $ligne_suite = $ligne_apres = $ligne_debut_texte + public_compte_ligne($texte, $pos_debut_texte, $pos_courante);
+        $boucle = public_trouver_fin_boucle($texte, $id_parent, $boucle, $pos_courante, $result);
+
+        //
+        // 1. Partie conditionnelle apres ?
+        //
+        if ($boucle['pos_postcond']) {
+            $result->apres = substr($texte, $pos_courante, $boucle['pos_postcond'] - $pos_courante);
+            $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postcond_inside']);
+            $pos_courante = $boucle['pos_postcond_inside'] ;
+        }
+
+
+        //
+        // 2. Partie alternative apres ?
+        //
+        $ligne_altern = $ligne_suite;
+        if ($boucle['pos_altern']) {
+            $result->altern = substr($texte, $pos_courante, $boucle['pos_altern'] - $pos_courante);
+            $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_altern_inside']);
+            $pos_courante = $boucle['pos_altern_inside'];
+        }
+
+        //
+        // 3. Partie footer non alternative ?
+        //
+        $ligne_postaff = $ligne_suite;
+        if ($boucle['pos_postaff']) {
+            $result->postaff = substr($texte, $pos_courante, $boucle['pos_postaff'] - $pos_courante);
+            $ligne_suite += public_compte_ligne($texte, $pos_courante, $boucle['pos_postaff_inside']);
+            $pos_courante = $boucle['pos_postaff_inside'];
+        }
+
+        $result->ligne = $ligne_preaff;
+
+        if ($p = strpos($type, ':')) {
+            $result->sql_serveur = substr($type, 0, $p);
+            $type = substr($type, $p + 1);
+        }
+        $soustype = strtolower($type);
+
+        if (!isset($GLOBALS['table_des_tables'][$soustype])) {
+            $soustype = $type;
+        }
+
+        $result->type_requete = $soustype;
+        // Lancer la 2e passe sur les criteres si la 1ere etait bonne
+        if (!is_array($result->param)) {
+            $err_b = true;
+        } else {
+            phraser_criteres($result->param, $result);
+            if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) {
+                $result->type_requete = TYPE_RECURSIF;
+                $args = $result->param;
+                array_unshift(
+                    $args,
+                    substr($type, strlen(TYPE_RECURSIF))
+                );
+                $result->param = $args;
+            }
+        }
+
+        $descr['id_mere_contexte'] = $id_boucle;
+        $result->milieu = public_phraser_html_dist($result->milieu, $id_boucle, $boucles, $descr, $ligne_milieu, $boucle_placeholder);
+        // reserver la place dans la pile des boucles pour compiler ensuite dans le bon ordre
+        // ie les boucles qui apparaissent dans les partie conditionnelles doivent etre compilees apres cette boucle
+        // si il y a deja une boucle de ce nom, cela declenchera une erreur ensuite
+        if (empty($boucles[$id_boucle])) {
+            $boucles[$id_boucle] = null;
+        }
+        $result->preaff = public_phraser_html_dist($result->preaff, $id_parent, $boucles, $descr, $ligne_preaff, $boucle_placeholder);
+        $result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $ligne_avant, $boucle_placeholder);
+        $result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $ligne_apres, $boucle_placeholder);
+        $result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $ligne_altern, $boucle_placeholder);
+        $result->postaff = public_phraser_html_dist($result->postaff, $id_parent, $boucles, $descr, $ligne_postaff, $boucle_placeholder);
+
+        // Prevenir le generateur de code que le squelette est faux
+        if ($err_b) {
+            $result->type_requete = false;
+        }
+
+        // Verifier qu'il n'y a pas double definition
+        // apres analyse des sous-parties (pas avant).
+        if (!empty($boucles[$id_boucle])) {
+            if ($boucles[$id_boucle]->type_requete !== false) {
+                $err_b_d = [
+                    'zbug_erreur_boucle_double',
+                    ['id' => $id_boucle]
+                ];
+                erreur_squelette($err_b_d, $result);
+                // Prevenir le generateur de code que le squelette est faux
+                $boucles[$id_boucle]->type_requete = false;
+            }
+        } else {
+            $boucles[$id_boucle] = $result;
+        }
+
+        // remplacer la boucle par un placeholder qui compte le meme nombre de lignes
+        $placeholder = public_generer_boucle_placeholder($id_boucle, $boucles[$id_boucle], $boucle_placeholder, $ligne_suite - $ligne_debut_texte);
+        $longueur_boucle = $pos_courante - $boucle['debut_boucle'];
+        $texte = substr_replace($texte, $placeholder, $boucle['debut_boucle'], $longueur_boucle);
+        $pos_courante = $pos_courante - $longueur_boucle + strlen($placeholder);
+
+        // phraser la partie avant le debut de la boucle
+        #$all_res = phraser_champs_etendus(substr($texte, $pos_debut_texte, $boucle['debut_boucle'] - $pos_debut_texte), $ligne_debut_texte, $all_res);
+        #$all_res[] = &$boucles[$id_boucle];
+
+        $ligne_debut_texte = $ligne_suite;
+        $pos_debut_texte = $pos_courante;
+    }
+
+    $all_res = phraser_champs_etendus($texte, $ligne_debut_initial, $all_res);
+
+    return $all_res;
 }

ecrire/genie/maintenance.php

Indentation +49 added lines, -49 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -35,19 +35,19 @@ 
  */
 function genie_maintenance_dist($t) {
 
-	// (re)mettre .htaccess avec deny from all
-	// dans les deux repertoires dits inaccessibles par http
-	include_spip('inc/acces');
-	verifier_htaccess(_DIR_ETC);
-	verifier_htaccess(_DIR_TMP);
-	verifier_htaccess(_DIR_VENDOR);
+    // (re)mettre .htaccess avec deny from all
+    // dans les deux repertoires dits inaccessibles par http
+    include_spip('inc/acces');
+    verifier_htaccess(_DIR_ETC);
+    verifier_htaccess(_DIR_TMP);
+    verifier_htaccess(_DIR_VENDOR);
 
-	// Verifier qu'aucune table n'est crashee
-	if (!_request('reinstall')) {
-		verifier_crash_tables();
-	}
+    // Verifier qu'aucune table n'est crashee
+    if (!_request('reinstall')) {
+        verifier_crash_tables();
+    }
 
-	return 1;
+    return 1;
 }
 
 
@@ -64,33 +64,33 @@ 
  *     des tables qui ont crashé.
  */
 function verifier_crash_tables() {
-	if (spip_connect()) {
-		include_spip('base/serial');
-		include_spip('base/auxiliaires');
-		$crash = [];
-		foreach (['tables_principales', 'tables_auxiliaires'] as $com) {
-			foreach ($GLOBALS[$com] as $table => $desc) {
-				if (
-					!sql_select('*', $table, '', '', '', 1)
-					and !defined('spip_interdire_cache')
-				) { # cas "LOST CONNECTION"
-				$crash[] = $table;
-				}
-			}
-		}
-		#$crash[] = 'test';
-		if ($crash) {
-			ecrire_meta('message_crash_tables', serialize($crash));
-			spip_log('crash des tables', 'err');
-			spip_log($crash, 'err');
-		} else {
-			effacer_meta('message_crash_tables');
-		}
+    if (spip_connect()) {
+        include_spip('base/serial');
+        include_spip('base/auxiliaires');
+        $crash = [];
+        foreach (['tables_principales', 'tables_auxiliaires'] as $com) {
+            foreach ($GLOBALS[$com] as $table => $desc) {
+                if (
+                    !sql_select('*', $table, '', '', '', 1)
+                    and !defined('spip_interdire_cache')
+                ) { # cas "LOST CONNECTION"
+                $crash[] = $table;
+                }
+            }
+        }
+        #$crash[] = 'test';
+        if ($crash) {
+            ecrire_meta('message_crash_tables', serialize($crash));
+            spip_log('crash des tables', 'err');
+            spip_log($crash, 'err');
+        } else {
+            effacer_meta('message_crash_tables');
+        }
 
-		return $crash;
-	}
+        return $crash;
+    }
 
-	return false;
+    return false;
 }
 
 /**
@@ -106,16 +106,16 @@ 
  * @return string
  */
 function message_crash_tables() {
-	if ($crash = verifier_crash_tables()) {
-		return
-			'<strong>' . _T('texte_recuperer_base') . '</strong><br />'
-			. ' <tt>' . join(', ', $crash) . '</tt><br />'
-			. generer_form_ecrire(
-				'base_repair',
-				_T('texte_crash_base'),
-				'',
-				_T('bouton_tenter_recuperation')
-			);
-	}
-	return '';
+    if ($crash = verifier_crash_tables()) {
+        return
+            '<strong>' . _T('texte_recuperer_base') . '</strong><br />'
+            . ' <tt>' . join(', ', $crash) . '</tt><br />'
+            . generer_form_ecrire(
+                'base_repair',
+                _T('texte_crash_base'),
+                '',
+                _T('bouton_tenter_recuperation')
+            );
+    }
+    return '';
 }

ecrire/iterateur/data.php

Indentation +128 added lines, -128 removed lines

@@ -19,11 +19,11 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_DATA_SOURCE_MAX_SIZE')) {
-	define('_DATA_SOURCE_MAX_SIZE', 2 * 1_048_576);
+    define('_DATA_SOURCE_MAX_SIZE', 2 * 1_048_576);
 }
 
 
@@ -44,17 +44,17 @@ 
  *     Description de la boucle complétée des champs
  */
 function iterateur_DATA_dist($b) {
-	$b->iterateur = 'DATA'; # designe la classe d'iterateur
-	$b->show = [
-		'field' => [
-			'cle' => 'STRING',
-			'valeur' => 'STRING',
-			'*' => 'ALL' // Champ joker *
-		]
-	];
-	$b->select[] = '.valeur';
-
-	return $b;
+    $b->iterateur = 'DATA'; # designe la classe d'iterateur
+    $b->show = [
+        'field' => [
+            'cle' => 'STRING',
+            'valeur' => 'STRING',
+            '*' => 'ALL' // Champ joker *
+        ]
+    ];
+    $b->select[] = '.valeur';
+
+    return $b;
 }
 
 
@@ -69,7 +69,7 @@ 
  * @return array
  */
 function inc_file_to_array_dist($data) {
-	return preg_split('/\r?\n/', $data);
+    return preg_split('/\r?\n/', $data);
 }
 
 /**
@@ -78,9 +78,9 @@ 
  * @return array
  */
 function inc_plugins_to_array_dist() {
-	include_spip('inc/plugin');
+    include_spip('inc/plugin');
 
-	return liste_chemin_plugin_actifs();
+    return liste_chemin_plugin_actifs();
 }
 
 /**
@@ -90,7 +90,7 @@ 
  * @return array
  */
 function inc_xml_to_array_dist($data) {
-	return @XMLObjectToArray(new SimpleXmlIterator($data));
+    return @XMLObjectToArray(new SimpleXmlIterator($data));
 }
 
 /**
@@ -102,14 +102,14 @@ 
  *
  */
 function inc_object_to_array($object) {
-	if (!is_object($object) && !is_array($object)) {
-		return $object;
-	}
-	if (is_object($object)) {
-		$object = get_object_vars($object);
-	}
-
-	return array_map('inc_object_to_array', $object);
+    if (!is_object($object) && !is_array($object)) {
+        return $object;
+    }
+    if (is_object($object)) {
+        $object = get_object_vars($object);
+    }
+
+    return array_map('inc_object_to_array', $object);
 }
 
 /**
@@ -119,20 +119,20 @@ 
  * @return array|bool
  */
 function inc_sql_to_array_dist($data) {
-	# sortir le connecteur de $data
-	preg_match(',^(?:(\w+):)?(.*)$,Sm', $data, $v);
-	$serveur = (string)$v[1];
-	$req = trim($v[2]);
-	if ($s = sql_query($req, $serveur)) {
-		$r = [];
-		while ($t = sql_fetch($s)) {
-			$r[] = $t;
-		}
-
-		return $r;
-	}
-
-	return false;
+    # sortir le connecteur de $data
+    preg_match(',^(?:(\w+):)?(.*)$,Sm', $data, $v);
+    $serveur = (string)$v[1];
+    $req = trim($v[2]);
+    if ($s = sql_query($req, $serveur)) {
+        $r = [];
+        while ($t = sql_fetch($s)) {
+            $r[] = $t;
+        }
+
+        return $r;
+    }
+
+    return false;
 }
 
 /**
@@ -142,13 +142,13 @@ 
  * @return array|bool
  */
 function inc_json_to_array_dist($data) {
-	try {
-		$json = json_decode($data, true, 512, JSON_THROW_ON_ERROR);
-	} catch (JsonException $e) {
-		$json = null;
-		spip_log('Failed to parse Json data : ' . $e->getMessage(), _LOG_INFO);
-	}
-	return is_array($json) ? (array) $json : [];
+    try {
+        $json = json_decode($data, true, 512, JSON_THROW_ON_ERROR);
+    } catch (JsonException $e) {
+        $json = null;
+        spip_log('Failed to parse Json data : ' . $e->getMessage(), _LOG_INFO);
+    }
+    return is_array($json) ? (array) $json : [];
 }
 
 /**
@@ -158,30 +158,30 @@ 
  * @return array|bool
  */
 function inc_csv_to_array_dist($data) {
-	include_spip('inc/csv');
-	[$entete, $csv] = analyse_csv($data);
-	array_unshift($csv, $entete);
-
-	include_spip('inc/charsets');
-	$i = 1;
-	foreach ($entete as $k => $v) {
-		if (trim($v) == '') {
-			$v = 'col' . $i;
-		} // reperer des eventuelles cases vides
-		if (is_numeric($v) and $v < 0) {
-			$v = '__' . $v;
-		} // ne pas risquer d'ecraser une cle numerique
-		if (is_numeric($v)) {
-			$v = '_' . $v;
-		} // ne pas risquer d'ecraser une cle numerique
-		$v = strtolower(preg_replace(',\W+,', '_', translitteration($v)));
-		foreach ($csv as &$item) {
-			$item[$v] = &$item[$k];
-		}
-		$i++;
-	}
-
-	return $csv;
+    include_spip('inc/csv');
+    [$entete, $csv] = analyse_csv($data);
+    array_unshift($csv, $entete);
+
+    include_spip('inc/charsets');
+    $i = 1;
+    foreach ($entete as $k => $v) {
+        if (trim($v) == '') {
+            $v = 'col' . $i;
+        } // reperer des eventuelles cases vides
+        if (is_numeric($v) and $v < 0) {
+            $v = '__' . $v;
+        } // ne pas risquer d'ecraser une cle numerique
+        if (is_numeric($v)) {
+            $v = '_' . $v;
+        } // ne pas risquer d'ecraser une cle numerique
+        $v = strtolower(preg_replace(',\W+,', '_', translitteration($v)));
+        foreach ($csv as &$item) {
+            $item[$v] = &$item[$k];
+        }
+        $i++;
+    }
+
+    return $csv;
 }
 
 /**
@@ -191,13 +191,13 @@ 
  * @return array|bool
  */
 function inc_rss_to_array_dist($data) {
-	$tableau = null;
-	include_spip('inc/syndic');
-	if (is_array($rss = analyser_backend($data))) {
-		$tableau = $rss;
-	}
+    $tableau = null;
+    include_spip('inc/syndic');
+    if (is_array($rss = analyser_backend($data))) {
+        $tableau = $rss;
+    }
 
-	return $tableau;
+    return $tableau;
 }
 
 /**
@@ -207,9 +207,9 @@ 
  * @return array|bool
  */
 function inc_atom_to_array_dist($data) {
-	$rss_to_array = charger_fonction('rss_to_array', 'inc');
+    $rss_to_array = charger_fonction('rss_to_array', 'inc');
 
-	return $rss_to_array($data);
+    return $rss_to_array($data);
 }
 
 /**
@@ -220,12 +220,12 @@ 
  * @return array|bool
  */
 function inc_glob_to_array_dist($data) {
-	$a = glob(
-		$data,
-		GLOB_MARK | GLOB_NOSORT | GLOB_BRACE
-	);
+    $a = glob(
+        $data,
+        GLOB_MARK | GLOB_NOSORT | GLOB_BRACE
+    );
 
-	return $a ?: [];
+    return $a ?: [];
 }
 
 /**
@@ -236,14 +236,14 @@ 
  * @throws Exception
  */
 function inc_yaml_to_array_dist($data) {
-	include_spip('inc/yaml-mini');
-	if (!function_exists('yaml_decode')) {
-		throw new Exception('YAML: impossible de trouver la fonction yaml_decode');
+    include_spip('inc/yaml-mini');
+    if (!function_exists('yaml_decode')) {
+        throw new Exception('YAML: impossible de trouver la fonction yaml_decode');
 
-		return false;
-	}
+        return false;
+    }
 
-	return yaml_decode($data);
+    return yaml_decode($data);
 }
 
 
@@ -258,7 +258,7 @@ 
  * @return array|bool
  */
 function inc_pregfiles_to_array_dist($dir, $regexp = -1, $limit = 10000) {
-	return (array)preg_files($dir, $regexp, $limit);
+    return (array)preg_files($dir, $regexp, $limit);
 }
 
 /**
@@ -270,23 +270,23 @@ 
  * @return array|bool
  */
 function inc_ls_to_array_dist($data) {
-	$glob_to_array = charger_fonction('glob_to_array', 'inc');
-	$a = $glob_to_array($data);
-	foreach ($a as &$v) {
-		$b = (array)@stat($v);
-		foreach ($b as $k => $ignore) {
-			if (is_numeric($k)) {
-				unset($b[$k]);
-			}
-		}
-		$b['file'] = preg_replace('`/$`', '', $v) ;
-		$v = array_merge(
-			pathinfo($v),
-			$b
-		);
-	}
-
-	return $a;
+    $glob_to_array = charger_fonction('glob_to_array', 'inc');
+    $a = $glob_to_array($data);
+    foreach ($a as &$v) {
+        $b = (array)@stat($v);
+        foreach ($b as $k => $ignore) {
+            if (is_numeric($k)) {
+                unset($b[$k]);
+            }
+        }
+        $b['file'] = preg_replace('`/$`', '', $v) ;
+        $v = array_merge(
+            pathinfo($v),
+            $b
+        );
+    }
+
+    return $a;
 }
 
 /**
@@ -296,25 +296,25 @@ 
  * @return array|bool
  */
 function XMLObjectToArray($object) {
-	$xml_array = [];
-	for ($object->rewind(); $object->valid(); $object->next()) {
-		if (array_key_exists($key = $object->key(), $xml_array)) {
-			$key .= '-' . uniqid();
-		}
-		$vars = get_object_vars($object->current());
-		if (isset($vars['@attributes'])) {
-			foreach ($vars['@attributes'] as $k => $v) {
-				$xml_array[$key][$k] = $v;
-			}
-		}
-		if ($object->hasChildren()) {
-			$xml_array[$key][] = XMLObjectToArray(
-				$object->current()
-			);
-		} else {
-			$xml_array[$key][] = strval($object->current());
-		}
-	}
-
-	return $xml_array;
+    $xml_array = [];
+    for ($object->rewind(); $object->valid(); $object->next()) {
+        if (array_key_exists($key = $object->key(), $xml_array)) {
+            $key .= '-' . uniqid();
+        }
+        $vars = get_object_vars($object->current());
+        if (isset($vars['@attributes'])) {
+            foreach ($vars['@attributes'] as $k => $v) {
+                $xml_array[$key][$k] = $v;
+            }
+        }
+        if ($object->hasChildren()) {
+            $xml_array[$key][] = XMLObjectToArray(
+                $object->current()
+            );
+        } else {
+            $xml_array[$key][] = strval($object->current());
+        }
+    }
+
+    return $xml_array;
 }

ecrire/iterateur/condition.php

Indentation +6 added lines, -6 removed lines

@@ -19,7 +19,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('iterateur/data');
@@ -37,10 +37,10 @@ 
  *     Description de la boucle complétée des champs
  */
 function iterateur_CONDITION_dist($b) {
-	$b->iterateur = 'CONDITION'; # designe la classe d'iterateur
-	$b->show = [
-		'field' => []
-	];
+    $b->iterateur = 'CONDITION'; # designe la classe d'iterateur
+    $b->show = [
+        'field' => []
+    ];
 
-	return $b;
+    return $b;
 }

ecrire/iterateur/pour.php

Indentation +9 added lines, -9 removed lines

@@ -19,7 +19,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -38,13 +38,13 @@ 
  *     Description de la boucle complétée des champs
  */
 function iterateur_POUR_dist($b) {
-	$b->iterateur = 'DATA'; # designe la classe d'iterateur
-	$b->show = [
-		'field' => [
-			'cle' => 'STRING',
-			'valeur' => 'STRING',
-		]
-	];
+    $b->iterateur = 'DATA'; # designe la classe d'iterateur
+    $b->show = [
+        'field' => [
+            'cle' => 'STRING',
+            'valeur' => 'STRING',
+        ]
+    ];
 
-	return $b;
+    return $b;
 }

ecrire/iterateur/php.php

Indentation +14 added lines, -14 removed lines

@@ -20,7 +20,7 @@ 
 
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -38,17 +38,17 @@ 
  *     Description de la boucle complétée des champs
  */
 function iterateur_php_dist($b, $iteratorName) {
-	$b->iterateur = $iteratorName; # designe la classe d'iterateur
-	$b->show = [
-		'field' => [
-			'cle' => 'STRING',
-			'valeur' => 'STRING',
-		]
-	];
-
-	foreach (get_class_methods($iteratorName) as $method) {
-		$b->show['field'][strtolower($method)] = 'METHOD';
-	}
-
-	return $b;
+    $b->iterateur = $iteratorName; # designe la classe d'iterateur
+    $b->show = [
+        'field' => [
+            'cle' => 'STRING',
+            'valeur' => 'STRING',
+        ]
+    ];
+
+    foreach (get_class_methods($iteratorName) as $method) {
+        $b->show['field'][strtolower($method)] = 'METHOD';
+    }
+
+    return $b;
 }