--- /dev/null
+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2011 *
+ * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
+ * *
+ * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
+ * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
+\***************************************************************************/
+
+if (!defined('_ECRIRE_INC_VERSION')) return;
+
+// Validateur XML en deux passes, fonde sur SAX pour la premiere
+// Faudrait faire deux classes car pour la premiere passe
+// on a les memes methodes et variables que l'indenteur
+
+class ValidateurXML {
+
+// http://doc.spip.org/@validerElement
+function validerElement($phraseur, $name, $attrs)
+{
+ if (!($p = isset($this->dtc->elements[$name]))) {
+ if ($p = strpos($name, ':')) {
+ $name = substr($name, $p+1);
+ $p = isset($this->dtc->elements[$name]);
+ }
+ if (!$p) {
+ coordonnees_erreur($this," <b>$name</b> "
+ . _T('zxml_inconnu_balise'));
+ return;
+ }
+ }
+ // controler les filles illegitimes, ca suffit
+ $depth = $this->depth;
+ $ouvrant = $this->ouvrant;
+# spip_log("trouve $name apres " . $ouvrant[$depth]);
+ if (isset($ouvrant[$depth])) {
+ if (preg_match('/^\s*(\w+)/', $ouvrant[$depth], $r)) {
+ $pere = $r[1];
+# spip_log("pere $pere");
+ if (isset($this->dtc->elements[$pere])) {
+ $fils = $this->dtc->elements[$pere];
+# spip_log("rejeton $name fils " . @join(',',$fils));
+ if (!($p = @in_array($name, $fils))) {
+ if ($p = strpos($name, ':')) {
+ $p = substr($name, $p+1);
+ $p = @in_array($p, $fils);
+ }
+ }
+ if (!$p) {
+ $bons_peres = @join ('</b>, <b>', $this->dtc->peres[$name]);
+ coordonnees_erreur($this, " <b>$name</b> "
+ . _T('zxml_non_fils')
+ . ' <b>'
+ . $pere
+ . '</b>'
+ . (!$bons_peres ? ''
+ : ('<p style="font-size: 80%"> '._T('zxml_mais_de').' <b>'. $bons_peres . '</b></p>')));
+ } else if ($this->dtc->regles[$pere][0]=='/') {
+ $this->fratrie[substr($depth,2)].= "$name ";
+ }
+ }
+ }
+ }
+ // Init de la suite des balises a memoriser si regle difficile
+ if ($this->dtc->regles[$name][0]=='/')
+ $this->fratrie[$depth]='';
+ if (isset($this->dtc->attributs[$name])) {
+ foreach ($this->dtc->attributs[$name] as $n => $v)
+ { if (($v[1] == '#REQUIRED') AND (!isset($attrs[$n])))
+ coordonnees_erreur($this, " <b>$n</b>"
+ . ' : '
+ . _T('zxml_obligatoire_attribut')
+ . " <b>$name</b>");
+ }
+ }
+}
+
+// http://doc.spip.org/@validerAttribut
+function validerAttribut($phraseur, $name, $val, $bal)
+{
+ // Si la balise est inconnue, eviter d'insister
+ if (!isset($this->dtc->attributs[$bal]))
+ return ;
+
+ $a = $this->dtc->attributs[$bal];
+ if (!isset($a[$name])) {
+ $bons = join(', ',array_keys($a));
+ if ($bons)
+ $bons = " title=' " .
+ _T('zxml_connus_attributs') .
+ ' : ' .
+ $bons .
+ "'";
+ $bons .= " style='font-weight: bold'";
+ coordonnees_erreur($this, " <b>$name</b> "
+ . _T('zxml_inconnu_attribut').' '._T('zxml_de')
+ . " <a$bons>$bal</a> ("
+ . _T('zxml_survoler')
+ . ")");
+ } else{
+ $type = $a[$name][0];
+ if (!preg_match('/^\w+$/', $type))
+ $this->valider_motif($phraseur, $name, $val, $bal, $type);
+ else if (method_exists($this, $f = 'validerAttribut_' . $type))
+ $this->$f($phraseur, $name, $val, $bal);
+# else spip_log("$type type d'attribut inconnu");
+ }
+}
+
+function validerAttribut_NMTOKEN($phraseur, $name, $val, $bal)
+{
+ $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKEN);
+}
+
+function validerAttribut_NMTOKENS($phraseur, $name, $val, $bal)
+{
+ $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKENS);
+}
+
+// http://doc.spip.org/@validerAttribut_ID
+function validerAttribut_ID($phraseur, $name, $val, $bal)
+{
+ if (isset($this->ids[$val])) {
+ list($l,$c) = $this->ids[$val];
+ coordonnees_erreur($this, " <p><b>$val</b> "
+ . _T('zxml_valeur_attribut')
+ . " <b>$name</b> "
+ . _T('zxml_de')
+ . " <b>$bal</b> "
+ . _T('zxml_vu')
+ . " (L$l,C$c)");
+ } else {
+ $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_ID);
+ $this->ids[$val] = array(xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
+ }
+}
+
+// http://doc.spip.org/@validerAttribut_IDREF
+function validerAttribut_IDREF($phraseur, $name, $val, $bal)
+{
+ $this->idrefs[] = array($val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
+}
+
+// http://doc.spip.org/@validerAttribut_IDREFS
+function validerAttribut_IDREFS($phraseur, $name, $val, $bal)
+{
+ $this->idrefss[] = array($val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
+}
+
+// http://doc.spip.org/@valider_motif
+function valider_motif($phraseur, $name, $val, $bal, $motif)
+{
+ if (!preg_match($motif, $val)) {
+ coordonnees_erreur($this, "<b>$val</b> "
+ . _T('zxml_valeur_attribut')
+ . " <b>$name</b> "
+ . _T('zxml_de')
+ . " <b>$bal</b> "
+ . _T('zxml_non_conforme')
+ . "</p><p>"
+ . "<b>" . $motif . "</b>");
+ }
+}
+
+// http://doc.spip.org/@valider_idref
+function valider_idref($nom, $ligne, $col)
+{
+ if (!isset($this->ids[$nom]))
+ $this->err[]= array(" <p><b>$nom</b> " . _T('zxml_inconnu_id'), $ligne, $col);
+}
+
+// http://doc.spip.org/@valider_passe2
+function valider_passe2()
+{
+ if (!$this->err) {
+ foreach ($this->idrefs as $idref) {
+ list($nom, $ligne, $col) = $idref;
+ $this->valider_idref($nom, $ligne, $col);
+ }
+ foreach ($this->idrefss as $idref) {
+ list($noms, $ligne, $col) = $idref;
+ foreach(preg_split('/\s+/', $noms) as $nom)
+ $this->valider_idref($nom, $ligne, $col);
+ }
+ }
+}
+
+// http://doc.spip.org/@debutElement
+function debutElement($phraseur, $name, $attrs)
+{
+ if ($this->dtc->elements)
+ $this->validerElement($phraseur, $name, $attrs);
+
+ if ($f = $this->process['debut']) $f($this, $name, $attrs);
+ $depth = $this->depth;
+ $this->debuts[$depth] = strlen($this->res);
+ foreach ($attrs as $k => $v) {
+ $this->validerAttribut($phraseur, $k, $v, $name);
+ }
+}
+
+// http://doc.spip.org/@finElement
+function finElement($phraseur, $name)
+{
+ $depth = $this->depth;
+ $contenu = $this->contenu;
+
+ $n = strlen($this->res);
+ $c = strlen(trim($contenu[$depth]));
+ $k = $this->debuts[$depth];
+
+ $regle = $this->dtc->regles[$name];
+ $vide = ($regle == 'EMPTY');
+ // controler que les balises devant etre vides le sont
+ if ($vide) {
+ if ($n <> ($k + $c))
+ coordonnees_erreur($this, " <p><b>$name</b> "
+ . _T('zxml_nonvide_balise'));
+ // pour les regles PCDATA ou iteration de disjonction, tout est fait
+ } elseif ($regle AND ($regle != '*')) {
+ if ($regle == '+') {
+ // iteration de disjonction non vide: 1 balise au -
+ if ($n == $k) {
+ coordonnees_erreur($this, "<p>\n<b>$name</b> "
+ . _T('zxml_vide_balise'));
+ }
+ } else {
+ $f = $this->fratrie[substr($depth,2)];
+ if (!preg_match($regle, $f)) {
+ coordonnees_erreur($this,
+ " <p>\n<b>$name</b> "
+ . _T('zxml_succession_fils_incorrecte')
+ . ' : <b>'
+ . $f
+ . '</b>');
+ }
+ }
+
+ }
+ if ($f = $this->process['fin']) $f($this, $name, $vide);
+}
+
+// http://doc.spip.org/@textElement
+function textElement($phraseur, $data)
+{
+ if (trim($data)) {
+ $d = $this->depth;
+ $d = $this->ouvrant[$d];
+ preg_match('/^\s*(\S+)/', $d, $m);
+ if ($this->dtc->pcdata[$m[1]]) {
+ coordonnees_erreur($this, " <p><b>". $m[1] . "</b> "
+ . _T('zxml_nonvide_balise') // message a affiner
+ );
+ }
+ }
+ if ($f = $this->process['text']) $f($this, $data);
+}
+
+function piElement($phraseur, $target, $data)
+{
+ if ($f = $this->process['pi']) $f($this, $target, $data);
+}
+
+// Denonciation des entitees XML inconnues
+// Pour contourner le bug de conception de SAX qui ne signale pas si elles
+// sont dans un attribut, les entites les plus frequentes ont ete
+// transcodees au prealable (sauf & < > " que SAX traite correctement).
+// On ne les verra donc pas passer a cette etape, contrairement a ce que
+// le source de la page laisse legitimement supposer.
+
+// http://doc.spip.org/@defautElement
+function defaultElement($phraseur, $data)
+{
+ if (!preg_match('/^<!--/', $data)
+ AND (preg_match_all('/&([^;]*)?/', $data, $r, PREG_SET_ORDER)))
+ foreach ($r as $m) {
+ list($t,$e) = $m;
+ if (!isset($this->dtc->entites[$e]))
+ coordonnees_erreur($this, " <b>$e</b> "
+ . _T('zxml_inconnu_entite')
+ . ' '
+ );
+ }
+ if ($f = $this->process['default']) $f($this, $data);
+}
+
+// http://doc.spip.org/@phraserTout
+function phraserTout($phraseur, $data)
+{
+ xml_parsestring($this, $data);
+
+ if (!$this->dtc OR preg_match(',^' . _MESSAGE_DOCTYPE . ',', $data)) {
+ $this->err[]= array('DOCTYPE ?', 0, 0);
+ } else {
+ $this->valider_passe2($this);
+ }
+}
+
+ var $depth = "";
+ var $res = "";
+ var $err = array();
+ var $contenu = array();
+ var $ouvrant = array();
+ var $reperes = array();
+ var $process = array();
+ var $entete = '';
+ var $page = '';
+ var $dtc = NULL;
+ var $sax = NULL;
+
+ var $ids = array();
+ var $idrefs = array();
+ var $idrefss = array();
+ var $debuts = array();
+ var $fratrie = array();
+
+}
+
+// http://doc.spip.org/@emboite_texte
+function emboite_texte($res, $fonc='',$self='')
+{
+ include_spip('public/debusquer');
+
+ list($texte, $errs) = $res;
+ if (!$texte)
+ return array(ancre_texte('', array('','')), false);
+ if (!$errs)
+ return array(ancre_texte($texte, array('', '')), true);
+
+ if (!isset($GLOBALS['debug_objets'])) {
+
+ $colors = array('#e0e0f0', '#f8f8ff');
+ $encore = count_occ($errs);
+ $encore2 = array();
+ $fautifs = array();
+
+ $err = '<tr><th>'
+ . _T('numero')
+ . "</th><th>"
+ . _T('occurrence')
+ . "</th><th>"
+ . _T('ligne')
+ . "</th><th>"
+ . _T('colonne')
+ . "</th><th>"
+ . _T('erreur')
+ . "</th></tr>";
+
+ $i = 0;
+ $style = "style='text-align: right; padding-right: 5px'";
+ foreach($errs as $r) {
+ $i++;
+ list($msg, $ligne, $col) = $r;
+ #spip_log("$r = list($msg, $ligne, $col");
+ if (isset($encore2[$msg]))
+ $ref = ++$encore2[$msg];
+ else {$encore2[$msg] = $ref = 1;}
+ $err .= "<tr style='background-color: "
+ . $colors[$i%2]
+ . "'><td $style><a href='#debut_err'>"
+ . $i
+ . "</a></td><td $style>"
+ . "$ref/$encore[$msg]</td>"
+ . "<td $style><a href='#L"
+ . $ligne
+ . "' id='T$i'>"
+ . $ligne
+ . "</a></td><td $style>"
+ . $col
+ . "</td><td>$msg</td></tr>\n";
+ $fautifs[]= array($ligne, $col, $i, $msg);
+ }
+ $err = "<h2 style='text-align: center'>"
+ . $i
+ . "<a href='#fin_err'>"
+ . " "._T('erreur_texte')
+ . "</a></h2><table id='debut_err' style='width: 100%'>"
+ . $err
+ . " </table><a id='fin_err'></a>";
+ return array(ancre_texte($texte, $fautifs), $err);
+ } else {
+ list($msg, $fermant, $ouvrant) = $errs[0];
+ $rf = reference_boucle_debug($fermant, $fonc, $self);
+ $ro = reference_boucle_debug($ouvrant, $fonc, $self);
+ $err = $msg .
+ "<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
+ "<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+ return array(ancre_texte($texte, array(array($ouvrant), array($fermant))), $err);
+ }
+}
+
+// http://doc.spip.org/@count_occ
+function count_occ($regs)
+{
+ $encore = array();
+ foreach($regs as $r) {
+ if (isset($encore[$r[0]]))
+ $encore[$r[0]]++;
+ else $encore[$r[0]] = 1;
+ }
+ return $encore;
+}
+
+// Retourne un tableau formee de la page analysee et du tableau des erreurs,
+// ce dernier ayant comme entrees des sous-tableaux [message, ligne, colonne]
+
+// http://doc.spip.org/@xml_valider_dist
+function xml_valider_dist($page, $apply=false, $process=false)
+{
+
+ $sax = charger_fonction('sax', 'xml');
+ $f = new ValidateurXML();
+ if (!is_array($process))
+ $process = array(
+ 'debut' => 'xml_debutElement',
+ 'fin' => 'xml_finElement',
+ 'text' => 'xml_textElement',
+ 'pi' => 'xml_piElement',
+ 'default' => 'xml_defaultElement'
+ );
+
+ $f->process = $process;
+ $sax($page, $apply, $f);
+ $page = $f->err ? $f->page : $f->res;
+ return array($f->entete . $page, $f->err);
+}
+?>