Skip to content
Extraits de code Groupes Projets
Valider a47fc7dc rédigé par esj's avatar esj
Parcourir les fichiers

criteres emboites

parent 3191679a
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
Masquer les modifications d'espaces
En ligne Côte à côte
ecrire/inc_version.php3
+ 1
− 1
Voir le fichier @ a47fc7dc
......@@ -412,7 +412,7 @@ define_once('_AUTH_USER_FILE', '.htpasswd');
$spip_version = 1.816;
// version de spip
$spip_version_affichee = "1.8.1 CVS";
$spip_version_affichee = "1.8.2 CVS alpha";
// version de spip / tag cvs
if (ereg('Name: v(.*) ','$Name$', $regs)) $spip_version_affichee = $regs[1];
......
inc-balises.php3
+ 8
− 8
Voir le fichier @ a47fc7dc
......@@ -372,7 +372,7 @@ function balise_EXPOSER_dist($p) {
$on = addslashes($regs[1]);
$off = addslashes($regs[3]);
// autres filtres
array_shift($p->args);
array_shift($p->param);
}
......@@ -393,7 +393,7 @@ function balise_EMBED_DOCUMENT_dist($p) {
$p->code = "calcule_embed_document(intval($_id_document), " .
argumenter_balise($p->fonctions, "|") .
", \$doublons, '" . $p->descr['documents'] . "')";
$p->args = array();
$p->param = array();
$p->statut = 'html';
return $p;
}
......@@ -544,7 +544,7 @@ function calculer_balise_logo ($p) {
foreach($p->fonctions as $couple) {
// eliminer les faux filtres
if (!$flag_stop) {
array_shift($p->args);
array_shift($p->param);
$nom = $couple[0];
if (ereg('^(left|right|center|top|bottom)$', $nom))
$align = $nom;
......@@ -635,7 +635,7 @@ function balise_EXTRA_dist ($p) {
// Gerer la notation [(#EXTRA|isbn)]
if ($p->fonctions) {
$p->args = array();
$p->param = array();
include_ecrire("inc_extra.php3");
list ($key, $champ_extra) = each($p->fonctions); // le premier filtre
$type_extra = $p->type_requete;
......@@ -699,11 +699,11 @@ function balise_PARAMETRES_FORUM_dist($p) {
// Syntaxe [(#PARAMETRES_FORUM{#SELF})] pour fixer le retour du forum
# note : ce bloc qui sert a recuperer des arguments calcules pourrait
# porter un nom et faire partie de l'API.
if ($filtres = $p->args) {
if ($filtres = $p->param) {
$retour = array_shift($filtres);
if (!array_shift($retour)) {
$p->fonctions = $a;
array_shift( $p->args );
array_shift( $p->param );
$retour = calculer_liste($retour[0],
$p->descr,
$p->boucles,
......@@ -761,11 +761,11 @@ function balise_SELF_dist($p) {
//
function balise_ENV_dist($p) {
if ($a = $p->args) {
if ($a = $p->param) {
$sinon = array_shift($a);
if (!array_shift($sinon)) {
$p->fonctions = $a;
array_shift( $p->args );
array_shift( $p->param );
$nom = array_shift($sinon);
$nom = ($nom[0]->type=='texte') ? $nom[0]->texte : "";
}
......
inc-compilo-api.php3
+ 7
− 7
Voir le fichier @ a47fc7dc
......@@ -21,12 +21,13 @@ define("_INC_COMPILO_API", "1");
class Texte {
var $type = 'texte';
var $texte;
var $avant, $apres = ""; // s'il y avait des guillemets autour
}
class Inclure {
var $type = 'include';
var $texte;
var $args = array(); // valeurs des params
var $param = array(); // valeurs des params
var $avant, $apres; // inutilises mais generiques
}
......@@ -73,10 +74,9 @@ class Boucle {
// sous-noeud du precedent
class Critere {
var $operateur;
var $arg1;
var $arg2;
var $op;
var $not;
var $param;
}
class Champ {
......@@ -85,7 +85,7 @@ class Champ {
var $nom_boucle= ''; // seulement si boucle explicite
var $avant, $apres; // tableaux d'objets
var $etoile;
var $filtres = array(); // filtre explicites
var $param = array(); // filtre explicites
var $fonctions = array(); // source des filtres (compatibilite)
// champs pour la production de code
var $id_boucle;
......@@ -106,8 +106,8 @@ class Idiome {
var $type = 'idiome';
var $nom_champ = ""; // la chaine a traduire
var $module = ""; // son module de definition
var $filtres = array(); // les filtres a appliquer au resultat
var $fonctions = array(); // source des filtres
var $param = array(); // les filtres a appliquer au resultat
var $fonctions = array(); // source des filtres (compatibilite)
var $avant, $apres; // inutilises mais faut = ci-dessus
// champs pour la production de code, cf ci-dessus
var $id_boucle;
......
inc-compilo-index.php3
+ 6
− 15
Voir le fichier @ a47fc7dc
......@@ -192,11 +192,11 @@ function calculer_balise($nom, $p) {
function calculer_balise_dynamique($p, $nom, $l) {
balise_distante_interdite($p);
$param = "";
if ($a = $p->args) {
if ($a = $p->param) {
$c = array_shift($a);
if (!array_shift($c)) {
$p->fonctions = $a;
array_shift( $p->args );
array_shift( $p->param );
$param = compose_filtres_args($p, $c, ',');
}
}
......@@ -205,11 +205,11 @@ function calculer_balise_dynamique($p, $nom, $l) {
. $collecte
. ($collecte ? $param : substr($param,1)) # virer la virgule
. "),\n\tarray("
. argumenter_balise($p->args, "', '")
. argumenter_balise($p->param, "', '")
. "), \$GLOBALS['spip_lang'])";
$p->statut = 'php';
$p->fonctions = array();
$p->args = array();
$p->param = array();
// Cas particulier de #FORMULAIRE_FORUM : inserer l'invalideur
if ($nom == 'FORMULAIRE_FORUM')
......@@ -218,15 +218,6 @@ function calculer_balise_dynamique($p, $nom, $l) {
return $p;
}
function param_balise(&$p) {
if (!($a=$p->fonctions)) return "";
$c = array_shift($a);
if ($c[0]) return "";
$p->fonctions = $a;
array_shift( $p->args );
return $c[1];
}
// construire un tableau des valeurs interessant un formulaire
function collecter_balise_dynamique($l, $p) {
......@@ -253,7 +244,7 @@ function applique_filtres($p) {
// processeurs standards (cf inc-balises.php3)
$code = ($p->etoile ? $p->code : champs_traitements($p));
// Appliquer les filtres perso
if ($p->args) $code = compose_filtres($p, $code);
if ($p->param) $code = compose_filtres($p, $code);
// post-traitement securite
if ($p->statut == 'html') $code = "interdire_scripts($code)";
return $code;
......@@ -261,7 +252,7 @@ function applique_filtres($p) {
function compose_filtres($p, $code)
{
foreach($p->args as $filtre) {
foreach($p->param as $filtre) {
$fonc = array_shift($filtre);
if ($fonc) {
$arglist = compose_filtres_args($p, $filtre, ($fonc == '?' ? ':' : ','));
......
inc-compilo.php3
+ 9
− 14
Voir le fichier @ a47fc7dc
......@@ -58,7 +58,7 @@ function calculer_inclure($struct, $descr, &$boucles, $id_boucle, $niv) {
}
$l = array();
foreach($struct->args as $val) {
foreach($struct->param as $val) {
$var = array_shift($val);
$l[] = "\'$var\' => \'' . addslashes(" .
($val ? calculer_liste($val[0], $descr, $boucles, $id_boucle, $niv) :
......@@ -513,27 +513,21 @@ function calculer_squelette($squelette, $nom, $gram, $sourcefile) {
if ($boucles) {
// une boucle documents est conditionnee par tout le reste!
// une boucle avec critere de recheche conditionne tout le reste!
// (a cause du cas #nom_de_boucle:URL_*)
//
foreach($boucles as $idb => $boucle)
{
if ($boucle->param && is_array($boucle->param)) {
foreach($boucles as $idb => $boucle) {
if ($boucle->param) {
if (($boucle->type_requete == 'documents') &&
in_array('doublons',$boucle->param))
$boucle->doublons)
{ $descr['documents'] = true; break; }
if (in_array('recherche',$boucle->param))
$boucles[$idb]->hash = true;
}
}
// Commencer par reperer les boucles appelees explicitement
// car elles indexent les arguments de maniere derogatoire
foreach($boucles as $id => $boucle) {
if ($boucle->type_requete == 'boucle') {
$rec = &$boucles[$boucle->param];
$rec = &$boucles[$boucle->param[0]];
if (!$rec) {
return array(_T('zbug_info_erreur_squelette'),
($boucle->param
($boucle->param[0]
. ' '. _T('zbug_boucle_recursive_undef')));
} else {
$rec->externe = $id;
......@@ -602,8 +596,9 @@ function calculer_squelette($squelette, $nom, $gram, $sourcefile) {
// Reproduire la boucle en commentaire
$pretty = "BOUCLE$id(".strtoupper($boucle->type_requete).")";
if ($boucle->param && is_array($boucle->param))
$pretty .= " {".join("} {", $boucle->param)."}";
// anachronique. A refaire.
/* if ($boucle->param && is_array($boucle->param))
$pretty .= " {".join("} {", $boucle->param)."}";*/
// sans oublier les parametres traites en amont
if ($boucle->separateur)
foreach($boucle->separateur as $v)
......
inc-criteres.php3
+ 285
− 381
Voir le fichier @ a47fc7dc
......@@ -22,10 +22,11 @@ define("_INC_CRITERES", "1");
// {racine}
// http://www.spip.net/@racine
function critere_racine_dist($idb, &$boucles, $param, $not) {
function critere_racine_dist($idb, &$boucles, $crit) {
$not = $crit->not;
$boucle = &$boucles[$idb];
if ($param != 'racine' OR $not)
if ($not)
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
$boucle->where[] = $boucle->id_table.".id_parent='0'";
......@@ -34,28 +35,24 @@ function critere_racine_dist($idb, &$boucles, $param, $not) {
// {exclus}
// http://www.spip.net/@exclus
function critere_exclus_dist($idb, &$boucles, $param, $not) {
function critere_exclus_dist($idb, &$boucles, $crit) {
$param = $crit->op;
$not = $crit->not;
$boucle = &$boucles[$idb];
$id = $boucle->primary;
if ($param != 'exclus' OR $not OR !$id)
if ($not OR !$id)
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
$arg = calculer_argument_precedent($idb,$id, $boucles);
$boucle->where[] = $boucle->id_table . '.' . $id."!='\"." . $arg . ".\"'";
}
// {doublons} ou {unique}
// http://www.spip.net/@doublons
function critere_doublons_dist($idb, &$boucles, $param, $not) {
function critere_doublons_dist($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
if (!preg_match("/(doublons|unique)[[:space:]]*([a-z_0-9]*)/i",
$param, $match))
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
$boucle->doublons = $boucle->type_requete . $match[2];
$boucle->doublons = $boucle->type_requete . $crit->param[0][0]->texte;
$boucle->where[] = '" .' .
"calcul_mysql_in('".$boucle->id_table . '.' . $boucle->primary."', "
.'"0".$doublons[\''.$boucle->doublons."'], 'NOT') . \"";
......@@ -63,33 +60,28 @@ function critere_doublons_dist($idb, &$boucles, $param, $not) {
// {lang_select}
// http://www.spip.net/@lang_select
function critere_lang_select_dist($idb, &$boucles, $param, $not) {
function critere_lang_select_dist($idb, &$boucles, $crit) {
if (!($param = $crit->param[1][0]->texte)) $param = 'oui';
if ($crit->not) $param = ($param=='oui')?'non':'oui';
$boucle = &$boucles[$idb];
if (preg_match('/lang_select(=(oui|non))?$/i', $param, $match)) {
if (!$lang_select = $match[2])
$lang_select = 'oui';
if ($not)
$lang_select = ($lang_select=='oui')?'non':'oui';
$boucle->lang_select = $lang_select;
}
else erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
$boucle->lang_select = $param;
}
// {debut_xxx}
// http://www.spip.net/@debut_
function critere_debut_dist($idb, &$boucles, $param, $not) {
function critere_debut_dist($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
if (ereg('^debut([-_a-zA-Z0-9]+),([0-9]*)$', $param, $match)) {
$debut_lim = "debut".$match[1];
$boucle->limit =
'intval($GLOBALS["'.$debut_lim.'"]).",'.$match[2] .'"' ;
}
else erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
$boucle->limit = 'intval($GLOBALS["debut' .
$crit->param[0][0]->texte .
'"]) . ",' .
$crit->param[1][0]->texte .
'"' ;
}
// {recherche}
// http://www.spip.net/@recherche
function critere_recherche_dist($idb, &$boucles, $param, $not) {
function critere_recherche_dist($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
$table = $boucle->id_table; #articles
......@@ -108,10 +100,13 @@ function critere_recherche_dist($idb, &$boucles, $param, $not) {
// {inverse}
// http://www.spip.net/@inverse
function critere_inverse_dist($idb, &$boucles, $param, $not) {
function critere_inverse_dist($idb, &$boucles, $crit) {
$param = $crit->op;
$not = $crit->not;
$boucle = &$boucles[$idb];
// Classement par ordre inverse
if ($param == 'inverse' AND !$not) {
if (!$not) {
if ($boucle->order)
$boucle->order .= ".' DESC'";
else
......@@ -125,10 +120,9 @@ function critere_inverse_dist($idb, &$boucles, $param, $not) {
// http://www.spip.net/@traduction
// (id_trad>0 AND id_trad=id_trad(precedent))
// OR id_article=id_article(precedent)
function critere_traduction_dist($idb, &$boucles, $param, $not) {
function critere_traduction_dist($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
if ($param == 'traduction') {
$boucle->where[] = "((".$boucle->id_table.".id_trad > 0 AND "
$boucle->where[] = "((".$boucle->id_table.".id_trad > 0 AND "
. $boucle->id_table.".id_trad ='\"."
. calculer_argument_precedent($idb, 'id_trad',
$boucles)
......@@ -138,30 +132,22 @@ function critere_traduction_dist($idb, &$boucles, $param, $not) {
. calculer_argument_precedent($idb, $boucle->primary,
$boucles)
. ".\"'))";
} else
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
}
// {origine_traduction}
// http://www.spip.net/@origine_traduction
function critere_origine_traduction_dist($idb, &$boucles, $param, $not) {
function critere_origine_traduction_dist($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
if ($param == 'origine_traduction')
$boucle->where[] = $boucle->id_table.".id_trad = "
. $boucle->id_table . '.' . $boucle->primary;
else
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
$boucle->where[] = $boucle->id_table.".id_trad = "
. $boucle->id_table . '.' . $boucle->primary;
}
// {meme_parent}
// http://www.spip.net/@meme_parent
function critere_meme_parent_dist($idb, &$boucles, $param, $not) {
function critere_meme_parent_dist($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
if ($param != 'meme_parent')
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
else {
if ($boucle->type_requete == 'rubriques') {
if ($boucle->type_requete == 'rubriques') {
$boucle->where[] = $boucle->id_table.".id_parent='\"."
. calculer_argument_precedent($idb, 'id_parent',
$boucles)
......@@ -173,49 +159,48 @@ function critere_meme_parent_dist($idb, &$boucles, $param, $not) {
. ".\"'";
$boucle->where[] = $boucle->id_table.".id_parent > 0";
$boucle->plat = true;
} else
erreur_squelette(_T('zbug_erreur_meme_parent'), "BOUCLE" . $idb);
}
}
// {branche ?}
// http://www.spip.net/@branche
function critere_branche_dist($idb, &$boucles, $param, $not) {
function critere_branche_dist($idb, &$boucles, $crit) {
$not = $crit->not;
$boucle = &$boucles[$idb];
if (preg_match('/branche[[:space:]]*([?])?$/i', $param, $regs)) {
$c = "calcul_mysql_in('".$boucle->id_table.".id_rubrique',
$c = "calcul_mysql_in('".$boucle->id_table.".id_rubrique',
calcul_branche(" . calculer_argument_precedent($idb,
'id_rubrique', $boucles) . "), '')";
if (!$regs[1])
if (!$crit->cond)
$where = "\". $c .\"" ;
else
else
$where = "\".("
. calculer_argument_precedent($idb, 'id_rubrique',
$boucles)."? $c : 1).\"";
if ($not)
if ($not)
$boucle->where[] = "NOT($where)";
else
else
$boucle->where[] = $where;
} else
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
}
// Tri : {par xxxx}
// http://www.spip.net/@par
function critere_par_dist($idb, &$boucles, $param, $not) {
function critere_par_dist($idb, &$boucles, $crit) {
$not = $crit->not;
$boucle = &$boucles[$idb];
if ($not)
erreur_squelette(_T('zbug_info_erreur_squelette'), $param);
$param = ltrim(substr($param,3));
$params = $crit->param;
while ($param) {
preg_match('/(([^{,]*[{][^}]*[}])|([^,]*))[[:space:]]*,?[[:space:]]*(.*)/ims',
$param, $regs);
$param = $regs[4];
$tri = $regs[1];
foreach ($params as $tri) {
// tris specifies dynamiquement
if ($tri[0]->type != 'texte')
$order = calculer_liste($tri, array(), $boucles, $idb);
else {
// on considere que {par col#ENV{num}} est imposible
$tri = $tri[0]->texte;
// par hasard
if ($tri == 'hasard') {
// tester si cette version de MySQL accepte la commande RAND()
......@@ -244,12 +229,13 @@ function critere_par_dist($idb, &$boucles, $param, $not) {
$order = "'num'";
}
// par champ. Verifier qu'ils sont presents.
else if (ereg("^[a-z][a-z0-9]*$", $tri)) {
if ($tri == 'date')
$order = "'".$boucle->id_table.".".
$GLOBALS['table_date'][$boucle->type_requete]
."'";
else {
else
if (ereg("^[a-z][a-z0-9_]*$", $tri)) {
if ($tri == 'date')
$order = "'".$boucle->id_table.".".
$GLOBALS['table_date'][$boucle->type_requete]
."'";
else {
global $table_des_tables, $tables_des_serveurs_sql;
$r = $boucle->type_requete;
$s = $boucles[$idb]->sql_serveur;
......@@ -266,39 +252,24 @@ function critere_par_dist($idb, &$boucles, $param, $not) {
}
}
}
// tris specifies par l'URL ?
else {
$order = simplifie_param_dynamique($tri, $boucles, $idb);
if ($order == $tri) $order = "'" . $order . "'";
}
}
// au final, gestion des tris multiples
if ($order) {
if ($boucle->order) $boucle->order .= '.",".';
$boucle->order .= $order;
}
}
}
// Le critere {statut=...}
// particularite : si on l'invoque dans une boucle il faut interdire
// a la boucle de mettre ses propres criteres de statut
// http://www.spip.net/@statut (a documenter)
function critere_statut_dist($idb, &$boucles, $param, $not) {
// interdire a function boucle_BOUCLE() de regler le statut
$boucle = &$boucles[$idb];
$boucle->where['statut'] = '1';
return calculer_critere_DEFAUT($idb, $boucles, $param, $not);
}
}
function calculer_critere_parties($idb, &$boucles, $param, $not, $match) {
function calculer_critere_parties($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
list(,$a1,$op,$a2) = $match;
$a1 = $crit->param[0];
$a2 = $crit->param[1];
$op = $crit->op;
list($a11,$a12) = calculer_critere_parties_aux($idb, $boucles, $a1);
list($a21,$a22) = calculer_critere_parties_aux($idb, $boucles, $a2);
if (($op== ',')&&(is_numeric($a11) && (is_numeric($a21))))
$boucle->limit = $a11 .',' . $a21;
$boucle->limit = $a11 .',' . $a21;
else {
$boucle->partie = ($a11 != 'n') ? $a11 : $a12;
$boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
......@@ -308,27 +279,25 @@ function calculer_critere_parties($idb, &$boucles, $param, $not, $match) {
}
function calculer_critere_parties_aux($idb, &$boucles, $param) {
ereg('^(([0-9]+)|n|(#.*))(-([0-9]+))?$', $param, $m);
if ($m[1] == 'n')
$a = 'n';
else {
$a = simplifie_param_dynamique($m[1], $boucles, $idb);
if ($param[0]->type == 'texte')
{
ereg('^(([0-9]+)|n)(-([0-9]+))?$', $param[0]->texte, $m);
return array($m[1], ($m[4] ? $m[4] : 0));
} else {
$a1 = calculer_liste(array($param[0]), array(), $idb, $boucles);
ereg('^ *(-([0-9]+))?$', $param[1]->texte, $m);
return array("intval($a1)", ($m[2] ? $m[2] : 0));
}
return array($a, ($m[5] ? $m[5] : 0));
}
//
// La fonction d'aiguillage sur le nom du criteres
// La fonction d'aiguillage sur le nom du critere
//
function calculer_criteres ($idb, &$boucles) {
foreach($boucles[$idb]->param as $param) {
// Analyse du critere
preg_match("/^([!]?)[[:space:]]*(debut|([a-z_]+))/ism",
$param, $match);
$critere = $match[2];
$not = ($match[1] == '!');
foreach($boucles[$idb]->criteres as $crit) {
$critere = $crit->op;
// critere personnalise ?
$f = "critere_".$critere;
......@@ -336,235 +305,239 @@ function calculer_criteres ($idb, &$boucles) {
$f .= '_dist';
// fonction critere standard ?
if (!function_exists($f))
$f = 'calculer_critere_DEFAUT';
if (!function_exists($f)) {
// double cas particulier repere a l'analyse lexicale
if (($critere == ",") OR ($critere == '/'))
$f = 'calculer_critere_parties';
else $f = 'calculer_critere_DEFAUT';
}
// Applique le critere
$res = $f($idb, $boucles, $param, $not);
$res = $f($idb, $boucles, $crit);
// gestion d'erreur
// Gestion d'erreur
if (is_array($res)) erreur_squelette($res);
}
}
# Criteres numeriques et de comparaison
function calculer_critere_DEFAUT($idb, &$boucles, $param, $not) {
function calculer_critere_DEFAUT($idb, &$boucles, $crit) {
global $table_date, $tables_des_serveurs_sql;
$boucle = &$boucles[$idb];
$type = $boucle->type_requete;
$id_table = $boucle->id_table;
$col_table = $id_table = $boucle->id_table;
$primary = $boucle->primary;
$id_field = $id_table . '.' . $primary;
$fct = '';
// cas d'une valeur comparee a elle-meme ou son referent
if (count($crit->param) ==0)
{ $op = '=';
$col = $crit->op;
$val = $crit->op;
// Cas special {lang} : aller chercher $GLOBALS['spip_lang']
if ($val == 'lang')
$val = '".$GLOBALS[\'spip_lang\']."';
else {
// Si id_parent, comparer l'id_parent avec l'id_objet
// de la boucle superieure.... faudrait verifier qu'il existe
// pour eviter l'erreur SQL
if ($val == 'id_parent')
$val = $primary;
// Si id_enfant, comparer l'id_objet avec l'id_parent
// de la boucle superieure
else if ($val == 'id_enfant')
$val = 'id_parent';
$val = array("addslashes(" .calculer_argument_precedent($idb, $val, $boucles) .")");
}
}
else
{
// comparaison explicite
// le phraseur impose que le premier param soit du texte
$params = $crit->param;
$col = array_shift($params);
$col = $col[0]->texte;
$op = $crit->op;
// fonction SQL ?
if (ereg("([a-z_]+)\(([a-z_]+)\)", $col,$match3)) {
$col = $match3[2];
$fct = $match3[1];
}
$val = array();
foreach ($params as $param)
$val[] = calculer_liste($param, array(), $boucles, $idb);
spip_log("vol0: $val[0]");
}
if (ereg('^([0-9a-zA-Z#_}{-]+)([,/])([0-9a-zA-Z#_}{-]+)$', $param, $match))
calculer_critere_parties($idb, $boucles, $param, $not, $match);
// Restriction de valeurs (implicite ou explicite)
else if (eregi('^(`?[a-z_]+\(?[a-z_]*\)?`?) *(\??)((!?)(<=?|>=?|==?|IN) *"?([^<>=!"]*))?"?$', $param, $match)) {
$op = $match[5] ? $match[5] : '=';
// Variable comparee
$col = $match[1];
// fonction SQL
$fct = '';
if (ereg("([a-z_]+)\(([a-z_]+)\)", $col,$match3)) {
$col = $match3[2];
$fct = $match3[1];
}
$col_table = $id_table;
// Valeur de comparaison
if ($match[3]) {
if (strtoupper($op) != 'IN') {
$val = calculer_param_dynamique($match[6], $boucles, $boucles[$idb]->id_parent);
// gestion d'erreur
if (is_array($val)) erreur_squelette($val);
}
else {
// traitement special des valeurs textuelles
$val = calculer_params_dynamiques($match[6], $boucles, $idb);
}
}
else {
$val = $match[1];
// Cas special {lang} : aller chercher $GLOBALS['spip_lang']
if ($val == 'lang')
$val = '".$GLOBALS[\'spip_lang\']."';
else {
// Si id_parent, comparer l'id_parent avec l'id_objet
// de la boucle superieure
if ($val == 'id_parent')
$val = $primary;
// Si id_enfant, comparer l'id_objet avec l'id_parent
// de la boucle superieure
else if ($val == 'id_enfant')
$val = 'id_parent';
$val = calculer_argument_precedent($idb, $val, $boucles) ;
if (ereg('^\$',$val))
$val = '" . addslashes(' . $val . ') . "';
else
$val = addslashes($val);
}
}
// cas special: statut=
// si on l'invoque dans une boucle il faut interdire
// a la boucle de mettre ses propres criteres de statut
// http://www.spip.net/@statut (a documenter)
if ($col == 'statut')
$result->where['statut'] = '1';
if ($s = calculer_critere_externe($boucle, $id_field,$col, $type)) {
$col_table = $s;
}
if ($s = calculer_critere_externe($boucle, $id_field,$col, $type))
$col_table = $s;
// Cas particulier pour les raccourcis 'type_mot' et 'titre_mot'
else if ($type != 'mots'
// Cas particulier pour les raccourcis 'type_mot' et 'titre_mot'
else if ($type != 'mots'
AND ($col == 'type_mot' OR $col == 'titre_mot'
OR $col == 'id_groupe')) {
if ($type == 'forums')
$col_lien = "forum";
else if ($type == 'syndication')
$col_lien = "syndic";
else
$col_lien = $type;
$boucle->from[] = "spip_mots_$col_lien AS lien_mot";
$boucle->from[] = 'spip_mots AS mots';
$boucle->where[] = "$id_field=lien_mot." . $primary;
$boucle->where[] = 'lien_mot.id_mot=mots.id_mot';
$boucle->group = $id_field;
$boucle->select[] = $id_field; # pour postgres, neuneu ici
$col_table = 'mots';
$boucle->lien = true;
if ($col == 'type_mot')
$col = 'type';
else if ($col == 'titre_mot')
$col = 'titre';
else if ($col == 'id_groupe')
$col = 'id_groupe';
}
if ($type == 'forums')
$col_lien = "forum";
else if ($type == 'syndication')
$col_lien = "syndic";
else
$col_lien = $type;
$boucle->from[] = "spip_mots_$col_lien AS lien_mot";
$boucle->from[] = 'spip_mots AS mots';
$boucle->where[] = "$id_field=lien_mot." . $primary;
$boucle->where[] = 'lien_mot.id_mot=mots.id_mot';
$boucle->group = $id_field;
$boucle->select[] = $id_field; # pour postgres, neuneu ici
$col_table = 'mots';
$boucle->lien = true;
if ($col == 'type_mot')
$col = 'type';
else if ($col == 'titre_mot')
$col = 'titre';
else if ($col == 'id_groupe')
$col = 'id_groupe';
}
// Cas particulier : selection des documents selon l'extension
if ($type == 'documents' AND $col == 'extension')
$col_table = 'types_documents';
// HACK : selection des documents selon mode 'image'
// (a creer en dur dans la base)
else if ($type == 'documents' AND $col == 'mode'
AND $val == 'image')
$val = 'vignette';
// Cas particulier : lier les articles syndiques
// au site correspondant
else if ($type == 'syndic_articles' AND
!ereg("^(id_syndic_article|titre|url|date|descriptif|lesauteurs|id_document)$",$col))
$col_table = 'syndic';
// Cas particulier : id_enfant => utiliser la colonne id_objet
if ($col == 'id_enfant')
$col = $primary;
// Cas particulier : id_secteur = id_rubrique pour certaines tables
if (($type == 'breves' OR $type == 'forums') AND $col == 'id_secteur')
$col = 'id_rubrique';
// Cas particulier : expressions de date
if (ereg("^(date|mois|annee|heure|age|age_relatif|jour_relatif|mois_relatif|annee_relatif)(_redac)?$", $col, $regs)) {
$col = $regs[1];
if ($regs[2]) {
$date_orig = $id_table . ".date_redac";
$date_compare = '\'" . normaliser_date(' .
calculer_argument_precedent($idb, 'date_redac', $boucles) .
') . "\'';
}
else {
$date_orig = "$id_table." . $table_date[$type];
$date_compare = '\'" . normaliser_date(' .
calculer_argument_precedent($idb, 'date', $boucles) .
') . "\'';
}
if ($col == 'date') {
$col = $date_orig;
$col_table = '';
}
else if ($col == 'mois') {
$col = "MONTH($date_orig)";
$col_table = '';
}
else if ($col == 'annee') {
$col = "YEAR($date_orig)";
$col_table = '';
}
else if ($col == 'heure') {
$col = "DATE_FORMAT($date_orig, '%H:%i')";
$col_table = '';
}
else if ($col == 'age') {
$col = calculer_param_date("now()", $date_orig);
$col_table = '';
}
else if ($col == 'age_relatif') {
$col = calculer_param_date($date_compare, $date_orig);
$col_table = '';
}
else if ($col == 'jour_relatif') {
$col = "LEAST(TO_DAYS(" .$date_compare . ")-TO_DAYS(" .
$date_orig . "), DAYOFMONTH(" . $date_compare .
")-DAYOFMONTH(" . $date_orig . ")+30.4368*(MONTH(" .
$date_compare . ")-MONTH(" . $date_orig .
"))+365.2422*(YEAR(" . $date_compare . ")-YEAR(" .
$date_orig . ")))";
$col_table = '';
}
else if ($col == 'mois_relatif') {
$col = "MONTH(" . $date_compare . ")-MONTH(" .
$date_orig . ")+12*(YEAR(" . $date_compare .
")-YEAR(" . $date_orig . "))";
$col_table = '';
}
else if ($col == 'annee_relatif') {
$col = "YEAR(" . $date_compare . ")-YEAR(" .
$date_orig . ")";
$col_table = '';
}
}
// Cas particulier : selection des documents selon l'extension
if ($type == 'documents' AND $col == 'extension')
$col_table = 'types_documents';
// HACK : selection des documents selon mode 'image'
// (a creer en dur dans la base)
else if ($type == 'documents' AND $col == 'mode' AND $val[0] == "'image'")
$val[0] = "'vignette'";
// Cas particulier : lier les articles syndiques
// au site correspondant
else if ($type == 'syndic_articles' AND
!ereg("^(id_syndic_article|titre|url|date|descriptif|lesauteurs|id_document)$",$col))
$col_table = 'syndic';
// Cas particulier : id_enfant => utiliser la colonne id_objet
if ($col == 'id_enfant')
$col = $primary;
// Cas particulier : id_secteur = id_rubrique pour certaines tables
if (($type == 'breves' OR $type == 'forums') AND $col == 'id_secteur')
$col = 'id_rubrique';
// Cas particulier : expressions de date
if (ereg("^(date|mois|annee|heure|age|age_relatif|jour_relatif|mois_relatif|annee_relatif)(_redac)?$", $col, $regs)) {
$col = $regs[1];
if ($regs[2]) {
$date_orig = $id_table . ".date_redac";
$date_compare = '\'" . normaliser_date(' .
calculer_argument_precedent($idb, 'date_redac', $boucles) .
') . "\'';
}
else {
$date_orig = "$id_table." . $table_date[$type];
$date_compare = '\'" . normaliser_date(' .
calculer_argument_precedent($idb, 'date', $boucles) .
') . "\'';
}
if ($type == 'forums' AND
($col == 'id_parent' OR $col == 'id_forum'))
$boucle->plat = true;
if ($col == 'date') {
$col = $date_orig;
$col_table = '';
}
else if ($col == 'mois') {
$col = "MONTH($date_orig)";
$col_table = '';
}
else if ($col == 'annee') {
$col = "YEAR($date_orig)";
$col_table = '';
}
else if ($col == 'heure') {
$col = "DATE_FORMAT($date_orig, '%H:%i')";
$col_table = '';
}
else if ($col == 'age') {
$col = calculer_param_date("now()", $date_orig);
$col_table = '';
}
else if ($col == 'age_relatif') {
$col = calculer_param_date($date_compare, $date_orig);
$col_table = '';
}
else if ($col == 'jour_relatif') {
$col = "LEAST(TO_DAYS(" .$date_compare . ")-TO_DAYS(" .
$date_orig . "), DAYOFMONTH(" . $date_compare .
")-DAYOFMONTH(" . $date_orig . ")+30.4368*(MONTH(" .
$date_compare . ")-MONTH(" . $date_orig .
"))+365.2422*(YEAR(" . $date_compare . ")-YEAR(" .
$date_orig . ")))";
$col_table = '';
}
else if ($col == 'mois_relatif') {
$col = "MONTH(" . $date_compare . ")-MONTH(" .
$date_orig . ")+12*(YEAR(" . $date_compare .
")-YEAR(" . $date_orig . "))";
$col_table = '';
}
else if ($col == 'annee_relatif') {
$col = "YEAR(" . $date_compare . ")-YEAR(" .
$date_orig . ")";
$col_table = '';
}
}
// Operateur de comparaison
if ($col_table) {
if ($col[0] == "`")
$col = "$col_table." . substr($col,1,-1);
else $col = "$col_table.$col";
}
if ($type == 'forums' AND
($col == 'id_parent' OR $col == 'id_forum'))
$boucle->plat = true;
if (strtoupper($op) == 'IN') {
// traitement special des valeurs textuelles
$where = "$col IN ($val)";
if ($match[4] == '!') {
$where = "NOT ($where)";
} else {
$boucle->default_order = 'rang';
$boucle->select[] =
"FIND_IN_SET($col, \\\"$val\\\") AS rang";
}
} else {
if ($op == '==') $op = 'REGEXP';
if ($fct) $col = "$fct($col)";
if ($match[4] == '!')
$where = "NOT ($col $op '$val')";
else
$where = "($col $op '$val')";
// operateur optionnel {lang?}
if ($match[2]) {
$champ = calculer_argument_precedent($idb, $match[1], $boucles) ;
$where = "\".($champ ? \"$where\" : 1).\"";
}
// Operateur de comparaison
if ($col_table) {
if ($col[0] == "`")
$col = "$col_table." . substr($col,1,-1);
else $col = "$col_table.$col";
}
spip_log("'$op'");
if (strtoupper($op) == 'IN') {
// traitement special d'une suite de valeurs
foreach ($val as $k => $v) {
spip_log("IN '$v'");
if (!ereg("^$", $v))
// il manque le addslashes mais il faut d'abord eliminer la chaine
// vide qui vient
$val[$k] = "\n'\" . addslashes(" . ($v) . ") . \"'";
}
$val = join(', ',$val);
if (!ereg("^ *\(.*) *$", $val)) $val = "($val)";
$where = "$col IN $val";
if ($crit->not) {
$where = "NOT ($where)";
} else {
$boucle->default_order = 'rang';
$boucle->select[] =
"FIND_IN_SET($col, \\\"$val\\\") AS rang";
}
} else {
if ($op == '==') $op = 'REGEXP';
if ($fct) $col = "$fct($col)";
$where = "($col $op '\" . " . $val[0] . ' . "\')';
if ($crit->not) $where = "NOT $where";
// operateur optionnel {lang?}
if ($crit->cond) {
$champ = calculer_argument_precedent($idb, $arg1, $boucles) ;
$where = "\".($champ ? \"$where\" : 1).\"";
}
}
$boucle->where[] = $where;
} // fin du if sur les restrictions de valeurs
else
erreur_squelette(_T('zbug_critere_inconnu', array('critere' => $param)));
}
$boucle->where[] = $where;
}
// traitement des relations externes par une jointure.
......@@ -588,7 +561,6 @@ function calculer_critere_externe(&$boucle, $id_field, $col, $type)
return $col_table;
}
function calculer_param_date($date_compare, $date_orig) {
return
"LEAST((UNIX_TIMESTAMP(" .
......@@ -614,72 +586,4 @@ function calculer_param_date($date_compare, $date_orig) {
")))";
}
//
// Calculer les parametres
//
// $val = le parametre (exemple : #_boucle:TITRE
// $boucle = le tableau des boucles
// $idb = la boucle de reference :
// - dans le cas d'un inclure, la boucle courante
// - dans le cas d'un parametre de boucle, la boucle parente
function calculer_param_dynamique($val, &$boucles, $idb) {
# if (ereg('^ *\((.*)) *$', $val, $m)) $val = $m[1]; # si on veut (#...)
if (ereg(NOM_DE_CHAMP . "([{][^}]*[}])?", $val, $regs)) {
#spip_log(serialize($regs)." ($idb)");
$champ = new Champ;
$champ->nom_boucle = $regs[2];
$champ->nom_champ = $regs[3];
$champ->etoile = $regs[4];
$champ->id_boucle = $idb;
$champ->boucles = &$boucles;
phraser_args($regs[5], "", "", array(), $champ);
$champ = calculer_champ($champ);
return '" . addslashes(' . $champ . ') . "';
} else {
if ($val[0]== '%') {
spip_log($val .
" est obsolete; utiliser ENV{" . substr($val,1) . "}");
return '" . addslashes($Pile[0][\''. substr($val,1) ."']) . \"";
}
else
return addslashes($val);
}
}
/*
// une version acceptant les champs etendus serait en gros:
function calculer_param_dynamique($val, &$boucles, $idb) {
return '" . addslashes(' .
calculer_liste(phraser_champs_etendus($val, array()),
array(), $boucles, $idb)
. ') . "';
}
/* */
//
function calculer_params_dynamiques($liste, &$boucles, $idb) {
ereg("^ *\(?(.*[^)])\)? *$",$liste, $reg);
$res = array();
foreach (split(" *, *", $reg[1]) as $v) {
$v = calculer_param_dynamique($v, $boucles, $boucles[$idb]->id_parent);
if (is_array($v)) erreur_squelette($v);
if (strpos('0123456789',$v[0]) !== false)
$res[] = $v;
else if ($v[0]=='"')
$res[] = "'" . $v . "'";
else
$res[] = "'$v'";
}
return join(',', $res);
}
function simplifie_param_dynamique($val, &$boucles, $idb)
{
$a = calculer_param_dynamique($val, $boucles, $boucles[$idb]->id_parent);
if (!ereg('" \. *(.*)\. "', $a, $m)) return $a;
return $m[1];
}
?>
inc-html-squel.php3
+ 173
− 76
Voir le fichier @ a47fc7dc
......@@ -23,16 +23,14 @@ define("_INC_HTML_SQUEL", "1");
define('NOM_DE_BOUCLE', "[0-9]+|[-_][-_.a-zA-Z0-9]*");
define('NOM_DE_CHAMP', "#((" . NOM_DE_BOUCLE . "):)?([A-Z_]+)(\*?)");
define('CHAMP_ETENDU', '\[([^]\[]*)\(' . NOM_DE_CHAMP . '([^[)]*\)[^]\[]*)\]');
define('PARAM_DE_BOUCLE','[[:space:]]*[{][[:space:]]*([^}{]*([{][^}]*[}][^}]*)*)[[:space:]]*[}]');
define('PARAM_DE_BOUCLE','[[:space:]]*[{][[:space:]]*([^{}]*([{][^[}]]*[}][^[}]]*)*)[[:space:]]*[}]');
define('TYPE_DE_BOUCLE', "[^)]*");
define('BALISE_DE_BOUCLE',
"^<BOUCLE(" .
NOM_DE_BOUCLE .
')[[:space:]]*\((' .
TYPE_DE_BOUCLE .
')\)((' .
PARAM_DE_BOUCLE .
')*)[[:space:]]*>');
')\)');
define('PARAM_INCLURE','^[[:space:]]*[{][[:space:]]*([_0-9a-zA-Z]+)[[:space:]]*(=)?');
define('BALISE_INCLURE','<INCLU[DR]E[[:space:]]*\(([^)]*)\)');
define('DEBUT_DE_BOUCLE','/<B('.NOM_DE_BOUCLE.')>.*?<BOUCLE\1[^-_.a-zA-Z0-9]|<BOUCLE('.NOM_DE_BOUCLE.')/ms'); # preg
......@@ -47,7 +45,7 @@ function phraser_inclure($texte, $result) {
$texte = substr($texte, $p+strlen($match[0]));
// on assimile {var=val} a une liste de un argument sans fonction
phraser_args($texte,">","",$result,$champ);
foreach ($champ->args as $k => $v) {
foreach ($champ->param as $k => $v) {
$var = $v[1][0];
if ($var->type != 'texte')
erreur_squelette(_T('zbug_parametres_inclus_incorrects'),
......@@ -55,16 +53,16 @@ function phraser_inclure($texte, $result) {
else {
ereg("^([^=]*)(=)?(.*)$", $var->texte,$m);
if ($m[2]) {
$champ->args[$k][0] = $m[1];
$champ->param[$k][0] = $m[1];
$val = $m[3];
if (ereg('^[\'"](.*)[\'"]$', $val, $m)) $val = $m[1];
$champ->args[$k][1][0]->texte = $val;
$champ->param[$k][1][0]->texte = $val;
}
else
$champ->args[$k] = array($m[1]);
$champ->param[$k] = array($m[1]);
}
}
$texte = $champ->apres;
$texte = substr($champ->apres,1);
$champ->apres = "";
$result[] = $champ;
}
......@@ -84,7 +82,7 @@ function phraser_polyglotte($texte,$result) {
$lang = '';
$bloc = $match[1];
$texte = substr($texte,$p+strlen($match[0]));
while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[{\[]([a-z_]+)[}\]](.*)$/si", $bloc, $regs)) {
while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)) {
$trad = $regs[1];
if ($trad OR $lang)
$champ->traductions[$lang] = $trad;
......@@ -159,17 +157,24 @@ function phraser_champs_etendus($texte, $result) {
// Analyse les filtres d'un champ etendu et affecte le resultat
// renvoie la liste des lexemes d'origine augmentee
// de ceux trouves dans les arguments des filtres (rare)
// sert aussi aux arguments des includes et aux criteres de boucles
// Tres chevelu
function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ) {
$texte = ltrim($texte);
while (($texte!=="") && $texte[0] != $fin) {
while (($texte!=="") && strpos($fin, $texte[0]) === false) {
ereg("^(\|?[^{)|]*)(.*)$", $texte, $match);
$suite = ltrim($match[2]);
$fonc = $match[1];
if ($fonc[0] == "|") $fonc = substr($fonc,1);
$res = array(trim($fonc));
$args = $suite;
if ($suite[0] == '{') {
if ($suite[0] != '{')
{ if (!$match[1]) {
erreur_squelette(_T('zbug_info_erreur_squelette'), $texte);
break;
}
} else {
$args = ltrim(substr($suite,1));
$collecte = array();
while ($args && $args[0] != '}') {
......@@ -177,48 +182,74 @@ function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ) {
ereg ('^(")([^"]*)(")(.*)$', $args, $regs);
else if ($args[0] == "'")
ereg ("^(')([^']*)(')(.*)$", $args, $regs);
else
ereg("^( *)([^,}{]*([{][^}{]*[}][^,}{]*)*[^,}]*)([,}$fin].*)$", $args, $regs);
else {
ereg("^( *)([^,}]*)([,}$fin].*)$", $args, $regs);
if (!strlen($regs[2]))
{
erreur_squelette(_T('zbug_info_erreur_squelette'), $args);
$args = '';
exit;
}
}
$args = ltrim($regs[count($regs)-1]);
$arg = $regs[2];
if (trim($regs[1])) { // valeur = ", ', ou vide
if (trim($regs[1])) {
$champ = new Texte;
$champ->texte = $arg;
$champ->apres = $champ->avant = $regs[1];
$result[] = $champ;
$collecte[] = $champ;
} else { // valeur = ", ', ou vide
if ((count($regs) > 3) &&
ereg("^(.*)(#[A-Z0-9:_=]+[{].*[}])(.*)$",$arg, $r))
{
// champ avec arg, sans les [( )]: on les rajoute
$arg = $r[1] . '[(' . $r[2] . ')' . $r[3] . ']';
$arg = phraser_champs_etendus($arg, array());
} else {
$arg = phraser_champs_exterieurs(ltrim($arg), $sep, $result);
$args = ltrim($regs[count($regs)-1]);
} else {
if (!ereg("^(.*)" . NOM_DE_CHAMP ."[|{]", $arg, $r)) {
$arg = phraser_champs_exterieurs($arg, $sep, $result);
$args = ltrim($regs[count($regs)-1]);
$collecte = array_merge($collecte, $arg);
$result = array_merge($result, $arg);
}
else {
$pred = $r[1];
$par = ',}';
if (ereg('(.*)\($', $pred, $m))
{$pred = $m[1]; $par =')';}
if ($pred) {
$champ = new Texte;
$champ->texte = $pred;
$champ->apres = $champ->avant = "";
$result[] = $champ;
$collecte[] = $champ;
}
$rec = substr($args, strpos($r[0],$args)+strlen($r[0])-1);
$champ = new Champ;
$champ->nom_boucle = $r[3];
$champ->nom_champ = $r[4];
$champ->etoile = $r[5];
phraser_args($rec, $par, $sep, array(), $champ);
$args = $champ->apres ;
$champ->apres = '';
if ($par==')') $args = substr($args,1);
$collecte[] = $champ;
$result[] = $champ;
}
$collecte = array_merge($collecte, $arg);
$result = array_merge($result, $arg);
}
$args = ltrim($args);
if ($args[0] == ',') {
$args = substr($args,1);
$args = ltrim(substr($args,1));
if ($collecte)
{$res[] = $collecte; $collecte = array();}
}
}
if ($collecte) {$res[] = $collecte; $collecte = array();}
$args = substr($args,1);
}
$n = strlen($suite) - strlen($args);
$pointeur_champ->args[] = $res;
$pointeur_champ->param[] = $res;
// pour les balises avec faux filtres qui boudent ce dur larbeur
$pointeur_champ->fonctions[] = array($fonc, substr($suite, 0, $n));
$texte = ltrim($args);
}
# virer la parenthese fermante ou le chevron fermant
$pointeur_champ->apres = substr($texte,1);
# laisser l'appelant virer le caractere fermant
$pointeur_champ->apres = $texte;
return $result;
}
......@@ -244,7 +275,7 @@ function phraser_champs_interieurs($texte, $sep, $result) {
// phraser_args indiquera ou commence apres
$result = phraser_args($regs[6], ")", $sep, $result, $champ);
$champ->avant = phraser_champs_exterieurs($regs[1],$sep,$result);
$champ->apres = phraser_champs_exterieurs($champ->apres,$sep,$result);
$champ->apres = phraser_champs_exterieurs(substr($champ->apres,1),$sep,$result);
$p = strpos($texte, $regs[0]);
......@@ -264,55 +295,123 @@ function phraser_champs_interieurs($texte, $sep, $result) {
else return phraser_champs_exterieurs($x, $sep, $result);}
}
// analyse des criteres de boucle,
function phraser_criteres($params, &$result) {
function phraser_param($params, &$result) {
$params2 = array();
$args = array();
$type = $result->type_requete;
while (ereg('^' . PARAM_DE_BOUCLE . '[[:space:]]*(.*)$', trim($params), $m)) {
$params = $m[3];
$param = trim($m[1]);
foreach($params as $v) {
$var = $v[1][0];
$param = ($var->type != 'texte') ? "" : $var->texte;
if ((count($v) > 2) && (!eregi("[^A-Za-z]IN[^A-Za-z]",$param)))
{
// plus d'un argument:
// c'est soit le critere LIMIT debut,fin si a se termine par un chiffre
// soit le critere PAR soit un critere perso
if (($var->type != 'texte') ||
(strpos("0123456789", $param[strlen($param)-1])
!== false))
$op = ',';
else {
ereg("^([a-zA-Z][a-zA-Z0-9]*) *(.*)$", $param, $m);
$op = $m[1];
$v[1][0]->texte = $m[2];
}
array_shift($v);
$crit = new Critere;
$crit->op = $op;
$crit->not = "";
$crit->param = $v;
$args[] = $crit;
} else {
if ($var->type != 'texte')
erreur_squelette('criteres','');
else {
// traiter qq lexemes particuliers pour faciliter la suite
if (($param == 'tout') OR ($param == 'tous'))
$result->tout = true;
else if ($param == 'plat')
$result->plat = true;
// les separateurs (specs CSS3 aN+b a finaliser)
else if (ereg('^"([^"}]*)"( *, *(\-?[0-9]*)n)?(\+?([0-9]+))?)?$', $param, $m))
$result->separateur[] = $m[1];
// les separateurs
if ($var->apres)
$result->separateur[] = $param;
elseif (($param == 'tout') OR ($param == 'tous'))
$result->tout = true;
elseif ($param == 'plat')
$result->plat = true;
// Boucle hierarchie, analyser le critere id_article - id_rubrique
// - id_syndic, afin, dans les cas autres que {id_rubrique}, de
// forcer {tout} pour avoir la rubrique mere...
else if (($type == 'hierarchie') &&
($param == 'id_article' OR $param == 'id_syndic'))
$result->tout = true;
else if (($type == 'hierarchie') && ($param == 'id_rubrique'))
{;}
else {
$params2[] = ($param == 'unique') ? 'doublons' :$param;
/* pour bientot
if (ereg('^([0-9a-zA-Z#_}{-]+)([,/])([0-9a-zA-Z#_}{-]+)$', $param, $match))
$args['parties'] = $match;
else if (eregi('^(`?[a-z_]+\(?[a-z_]*\)?`?) *(\??)(!?)(<=?|>=?|==?|IN) *"?([^<>=!"]*)"?$', $param, $match))
$args['comparaison'] = $match;
else {
preg_match("/^([!]?)[[:space:]]*(debut|([a-z_]+))/ism", $param, $match);
// contient aussi les comparaisons implicites !
$args[$match[2]] = $match;
*/
elseif (($type == 'hierarchie') &&
($param == 'id_article' OR $param == 'id_syndic'))
$result->tout = true;
elseif (($type == 'hierarchie') && ($param == 'id_rubrique'))
{;}
else {
// pas d'emplacement statique, faut un dynamique
/// mais il y a 2 cas qui ont les 2 !
if (($param == 'unique') || ($param == 'doublons'))
{
// sera remplace ensuite par la bonne valeur
// mais il faut l'indiquer tout de suite
$result->doublons = true;
$param = 'doublons';
}
elseif ($param == 'recherche')
// meme chose (a cause de #nom_de_boucle:URL_*)
$result->hash = true;
if (ereg('^([0-9-]+)(/)([0-9-]+)$', $param, $m)) {
$v[0] = $v[1];
$v[0][0]->texte = $m[1];
$v[1][0]->texte = $m[2];
$crit = new Critere;
$crit->op = '/';
$crit->not = "";
$crit->param = $v;
} elseif (ereg('^(`?[A-Za-z_]+\(?[A-Za-z_]*\)?`?) *(\??)(!?)(<=?|>=?|==?| IN) *"?([^<>=!"]*)"?$', $param, $m)) {
$v[0] = $v[1];
$v[0][0]->texte = $m[1];
$v[1][0]->texte = $m[5];
$crit = new Critere;
$crit->param = $v;
$crit->op = trim($m[4]);
$crit->not = $m[3];
$crit->cond = $m[2];
if ($m[1] == 'lang_select') $crit->op = $m[1];
} elseif (preg_match("/^([!]?)[[:space:]]*([a-z_]+)[[:space:]]*(\??)(.*)$/ism", $param, $m)) {
// contient aussi les comparaisons implicites !
array_shift($v);
if ($m[4])
$v[0][0]->texte = $m[4];
else {
array_shift($v[0]);
if (!$v[0]) array_shift($v);
}
$crit = new Critere;
$crit->op = $m[2];
$crit->param = $v;
$crit->not = $m[1];
$crit->cond = $m[3];
}
else
erreur_squelette(_T('zbug_critere_inconnu',
array('critere' => $param)));
$args[] = $crit;
}
}
}
}
$result->param = $params2;
// pour bientot $result->args = $args2;
$result->criteres = $args;
}
function phraser($texte, $id_parent, &$boucles, $nom) {
$all_res = array();
while (preg_match(DEBUT_DE_BOUCLE, $texte, $regs)) {
$nom_boucle = $regs[1].$regs[2];
$p = strpos($texte, '<BOUCLE'.$nom_boucle);
......@@ -330,12 +429,11 @@ function phraser($texte, $id_parent, &$boucles, $nom) {
//
$debut = substr($texte, 0, $p);
$milieu = substr($texte, $p);
if (!ereg(BALISE_DE_BOUCLE, $milieu, $match)) {
erreur_squelette((_T('zbug_erreur_boucle_syntaxe')), $milieu);
}
$milieu = substr($milieu, strlen($match[0]));
$id_boucle = $match[1];
$result = new Boucle;
$result->id_parent = $id_parent;
$result->id_boucle = $id_boucle;
......@@ -354,12 +452,15 @@ function phraser($texte, $id_parent, &$boucles, $nom) {
//
if (substr($type, 0, 6) == 'boucle') {
$result->type_requete = 'boucle';
$result->param = substr($match[2], 6);
$result->param[0] = substr($match[2], 6);
$milieu = substr($milieu, strpos($milieu, '>'));
} else {
$result->type_requete = $type;
phraser_param($match[3], $result);
phraser_args($milieu,">","",$all_res,$result);
phraser_criteres($result->param, $result);
$milieu = substr($result->apres,1);
$result->apres = "";
}
//
// Recuperer la partie conditionnelle avant
//
......@@ -369,7 +470,7 @@ function phraser($texte, $id_parent, &$boucles, $nom) {
$result->avant = substr($debut, $p + strlen($s));
$debut = substr($debut, 0, $p);
}
$milieu = substr($milieu, strlen($match[0]));
if (strpos($milieu, $s)) {
erreur_squelette(_T('zbug_erreur_boucle_syntaxe'),
$id_boucle .
......@@ -388,7 +489,6 @@ function phraser($texte, $id_parent, &$boucles, $nom) {
}
$texte = substr($milieu, $p + strlen($s));
$milieu = substr($milieu, 0, $p);
//
// 1. Recuperer la partie conditionnelle apres
//
......@@ -408,7 +508,6 @@ function phraser($texte, $id_parent, &$boucles, $nom) {
$result->altern = substr($texte, 0, $p);
$texte = substr($texte, $p + strlen($s));
}
$result->avant = phraser($result->avant, $id_parent,$boucles, $nom);
$result->apres = phraser($result->apres, $id_parent,$boucles, $nom);
$result->altern = phraser($result->altern,$id_parent,$boucles, $nom);
......@@ -423,8 +522,6 @@ function phraser($texte, $id_parent, &$boucles, $nom) {
} else
$boucles[$id_boucle] = $result;
}
return phraser_champs_etendus($texte, $all_res);
}
?>
0% ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter

Forge communautaire SPIP | Charte d'utilisation | Signaler un problème sur ce site