4 * Le plugin qui lave plus SPIP que SPIP
5 * (c) 2008 Mathieu Marcillaud, Cedric Morin, Tetue
10 if (!defined('_ECRIRE_INC_VERSION')) return;
13 * Empile un element dans un tableau declare par #SET{tableau,#ARRAY}
14 * #SET_PUSH{tableau,valeur}
16 * @param Champ $p : objet balise
18 * La balise ne retourne rien ("")
20 function balise_SET_PUSH_dist($p){
21 $_nom = interprete_argument_balise(1,$p);
22 $_valeur = interprete_argument_balise(2,$p);
24 if ($_nom AND $_valeur)
25 // si le tableau n'existe pas encore, on le cree
26 // on ajoute la valeur ensuite (sans passer par array_push)
27 $p->code
= "vide((\$cle=$_nom)
28 . vide((!isset(\$Pile['vars'][\$cle]) OR !is_array(\$Pile['vars'][\$cle]))?\$Pile['vars'][\$cle]=array():'')
29 . vide(\$Pile['vars'][\$cle][]=$_valeur))";
33 $p->interdire_scripts
= false; // la balise ne renvoie rien
38 * Si 3 arguments : Cree un tableau nom_tableau de t1 + t2
39 * #SET_MERGE{nom_tableau,t1,t2}
40 * #SET_MERGE{nom_tableau,#GET{tableau},#ARRAY{cle,valeur}}
42 * Si 2 arguments : Merge t1 dans nom_tableau
43 * #SET_MERGE{nom_tableau,t1}
44 * #SET_MERGE{nom_tableau,#GET{tableau}}
46 * @param Champ $p : objet balise
48 * La balise ne retourne rien ("")
50 function balise_SET_MERGE_dist($p){
51 $_nom = interprete_argument_balise(1,$p);
52 $_t1 = interprete_argument_balise(2,$p);
53 $_t2 = interprete_argument_balise(3,$p);
55 if ($_nom AND $_t1 AND !$_t2)
56 // 2 arguments : merge de $_nom et $_t1 dans $_nom
57 // si le tableau n'existe pas encore, on le cree
58 $p->code
= "vide((\$cle=$_nom)
59 . vide((!isset(\$Pile['vars'][\$cle]) OR !is_array(\$Pile['vars'][\$cle]))?\$Pile['vars'][\$cle]=array():'')
60 . vide(is_array(\$new=$_t1)?'':\$new=array(\$new))
61 . vide(\$Pile['vars'][\$cle] = array_merge(\$Pile['vars'][\$cle],\$new)))";
62 elseif ($_nom AND $_t1 AND $_t2)
63 // 3 arguments : merge de $_t1 et $_t2 dans $_nom
64 // si le tableau n'existe pas encore, on le cree
65 $p->code
= "vide((\$cle=$_nom)
66 . vide((!isset(\$Pile['vars'][\$cle]) OR !is_array(\$Pile['vars'][\$cle]))?\$Pile['vars'][\$cle]=array():'')
67 . vide(is_array(\$new1=$_t1)?'':\$new1=array(\$new1))
68 . vide(is_array(\$new2=$_t2)?'':\$new2=array(\$new2))
69 . vide(\$Pile['vars'][\$cle] = array_merge(\$new1,\$new2)))";
73 $p->interdire_scripts
= false; // la balise ne renvoie rien
78 * Balise #COMPTEUR associee au critere compteur
83 function balise_COMPTEUR_dist($p) {
84 calculer_balise_criteres('compteur', $p);
86 calculer_balise_criteres('compteur', $p, "compteur_left");
90 /** Balise #SOMME associee au critere somme */
91 function balise_SOMME_dist($p) {
92 return calculer_balise_criteres('somme', $p);
95 /** Balise #COMPTE associee au critere compte */
96 function balise_COMPTE_dist($p) {
97 return calculer_balise_criteres('compte', $p);
100 /** Balise #MOYENNE associee au critere moyenne */
101 function balise_MOYENNE_dist($p) {
102 return calculer_balise_criteres('moyenne', $p);
105 /** Balise #MINIMUM associee au critere moyenne */
106 function balise_MINIMUM_dist($p) {
107 return calculer_balise_criteres('minimum', $p);
110 /** Balise #MAXIMUM associee au critere moyenne */
111 function balise_MAXIMUM_dist($p) {
112 return calculer_balise_criteres('maximum', $p);
115 /** Balise #STATS associee au critere stats
116 * #STATS{id_article,moyenne}
118 function balise_STATS_dist($p) {
119 if (isset($p->param
[0][2][0])
120 AND $nom = ($p->param
[0][2][0]->texte
)) {
121 return calculer_balise_criteres($nom, $p, 'stats');
126 function calculer_balise_criteres($nom, $p, $motif="") {
128 $motif = $motif ?
$motif : $nom;
129 if (isset($p->param
[0][1][0])
130 AND $champ = ($p->param
[0][1][0]->texte
)) {
131 return rindex_pile($p, $nom."_$champ", $motif);