b7b5482a419a00526142d23bd6bf6b26da917fb0
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 // Decompilation de l'arbre de syntaxe abstraite d'un squelette SPIP
17 function decompiler_boucle($struct, $fmt='', $prof=0)
19 $nom = $struct->id_boucle
;
20 $avant = public_decompiler($struct->avant
, $fmt, $prof);
21 $apres = public_decompiler($struct->apres
, $fmt, $prof);
22 $altern = public_decompiler($struct->altern
, $fmt, $prof);
23 $milieu = public_decompiler($struct->milieu
, $fmt, $prof);
25 $type = $struct->sql_serveur ?
"$struct->sql_serveur:" : '';
26 $type .= ($struct->type_requete ?
$struct->type_requete
:
27 $struct->table_optionnelle
);
29 if ($struct->jointures_explicites
)
30 $type .= " " . $struct->jointures_explicites
;
31 if ($struct->table_optionnelle
)
33 // Revoir le cas de la boucle recursive
35 $crit = $struct->param
;
36 if ($crit AND !is_array($crit[0])) {
37 $type = strtolower($type) . array_shift($crit);
39 $crit = decompiler_criteres($crit, $struct->criteres
, $fmt, $prof) ;
41 $f = 'format_boucle_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
42 return $f($avant, $nom, $type, $crit, $milieu, $apres, $altern, $prof);
45 function decompiler_include($struct, $fmt='', $prof=0)
48 foreach($struct->param ?
$struct->param
: array() as $couple) {
50 foreach($couple as $v) {
51 $res[]= public_decompiler($v, $fmt, $prof);
54 $file = is_string($struct->texte
) ?
$struct->texte
:
55 public_decompiler($struct->texte
, $fmt, $prof);
56 $f = 'format_inclure_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
57 return $f($file, $res, $prof);
60 function decompiler_texte($struct, $fmt='', $prof=0)
62 $f = 'format_texte_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
63 return strlen($struct->texte
) ?
$f($struct->texte
, $prof) : '';
66 function decompiler_polyglotte($struct, $fmt='', $prof=0)
68 $f = 'format_polyglotte_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
69 return $f($struct->traductions
, $prof);
72 function decompiler_idiome($struct, $fmt='', $prof=0)
74 $module = ($struct->module
== MODULES_IDIOMES
)?
''
78 foreach ($struct->arg
as $k => $v) {
79 if ($k) $args[$k]= public_decompiler($v, $fmt, $prof);
82 $filtres = decompiler_liste($struct->param
, $fmt, $prof);
84 $f = 'format_idiome_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
85 return $f($struct->nom_champ
, $module, $args, $filtres, $prof);
88 function decompiler_champ($struct, $fmt='', $prof=0)
90 $avant = public_decompiler($struct->avant
, $fmt, $prof);
91 $apres = public_decompiler($struct->apres
, $fmt, $prof);
92 $args = $filtres = '';
93 if ($p = $struct->param
) {
95 $args = decompiler_liste(array(array_shift($p)), $fmt, $prof);
96 $filtres = decompiler_liste($p, $fmt, $prof);
98 $f = 'format_champ_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
99 return $f($struct->nom_champ
, $struct->nom_boucle
, $struct->etoile
, $avant, $apres, $args, $filtres, $prof);
102 function decompiler_liste($sources, $fmt='', $prof=0) {
103 if (!is_array($sources)) return '';
104 $f = 'format_liste_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
106 foreach($sources as $arg) {
107 if (!is_array($arg)) {
108 continue; // ne devrait pas arriver.
109 } else {$r = array_shift($arg);}
111 foreach($arg as $v) {
112 // cas des arguments entoures de ' ou "
114 AND $v[0]->type
=='texte'
115 AND (strlen($v[0]->apres
) == 1)
116 AND $v[0]->apres
== $v[0]->avant
)
117 $args[]= $v[0]->avant
. $v[0]->texte
. $v[0]->apres
;
118 else $args[]= public_decompiler($v, $fmt, 0-$prof);
120 if (($r!=='') OR $args) $res .= $f($r, $args, $prof);
125 // Decompilation des criteres: on triche et on deroge:
126 // - le phraseur fournit un bout du source en plus de la compil
127 // - le champ apres signale le critere {"separateur"} ou {'separateur'}
128 // - les champs sont implicitement etendus (crochets implicites mais interdits)
129 function decompiler_criteres($sources, $comp, $fmt='', $prof=0) {
130 if (!is_array($sources)) return '';
132 $f = 'format_critere_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);
133 include_spip('public/format_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
));
134 foreach($sources as $crit) {
135 if (!is_array($crit)) continue; // boucle recursive
138 foreach($crit as $i => $v) {
140 AND $v[0]->type
=='texte'
142 $args[]= array(array('texte', ( $v[0]->apres
. $v[0]->texte
. $v[0]->apres
)));
145 foreach($v as $k => $p) {
147 AND function_exists($d = 'decompiler_' . $p->type
)) {
148 $r = $d($p, $fmt, (0-$prof), @$v[$k+
1]);
149 $res2[]= array($p->type
, $r);
150 } else spip_log("critere $i / $k mal forme");
161 function public_decompiler($liste, $fmt='', $prof=0)
163 if (!is_array($liste)) return '';
164 include_spip('public/format_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
));
165 $prof2 = ($prof < 0) ?
($prof-1) : ($prof+
1);
167 foreach($liste as $k => $p) {
168 if (!isset($p->type
)) continue; #??????
169 $d = 'decompiler_' . $p->type
;
170 $next = isset($liste[$k+
1]) ?
$liste[$k+
1] : false;
171 // Forcer le champ etendu si son source (pas les reecritures)
172 // contenait des args et s'il est suivi d'espaces,
173 // le champ simple les eliminant est un bug helas perenne.
176 AND ($next->type
== 'texte')
177 AND $p->type
== 'champ'
181 $n = strlen($next->texte
) - strlen(ltrim($next->texte
));
184 $champ->texte
= substr($next->texte
, 0, $n);
185 $champ->ligne
= $p->ligne
;
186 $p->apres
= array($champ);
187 $next->texte
= substr($next->texte
, $n);
190 $contenu[] = array($d($p, $fmt, $prof2), $p->type
);
193 $f = 'format_suite_' . ($fmt ?
$fmt : _EXTENSION_SQUELETTES
);