spip / SPIP

ecrire/src/Compilateur/Iterateur/Data.php

Indentation +491 added lines, -491 removed lines

@@ -12,499 +12,499 @@
  */
 class Data extends AbstractIterateur implements Iterator
 {
-	/** Tableau de données */
-	protected array $tableau = [];
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 */
-	protected array $filtre = [];
-
-	/**
-	 * Cle courante
-	 *
-	 * @var scalar
-	 */
-	protected $cle = null;
-
-	/**
-	 * Valeur courante
-	 *
-	 * @var mixed
-	 */
-	protected $valeur = null;
-
-	/**
-	 * Constructeur
-	 *
-	 * @param  $command
-	 * @param array $info
-	 */
-	public function __construct(array $command, array $info = []) {
-		$this->type = 'DATA';
-		$this->command = $command;
-		$this->info = $info;
-
-		$this->select($command);
-	}
-
-	/**
-	 * Revenir au depart
-	 *
-	 * @return void
-	 */
-	public function rewind(): void {
-		reset($this->tableau);
-		$this->cle = array_key_first($this->tableau);
-		$this->valeur = current($this->tableau);
-		next($this->tableau);
-	}
-
-	/**
-	 * Déclarer les critères exceptions
-	 *
-	 * @return array
-	 */
-	public function exception_des_criteres() {
-		return ['tableau'];
-	}
-
-	/**
-	 * Récupérer depuis le cache si possible
-	 *
-	 * @param string $cle
-	 * @return mixed
-	 */
-	protected function cache_get($cle) {
-		if (!$cle) {
-			return;
-		}
-		# utiliser memoization si dispo
-		if (!function_exists('cache_get')) {
-			return;
-		}
-
-		return cache_get($cle);
-	}
-
-	/**
-	 * Stocker en cache si possible
-	 *
-	 * @param string $cle
-	 * @param int $ttl
-	 * @param null|mixed $valeur
-	 * @return bool
-	 */
-	protected function cache_set($cle, $ttl, $valeur = null) {
-		if (!$cle) {
-			return;
-		}
-		if (is_null($valeur)) {
-			$valeur = $this->tableau;
-		}
-		# utiliser memoization si dispo
-		if (!function_exists('cache_set')) {
-			return;
-		}
-
-		return cache_set(
-			$cle,
-			[
-				'data' => $valeur,
-				'time' => time(),
-				'ttl' => $ttl
-			],
-			3600 + $ttl
-		);
-		# conserver le cache 1h de plus que la validite demandee,
-		# pour le cas ou le serveur distant ne reponde plus
-	}
-
-	/**
-	 * Aller chercher les données de la boucle DATA
-	 *
-	 * @throws Exception
-	 * @param array $command
-	 * @return void
-	 */
-	protected function select($command) {
-
-		// l'iterateur DATA peut etre appele en passant (data:type)
-		// le type se retrouve dans la commande 'from'
-		// dans ce cas la le critere {source}, si present, n'a pas besoin du 1er argument
-		if (isset($this->command['from'][0])) {
-			if (isset($this->command['source']) and is_array($this->command['source'])) {
-				array_unshift($this->command['source'], $this->command['sourcemode']);
-			}
-			$this->command['sourcemode'] = $this->command['from'][0];
-		}
-
-		// cherchons differents moyens de creer le tableau de donnees
-		// les commandes connues pour l'iterateur DATA
-		// sont : {tableau #ARRAY} ; {cle=...} ; {valeur=...}
-
-		// {source format, [URL], [arg2]...}
-		if (
-			isset($this->command['source'])
-			and isset($this->command['sourcemode'])
-		) {
-			$this->select_source();
-		}
-
-		// Critere {liste X1, X2, X3}
-		if (isset($this->command['liste'])) {
-			$this->select_liste();
-		}
-		if (isset($this->command['enum'])) {
-			$this->select_enum();
-		}
-
-		// Si a ce stade on n'a pas de table, il y a un bug
-		if (!is_array($this->tableau)) {
-			$this->err = true;
-			spip_log('erreur datasource ' . var_export($command, true));
-		}
-
-		// {datapath query.results}
-		// extraire le chemin "query.results" du tableau de donnees
-		if (
-			!$this->err
-			and isset($this->command['datapath'])
-			and is_array($this->command['datapath'])
-		) {
-			$this->select_datapath();
-		}
-
-		// tri {par x}
-		if ($this->command['orderby']) {
-			$this->select_orderby();
-		}
-
-		// grouper les resultats {fusion /x/y/z} ;
-		if ($this->command['groupby']) {
-			$this->select_groupby();
-		}
-
-		$this->rewind();
-		#var_dump($this->tableau);
-	}
-
-
-	/**
-	 * Aller chercher les donnees de la boucle DATA
-	 * depuis une source
-	 * {source format, [URL], [arg2]...}
-	 */
-	protected function select_source() {
-		# un peu crado : avant de charger le cache il faut charger
-		# les class indispensables, sinon PHP ne saura pas gerer
-		# l'objet en cache ; cf plugins/icalendar
-		# perf : pas de fonction table_to_array ! (table est deja un array)
-		if (
-			isset($this->command['sourcemode'])
-			and !in_array($this->command['sourcemode'], ['table', 'array', 'tableau'])
-		) {
-			charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
-		}
-
-		# le premier argument peut etre un array, une URL etc.
-		$src = $this->command['source'][0];
-
-		# avons-nous un cache dispo ?
-		$cle = null;
-		if (is_string($src)) {
-			$cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
-		}
-
-		$cache = $this->cache_get($cle);
-		if (isset($this->command['datacache'])) {
-			$ttl = intval($this->command['datacache']);
-		}
-		if (
-			$cache
-			and ($cache['time'] + ($ttl ?? $cache['ttl'])
-				> time())
-			and !(_request('var_mode') === 'recalcul'
-				and include_spip('inc/autoriser')
-				and autoriser('recalcul')
-			)
-		) {
-			$this->tableau = $cache['data'];
-		} else {
-			try {
-				if (
-					isset($this->command['sourcemode'])
-					and in_array(
-						$this->command['sourcemode'],
-						['table', 'array', 'tableau']
-					)
-				) {
-					if (
-						is_array($a = $src)
-						or (is_string($a)
-							and $a = str_replace('"', '"', $a) # fragile!
-							and is_array($a = @unserialize($a)))
-					) {
-						$this->tableau = $a;
-					}
-				} else {
-					$data = $src;
-					if (is_string($src)) {
-						if (tester_url_absolue($src)) {
-							include_spip('inc/distant');
-							$data = recuperer_url($src, ['taille_max' => _DATA_SOURCE_MAX_SIZE]);
-							$data = $data['page'] ?? '';
-							if (!$data) {
-								throw new Exception('404');
-							}
-							if (!isset($ttl)) {
-								$ttl = 24 * 3600;
-							}
-						} elseif (@is_dir($src)) {
-							$data = $src;
-						} elseif (@is_readable($src) && @is_file($src)) {
-							$data = spip_file_get_contents($src);
-						}
-						if (!isset($ttl)) {
-							$ttl = 10;
-						}
-					}
-
-					if (
-						!$this->err
-						and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
-					) {
-						$args = $this->command['source'];
-						$args[0] = $data;
-						if (is_array($a = $data_to_array(...$args))) {
-							$this->tableau = $a;
-						}
-					}
-				}
-
-				if (!is_array($this->tableau)) {
-					$this->err = true;
-				}
-
-				if (!$this->err and isset($ttl) and $ttl > 0) {
-					$this->cache_set($cle, $ttl);
-				}
-			} catch (Exception $e) {
-				$e = $e->getMessage();
-				$err = sprintf(
-					"[%s, %s] $e",
-					$src,
-					$this->command['sourcemode']
-				);
-				erreur_squelette([$err, []]);
-				$this->err = true;
-			}
-		}
-
-		# en cas d'erreur, utiliser le cache si encore dispo
-		if (
-			$this->err
-			and $cache
-		) {
-			$this->tableau = $cache['data'];
-			$this->err = false;
-		}
-	}
-
-
-	/**
-	 * Retourne un tableau donne depuis un critère liste
-	 *
-	 * Critère `{liste X1, X2, X3}`
-	 *
-	 * @see critere_DATA_liste_dist()
-	 *
-	 **/
-	protected function select_liste() {
-		# s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
-		if (!isset($this->command['liste'][1])) {
-			if (!is_array($this->command['liste'][0])) {
-				$this->command['liste'] = explode(',', $this->command['liste'][0]);
-			} else {
-				$this->command['liste'] = $this->command['liste'][0];
-			}
-		}
-		$this->tableau = $this->command['liste'];
-	}
-
-	/**
-	 * Retourne un tableau donne depuis un critere liste
-	 * Critere {enum Xmin, Xmax}
-	 *
-	 **/
-	protected function select_enum() {
-		# s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
-		if (!isset($this->command['enum'][1])) {
-			if (!is_array($this->command['enum'][0])) {
-				$this->command['enum'] = explode(',', $this->command['enum'][0]);
-			} else {
-				$this->command['enum'] = $this->command['enum'][0];
-			}
-		}
-		if ((is_countable($this->command['enum']) ? count($this->command['enum']) : 0) >= 3) {
-			$enum = range(
-				array_shift($this->command['enum']),
-				array_shift($this->command['enum']),
-				array_shift($this->command['enum'])
-			);
-		} else {
-			$enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']));
-		}
-		$this->tableau = $enum;
-	}
-
-
-	/**
-	 * extraire le chemin "query.results" du tableau de donnees
-	 * {datapath query.results}
-	 *
-	 **/
-	protected function select_datapath() {
-		$base = reset($this->command['datapath']);
-		if (strlen($base = ltrim(trim($base), '/'))) {
-			$this->tableau = table_valeur($this->tableau, $base);
-			if (!is_array($this->tableau)) {
-				$this->tableau = [];
-				$this->err = true;
-				spip_log("datapath '$base' absent");
-			}
-		}
-	}
-
-	/**
-	 * Ordonner les resultats
-	 * {par x}
-	 *
-	 **/
-	protected function select_orderby() {
-		$sortfunc = '';
-		$aleas = 0;
-		foreach ($this->command['orderby'] as $tri) {
-			// virer le / initial pour les criteres de la forme {par /xx}
-			if (preg_match(',^\.?([/\w:_-]+)( DESC)?$,iS', ltrim($tri, '/'), $r)) {
-				$r = array_pad($r, 3, null);
-
-				// tri par cle
-				if ($r[1] == 'cle') {
-					if (isset($r[2]) and $r[2]) {
-						krsort($this->tableau);
-					} else {
-						ksort($this->tableau);
-					}
-				} # {par hasard}
-				else {
-					if ($r[1] == 'hasard') {
-						$k = array_keys($this->tableau);
-						shuffle($k);
-						$v = [];
-						foreach ($k as $cle) {
-							$v[$cle] = $this->tableau[$cle];
-						}
-						$this->tableau = $v;
-					} else {
-						# {par valeur}
-						if ($r[1] == 'valeur') {
-							$tv = '%s';
-						} # {par valeur/xx/yy} ??
-						else {
-							$tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
-						}
-						$sortfunc .= '
+    /** Tableau de données */
+    protected array $tableau = [];
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     */
+    protected array $filtre = [];
+
+    /**
+     * Cle courante
+     *
+     * @var scalar
+     */
+    protected $cle = null;
+
+    /**
+     * Valeur courante
+     *
+     * @var mixed
+     */
+    protected $valeur = null;
+
+    /**
+     * Constructeur
+     *
+     * @param  $command
+     * @param array $info
+     */
+    public function __construct(array $command, array $info = []) {
+        $this->type = 'DATA';
+        $this->command = $command;
+        $this->info = $info;
+
+        $this->select($command);
+    }
+
+    /**
+     * Revenir au depart
+     *
+     * @return void
+     */
+    public function rewind(): void {
+        reset($this->tableau);
+        $this->cle = array_key_first($this->tableau);
+        $this->valeur = current($this->tableau);
+        next($this->tableau);
+    }
+
+    /**
+     * Déclarer les critères exceptions
+     *
+     * @return array
+     */
+    public function exception_des_criteres() {
+        return ['tableau'];
+    }
+
+    /**
+     * Récupérer depuis le cache si possible
+     *
+     * @param string $cle
+     * @return mixed
+     */
+    protected function cache_get($cle) {
+        if (!$cle) {
+            return;
+        }
+        # utiliser memoization si dispo
+        if (!function_exists('cache_get')) {
+            return;
+        }
+
+        return cache_get($cle);
+    }
+
+    /**
+     * Stocker en cache si possible
+     *
+     * @param string $cle
+     * @param int $ttl
+     * @param null|mixed $valeur
+     * @return bool
+     */
+    protected function cache_set($cle, $ttl, $valeur = null) {
+        if (!$cle) {
+            return;
+        }
+        if (is_null($valeur)) {
+            $valeur = $this->tableau;
+        }
+        # utiliser memoization si dispo
+        if (!function_exists('cache_set')) {
+            return;
+        }
+
+        return cache_set(
+            $cle,
+            [
+                'data' => $valeur,
+                'time' => time(),
+                'ttl' => $ttl
+            ],
+            3600 + $ttl
+        );
+        # conserver le cache 1h de plus que la validite demandee,
+        # pour le cas ou le serveur distant ne reponde plus
+    }
+
+    /**
+     * Aller chercher les données de la boucle DATA
+     *
+     * @throws Exception
+     * @param array $command
+     * @return void
+     */
+    protected function select($command) {
+
+        // l'iterateur DATA peut etre appele en passant (data:type)
+        // le type se retrouve dans la commande 'from'
+        // dans ce cas la le critere {source}, si present, n'a pas besoin du 1er argument
+        if (isset($this->command['from'][0])) {
+            if (isset($this->command['source']) and is_array($this->command['source'])) {
+                array_unshift($this->command['source'], $this->command['sourcemode']);
+            }
+            $this->command['sourcemode'] = $this->command['from'][0];
+        }
+
+        // cherchons differents moyens de creer le tableau de donnees
+        // les commandes connues pour l'iterateur DATA
+        // sont : {tableau #ARRAY} ; {cle=...} ; {valeur=...}
+
+        // {source format, [URL], [arg2]...}
+        if (
+            isset($this->command['source'])
+            and isset($this->command['sourcemode'])
+        ) {
+            $this->select_source();
+        }
+
+        // Critere {liste X1, X2, X3}
+        if (isset($this->command['liste'])) {
+            $this->select_liste();
+        }
+        if (isset($this->command['enum'])) {
+            $this->select_enum();
+        }
+
+        // Si a ce stade on n'a pas de table, il y a un bug
+        if (!is_array($this->tableau)) {
+            $this->err = true;
+            spip_log('erreur datasource ' . var_export($command, true));
+        }
+
+        // {datapath query.results}
+        // extraire le chemin "query.results" du tableau de donnees
+        if (
+            !$this->err
+            and isset($this->command['datapath'])
+            and is_array($this->command['datapath'])
+        ) {
+            $this->select_datapath();
+        }
+
+        // tri {par x}
+        if ($this->command['orderby']) {
+            $this->select_orderby();
+        }
+
+        // grouper les resultats {fusion /x/y/z} ;
+        if ($this->command['groupby']) {
+            $this->select_groupby();
+        }
+
+        $this->rewind();
+        #var_dump($this->tableau);
+    }
+
+
+    /**
+     * Aller chercher les donnees de la boucle DATA
+     * depuis une source
+     * {source format, [URL], [arg2]...}
+     */
+    protected function select_source() {
+        # un peu crado : avant de charger le cache il faut charger
+        # les class indispensables, sinon PHP ne saura pas gerer
+        # l'objet en cache ; cf plugins/icalendar
+        # perf : pas de fonction table_to_array ! (table est deja un array)
+        if (
+            isset($this->command['sourcemode'])
+            and !in_array($this->command['sourcemode'], ['table', 'array', 'tableau'])
+        ) {
+            charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
+        }
+
+        # le premier argument peut etre un array, une URL etc.
+        $src = $this->command['source'][0];
+
+        # avons-nous un cache dispo ?
+        $cle = null;
+        if (is_string($src)) {
+            $cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
+        }
+
+        $cache = $this->cache_get($cle);
+        if (isset($this->command['datacache'])) {
+            $ttl = intval($this->command['datacache']);
+        }
+        if (
+            $cache
+            and ($cache['time'] + ($ttl ?? $cache['ttl'])
+                > time())
+            and !(_request('var_mode') === 'recalcul'
+                and include_spip('inc/autoriser')
+                and autoriser('recalcul')
+            )
+        ) {
+            $this->tableau = $cache['data'];
+        } else {
+            try {
+                if (
+                    isset($this->command['sourcemode'])
+                    and in_array(
+                        $this->command['sourcemode'],
+                        ['table', 'array', 'tableau']
+                    )
+                ) {
+                    if (
+                        is_array($a = $src)
+                        or (is_string($a)
+                            and $a = str_replace('"', '"', $a) # fragile!
+                            and is_array($a = @unserialize($a)))
+                    ) {
+                        $this->tableau = $a;
+                    }
+                } else {
+                    $data = $src;
+                    if (is_string($src)) {
+                        if (tester_url_absolue($src)) {
+                            include_spip('inc/distant');
+                            $data = recuperer_url($src, ['taille_max' => _DATA_SOURCE_MAX_SIZE]);
+                            $data = $data['page'] ?? '';
+                            if (!$data) {
+                                throw new Exception('404');
+                            }
+                            if (!isset($ttl)) {
+                                $ttl = 24 * 3600;
+                            }
+                        } elseif (@is_dir($src)) {
+                            $data = $src;
+                        } elseif (@is_readable($src) && @is_file($src)) {
+                            $data = spip_file_get_contents($src);
+                        }
+                        if (!isset($ttl)) {
+                            $ttl = 10;
+                        }
+                    }
+
+                    if (
+                        !$this->err
+                        and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
+                    ) {
+                        $args = $this->command['source'];
+                        $args[0] = $data;
+                        if (is_array($a = $data_to_array(...$args))) {
+                            $this->tableau = $a;
+                        }
+                    }
+                }
+
+                if (!is_array($this->tableau)) {
+                    $this->err = true;
+                }
+
+                if (!$this->err and isset($ttl) and $ttl > 0) {
+                    $this->cache_set($cle, $ttl);
+                }
+            } catch (Exception $e) {
+                $e = $e->getMessage();
+                $err = sprintf(
+                    "[%s, %s] $e",
+                    $src,
+                    $this->command['sourcemode']
+                );
+                erreur_squelette([$err, []]);
+                $this->err = true;
+            }
+        }
+
+        # en cas d'erreur, utiliser le cache si encore dispo
+        if (
+            $this->err
+            and $cache
+        ) {
+            $this->tableau = $cache['data'];
+            $this->err = false;
+        }
+    }
+
+
+    /**
+     * Retourne un tableau donne depuis un critère liste
+     *
+     * Critère `{liste X1, X2, X3}`
+     *
+     * @see critere_DATA_liste_dist()
+     *
+     **/
+    protected function select_liste() {
+        # s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
+        if (!isset($this->command['liste'][1])) {
+            if (!is_array($this->command['liste'][0])) {
+                $this->command['liste'] = explode(',', $this->command['liste'][0]);
+            } else {
+                $this->command['liste'] = $this->command['liste'][0];
+            }
+        }
+        $this->tableau = $this->command['liste'];
+    }
+
+    /**
+     * Retourne un tableau donne depuis un critere liste
+     * Critere {enum Xmin, Xmax}
+     *
+     **/
+    protected function select_enum() {
+        # s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
+        if (!isset($this->command['enum'][1])) {
+            if (!is_array($this->command['enum'][0])) {
+                $this->command['enum'] = explode(',', $this->command['enum'][0]);
+            } else {
+                $this->command['enum'] = $this->command['enum'][0];
+            }
+        }
+        if ((is_countable($this->command['enum']) ? count($this->command['enum']) : 0) >= 3) {
+            $enum = range(
+                array_shift($this->command['enum']),
+                array_shift($this->command['enum']),
+                array_shift($this->command['enum'])
+            );
+        } else {
+            $enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']));
+        }
+        $this->tableau = $enum;
+    }
+
+
+    /**
+     * extraire le chemin "query.results" du tableau de donnees
+     * {datapath query.results}
+     *
+     **/
+    protected function select_datapath() {
+        $base = reset($this->command['datapath']);
+        if (strlen($base = ltrim(trim($base), '/'))) {
+            $this->tableau = table_valeur($this->tableau, $base);
+            if (!is_array($this->tableau)) {
+                $this->tableau = [];
+                $this->err = true;
+                spip_log("datapath '$base' absent");
+            }
+        }
+    }
+
+    /**
+     * Ordonner les resultats
+     * {par x}
+     *
+     **/
+    protected function select_orderby() {
+        $sortfunc = '';
+        $aleas = 0;
+        foreach ($this->command['orderby'] as $tri) {
+            // virer le / initial pour les criteres de la forme {par /xx}
+            if (preg_match(',^\.?([/\w:_-]+)( DESC)?$,iS', ltrim($tri, '/'), $r)) {
+                $r = array_pad($r, 3, null);
+
+                // tri par cle
+                if ($r[1] == 'cle') {
+                    if (isset($r[2]) and $r[2]) {
+                        krsort($this->tableau);
+                    } else {
+                        ksort($this->tableau);
+                    }
+                } # {par hasard}
+                else {
+                    if ($r[1] == 'hasard') {
+                        $k = array_keys($this->tableau);
+                        shuffle($k);
+                        $v = [];
+                        foreach ($k as $cle) {
+                            $v[$cle] = $this->tableau[$cle];
+                        }
+                        $this->tableau = $v;
+                    } else {
+                        # {par valeur}
+                        if ($r[1] == 'valeur') {
+                            $tv = '%s';
+                        } # {par valeur/xx/yy} ??
+                        else {
+                            $tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
+                        }
+                        $sortfunc .= '
 					$a = ' . sprintf($tv, '$aa') . ';
 					$b = ' . sprintf($tv, '$bb') . ';
 					if ($a <> $b)
 						return ($a ' . (!empty($r[2]) ? '>' : '<') . ' $b) ? -1 : 1;';
-					}
-				}
-			}
-		}
-
-		if ($sortfunc) {
-			$sortfunc .= "\n return 0;";
-			uasort($this->tableau, fn($aa, $bb) => eval($sortfunc));
-		}
-	}
-
-
-	/**
-	 * Grouper les resultats
-	 * {fusion /x/y/z}
-	 *
-	 **/
-	protected function select_groupby() {
-		// virer le / initial pour les criteres de la forme {fusion /xx}
-		if (strlen($fusion = ltrim($this->command['groupby'][0], '/'))) {
-			$vu = [];
-			foreach ($this->tableau as $k => $v) {
-				$val = table_valeur($v, $fusion);
-				if (isset($vu[$val])) {
-					unset($this->tableau[$k]);
-				} else {
-					$vu[$val] = true;
-				}
-			}
-		}
-	}
-
-
-	/**
-	 * L'iterateur est-il encore valide ?
-	 *
-	 * @return bool
-	 */
-	public function valid(): bool {
-		return !is_null($this->cle);
-	}
-
-	/**
-	 * Retourner la valeur
-	 *
-	 * @return mixed
-	 */
-	#[\ReturnTypeWillChange]
-	public function current() {
-		return $this->valeur;
-	}
-
-	/**
-	 * Retourner la cle
-	 *
-	 * @return mixed
-	 */
-	#[\ReturnTypeWillChange]
-	public function key() {
-		return $this->cle;
-	}
-
-	/**
-	 * Passer a la valeur suivante
-	 *
-	 * @return void
-	 */
-	public function next(): void {
-		if ($this->valid()) {
-			$this->cle = key($this->tableau);
-			$this->valeur = current($this->tableau);
-			next($this->tableau);
-		}
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			$this->total = count($this->tableau);
-		}
-
-		return $this->total;
-	}
+                    }
+                }
+            }
+        }
+
+        if ($sortfunc) {
+            $sortfunc .= "\n return 0;";
+            uasort($this->tableau, fn($aa, $bb) => eval($sortfunc));
+        }
+    }
+
+
+    /**
+     * Grouper les resultats
+     * {fusion /x/y/z}
+     *
+     **/
+    protected function select_groupby() {
+        // virer le / initial pour les criteres de la forme {fusion /xx}
+        if (strlen($fusion = ltrim($this->command['groupby'][0], '/'))) {
+            $vu = [];
+            foreach ($this->tableau as $k => $v) {
+                $val = table_valeur($v, $fusion);
+                if (isset($vu[$val])) {
+                    unset($this->tableau[$k]);
+                } else {
+                    $vu[$val] = true;
+                }
+            }
+        }
+    }
+
+
+    /**
+     * L'iterateur est-il encore valide ?
+     *
+     * @return bool
+     */
+    public function valid(): bool {
+        return !is_null($this->cle);
+    }
+
+    /**
+     * Retourner la valeur
+     *
+     * @return mixed
+     */
+    #[\ReturnTypeWillChange]
+    public function current() {
+        return $this->valeur;
+    }
+
+    /**
+     * Retourner la cle
+     *
+     * @return mixed
+     */
+    #[\ReturnTypeWillChange]
+    public function key() {
+        return $this->cle;
+    }
+
+    /**
+     * Passer a la valeur suivante
+     *
+     * @return void
+     */
+    public function next(): void {
+        if ($this->valid()) {
+            $this->cle = key($this->tableau);
+            $this->valeur = current($this->tableau);
+            next($this->tableau);
+        }
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            $this->total = count($this->tableau);
+        }
+
+        return $this->total;
+    }
 }

Spacing +8 added lines, -8 removed lines

@@ -163,7 +163,7 @@ 
 		// Si a ce stade on n'a pas de table, il y a un bug
 		if (!is_array($this->tableau)) {
 			$this->err = true;
-			spip_log('erreur datasource ' . var_export($command, true));
+			spip_log('erreur datasource '.var_export($command, true));
 		}
 
 		// {datapath query.results}
@@ -205,7 +205,7 @@ 
 			isset($this->command['sourcemode'])
 			and !in_array($this->command['sourcemode'], ['table', 'array', 'tableau'])
 		) {
-			charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
+			charger_fonction($this->command['sourcemode'].'_to_array', 'inc', true);
 		}
 
 		# le premier argument peut etre un array, une URL etc.
@@ -214,7 +214,7 @@ 
 		# avons-nous un cache dispo ?
 		$cle = null;
 		if (is_string($src)) {
-			$cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
+			$cle = 'datasource_'.md5($this->command['sourcemode'].':'.var_export($this->command['source'], true));
 		}
 
 		$cache = $this->cache_get($cle);
@@ -273,7 +273,7 @@ 
 
 					if (
 						!$this->err
-						and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
+						and $data_to_array = charger_fonction($this->command['sourcemode'].'_to_array', 'inc', true)
 					) {
 						$args = $this->command['source'];
 						$args[0] = $data;
@@ -413,13 +413,13 @@ 
 							$tv = '%s';
 						} # {par valeur/xx/yy} ??
 						else {
-							$tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
+							$tv = 'table_valeur(%s, '.var_export($r[1], true).')';
 						}
 						$sortfunc .= '
-					$a = ' . sprintf($tv, '$aa') . ';
-					$b = ' . sprintf($tv, '$bb') . ';
+					$a = ' . sprintf($tv, '$aa').';
+					$b = ' . sprintf($tv, '$bb').';
 					if ($a <> $b)
-						return ($a ' . (!empty($r[2]) ? '>' : '<') . ' $b) ? -1 : 1;';
+						return ($a ' . (!empty($r[2]) ? '>' : '<').' $b) ? -1 : 1;';
 					}
 				}
 			}

ecrire/src/Compilateur/Noeud/Boucle.php

Indentation +363 added lines, -363 removed lines

@@ -7,367 +7,367 @@
  */
 class Boucle
 {
-	/** Type de noeud */
-	public string $type = 'boucle';
-
-	/** Identifiant de la boucle */
-	public string $id_boucle;
-
-	/** Identifiant de la boucle parente */
-	public string $id_parent = '';
-
-	/** Un nom explicite qui peut être affecté manuellement à certaines boucles générées */
-	public string $nom = '';
-
-	/**
-	 * Partie avant toujours affichee
-	 *
-	 * @var string|array
-	 */
-	public $preaff = '';
-
-	/**
-	 * Partie optionnelle avant
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Pour chaque élément
-	 *
-	 * @var string|array
-	 */
-	public $milieu = '';
-
-	/**
-	 * Partie optionnelle après
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/**
-	 * Partie alternative, si pas de résultat dans la boucle
-	 *
-	 * @var string|array
-	 */
-	public $altern = '';
-
-	/**
-	 * Partie apres toujours affichee
-	 *
-	 * @var string|array
-	 */
-	public $postaff = '';
-
-
-	/**
-	 * La boucle doit-elle sélectionner la langue ?
-	 *
-	 * Valeurs : '', 'oui', 'non'
-	 */
-	public string $lang_select = '';
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 *
-	 * FIXME: un seul typage (string ?)
-	 *
-	 * @var string|false|null
-	 */
-	public $type_requete = null;
-
-	/**
-	 * La table est elle optionnelle ?
-	 *
-	 * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
-	 */
-	public bool $table_optionnelle = false;
-
-	/**
-	 * Nom du fichier de connexion
-	 */
-	public string $sql_serveur = '';
-
-	/**
-	 * Paramètres de la boucle
-	 *
-	 * Description des paramètres passés à la boucle, qui servent ensuite
-	 * au calcul des critères
-	 *
-	 * FIXME: type unique.
-	 * @var false|array
-	 *     - false: erreur de syntaxe
-	 */
-	public $param = [];
-
-	/**
-	 * Critères de la boucle
-	 *
-	 * FIXME: type array unique.
-	 *
-	 * @var string|Critere[]
-	 * - string: phrasage (code brut). Il reste si erreur de critère
-	 * - array: analyse correcte des critères...
-	 */
-	public $criteres = [];
-
-	/**
-	 * Textes insérés entre 2 éléments de boucle (critère inter)
-	 *
-	 * @var string[]
-	 */
-	public array $separateur = [];
-
-	/**
-	 * Liste des jointures possibles avec cette table
-	 *
-	 * Les jointures par défaut de la table sont complétées en priorité
-	 * des jointures déclarées explicitement sur la boucle
-	 *
-	 * @see base_trouver_table_dist()
-	 */
-	public array $jointures = [];
-
-	/**
-	 * Jointures explicites avec cette table
-	 *
-	 * Ces jointures sont utilisées en priorité par rapport aux jointures
-	 * normales possibles pour retrouver les colonnes demandées extérieures
-	 * à la boucle.
-	 *
-	 * @var string|bool
-	 */
-	public $jointures_explicites = false;
-
-	/**
-	 * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
-	 */
-	public string $doublons = '';
-
-	/**
-	 * Code PHP ajouté au début de chaque itération de boucle.
-	 *
-	 * Utilisé entre autre par les critères {pagination}, {n-a,b}, {a/b}...
-	 */
-	public string $partie = '';
-
-	/**
-	 * Nombre de divisions de la boucle, d'éléments à afficher,
-	 * ou de soustractions d'éléments à faire
-	 *
-	 * Dans les critères limitant le nombre d'éléments affichés
-	 * {a,b}, {a,n-b}, {a/b}, {pagination b}, b est affecté à total_parties.
-	 */
-	public string $total_parties = '';
-
-	/**
-	 * Code PHP ajouté avant l'itération de boucle.
-	 *
-	 * Utilisé entre autre par les critères {pagination}, {a,b}, {a/b}
-	 * pour initialiser les variables de début et de fin d'itération.
-	 */
-	public string $mode_partie = '';
-
-	/**
-	 * Identifiant d'une boucle qui appelle celle-ci de manière récursive
-	 *
-	 * Si une boucle est appelée de manière récursive quelque part par
-	 * une autre boucle comme <BOUCLE_rec(boucle_identifiant) />, cette
-	 * boucle (identifiant) reçoit dans cette propriété l'identifiant
-	 * de l'appelant (rec)
-	 */
-	public string $externe = '';
-
-	// champs pour la construction de la requete SQL
-
-	/**
-	 * Liste des champs à récupérer par la boucle
-	 *
-	 * Expression 'table.nom_champ' ou calculée 'nom_champ AS x'
-	 *
-	 * @var string[]
-	 */
-	public array $select = [];
-
-	/**
-	 * Liste des alias / tables SQL utilisées dans la boucle
-	 *
-	 * L'index est un identifiant (xx dans spip_xx assez souvent) qui servira
-	 * d'alias au nom de la table ; la valeur est le nom de la table SQL désirée.
-	 *
-	 * L'index 0 peut définir le type de sources de données de l'itérateur DATA
-	 *
-	 * @var string[]
-	 */
-	public array $from = [];
-
-	/**
-	 * Liste des alias / type de jointures utilisées dans la boucle
-	 *
-	 * L'index est le nom d'alias (comme pour la propriété $from), et la valeur
-	 * un type de jointure parmi 'INNER', 'LEFT', 'RIGHT', 'OUTER'.
-	 *
-	 * Lorsque le type n'est pas déclaré pour un alias, c'est 'INNER'
-	 * qui sera utilisé par défaut (créant donc un INNER JOIN).
-	 *
-	 * @var string[]
-	 */
-	public array $from_type = [];
-
-	/**
-	 * Liste des conditions WHERE de la boucle
-	 *
-	 * Permet de restreindre les éléments retournés par une boucle
-	 * en fonctions des conditions transmises dans ce tableau.
-	 *
-	 * Ce tableau peut avoir plusieurs niveaux de profondeur.
-	 *
-	 * Les éléments du premier niveau sont reliés par des AND, donc
-	 * chaque élément ajouté directement au where par
-	 * $boucle->where[] = array(...) ou $boucle->where[] = "'expression'"
-	 * est une condition AND en plus.
-	 *
-	 * Par contre, lorsqu'on indique un tableau, il peut décrire des relations
-	 * internes différentes. Soit $expr un tableau d'expressions quelconques de 3 valeurs :
-	 * $expr = array(operateur, val1, val2)
-	 *
-	 * Ces 3 valeurs sont des expressions PHP. L'index 0 désigne l'opérateur
-	 * à réaliser tel que :
-	 *
-	 * - "'='" , "'>='", "'<'", "'IN'", "'REGEXP'", "'LIKE'", ... :
-	 *    val1 et val2 sont des champs et valeurs à utiliser dans la comparaison
-	 *    suivant cet ordre : "val1 operateur val2".
-	 *    Exemple : $boucle->where[] = array("'='", "'articles.statut'", "'\"publie\"'");
-	 * - "'AND'", "'OR'", "'NOT'" :
-	 *    dans ce cas val1 et val2 sont également des expressions
-	 *    de comparaison complètes, et peuvent être eux-même des tableaux comme $expr
-	 *    Exemples :
-	 *    $boucle->where[] = array("'OR'", $expr1, $expr2);
-	 *    $boucle->where[] = array("'NOT'", $expr); // val2 n'existe pas avec NOT
-	 *
-	 * D'autres noms sont possibles pour l'opérateur (le nombre de valeurs diffère) :
-	 * - "'SELF'", "'SUBSELECT'" : indiquent des sous requêtes
-	 * - "'?'" : indique une condition à faire évaluer (val1 ? val2 : val3)
-	 */
-	public array $where = [];
-
-	public array $join = [];
-	public array $having = [];
-	public $limit = '';
-	public array $group = [];
-	public array $order = [];
-	public array $default_order = [];
-	public string $date = 'date';
-	public string $hash = '';
-	public $in = '';
-	public bool $sous_requete = false;
-
-	/**
-	 * Code PHP qui sera ajouté en tout début de la fonction de boucle
-	 *
-	 * Il sert à insérer le code calculant une hierarchie
-	 */
-	public string $hierarchie = '';
-
-	// champs pour la construction du corps PHP
-
-	/**
-	 * Description des sources de données de la boucle
-	 *
-	 * Description des données de la boucle issu de trouver_table
-	 * dans le cadre de l'itérateur SQL et contenant au moins l'index 'field'.
-	 *
-	 * @see base_trouver_table_dist()
-	 */
-	public array $show = [];
-
-	/**
-	 * Nom de la table SQL principale de la boucle, sans son préfixe
-	 */
-	public string $id_table = '';
-
-	/**
-	 * Nom de la clé primaire de la table SQL principale de la boucle
-	 */
-	public string $primary = '';
-
-	/**
-	 * Code PHP compilé de la boucle
-	 *
-	 * FIXME: un seul type (string ?)
-	 *
-	 * - false: boucle fautive ?
-	 *
-	 * @var string|false
-	 */
-	public $return = '';
-
-	public $numrows = false;
-	public $cptrows = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
-
-
-	/**
-	 * table pour stocker les modificateurs de boucle tels que tout, plat ...,
-	 * utilisable par les plugins egalement
-	 *
-	 * @var array<string, mixed>
-	 */
-	public array $modificateur = [];
-
-	/**
-	 * Type d'itérateur utilisé pour cette boucle
-	 *
-	 * - 'SQL' dans le cadre d'une boucle sur une table SQL
-	 * - 'DATA' pour l'itérateur DATA, ...
-	 *
-	 * @var string
-	 */
-	public string $iterateur = ''; // type d'iterateur
-
-	/**
-	 * @var array $debug Textes qui seront insérés dans l’entête de boucle du mode debug
-	 */
-	public array $debug = [];
-
-	/**
-	 * Index de la boucle dont le champ présent dans cette boucle est originaire,
-	 * notamment si le champ a été trouve dans une boucle parente
-	 *
-	 * Tableau nom du champ => index de boucle
-	*/
-	public array $index_champ = [];
-
-	/** Résultat de la compilation (?) (sert au débusqueur) */
-	public string $code = '';
-
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
-
-	// obsoletes, conserves provisoirement pour compatibilite
-	public $tout = false;
-	public $plat = false;
-	public $lien = false;
+    /** Type de noeud */
+    public string $type = 'boucle';
+
+    /** Identifiant de la boucle */
+    public string $id_boucle;
+
+    /** Identifiant de la boucle parente */
+    public string $id_parent = '';
+
+    /** Un nom explicite qui peut être affecté manuellement à certaines boucles générées */
+    public string $nom = '';
+
+    /**
+     * Partie avant toujours affichee
+     *
+     * @var string|array
+     */
+    public $preaff = '';
+
+    /**
+     * Partie optionnelle avant
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Pour chaque élément
+     *
+     * @var string|array
+     */
+    public $milieu = '';
+
+    /**
+     * Partie optionnelle après
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /**
+     * Partie alternative, si pas de résultat dans la boucle
+     *
+     * @var string|array
+     */
+    public $altern = '';
+
+    /**
+     * Partie apres toujours affichee
+     *
+     * @var string|array
+     */
+    public $postaff = '';
+
+
+    /**
+     * La boucle doit-elle sélectionner la langue ?
+     *
+     * Valeurs : '', 'oui', 'non'
+     */
+    public string $lang_select = '';
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     *
+     * FIXME: un seul typage (string ?)
+     *
+     * @var string|false|null
+     */
+    public $type_requete = null;
+
+    /**
+     * La table est elle optionnelle ?
+     *
+     * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
+     */
+    public bool $table_optionnelle = false;
+
+    /**
+     * Nom du fichier de connexion
+     */
+    public string $sql_serveur = '';
+
+    /**
+     * Paramètres de la boucle
+     *
+     * Description des paramètres passés à la boucle, qui servent ensuite
+     * au calcul des critères
+     *
+     * FIXME: type unique.
+     * @var false|array
+     *     - false: erreur de syntaxe
+     */
+    public $param = [];
+
+    /**
+     * Critères de la boucle
+     *
+     * FIXME: type array unique.
+     *
+     * @var string|Critere[]
+     * - string: phrasage (code brut). Il reste si erreur de critère
+     * - array: analyse correcte des critères...
+     */
+    public $criteres = [];
+
+    /**
+     * Textes insérés entre 2 éléments de boucle (critère inter)
+     *
+     * @var string[]
+     */
+    public array $separateur = [];
+
+    /**
+     * Liste des jointures possibles avec cette table
+     *
+     * Les jointures par défaut de la table sont complétées en priorité
+     * des jointures déclarées explicitement sur la boucle
+     *
+     * @see base_trouver_table_dist()
+     */
+    public array $jointures = [];
+
+    /**
+     * Jointures explicites avec cette table
+     *
+     * Ces jointures sont utilisées en priorité par rapport aux jointures
+     * normales possibles pour retrouver les colonnes demandées extérieures
+     * à la boucle.
+     *
+     * @var string|bool
+     */
+    public $jointures_explicites = false;
+
+    /**
+     * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
+     */
+    public string $doublons = '';
+
+    /**
+     * Code PHP ajouté au début de chaque itération de boucle.
+     *
+     * Utilisé entre autre par les critères {pagination}, {n-a,b}, {a/b}...
+     */
+    public string $partie = '';
+
+    /**
+     * Nombre de divisions de la boucle, d'éléments à afficher,
+     * ou de soustractions d'éléments à faire
+     *
+     * Dans les critères limitant le nombre d'éléments affichés
+     * {a,b}, {a,n-b}, {a/b}, {pagination b}, b est affecté à total_parties.
+     */
+    public string $total_parties = '';
+
+    /**
+     * Code PHP ajouté avant l'itération de boucle.
+     *
+     * Utilisé entre autre par les critères {pagination}, {a,b}, {a/b}
+     * pour initialiser les variables de début et de fin d'itération.
+     */
+    public string $mode_partie = '';
+
+    /**
+     * Identifiant d'une boucle qui appelle celle-ci de manière récursive
+     *
+     * Si une boucle est appelée de manière récursive quelque part par
+     * une autre boucle comme <BOUCLE_rec(boucle_identifiant) />, cette
+     * boucle (identifiant) reçoit dans cette propriété l'identifiant
+     * de l'appelant (rec)
+     */
+    public string $externe = '';
+
+    // champs pour la construction de la requete SQL
+
+    /**
+     * Liste des champs à récupérer par la boucle
+     *
+     * Expression 'table.nom_champ' ou calculée 'nom_champ AS x'
+     *
+     * @var string[]
+     */
+    public array $select = [];
+
+    /**
+     * Liste des alias / tables SQL utilisées dans la boucle
+     *
+     * L'index est un identifiant (xx dans spip_xx assez souvent) qui servira
+     * d'alias au nom de la table ; la valeur est le nom de la table SQL désirée.
+     *
+     * L'index 0 peut définir le type de sources de données de l'itérateur DATA
+     *
+     * @var string[]
+     */
+    public array $from = [];
+
+    /**
+     * Liste des alias / type de jointures utilisées dans la boucle
+     *
+     * L'index est le nom d'alias (comme pour la propriété $from), et la valeur
+     * un type de jointure parmi 'INNER', 'LEFT', 'RIGHT', 'OUTER'.
+     *
+     * Lorsque le type n'est pas déclaré pour un alias, c'est 'INNER'
+     * qui sera utilisé par défaut (créant donc un INNER JOIN).
+     *
+     * @var string[]
+     */
+    public array $from_type = [];
+
+    /**
+     * Liste des conditions WHERE de la boucle
+     *
+     * Permet de restreindre les éléments retournés par une boucle
+     * en fonctions des conditions transmises dans ce tableau.
+     *
+     * Ce tableau peut avoir plusieurs niveaux de profondeur.
+     *
+     * Les éléments du premier niveau sont reliés par des AND, donc
+     * chaque élément ajouté directement au where par
+     * $boucle->where[] = array(...) ou $boucle->where[] = "'expression'"
+     * est une condition AND en plus.
+     *
+     * Par contre, lorsqu'on indique un tableau, il peut décrire des relations
+     * internes différentes. Soit $expr un tableau d'expressions quelconques de 3 valeurs :
+     * $expr = array(operateur, val1, val2)
+     *
+     * Ces 3 valeurs sont des expressions PHP. L'index 0 désigne l'opérateur
+     * à réaliser tel que :
+     *
+     * - "'='" , "'>='", "'<'", "'IN'", "'REGEXP'", "'LIKE'", ... :
+     *    val1 et val2 sont des champs et valeurs à utiliser dans la comparaison
+     *    suivant cet ordre : "val1 operateur val2".
+     *    Exemple : $boucle->where[] = array("'='", "'articles.statut'", "'\"publie\"'");
+     * - "'AND'", "'OR'", "'NOT'" :
+     *    dans ce cas val1 et val2 sont également des expressions
+     *    de comparaison complètes, et peuvent être eux-même des tableaux comme $expr
+     *    Exemples :
+     *    $boucle->where[] = array("'OR'", $expr1, $expr2);
+     *    $boucle->where[] = array("'NOT'", $expr); // val2 n'existe pas avec NOT
+     *
+     * D'autres noms sont possibles pour l'opérateur (le nombre de valeurs diffère) :
+     * - "'SELF'", "'SUBSELECT'" : indiquent des sous requêtes
+     * - "'?'" : indique une condition à faire évaluer (val1 ? val2 : val3)
+     */
+    public array $where = [];
+
+    public array $join = [];
+    public array $having = [];
+    public $limit = '';
+    public array $group = [];
+    public array $order = [];
+    public array $default_order = [];
+    public string $date = 'date';
+    public string $hash = '';
+    public $in = '';
+    public bool $sous_requete = false;
+
+    /**
+     * Code PHP qui sera ajouté en tout début de la fonction de boucle
+     *
+     * Il sert à insérer le code calculant une hierarchie
+     */
+    public string $hierarchie = '';
+
+    // champs pour la construction du corps PHP
+
+    /**
+     * Description des sources de données de la boucle
+     *
+     * Description des données de la boucle issu de trouver_table
+     * dans le cadre de l'itérateur SQL et contenant au moins l'index 'field'.
+     *
+     * @see base_trouver_table_dist()
+     */
+    public array $show = [];
+
+    /**
+     * Nom de la table SQL principale de la boucle, sans son préfixe
+     */
+    public string $id_table = '';
+
+    /**
+     * Nom de la clé primaire de la table SQL principale de la boucle
+     */
+    public string $primary = '';
+
+    /**
+     * Code PHP compilé de la boucle
+     *
+     * FIXME: un seul type (string ?)
+     *
+     * - false: boucle fautive ?
+     *
+     * @var string|false
+     */
+    public $return = '';
+
+    public $numrows = false;
+    public $cptrows = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
+
+
+    /**
+     * table pour stocker les modificateurs de boucle tels que tout, plat ...,
+     * utilisable par les plugins egalement
+     *
+     * @var array<string, mixed>
+     */
+    public array $modificateur = [];
+
+    /**
+     * Type d'itérateur utilisé pour cette boucle
+     *
+     * - 'SQL' dans le cadre d'une boucle sur une table SQL
+     * - 'DATA' pour l'itérateur DATA, ...
+     *
+     * @var string
+     */
+    public string $iterateur = ''; // type d'iterateur
+
+    /**
+     * @var array $debug Textes qui seront insérés dans l’entête de boucle du mode debug
+     */
+    public array $debug = [];
+
+    /**
+     * Index de la boucle dont le champ présent dans cette boucle est originaire,
+     * notamment si le champ a été trouve dans une boucle parente
+     *
+     * Tableau nom du champ => index de boucle
+     */
+    public array $index_champ = [];
+
+    /** Résultat de la compilation (?) (sert au débusqueur) */
+    public string $code = '';
+
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
+
+    // obsoletes, conserves provisoirement pour compatibilite
+    public $tout = false;
+    public $plat = false;
+    public $lien = false;
 }

ecrire/src/Compilateur/Noeud/Inclure.php

Indentation +52 added lines, -52 removed lines

@@ -7,63 +7,63 @@
  **/
 class Inclure
 {
-	/** Type de noeud */
-	public string $type = 'include';
+    /** Type de noeud */
+    public string $type = 'include';
 
-	/**
-	 * Nom d'un fichier inclu
-	 *
-	 * - Objet Texte si inclusion d'un autre squelette
-	 * - chaîne si inclusion d'un fichier PHP directement
-	 *
-	 * @var string|Texte
-	 */
-	public $texte;
+    /**
+     * Nom d'un fichier inclu
+     *
+     * - Objet Texte si inclusion d'un autre squelette
+     * - chaîne si inclusion d'un fichier PHP directement
+     *
+     * @var string|Texte
+     */
+    public $texte;
 
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $avant = '';
 
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $apres = '';
 
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 
-	/**
-	 * Valeurs des paramètres
-	 *
-	 * FIXME: type unique.
-	 * @var false|array
-	 *     - false: erreur de syntaxe
-	 */
-	public $param = [];
+    /**
+     * Valeurs des paramètres
+     *
+     * FIXME: type unique.
+     * @var false|array
+     *     - false: erreur de syntaxe
+     */
+    public $param = [];
 
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
 
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
 }

ecrire/src/Compilateur/Noeud/Texte.php

Indentation +22 added lines, -22 removed lines

@@ -7,30 +7,30 @@
  **/
 class Texte
 {
-	/** Type de noeud */
-	public string $type = 'texte';
+    /** Type de noeud */
+    public string $type = 'texte';
 
-	/** Le texte */
-	public string $texte;
+    /** Le texte */
+    public string $texte;
 
-	/**
-	 * Contenu avant le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
+    /**
+     * Contenu avant le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     *
+     * @var string|array
+     */
+    public $avant = '';
 
-	/**
-	 * Contenu après le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
+    /**
+     * Contenu après le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     *
+     * @var string|array
+     */
+    public $apres = '';
 
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }

ecrire/src/Compilateur/Noeud/Critere.php

Indentation +28 added lines, -28 removed lines

@@ -8,32 +8,32 @@
  * Sous-noeud de Boucle
  **/
 class Critere {
-	/** Type de noeud */
-	public string $type = 'critere';
-
-	/** Opérateur (>, <, >=, IN, ...) */
-	public ?string $op;
-
-	/** Présence d'une négation (truc !op valeur) */
-	public bool $not = false;
-
-	/** Présence d'une exclusion (!truc op valeur) */
-	public string $exclus = '';
-
-	/** Présence d'une condition dans le critère (truc ?) */
-	public bool $cond = false;
-
-	/**
-	 * Paramètres du critère
-	 * - $param[0] : élément avant l'opérateur
-	 * - $param[1..n] : éléments après l'opérateur
-	 *
-	 * FIXME: type unique.
-	 * @var false|array
-	 *     - false: erreur de syntaxe
-	 */
-	public $param = [];
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Type de noeud */
+    public string $type = 'critere';
+
+    /** Opérateur (>, <, >=, IN, ...) */
+    public ?string $op;
+
+    /** Présence d'une négation (truc !op valeur) */
+    public bool $not = false;
+
+    /** Présence d'une exclusion (!truc op valeur) */
+    public string $exclus = '';
+
+    /** Présence d'une condition dans le critère (truc ?) */
+    public bool $cond = false;
+
+    /**
+     * Paramètres du critère
+     * - $param[0] : élément avant l'opérateur
+     * - $param[1..n] : éléments après l'opérateur
+     *
+     * FIXME: type unique.
+     * @var false|array
+     *     - false: erreur de syntaxe
+     */
+    public $param = [];
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }

ecrire/src/Compilateur/Noeud/Champ.php

Indentation +98 added lines, -98 removed lines

@@ -7,102 +7,102 @@
  */
 class Champ
 {
-	/** Type de noeud */
-	public string $type = 'champ';
-
-	/** Nom du champ demandé. Exemple 'ID_ARTICLE' */
-	public ?string $nom_champ;
-
-	/** Identifiant de la boucle parente si explicité */
-	public ?string $nom_boucle = '';
-
-	/**
-	 * Partie optionnelle avant
-	 *
-	 * @var null|string|array
-	 */
-	public $avant;
-
-	/**
-	 * Partie optionnelle après
-	 *
-	 * @var null|string|array
-	 */
-	public $apres;
-
-	/**
-	 * Étoiles : annuler des automatismes
-	 *
-	 * - '*' annule les filtres automatiques
-	 * - '**' annule en plus les protections de scripts
-	 */
-	public ?string $etoile;
-
-	/**
-	 * Arguments et filtres explicites sur la balise
-	 *
-	 * - $param[0] contient les arguments de la balise
-	 * - $param[1..n] contient les filtres à appliquer à la balise
-	 *
-	 * FIXME: type unique.
-	 * @var false|array
-	 *     - false: erreur de syntaxe
-	 */
-	public $param = [];
-
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
-
-	/**
-	 * Identifiant de la boucle
-	 *
-	 * @var string
-	 */
-	public $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 *
-	 * @var Boucle[]
-	 */
-	public array $boucles;
-
-	/** Alias de table d'application de la requête ou nom complet de la table SQL */
-	public ?string $type_requete;
-
-	/** Résultat de la compilation: toujours une expression PHP */
-	public string $code = '';
-
-	/**
-	 * Interdire les scripts
-	 *
-	 * false si on est sûr de cette balise
-	 *
-	 * @see interdire_scripts()
-	 */
-	public bool $interdire_scripts = true;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
-
-	/** Numéro de ligne dans le code source du squelette*/
-	public int $ligne = 0;
-
-	/** Drapeau pour reperer les balises calculées par une fonction explicite */
-	public bool $balise_calculee = false;
+    /** Type de noeud */
+    public string $type = 'champ';
+
+    /** Nom du champ demandé. Exemple 'ID_ARTICLE' */
+    public ?string $nom_champ;
+
+    /** Identifiant de la boucle parente si explicité */
+    public ?string $nom_boucle = '';
+
+    /**
+     * Partie optionnelle avant
+     *
+     * @var null|string|array
+     */
+    public $avant;
+
+    /**
+     * Partie optionnelle après
+     *
+     * @var null|string|array
+     */
+    public $apres;
+
+    /**
+     * Étoiles : annuler des automatismes
+     *
+     * - '*' annule les filtres automatiques
+     * - '**' annule en plus les protections de scripts
+     */
+    public ?string $etoile;
+
+    /**
+     * Arguments et filtres explicites sur la balise
+     *
+     * - $param[0] contient les arguments de la balise
+     * - $param[1..n] contient les filtres à appliquer à la balise
+     *
+     * FIXME: type unique.
+     * @var false|array
+     *     - false: erreur de syntaxe
+     */
+    public $param = [];
+
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
+
+    /**
+     * Identifiant de la boucle
+     *
+     * @var string
+     */
+    public $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     *
+     * @var Boucle[]
+     */
+    public array $boucles;
+
+    /** Alias de table d'application de la requête ou nom complet de la table SQL */
+    public ?string $type_requete;
+
+    /** Résultat de la compilation: toujours une expression PHP */
+    public string $code = '';
+
+    /**
+     * Interdire les scripts
+     *
+     * false si on est sûr de cette balise
+     *
+     * @see interdire_scripts()
+     */
+    public bool $interdire_scripts = true;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
+
+    /** Numéro de ligne dans le code source du squelette*/
+    public int $ligne = 0;
+
+    /** Drapeau pour reperer les balises calculées par une fonction explicite */
+    public bool $balise_calculee = false;
 }

ecrire/src/Compilateur/Noeud/Polyglotte.php

Indentation +10 added lines, -10 removed lines

@@ -9,16 +9,16 @@
  **/
 class Polyglotte
 {
-	/** Type de noeud */
-	public string $type = 'polyglotte';
+    /** Type de noeud */
+    public string $type = 'polyglotte';
 
-	/**
-	 * Tableau des traductions possibles classées par langue
-	 *
-	 * Tableau code de langue => texte
-	 */
-	public array $traductions = [];
+    /**
+     * Tableau des traductions possibles classées par langue
+     *
+     * Tableau code de langue => texte
+     */
+    public array $traductions = [];
 
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }

ecrire/src/Compilateur/Noeud/Contexte.php

Indentation +25 added lines, -25 removed lines

@@ -14,33 +14,33 @@
  */
 class Contexte
 {
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
 
-	/** Identifiant de la boucle */
-	public string $id_boucle = '';
+    /** Identifiant de la boucle */
+    public string $id_boucle = '';
 
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 
-	/** Langue d'exécution */
-	public string $lang = '';
+    /** Langue d'exécution */
+    public string $lang = '';
 
-	/** Résultat de la compilation: toujours une expression PHP */
-	public string $code = '';
+    /** Résultat de la compilation: toujours une expression PHP */
+    public string $code = '';
 }

ecrire/src/Compilateur/Noeud/Idiome.php

Indentation +81 added lines, -81 removed lines

@@ -7,85 +7,85 @@
  **/
 class Idiome
 {
-	/** Type de noeud */
-	public string $type = 'idiome';
-
-	/** Clé de traduction demandée. Exemple 'item_oui' */
-	public string $nom_champ = '';
-
-	/** Module de langue où chercher la clé de traduction. Exemple 'medias' */
-	public string $module = '';
-
-	/** Arguments à passer à la chaîne */
-	public array $arg = [];
-
-	/**
-	 * Filtres à appliquer au résultat
-	 *
-	 *
-	 * * FIXME: type unique.
-	 * @var false|array
-	 *     - false: erreur de syntaxe
-	 */
-	public $param = [];
-
-	/** Source des filtres (compatibilité) (?) */
-	public array $fonctions = [];
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/** Identifiant de la boucle */
-	public string $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 *
-	 * @var Boucle[]
-	 */
-	public array $boucles;
-
-	/** Alias de table d'application de la requête ou nom complet de la table SQL */
-	public ?string $type_requete;
-
-	/** Résultat de la compilation: toujours une expression PHP */
-	public string $code = '';
-
-	/**
-	 * Interdire les scripts
-	 *
-	 * @see interdire_scripts()
-	 */
-	public bool $interdire_scripts = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 */
-	public array $descr = [];
-
-	/** Numéro de ligne dans le code source du squelette */
-	public int $ligne = 0;
+    /** Type de noeud */
+    public string $type = 'idiome';
+
+    /** Clé de traduction demandée. Exemple 'item_oui' */
+    public string $nom_champ = '';
+
+    /** Module de langue où chercher la clé de traduction. Exemple 'medias' */
+    public string $module = '';
+
+    /** Arguments à passer à la chaîne */
+    public array $arg = [];
+
+    /**
+     * Filtres à appliquer au résultat
+     *
+     *
+     * * FIXME: type unique.
+     * @var false|array
+     *     - false: erreur de syntaxe
+     */
+    public $param = [];
+
+    /** Source des filtres (compatibilité) (?) */
+    public array $fonctions = [];
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /** Identifiant de la boucle */
+    public string $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     *
+     * @var Boucle[]
+     */
+    public array $boucles;
+
+    /** Alias de table d'application de la requête ou nom complet de la table SQL */
+    public ?string $type_requete;
+
+    /** Résultat de la compilation: toujours une expression PHP */
+    public string $code = '';
+
+    /**
+     * Interdire les scripts
+     *
+     * @see interdire_scripts()
+     */
+    public bool $interdire_scripts = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     */
+    public array $descr = [];
+
+    /** Numéro de ligne dans le code source du squelette */
+    public int $ligne = 0;
 }