www/plugins/spip-bonux-3/public/spip_bonux_balises.php

   1 <?php
   2 /**
   3  * Plugin Spip-Bonux
   4  * Le plugin qui lave plus SPIP que SPIP
   5  * (c) 2008 Mathieu Marcillaud, Cedric Morin, Romy Tetue
   6  * Licence GPL
   7  *
   8  */
   9
  10 if (!defined('_ECRIRE_INC_VERSION')) return;
  11
  12 /**
  13  * Empile un element dans un tableau declare par #SET{tableau,#ARRAY}
  14  * #SET_PUSH{tableau,valeur}
  15  *
  16  * @param Champ $p : objet balise
  17  * @return Champ
  18  *     La balise ne retourne rien ("")
  19 **/
  20 function balise_SET_PUSH_dist($p){
  21         $_nom = interprete_argument_balise(1,$p);
  22         $_valeur = interprete_argument_balise(2,$p);
  23
  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))";
  30         else
  31                 $p->code = "''";
  32
  33         $p->interdire_scripts = false; // la balise ne renvoie rien
  34         return $p;
  35 }
  36
  37 /**
  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}}
  41  *
  42  * Si 2 arguments : Merge t1 dans nom_tableau
  43  * #SET_MERGE{nom_tableau,t1}
  44  * #SET_MERGE{nom_tableau,#GET{tableau}}
  45  *
  46  * @param Champ $p : objet balise
  47  * @return Champ
  48  *     La balise ne retourne rien ("")
  49 **/
  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);
  54
  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)))";
  70         else
  71                 $p->code = "''";
  72
  73         $p->interdire_scripts = false; // la balise ne renvoie rien
  74         return $p;
  75 }
  76
  77 /**
  78  * Balise #COMPTEUR associee au critere compteur
  79  *
  80  * @param Champ $p
  81  * @return Champ
  82  */
  83 function balise_COMPTEUR_dist($p) {
  84         calculer_balise_criteres('compteur', $p);
  85         if ($p->code=="''")
  86                 calculer_balise_criteres('compteur', $p, "compteur_left");
  87         return $p;
  88 }
  89
  90 /** Balise #SOMME associee au critere somme */
  91 function balise_SOMME_dist($p) {
  92         return calculer_balise_criteres('somme', $p);
  93 }
  94
  95 /** Balise #COMPTE associee au critere compte */
  96 function balise_COMPTE_dist($p) {
  97         return calculer_balise_criteres('compte', $p);
  98 }
  99
 100 /** Balise #MOYENNE associee au critere moyenne */
 101 function balise_MOYENNE_dist($p) {
 102         return calculer_balise_criteres('moyenne', $p);
 103 }
 104
 105 /** Balise #MINIMUM associee au critere moyenne */
 106 function balise_MINIMUM_dist($p) {
 107         return calculer_balise_criteres('minimum', $p);
 108 }
 109
 110 /** Balise #MAXIMUM associee au critere moyenne */
 111 function balise_MAXIMUM_dist($p) {
 112         return calculer_balise_criteres('maximum', $p);
 113 }
 114
 115 /** Balise #STATS associee au critere stats
 116  * #STATS{id_article,moyenne}
 117  */
 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');
 122         }
 123         return $p;
 124 }
 125
 126 function calculer_balise_criteres($nom, $p, $motif="") {
 127         $p->code = "''";
 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);
 132         }
 133   return $p;
 134 }
 135
 136 ?>