spip / SPIP

ecrire/action/tester.php

Indentation +152 added lines, -152 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -30,155 +30,155 @@ 
  * redirige sur l'image ainsi créée (sinon sur une image d'echec).
  **/
 function action_tester_dist() {
-	$arg = _request('arg');
-
-	$gd_formats = [];
-	$gd_formats_read_gif = '';
-	// verifier les formats acceptes par GD
-	if ($arg == 'gd1') {
-		// Si GD est installe et php >= 4.0.2
-		if (function_exists('imagetypes')) {
-			if (imagetypes() & IMG_GIF) {
-				$gd_formats[] = 'gif';
-			} else {
-				# Attention GD sait lire le gif mais pas forcement l'ecrire
-				if (function_exists('ImageCreateFromGIF')) {
-					$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . 'test.gif');
-					if ($srcImage) {
-						$gd_formats_read_gif = ',gif';
-						ImageDestroy($srcImage);
-					}
-				}
-			}
-
-			if (imagetypes() & IMG_JPG) {
-				$gd_formats[] = 'jpg';
-			}
-			if (imagetypes() & IMG_PNG) {
-				$gd_formats[] = 'png';
-			}
-			if (imagetypes() & IMG_WEBP) {
-				$gd_formats[] = 'webp';
-			}
-		} else {
-			# ancienne methode de detection des formats, qui en plus
-			# est bugguee car elle teste les formats en lecture
-			# alors que la valeur deduite sert a identifier
-			# les formats disponibles en ecriture... (cf. inc_logos)
-
-			if (function_exists('ImageCreateFromJPEG')) {
-				$srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK . 'test.jpg');
-				if ($srcImage) {
-					$gd_formats[] = 'jpg';
-					ImageDestroy($srcImage);
-				}
-			}
-			if (function_exists('ImageCreateFromGIF')) {
-				$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . 'test.gif');
-				if ($srcImage) {
-					$gd_formats[] = 'gif';
-					ImageDestroy($srcImage);
-				}
-			}
-			if (function_exists('ImageCreateFromPNG')) {
-				$srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK . 'test.png');
-				if ($srcImage) {
-					$gd_formats[] = 'png';
-					ImageDestroy($srcImage);
-				}
-			}
-			if (function_exists('ImageCreateFromWEBP')) {
-				$srcImage = @ImageCreateFromWEBP(_ROOT_IMG_PACK . 'test.webp');
-				if ($srcImage) {
-					$gd_formats[] = 'webp';
-					ImageDestroy($srcImage);
-				}
-			}
-		}
-
-		if (! empty($gd_formats)) {
-			$gd_formats = join(',', $gd_formats);
-		}
-		ecrire_meta('gd_formats_read', $gd_formats . $gd_formats_read_gif);
-		ecrire_meta('gd_formats', $gd_formats);
-	} // verifier les formats netpbm
-	else {
-		if ($arg == 'netpbm') {
-			if (!defined('_PNMSCALE_COMMAND')) {
-				define('_PNMSCALE_COMMAND', 'pnmscale');
-			} // Securite : mes_options.php peut preciser le chemin absolu
-			if (_PNMSCALE_COMMAND == '') {
-				return;
-			}
-			$netpbm_formats = [];
-
-			$jpegtopnm_command = str_replace(
-				'pnmscale',
-				'jpegtopnm',
-				_PNMSCALE_COMMAND
-			);
-			$pnmtojpeg_command = str_replace(
-				'pnmscale',
-				'pnmtojpeg',
-				_PNMSCALE_COMMAND
-			);
-
-			$vignette = _ROOT_IMG_PACK . 'test.jpg';
-			$dest = _DIR_VAR . 'test-jpg.jpg';
-			$commande = "$jpegtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
-			spip_log($commande);
-			exec($commande);
-			if ($taille = @getimagesize($dest)) {
-				if ($taille[1] == 10) {
-					$netpbm_formats[] = 'jpg';
-				}
-			}
-			$giftopnm_command = str_replace('pnmscale', 'giftopnm', _PNMSCALE_COMMAND);
-			$pnmtojpeg_command = str_replace('pnmscale', 'pnmtojpeg', _PNMSCALE_COMMAND);
-			$vignette = _ROOT_IMG_PACK . 'test.gif';
-			$dest = _DIR_VAR . 'test-gif.jpg';
-			$commande = "$giftopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
-			spip_log($commande);
-			exec($commande);
-			if ($taille = @getimagesize($dest)) {
-				if ($taille[1] == 10) {
-					$netpbm_formats[] = 'gif';
-				}
-			}
-
-			$pngtopnm_command = str_replace('pnmscale', 'pngtopnm', _PNMSCALE_COMMAND);
-			$vignette = _ROOT_IMG_PACK . 'test.png';
-			$dest = _DIR_VAR . 'test-gif.jpg';
-			$commande = "$pngtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
-			spip_log($commande);
-			exec($commande);
-			if ($taille = @getimagesize($dest)) {
-				if ($taille[1] == 10) {
-					$netpbm_formats[] = 'png';
-				}
-			}
-
-			ecrire_meta('netpbm_formats', join(',', $netpbm_formats ?: []));
-		}
-	}
-
-	// et maintenant envoyer la vignette de tests
-	if (in_array($arg, ['gd1', 'gd2', 'imagick', 'convert', 'netpbm'])) {
-		include_spip('inc/filtres');
-		include_spip('inc/filtres_images_mini');
-		$taille_preview = 150;
-		$image = _image_valeurs_trans(_DIR_IMG_PACK . 'test_image.jpg', "reduire-$taille_preview-$taille_preview", 'jpg');
-
-		$image['fichier_dest'] = _DIR_VAR . "test_$arg";
-
-		if (
-			$preview = _image_creer_vignette($image, $taille_preview, $taille_preview, $arg, true)
-			and ($preview['width'] * $preview['height'] > 0)
-		) {
-			redirige_par_entete($preview['fichier']);
-		}
-	}
-
-	# image echec
-	redirige_par_entete(chemin_image('echec-reducteur-xx.svg'));
+    $arg = _request('arg');
+
+    $gd_formats = [];
+    $gd_formats_read_gif = '';
+    // verifier les formats acceptes par GD
+    if ($arg == 'gd1') {
+        // Si GD est installe et php >= 4.0.2
+        if (function_exists('imagetypes')) {
+            if (imagetypes() & IMG_GIF) {
+                $gd_formats[] = 'gif';
+            } else {
+                # Attention GD sait lire le gif mais pas forcement l'ecrire
+                if (function_exists('ImageCreateFromGIF')) {
+                    $srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . 'test.gif');
+                    if ($srcImage) {
+                        $gd_formats_read_gif = ',gif';
+                        ImageDestroy($srcImage);
+                    }
+                }
+            }
+
+            if (imagetypes() & IMG_JPG) {
+                $gd_formats[] = 'jpg';
+            }
+            if (imagetypes() & IMG_PNG) {
+                $gd_formats[] = 'png';
+            }
+            if (imagetypes() & IMG_WEBP) {
+                $gd_formats[] = 'webp';
+            }
+        } else {
+            # ancienne methode de detection des formats, qui en plus
+            # est bugguee car elle teste les formats en lecture
+            # alors que la valeur deduite sert a identifier
+            # les formats disponibles en ecriture... (cf. inc_logos)
+
+            if (function_exists('ImageCreateFromJPEG')) {
+                $srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK . 'test.jpg');
+                if ($srcImage) {
+                    $gd_formats[] = 'jpg';
+                    ImageDestroy($srcImage);
+                }
+            }
+            if (function_exists('ImageCreateFromGIF')) {
+                $srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . 'test.gif');
+                if ($srcImage) {
+                    $gd_formats[] = 'gif';
+                    ImageDestroy($srcImage);
+                }
+            }
+            if (function_exists('ImageCreateFromPNG')) {
+                $srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK . 'test.png');
+                if ($srcImage) {
+                    $gd_formats[] = 'png';
+                    ImageDestroy($srcImage);
+                }
+            }
+            if (function_exists('ImageCreateFromWEBP')) {
+                $srcImage = @ImageCreateFromWEBP(_ROOT_IMG_PACK . 'test.webp');
+                if ($srcImage) {
+                    $gd_formats[] = 'webp';
+                    ImageDestroy($srcImage);
+                }
+            }
+        }
+
+        if (! empty($gd_formats)) {
+            $gd_formats = join(',', $gd_formats);
+        }
+        ecrire_meta('gd_formats_read', $gd_formats . $gd_formats_read_gif);
+        ecrire_meta('gd_formats', $gd_formats);
+    } // verifier les formats netpbm
+    else {
+        if ($arg == 'netpbm') {
+            if (!defined('_PNMSCALE_COMMAND')) {
+                define('_PNMSCALE_COMMAND', 'pnmscale');
+            } // Securite : mes_options.php peut preciser le chemin absolu
+            if (_PNMSCALE_COMMAND == '') {
+                return;
+            }
+            $netpbm_formats = [];
+
+            $jpegtopnm_command = str_replace(
+                'pnmscale',
+                'jpegtopnm',
+                _PNMSCALE_COMMAND
+            );
+            $pnmtojpeg_command = str_replace(
+                'pnmscale',
+                'pnmtojpeg',
+                _PNMSCALE_COMMAND
+            );
+
+            $vignette = _ROOT_IMG_PACK . 'test.jpg';
+            $dest = _DIR_VAR . 'test-jpg.jpg';
+            $commande = "$jpegtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+            spip_log($commande);
+            exec($commande);
+            if ($taille = @getimagesize($dest)) {
+                if ($taille[1] == 10) {
+                    $netpbm_formats[] = 'jpg';
+                }
+            }
+            $giftopnm_command = str_replace('pnmscale', 'giftopnm', _PNMSCALE_COMMAND);
+            $pnmtojpeg_command = str_replace('pnmscale', 'pnmtojpeg', _PNMSCALE_COMMAND);
+            $vignette = _ROOT_IMG_PACK . 'test.gif';
+            $dest = _DIR_VAR . 'test-gif.jpg';
+            $commande = "$giftopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+            spip_log($commande);
+            exec($commande);
+            if ($taille = @getimagesize($dest)) {
+                if ($taille[1] == 10) {
+                    $netpbm_formats[] = 'gif';
+                }
+            }
+
+            $pngtopnm_command = str_replace('pnmscale', 'pngtopnm', _PNMSCALE_COMMAND);
+            $vignette = _ROOT_IMG_PACK . 'test.png';
+            $dest = _DIR_VAR . 'test-gif.jpg';
+            $commande = "$pngtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+            spip_log($commande);
+            exec($commande);
+            if ($taille = @getimagesize($dest)) {
+                if ($taille[1] == 10) {
+                    $netpbm_formats[] = 'png';
+                }
+            }
+
+            ecrire_meta('netpbm_formats', join(',', $netpbm_formats ?: []));
+        }
+    }
+
+    // et maintenant envoyer la vignette de tests
+    if (in_array($arg, ['gd1', 'gd2', 'imagick', 'convert', 'netpbm'])) {
+        include_spip('inc/filtres');
+        include_spip('inc/filtres_images_mini');
+        $taille_preview = 150;
+        $image = _image_valeurs_trans(_DIR_IMG_PACK . 'test_image.jpg', "reduire-$taille_preview-$taille_preview", 'jpg');
+
+        $image['fichier_dest'] = _DIR_VAR . "test_$arg";
+
+        if (
+            $preview = _image_creer_vignette($image, $taille_preview, $taille_preview, $arg, true)
+            and ($preview['width'] * $preview['height'] > 0)
+        ) {
+            redirige_par_entete($preview['fichier']);
+        }
+    }
+
+    # image echec
+    redirige_par_entete(chemin_image('echec-reducteur-xx.svg'));
 }

ecrire/action/desinstaller_plugin.php

Indentation +25 added lines, -25 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -32,28 +32,28 @@ 
  */
 function action_desinstaller_plugin_dist() {
 
-	$securiser_action = charger_fonction('securiser_action', 'inc');
-	$arg = $securiser_action();
-	[$dir_plugins, $plugin] = explode('::', $arg);
-	$dir_type = '_DIR_PLUGINS';
-	if (defined('_DIR_PLUGINS_SUPPL') and $dir_plugins == _DIR_PLUGINS_SUPPL) {
-		$dir_type = '_DIR_PLUGINS_SUPPL';
-	}
-	$installer_plugins = charger_fonction('installer', 'plugins');
-	$infos = $installer_plugins($plugin, 'uninstall', $dir_type);
-	if ($infos and !$infos['install_test'][0]) {
-		include_spip('inc/plugin');
-		ecrire_plugin_actifs([$plugin], false, 'enleve');
-		$erreur = '';
-	} else {
-		$erreur = 'erreur_plugin_desinstalation_echouee';
-	}
-	if ($redirect = _request('redirect')) {
-		include_spip('inc/headers');
-		if ($erreur) {
-			$redirect = parametre_url($redirect, 'erreur', $erreur);
-		}
-		$redirect = str_replace('&', '&', $redirect);
-		redirige_par_entete($redirect);
-	}
+    $securiser_action = charger_fonction('securiser_action', 'inc');
+    $arg = $securiser_action();
+    [$dir_plugins, $plugin] = explode('::', $arg);
+    $dir_type = '_DIR_PLUGINS';
+    if (defined('_DIR_PLUGINS_SUPPL') and $dir_plugins == _DIR_PLUGINS_SUPPL) {
+        $dir_type = '_DIR_PLUGINS_SUPPL';
+    }
+    $installer_plugins = charger_fonction('installer', 'plugins');
+    $infos = $installer_plugins($plugin, 'uninstall', $dir_type);
+    if ($infos and !$infos['install_test'][0]) {
+        include_spip('inc/plugin');
+        ecrire_plugin_actifs([$plugin], false, 'enleve');
+        $erreur = '';
+    } else {
+        $erreur = 'erreur_plugin_desinstalation_echouee';
+    }
+    if ($redirect = _request('redirect')) {
+        include_spip('inc/headers');
+        if ($erreur) {
+            $redirect = parametre_url($redirect, 'erreur', $erreur);
+        }
+        $redirect = str_replace('&', '&', $redirect);
+        redirige_par_entete($redirect);
+    }
 }

ecrire/balise/logo_.php

Indentation +95 added lines, -95 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -54,84 +54,84 @@ 
  */
 function balise_LOGO__dist($p) {
 
-	preg_match(',^LOGO_([A-Z_]+?)(|_NORMAL|_SURVOL|_RUBRIQUE)$,i', $p->nom_champ, $regs);
-	$type = strtolower($regs[1]);
-	$suite_logo = $regs[2];
-
-	// cas de #LOGO_SITE_SPIP
-	if ($type == 'site_spip') {
-		$type = 'site';
-		$_id_objet = "\"'0'\"";
-	}
-
-	$id_objet = id_table_objet($type);
-	if (!isset($_id_objet)) {
-		$_id_objet = champ_sql($id_objet, $p);
-	}
-
-	$fichier = ($p->etoile === '**') ? -1 : 0;
-	$coord = [];
-	$align = $lien = '';
-	$mode_logo = '';
-
-	if ($p->param and !$p->param[0][0]) {
-		$params = $p->param[0];
-		array_shift($params);
-		foreach ($params as $a) {
-			if ($a[0]->type === 'texte') {
-				$n = $a[0]->texte;
-				if (is_numeric($n)) {
-					$coord[] = $n;
-				} elseif (in_array($n, ['top', 'left', 'right', 'center', 'bottom'])) {
-					$align = $n;
-				} elseif (in_array($n, ['auto', 'icone', 'apercu', 'vignette'])) {
-					$mode_logo = $n;
-				}
-			} else {
-				$lien = calculer_liste($a, $p->descr, $p->boucles, $p->id_boucle);
-			}
-		}
-	}
-
-	$coord_x = !$coord ? 0 : intval(array_shift($coord));
-	$coord_y = !$coord ? 0 : intval(array_shift($coord));
-
-	if ($p->etoile === '*') {
-		include_spip('balise/url_');
-		$lien = generer_generer_url_arg($type, $p, $_id_objet);
-	}
-
-	$connect = $p->id_boucle ? $p->boucles[$p->id_boucle]->sql_serveur : '';
-	if ($type == 'document') {
-		$qconnect = _q($connect);
-		$doc = "quete_document($_id_objet, $qconnect)";
-		if ($fichier) {
-			$code = "quete_logo_file($doc, $qconnect)";
-		} else {
-			$code = "quete_logo_document($doc, " . ($lien ?: "''") . ", '$align', '$mode_logo', $coord_x, $coord_y, $qconnect)";
-		}
-		// (x=non-faux ? y : '') pour affecter x en retournant y
-		if ($p->descr['documents']) {
-			$code = '(($doublons["documents"] .= ",". '
-				. $_id_objet
-				. ") ? $code : '')";
-		}
-	} elseif ($connect) {
-		$code = "''";
-		spip_log('Les logos distants ne sont pas prevus');
-	} else {
-		$code = logo_survol($id_objet, $_id_objet, $type, $align, $fichier, $lien, $p, $suite_logo);
-	}
-
-	// demande de reduction sur logo avec ecriture spip 2.1 : #LOGO_xxx{200, 0}
-	if ($coord_x or $coord_y) {
-		$code = "filtrer('image_graver',filtrer('image_reduire'," . $code . ", '$coord_x', '$coord_y'))";
-	}
-
-	$p->code = $code;
-	$p->interdire_scripts = false;
-
-	return $p;
+    preg_match(',^LOGO_([A-Z_]+?)(|_NORMAL|_SURVOL|_RUBRIQUE)$,i', $p->nom_champ, $regs);
+    $type = strtolower($regs[1]);
+    $suite_logo = $regs[2];
+
+    // cas de #LOGO_SITE_SPIP
+    if ($type == 'site_spip') {
+        $type = 'site';
+        $_id_objet = "\"'0'\"";
+    }
+
+    $id_objet = id_table_objet($type);
+    if (!isset($_id_objet)) {
+        $_id_objet = champ_sql($id_objet, $p);
+    }
+
+    $fichier = ($p->etoile === '**') ? -1 : 0;
+    $coord = [];
+    $align = $lien = '';
+    $mode_logo = '';
+
+    if ($p->param and !$p->param[0][0]) {
+        $params = $p->param[0];
+        array_shift($params);
+        foreach ($params as $a) {
+            if ($a[0]->type === 'texte') {
+                $n = $a[0]->texte;
+                if (is_numeric($n)) {
+                    $coord[] = $n;
+                } elseif (in_array($n, ['top', 'left', 'right', 'center', 'bottom'])) {
+                    $align = $n;
+                } elseif (in_array($n, ['auto', 'icone', 'apercu', 'vignette'])) {
+                    $mode_logo = $n;
+                }
+            } else {
+                $lien = calculer_liste($a, $p->descr, $p->boucles, $p->id_boucle);
+            }
+        }
+    }
+
+    $coord_x = !$coord ? 0 : intval(array_shift($coord));
+    $coord_y = !$coord ? 0 : intval(array_shift($coord));
+
+    if ($p->etoile === '*') {
+        include_spip('balise/url_');
+        $lien = generer_generer_url_arg($type, $p, $_id_objet);
+    }
+
+    $connect = $p->id_boucle ? $p->boucles[$p->id_boucle]->sql_serveur : '';
+    if ($type == 'document') {
+        $qconnect = _q($connect);
+        $doc = "quete_document($_id_objet, $qconnect)";
+        if ($fichier) {
+            $code = "quete_logo_file($doc, $qconnect)";
+        } else {
+            $code = "quete_logo_document($doc, " . ($lien ?: "''") . ", '$align', '$mode_logo', $coord_x, $coord_y, $qconnect)";
+        }
+        // (x=non-faux ? y : '') pour affecter x en retournant y
+        if ($p->descr['documents']) {
+            $code = '(($doublons["documents"] .= ",". '
+                . $_id_objet
+                . ") ? $code : '')";
+        }
+    } elseif ($connect) {
+        $code = "''";
+        spip_log('Les logos distants ne sont pas prevus');
+    } else {
+        $code = logo_survol($id_objet, $_id_objet, $type, $align, $fichier, $lien, $p, $suite_logo);
+    }
+
+    // demande de reduction sur logo avec ecriture spip 2.1 : #LOGO_xxx{200, 0}
+    if ($coord_x or $coord_y) {
+        $code = "filtrer('image_graver',filtrer('image_reduire'," . $code . ", '$coord_x', '$coord_y'))";
+    }
+
+    $p->code = $code;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 /**
@@ -158,20 +158,20 @@ 
  *     Code compilé retournant le chemin du logo ou le code HTML du logo.
  **/
 function logo_survol($id_objet, $_id_objet, $type, $align, $fichier, $_lien, $p, $suite) {
-	$code = "quete_logo('$id_objet', '" .
-		(($suite == '_SURVOL') ? 'off' :
-			(($suite == '_NORMAL') ? 'on' : 'ON')) .
-		"', $_id_objet," .
-		(($suite == '_RUBRIQUE') ?
-			champ_sql('id_rubrique', $p) :
-			(($type == 'rubrique') ? "quete_parent($_id_objet)" : "''")) .
-		', ' . intval($fichier) . ')';
-
-	if ($fichier) {
-		return $code;
-	}
-
-	$align = preg_replace(',\W,', '', $align);
-
-	return "quete_html_logo($code, '$align', " . ($_lien ?: "''") . ')';
+    $code = "quete_logo('$id_objet', '" .
+        (($suite == '_SURVOL') ? 'off' :
+            (($suite == '_NORMAL') ? 'on' : 'ON')) .
+        "', $_id_objet," .
+        (($suite == '_RUBRIQUE') ?
+            champ_sql('id_rubrique', $p) :
+            (($type == 'rubrique') ? "quete_parent($_id_objet)" : "''")) .
+        ', ' . intval($fichier) . ')';
+
+    if ($fichier) {
+        return $code;
+    }
+
+    $align = preg_replace(',\W,', '', $align);
+
+    return "quete_html_logo($code, '$align', " . ($_lien ?: "''") . ')';
 }

ecrire/balise/url_logout.php

Indentation +8 added lines, -8 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -36,7 +36,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_URL_LOGOUT($p) {
-	return calculer_balise_dynamique($p, 'URL_LOGOUT', []);
+    return calculer_balise_dynamique($p, 'URL_LOGOUT', []);
 }
 
 
@@ -52,9 +52,9 @@ 
  *   Liste (url) des arguments collectés.
  */
 function balise_URL_LOGOUT_stat($args, $context_compil) {
-	$url = $args[0] ?? '';
+    $url = $args[0] ?? '';
 
-	return [$url];
+    return [$url];
 }
 
 /**
@@ -69,9 +69,9 @@ 
  **/
 function balise_URL_LOGOUT_dyn($cible) {
 
-	if (empty($GLOBALS['visiteur_session']['login']) and empty($GLOBALS['visiteur_session']['statut'])) {
-		return '';
-	}
+    if (empty($GLOBALS['visiteur_session']['login']) and empty($GLOBALS['visiteur_session']['statut'])) {
+        return '';
+    }
 
-	return generer_url_action('logout', 'logout=public&url=' . rawurlencode($cible ?: self('&')));
+    return generer_url_action('logout', 'logout=public&url=' . rawurlencode($cible ?: self('&')));
 }

ecrire/balise/formulaire_inscription.php

Indentation +6 added lines, -6 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/abstract_sql');
@@ -43,7 +43,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_FORMULAIRE_INSCRIPTION($p) {
-	return calculer_balise_dynamique($p, 'FORMULAIRE_INSCRIPTION', []);
+    return calculer_balise_dynamique($p, 'FORMULAIRE_INSCRIPTION', []);
 }
 
 /**
@@ -72,9 +72,9 @@ 
  *   - chaîne vide sinon.
  */
 function balise_FORMULAIRE_INSCRIPTION_stat($args, $context_compil) {
-	[$mode, $id, $retour] = array_pad($args, 3, null);
-	include_spip('action/inscrire_auteur');
-	$mode = tester_statut_inscription($mode, $id ?? 0);
+    [$mode, $id, $retour] = array_pad($args, 3, null);
+    include_spip('action/inscrire_auteur');
+    $mode = tester_statut_inscription($mode, $id ?? 0);
 
-	return $mode ? [$mode, $id, $retour] : '';
+    return $mode ? [$mode, $id, $retour] : '';
 }

ecrire/public/jointures.php

Indentation +401 added lines, -401 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -33,11 +33,11 @@ 
  *     Chaine sinon : le nom du champ (non décomposable donc)
  */
 function decompose_champ_id_objet($champ) {
-	if (($champ !== 'id_objet') and preg_match(',^id_([a-z_]+)$,', $champ, $regs)) {
-		return ['id_objet', 'objet', objet_type($champ)];
-	}
+    if (($champ !== 'id_objet') and preg_match(',^id_([a-z_]+)$,', $champ, $regs)) {
+        return ['id_objet', 'objet', objet_type($champ)];
+    }
 
-	return $champ;
+    return $champ;
 }
 
 /**
@@ -56,21 +56,21 @@ 
  *     - array(id_objet, objet), si le champ n'existe pas mais qu'on peut décomposer
  */
 function trouver_champs_decomposes($champ, $desc) {
-	if (
-		!is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
-		or array_key_exists($champ, $desc['field'])
-	) {
-		return [$champ];
-	}
-	// si le champ se décompose, tester que les colonnes décomposées sont présentes
-	if (is_array($decompose = decompose_champ_id_objet($champ))) {
-		array_pop($decompose);
-		if (count(array_intersect($decompose, array_keys($desc['field']))) == count($decompose)) {
-			return $decompose;
-		}
-	}
-
-	return [$champ];
+    if (
+        !is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
+        or array_key_exists($champ, $desc['field'])
+    ) {
+        return [$champ];
+    }
+    // si le champ se décompose, tester que les colonnes décomposées sont présentes
+    if (is_array($decompose = decompose_champ_id_objet($champ))) {
+        array_pop($decompose);
+        if (count(array_intersect($decompose, array_keys($desc['field']))) == count($decompose)) {
+            return $decompose;
+        }
+    }
+
+    return [$champ];
 }
 
 
@@ -100,23 +100,23 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function calculer_jointure(&$boucle, $depart, $arrivee, $col = '', $cond = false, $max_liens = 5) {
-	// les jointures minimales sont optimales :
-	// on contraint le nombre d'etapes en l'augmentant
-	// jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi
-	$max = 1;
-	$res = false;
-	$milieu_exclus = ($col ?: []);
-	while ($max <= $max_liens and !$res) {
-		$res = calculer_chaine_jointures($boucle, $depart, $arrivee, [], $milieu_exclus, $max);
-		$max++;
-	}
-	if (!$res) {
-		return '';
-	}
-
-	[$nom, $desc] = $depart;
-
-	return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
+    // les jointures minimales sont optimales :
+    // on contraint le nombre d'etapes en l'augmentant
+    // jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi
+    $max = 1;
+    $res = false;
+    $milieu_exclus = ($col ?: []);
+    while ($max <= $max_liens and !$res) {
+        $res = calculer_chaine_jointures($boucle, $depart, $arrivee, [], $milieu_exclus, $max);
+        $max++;
+    }
+    if (!$res) {
+        return '';
+    }
+
+    [$nom, $desc] = $depart;
+
+    return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
 }
 
 /**
@@ -155,82 +155,82 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function fabrique_jointures(&$boucle, $res, $cond = false, $desc = [], $nom = '', $col = '', $echap = true) {
-	$a = [];
-	$j = null;
-	$n = null;
-	static $num = [];
-	$id_table = '';
-	$cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
-	foreach ($res as $cle => $r) {
-		[$d, $a, $j] = $r;
-		if (!$id_table) {
-			$id_table = $d;
-		}
-		$n = ++$cpt;
-		if (is_array($j)) { // c'est un lien sur un champ du type id_objet,objet,'article'
-			[$j1, $j2, $obj, $type] = $j;
-			// trouver de quel cote est (id_objet,objet)
-			if ($j1 == "id_$obj") {
-				$obj = "$id_table.$obj";
-			} else {
-				$obj = "L$n.$obj";
-			}
-			// le where complementaire est envoye dans la jointure et dans le where
-			// on utilise une clé qui le relie a la jointure pour que l'optimiseur
-			// sache qu'il peut enlever ce where si il enleve la jointure
-			$boucle->where["JOIN-L$n"] =
-				$echap ?
-					["'='","'$obj'","sql_quote('$type')"]
-					:
-					['=',"$obj",sql_quote($type)];
-			$boucle->join["L$n"] =
-				$echap ?
-					["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
-					:
-					[$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
-		} else {
-			$boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
-		}
-		$boucle->from[$id_table = "L$n"] = $a[0];
-	}
-
-
-	// pas besoin de group by
-	// (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
-	// si une seule jointure et sur une table avec primary key formee
-	// de l'index principal et de l'index de jointure (non conditionnel! [6031])
-	// et operateur d'egalite (https://core.spip.net/issues/477)
-
-	if ($pk = (isset($a[1]) && (count($boucle->from) == 2) && !$cond)) {
-		$pk = nogroupby_if($desc, $a[1], $col);
-	}
-
-	// pas de group by
-	// si une seule jointure
-	// et si l'index de jointure est une primary key a l'arrivee !
-	if (
-		!$pk
-		and (count($boucle->from) == 2)
-		and isset($a[1]['key']['PRIMARY KEY'])
-		and ($j == $a[1]['key']['PRIMARY KEY'])
-	) {
-		$pk = true;
-	}
-
-	// la clause Group by est en conflit avec ORDER BY, a completer
-	$groups = liste_champs_jointures($nom, $desc, true);
-	if (!$pk) {
-		foreach ($groups as $id_prim) {
-			$id_field = $nom . '.' . $id_prim;
-			if (!in_array($id_field, $boucle->group)) {
-				$boucle->group[] = $id_field;
-			}
-		}
-	}
-
-	$boucle->modificateur['lien'] = true;
-
-	return "L$n";
+    $a = [];
+    $j = null;
+    $n = null;
+    static $num = [];
+    $id_table = '';
+    $cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
+    foreach ($res as $cle => $r) {
+        [$d, $a, $j] = $r;
+        if (!$id_table) {
+            $id_table = $d;
+        }
+        $n = ++$cpt;
+        if (is_array($j)) { // c'est un lien sur un champ du type id_objet,objet,'article'
+            [$j1, $j2, $obj, $type] = $j;
+            // trouver de quel cote est (id_objet,objet)
+            if ($j1 == "id_$obj") {
+                $obj = "$id_table.$obj";
+            } else {
+                $obj = "L$n.$obj";
+            }
+            // le where complementaire est envoye dans la jointure et dans le where
+            // on utilise une clé qui le relie a la jointure pour que l'optimiseur
+            // sache qu'il peut enlever ce where si il enleve la jointure
+            $boucle->where["JOIN-L$n"] =
+                $echap ?
+                    ["'='","'$obj'","sql_quote('$type')"]
+                    :
+                    ['=',"$obj",sql_quote($type)];
+            $boucle->join["L$n"] =
+                $echap ?
+                    ["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
+                    :
+                    [$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
+        } else {
+            $boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
+        }
+        $boucle->from[$id_table = "L$n"] = $a[0];
+    }
+
+
+    // pas besoin de group by
+    // (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
+    // si une seule jointure et sur une table avec primary key formee
+    // de l'index principal et de l'index de jointure (non conditionnel! [6031])
+    // et operateur d'egalite (https://core.spip.net/issues/477)
+
+    if ($pk = (isset($a[1]) && (count($boucle->from) == 2) && !$cond)) {
+        $pk = nogroupby_if($desc, $a[1], $col);
+    }
+
+    // pas de group by
+    // si une seule jointure
+    // et si l'index de jointure est une primary key a l'arrivee !
+    if (
+        !$pk
+        and (count($boucle->from) == 2)
+        and isset($a[1]['key']['PRIMARY KEY'])
+        and ($j == $a[1]['key']['PRIMARY KEY'])
+    ) {
+        $pk = true;
+    }
+
+    // la clause Group by est en conflit avec ORDER BY, a completer
+    $groups = liste_champs_jointures($nom, $desc, true);
+    if (!$pk) {
+        foreach ($groups as $id_prim) {
+            $id_field = $nom . '.' . $id_prim;
+            if (!in_array($id_field, $boucle->group)) {
+                $boucle->group[] = $id_field;
+            }
+        }
+    }
+
+    $boucle->modificateur['lien'] = true;
+
+    return "L$n";
 }
 
 /**
@@ -245,19 +245,19 @@ 
  * @return bool
  */
 function nogroupby_if($depart, $arrivee, $col) {
-	if (
-		empty($arrivee['key']['PRIMARY KEY'])
-		or !($pk = $arrivee['key']['PRIMARY KEY'])
-		or empty($depart['key']['PRIMARY KEY'])
-	) {
-		return false;
-	}
-	$id_primary = $depart['key']['PRIMARY KEY'];
-	if (is_array($col)) {
-		$col = implode(', *', $col);
-	} // cas id_objet, objet
-	return (preg_match("/^$id_primary, *$col$/", $pk) or
-		preg_match("/^$col, *$id_primary$/", $pk));
+    if (
+        empty($arrivee['key']['PRIMARY KEY'])
+        or !($pk = $arrivee['key']['PRIMARY KEY'])
+        or empty($depart['key']['PRIMARY KEY'])
+    ) {
+        return false;
+    }
+    $id_primary = $depart['key']['PRIMARY KEY'];
+    if (is_array($col)) {
+        $col = implode(', *', $col);
+    } // cas id_objet, objet
+    return (preg_match("/^$id_primary, *$col$/", $pk) or
+        preg_match("/^$col, *$id_primary$/", $pk));
 }
 
 /**
@@ -275,46 +275,46 @@ 
  */
 function liste_champs_jointures($nom, $desc, $primary = false) {
 
-	static $nojoin = ['idx', 'maj', 'date', 'statut'];
+    static $nojoin = ['idx', 'maj', 'date', 'statut'];
 
-	// si cle primaire demandee, la privilegier
-	if ($primary && isset($desc['key']['PRIMARY KEY'])) {
-		return split_key($desc['key']['PRIMARY KEY']);
-	}
+    // si cle primaire demandee, la privilegier
+    if ($primary && isset($desc['key']['PRIMARY KEY'])) {
+        return split_key($desc['key']['PRIMARY KEY']);
+    }
 
-	// les champs declares explicitement pour les jointures
-	if (isset($desc['join'])) {
-		return $desc['join'];
-	}
-	/*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
+    // les champs declares explicitement pour les jointures
+    if (isset($desc['join'])) {
+        return $desc['join'];
+    }
+    /*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
 	elseif (isset($GLOBALS['tables_auxiliaires'][$nom]['join'])) return $GLOBALS['tables_auxiliaires'][$nom]['join'];*/
 
-	// si pas de cle, c'est fichu
-	if (!isset($desc['key'])) {
-		return [];
-	}
-
-	// si cle primaire
-	if (isset($desc['key']['PRIMARY KEY'])) {
-		return split_key($desc['key']['PRIMARY KEY']);
-	}
-
-	// ici on se rabat sur les cles secondaires,
-	// en eliminant celles qui sont pas pertinentes (idx, maj)
-	// si jamais le resultat n'est pas pertinent pour une table donnee,
-	// il faut declarer explicitement le champ 'join' de sa description
-
-	$join = [];
-	foreach ($desc['key'] as $v) {
-		$join = split_key($v, $join);
-	}
-	foreach ($join as $k) {
-		if (in_array($k, $nojoin)) {
-			unset($join[$k]);
-		}
-	}
-
-	return $join;
+    // si pas de cle, c'est fichu
+    if (!isset($desc['key'])) {
+        return [];
+    }
+
+    // si cle primaire
+    if (isset($desc['key']['PRIMARY KEY'])) {
+        return split_key($desc['key']['PRIMARY KEY']);
+    }
+
+    // ici on se rabat sur les cles secondaires,
+    // en eliminant celles qui sont pas pertinentes (idx, maj)
+    // si jamais le resultat n'est pas pertinent pour une table donnee,
+    // il faut declarer explicitement le champ 'join' de sa description
+
+    $join = [];
+    foreach ($desc['key'] as $v) {
+        $join = split_key($v, $join);
+    }
+    foreach ($join as $k) {
+        if (in_array($k, $nojoin)) {
+            unset($join[$k]);
+        }
+    }
+
+    return $join;
 }
 
 /**
@@ -325,14 +325,14 @@ 
  * @return array
  */
 function split_key($v, $join = []) {
-	foreach (preg_split('/,\s*/', $v) as $k) {
-		if (strpos($k, '(') !== false) {
-			$k = explode('(', $k);
-			$k = trim(reset($k));
-		}
-		$join[$k] = $k;
-	}
-	return $join;
+    foreach (preg_split('/,\s*/', $v) as $k) {
+        if (strpos($k, '(') !== false) {
+            $k = explode('(', $k);
+            $k = trim(reset($k));
+        }
+        $join[$k] = $k;
+    }
+    return $join;
 }
 
 /**
@@ -355,135 +355,135 @@ 
  * @return array
  */
 function calculer_chaine_jointures(
-	&$boucle,
-	$depart,
-	$arrivee,
-	$vu = [],
-	$milieu_exclus = [],
-	$max_liens = 5
+    &$boucle,
+    $depart,
+    $arrivee,
+    $vu = [],
+    $milieu_exclus = [],
+    $max_liens = 5
 ) {
-	static $trouver_table;
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (is_string($milieu_exclus)) {
-		$milieu_exclus = [$milieu_exclus];
-	}
-	// quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
-	// faire une jointure sur objet tout seul n'a pas de sens
-	if (in_array('id_objet', $milieu_exclus) and !in_array('objet', $milieu_exclus)) {
-		$milieu_exclus[] = 'objet';
-	}
-
-	[$dnom, $ddesc] = $depart;
-	[$anom, $adesc] = $arrivee;
-	if (!count($vu)) {
-		$vu[] = $dnom; // ne pas oublier la table de depart
-		$vu[] = $anom; // ne pas oublier la table d'arrivee
-	}
-
-	$akeys = [];
-	foreach ($adesc['key'] as $k) {
-		// respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
-		$akeys = array_merge($akeys, preg_split('/,\s*/', $k));
-	}
-
-	// enlever les cles d'arrivee exclues par l'appel
-	$akeys = array_diff($akeys, $milieu_exclus);
-
-	// cles candidates au depart
-	$keys = liste_champs_jointures($dnom, $ddesc);
-	// enlever les cles dde depart exclues par l'appel
-	$keys = array_diff($keys, $milieu_exclus);
-
-	$v = !$keys ? false : array_intersect(array_values($keys), $akeys);
-
-	if ($v) {
-		return [[$dnom, [$adesc['table'], $adesc], array_shift($v)]];
-	}
-
-	// regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
-	if (count(array_intersect(['id_objet', 'objet'], $keys)) == 2) {
-		// regarder si l'une des cles d'arrivee peut se decomposer en
-		// id_objet,objet
-		// si oui on la prend
-		foreach ($akeys as $key) {
-			$v = decompose_champ_id_objet($key);
-			if (is_array($v)) {
-				$objet = array_shift($v); // objet,'article'
-				array_unshift($v, $key); // id_article,objet,'article'
-				array_unshift($v, $objet); // id_objet,id_article,objet,'article'
-				return [[$dnom, [$adesc['table'], $adesc], $v]];
-			}
-		}
-	} else {
-		// regarder si l'une des cles de depart peut se decomposer en
-		// id_objet,objet a l'arrivee
-		// si oui on la prend
-		foreach ($keys as $key) {
-			if (count($v = trouver_champs_decomposes($key, $adesc)) > 1) {
-				if (count($v) == count(array_intersect($v, $akeys))) {
-					$v = decompose_champ_id_objet($key); // id_objet,objet,'article'
-					array_unshift($v, $key); // id_article,id_objet,objet,'article'
-					return [[$dnom, [$adesc['table'], $adesc], $v]];
-				}
-			}
-		}
-	}
-	// si l'on voulait une jointure direct, c'est rate !
-	if ($max_liens <= 1) {
-		return [];
-	}
-
-	// sinon essayer de passer par une autre table
-	$new = $vu;
-	foreach ($boucle->jointures as $v) {
-		if (
-			$v
-			and !in_array($v, $vu)
-			and $def = $trouver_table($v, $boucle->sql_serveur)
-			and !in_array($def['table_sql'], $vu)
-		) {
-			// ne pas tester les cles qui sont exclues a l'appel
-			// ie la cle de la jointure precedente
-			$test_cles = $milieu_exclus;
-			$new[] = $v;
-			$max_iter = 50; // securite
-			while (
-				count($jointure_directe_possible = calculer_chaine_jointures(
-					$boucle,
-					$depart,
-					[$v, $def],
-					$vu,
-					$test_cles,
-					1
-				))
-				and $max_iter--
-			) {
-				$jointure_directe_possible = reset($jointure_directe_possible);
-				$milieu = end($jointure_directe_possible);
-				$exclure_fin = $milieu_exclus;
-				if (is_string($milieu)) {
-					$exclure_fin[] = $milieu;
-					$test_cles[] = $milieu;
-				} else {
-					$exclure_fin = array_merge($exclure_fin, $milieu);
-					$test_cles = array_merge($test_cles, $milieu);
-				}
-				// essayer de rejoindre l'arrivee a partir de cette etape intermediaire
-				// sans repasser par la meme cle milieu, ni une cle deja vue !
-				$r = calculer_chaine_jointures($boucle, [$v, $def], $arrivee, $new, $exclure_fin, $max_liens - 1);
-				if ($r) {
-					array_unshift($r, $jointure_directe_possible);
-
-					return $r;
-				}
-			}
-		}
-	}
-
-	return [];
+    static $trouver_table;
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (is_string($milieu_exclus)) {
+        $milieu_exclus = [$milieu_exclus];
+    }
+    // quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
+    // faire une jointure sur objet tout seul n'a pas de sens
+    if (in_array('id_objet', $milieu_exclus) and !in_array('objet', $milieu_exclus)) {
+        $milieu_exclus[] = 'objet';
+    }
+
+    [$dnom, $ddesc] = $depart;
+    [$anom, $adesc] = $arrivee;
+    if (!count($vu)) {
+        $vu[] = $dnom; // ne pas oublier la table de depart
+        $vu[] = $anom; // ne pas oublier la table d'arrivee
+    }
+
+    $akeys = [];
+    foreach ($adesc['key'] as $k) {
+        // respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
+        $akeys = array_merge($akeys, preg_split('/,\s*/', $k));
+    }
+
+    // enlever les cles d'arrivee exclues par l'appel
+    $akeys = array_diff($akeys, $milieu_exclus);
+
+    // cles candidates au depart
+    $keys = liste_champs_jointures($dnom, $ddesc);
+    // enlever les cles dde depart exclues par l'appel
+    $keys = array_diff($keys, $milieu_exclus);
+
+    $v = !$keys ? false : array_intersect(array_values($keys), $akeys);
+
+    if ($v) {
+        return [[$dnom, [$adesc['table'], $adesc], array_shift($v)]];
+    }
+
+    // regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
+    if (count(array_intersect(['id_objet', 'objet'], $keys)) == 2) {
+        // regarder si l'une des cles d'arrivee peut se decomposer en
+        // id_objet,objet
+        // si oui on la prend
+        foreach ($akeys as $key) {
+            $v = decompose_champ_id_objet($key);
+            if (is_array($v)) {
+                $objet = array_shift($v); // objet,'article'
+                array_unshift($v, $key); // id_article,objet,'article'
+                array_unshift($v, $objet); // id_objet,id_article,objet,'article'
+                return [[$dnom, [$adesc['table'], $adesc], $v]];
+            }
+        }
+    } else {
+        // regarder si l'une des cles de depart peut se decomposer en
+        // id_objet,objet a l'arrivee
+        // si oui on la prend
+        foreach ($keys as $key) {
+            if (count($v = trouver_champs_decomposes($key, $adesc)) > 1) {
+                if (count($v) == count(array_intersect($v, $akeys))) {
+                    $v = decompose_champ_id_objet($key); // id_objet,objet,'article'
+                    array_unshift($v, $key); // id_article,id_objet,objet,'article'
+                    return [[$dnom, [$adesc['table'], $adesc], $v]];
+                }
+            }
+        }
+    }
+    // si l'on voulait une jointure direct, c'est rate !
+    if ($max_liens <= 1) {
+        return [];
+    }
+
+    // sinon essayer de passer par une autre table
+    $new = $vu;
+    foreach ($boucle->jointures as $v) {
+        if (
+            $v
+            and !in_array($v, $vu)
+            and $def = $trouver_table($v, $boucle->sql_serveur)
+            and !in_array($def['table_sql'], $vu)
+        ) {
+            // ne pas tester les cles qui sont exclues a l'appel
+            // ie la cle de la jointure precedente
+            $test_cles = $milieu_exclus;
+            $new[] = $v;
+            $max_iter = 50; // securite
+            while (
+                count($jointure_directe_possible = calculer_chaine_jointures(
+                    $boucle,
+                    $depart,
+                    [$v, $def],
+                    $vu,
+                    $test_cles,
+                    1
+                ))
+                and $max_iter--
+            ) {
+                $jointure_directe_possible = reset($jointure_directe_possible);
+                $milieu = end($jointure_directe_possible);
+                $exclure_fin = $milieu_exclus;
+                if (is_string($milieu)) {
+                    $exclure_fin[] = $milieu;
+                    $test_cles[] = $milieu;
+                } else {
+                    $exclure_fin = array_merge($exclure_fin, $milieu);
+                    $test_cles = array_merge($test_cles, $milieu);
+                }
+                // essayer de rejoindre l'arrivee a partir de cette etape intermediaire
+                // sans repasser par la meme cle milieu, ni une cle deja vue !
+                $r = calculer_chaine_jointures($boucle, [$v, $def], $arrivee, $new, $exclure_fin, $max_liens - 1);
+                if ($r) {
+                    array_unshift($r, $jointure_directe_possible);
+
+                    return $r;
+                }
+            }
+        }
+    }
+
+    return [];
 }
 
 /**
@@ -494,18 +494,18 @@ 
  * @return array
  */
 function trouver_cles_table($keys) {
-	$res = [];
-	foreach ($keys as $v) {
-		if (!strpos($v, ',')) {
-			$res[$v] = 1;
-		} else {
-			foreach (preg_split('/\s*,\s*/', $v) as $k) {
-				$res[$k] = 1;
-			}
-		}
-	}
-
-	return array_keys($res);
+    $res = [];
+    foreach ($keys as $v) {
+        if (!strpos($v, ',')) {
+            $res[$v] = 1;
+        } else {
+            foreach (preg_split('/\s*,\s*/', $v) as $k) {
+                $res[$k] = 1;
+            }
+        }
+    }
+
+    return array_keys($res);
 }
 
 
@@ -532,34 +532,34 @@ 
  *     - 'alias' : alias utilisé pour la table (si pertinent. ie: avec `$boucle->from` transmis par exemple)
  */
 function chercher_champ_dans_tables($cle, $tables, $connect, $checkarrivee = false) {
-	static $trouver_table = '';
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (!is_array($cle)) {
-		$cle = [$cle];
-	}
-
-	foreach ($tables as $k => $table) {
-		if ($table && $desc = $trouver_table($table, $connect)) {
-			if (
-				isset($desc['field'])
-				// verifier que toutes les cles cherchees sont la
-				and (count(array_intersect($cle, array_keys($desc['field']))) == count($cle))
-				// si on sait ou on veut arriver, il faut que ca colle
-				and ($checkarrivee == false || $checkarrivee == $desc['table'])
-			) {
-				return [
-					'desc' => $desc,
-					'table' => $desc['table'],
-					'alias' => $k,
-				];
-			}
-		}
-	}
-
-	return false;
+    static $trouver_table = '';
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (!is_array($cle)) {
+        $cle = [$cle];
+    }
+
+    foreach ($tables as $k => $table) {
+        if ($table && $desc = $trouver_table($table, $connect)) {
+            if (
+                isset($desc['field'])
+                // verifier que toutes les cles cherchees sont la
+                and (count(array_intersect($cle, array_keys($desc['field']))) == count($cle))
+                // si on sait ou on veut arriver, il faut que ca colle
+                and ($checkarrivee == false || $checkarrivee == $desc['table'])
+            ) {
+                return [
+                    'desc' => $desc,
+                    'table' => $desc['table'],
+                    'alias' => $k,
+                ];
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -585,52 +585,52 @@ 
  */
 function trouver_champ_exterieur($cle, $joints, &$boucle, $checkarrivee = false) {
 
-	// support de la recherche multi champ :
-	// si en seconde etape on a decompose le champ id_xx en id_objet,objet
-	// on reentre ici soit en cherchant une table les 2 champs id_objet,objet
-	// soit une table avec les 3 champs id_xx, id_objet, objet
-	if (!is_array($cle)) {
-		$cle = [$cle];
-	}
-
-	if ($infos = chercher_champ_dans_tables($cle, $joints, $boucle->sql_serveur, $checkarrivee)) {
-		return [$infos['table'], $infos['desc'], $cle];
-	}
-
-	// au premier coup, on essaye de decomposer, si possible
-	if (
-		count($cle) == 1
-		and $c = reset($cle)
-		and is_array($decompose = decompose_champ_id_objet($c))
-	) {
-		$desc = $boucle->show;
-
-		// cas 1 : la cle id_xx est dans la table de depart
-		// -> on cherche uniquement id_objet,objet a l'arrivee
-		if (isset($desc['field'][$c])) {
-			$cle = [];
-			$cle[] = array_shift($decompose); // id_objet
-			$cle[] = array_shift($decompose); // objet
-			return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
-		}
-		// cas 2 : la cle id_xx n'est pas dans la table de depart
-		// -> il faut trouver une cle de depart zzz telle que
-		// id_objet,objet,zzz soit a l'arrivee
-		else {
-			$depart = liste_champs_jointures(($desc['table'] ?? ''), $desc);
-			foreach ($depart as $d) {
-				$cle = [];
-				$cle[] = array_shift($decompose); // id_objet
-				$cle[] = array_shift($decompose); // objet
-				$cle[] = $d;
-				if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee)) {
-					return $ext;
-				}
-			}
-		}
-	}
-
-	return '';
+    // support de la recherche multi champ :
+    // si en seconde etape on a decompose le champ id_xx en id_objet,objet
+    // on reentre ici soit en cherchant une table les 2 champs id_objet,objet
+    // soit une table avec les 3 champs id_xx, id_objet, objet
+    if (!is_array($cle)) {
+        $cle = [$cle];
+    }
+
+    if ($infos = chercher_champ_dans_tables($cle, $joints, $boucle->sql_serveur, $checkarrivee)) {
+        return [$infos['table'], $infos['desc'], $cle];
+    }
+
+    // au premier coup, on essaye de decomposer, si possible
+    if (
+        count($cle) == 1
+        and $c = reset($cle)
+        and is_array($decompose = decompose_champ_id_objet($c))
+    ) {
+        $desc = $boucle->show;
+
+        // cas 1 : la cle id_xx est dans la table de depart
+        // -> on cherche uniquement id_objet,objet a l'arrivee
+        if (isset($desc['field'][$c])) {
+            $cle = [];
+            $cle[] = array_shift($decompose); // id_objet
+            $cle[] = array_shift($decompose); // objet
+            return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
+        }
+        // cas 2 : la cle id_xx n'est pas dans la table de depart
+        // -> il faut trouver une cle de depart zzz telle que
+        // id_objet,objet,zzz soit a l'arrivee
+        else {
+            $depart = liste_champs_jointures(($desc['table'] ?? ''), $desc);
+            foreach ($depart as $d) {
+                $cle = [];
+                $cle[] = array_shift($decompose); // id_objet
+                $cle[] = array_shift($decompose); // objet
+                $cle[] = $d;
+                if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee)) {
+                    return $ext;
+                }
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -662,21 +662,21 @@ 
  * @return string
  */
 function trouver_jointure_champ($champ, &$boucle, $jointures = false, $cond = false, $checkarrivee = false) {
-	if ($jointures === false) {
-		$jointures = $boucle->jointures;
-	}
-	// TODO : aberration, on utilise $jointures pour trouver le champ
-	// mais pas poour construire la jointure ensuite
-	$arrivee = trouver_champ_exterieur($champ, $jointures, $boucle, $checkarrivee);
-	if ($arrivee) {
-		$desc = $boucle->show;
-		array_pop($arrivee); // enlever la cle en 3eme argument
-		$cle = calculer_jointure($boucle, [$desc['id_table'], $desc], $arrivee, '', $cond);
-		if ($cle) {
-			return $cle;
-		}
-	}
-	spip_log("trouver_jointure_champ: $champ inconnu");
-
-	return '';
+    if ($jointures === false) {
+        $jointures = $boucle->jointures;
+    }
+    // TODO : aberration, on utilise $jointures pour trouver le champ
+    // mais pas poour construire la jointure ensuite
+    $arrivee = trouver_champ_exterieur($champ, $jointures, $boucle, $checkarrivee);
+    if ($arrivee) {
+        $desc = $boucle->show;
+        array_pop($arrivee); // enlever la cle en 3eme argument
+        $cle = calculer_jointure($boucle, [$desc['id_table'], $desc], $arrivee, '', $cond);
+        if ($cle) {
+            return $cle;
+        }
+    }
+    spip_log("trouver_jointure_champ: $champ inconnu");
+
+    return '';
 }

ecrire/public/styliser.php

Indentation +126 added lines, -126 removed lines

@@ -20,7 +20,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Ce fichier doit imperativement definir la fonction ci-dessous:
@@ -39,59 +39,59 @@ 
  * @return array
  */
 function public_styliser_dist($fond, $contexte, $lang = '', string $connect = '') {
-	static $styliser_par_z;
-
-	// s'assurer que le fond est licite
-	// car il peut etre construit a partir d'une variable d'environnement
-	if (strpos($fond, '../') !== false or strncmp($fond, '/', 1) == 0) {
-		$fond = '404';
-	}
-
-	if (strncmp($fond, 'modeles/', 8) == 0) {
-		$modele = substr($fond, 8);
-		$modele = styliser_modele($modele, null, $contexte);
-		$fond = "modeles/$modele";
-	}
-
-	// Choisir entre $fond-dist.html, $fond=7.html, etc?
-	$id_rubrique = 0;
-	// Chercher le fond qui va servir de squelette
-	if ($r = quete_rubrique_fond($contexte)) {
-		[$id_rubrique, $lang] = $r;
-	}
-
-	// trouver un squelette du nom demande
-	// ne rien dire si on ne trouve pas,
-	// c'est l'appelant qui sait comment gerer la situation
-	// ou les plugins qui feront mieux dans le pipeline
-	$squelette = trouver_fond($fond, '', true);
-	$ext = $squelette['extension'];
-
-	$flux = [
-		'args' => [
-			'id_rubrique' => $id_rubrique,
-			'ext' => $ext,
-			'fond' => $fond,
-			'lang' => $lang,
-			'contexte' => $contexte, // le style d'un objet peut dependre de lui meme
-			'connect' => $connect
-		],
-		'data' => $squelette['fond'],
-	];
-
-	if (test_espace_prive() or defined('_ZPIP')) {
-		if (!$styliser_par_z) {
-			$styliser_par_z = charger_fonction('styliser_par_z', 'public');
-		}
-		$flux = $styliser_par_z($flux);
-	}
-
-	$flux = styliser_par_objets($flux);
-
-	// pipeline styliser
-	$squelette = pipeline('styliser', $flux);
-
-	return [$squelette, $ext, $ext, "$squelette.$ext"];
+    static $styliser_par_z;
+
+    // s'assurer que le fond est licite
+    // car il peut etre construit a partir d'une variable d'environnement
+    if (strpos($fond, '../') !== false or strncmp($fond, '/', 1) == 0) {
+        $fond = '404';
+    }
+
+    if (strncmp($fond, 'modeles/', 8) == 0) {
+        $modele = substr($fond, 8);
+        $modele = styliser_modele($modele, null, $contexte);
+        $fond = "modeles/$modele";
+    }
+
+    // Choisir entre $fond-dist.html, $fond=7.html, etc?
+    $id_rubrique = 0;
+    // Chercher le fond qui va servir de squelette
+    if ($r = quete_rubrique_fond($contexte)) {
+        [$id_rubrique, $lang] = $r;
+    }
+
+    // trouver un squelette du nom demande
+    // ne rien dire si on ne trouve pas,
+    // c'est l'appelant qui sait comment gerer la situation
+    // ou les plugins qui feront mieux dans le pipeline
+    $squelette = trouver_fond($fond, '', true);
+    $ext = $squelette['extension'];
+
+    $flux = [
+        'args' => [
+            'id_rubrique' => $id_rubrique,
+            'ext' => $ext,
+            'fond' => $fond,
+            'lang' => $lang,
+            'contexte' => $contexte, // le style d'un objet peut dependre de lui meme
+            'connect' => $connect
+        ],
+        'data' => $squelette['fond'],
+    ];
+
+    if (test_espace_prive() or defined('_ZPIP')) {
+        if (!$styliser_par_z) {
+            $styliser_par_z = charger_fonction('styliser_par_z', 'public');
+        }
+        $flux = $styliser_par_z($flux);
+    }
+
+    $flux = styliser_par_objets($flux);
+
+    // pipeline styliser
+    $squelette = pipeline('styliser', $flux);
+
+    return [$squelette, $ext, $ext, "$squelette.$ext"];
 }
 
 /**
@@ -110,32 +110,32 @@ 
  *     Données du pipeline styliser
  **/
 function styliser_par_objets($flux) {
-	if (
-		test_espace_prive()
-		and !$squelette = $flux['data']
-		and strncmp($flux['args']['fond'], 'prive/objets/', 13) == 0
-		and $echafauder = charger_fonction('echafauder', 'prive', true)
-	) {
-		if (strncmp($flux['args']['fond'], 'prive/objets/liste/', 19) == 0) {
-			$table = table_objet(substr($flux['args']['fond'], 19));
-			$table_sql = table_objet_sql($table);
-			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql])) {
-				$flux['data'] = $echafauder($table, $table, $table_sql, 'prive/objets/liste/objets', $flux['args']['ext']);
-			}
-		}
-		if (strncmp($flux['args']['fond'], 'prive/objets/contenu/', 21) == 0) {
-			$type = substr($flux['args']['fond'], 21);
-			$table = table_objet($type);
-			$table_sql = table_objet_sql($table);
-			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql])) {
-				$flux['data'] = $echafauder($type, $table, $table_sql, 'prive/objets/contenu/objet', $flux['args']['ext']);
-			}
-		}
-	}
-
-	return $flux;
+    if (
+        test_espace_prive()
+        and !$squelette = $flux['data']
+        and strncmp($flux['args']['fond'], 'prive/objets/', 13) == 0
+        and $echafauder = charger_fonction('echafauder', 'prive', true)
+    ) {
+        if (strncmp($flux['args']['fond'], 'prive/objets/liste/', 19) == 0) {
+            $table = table_objet(substr($flux['args']['fond'], 19));
+            $table_sql = table_objet_sql($table);
+            $objets = lister_tables_objets_sql();
+            if (isset($objets[$table_sql])) {
+                $flux['data'] = $echafauder($table, $table, $table_sql, 'prive/objets/liste/objets', $flux['args']['ext']);
+            }
+        }
+        if (strncmp($flux['args']['fond'], 'prive/objets/contenu/', 21) == 0) {
+            $type = substr($flux['args']['fond'], 21);
+            $table = table_objet($type);
+            $table_sql = table_objet_sql($table);
+            $objets = lister_tables_objets_sql();
+            if (isset($objets[$table_sql])) {
+                $flux['data'] = $echafauder($type, $table, $table_sql, 'prive/objets/contenu/objet', $flux['args']['ext']);
+            }
+        }
+    }
+
+    return $flux;
 }
 
 /**
@@ -151,50 +151,50 @@ 
  * @return array
  */
 function quete_rubrique_fond($contexte) {
-	static $liste_objets = null;
-	static $quete = [];
-	if (is_null($liste_objets)) {
-		$liste_objets = [];
-		include_spip('inc/urls');
-		include_spip('public/quete');
-		$l = urls_liste_objets(false);
-		// placer la rubrique en tete des objets
-		$l = array_diff($l, ['rubrique']);
-		array_unshift($l, 'rubrique');
-		foreach ($l as $objet) {
-			$id = id_table_objet($objet);
-			if (!isset($liste_objets[$id])) {
-				$liste_objets[$id] = objet_type($objet, false);
-			}
-		}
-	}
-	$c = array_intersect_key($contexte, $liste_objets);
-	if (!count($c)) {
-		return false;
-	}
-
-	$c = array_map('intval', $c);
-	$s = serialize($c);
-	if (isset($quete[$s])) {
-		return $quete[$s];
-	}
-
-	if (isset($c['id_rubrique']) and $r = $c['id_rubrique']) {
-		unset($c['id_rubrique']);
-		$c = ['id_rubrique' => $r] + $c;
-	}
-
-	foreach ($c as $_id => $id) {
-		if (
-			$id
-			and $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]), $id)
-		) {
-			$lang = $row['lang'] ?? '';
-			if ($_id == 'id_rubrique' or (isset($row['id_rubrique']) and $id = $row['id_rubrique'])) {
-				return $quete[$s] = [$id, $lang];
-			}
-		}
-	}
-
-	return $quete[$s] = false;
+    static $liste_objets = null;
+    static $quete = [];
+    if (is_null($liste_objets)) {
+        $liste_objets = [];
+        include_spip('inc/urls');
+        include_spip('public/quete');
+        $l = urls_liste_objets(false);
+        // placer la rubrique en tete des objets
+        $l = array_diff($l, ['rubrique']);
+        array_unshift($l, 'rubrique');
+        foreach ($l as $objet) {
+            $id = id_table_objet($objet);
+            if (!isset($liste_objets[$id])) {
+                $liste_objets[$id] = objet_type($objet, false);
+            }
+        }
+    }
+    $c = array_intersect_key($contexte, $liste_objets);
+    if (!count($c)) {
+        return false;
+    }
+
+    $c = array_map('intval', $c);
+    $s = serialize($c);
+    if (isset($quete[$s])) {
+        return $quete[$s];
+    }
+
+    if (isset($c['id_rubrique']) and $r = $c['id_rubrique']) {
+        unset($c['id_rubrique']);
+        $c = ['id_rubrique' => $r] + $c;
+    }
+
+    foreach ($c as $_id => $id) {
+        if (
+            $id
+            and $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]), $id)
+        ) {
+            $lang = $row['lang'] ?? '';
+            if ($_id == 'id_rubrique' or (isset($row['id_rubrique']) and $id = $row['id_rubrique'])) {
+                return $quete[$s] = [$id, $lang];
+            }
+        }
+    }
+
+    return $quete[$s] = false;
 }

ecrire/public/format_html.php

Indentation +90 added lines, -90 removed lines

@@ -11,127 +11,127 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function format_boucle_html($preaff, $avant, $nom, $type, $crit, $corps, $apres, $altern, $postaff, $prof) {
-	$preaff = $preaff ? "<BB$nom>$preaff" : '';
-	$avant = $avant ? "<B$nom>$avant" : '';
-	$apres = $apres ? "$apres</B$nom>" : '';
-	$altern = $altern ? "$altern<//B$nom>" : '';
-	$postaff = $postaff ? "$postaff</BB$nom>" : '';
-	if (!$corps) {
-		$corps = ' />';
-	} else {
-		$corps = ">$corps</BOUCLE$nom>";
-	}
-
-	return "$preaff$avant<BOUCLE$nom($type)$crit$corps$apres$altern$postaff";
+    $preaff = $preaff ? "<BB$nom>$preaff" : '';
+    $avant = $avant ? "<B$nom>$avant" : '';
+    $apres = $apres ? "$apres</B$nom>" : '';
+    $altern = $altern ? "$altern<//B$nom>" : '';
+    $postaff = $postaff ? "$postaff</BB$nom>" : '';
+    if (!$corps) {
+        $corps = ' />';
+    } else {
+        $corps = ">$corps</BOUCLE$nom>";
+    }
+
+    return "$preaff$avant<BOUCLE$nom($type)$crit$corps$apres$altern$postaff";
 }
 
 function format_inclure_html($file, $args, $prof) {
-	if (strpos($file, '#') === false) {
-		$t = $file ? ('(' . $file . ')') : '';
-	} else {
-		$t = '{fond=' . $file . '}';
-	}
-	$args = !$args ? '' : ('{' . join(', ', $args) . '}');
-
-	return ('<INCLURE' . $t . $args . '>');
+    if (strpos($file, '#') === false) {
+        $t = $file ? ('(' . $file . ')') : '';
+    } else {
+        $t = '{fond=' . $file . '}';
+    }
+    $args = !$args ? '' : ('{' . join(', ', $args) . '}');
+
+    return ('<INCLURE' . $t . $args . '>');
 }
 
 function format_polyglotte_html($args, $prof) {
-	$contenu = [];
-	foreach ($args as $l => $t) {
-		$contenu[] = ($l ? "[$l]" : '') . $t;
-	}
+    $contenu = [];
+    foreach ($args as $l => $t) {
+        $contenu[] = ($l ? "[$l]" : '') . $t;
+    }
 
-	return ('<multi>' . join(' ', $contenu) . '</multi>');
+    return ('<multi>' . join(' ', $contenu) . '</multi>');
 }
 
 function format_idiome_html($nom, $module, $args, $filtres, $prof) {
-	foreach ($args as $k => $v) {
-		$args[$k] = "$k=$v";
-	}
-	$args = (!$args ? '' : ('{' . join(',', $args) . '}'));
+    foreach ($args as $k => $v) {
+        $args[$k] = "$k=$v";
+    }
+    $args = (!$args ? '' : ('{' . join(',', $args) . '}'));
 
-	return ('<:' . ($module ? "$module:" : '') . $nom . $args . $filtres . ':>');
+    return ('<:' . ($module ? "$module:" : '') . $nom . $args . $filtres . ':>');
 }
 
 function format_champ_html($nom, $boucle, $etoile, $avant, $apres, $args, $filtres, $prof) {
-	$nom = '#'
-		. ($boucle ? ($boucle . ':') : '')
-		. $nom
-		. $etoile
-		. $args
-		. $filtres;
+    $nom = '#'
+        . ($boucle ? ($boucle . ':') : '')
+        . $nom
+        . $etoile
+        . $args
+        . $filtres;
 
-	// Determiner si c'est un champ etendu,
+    // Determiner si c'est un champ etendu,
 
-	$s = ($avant or $apres or $filtres
-		or (strpos($args, '(#') !== false));
+    $s = ($avant or $apres or $filtres
+        or (strpos($args, '(#') !== false));
 
-	return ($s ? "[$avant($nom)$apres]" : $nom);
+    return ($s ? "[$avant($nom)$apres]" : $nom);
 }
 
 function format_critere_html($critere) {
-	foreach ($critere as $k => $crit) {
-		$crit_s = '';
-		foreach ($crit as $operande) {
-			[$type, $valeur] = $operande;
-			if ($type == 'champ' and $valeur[0] == '[') {
-				$valeur = substr($valeur, 1, -1);
-				if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur)) {
-					$valeur = substr($valeur, 1, -1);
-				}
-			}
-			$crit_s .= $valeur;
-		}
-		$critere[$k] = $crit_s;
-	}
-
-	return (!$critere ? '' : ('{' . join(',', $critere) . '}'));
+    foreach ($critere as $k => $crit) {
+        $crit_s = '';
+        foreach ($crit as $operande) {
+            [$type, $valeur] = $operande;
+            if ($type == 'champ' and $valeur[0] == '[') {
+                $valeur = substr($valeur, 1, -1);
+                if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur)) {
+                    $valeur = substr($valeur, 1, -1);
+                }
+            }
+            $crit_s .= $valeur;
+        }
+        $critere[$k] = $crit_s;
+    }
+
+    return (!$critere ? '' : ('{' . join(',', $critere) . '}'));
 }
 
 function format_liste_html($fonc, $args, $prof) {
-	return ((($fonc !== '') ? "|$fonc" : $fonc)
-		. (!$args ? '' : ('{' . join(',', $args) . '}')));
+    return ((($fonc !== '') ? "|$fonc" : $fonc)
+        . (!$args ? '' : ('{' . join(',', $args) . '}')));
 }
 
 // Concatenation sans separateur: verifier qu'on ne cree pas de faux lexemes
 function format_suite_html($args) {
-	for ($i = 0; $i < (is_countable($args) ? count($args) : 0) - 1; $i++) {
-		[$texte, $type] = $args[$i];
-		[$texte2, $type2] = $args[$i + 1];
-		if (!$texte or !$texte2) {
-			continue;
-		}
-		$c1 = substr($texte, -1);
-		if ($type2 !== 'texte') {
-			// si un texte se termine par ( et est suivi d'un champ
-			// ou assimiles, forcer la notation pleine
-			if ($c1 == '(' and substr($texte2, 0, 1) == '#') {
-				$args[$i + 1][0] = '[(' . $texte2 . ')]';
-			}
-		} else {
-			if ($type == 'texte') {
-				continue;
-			}
-			// si un champ ou assimiles est suivi d'un texte
-			// et si celui-ci commence par un caractere de champ
-			// forcer la notation pleine
-			if (
-				($c1 == '}' and substr(ltrim($texte2), 0, 1) == '|')
-				or (preg_match('/[\w\d_*]/', $c1) and preg_match('/^[\w\d_*{|]/', $texte2))
-			) {
-				$args[$i][0] = '[(' . $texte . ')]';
-			}
-		}
-	}
-
-	return join('', array_map(fn($arg) => reset($arg), $args));
+    for ($i = 0; $i < (is_countable($args) ? count($args) : 0) - 1; $i++) {
+        [$texte, $type] = $args[$i];
+        [$texte2, $type2] = $args[$i + 1];
+        if (!$texte or !$texte2) {
+            continue;
+        }
+        $c1 = substr($texte, -1);
+        if ($type2 !== 'texte') {
+            // si un texte se termine par ( et est suivi d'un champ
+            // ou assimiles, forcer la notation pleine
+            if ($c1 == '(' and substr($texte2, 0, 1) == '#') {
+                $args[$i + 1][0] = '[(' . $texte2 . ')]';
+            }
+        } else {
+            if ($type == 'texte') {
+                continue;
+            }
+            // si un champ ou assimiles est suivi d'un texte
+            // et si celui-ci commence par un caractere de champ
+            // forcer la notation pleine
+            if (
+                ($c1 == '}' and substr(ltrim($texte2), 0, 1) == '|')
+                or (preg_match('/[\w\d_*]/', $c1) and preg_match('/^[\w\d_*{|]/', $texte2))
+            ) {
+                $args[$i][0] = '[(' . $texte . ')]';
+            }
+        }
+    }
+
+    return join('', array_map(fn($arg) => reset($arg), $args));
 }
 
 function format_texte_html($texte) {
-	return $texte;
+    return $texte;
 }

ecrire/public/normaliser.php

Indentation +159 added lines, -159 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Les fonctions de ce fichier sont appelees en certains points
@@ -25,193 +25,193 @@ 
 // -> https://www.spip.net/fr_article901.html
 
 function phraser_vieux_logos(&$p) {
-	if ($p->param[0][0]) {
-		$args = [''];
-	} else {
-		$args = array_shift($p->param);
-	}
-
-	foreach ($p->param as $couple) {
-		$nom = trim($couple[0]);
-		if ($nom == '') {
-			array_shift($p->param);
-			break;
-		}
-		$r = phraser_logo_faux_filtres($nom);
-		if ($r === 0) {
-			$c = new Texte();
-			$c->texte = $nom;
-			$args[] = [$c];
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif ($r === 2) {
-			$p->etoile = '**';
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif ($r === 1) {
-			array_shift($p->param);
-			$p->etoile = '*';
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif (preg_match('/^' . NOM_DE_CHAMP . '(.*)$/sS', $nom, $m)) {
-			$champ = new Champ();
-			$champ->nom_boucle = $m[2];
-			$champ->nom_champ = $m[3];
-			$champ->etoile = $m[5];
-			$champ = [$champ];
-			if ($m[6]) {
-				$r = new Texte();
-				$r->texte = $m[6];
-				$champ[] = $r;
-			}
-			$args[] = $champ;
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} // le cas else est la seule incompatibilite
-	}
-	array_unshift($p->param, $args);
+    if ($p->param[0][0]) {
+        $args = [''];
+    } else {
+        $args = array_shift($p->param);
+    }
+
+    foreach ($p->param as $couple) {
+        $nom = trim($couple[0]);
+        if ($nom == '') {
+            array_shift($p->param);
+            break;
+        }
+        $r = phraser_logo_faux_filtres($nom);
+        if ($r === 0) {
+            $c = new Texte();
+            $c->texte = $nom;
+            $args[] = [$c];
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif ($r === 2) {
+            $p->etoile = '**';
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif ($r === 1) {
+            array_shift($p->param);
+            $p->etoile = '*';
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif (preg_match('/^' . NOM_DE_CHAMP . '(.*)$/sS', $nom, $m)) {
+            $champ = new Champ();
+            $champ->nom_boucle = $m[2];
+            $champ->nom_champ = $m[3];
+            $champ->etoile = $m[5];
+            $champ = [$champ];
+            if ($m[6]) {
+                $r = new Texte();
+                $r->texte = $m[6];
+                $champ[] = $r;
+            }
+            $args[] = $champ;
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } // le cas else est la seule incompatibilite
+    }
+    array_unshift($p->param, $args);
 }
 
 
 function phraser_logo_faux_filtres($nom) {
-	switch ($nom) {
-		case 'top':
-		case 'left':
-		case 'right':
-		case 'center':
-		case 'bottom':
-			return 0;
-		case 'lien':
-			return 1;
-		case 'fichier':
-			return 2;
-		default:
-			return $nom;
-	}
+    switch ($nom) {
+        case 'top':
+        case 'left':
+        case 'right':
+        case 'center':
+        case 'bottom':
+            return 0;
+        case 'lien':
+            return 1;
+        case 'fichier':
+            return 2;
+        default:
+            return $nom;
+    }
 }
 
 
 // La balise embed_document est a present le modele emb
 
 function phraser_vieux_emb(&$p) {
-	if (!is_array($p->param)) {
-		$p->param = [];
-	}
-
-	// Produire le premier argument {emb}
-	$texte = new Texte();
-	$texte->texte = 'emb';
-	$param = ['', [$texte]];
-
-	// Transformer les filtres en arguments
-	for ($i = 0; $i < (is_countable($p->param) ? count($p->param) : 0); $i++) {
-		if ($p->param[$i][0]) {
-			if (!strstr($p->param[$i][0], '=')) {
-				break;
-			}# on a rencontre un vrai filtre, c'est fini
-			$texte = new Texte();
-			$texte->texte = $p->param[$i][0];
-			$param[] = [$texte];
-		}
-		array_shift($p->param);
-	}
-	array_unshift($p->param, $param);
-	spip_log('balise EMBED_DOCUMENT obsolete', 'vieilles_defs');
-	$p->nom_champ = 'MODELE';
+    if (!is_array($p->param)) {
+        $p->param = [];
+    }
+
+    // Produire le premier argument {emb}
+    $texte = new Texte();
+    $texte->texte = 'emb';
+    $param = ['', [$texte]];
+
+    // Transformer les filtres en arguments
+    for ($i = 0; $i < (is_countable($p->param) ? count($p->param) : 0); $i++) {
+        if ($p->param[$i][0]) {
+            if (!strstr($p->param[$i][0], '=')) {
+                break;
+            }# on a rencontre un vrai filtre, c'est fini
+            $texte = new Texte();
+            $texte->texte = $p->param[$i][0];
+            $param[] = [$texte];
+        }
+        array_shift($p->param);
+    }
+    array_unshift($p->param, $param);
+    spip_log('balise EMBED_DOCUMENT obsolete', 'vieilles_defs');
+    $p->nom_champ = 'MODELE';
 }
 
 // Vieux formulaire de recherch
 
 function phraser_vieux_recherche($p) {
-	if ($p->param[0][0]) {
-		$c = new Texte();
-		$c->texte = $p->param[0][0];
-		$p->param[0][1] = [$c];
-		$p->param[0][0] = '';
-		$p->fonctions = [];
-		spip_log('FORMULAIRE_RECHERCHE avec filtre ' . $c->texte, 'vieilles_defs');
-	}
+    if ($p->param[0][0]) {
+        $c = new Texte();
+        $c->texte = $p->param[0][0];
+        $p->param[0][1] = [$c];
+        $p->param[0][0] = '';
+        $p->fonctions = [];
+        spip_log('FORMULAIRE_RECHERCHE avec filtre ' . $c->texte, 'vieilles_defs');
+    }
 }
 
 // Gerer la notation [(#EXPOSER|on,off)]
 function phraser_vieux_exposer($p) {
-	if ($a = $p->fonctions) {
-		preg_match('#([^,]*)(,(.*))?#', $a[0][0], $regs);
-		$args = [];
-		if ($regs[1]) {
-			$a = new Texte();
-			$a->texte = $regs[1];
-			$args = ['', [$a]];
-			if ($regs[3]) {
-				$a = new Texte();
-				$a->texte = $regs[3];
-				$args[] = [$a];
-			}
-		}
-		$p->param[0] = $args;
-		$p->fonctions = [];
-		$p->nom_champ = 'EXPOSE';
-	}
+    if ($a = $p->fonctions) {
+        preg_match('#([^,]*)(,(.*))?#', $a[0][0], $regs);
+        $args = [];
+        if ($regs[1]) {
+            $a = new Texte();
+            $a->texte = $regs[1];
+            $args = ['', [$a]];
+            if ($regs[3]) {
+                $a = new Texte();
+                $a->texte = $regs[3];
+                $args[] = [$a];
+            }
+        }
+        $p->param[0] = $args;
+        $p->fonctions = [];
+        $p->nom_champ = 'EXPOSE';
+    }
 }
 
 function phraser_vieux_modele($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 function phraser_vieux_inclu($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 function normaliser_args_inclumodel($p) {
-	$params = $p->param;
-	if (!$params) {
-		return;
-	}
-	$args = $params[0];
-	if ($args[0]) {
-		return;
-	} // filtre immediat
-	array_shift($p->param);
-	foreach ($p->param as $l) {
-		if (!array_shift($l)) {
-			$args = array_merge($args, $l);
-			array_shift($p->param);
-		} else {
-			break;
-		} // filtre
-	}
-	array_unshift($p->param, $args);
+    $params = $p->param;
+    if (!$params) {
+        return;
+    }
+    $args = $params[0];
+    if ($args[0]) {
+        return;
+    } // filtre immediat
+    array_shift($p->param);
+    foreach ($p->param as $l) {
+        if (!array_shift($l)) {
+            $args = array_merge($args, $l);
+            array_shift($p->param);
+        } else {
+            break;
+        } // filtre
+    }
+    array_unshift($p->param, $args);
 }
 
 function normaliser_inclure($champ) {
-	normaliser_args_inclumodel($champ);
-	$l = $champ->param[0];
-	if (is_array($l) and !$l[0]) {
-		foreach ($l as $k => $p) {
-			if ($p and $p[0]->type == 'texte' and !strpos($p[0]->texte, '=')) {
-				$p[0]->texte = trim($p[0]->texte);
-			}
-		}
-		foreach ($l as $k => $p) {
-			if (
-				!$p or $p[0]->type != 'texte' or
-				!preg_match('/^fond\s*=\s*(.*)$/', $p[0]->texte, $r)
-			) {
-				continue;
-			}
-
-			if ($r[1]) {
-				$p[0]->texte = $r[1];
-			} else {
-				unset($p[0]);
-			}
-			$champ->texte = $p;
-			unset($champ->param[0][$k]);
-			if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) {
-				array_shift($champ->param);
-			}
-
-			return;
-		}
-	}
-	spip_log('inclure sans fond ni fichier');
+    normaliser_args_inclumodel($champ);
+    $l = $champ->param[0];
+    if (is_array($l) and !$l[0]) {
+        foreach ($l as $k => $p) {
+            if ($p and $p[0]->type == 'texte' and !strpos($p[0]->texte, '=')) {
+                $p[0]->texte = trim($p[0]->texte);
+            }
+        }
+        foreach ($l as $k => $p) {
+            if (
+                !$p or $p[0]->type != 'texte' or
+                !preg_match('/^fond\s*=\s*(.*)$/', $p[0]->texte, $r)
+            ) {
+                continue;
+            }
+
+            if ($r[1]) {
+                $p[0]->texte = $r[1];
+            } else {
+                unset($p[0]);
+            }
+            $champ->texte = $p;
+            unset($champ->param[0][$k]);
+            if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) {
+                array_shift($champ->param);
+            }
+
+            return;
+        }
+    }
+    spip_log('inclure sans fond ni fichier');
 }