Subversion Repositories Sites.tela-botanica.org

<?php

/***************************************************************************\

 *  SPIP, Systeme de publication pour l'internet                           *

 *                                                                         *

 *  Copyright (c) 2001-2005                                                *

 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *

 *                                                                         *

 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *

 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *

\***************************************************************************/

// fonctions de recherche et de reservation

// dans l'arborescence des boucles

// Ce fichier ne sera execute qu'une fois

if (defined("_INC_COMPILO_INDEX")) return;

define("_INC_COMPILO_INDEX", "1");

// index_pile retourne la position dans la pile du champ SQL $nom_champ

// en prenant la boucle la plus proche du sommet de pile (indique par $idb).

// Si on ne trouve rien, on considere que ca doit provenir du contexte

// (par l'URL ou l'include) qui a ete recopie dans Pile[0]

// (un essai d'affinage a debouche sur un bug vicieux)

// Si ca reference un champ SQL, on le memorise dans la structure $boucles

// afin de construire un requete SQL minimale (plutot qu'un brutal 'SELECT *')

function index_pile($idb, $nom_champ, &$boucles, $explicite='') {

  global $exceptions_des_tables, $table_des_tables, $tables_des_serveurs_sql;

	$i = 0;

	if (strlen($explicite)) {

	// Recherche d'un champ dans un etage superieur

	  while (($idb != $explicite) && ($idb !='')) {

#		spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");

			$i++;

			$idb = $boucles[$idb]->id_parent;

		}

	}

#	spip_log("Cherche: $nom_champ a partir de '$idb'");

	$c = strtolower($nom_champ);

	// attention: entre la boucle nommee 0, "" et le tableau vide,

	// il y a incoherences qu'il vaut mieux eviter

	while ($boucles[$idb]) {

		$r = $boucles[$idb]->type_requete;

		$s = $boucles[$idb]->sql_serveur;

		if (!$s)

		  { $s = 'localhost';

    // indirection (pour les rares cas ou le nom de la table!=type)

		    $t = $table_des_tables[$r];

		  }

		// pour les tables non Spip

		if (!$t) {$nom_table = $t = $r; }

		else $nom_table = 'spip_' . $t;

#		spip_log("Go: idb='$idb' r='$r' c='$c' nom='$nom_champ' s=$s t=$t");

		$desc = $tables_des_serveurs_sql[$s][$nom_table];

		if (!$desc) {

			erreur_squelette(_T('zbug_table_inconnue', array('table' => $r)),

				"'$idb'");

			# continuer pour chercher l'erreur suivante

			return  "'#" . $r . ':' . $nom_champ . "'";

		}

		$excep = $exceptions_des_tables[$r][$c];

		if ($excep) {

			// entite SPIP alias d'un champ SQL

			if (!is_array($excep)) {

				$e = $excep;

				$c = $excep;

			}

			// entite SPIP alias d'un champ dans une autre table SQL

			else {

				$t = $excep[0];

				$e = $excep[1].' AS '.$c;

			}

		}

		else {

			// $e est le type SQL de l'entree

			// entite SPIP homonyme au champ SQL

			if ($desc['field'][$c])

				$e = $c;

			else

				unset($e);

		}

#		spip_log("Dans $idb ('$t' '$e' '$c'): $desc");

		// On l'a trouve

		if ($e) {

		  $t .= ".$e";

		  if (!in_array($t, $boucles[$idb]->select))

		    $boucles[$idb]->select[] = $t;

		  return '$Pile[$SP' . ($i ? "-$i" : "") . '][\'' . $c . '\']';

		}

#		spip_log("On remonte vers $i");

		// Sinon on remonte d'un cran

		$idb = $boucles[$idb]->id_parent;

		$i++;

	}

#	spip_log("Pas vu $nom_champ");

	// esperons qu'il y sera

	return('$Pile[0][\''. strtolower($nom_champ) . '\']');

}

// cette fonction sert d'API pour demander le champ '$champ' dans la pile

function champ_sql($champ, $p) {

	return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle);

}

// cette fonction sert d'API pour demander une balise Spip avec filtres

function calculer_champ($p) {

	$p = calculer_balise($p->nom_champ, $p);

	return applique_filtres($p);

}

// cette fonction sert d'API pour demander une balise Spip sans filtres

function calculer_balise($nom, $p) {

	// regarder s'il existe une fonction personnalisee balise_NOM()

	$f = 'balise_' . $nom;

	if (function_exists($f))

		return $f($p);

	// regarder s'il existe une fonction standard balise_NOM_dist()

	$f = 'balise_' . $nom . '_dist';

	if (function_exists($f))

		return $f($p);

	// regarder s'il existe un fichier d'inclusion au nom de la balise

	// contenant une fonction balise_NOM_collecte

	$file = 'inc-' . strtolower($nom) . _EXTENSION_PHP;

	if ($file = find_in_path($file)) {

		include_local($file);

		# une globale ?? defined ou function_exists(..._dyn) serait mieux ?

		$f = $GLOBALS['balise_' . $nom . '_collecte'];

		if (is_array($f))

			return calculer_balise_dynamique($p, $nom, $f);

	}

	// S'agit-il d'un logo ? Une fonction speciale les traite tous

	if (ereg('^LOGO_', $nom))

		return calculer_balise_logo($p);

	// ca pourrait etre un champ SQL homonyme,

	$p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);

	if (strpos($nom, 'ID_') === 0) $p->statut = 'num';

	// Compatibilite ascendante avec les couleurs html (#FEFEFE) :

	// SI le champ SQL n'est pas trouve

	// ET si la balise a une forme de couleur

	// ET s'il n'y a ni filtre ni etoile

	// ALORS retourner la couleur.

	// Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]

	if (preg_match("/^[A-F]{1,6}$/i", $nom)

	AND !$p->etoile

	AND !$p->fonctions) {

		$p->code = "'#$nom'";

		$p->statut = 'php';

	}

	return $p;

}

//

// Traduction des balises dynamiques, notamment les "formulaire_*"

// Inclusion du fichier associe a son nom.

// Ca donne les arguments a chercher dans la pile,on compile leur localisation

// Ensuite on delegue a une fonction generale definie dans inc-calcul-outils

// qui recevra a l'execution la valeur des arguments,

// ainsi que les pseudo filtres qui ne sont donc pas traites a la compil

// mais on traite le vrai parametre si present.

function calculer_balise_dynamique($p, $nom, $l) {

	balise_distante_interdite($p);

	$param = "";

	if ($a = $p->param) {

		$c = array_shift($a);

		if  (!array_shift($c)) {

		  $p->fonctions = $a;

		  array_shift( $p->param );

		  $param = compose_filtres_args($p, $c, ',');

		}

	}

	$collecte = join(',',collecter_balise_dynamique($l, $p));

	$p->code = "executer_balise_dynamique('" . $nom . "',\n\tarray("

	  . $collecte

	  . ($collecte ? $param : substr($param,1)) # virer la virgule

	  . "),\n\tarray("

	  . argumenter_balise($p->param, "', '")

	  . "), \$GLOBALS['spip_lang'],"

	  . $p->ligne

	  . ')';

	$p->statut = 'php';

	$p->fonctions = array();

	$p->param = array();

	// Cas particulier de #FORMULAIRE_FORUM : inserer l'invalideur

	if ($nom == 'FORMULAIRE_FORUM')

		$p->code = code_invalideur_forums($p, $p->code);

	return $p;

}

// construire un tableau des valeurs interessant un formulaire

function collecter_balise_dynamique($l, $p) {

	$args = array();

	foreach($l as $c) { $x = calculer_balise($c, $p); $args[] = $x->code;}

	return $args;

}

function applique_filtres($p) {

	// pretraitements standards (explication dans inc-compilo-index)

	switch ($statut) {

		case 'num':

			$code = "intval($code)";

			break;

		case 'php':

			break;

		case 'html':

		default:

			$code = "trim($code)";

			break;

	}

//  processeurs standards (cf inc-balises.php3)

	$code = ($p->etoile ? $p->code : champs_traitements($p));

	// Appliquer les filtres perso

	if ($p->param) $code = compose_filtres($p, $code);

	// post-traitement securite

	if ($p->statut == 'html') $code = "interdire_scripts($code)";

	return $code;

}

function compose_filtres($p, $code)

{

  foreach($p->param as $filtre) {

    $fonc = array_shift($filtre);

    if ($fonc) {

      $arglist = compose_filtres_args($p, $filtre, ($fonc == '?' ? ':' : ','));

      if (function_exists($fonc))

	$code = "$fonc($code$arglist)";

      else if (strpos("x < > <= >= == === != !== <> ? ", " $fonc "))

	$code = "($code $fonc " . substr($arglist,1) . ')';

      else

	$code = "erreur_squelette('"

	  . texte_script(_T('zbug_erreur_filtre', array('filtre' => $fonc)))

	  ."','" . $p->id_boucle . "')";

    }

  }

  return $code;

}

function compose_filtres_args($p, $args, $sep)

{

	$arglist = "";

	foreach ($args as $arg) {

		$arglist .= $sep .

		  calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);

	}

	return $arglist;

}

//

// Reserve les champs necessaires a la comparaison avec le contexte donne par

// la boucle parente ; attention en recursif il faut les reserver chez soi-meme

// ET chez sa maman

//

function calculer_argument_precedent($idb, $nom_champ, &$boucles) {

	// si recursif, forcer l'extraction du champ SQL mais ignorer le code

	if ($boucles[$idb]->externe)

		index_pile ($idb, $nom_champ, $boucles);

	// retourner $Pile[$SP] et pas $Pile[0] (bug recursion en 1ere boucle)

	$prec = $boucles[$idb]->id_parent;

	return (!$prec ? ('$Pile[$SP][\''.$nom_champ.'\']') :

		index_pile($prec, $nom_champ, $boucles));

}

function rindex_pile($p, $champ, $motif)

{

	$n = 0;

	$b = $p->id_boucle;

	$p->code = '';

	while ($b != '') {

	if ($s = $p->boucles[$b]->param) {

	  foreach($s as $v) {

		if (strpos($v[1][0]->texte,$motif) !== false) {

		  $p->code = '$Pile[$SP' . (($n==0) ? "" : "-$n") .

			"]['$champ']";

		  $b = '';

		  break;

		}

	  }

	}

	$n++;

	$b = $p->boucles[$b]->id_parent;

	}

	if (!$p->code) {

		erreur_squelette(_T('zbug_champ_hors_motif',

			array('champ' => '#' . strtoupper($champ),

				'motif' => $motif)

		), $p->id_boucle);

	}

	$p->statut = 'php';

	return $p;

}

?>