3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
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 include_spip('inc/charsets');
16 include_spip('xml/interfaces');
18 // http://doc.spip.org/@xml_debutElement
19 function xml_debutElement($phraseur, $name, $attrs)
21 $depth = $phraseur->depth
;
23 $t = isset($phraseur->ouvrant
[$depth]) ?
$phraseur->ouvrant
[$depth] : ' ';
24 // espace initial signifie: deja integree au resultat
27 $phraseur->res
.= '<' . $t . '>';
28 $phraseur->ouvrant
[$depth] = ' ' . $t;
30 $t = $phraseur->contenu
[$depth];
31 // n'indenter que s'il y a un separateur avant
32 $phraseur->res
.= preg_replace("/[\n\t ]+$/", "\n$depth", $t);
33 $phraseur->contenu
[$depth] = "";
36 foreach ($attrs as $k => $v) {
37 $delim = strpos($v, "'") === false ?
"'" : '"';
38 $val = htmlspecialchars($v,ENT_QUOTES
);
39 $att .= $sep . $k . "=" . $delim
40 . ($delim !== '"' ?
str_replace('"', '"', $val) : $val)
44 $phraseur->depth
.= ' ';
45 $phraseur->contenu
[$phraseur->depth
] = "";
46 $phraseur->ouvrant
[$phraseur->depth
] = $name . $att;
47 $phraseur->reperes
[$phraseur->depth
] = xml_get_current_line_number($phraseur->sax
);
50 // http://doc.spip.org/@xml_finElement
51 function xml_finElement($phraseur, $name, $fusion_bal=false)
53 $ouv = $phraseur->ouvrant
[$phraseur->depth
];
56 $phraseur->ouvrant
[$phraseur->depth
] = ' ' . $ouv;
58 $t = $phraseur->contenu
[$phraseur->depth
];
59 $phraseur->depth
= substr($phraseur->depth
, 2);
60 $t = preg_replace("/[\n\t ]+$/", "\n" . $phraseur->depth
, $t);
62 // fusion <balise></balise> en <balise />.
63 // ATTENTION, certains clients http croient que fusion ==> pas d'atttributs
64 // en particulier pour les balises Script et A.
65 // en presence d'attributs ne le faire que si la DTD est dispo et d'accord
68 if ($t ||
(($ouv != $name) AND !$fusion_bal))
69 $phraseur->res
.= ($ouv ?
('<' . $ouv . '>') : '') . $t . "</" . $name . ">";
71 $phraseur->res
.= ($ouv ?
('<' . $ouv . ' />') : ("</" . $name . ">"));
74 // http://doc.spip.org/@xml_textElement
75 function xml_textElement($phraseur, $data)
77 $depth = $phraseur->depth
;
78 $phraseur->contenu
[$depth] .= preg_match('/^script/',$phraseur->ouvrant
[$depth])
80 : htmlspecialchars($data,ENT_QUOTES
);
83 function xml_piElement($phraseur, $target, $data)
85 $depth = $phraseur->depth
;
87 if (strtolower($target) != "php")
88 $phraseur->contenu
[$depth] .= $data;
92 $data = ob_get_contents();
94 $phraseur->contenu
[$depth] .= $data;
99 // http://doc.spip.org/@xml_defautElement
100 function xml_defaultElement($phraseur, $data)
102 $depth = $phraseur->depth
;
104 if (!isset($phraseur->contenu
[$depth])) $phraseur->contenu
[$depth]='';
105 $phraseur->contenu
[$depth] .= $data;
108 // http://doc.spip.org/@xml_parsestring
109 function xml_parsestring($phraseur, $data)
111 $phraseur->contenu
[$phraseur->depth
] ='';
113 if (!xml_parse($phraseur->sax
, $data, true)) {
114 coordonnees_erreur($phraseur,
115 xml_error_string(xml_get_error_code($phraseur->sax
))
117 (!$phraseur->depth ?
'' :
119 _T('erreur_balise_non_fermee') .
121 $phraseur->ouvrant
[$phraseur->depth
] .
125 $phraseur->reperes
[$phraseur->depth
] .
130 // http://doc.spip.org/@coordonnees_erreur
131 function coordonnees_erreur($phraseur, $msg)
133 $entete_length = substr_count($phraseur->entete
,"\n");
134 $phraseur->err
[] = array($msg,
135 xml_get_current_line_number($phraseur->sax
) +
$entete_length,
136 xml_get_current_column_number($phraseur->sax
));
139 // http://doc.spip.org/@xml_sax_dist
140 function xml_sax_dist($page, $apply=false, $phraseur=NULL)
142 // init par defaut si pas fait (compatibilite Tidy espace public)
144 $indenter_xml = charger_fonction('indenter', 'xml');
145 return $indenter_xml($page, $apply);
148 $xml_parser = xml_parser_create($GLOBALS['meta']['charset']);
150 xml_set_element_handler($xml_parser,
151 array($phraseur, "debutElement"),
152 array($phraseur, "finElement"));
154 xml_set_character_data_handler($xml_parser,
155 array($phraseur, "textElement"));
157 xml_set_processing_instruction_handler($xml_parser,
158 array($phraseur, 'piElement'));
160 xml_set_default_handler($xml_parser,
161 array($phraseur, "defaultElement"));
163 xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING
, false);
167 if (is_array($apply))
168 $r = call_user_func_array($page, $apply);
170 $page = ob_get_contents();
172 // fonction sans aucun "echo", ca doit etre le resultat
173 if (!$page) $page = $r;
176 // charger la DTD et transcoder les entites,
177 // et escamoter le doctype que sax mange en php5 mais pas en php4
178 list($entete,$page, $dtc) = sax_bug($page);
180 $phraseur->sax
= $xml_parser;
181 $phraseur->entete
= $entete;
182 $phraseur->page
= $page;
183 $phraseur->dtc
= $dtc;
184 $phraseur->phraserTout($xml_parser, $page);
185 xml_parser_free($xml_parser);
188 // SAX ne dit pas si une Entite est dans un attribut ou non.
189 // Les eliminer toutes sinon celles des attributs apparaissent en zone texte!
190 // Celles fondamentales pour la lecture (lt gt quot amp) sont conservees
191 // (d'ailleurs SAX ne les considere pas comme des entites dans un attribut)
192 // Si la DTD est dispo, on va chercher les entites dedans
193 // sinon on se rabat sur ce qu'en connait SPIP en standard.
195 // http://doc.spip.org/@sax_bug
196 function sax_bug($data)
198 $r = analyser_doctype($data);
201 $data = _MESSAGE_DOCTYPE
. _DOCTYPE_ECRIRE
202 . preg_replace(_REGEXP_DOCTYPE
, '', $data);
203 $r = analyser_doctype($data);
206 list($doctype, $topelement, $avail, $grammaire, $rotlvl, $len) = $r;
208 include_spip('xml/analyser_dtd');
209 $dtc = charger_dtd($grammaire, $avail, $rotlvl);
211 // l'entete contient eventuellement < ? xml... ? >, le Doctype,
212 // et des commentaires autour d'eux
213 $entete = ltrim(substr($data,0,$len));
218 foreach($dtc->entites
as $k => $v) {
219 if (!strpos(" amp lt gt quot ", $k))
222 $data = strtr(substr($data,$len), $trans);
224 $data = html2unicode(substr($data,$len), true);
226 return array($entete,unicode2charset($data), $dtc);
229 // Reperer le Doctype et le decomposer selon:
230 // http://www.freebsd.org/doc/fr_FR.ISO8859-1/books/fdp-primer/sgml-primer-doctype-declaration.html
231 // Si pas de Doctype et premiere balise = RSS prendre la doctype RSS 0.91:
232 // les autres formats RSS n'ont pas de DTD,
233 // mais un XML Schema que SPIP ne fait pas encore lire.
234 // http://doc.spip.org/@analyser_doctype
235 function analyser_doctype($data)
237 if (!preg_match(_REGEXP_DOCTYPE
, $data, $page)) {
238 if (preg_match(_REGEXP_XML
, $data, $page)) {
239 list(,$pico, $topelement) = $page;
240 $pico = strlen($pico);
241 if ($topelement == 'rss')
249 $dtd = $topelement . '.dtd';
250 $f = find_in_path($dtd);
252 return array('', $topelement, 'SYSTEM', $f, $dtd, $pico);
255 spip_log("Dtd pas vu pour " . substr($data, 0, 100));
258 list($doctype,$pico, $topelement, $avail,$suite) = $page;
260 if (!preg_match('/^"([^"]*)"\s*(.*)$/', $suite, $r))
261 if (!preg_match("/^'([^']*)'\s*(.*)$/", $suite, $r))
263 list(,$rotlvl, $suite) = $r;
266 if ($avail != 'SYSTEM') return array();
267 $grammaire = $rotlvl;
270 if (!preg_match('/^"([^"]*)"\s*$/', $suite, $r))
271 if (!preg_match("/^'([^']*)'\s*$/", $suite, $r))
277 return array(substr($doctype,strlen($pico)), $topelement, $avail, $grammaire, $rotlvl, strlen($doctype));