cxml-cvs December 2005

cxml-cvs@common-lisp.net

1 participants
138 discussions

[cxml-cvs] CVS update: cxml/DOMTEST
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv26350 Modified Files: DOMTEST Log Message: rein mit den dom 2 tests Date: Sun Dec 4 20:19:17 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.2 cxml/DOMTEST:1.3 --- cxml/DOMTEST:1.2 Sun Dec 4 19:43:49 2005 +++ cxml/DOMTEST Sun Dec 4 20:19:16 2005 @@ -549,4 +549,292 @@ 521/808 hc_attrsetvalue2.xml 522/808 attrremovechild1.xml 523/808 attrreplacechild1.xml -0/497 tests failed; 311 tests were skipped \ No newline at end of file + +#P"/home/david/2001/DOM-Test-Suite/tests/level2/core/" +524/808 attrgetownerelement01.xml +525/808 attrgetownerelement02.xml +526/808 attrgetownerelement03.xml +527/808 attrgetownerelement04.xml +528/808 attrgetownerelement05.xml +529/808 createAttributeNS01.xml +530/808 createAttributeNS02.xml +531/808 createAttributeNS03.xml +532/808 createAttributeNS04.xml +533/808 createAttributeNS05.xml +534/808 createAttributeNS06.xml +535/808 createDocument01.xml +536/808 createDocument02.xml +537/808 createDocument03.xml +538/808 createDocument04.xml +539/808 createDocument05.xml +540/808 createDocument06.xml +541/808 createDocument07.xml +542/808 createDocument08.xml +543/808 createDocumentType01.xml +544/808 createDocumentType02.xml +545/808 createDocumentType03.xml +546/808 createDocumentType04.xml +547/808 createElementNS01.xml +548/808 createElementNS02.xml +549/808 createElementNS03.xml +550/808 createElementNS04.xml +551/808 createElementNS05.xml +552/808 documentcreateattributeNS01.xml +553/808 documentcreateattributeNS02.xml +554/808 documentcreateattributeNS03.xml +555/808 documentcreateattributeNS04.xml +556/808 documentcreateattributeNS05.xml +557/808 documentcreateattributeNS06.xml +558/808 documentcreateattributeNS07.xml +559/808 documentcreateelementNS01.xml +560/808 documentcreateelementNS02.xml +561/808 documentcreateelementNS05.xml +562/808 documentcreateelementNS06.xml +563/808 documentgetelementbyid01.xml +564/808 documentgetelementsbytagnameNS01.xml +565/808 documentgetelementsbytagnameNS02.xml +566/808 documentgetelementsbytagnameNS03.xml +567/808 documentgetelementsbytagnameNS04.xml +568/808 documentgetelementsbytagnameNS05.xml +569/808 documentimportnode01.xml +570/808 documentimportnode02.xml +571/808 documentimportnode03.xml +572/808 documentimportnode04.xml +573/808 documentimportnode05.xml +574/808 documentimportnode06.xml +575/808 documentimportnode07.xml +576/808 documentimportnode08.xml +577/808 documentimportnode09.xml +578/808 documentimportnode10.xml +579/808 documentimportnode11.xml +580/808 documentimportnode12.xml +581/808 documentimportnode13.xml +582/808 documentimportnode14.xml +583/808 documentimportnode15.xml +584/808 documentimportnode17.xml +585/808 documentimportnode18.xml +586/808 documentimportnode19.xml +587/808 documentimportnode20.xml +implementationAttribute expandEntityReferences not supported, skipping test +588/808 documentimportnode21.xml +implementationAttribute expandEntityReferences not supported, skipping test +589/808 documentimportnode22.xml +590/808 documenttypeinternalSubset01.xml +591/808 documenttypepublicid01.xml +592/808 documenttypesystemid01.xml +593/808 domimplementationcreatedocument03.xml +594/808 domimplementationcreatedocument04.xml +595/808 domimplementationcreatedocument05.xml +596/808 domimplementationcreatedocument07.xml +597/808 domimplementationcreatedocumenttype01.xml +598/808 domimplementationcreatedocumenttype02.xml +599/808 domimplementationcreatedocumenttype04.xml +600/808 domimplementationfeaturecore.xml +601/808 domimplementationfeaturexmlversion2.xml +602/808 domimplementationhasfeature01.xml +603/808 domimplementationhasfeature02.xml +604/808 elementgetattributenodens01.xml +605/808 elementgetattributenodens02.xml +606/808 elementgetattributenodens03.xml +607/808 elementgetattributens02.xml +608/808 elementgetelementsbytagnamens02.xml +609/808 elementgetelementsbytagnamens04.xml +610/808 elementgetelementsbytagnamens05.xml +611/808 elementhasattribute01.xml +612/808 elementhasattribute02.xml +613/808 elementhasattribute03.xml +614/808 elementhasattribute04.xml +615/808 elementhasattributens01.xml +616/808 elementhasattributens02.xml +617/808 elementhasattributens03.xml +618/808 elementremoveattributens01.xml +619/808 elementsetattributenodens01.xml +620/808 elementsetattributenodens02.xml +621/808 elementsetattributenodens03.xml +622/808 elementsetattributenodens04.xml +623/808 elementsetattributenodens05.xml +624/808 elementsetattributenodens06.xml +implementationAttribute expandEntityReferences not supported, skipping test +625/808 elementsetattributens01.xml +626/808 elementsetattributens02.xml +627/808 elementsetattributens03.xml +628/808 elementsetattributens04.xml +629/808 elementsetattributens05.xml +630/808 elementsetattributens08.xml +631/808 elementsetattributensurinull.xml +632/808 getAttributeNS01.xml +633/808 getAttributeNS02.xml +634/808 getAttributeNS03.xml +635/808 getAttributeNS04.xml +636/808 getAttributeNS05.xml +637/808 getAttributeNodeNS01.xml +638/808 getAttributeNodeNS02.xml +639/808 getElementById01.xml +640/808 getElementById02.xml +641/808 getElementsByTagNameNS01.xml +642/808 getElementsByTagNameNS02.xml +643/808 getElementsByTagNameNS03.xml +644/808 getElementsByTagNameNS04.xml +645/808 getElementsByTagNameNS05.xml +646/808 getElementsByTagNameNS06.xml +647/808 getElementsByTagNameNS07.xml +648/808 getElementsByTagNameNS08.xml +649/808 getElementsByTagNameNS09.xml +650/808 getElementsByTagNameNS10.xml +651/808 getElementsByTagNameNS11.xml +652/808 getElementsByTagNameNS12.xml +653/808 getElementsByTagNameNS13.xml +654/808 getElementsByTagNameNS14.xml +655/808 getNamedItemNS01.xml +656/808 getNamedItemNS02.xml +657/808 getNamedItemNS03.xml +658/808 getNamedItemNS04.xml +659/808 hasAttribute01.xml +660/808 hasAttribute02.xml +661/808 hasAttribute03.xml +662/808 hasAttribute04.xml +663/808 hasAttributeNS01.xml +664/808 hasAttributeNS02.xml +665/808 hasAttributeNS03.xml +666/808 hasAttributeNS04.xml +667/808 hasAttributeNS05.xml +668/808 hasAttributes01.xml +669/808 hasAttributes02.xml +670/808 hc_entitiesremovenameditemns1.xml +671/808 hc_entitiessetnameditemns1.xml +672/808 hc_namednodemapinvalidtype1.xml +673/808 hc_nodedocumentfragmentnormalize1.xml +674/808 hc_nodedocumentfragmentnormalize2.xml +675/808 hc_notationsremovenameditemns1.xml +676/808 hc_notationssetnameditemns1.xml +677/808 importNode01.xml +678/808 importNode02.xml +679/808 importNode03.xml +680/808 importNode04.xml +681/808 importNode05.xml +682/808 importNode06.xml +683/808 importNode07.xml +684/808 importNode08.xml +685/808 importNode09.xml +686/808 importNode10.xml +687/808 importNode11.xml +688/808 importNode12.xml +689/808 importNode13.xml +690/808 importNode14.xml +691/808 importNode15.xml +692/808 importNode16.xml +693/808 importNode17.xml +694/808 internalSubset01.xml +695/808 isSupported01.xml +696/808 isSupported02.xml +697/808 isSupported04.xml +698/808 isSupported05.xml +699/808 isSupported06.xml +700/808 isSupported07.xml +701/808 isSupported09.xml +702/808 isSupported10.xml +703/808 isSupported11.xml +704/808 isSupported12.xml +705/808 isSupported13.xml +706/808 isSupported14.xml +707/808 localName01.xml +708/808 localName02.xml +709/808 localName03.xml +710/808 localName04.xml +711/808 namednodemapgetnameditemns01.xml +712/808 namednodemapgetnameditemns02.xml +713/808 namednodemapgetnameditemns03.xml +714/808 namednodemapgetnameditemns04.xml +715/808 namednodemapgetnameditemns05.xml +716/808 namednodemapgetnameditemns06.xml +717/808 namednodemapremovenameditemns01.xml +718/808 namednodemapremovenameditemns02.xml +719/808 namednodemapremovenameditemns03.xml +720/808 namednodemapremovenameditemns04.xml +721/808 namednodemapremovenameditemns05.xml +722/808 namednodemapremovenameditemns06.xml +723/808 namednodemapremovenameditemns07.xml +724/808 namednodemapremovenameditemns08.xml +725/808 namednodemapremovenameditemns09.xml +726/808 namednodemapsetnameditemns01.xml +727/808 namednodemapsetnameditemns02.xml +728/808 namednodemapsetnameditemns03.xml +729/808 namednodemapsetnameditemns04.xml +730/808 namednodemapsetnameditemns05.xml +731/808 namednodemapsetnameditemns06.xml +732/808 namednodemapsetnameditemns07.xml +733/808 namednodemapsetnameditemns08.xml +734/808 namednodemapsetnameditemns09.xml +735/808 namednodemapsetnameditemns10.xml +736/808 namednodemapsetnameditemns11.xml +737/808 namespaceURI01.xml +738/808 namespaceURI02.xml +739/808 namespaceURI03.xml +740/808 namespaceURI04.xml +741/808 nodegetlocalname03.xml +742/808 nodegetnamespaceuri03.xml +743/808 nodegetownerdocument01.xml +744/808 nodegetownerdocument02.xml +745/808 nodegetprefix03.xml +746/808 nodehasattributes01.xml +747/808 nodehasattributes02.xml +748/808 nodehasattributes03.xml +749/808 nodehasattributes04.xml +750/808 nodeissupported01.xml +751/808 nodeissupported02.xml +752/808 nodeissupported03.xml +753/808 nodeissupported04.xml +754/808 nodeissupported05.xml +755/808 nodenormalize01.xml +756/808 nodesetprefix01.xml +757/808 nodesetprefix02.xml +758/808 nodesetprefix03.xml +759/808 nodesetprefix04.xml +760/808 nodesetprefix05.xml +761/808 nodesetprefix06.xml +762/808 nodesetprefix07.xml +763/808 nodesetprefix08.xml +764/808 nodesetprefix09.xml +765/808 normalize01.xml +766/808 ownerDocument01.xml +767/808 ownerElement01.xml +768/808 ownerElement02.xml +769/808 prefix01.xml +770/808 prefix02.xml +771/808 prefix03.xml +772/808 prefix04.xml +773/808 prefix05.xml +774/808 prefix06.xml +775/808 prefix07.xml +776/808 prefix08.xml +777/808 prefix09.xml +778/808 prefix10.xml +779/808 prefix11.xml +780/808 publicId01.xml +781/808 removeAttributeNS01.xml +782/808 removeAttributeNS02.xml +783/808 removeNamedItemNS01.xml +784/808 removeNamedItemNS02.xml +785/808 removeNamedItemNS03.xml +786/808 setAttributeNS01.xml +787/808 setAttributeNS02.xml +788/808 setAttributeNS03.xml +789/808 setAttributeNS04.xml +790/808 setAttributeNS05.xml +791/808 setAttributeNS06.xml +792/808 setAttributeNS07.xml +793/808 setAttributeNS09.xml +794/808 setAttributeNS10.xml +795/808 setAttributeNodeNS01.xml +796/808 setAttributeNodeNS02.xml +implementationAttribute expandEntityReferences not supported, skipping test +797/808 setAttributeNodeNS03.xml +798/808 setAttributeNodeNS04.xml +799/808 setAttributeNodeNS05.xml +800/808 setNamedItemNS01.xml +801/808 setNamedItemNS02.xml +802/808 setNamedItemNS03.xml +803/808 setNamedItemNS04.xml +804/808 setNamedItemNS05.xml +805/808 systemId01.xml +153/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/xml/sax-handler.lisp cxml/xml/unparse.lisp cxml/xml/xml-parse.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv22921/xml Modified Files: sax-handler.lisp unparse.lisp xml-parse.lisp Log Message: DOM 2 Core. Ungetestet, aber die 1er tests laufen wieder, daher rein damit. Date: Sun Dec 4 19:44:14 2005 Author: dlichteblau Index: cxml/xml/sax-handler.lisp diff -u cxml/xml/sax-handler.lisp:1.1.1.13 cxml/xml/sax-handler.lisp:1.2 --- cxml/xml/sax-handler.lisp:1.1.1.13 Sun Mar 13 19:02:51 2005 +++ cxml/xml/sax-handler.lisp Sun Dec 4 19:44:05 2005 @@ -72,6 +72,8 @@ #:end-cdata #:start-dtd #:end-dtd + #:start-internal-subset + #:end-internal-subset #:unparsed-entity-declaration #:external-entity-declaration #:internal-entity-declaration @@ -252,6 +254,16 @@ (defgeneric end-dtd (handler) (:documentation "Called at the end of parsing a DTD.") + (:method ((handler t)) nil)) + +(defgeneric start-internal-subset (handler) + (:documentation "Reports that an internal subset is present. Called before +any definition from the internal subset is reported.") + (:method ((handler t)) nil)) + +(defgeneric end-internal-subset (handler) + (:documentation "Called after processing of the internal subset has +finished, if present.") (:method ((handler t)) nil)) (defgeneric unparsed-entity-declaration Index: cxml/xml/unparse.lisp diff -u cxml/xml/unparse.lisp:1.3 cxml/xml/unparse.lisp:1.4 --- cxml/xml/unparse.lisp:1.3 Mon Nov 28 23:33:47 2005 +++ cxml/xml/unparse.lisp Sun Dec 4 19:44:06 2005 @@ -7,9 +7,9 @@ ;;; Author: David Lichteblau <david(a)lichteblau.com> ;;; License: Lisp-LGPL (See file COPYING for details). ;;; --------------------------------------------------------------------------- -;;; Â© copyright 1999 by Gilbert Baumann -;;; Â© copyright 2004 by knowledgeTools Int. GmbH -;;; Â© copyright 2004 by David Lichteblau (for headcraft.de) +;;; Â© copyright 1999 by Gilbert Baumann +;;; Â© copyright 2004 by knowledgeTools Int. GmbH +;;; Â© copyright 2004 by David Lichteblau (for headcraft.de) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public @@ -184,42 +184,185 @@ (unparse-string public-id sink) (write-rod #"\"" sink))))) +(defmethod sax:start-internal-subset ((sink sink)) + (ensure-doctype sink) + (write-rod #" [" sink) + (write-rune #/U+000A sink)) + +(defmethod sax:end-internal-subset ((sink sink)) + (ensure-doctype sink) + (write-rod #"]" sink)) + (defmethod sax:notation-declaration ((sink sink) name public-id system-id) - (when (and (canonical sink) (>= (canonical sink) 2)) - (let ((prev (previous-notation sink))) - (cond - (prev - (unless (rod< prev name) - (error "misordered notations; cannot unparse canonically"))) - (t - (ensure-doctype sink) - (write-rod #" [" sink) - (write-rune #/U+000A sink))) - (setf (previous-notation sink) name)) - (write-rod #"<!NOTATION " sink) + (let ((prev (previous-notation sink))) + (when (and (and (canonical sink) (>= (canonical sink) 2)) + prev + (not (rod< prev name))) + (error "misordered notations; cannot unparse canonically")) + (setf (previous-notation sink) name)) + (write-rod #"<!NOTATION " sink) + (write-rod name sink) + (cond + ((zerop (length public-id)) + (write-rod #" SYSTEM '" sink) + (write-rod system-id sink) + (write-rune #/' sink)) + ((zerop (length system-id)) + (write-rod #" PUBLIC '" sink) + (write-rod public-id sink) + (write-rune #/' sink)) + (t + (write-rod #" PUBLIC '" sink) + (write-rod public-id sink) + (write-rod #"' '" sink) + (write-rod system-id sink) + (write-rune #/' sink))) + (write-rune #/> sink) + (write-rune #/U+000A sink)) + +(defmethod sax:unparsed-entity-declaration + ((sink sink) name public-id system-id notation-name) + (unless (and (canonical sink) (< (canonical sink) 3)) + (write-rod #"<!ENTITY " sink) (write-rod name sink) (cond ((zerop (length public-id)) - (write-rod #" SYSTEM '" sink) - (write-rod system-id sink) - (write-rune #/' sink)) + (write-rod #" SYSTEM '" sink) + (write-rod system-id sink) + (write-rune #/' sink)) ((zerop (length system-id)) - (write-rod #" PUBLIC '" sink) - (write-rod public-id sink) - (write-rune #/' sink)) + (write-rod #" PUBLIC '" sink) + (write-rod public-id sink) + (write-rune #/' sink)) (t - (write-rod #" PUBLIC '" sink) - (write-rod public-id sink) - (write-rod #"' '" sink) - (write-rod system-id sink) - (write-rune #/' sink))) + (write-rod #" PUBLIC '" sink) + (write-rod public-id sink) + (write-rod #"' '" sink) + (write-rod system-id sink) + (write-rune #/' sink))) + (write-rod #" NDATA " sink) + (write-rod notation-name sink) (write-rune #/> sink) (write-rune #/U+000A sink))) +(defmethod sax:external-entity-declaration + ((sink sink) kind name public-id system-id) + (when (canonical sink) + (error "cannot serialize parsed entities in canonical mode")) + (write-rod #"<!ENTITY " sink) + (when (eq kind :parameter) + (write-rod #" % " sink)) + (write-rod name sink) + (cond + ((zerop (length public-id)) + (write-rod #" SYSTEM '" sink) + (write-rod system-id sink) + (write-rune #/' sink)) + ((zerop (length system-id)) + (write-rod #" PUBLIC '" sink) + (write-rod public-id sink) + (write-rune #/' sink)) + (t + (write-rod #" PUBLIC '" sink) + (write-rod public-id sink) + (write-rod #"' '" sink) + (write-rod system-id sink) + (write-rune #/' sink))) + (write-rune #/> sink) + (write-rune #/U+000A sink)) + +(defmethod sax:internal-entity-declaration ((sink sink) kind name value) + (when (canonical sink) + (error "cannot serialize parsed entities in canonical mode")) + (write-rod #"<!ENTITY " sink) + (when (eq kind :parameter) + (write-rod #" % " sink)) + (write-rod name sink) + (write-rune #/U+0020 sink) + (write-rune #/\" sink) + (unparse-string value sink) + (write-rune #/\" sink) + (write-rune #/> sink) + (write-rune #/U+000A sink)) + +(defmethod sax:element-declaration ((sink sink) name model) + (when (canonical sink) + (error "cannot serialize element type declarations in canonical mode")) + (write-rod #"<!ELEMENT " sink) + (write-rod name sink) + (write-rune #/U+0020 sink) + (labels ((walk (m) + (cond + ((eq m :EMPTY) + (write-rod "EMPTY" sink)) + ((eq m :PCDATA) + (write-rod "#PCDATA" sink)) + ((atom m) + (unparse-string m sink)) + (t + (ecase (car m) + (and + (write-rune #/$ sink) + (loop for (n . rest) on (cdr m) do + (walk n) + (when rest + (write-rune #\, sink))) + (write-rune #/$ sink)) + (or + (write-rune #/$ sink) + (loop for (n . rest) on (cdr m) do + (walk n) + (when rest + (write-rune #\| sink))) + (write-rune #/$ sink)) + (* + (walk (second m)) + (write-rod #/* sink)) + (+ + (walk (second m)) + (write-rod #/+ sink)) + (? + (walk (second m)) + (write-rod #/? sink))))))) + (walk model)) + (write-rune #/> sink) + (write-rune #/U+000A sink)) + +(defmethod sax:attribute-declaration ((sink sink) ename aname type default) + (when (canonical sink) + (error "cannot serialize attribute type declarations in canonical mode")) + (write-rod #"<!ATTLIST " sink) + (write-rod ename sink) + (write-rune #/U+0020 sink) + (write-rod aname sink) + (write-rune #/U+0020 sink) + (cond + ((atom type) + (write-rod (rod (string-upcase (symbol-name type))) sink)) + (t + (when (eq :NOTATION (car type)) + (write-rod #"NOTATION " sink)) + (write-rune #/$ sink) + (loop for (n . rest) on (cdr type) do + (write-rod n sink) + (when rest + (write-rune #\| sink))) + (write-rune #/$ sink))) + (cond + ((atom default) + (write-rune #/# sink) + (write-rod (rod (string-upcase (symbol-name default))) sink)) + (t + (when (eq :FIXED (car default)) + (write-rod #"#FIXED " sink)) + (write-rune #/\" sink) + (unparse-string (second default) sink) + (write-rune #/\" sink))) + (write-rune #/> sink) + (write-rune #/U+000A sink)) + (defmethod sax:end-dtd ((sink sink)) (when (have-doctype sink) - (when (previous-notation sink) - (write-rod #"]" sink)) (write-rod #">" sink) (write-rune #/U+000A sink))) Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.49 cxml/xml/xml-parse.lisp:1.50 --- cxml/xml/xml-parse.lisp:1.49 Sat Dec 3 22:54:44 2005 +++ cxml/xml/xml-parse.lisp Sun Dec 4 19:44:06 2005 @@ -1517,7 +1517,6 @@ delim)))))) (defun read-character-reference (input) - ;; xxx eof handling ;; The #/& is already read (let ((res (let ((c (read-rune input))) @@ -2080,9 +2079,9 @@ ;;; to indicate whether the end tag is valid. ;;; ;;; Function B will be called with the character data rod as its argument, it -;;; returns a boolean indicating whether this text element is allowed. +;;; returns a boolean indicating whether this text node is allowed. ;;; -;;; That is, if one of the functions ever returns NIL, the element is +;;; That is, if one of the functions ever returns NIL, the node is ;;; rejected as invalid. (defun cmodel-done (actual-value) @@ -2471,6 +2470,7 @@ (wf-error input "document includes an internal subset")) (ensure-dtd) (consume-token input) + (sax:start-internal-subset (handler *ctx*)) (while (progn (p/S? input) (not (eq (peek-token input) :\] ))) (if (eq (peek-token input) :PE-REFERENCE) @@ -2487,6 +2487,7 @@ (let ((*expand-pe-p* t)) (p/markup-decl input)))) (consume-token input) + (sax:end-internal-subset (handler *ctx*)) (p/S? input)) (expect input :>) (when extid

1 0

[cxml-cvs] CVS update: cxml/test/domtest.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv22921/test Modified Files: domtest.lisp Log Message: DOM 2 Core. Ungetestet, aber die 1er tests laufen wieder, daher rein damit. Date: Sun Dec 4 19:44:00 2005 Author: dlichteblau Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.4 cxml/test/domtest.lisp:1.5 --- cxml/test/domtest.lisp:1.4 Sat Nov 26 23:55:23 2005 +++ cxml/test/domtest.lisp Sun Dec 4 19:44:00 2005 @@ -142,11 +142,14 @@ (c = (elt str i)) :until (runes:rune= c #.(runes:char-rune #\"))) (if (runes:rune= c #.(runes:char-rune #\\)) - (ecase (progn + (let ((frob + (progn (incf i) - (elt str i)) - ;; ... - (#/n (vector-push-extend #/newline v (length v)))) + (elt str i)))) + (ecase frob + ;; ... + (#/n (vector-push-extend #/newline v (length v))) + ((#/\\ #/\") (vector-push-extend #/\\ v (length v))))) (vector-push-extend c v (length v)))) (coerce v 'runes::simple-rod))) (t @@ -163,13 +166,14 @@ ;;;; dom1-interfaces.xml auslesen -(defvar *methods* '()) -(defvar *fields* '()) +(defparameter *methods* '()) +(defparameter *fields* '()) (declaim (special *directory*)) +(declaim (special *files-directory*)) -(defun read-members () - (let* ((pathname (merge-pathnames "patches/dom1-interfaces.xml" *directory*)) +(defun read-members (&optional (directory *directory*)) + (let* ((pathname (merge-pathnames "build/dom2-interfaces.xml" directory)) (builder (dom:make-dom-builder)) (library (dom:document-element (cxml:parse-file pathname builder))) (methods '()) @@ -554,8 +558,15 @@ (defun assert-have-implementation-attribute (element) (let ((attribute (runes:rod-string (dom:get-attribute element "name")))) (string-case attribute + ;; fixme: expandEntityReferences sollten wir auch mal anschalten, wo + ;; wir uns schon die muehe machen... ("validating" (setf cxml::*validate* t)) + ("namespaceAware" + ;; ??? dom 2 ohne namespace-support gibt's doch gar nicht, + ;; ausser vielleicht in html-only implementationen, und dann sollen + ;; sie halt auf hasFeature "XML" testen. + ) (t (format t "~&implementationAttribute ~A not supported, skipping test~%" attribute) @@ -606,12 +617,9 @@ (defun load-file (name &optional will-be-modified-p) (declare (ignore will-be-modified-p)) (setf name (runes:rod-string name)) - (let* ((directory (merge-pathnames "tests/level1/core/files/" *directory*)) - (document - (cxml:parse-file - (make-pathname :name name :type "xml" :defaults directory) - (dom:make-dom-builder)))) - document)) + (cxml:parse-file + (make-pathname :name name :type "xml" :defaults *files-directory*) + (dom:make-dom-builder))) (defparameter *bad-tests* '("hc_elementnormalize2.xml" @@ -628,39 +636,57 @@ (defun run-all-tests (*directory* &optional verbose) (let* ((cxml::*redefinition-warning* nil) - (test-directory (merge-pathnames "tests/level1/core/" *directory*)) - (all-tests (merge-pathnames "alltests.xml" test-directory)) - (builder (dom:make-dom-builder)) - (suite (dom:document-element (cxml:parse-file all-tests builder))) (n 0) (i 0) (ntried 0) (nfailed 0)) - (do-child-elements (member suite) - (unless - (or (equal (dom:tag-name member) "metadata") - (member (runes:rod-string (dom:get-attribute member "href")) - *bad-tests* - :test 'equal)) - (incf n))) - (do-child-elements (member suite) - (let ((href (runes:rod-string (dom:get-attribute member "href")))) - (unless (or (runes:rod= (dom:tag-name member) #"metadata") - (member href *bad-tests* :test 'equal)) - (format t "~&~D/~D ~A~%" i n href) - (let ((lisp (slurp-test (merge-pathnames href test-directory)))) - (when verbose - (print lisp)) - (when lisp - (incf ntried) - (with-simple-restart (skip-test "Skip this test") - (handler-case - (let ((cxml::*validate* nil)) - (funcall (compile nil lisp))) - (serious-condition (c) - (incf nfailed) - (warn "test failed: ~A" c)))))) - (incf i)))) + (flet ((parse (test-directory) + (let* ((all-tests (merge-pathnames "alltests.xml" test-directory)) + (builder (dom:make-dom-builder)) + (suite (dom:document-element + (cxml:parse-file all-tests builder))) + (*files-directory* + (merge-pathnames "files/" test-directory))) + (do-child-elements (member suite) + (unless + (or (equal (dom:tag-name member) "metadata") + (member (runes:rod-string + (dom:get-attribute member "href")) + *bad-tests* + :test 'equal)) + (incf n))) + suite)) + (run (test-directory suite) + (print test-directory) + (let ((*files-directory* + (merge-pathnames "files/" test-directory))) + (do-child-elements (member suite) + (let ((href (runes:rod-string + (dom:get-attribute member "href")))) + (unless (or (runes:rod= (dom:tag-name member) #"metadata") + (member href *bad-tests* :test 'equal)) + (format t "~&~D/~D ~A~%" i n href) + (let ((lisp (slurp-test + (merge-pathnames href test-directory)))) + (when verbose + (print lisp)) + (when lisp + (incf ntried) + (with-simple-restart (skip-test "Skip this test") + (handler-case + (let ((cxml::*validate* nil)) + (funcall (compile nil lisp))) + (serious-condition (c) + (incf nfailed) + (warn "test failed: ~A" c)))))) + (incf i))))))) + (let* ((d1 (merge-pathnames "tests/level1/core/" *directory*)) + (d2 (merge-pathnames "tests/level2/core/" *directory*)) + (suite1 (parse d1)) + (suite2 (parse d2))) + (run d1 suite1) + #+(or) + (run d2 suite2))) (format t "~&~D/~D tests failed; ~D test~:P were skipped" nfailed ntried (- n ntried))))

1 0

[cxml-cvs] CVS update: cxml/dom/dom-builder.lisp cxml/dom/dom-impl.lisp cxml/dom/dom-sax.lisp cxml/dom/package.lisp cxml/dom/unparse.lisp cxml/dom/simple-dom.lisp cxml/dom/string-dom.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv22921/dom Modified Files: dom-builder.lisp dom-impl.lisp dom-sax.lisp package.lisp unparse.lisp Removed Files: simple-dom.lisp string-dom.lisp Log Message: DOM 2 Core. Ungetestet, aber die 1er tests laufen wieder, daher rein damit. Date: Sun Dec 4 19:43:56 2005 Author: dlichteblau Index: cxml/dom/dom-builder.lisp diff -u cxml/dom/dom-builder.lisp:1.3 cxml/dom/dom-builder.lisp:1.4 --- cxml/dom/dom-builder.lisp:1.3 Mon Nov 28 23:33:33 2005 +++ cxml/dom/dom-builder.lisp Sun Dec 4 19:43:54 2005 @@ -12,7 +12,8 @@ (defclass dom-builder () ((document :initform nil :accessor document) - (element-stack :initform '() :accessor element-stack))) + (element-stack :initform '() :accessor element-stack) + (internal-subset :accessor internal-subset))) (defun dom:make-dom-builder () (make-instance 'dom-builder)) @@ -39,26 +40,48 @@ (setf (slot-value (document handler) 'entity-resolver) resolver)) (defmethod sax:start-dtd ((handler dom-builder) name publicid systemid) - (declare (ignore publicid systemid)) (let* ((document (document handler)) - (doctype (make-instance 'dom-impl::document-type - :name name - :notations (make-instance 'dom-impl::named-node-map - :element-type :notation - :owner document) - :entities (make-instance 'dom-impl::named-node-map - :element-type :entity - :owner document)))) + (doctype + (dom:create-document-type 'implementation name publicid systemid))) (setf (slot-value doctype 'dom-impl::owner) document + (slot-value (dom:notations doctype) 'dom-impl::owner) document + (slot-value (dom:entities doctype) 'dom-impl::owner) document (slot-value document 'dom-impl::doc-type) doctype))) +(defmethod sax:start-internal-subset ((handler dom-builder)) + (setf (internal-subset handler) nil)) + +(defmethod sax:end-internal-subset ((handler dom-builder)) + (setf (internal-subset (slot-value (document handler) 'dom-impl::doc-type)) + (nreverse (internal-subset handler))) + (slot-makunbound handler 'internal-subset)) + +(macrolet ((defhandler (name &rest args) + `(defmethod ,name ((handler dom-builder) ,@args) + (when (slot-boundp handler 'internal-subset) + (push (list ',name ,@args) (internal-subset handler)))))) + (defhandler sax:unparsed-entity-declaration + name public-id system-id notation-name) + (defhandler sax:external-entity-declaration + kind name public-id system-id) + (defhandler sax:internal-entity-declaration + kind name value) + (defhandler sax:notation-declaration + name public-id system-id) + (defhandler sax:element-declaration + name model) + (defhandler sax:attribute-declaration + element-name attribute-name type default)) + (defmethod sax:start-element ((handler dom-builder) namespace-uri local-name qname attributes) - (declare (ignore namespace-uri local-name)) (with-slots (document element-stack) handler (let ((element (make-instance 'element :tag-name qname - :owner document)) + :owner document + :namespace-uri namespace-uri + :local-name local-name + :prefix (cxml::split-qname (cxml::rod qname)))) (parent (car element-stack)) (anodes '())) (dolist (attr attributes) @@ -68,6 +91,7 @@ (dom:create-text-node document (sax:attribute-value attr)))) (setf (slot-value anode 'dom-impl::specified-p) (sax:attribute-specified-p attr)) + (setf (slot-value anode 'dom-impl::owner-element) element) (dom:append-child anode text) (push anode anodes))) (setf (slot-value element 'dom-impl::parent) parent) Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.4 cxml/dom/dom-impl.lisp:1.5 --- cxml/dom/dom-impl.lisp:1.4 Mon Nov 28 23:33:33 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 19:43:56 2005 @@ -8,7 +8,8 @@ ;;;; Author: knowledgeTools Int. GmbH (defpackage :dom-impl - (:use :cl :runes)) + (:use :cl :runes) + (:export #:create-document)) (in-package :dom-impl) @@ -33,6 +34,15 @@ (read-only-p :initform nil :reader read-only-p) (map :initform nil))) +(defmethod dom:prefix ((node node)) nil) +(defmethod dom:local-name ((node node)) nil) +(defmethod dom:namespace-uri ((node node)) nil) + +(defclass namespace-mixin () + ((prefix :initarg :prefix :reader dom:prefix) + (local-name :initarg :local-name :reader dom:local-name) + (namespace-uri :initarg :namespace-uri :reader dom:namespace-uri))) + (defclass document (node) ((doc-type :initarg :doc-type :reader dom:doctype) (dtd :initform nil :reader dtd) @@ -44,8 +54,9 @@ (defclass character-data (node) ((value :initarg :data :reader dom:data))) -(defclass attribute (node) +(defclass attribute (namespace-mixin node) ((name :initarg :name :reader dom:name) + (owner-element :initarg :owner-element :reader dom:owner-element) (specified-p :initarg :specified-p :reader dom:specified))) (defmethod print-object ((object attribute) stream) @@ -54,7 +65,7 @@ (rod-string (dom:name object)) (rod-string (dom:value object))))) -(defclass element (node) +(defclass element (namespace-mixin node) ((tag-name :initarg :tag-name :reader dom:tag-name) (attributes :initarg :attributes :reader dom:attributes))) @@ -73,8 +84,11 @@ (defclass document-type (node) ((name :initarg :name :reader dom:name) + (public-id :initarg :public-id :reader dom:public-id) + (system-id :initarg :system-id :reader dom:system-id) (entities :initarg :entities :reader dom:entities) - (notations :initarg :notations :reader dom:notations))) + (notations :initarg :notations :reader dom:notations) + (internal-subset :accessor internal-subset))) (defclass notation (node) ((name :initarg :name :reader dom:name) @@ -176,6 +190,45 @@ (:NOT_SUPPORTED_ERR 9) (:INUSE_ATTRIBUTE_ERR 10))) +;; dom-implementation protocol + +(defmethod dom:has-feature ((factory (eql 'implementation)) feature version) + (and (or (string-equal (rod-string feature) "xml") + (string-equal (rod-string feature) "core")) + (or (string-equal (rod-string version) "1.0") + (string-equal (rod-string version) "2.0")))) + +(defmethod dom:create-document-type + ((factory (eql 'implementation)) name publicid systemid) + (make-instance 'dom-impl::document-type + :name name + :notations (make-instance 'dom-impl::named-node-map + :element-type :notation + :owner nil) + :entities (make-instance 'dom-impl::named-node-map + :element-type :entity + :owner nil) + :public-id publicid + :system-id systemid)) + +(defmethod dom:create-document + ((factory (eql 'implementation)) uri qname doctype) + (let ((document (make-instance 'dom-impl::document))) + (setf (slot-value document 'owner) nil + (slot-value document 'doc-type) doctype + (slot-value document 'namespace-uri) uri) + (setf (values (slot-value document 'prefix) + (slot-value document 'local-name)) + (safe-split-qname qname uri)) + (when doctype + (unless (typep doctype 'document-type) + (dom-error :WRONG_DOCUMENT_ERR + "doctype was created by a different dom implementation")) + (setf (slot-value doctype 'dom-impl::owner) document + (slot-value (dom:notations doctype) 'dom-impl::owner) document + (slot-value (dom:entities doctype) 'dom-impl::owner) document)) + document)) + ;; document-fragment protocol ;; document protocol @@ -191,8 +244,11 @@ (setf tag-name (rod tag-name)) (unless (cxml::valid-name-p tag-name) (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string tag-name))) - (let ((result (make-instance 'element + (let ((result (make-instance 'element :tag-name tag-name + :namespace-uri nil + :local-name nil + :prefix nil :owner document))) (setf (slot-value result 'attributes) (make-instance 'attribute-node-map @@ -202,6 +258,41 @@ (add-default-attributes result) result)) +(defun safe-split-qname (qname uri) + (unless (cxml::valid-name-p qname) + (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string qname))) + (multiple-value-bind (prefix local-name) + (handler-case + (cxml::split-qname qname) + (cxml:well-formedness-violation (c) + (dom-error :NAMESPACE_ERR "~A" c))) + (when prefix + (when (and (rod= prefix "xml") + (not (rod= uri "http://www.w3.org/XML/1998/namespace"))) + (dom-error :NAMESPACE_ERR "invalid uri for prefix `xml'")) + (when (and (rod= prefix "xmlns") + (not (rod= uri "http://www.w3.org/2000/xmlns/"))) + (dom-error :NAMESPACE_ERR "invalid uri for prefix `xmlns'"))) + (values prefix local-name))) + +(defmethod dom:create-element-ns ((document document) uri qname) + (setf qname (rod qname)) + (multiple-value-bind (prefix local-name) + (safe-split-qname qname uri) + (let ((result (make-instance 'element + :tag-name qname + :namespace-uri uri + :local-name local-name + :prefix prefix + :owner document))) + (setf (slot-value result 'attributes) + (make-instance 'attribute-node-map + :element-type :attribute + :owner document + :element result)) + (add-default-attributes result) + result))) + (defmethod dom:create-document-fragment ((document document)) (make-instance 'document-fragment :owner document)) @@ -240,9 +331,25 @@ (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name))) (make-instance 'attribute :name name + :local-name nil + :prefix nil + :namespace-uri nil :specified-p t :owner document)) +(defmethod dom:create-attribute-ns ((document document) uri qname) + (setf uri (rod uri)) + (setf qname (rod qname)) + (multiple-value-bind (prefix local-name) + (safe-split-qname qname uri) + (make-instance 'attribute + :name qname + :namespace-uri uri + :local-name local-name + :prefix prefix + :specified-p t + :owner document))) + (defmethod dom:create-entity-reference ((document document) name) (setf name (rod name)) (unless (cxml::valid-name-p name) @@ -253,23 +360,66 @@ (defmethod get-elements-by-tag-name-internal (node tag-name) (setf tag-name (rod tag-name)) - (let ((result (make-node-list))) - (setf tag-name (rod tag-name)) - (let ((wild-p (rod= tag-name '#.(string-rod "*")))) - (labels ((walk (n) - (dovector (c (dom:child-nodes n)) - (when (dom:element-p c) - (when (or wild-p (rod= tag-name (dom:node-name c))) - (vector-push-extend c result (extension result))) - (walk c))))) - (walk node))) + (let ((result (make-node-list)) + (wild-p (rod= tag-name '#.(string-rod "*")))) + (labels ((walk (n) + (dovector (c (dom:child-nodes n)) + (when (dom:element-p c) + (when (or wild-p (rod= tag-name (dom:node-name c))) + (vector-push-extend c result (extension result))) + (walk c))))) + (walk node)) + result)) + +(defmethod get-elements-by-tag-name-internal-ns (node uri lname) + (setf uri (rod uri)) + (setf lname (rod lname)) + (let ((result (make-node-list)) + (wild-uri-p (rod= uri '#.(string-rod "*"))) + (wild-lname-p (rod= lname '#.(string-rod "*")))) + (labels ((walk (n) + (dovector (c (dom:child-nodes n)) + (when (dom:element-p c) + (when (and (or wild-lname-p (rod= lname (dom:local-name c))) + (or wild-uri-p (rod= uri (dom:namespace-uri c)))) + (vector-push-extend c result (extension result))) + (walk c))))) + (walk node)) result)) (defmethod dom:get-elements-by-tag-name ((document document) tag-name) (get-elements-by-tag-name-internal document tag-name)) +(defmethod dom:get-elements-by-tag-name-ns ((document document) uri lname) + (get-elements-by-tag-name-internal-ns document uri lname)) + +(defmethod dom:get-element-by-id ((document document) id) + (block nil + (unless (dtd document) + (return nil)) + (setf id (rod id)) + (labels ((walk (n) + (dovector (c (dom:child-nodes n)) + (when (dom:element-p c) + (let ((e (cxml::find-element + (cxml::rod (dom:tag-name c)) + (dtd document)))) + (when e + (dolist (a (cxml::elmdef-attributes e)) + (when (eq :ID (cxml::attdef-type a)) + (let* ((name (rod (cxml::attdef-name a))) + (value (dom:get-attribute c name))) + (when (and value (rod= value id)) + (return c))))))) + (walk c))))) + (walk document)))) + + ;;; Node +(defmethod dom:is-supported ((node node) feature version) + (dom:has-feature 'implementation feature version)) + (defmethod dom:parent-node ((node node)) (slot-value node 'parent)) @@ -544,29 +694,50 @@ (setf name (rod name)) (with-slots (items) self (dolist (k items nil) - (cond ((rod= name (dom:node-name k)) - (return k)))))) + (when (rod= name (dom:node-name k)) + (return k))))) -(defmethod dom:set-named-item ((self named-node-map) arg) - (assert-writeable self) - (unless (eq (dom:node-type arg) (slot-value self 'element-type)) +(defmethod dom:get-named-item-ns ((self named-node-map) uri lname) + (setf uri (rod uri)) + (setf lname (rod lname)) + (with-slots (items) self + (dolist (k items nil) + (when (and (equal uri (dom:namespace-uri k)) + (equal lname (dom:local-name k))) + (return k))))) + +(defun %set-named-item (map arg test) + (assert-writeable map) + (unless (eq (dom:node-type arg) (slot-value map 'element-type)) (dom-error :HIERARCHY_REQUEST_ERR "~S cannot adopt ~S, since it is not of type ~S." - self arg (slot-value self 'element-type))) - (unless (eq (dom:owner-document self) (dom:owner-document arg)) + map arg (slot-value map 'element-type))) + (unless (eq (dom:owner-document map) (dom:owner-document arg)) (dom-error :WRONG_DOCUMENT_ERR "~S cannot adopt ~S, since it was created by a different document." - self arg)) + map arg)) (let ((old-map (slot-value arg 'map))) - (when (and old-map (not (eq old-map self))) + (when (and old-map (not (eq old-map map))) (dom-error :INUSE_ATTRIBUTE_ERR "Attribute node already mapped" arg))) - (setf (slot-value arg 'map) self) + (setf (slot-value arg 'map) map) + (with-slots (items) map + (dolist (k items (progn (setf items (cons arg items)) nil)) + (when (funcall test k) + (setf items (cons arg (delete k items))) + (return k))))) + +(defmethod dom:set-named-item ((self named-node-map) arg) (let ((name (dom:node-name arg))) - (with-slots (items) self - (dolist (k items (progn (setf items (cons arg items))nil)) - (cond ((rod= name (dom:node-name k)) - (setf items (cons arg (delete k items))) - (return k))))))) + (%set-named-item self arg (lambda (k) (rod= name (dom:node-name k)))))) + +(defmethod dom:set-named-item-ns ((self named-node-map) arg) + (let ((uri (dom:namespace-uri arg)) + (lname (dom:local-name arg))) + (%set-named-item self + arg + (lambda (k) + (and (rod= lname (dom:local-name k)) + (rod= uri (dom:namespace-uri k))))))) (defmethod dom:remove-named-item ((self named-node-map) name) (assert-writeable self) @@ -577,6 +748,18 @@ (setf items (delete k items)) (return k)))))) +(defmethod dom:remove-named-item-ns ((self named-node-map) uri lname) + (assert-writeable self) + (setf uri (rod uri)) + (setf lname (rod lname)) + (with-slots (items) self + (dolist (k items + (dom-error :NOT_FOUND_ERR "~A not found in ~A" lname self)) + (when (and (rod= lname (dom:local-name k)) + (rod= uri (dom:namespace-uri k))) + (setf items (delete k items)) + (return k))))) + (defmethod dom:length ((self named-node-map)) (with-slots (items) self (length items))) @@ -743,6 +926,15 @@ ;;; ELEMENT +(defmethod dom:has-attributes ((element element)) + (plusp (length (dom:items (dom:attributes element))))) + +(defmethod dom:has-attribute ((element element) name) + (and (dom:get-named-item (dom:attributes element) name) t)) + +(defmethod dom:has-attribute-ns ((element element) uri lname) + (and (dom:get-named-item-ns (dom:attributes element) uri lname) t)) + (defmethod dom:get-attribute-node ((element element) name) (dom:get-named-item (dom:attributes element) name)) @@ -750,24 +942,51 @@ (assert-writeable element) (dom:set-named-item (dom:attributes element) new-attr)) +(defmethod dom:get-attribute-node-ns ((element element) uri lname) + (dom:get-named-item-ns (dom:attributes element) uri lname)) + +(defmethod dom:set-attribute-node-ns ((element element) (new-attr attribute)) + (assert-writeable element) + (dom:set-named-item-ns (dom:attributes element) new-attr)) + (defmethod dom:get-attribute ((element element) name) (let ((a (dom:get-attribute-node element name))) (if a (dom:value a) #.(string-rod "")))) +(defmethod dom:get-attribute-ns ((element element) uri lname) + (let ((a (dom:get-attribute-node-ns element uri lname))) + (if a + (dom:value a) + #.(string-rod "")))) + (defmethod dom:set-attribute ((element element) name value) (assert-writeable element) (with-slots (owner) element (let ((attr (dom:create-attribute owner name))) + (setf (slot-value attr 'owner-element) element) (setf (dom:value attr) value) (dom:set-attribute-node element attr)) (values))) +(defmethod dom:set-attribute-ns ((element element) uri lname value) + (assert-writeable element) + (with-slots (owner) element + (let ((attr (dom:create-attribute-ns owner uri lname))) + (setf (slot-value attr 'owner-element) element) + (setf (dom:value attr) value) + (dom:set-attribute-node-ns element attr)) + (values))) + (defmethod dom:remove-attribute ((element element) name) (assert-writeable element) (dom:remove-attribute-node element (dom:get-attribute-node element name))) +(defmethod dom:remove-attribute-ns ((elt element) uri lname) + (assert-writeable elt) + (dom:remove-attribute-node elt (dom:get-attribute-node-ns elt uri lname))) + (defmethod dom:remove-attribute-node ((element element) (old-attr attribute)) (assert-writeable element) (with-slots (items) (dom:attributes element) @@ -781,14 +1000,18 @@ (defun maybe-add-default-attribute (element name) (let* ((dtd (dtd (slot-value element 'owner))) - (e (when dtd (cxml::find-element (dom:tag-name element) dtd))) + (e (when dtd (cxml::find-element + (cxml::rod (dom:tag-name element)) + dtd))) (a (when e (cxml::find-attribute e name)))) (when (and a (listp (cxml::attdef-default a))) (add-default-attribute element a)))) (defun add-default-attributes (element) (let* ((dtd (dtd (slot-value element 'owner))) - (e (when dtd (cxml::find-element (dom:tag-name element) dtd)))) + (e (when dtd (cxml::find-element + (cxml::rod (dom:tag-name element)) + dtd)))) (when e (dolist (a (cxml::elmdef-attributes e)) (when (and a (listp (cxml::attdef-default a))) @@ -799,7 +1022,8 @@ (owner (slot-value element 'owner)) (anode (dom:create-attribute owner (cxml::attdef-name adef))) (text (dom:create-text-node owner value))) - (setf (slot-value anode 'dom-impl::specified-p) nil) + (setf (slot-value anode 'specified-p) nil) + (setf (slot-value anode 'owner-element) element) (dom:append-child anode text) (push anode (slot-value (dom:attributes element) 'items)))) @@ -810,8 +1034,16 @@ (assert-writeable element) (get-elements-by-tag-name-internal element name)) -(defmethod dom:normalize ((element element)) +(defmethod dom:get-elements-by-tag-name-ns ((element element) uri lname) (assert-writeable element) + (get-elements-by-tag-name-internal-ns element uri lname)) + +(defmethod dom:set-named-item :after ((self attribute-node-map) arg) + (setf (slot-value arg 'owner-element) + (slot-value self 'element))) + +(defmethod dom:normalize ((node node)) + (assert-writeable node) (labels ((walk (n) (when (eq (dom:node-type n) :element) (map nil #'walk (dom:items (dom:attributes n)))) @@ -837,7 +1069,7 @@ (setf previous child) (incf i)))))) (map nil #'walk (dom:child-nodes n)))) - (walk element)) + (walk node)) (values)) ;;; TEXT @@ -856,7 +1088,17 @@ ;;; COMMENT -- nix ;;; CDATA-SECTION -- nix -;;; DOCUMENT-TYPE -- missing +;;; DOCUMENT-TYPE + +(defmethod dom:internal-subset ((node document-type)) + ;; FIXME: encoding ist falsch, anderen sink nehmen! + (if (slot-boundp node 'internal-subset) + (with-output-to-string (stream) + (let ((sink (cxml:make-character-stream-sink stream))) + (dolist (def (internal-subset node)) + (apply (car def) sink (cdr def))))) + nil)) + ;;; NOTATION -- nix ;;; ENTITY -- nix @@ -978,6 +1220,9 @@ :owner document)) (result (import-node-internal 'element document node deep :attributes attributes + :namespace-uri (dom:namespace-uri node) + :local-name (dom:local-name node) + :prefix (dom:prefix node) :tag-name (dom:tag-name node)))) (setf (slot-value attributes 'element) result) (dolist (attribute (dom:items (dom:attributes node))) @@ -1034,7 +1279,7 @@ ;;; Erweiterung -(defun dom:create-document (&optional document-element) +(defun dom-impl:create-document (&optional document-element) ;; Um ein neues Dokumentenobject zu erzeugen, parsen wir einfach ein ;; Dummydokument. (let* ((handler (dom:make-dom-builder)) Index: cxml/dom/dom-sax.lisp diff -u cxml/dom/dom-sax.lisp:1.2 cxml/dom/dom-sax.lisp:1.3 --- cxml/dom/dom-sax.lisp:1.2 Mon Nov 28 23:33:33 2005 +++ cxml/dom/dom-sax.lisp Sun Dec 4 19:43:56 2005 @@ -11,26 +11,41 @@ (defun dom:map-document (handler document &key (include-xmlns-attributes sax:*include-xmlns-attributes*) + include-doctype include-default-values) (sax:start-document handler) - (let ((doctype (dom:doctype document))) - (when doctype - (sax:start-dtd handler (dom:name doctype) nil nil) - ;; need notations for canonical mode 2 - (let* ((ns (dom:notations doctype)) - (a (make-array (dom:length ns)))) - ;; get them - (dotimes (k (dom:length ns)) - (setf (elt a k) (dom:item ns k))) - ;; sort them - (setf a (sort a #'rod< :key #'dom:name)) - (loop for n across a do - (sax:notation-declaration handler - (dom:name n) - (dom:public-id n) - (dom:system-id n))) - ;; fixme: entities! - (sax:end-dtd handler)))) + (when include-doctype + (let ((doctype (dom:doctype document))) + (when doctype + (sax:start-dtd handler + (dom:name doctype) + (dom:public-id doctype) + (dom:system-id doctype)) + (ecase include-doctype + (:full-internal-subset + (when (slot-boundp doctype 'internal-subset) + (sax:start-internal-subset handler) + (dolist (def (internal-subset doctype)) + (apply (car def) handler (cdr def))) + (sax:end-internal-subset handler))) + (:canonical-notations + ;; need notations for canonical mode 2 + (let* ((ns (dom:notations doctype)) + (a (make-array (dom:length ns)))) + (when (plusp (dom:length ns)) + (sax:start-internal-subset handler) + ;; get them + (dotimes (k (dom:length ns)) + (setf (elt a k) (dom:item ns k))) + ;; sort them + (setf a (sort a #'rod< :key #'dom:name)) + (loop for n across a do + (sax:notation-declaration handler + (dom:name n) + (dom:public-id n) + (dom:system-id n))) + (sax:end-internal-subset handler))))) + (sax:end-dtd handler)))) (labels ((walk (node) (dom:do-node-list (child (dom:child-nodes node)) (ecase (dom:node-type child) Index: cxml/dom/package.lisp diff -u cxml/dom/package.lisp:1.2 cxml/dom/package.lisp:1.3 --- cxml/dom/package.lisp:1.2 Mon Nov 28 23:33:33 2005 +++ cxml/dom/package.lisp Sun Dec 4 19:43:56 2005 @@ -12,7 +12,33 @@ ;; lisp-specific extensions #:make-dom-builder - ;; methods + ;; DOM 2 functions + #:owner-element + #:import-node + #:create-element-ns + #:create-attribute-ns + #:get-elements-by-tag-name-ns + #:get-element-by-id + #:get-named-item-ns + #:set-named-item-ns + #:remove-named-item-ns + #:is-supported + #:has-attributes + #:namespace-uri + #:prefix + #:local-name + #:internal-subset + #:create-document-type + #:create-document + #:get-attribute-ns + #:set-attribute-ns + #:remove-attribute-ns + #:get-attribute-node-ns + #:set-attribute-node-ns + #:has-attribute + #:has-attribute-ns + + ;; DOM 1 functions #:has-feature #:doctype #:implementation @@ -72,7 +98,6 @@ #:system-id #:notation-name #:target - #:import-node #:code ;; protocol classes Index: cxml/dom/unparse.lisp diff -u cxml/dom/unparse.lisp:1.1.1.1 cxml/dom/unparse.lisp:1.2 --- cxml/dom/unparse.lisp:1.1.1.1 Sun Mar 13 19:02:47 2005 +++ cxml/dom/unparse.lisp Sun Dec 4 19:43:56 2005 @@ -1,9 +1,20 @@ (in-package :cxml) -(defun unparse-document-to-octets (doc &rest initargs) - (let ((sink (apply #'make-octet-vector-sink initargs))) - (dom:map-document sink doc :include-default-values t))) +(defun %unparse-document (sink doc canonical) + (dom:map-document sink + doc + :include-doctype (if (and canonical (>= canonical 2)) + :canonical-notations + nil) + :include-default-values t)) -(defun unparse-document (doc character-stream &rest initargs) - (let ((sink (apply #'make-character-stream-sink character-stream initargs))) - (dom:map-document sink doc :include-default-values t))) +(defun unparse-document-to-octets (doc &rest initargs &key canonical) + (%unparse-document (apply #'make-octet-vector-sink initargs) + doc + canonical)) + +(defun unparse-document (doc character-stream &rest initargs &key canonical) + (%unparse-document + (apply #'make-character-stream-sink character-stream initargs) + doc + canonical))

1 0

[cxml-cvs] CVS update: cxml/DOMTEST cxml/README.html
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv22921 Modified Files: DOMTEST README.html Log Message: DOM 2 Core. Ungetestet, aber die 1er tests laufen wieder, daher rein damit. Date: Sun Dec 4 19:43:50 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.1 cxml/DOMTEST:1.2 --- cxml/DOMTEST:1.1 Sat Nov 26 23:55:22 2005 +++ cxml/DOMTEST Sun Dec 4 19:43:49 2005 @@ -1,550 +1,552 @@ -0/525 attrcreatedocumentfragment.xml -1/525 attrcreatetextnode.xml -2/525 attrcreatetextnode2.xml -3/525 attrdefaultvalue.xml -4/525 attreffectivevalue.xml -5/525 attrentityreplacement.xml -6/525 attrname.xml -7/525 attrnextsiblingnull.xml -8/525 attrnotspecifiedvalue.xml -9/525 attrparentnodenull.xml -10/525 attrprevioussiblingnull.xml -11/525 attrsetvaluenomodificationallowederr.xml + +#P"/home/david/2001/DOM-Test-Suite/tests/level1/core/" +0/808 attrcreatedocumentfragment.xml +1/808 attrcreatetextnode.xml +2/808 attrcreatetextnode2.xml +3/808 attrdefaultvalue.xml +4/808 attreffectivevalue.xml +5/808 attrentityreplacement.xml +6/808 attrname.xml +7/808 attrnextsiblingnull.xml +8/808 attrnotspecifiedvalue.xml +9/808 attrparentnodenull.xml +10/808 attrprevioussiblingnull.xml +11/808 attrsetvaluenomodificationallowederr.xml implementationAttribute expandEntityReferences not supported, skipping test -12/525 attrsetvaluenomodificationallowederrEE.xml -13/525 attrspecifiedvalue.xml -14/525 attrspecifiedvaluechanged.xml -15/525 attrspecifiedvalueremove.xml -16/525 cdatasectiongetdata.xml +12/808 attrsetvaluenomodificationallowederrEE.xml +13/808 attrspecifiedvalue.xml +14/808 attrspecifiedvaluechanged.xml +15/808 attrspecifiedvalueremove.xml +16/808 cdatasectiongetdata.xml implementationAttribute coalescing not supported, skipping test -17/525 cdatasectionnormalize.xml -18/525 characterdataappenddata.xml -19/525 characterdataappenddatagetdata.xml -20/525 characterdataappenddatanomodificationallowederr.xml -21/525 characterdataappenddatanomodificationallowederrEE.xml -22/525 characterdatadeletedatabegining.xml -23/525 characterdatadeletedataend.xml -24/525 characterdatadeletedataexceedslength.xml -25/525 characterdatadeletedatagetlengthanddata.xml -26/525 characterdatadeletedatamiddle.xml -27/525 characterdatadeletedatanomodificationallowederrEE.xml -28/525 characterdatagetdata.xml -29/525 characterdatagetlength.xml -30/525 characterdataindexsizeerrdeletedatacountnegative.xml -implementationAttribute signed not supported, skipping test -31/525 characterdataindexsizeerrdeletedataoffsetgreater.xml -32/525 characterdataindexsizeerrdeletedataoffsetnegative.xml -implementationAttribute signed not supported, skipping test -33/525 characterdataindexsizeerrinsertdataoffsetgreater.xml -34/525 characterdataindexsizeerrinsertdataoffsetnegative.xml -implementationAttribute signed not supported, skipping test -35/525 characterdataindexsizeerrreplacedatacountnegative.xml -implementationAttribute signed not supported, skipping test -36/525 characterdataindexsizeerrreplacedataoffsetgreater.xml -37/525 characterdataindexsizeerrreplacedataoffsetnegative.xml -implementationAttribute signed not supported, skipping test -38/525 characterdataindexsizeerrsubstringcountnegative.xml -implementationAttribute signed not supported, skipping test -39/525 characterdataindexsizeerrsubstringnegativeoffset.xml -implementationAttribute signed not supported, skipping test -40/525 characterdataindexsizeerrsubstringoffsetgreater.xml -41/525 characterdatainsertdatabeginning.xml -42/525 characterdatainsertdataend.xml -43/525 characterdatainsertdatamiddle.xml -44/525 characterdatainsertdatanomodificationallowederr.xml -45/525 characterdatainsertdatanomodificationallowederrEE.xml -46/525 characterdatareplacedatabegining.xml -47/525 characterdatareplacedataend.xml -48/525 characterdatareplacedataexceedslengthofarg.xml -49/525 characterdatareplacedataexceedslengthofdata.xml -50/525 characterdatareplacedatamiddle.xml -51/525 characterdatareplacedatanomodificationallowederr.xml -52/525 characterdatareplacedatanomodificationallowederrEE.xml -53/525 characterdatasetdatanomodificationallowederr.xml -54/525 characterdatasetdatanomodificationallowederrEE.xml -55/525 characterdatasetnodevalue.xml -56/525 characterdatasubstringexceedsvalue.xml -57/525 characterdatasubstringvalue.xml -58/525 commentgetcomment.xml -59/525 documentcreateattribute.xml -60/525 documentcreatecdatasection.xml -61/525 documentcreatecomment.xml -62/525 documentcreatedocumentfragment.xml -63/525 documentcreateelement.xml -64/525 documentcreateelementcasesensitive.xml -65/525 documentcreateelementdefaultattr.xml -66/525 documentcreateentityreference.xml -67/525 documentcreateentityreferenceknown.xml -68/525 documentcreateprocessinginstruction.xml -69/525 documentcreatetextnode.xml -70/525 documentgetdoctype.xml -71/525 documentgetdoctypenodtd.xml -72/525 documentgetelementsbytagnamelength.xml -73/525 documentgetelementsbytagnametotallength.xml -74/525 documentgetelementsbytagnamevalue.xml -75/525 documentgetimplementation.xml -76/525 documentgetrootnode.xml -77/525 documentinvalidcharacterexceptioncreateattribute.xml -78/525 documentinvalidcharacterexceptioncreateelement.xml -79/525 documentinvalidcharacterexceptioncreateentref.xml -80/525 documentinvalidcharacterexceptioncreateentref1.xml -81/525 documentinvalidcharacterexceptioncreatepi.xml -82/525 documentinvalidcharacterexceptioncreatepi1.xml -83/525 documenttypegetdoctype.xml -84/525 documenttypegetentities.xml -85/525 documenttypegetentitieslength.xml -86/525 documenttypegetentitiestype.xml -87/525 documenttypegetnotations.xml -88/525 documenttypegetnotationstype.xml -89/525 domimplementationfeaturenoversion.xml -90/525 domimplementationfeaturenull.xml +17/808 cdatasectionnormalize.xml +18/808 characterdataappenddata.xml +19/808 characterdataappenddatagetdata.xml +20/808 characterdataappenddatanomodificationallowederr.xml +21/808 characterdataappenddatanomodificationallowederrEE.xml +22/808 characterdatadeletedatabegining.xml +23/808 characterdatadeletedataend.xml +24/808 characterdatadeletedataexceedslength.xml +25/808 characterdatadeletedatagetlengthanddata.xml +26/808 characterdatadeletedatamiddle.xml +27/808 characterdatadeletedatanomodificationallowederrEE.xml +28/808 characterdatagetdata.xml +29/808 characterdatagetlength.xml +30/808 characterdataindexsizeerrdeletedatacountnegative.xml +implementationAttribute signed not supported, skipping test +31/808 characterdataindexsizeerrdeletedataoffsetgreater.xml +32/808 characterdataindexsizeerrdeletedataoffsetnegative.xml +implementationAttribute signed not supported, skipping test +33/808 characterdataindexsizeerrinsertdataoffsetgreater.xml +34/808 characterdataindexsizeerrinsertdataoffsetnegative.xml +implementationAttribute signed not supported, skipping test +35/808 characterdataindexsizeerrreplacedatacountnegative.xml +implementationAttribute signed not supported, skipping test +36/808 characterdataindexsizeerrreplacedataoffsetgreater.xml +37/808 characterdataindexsizeerrreplacedataoffsetnegative.xml +implementationAttribute signed not supported, skipping test +38/808 characterdataindexsizeerrsubstringcountnegative.xml +implementationAttribute signed not supported, skipping test +39/808 characterdataindexsizeerrsubstringnegativeoffset.xml +implementationAttribute signed not supported, skipping test +40/808 characterdataindexsizeerrsubstringoffsetgreater.xml +41/808 characterdatainsertdatabeginning.xml +42/808 characterdatainsertdataend.xml +43/808 characterdatainsertdatamiddle.xml +44/808 characterdatainsertdatanomodificationallowederr.xml +45/808 characterdatainsertdatanomodificationallowederrEE.xml +46/808 characterdatareplacedatabegining.xml +47/808 characterdatareplacedataend.xml +48/808 characterdatareplacedataexceedslengthofarg.xml +49/808 characterdatareplacedataexceedslengthofdata.xml +50/808 characterdatareplacedatamiddle.xml +51/808 characterdatareplacedatanomodificationallowederr.xml +52/808 characterdatareplacedatanomodificationallowederrEE.xml +53/808 characterdatasetdatanomodificationallowederr.xml +54/808 characterdatasetdatanomodificationallowederrEE.xml +55/808 characterdatasetnodevalue.xml +56/808 characterdatasubstringexceedsvalue.xml +57/808 characterdatasubstringvalue.xml +58/808 commentgetcomment.xml +59/808 documentcreateattribute.xml +60/808 documentcreatecdatasection.xml +61/808 documentcreatecomment.xml +62/808 documentcreatedocumentfragment.xml +63/808 documentcreateelement.xml +64/808 documentcreateelementcasesensitive.xml +65/808 documentcreateelementdefaultattr.xml +66/808 documentcreateentityreference.xml +67/808 documentcreateentityreferenceknown.xml +68/808 documentcreateprocessinginstruction.xml +69/808 documentcreatetextnode.xml +70/808 documentgetdoctype.xml +71/808 documentgetdoctypenodtd.xml +72/808 documentgetelementsbytagnamelength.xml +73/808 documentgetelementsbytagnametotallength.xml +74/808 documentgetelementsbytagnamevalue.xml +75/808 documentgetimplementation.xml +76/808 documentgetrootnode.xml +77/808 documentinvalidcharacterexceptioncreateattribute.xml +78/808 documentinvalidcharacterexceptioncreateelement.xml +79/808 documentinvalidcharacterexceptioncreateentref.xml +80/808 documentinvalidcharacterexceptioncreateentref1.xml +81/808 documentinvalidcharacterexceptioncreatepi.xml +82/808 documentinvalidcharacterexceptioncreatepi1.xml +83/808 documenttypegetdoctype.xml +84/808 documenttypegetentities.xml +85/808 documenttypegetentitieslength.xml +86/808 documenttypegetentitiestype.xml +87/808 documenttypegetnotations.xml +88/808 documenttypegetnotationstype.xml +89/808 domimplementationfeaturenoversion.xml +90/808 domimplementationfeaturenull.xml implementationAttribute hasNullString not supported, skipping test -91/525 domimplementationfeaturexml.xml -92/525 elementaddnewattribute.xml -93/525 elementassociatedattribute.xml -94/525 elementchangeattributevalue.xml -95/525 elementcreatenewattribute.xml -96/525 elementgetattributenode.xml -97/525 elementgetattributenodenull.xml -98/525 elementgetelementempty.xml -99/525 elementgetelementsbytagname.xml -100/525 elementgetelementsbytagnameaccessnodelist.xml -101/525 elementgetelementsbytagnamenomatch.xml -102/525 elementgetelementsbytagnamespecialvalue.xml -103/525 elementgettagname.xml -104/525 elementinuseattributeerr.xml -105/525 elementinvalidcharacterexception.xml -106/525 elementnormalize.xml -107/525 elementnotfounderr.xml -108/525 elementremoveattribute.xml -109/525 elementremoveattributeaftercreate.xml -110/525 elementremoveattributenode.xml -111/525 elementremoveattributenodenomodificationallowederr.xml -112/525 elementremoveattributenodenomodificationallowederrEE.xml -113/525 elementremoveattributenomodificationallowederr.xml -114/525 elementremoveattributenomodificationallowederrEE.xml -115/525 elementremoveattributerestoredefaultvalue.xml -116/525 elementreplaceattributewithself.xml -117/525 elementreplaceexistingattribute.xml -118/525 elementreplaceexistingattributegevalue.xml -119/525 elementretrieveallattributes.xml -120/525 elementretrieveattrvalue.xml -121/525 elementretrievetagname.xml -122/525 elementsetattributenodenomodificationallowederr.xml -123/525 elementsetattributenodenomodificationallowederrEE.xml +91/808 domimplementationfeaturexml.xml +92/808 elementaddnewattribute.xml +93/808 elementassociatedattribute.xml +94/808 elementchangeattributevalue.xml +95/808 elementcreatenewattribute.xml +96/808 elementgetattributenode.xml +97/808 elementgetattributenodenull.xml +98/808 elementgetelementempty.xml +99/808 elementgetelementsbytagname.xml +100/808 elementgetelementsbytagnameaccessnodelist.xml +101/808 elementgetelementsbytagnamenomatch.xml +102/808 elementgetelementsbytagnamespecialvalue.xml +103/808 elementgettagname.xml +104/808 elementinuseattributeerr.xml +105/808 elementinvalidcharacterexception.xml +106/808 elementnormalize.xml +107/808 elementnotfounderr.xml +108/808 elementremoveattribute.xml +109/808 elementremoveattributeaftercreate.xml +110/808 elementremoveattributenode.xml +111/808 elementremoveattributenodenomodificationallowederr.xml +112/808 elementremoveattributenodenomodificationallowederrEE.xml +113/808 elementremoveattributenomodificationallowederr.xml +114/808 elementremoveattributenomodificationallowederrEE.xml +115/808 elementremoveattributerestoredefaultvalue.xml +116/808 elementreplaceattributewithself.xml +117/808 elementreplaceexistingattribute.xml +118/808 elementreplaceexistingattributegevalue.xml +119/808 elementretrieveallattributes.xml +120/808 elementretrieveattrvalue.xml +121/808 elementretrievetagname.xml +122/808 elementsetattributenodenomodificationallowederr.xml +123/808 elementsetattributenodenomodificationallowederrEE.xml implementationAttribute expandEntityReferences not supported, skipping test -124/525 elementsetattributenodenull.xml -125/525 elementsetattributenomodificationallowederr.xml +124/808 elementsetattributenodenull.xml +125/808 elementsetattributenomodificationallowederr.xml implementationAttribute expandEntityReferences not supported, skipping test -126/525 elementsetattributenomodificationallowederrEE.xml -127/525 elementwrongdocumenterr.xml -128/525 entitygetentityname.xml -129/525 entitygetpublicid.xml -130/525 entitygetpublicidnull.xml -131/525 namednodemapchildnoderange.xml -132/525 namednodemapgetnameditem.xml -133/525 namednodemapinuseattributeerr.xml -134/525 namednodemapnotfounderr.xml -135/525 namednodemapnumberofnodes.xml -136/525 namednodemapremovenameditem.xml -137/525 namednodemapremovenameditemgetvalue.xml -138/525 namednodemapremovenameditemreturnnodevalue.xml -139/525 namednodemapreturnattrnode.xml -140/525 namednodemapreturnfirstitem.xml -141/525 namednodemapreturnlastitem.xml -142/525 namednodemapreturnnull.xml -143/525 namednodemapsetnameditem.xml -144/525 namednodemapsetnameditemreturnvalue.xml -145/525 namednodemapsetnameditemthatexists.xml -146/525 namednodemapsetnameditemwithnewvalue.xml -147/525 namednodemapwrongdocumenterr.xml -148/525 nodeappendchild.xml -149/525 nodeappendchildchildexists.xml -150/525 nodeappendchilddocfragment.xml -151/525 nodeappendchildgetnodename.xml -152/525 nodeappendchildinvalidnodetype.xml -153/525 nodeappendchildnewchilddiffdocument.xml -154/525 nodeappendchildnodeancestor.xml -155/525 nodeappendchildnomodificationallowederr.xml -156/525 nodeappendchildnomodificationallowederrEE.xml -157/525 nodeattributenodeattribute.xml -158/525 nodeattributenodename.xml -159/525 nodeattributenodetype.xml -160/525 nodeattributenodevalue.xml -161/525 nodecdatasectionnodeattribute.xml -162/525 nodecdatasectionnodename.xml -163/525 nodecdatasectionnodetype.xml +126/808 elementsetattributenomodificationallowederrEE.xml +127/808 elementwrongdocumenterr.xml +128/808 entitygetentityname.xml +129/808 entitygetpublicid.xml +130/808 entitygetpublicidnull.xml +131/808 namednodemapchildnoderange.xml +132/808 namednodemapgetnameditem.xml +133/808 namednodemapinuseattributeerr.xml +134/808 namednodemapnotfounderr.xml +135/808 namednodemapnumberofnodes.xml +136/808 namednodemapremovenameditem.xml +137/808 namednodemapremovenameditemgetvalue.xml +138/808 namednodemapremovenameditemreturnnodevalue.xml +139/808 namednodemapreturnattrnode.xml +140/808 namednodemapreturnfirstitem.xml +141/808 namednodemapreturnlastitem.xml +142/808 namednodemapreturnnull.xml +143/808 namednodemapsetnameditem.xml +144/808 namednodemapsetnameditemreturnvalue.xml +145/808 namednodemapsetnameditemthatexists.xml +146/808 namednodemapsetnameditemwithnewvalue.xml +147/808 namednodemapwrongdocumenterr.xml +148/808 nodeappendchild.xml +149/808 nodeappendchildchildexists.xml +150/808 nodeappendchilddocfragment.xml +151/808 nodeappendchildgetnodename.xml +152/808 nodeappendchildinvalidnodetype.xml +153/808 nodeappendchildnewchilddiffdocument.xml +154/808 nodeappendchildnodeancestor.xml +155/808 nodeappendchildnomodificationallowederr.xml +156/808 nodeappendchildnomodificationallowederrEE.xml +157/808 nodeattributenodeattribute.xml +158/808 nodeattributenodename.xml +159/808 nodeattributenodetype.xml +160/808 nodeattributenodevalue.xml +161/808 nodecdatasectionnodeattribute.xml +162/808 nodecdatasectionnodename.xml +163/808 nodecdatasectionnodetype.xml implementationAttribute coalescing not supported, skipping test -164/525 nodecdatasectionnodevalue.xml +164/808 nodecdatasectionnodevalue.xml implementationAttribute coalescing not supported, skipping test -165/525 nodechildnodes.xml -166/525 nodechildnodesappendchild.xml -167/525 nodechildnodesempty.xml -168/525 nodecloneattributescopied.xml -169/525 nodeclonefalsenocopytext.xml -170/525 nodeclonegetparentnull.xml -171/525 nodeclonenodefalse.xml -172/525 nodeclonenodetrue.xml -173/525 nodeclonetruecopytext.xml -174/525 nodecommentnodeattributes.xml -175/525 nodecommentnodename.xml -176/525 nodecommentnodetype.xml -177/525 nodecommentnodevalue.xml -178/525 nodedocumentfragmentnodename.xml -179/525 nodedocumentfragmentnodetype.xml -180/525 nodedocumentfragmentnodevalue.xml -181/525 nodedocumentnodeattribute.xml -182/525 nodedocumentnodename.xml -183/525 nodedocumentnodetype.xml -184/525 nodedocumentnodevalue.xml -185/525 nodedocumenttypenodename.xml -186/525 nodedocumenttypenodetype.xml -187/525 nodedocumenttypenodevalue.xml -188/525 nodeelementnodeattributes.xml -189/525 nodeelementnodename.xml -190/525 nodeelementnodetype.xml -191/525 nodeelementnodevalue.xml -192/525 nodeentitynodeattributes.xml -193/525 nodeentitynodename.xml -194/525 nodeentitynodetype.xml -195/525 nodeentitynodevalue.xml -196/525 nodeentitysetnodevalue.xml -197/525 nodeentityreferencenodeattributes.xml -198/525 nodeentityreferencenodename.xml -199/525 nodeentityreferencenodetype.xml -200/525 nodeentityreferencenodevalue.xml -201/525 nodegetfirstchild.xml -202/525 nodegetfirstchildnull.xml -203/525 nodegetlastchild.xml -204/525 nodegetlastchildnull.xml -205/525 nodegetnextsibling.xml -206/525 nodegetnextsiblingnull.xml -207/525 nodegetownerdocument.xml -208/525 nodegetownerdocumentnull.xml -209/525 nodegetprevioussibling.xml -210/525 nodegetprevioussiblingnull.xml -211/525 nodehaschildnodes.xml -212/525 nodehaschildnodesfalse.xml -213/525 nodeinsertbefore.xml -214/525 nodeinsertbeforedocfragment.xml -215/525 nodeinsertbeforeinvalidnodetype.xml -216/525 nodeinsertbeforenewchilddiffdocument.xml -217/525 nodeinsertbeforenewchildexists.xml -218/525 nodeinsertbeforenodeancestor.xml -219/525 nodeinsertbeforenodename.xml -220/525 nodeinsertbeforenomodificationallowederr.xml -221/525 nodeinsertbeforenomodificationallowederrEE.xml -222/525 nodeinsertbeforerefchildnonexistent.xml -223/525 nodeinsertbeforerefchildnull.xml -224/525 nodelistindexequalzero.xml -225/525 nodelistindexgetlength.xml -226/525 nodelistindexgetlengthofemptylist.xml -227/525 nodelistindexnotzero.xml -228/525 nodelistreturnfirstitem.xml -229/525 nodelistreturnlastitem.xml -230/525 nodelisttraverselist.xml -231/525 nodenotationnodeattributes.xml -232/525 nodenotationnodename.xml -233/525 nodenotationnodetype.xml -234/525 nodenotationnodevalue.xml -235/525 nodeparentnode.xml -236/525 nodeparentnodenull.xml -237/525 nodeprocessinginstructionnodeattributes.xml -238/525 nodeprocessinginstructionnodename.xml -239/525 nodeprocessinginstructionnodetype.xml -240/525 nodeprocessinginstructionnodevalue.xml -241/525 nodeprocessinginstructionsetnodevalue.xml -242/525 noderemovechild.xml -243/525 noderemovechildgetnodename.xml -244/525 noderemovechildnode.xml -245/525 noderemovechildnomodificationallowederr.xml -246/525 noderemovechildnomodificationallowederrEE.xml -247/525 noderemovechildoldchildnonexistent.xml -248/525 nodereplacechild.xml -249/525 nodereplacechildinvalidnodetype.xml -250/525 nodereplacechildnewchilddiffdocument.xml -251/525 nodereplacechildnewchildexists.xml -252/525 nodereplacechildnodeancestor.xml -253/525 nodereplacechildnodename.xml -254/525 nodereplacechildnomodificationallowederr.xml -255/525 nodereplacechildnomodificationallowederrEE.xml -256/525 nodereplacechildoldchildnonexistent.xml -257/525 nodesetnodevaluenomodificationallowederr.xml -258/525 nodesetnodevaluenomodificationallowederrEE.xml -259/525 nodetextnodeattribute.xml -260/525 nodetextnodename.xml -261/525 nodetextnodetype.xml -262/525 nodetextnodevalue.xml -263/525 notationgetnotationname.xml -264/525 notationgetpublicid.xml -265/525 notationgetpublicidnull.xml -266/525 notationgetsystemid.xml -267/525 notationgetsystemidnull.xml -268/525 processinginstructiongetdata.xml -269/525 processinginstructiongettarget.xml -270/525 processinginstructionsetdatanomodificationallowederr.xml +165/808 nodechildnodes.xml +166/808 nodechildnodesappendchild.xml +167/808 nodechildnodesempty.xml +168/808 nodecloneattributescopied.xml +169/808 nodeclonefalsenocopytext.xml +170/808 nodeclonegetparentnull.xml +171/808 nodeclonenodefalse.xml +172/808 nodeclonenodetrue.xml +173/808 nodeclonetruecopytext.xml +174/808 nodecommentnodeattributes.xml +175/808 nodecommentnodename.xml +176/808 nodecommentnodetype.xml +177/808 nodecommentnodevalue.xml +178/808 nodedocumentfragmentnodename.xml +179/808 nodedocumentfragmentnodetype.xml +180/808 nodedocumentfragmentnodevalue.xml +181/808 nodedocumentnodeattribute.xml +182/808 nodedocumentnodename.xml +183/808 nodedocumentnodetype.xml +184/808 nodedocumentnodevalue.xml +185/808 nodedocumenttypenodename.xml +186/808 nodedocumenttypenodetype.xml +187/808 nodedocumenttypenodevalue.xml +188/808 nodeelementnodeattributes.xml +189/808 nodeelementnodename.xml +190/808 nodeelementnodetype.xml +191/808 nodeelementnodevalue.xml +192/808 nodeentitynodeattributes.xml +193/808 nodeentitynodename.xml +194/808 nodeentitynodetype.xml +195/808 nodeentitynodevalue.xml +196/808 nodeentitysetnodevalue.xml +197/808 nodeentityreferencenodeattributes.xml +198/808 nodeentityreferencenodename.xml +199/808 nodeentityreferencenodetype.xml +200/808 nodeentityreferencenodevalue.xml +201/808 nodegetfirstchild.xml +202/808 nodegetfirstchildnull.xml +203/808 nodegetlastchild.xml +204/808 nodegetlastchildnull.xml +205/808 nodegetnextsibling.xml +206/808 nodegetnextsiblingnull.xml +207/808 nodegetownerdocument.xml +208/808 nodegetownerdocumentnull.xml +209/808 nodegetprevioussibling.xml +210/808 nodegetprevioussiblingnull.xml +211/808 nodehaschildnodes.xml +212/808 nodehaschildnodesfalse.xml +213/808 nodeinsertbefore.xml +214/808 nodeinsertbeforedocfragment.xml +215/808 nodeinsertbeforeinvalidnodetype.xml +216/808 nodeinsertbeforenewchilddiffdocument.xml +217/808 nodeinsertbeforenewchildexists.xml +218/808 nodeinsertbeforenodeancestor.xml +219/808 nodeinsertbeforenodename.xml +220/808 nodeinsertbeforenomodificationallowederr.xml +221/808 nodeinsertbeforenomodificationallowederrEE.xml +222/808 nodeinsertbeforerefchildnonexistent.xml +223/808 nodeinsertbeforerefchildnull.xml +224/808 nodelistindexequalzero.xml +225/808 nodelistindexgetlength.xml +226/808 nodelistindexgetlengthofemptylist.xml +227/808 nodelistindexnotzero.xml +228/808 nodelistreturnfirstitem.xml +229/808 nodelistreturnlastitem.xml +230/808 nodelisttraverselist.xml +231/808 nodenotationnodeattributes.xml +232/808 nodenotationnodename.xml +233/808 nodenotationnodetype.xml +234/808 nodenotationnodevalue.xml +235/808 nodeparentnode.xml +236/808 nodeparentnodenull.xml +237/808 nodeprocessinginstructionnodeattributes.xml +238/808 nodeprocessinginstructionnodename.xml +239/808 nodeprocessinginstructionnodetype.xml +240/808 nodeprocessinginstructionnodevalue.xml +241/808 nodeprocessinginstructionsetnodevalue.xml +242/808 noderemovechild.xml +243/808 noderemovechildgetnodename.xml +244/808 noderemovechildnode.xml +245/808 noderemovechildnomodificationallowederr.xml +246/808 noderemovechildnomodificationallowederrEE.xml +247/808 noderemovechildoldchildnonexistent.xml +248/808 nodereplacechild.xml +249/808 nodereplacechildinvalidnodetype.xml +250/808 nodereplacechildnewchilddiffdocument.xml +251/808 nodereplacechildnewchildexists.xml +252/808 nodereplacechildnodeancestor.xml +253/808 nodereplacechildnodename.xml +254/808 nodereplacechildnomodificationallowederr.xml +255/808 nodereplacechildnomodificationallowederrEE.xml +256/808 nodereplacechildoldchildnonexistent.xml +257/808 nodesetnodevaluenomodificationallowederr.xml +258/808 nodesetnodevaluenomodificationallowederrEE.xml +259/808 nodetextnodeattribute.xml +260/808 nodetextnodename.xml +261/808 nodetextnodetype.xml +262/808 nodetextnodevalue.xml +263/808 notationgetnotationname.xml +264/808 notationgetpublicid.xml +265/808 notationgetpublicidnull.xml +266/808 notationgetsystemid.xml +267/808 notationgetsystemidnull.xml +268/808 processinginstructiongetdata.xml +269/808 processinginstructiongettarget.xml +270/808 processinginstructionsetdatanomodificationallowederr.xml implementationAttribute expandEntityReferences not supported, skipping test -271/525 processinginstructionsetdatanomodificationallowederrEE.xml -272/525 textindexsizeerrnegativeoffset.xml +271/808 processinginstructionsetdatanomodificationallowederrEE.xml +272/808 textindexsizeerrnegativeoffset.xml implementationAttribute signed not supported, skipping test -273/525 textindexsizeerroffsetoutofbounds.xml -274/525 textparseintolistofelements.xml -275/525 textsplittextfour.xml -276/525 textsplittextnomodificationallowederr.xml -277/525 textsplittextnomodificationallowederrEE.xml -278/525 textsplittextone.xml -279/525 textsplittextthree.xml -280/525 textsplittexttwo.xml -281/525 textwithnomarkup.xml -282/525 nodevalue01.xml -283/525 nodevalue02.xml -284/525 nodevalue03.xml -285/525 nodevalue04.xml -286/525 nodevalue05.xml -287/525 nodevalue06.xml -288/525 nodevalue07.xml -289/525 nodevalue08.xml -290/525 nodevalue09.xml -291/525 hc_attrcreatedocumentfragment.xml -292/525 hc_attrcreatetextnode.xml -293/525 hc_attrcreatetextnode2.xml -294/525 hc_attreffectivevalue.xml -295/525 hc_attrname.xml -296/525 hc_attrnextsiblingnull.xml -297/525 hc_attrparentnodenull.xml -298/525 hc_attrprevioussiblingnull.xml -299/525 hc_attrspecifiedvalue.xml -300/525 hc_attrspecifiedvaluechanged.xml -301/525 hc_characterdataappenddata.xml -302/525 hc_characterdataappenddatagetdata.xml -303/525 hc_characterdatadeletedatabegining.xml -304/525 hc_characterdatadeletedataend.xml -305/525 hc_characterdatadeletedataexceedslength.xml -306/525 hc_characterdatadeletedatagetlengthanddata.xml -307/525 hc_characterdatadeletedatamiddle.xml -308/525 hc_characterdatagetdata.xml -309/525 hc_characterdatagetlength.xml -310/525 hc_characterdataindexsizeerrdeletedatacountnegative.xml -implementationAttribute signed not supported, skipping test -311/525 hc_characterdataindexsizeerrdeletedataoffsetgreater.xml -312/525 hc_characterdataindexsizeerrdeletedataoffsetnegative.xml -implementationAttribute signed not supported, skipping test -313/525 hc_characterdataindexsizeerrinsertdataoffsetgreater.xml -314/525 hc_characterdataindexsizeerrinsertdataoffsetnegative.xml -implementationAttribute signed not supported, skipping test -315/525 hc_characterdataindexsizeerrreplacedatacountnegative.xml -implementationAttribute signed not supported, skipping test -316/525 hc_characterdataindexsizeerrreplacedataoffsetgreater.xml -317/525 hc_characterdataindexsizeerrreplacedataoffsetnegative.xml -implementationAttribute signed not supported, skipping test -318/525 hc_characterdataindexsizeerrsubstringcountnegative.xml -implementationAttribute signed not supported, skipping test -319/525 hc_characterdataindexsizeerrsubstringnegativeoffset.xml -implementationAttribute signed not supported, skipping test -320/525 hc_characterdataindexsizeerrsubstringoffsetgreater.xml -321/525 hc_characterdatainsertdatabeginning.xml -322/525 hc_characterdatainsertdataend.xml -323/525 hc_characterdatainsertdatamiddle.xml -324/525 hc_characterdatareplacedatabegining.xml -325/525 hc_characterdatareplacedataend.xml -326/525 hc_characterdatareplacedataexceedslengthofarg.xml -327/525 hc_characterdatareplacedataexceedslengthofdata.xml -328/525 hc_characterdatareplacedatamiddle.xml -329/525 hc_characterdatasetnodevalue.xml -330/525 hc_characterdatasubstringexceedsvalue.xml -331/525 hc_characterdatasubstringvalue.xml -332/525 hc_commentgetcomment.xml -333/525 hc_documentcreateattribute.xml -334/525 hc_documentcreatecomment.xml -335/525 hc_documentcreatedocumentfragment.xml -336/525 hc_documentcreateelement.xml -337/525 hc_documentcreateelementcasesensitive.xml -338/525 hc_documentcreatetextnode.xml -339/525 hc_documentgetdoctype.xml -340/525 hc_documentgetelementsbytagnamelength.xml -341/525 hc_documentgetelementsbytagnametotallength.xml -342/525 hc_documentgetelementsbytagnamevalue.xml -343/525 hc_documentgetimplementation.xml -344/525 hc_documentgetrootnode.xml -345/525 hc_documentinvalidcharacterexceptioncreateattribute.xml -346/525 hc_documentinvalidcharacterexceptioncreateattribute1.xml -347/525 hc_documentinvalidcharacterexceptioncreateelement.xml -348/525 hc_documentinvalidcharacterexceptioncreateelement1.xml -349/525 hc_domimplementationfeaturenoversion.xml -350/525 hc_domimplementationfeaturenull.xml +273/808 textindexsizeerroffsetoutofbounds.xml +274/808 textparseintolistofelements.xml +275/808 textsplittextfour.xml +276/808 textsplittextnomodificationallowederr.xml +277/808 textsplittextnomodificationallowederrEE.xml +278/808 textsplittextone.xml +279/808 textsplittextthree.xml +280/808 textsplittexttwo.xml +281/808 textwithnomarkup.xml +282/808 nodevalue01.xml +283/808 nodevalue02.xml +284/808 nodevalue03.xml +285/808 nodevalue04.xml +286/808 nodevalue05.xml +287/808 nodevalue06.xml +288/808 nodevalue07.xml +289/808 nodevalue08.xml +290/808 nodevalue09.xml +291/808 hc_attrcreatedocumentfragment.xml +292/808 hc_attrcreatetextnode.xml +293/808 hc_attrcreatetextnode2.xml +294/808 hc_attreffectivevalue.xml +295/808 hc_attrname.xml +296/808 hc_attrnextsiblingnull.xml +297/808 hc_attrparentnodenull.xml +298/808 hc_attrprevioussiblingnull.xml +299/808 hc_attrspecifiedvalue.xml +300/808 hc_attrspecifiedvaluechanged.xml +301/808 hc_characterdataappenddata.xml +302/808 hc_characterdataappenddatagetdata.xml +303/808 hc_characterdatadeletedatabegining.xml +304/808 hc_characterdatadeletedataend.xml +305/808 hc_characterdatadeletedataexceedslength.xml +306/808 hc_characterdatadeletedatagetlengthanddata.xml +307/808 hc_characterdatadeletedatamiddle.xml +308/808 hc_characterdatagetdata.xml +309/808 hc_characterdatagetlength.xml +310/808 hc_characterdataindexsizeerrdeletedatacountnegative.xml +implementationAttribute signed not supported, skipping test +311/808 hc_characterdataindexsizeerrdeletedataoffsetgreater.xml +312/808 hc_characterdataindexsizeerrdeletedataoffsetnegative.xml +implementationAttribute signed not supported, skipping test +313/808 hc_characterdataindexsizeerrinsertdataoffsetgreater.xml +314/808 hc_characterdataindexsizeerrinsertdataoffsetnegative.xml +implementationAttribute signed not supported, skipping test +315/808 hc_characterdataindexsizeerrreplacedatacountnegative.xml +implementationAttribute signed not supported, skipping test +316/808 hc_characterdataindexsizeerrreplacedataoffsetgreater.xml +317/808 hc_characterdataindexsizeerrreplacedataoffsetnegative.xml +implementationAttribute signed not supported, skipping test +318/808 hc_characterdataindexsizeerrsubstringcountnegative.xml +implementationAttribute signed not supported, skipping test +319/808 hc_characterdataindexsizeerrsubstringnegativeoffset.xml +implementationAttribute signed not supported, skipping test +320/808 hc_characterdataindexsizeerrsubstringoffsetgreater.xml +321/808 hc_characterdatainsertdatabeginning.xml +322/808 hc_characterdatainsertdataend.xml +323/808 hc_characterdatainsertdatamiddle.xml +324/808 hc_characterdatareplacedatabegining.xml +325/808 hc_characterdatareplacedataend.xml +326/808 hc_characterdatareplacedataexceedslengthofarg.xml +327/808 hc_characterdatareplacedataexceedslengthofdata.xml +328/808 hc_characterdatareplacedatamiddle.xml +329/808 hc_characterdatasetnodevalue.xml +330/808 hc_characterdatasubstringexceedsvalue.xml +331/808 hc_characterdatasubstringvalue.xml +332/808 hc_commentgetcomment.xml +333/808 hc_documentcreateattribute.xml +334/808 hc_documentcreatecomment.xml +335/808 hc_documentcreatedocumentfragment.xml +336/808 hc_documentcreateelement.xml +337/808 hc_documentcreateelementcasesensitive.xml +338/808 hc_documentcreatetextnode.xml +339/808 hc_documentgetdoctype.xml +340/808 hc_documentgetelementsbytagnamelength.xml +341/808 hc_documentgetelementsbytagnametotallength.xml +342/808 hc_documentgetelementsbytagnamevalue.xml +343/808 hc_documentgetimplementation.xml +344/808 hc_documentgetrootnode.xml +345/808 hc_documentinvalidcharacterexceptioncreateattribute.xml +346/808 hc_documentinvalidcharacterexceptioncreateattribute1.xml +347/808 hc_documentinvalidcharacterexceptioncreateelement.xml +348/808 hc_documentinvalidcharacterexceptioncreateelement1.xml +349/808 hc_domimplementationfeaturenoversion.xml +350/808 hc_domimplementationfeaturenull.xml implementationAttribute hasNullString not supported, skipping test -351/525 hc_domimplementationfeaturexml.xml -352/525 hc_elementaddnewattribute.xml -353/525 hc_elementassociatedattribute.xml -354/525 hc_elementchangeattributevalue.xml -355/525 hc_elementcreatenewattribute.xml -356/525 hc_elementgetattributenode.xml -357/525 hc_elementgetattributenodenull.xml -358/525 hc_elementgetelementempty.xml -359/525 hc_elementgetelementsbytagname.xml -360/525 hc_elementgetelementsbytagnameaccessnodelist.xml -361/525 hc_elementgetelementsbytagnamenomatch.xml -362/525 hc_elementgetelementsbytagnamespecialvalue.xml -363/525 hc_elementgettagname.xml -364/525 hc_elementinuseattributeerr.xml -365/525 hc_elementinvalidcharacterexception.xml -366/525 hc_elementinvalidcharacterexception1.xml -367/525 hc_elementnormalize.xml -368/525 hc_elementnotfounderr.xml -369/525 hc_elementremoveattribute.xml -370/525 hc_elementremoveattributeaftercreate.xml -371/525 hc_elementremoveattributenode.xml -372/525 hc_elementreplaceattributewithself.xml -373/525 hc_elementreplaceexistingattribute.xml -374/525 hc_elementreplaceexistingattributegevalue.xml -375/525 hc_elementretrieveallattributes.xml -376/525 hc_elementretrieveattrvalue.xml -377/525 hc_elementretrievetagname.xml -378/525 hc_elementsetattributenodenull.xml -379/525 hc_elementwrongdocumenterr.xml -380/525 hc_entitiesremovenameditem1.xml -381/525 hc_entitiessetnameditem1.xml -382/525 hc_namednodemapchildnoderange.xml -383/525 hc_namednodemapgetnameditem.xml -384/525 hc_namednodemapinuseattributeerr.xml -385/525 hc_namednodemapnotfounderr.xml -386/525 hc_namednodemapnumberofnodes.xml -387/525 hc_namednodemapremovenameditem.xml -388/525 hc_namednodemapreturnattrnode.xml -389/525 hc_namednodemapreturnfirstitem.xml -390/525 hc_namednodemapreturnlastitem.xml -391/525 hc_namednodemapreturnnull.xml -392/525 hc_namednodemapsetnameditem.xml -393/525 hc_namednodemapsetnameditemreturnvalue.xml -394/525 hc_namednodemapsetnameditemthatexists.xml -395/525 hc_namednodemapsetnameditemwithnewvalue.xml -396/525 hc_namednodemapwrongdocumenterr.xml -397/525 hc_nodeappendchild.xml -398/525 hc_nodeappendchildchildexists.xml -399/525 hc_nodeappendchilddocfragment.xml -400/525 hc_nodeappendchildgetnodename.xml -401/525 hc_nodeappendchildinvalidnodetype.xml -402/525 hc_nodeappendchildnewchilddiffdocument.xml -403/525 hc_nodeappendchildnodeancestor.xml -404/525 hc_nodeattributenodeattribute.xml -405/525 hc_nodeattributenodename.xml -406/525 hc_nodeattributenodetype.xml -407/525 hc_nodeattributenodevalue.xml -408/525 hc_nodechildnodes.xml -409/525 hc_nodechildnodesappendchild.xml -410/525 hc_nodechildnodesempty.xml -411/525 hc_nodecloneattributescopied.xml -412/525 hc_nodeclonefalsenocopytext.xml -413/525 hc_nodeclonegetparentnull.xml -414/525 hc_nodeclonenodefalse.xml -415/525 hc_nodeclonenodetrue.xml -416/525 hc_nodeclonetruecopytext.xml -417/525 hc_nodecommentnodeattributes.xml -418/525 hc_nodecommentnodename.xml -419/525 hc_nodecommentnodetype.xml -420/525 hc_nodecommentnodevalue.xml -421/525 hc_nodedocumentfragmentnodename.xml -422/525 hc_nodedocumentfragmentnodetype.xml -423/525 hc_nodedocumentfragmentnodevalue.xml -424/525 hc_nodedocumentnodeattribute.xml -425/525 hc_nodedocumentnodename.xml -426/525 hc_nodedocumentnodetype.xml -427/525 hc_nodedocumentnodevalue.xml -428/525 hc_nodeelementnodeattributes.xml -429/525 hc_nodeelementnodename.xml -430/525 hc_nodeelementnodetype.xml -431/525 hc_nodeelementnodevalue.xml -432/525 hc_nodegetfirstchild.xml -433/525 hc_nodegetfirstchildnull.xml -434/525 hc_nodegetlastchild.xml -435/525 hc_nodegetlastchildnull.xml -436/525 hc_nodegetnextsibling.xml -437/525 hc_nodegetnextsiblingnull.xml -438/525 hc_nodegetownerdocument.xml -439/525 hc_nodegetownerdocumentnull.xml -440/525 hc_nodegetprevioussibling.xml -441/525 hc_nodegetprevioussiblingnull.xml -442/525 hc_nodehaschildnodes.xml -443/525 hc_nodehaschildnodesfalse.xml -444/525 hc_nodeinsertbefore.xml -445/525 hc_nodeinsertbeforedocfragment.xml -446/525 hc_nodeinsertbeforeinvalidnodetype.xml -447/525 hc_nodeinsertbeforenewchilddiffdocument.xml -448/525 hc_nodeinsertbeforenewchildexists.xml -449/525 hc_nodeinsertbeforenodeancestor.xml -450/525 hc_nodeinsertbeforenodename.xml -451/525 hc_nodeinsertbeforerefchildnonexistent.xml -452/525 hc_nodeinsertbeforerefchildnull.xml -453/525 hc_nodelistindexequalzero.xml -454/525 hc_nodelistindexgetlength.xml -455/525 hc_nodelistindexgetlengthofemptylist.xml -456/525 hc_nodelistindexnotzero.xml -457/525 hc_nodelistreturnfirstitem.xml -458/525 hc_nodelistreturnlastitem.xml -459/525 hc_nodelisttraverselist.xml -460/525 hc_nodeparentnode.xml -461/525 hc_nodeparentnodenull.xml -462/525 hc_noderemovechild.xml -463/525 hc_noderemovechildgetnodename.xml -464/525 hc_noderemovechildnode.xml -465/525 hc_noderemovechildoldchildnonexistent.xml -466/525 hc_nodereplacechild.xml -467/525 hc_nodereplacechildinvalidnodetype.xml -468/525 hc_nodereplacechildnewchilddiffdocument.xml -469/525 hc_nodereplacechildnodeancestor.xml -470/525 hc_nodereplacechildnodename.xml -471/525 hc_nodereplacechildoldchildnonexistent.xml -472/525 hc_nodetextnodeattribute.xml -473/525 hc_nodetextnodename.xml -474/525 hc_nodetextnodetype.xml -475/525 hc_nodetextnodevalue.xml -476/525 hc_nodevalue01.xml -477/525 hc_nodevalue02.xml -478/525 hc_nodevalue03.xml -479/525 hc_nodevalue04.xml -480/525 hc_nodevalue05.xml -481/525 hc_nodevalue06.xml -482/525 hc_nodevalue07.xml -483/525 hc_nodevalue08.xml -484/525 hc_notationsremovenameditem1.xml -485/525 hc_notationssetnameditem1.xml -486/525 hc_textindexsizeerrnegativeoffset.xml -implementationAttribute signed not supported, skipping test -487/525 hc_textindexsizeerroffsetoutofbounds.xml -488/525 hc_textparseintolistofelements.xml -489/525 hc_textsplittextfour.xml -490/525 hc_textsplittextone.xml -491/525 hc_textsplittextthree.xml -492/525 hc_textsplittexttwo.xml -493/525 hc_textwithnomarkup.xml -494/525 hc_attrappendchild1.xml -495/525 hc_attrappendchild2.xml -496/525 hc_attrappendchild3.xml -497/525 hc_attrappendchild4.xml -498/525 hc_attrappendchild5.xml -499/525 hc_attrappendchild6.xml -500/525 hc_attrchildnodes1.xml -501/525 hc_attrchildnodes2.xml -502/525 hc_attrclonenode1.xml -503/525 hc_attrfirstchild.xml -504/525 hc_attrgetvalue1.xml -505/525 hc_attrgetvalue2.xml -506/525 hc_attrhaschildnodes.xml -507/525 hc_attrinsertbefore1.xml -508/525 hc_attrinsertbefore2.xml -509/525 hc_attrinsertbefore3.xml -510/525 hc_attrinsertbefore4.xml -511/525 hc_attrinsertbefore5.xml -512/525 hc_attrinsertbefore6.xml -513/525 hc_attrinsertbefore7.xml -514/525 hc_attrlastchild.xml -515/525 hc_attrnormalize.xml -516/525 hc_attrremovechild1.xml -517/525 hc_attrremovechild2.xml -518/525 hc_attrreplacechild1.xml -519/525 hc_attrreplacechild2.xml -520/525 hc_attrsetvalue1.xml -521/525 hc_attrsetvalue2.xml -522/525 attrremovechild1.xml -523/525 attrreplacechild1.xml -0/497 tests failed; 28 tests were skipped \ No newline at end of file +351/808 hc_domimplementationfeaturexml.xml +352/808 hc_elementaddnewattribute.xml +353/808 hc_elementassociatedattribute.xml +354/808 hc_elementchangeattributevalue.xml +355/808 hc_elementcreatenewattribute.xml +356/808 hc_elementgetattributenode.xml +357/808 hc_elementgetattributenodenull.xml +358/808 hc_elementgetelementempty.xml +359/808 hc_elementgetelementsbytagname.xml +360/808 hc_elementgetelementsbytagnameaccessnodelist.xml +361/808 hc_elementgetelementsbytagnamenomatch.xml +362/808 hc_elementgetelementsbytagnamespecialvalue.xml +363/808 hc_elementgettagname.xml +364/808 hc_elementinuseattributeerr.xml +365/808 hc_elementinvalidcharacterexception.xml +366/808 hc_elementinvalidcharacterexception1.xml +367/808 hc_elementnormalize.xml +368/808 hc_elementnotfounderr.xml +369/808 hc_elementremoveattribute.xml +370/808 hc_elementremoveattributeaftercreate.xml +371/808 hc_elementremoveattributenode.xml +372/808 hc_elementreplaceattributewithself.xml +373/808 hc_elementreplaceexistingattribute.xml +374/808 hc_elementreplaceexistingattributegevalue.xml +375/808 hc_elementretrieveallattributes.xml +376/808 hc_elementretrieveattrvalue.xml +377/808 hc_elementretrievetagname.xml +378/808 hc_elementsetattributenodenull.xml +379/808 hc_elementwrongdocumenterr.xml +380/808 hc_entitiesremovenameditem1.xml +381/808 hc_entitiessetnameditem1.xml +382/808 hc_namednodemapchildnoderange.xml +383/808 hc_namednodemapgetnameditem.xml +384/808 hc_namednodemapinuseattributeerr.xml +385/808 hc_namednodemapnotfounderr.xml +386/808 hc_namednodemapnumberofnodes.xml +387/808 hc_namednodemapremovenameditem.xml +388/808 hc_namednodemapreturnattrnode.xml +389/808 hc_namednodemapreturnfirstitem.xml +390/808 hc_namednodemapreturnlastitem.xml +391/808 hc_namednodemapreturnnull.xml +392/808 hc_namednodemapsetnameditem.xml +393/808 hc_namednodemapsetnameditemreturnvalue.xml +394/808 hc_namednodemapsetnameditemthatexists.xml +395/808 hc_namednodemapsetnameditemwithnewvalue.xml +396/808 hc_namednodemapwrongdocumenterr.xml +397/808 hc_nodeappendchild.xml +398/808 hc_nodeappendchildchildexists.xml +399/808 hc_nodeappendchilddocfragment.xml +400/808 hc_nodeappendchildgetnodename.xml +401/808 hc_nodeappendchildinvalidnodetype.xml +402/808 hc_nodeappendchildnewchilddiffdocument.xml +403/808 hc_nodeappendchildnodeancestor.xml +404/808 hc_nodeattributenodeattribute.xml +405/808 hc_nodeattributenodename.xml +406/808 hc_nodeattributenodetype.xml +407/808 hc_nodeattributenodevalue.xml +408/808 hc_nodechildnodes.xml +409/808 hc_nodechildnodesappendchild.xml +410/808 hc_nodechildnodesempty.xml +411/808 hc_nodecloneattributescopied.xml +412/808 hc_nodeclonefalsenocopytext.xml +413/808 hc_nodeclonegetparentnull.xml +414/808 hc_nodeclonenodefalse.xml +415/808 hc_nodeclonenodetrue.xml +416/808 hc_nodeclonetruecopytext.xml +417/808 hc_nodecommentnodeattributes.xml +418/808 hc_nodecommentnodename.xml +419/808 hc_nodecommentnodetype.xml +420/808 hc_nodecommentnodevalue.xml +421/808 hc_nodedocumentfragmentnodename.xml +422/808 hc_nodedocumentfragmentnodetype.xml +423/808 hc_nodedocumentfragmentnodevalue.xml +424/808 hc_nodedocumentnodeattribute.xml +425/808 hc_nodedocumentnodename.xml +426/808 hc_nodedocumentnodetype.xml +427/808 hc_nodedocumentnodevalue.xml +428/808 hc_nodeelementnodeattributes.xml +429/808 hc_nodeelementnodename.xml +430/808 hc_nodeelementnodetype.xml +431/808 hc_nodeelementnodevalue.xml +432/808 hc_nodegetfirstchild.xml +433/808 hc_nodegetfirstchildnull.xml +434/808 hc_nodegetlastchild.xml +435/808 hc_nodegetlastchildnull.xml +436/808 hc_nodegetnextsibling.xml +437/808 hc_nodegetnextsiblingnull.xml +438/808 hc_nodegetownerdocument.xml +439/808 hc_nodegetownerdocumentnull.xml +440/808 hc_nodegetprevioussibling.xml +441/808 hc_nodegetprevioussiblingnull.xml +442/808 hc_nodehaschildnodes.xml +443/808 hc_nodehaschildnodesfalse.xml +444/808 hc_nodeinsertbefore.xml +445/808 hc_nodeinsertbeforedocfragment.xml +446/808 hc_nodeinsertbeforeinvalidnodetype.xml +447/808 hc_nodeinsertbeforenewchilddiffdocument.xml +448/808 hc_nodeinsertbeforenewchildexists.xml +449/808 hc_nodeinsertbeforenodeancestor.xml +450/808 hc_nodeinsertbeforenodename.xml +451/808 hc_nodeinsertbeforerefchildnonexistent.xml +452/808 hc_nodeinsertbeforerefchildnull.xml +453/808 hc_nodelistindexequalzero.xml +454/808 hc_nodelistindexgetlength.xml +455/808 hc_nodelistindexgetlengthofemptylist.xml +456/808 hc_nodelistindexnotzero.xml +457/808 hc_nodelistreturnfirstitem.xml +458/808 hc_nodelistreturnlastitem.xml +459/808 hc_nodelisttraverselist.xml +460/808 hc_nodeparentnode.xml +461/808 hc_nodeparentnodenull.xml +462/808 hc_noderemovechild.xml +463/808 hc_noderemovechildgetnodename.xml +464/808 hc_noderemovechildnode.xml +465/808 hc_noderemovechildoldchildnonexistent.xml +466/808 hc_nodereplacechild.xml +467/808 hc_nodereplacechildinvalidnodetype.xml +468/808 hc_nodereplacechildnewchilddiffdocument.xml +469/808 hc_nodereplacechildnodeancestor.xml +470/808 hc_nodereplacechildnodename.xml +471/808 hc_nodereplacechildoldchildnonexistent.xml +472/808 hc_nodetextnodeattribute.xml +473/808 hc_nodetextnodename.xml +474/808 hc_nodetextnodetype.xml +475/808 hc_nodetextnodevalue.xml +476/808 hc_nodevalue01.xml +477/808 hc_nodevalue02.xml +478/808 hc_nodevalue03.xml +479/808 hc_nodevalue04.xml +480/808 hc_nodevalue05.xml +481/808 hc_nodevalue06.xml +482/808 hc_nodevalue07.xml +483/808 hc_nodevalue08.xml +484/808 hc_notationsremovenameditem1.xml +485/808 hc_notationssetnameditem1.xml +486/808 hc_textindexsizeerrnegativeoffset.xml +implementationAttribute signed not supported, skipping test +487/808 hc_textindexsizeerroffsetoutofbounds.xml +488/808 hc_textparseintolistofelements.xml +489/808 hc_textsplittextfour.xml +490/808 hc_textsplittextone.xml +491/808 hc_textsplittextthree.xml +492/808 hc_textsplittexttwo.xml +493/808 hc_textwithnomarkup.xml +494/808 hc_attrappendchild1.xml +495/808 hc_attrappendchild2.xml +496/808 hc_attrappendchild3.xml +497/808 hc_attrappendchild4.xml +498/808 hc_attrappendchild5.xml +499/808 hc_attrappendchild6.xml +500/808 hc_attrchildnodes1.xml +501/808 hc_attrchildnodes2.xml +502/808 hc_attrclonenode1.xml +503/808 hc_attrfirstchild.xml +504/808 hc_attrgetvalue1.xml +505/808 hc_attrgetvalue2.xml +506/808 hc_attrhaschildnodes.xml +507/808 hc_attrinsertbefore1.xml +508/808 hc_attrinsertbefore2.xml +509/808 hc_attrinsertbefore3.xml +510/808 hc_attrinsertbefore4.xml +511/808 hc_attrinsertbefore5.xml +512/808 hc_attrinsertbefore6.xml +513/808 hc_attrinsertbefore7.xml +514/808 hc_attrlastchild.xml +515/808 hc_attrnormalize.xml +516/808 hc_attrremovechild1.xml +517/808 hc_attrremovechild2.xml +518/808 hc_attrreplacechild1.xml +519/808 hc_attrreplacechild2.xml +520/808 hc_attrsetvalue1.xml +521/808 hc_attrsetvalue2.xml +522/808 attrremovechild1.xml +523/808 attrreplacechild1.xml +0/497 tests failed; 311 tests were skipped \ No newline at end of file Index: cxml/README.html diff -u cxml/README.html:1.9 cxml/README.html:1.10 --- cxml/README.html:1.9 Mon Nov 28 23:33:29 2005 +++ cxml/README.html Sun Dec 4 19:43:49 2005 @@ -96,6 +96,7 @@ reported as instances of <tt>well-formedness-violation</tt>. We also print line number information. </li> + <li>Support internal subset serialization.</li> <li>Gilbert Baumann has clarified the license as Lisp-LGPL.</li> </ul> <p class="nomargin"><tt>rel-2005-06-25</tt></p>

1 0

[cxml-cvs] CVS update: cxml/doc/installation.html cxml/doc/using.html
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/doc In directory common-lisp.net:/tmp/cvs-serv22921/doc Modified Files: installation.html using.html Log Message: DOM 2 Core. Ungetestet, aber die 1er tests laufen wieder, daher rein damit. Date: Sun Dec 4 19:43:53 2005 Author: dlichteblau Index: cxml/doc/installation.html diff -u cxml/doc/installation.html:1.3 cxml/doc/installation.html:1.4 --- cxml/doc/installation.html:1.3 Sun Nov 27 21:49:11 2005 +++ cxml/doc/installation.html Sun Dec 4 19:43:52 2005 @@ -103,7 +103,8 @@ <p> <b>Prerequisites.</b> - CXML needs the <a href="http://www.cliki.net/Puri">puri</a> library. + CXML needs the <a href="http://www.cliki.net/Puri">puri</a> library + as well as <a href="http://www.common-lisp.net/project/cl-plus-ssl/#trivial-gray-streams">trivial-gray-streams</a>. </p> <p> @@ -125,7 +126,7 @@ $ cvs login # password is "anonymous" $ cvs co 2001/XML-Test-Suite/xmlconf $ cvs co -D '2005-05-06 23:00' 2001/DOM-Test-Suite -$ cd 2001/DOM-Test-Suite && ant dom1-dtd</pre> +$ cd 2001/DOM-Test-Suite && ant dom1-dtd dom2-dtd</pre> <p> Omit <tt>-D</tt> to get the latest version, which may not work with cxml yet. The <tt>ant</tt> step is necessary to run the DOM Index: cxml/doc/using.html diff -u cxml/doc/using.html:1.2 cxml/doc/using.html:1.3 --- cxml/doc/using.html:1.2 Sun Nov 27 21:49:11 2005 +++ cxml/doc/using.html Sun Dec 4 19:43:53 2005 @@ -613,6 +613,8 @@ <br/> <div class="def">Function SAX:START-DTD (handler name public-id system-id)</div> <div class="def">Function SAX:END-DTD (handler)</div> + <div class="def">Function SAX:START-INTERNAL-SUBSET (handler)</div> + <div class="def">Function SAX:END-INTERNAL-SUBSET (handler)</div> <div class="def">Function SAX:UNPARSED-ENTITY-DECLARATION (handler name public-id system-id notation-name)</div> <div class="def">Function SAX:EXTERNAL-ENTITY-DECLARATION (handler kind name public-id system-id)</div> <div class="def">Function SAX:INTERNAL-ENTITY-DECLARATION (handler kind name value)</div> @@ -623,9 +625,9 @@ <div class="def">Accessor SAX:ATTRIBUTE-PREFIX (attribute)</div> <div class="def">Accessor SAX:ATTRIBUTE-NAMESPACE-URI (attribute)</div> <div class="def">Accessor SAX:ATTRIBUTE-LOCAL-NAME (attribute)</div> - <div class="def">Accessor SAX:ATTRIBUTE-VALUE (attribute)</div> <div class="def">Accessor SAX:ATTRIBUTE-QNAME (attribute)</div> <div class="def">Accessor SAX:ATTRIBUTE-SPECIFIED-P (attribute)</div> + <div class="def">Accessor SAX:ATTRIBUTE-VALUE (attribute)</div> </p> <p> The entity declaration methods are similar to Java SAX

1 0

[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp
by dlichteblau＠common-lisp.net 03 Dec '05

03 Dec '05

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv26832/xml Modified Files: xml-parse.lisp Log Message: -eduni/namespaces/1.0/043.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Colon in entity name -] -eduni/namespaces/1.0/044.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Colon in entity name -] -eduni/namespaces/1.0/045.xml [not validating:] input [validating:] FAILED: - validity error not detected -[ -Colon in ID attribute name -] -eduni/namespaces/1.0/046.xml [not validating:] input [validating:] FAILED: - validity error not detected -[ -Colon in ID attribute name -] Date: Sat Dec 3 22:54:44 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.48 cxml/xml/xml-parse.lisp:1.49 --- cxml/xml/xml-parse.lisp:1.48 Sat Dec 3 22:31:31 2005 +++ cxml/xml/xml-parse.lisp Sat Dec 3 22:54:44 2005 @@ -624,7 +624,6 @@ (zstream (if (zstream-p stream) stream zmain)) (xstream (if (xstream-p stream) stream nil)) (s (make-string-output-stream))) - (write-string "Parse error: " s) (write-line message s) (when xstream (write-line "Location:" s) @@ -726,12 +725,18 @@ (dolist (a attlist) ;normalize non-CDATA values (let* ((qname (sax:attribute-qname a)) (adef (find-attribute e qname))) - (when (and adef (not (eq (attdef-type adef) :CDATA))) - (let ((canon (canon-not-cdata-attval (sax:attribute-value a)))) - (when (and (standalone-check-necessary-p adef) - (not (rod= (sax:attribute-value a) canon))) - (validity-error "(02) Standalone Document Declaration: attribute value not normalized")) - (setf (sax:attribute-value a) canon))))) + (when adef + (when (and *validate* + sax:*namespace-processing* + (eq (attdef-type adef) :ID) + (find #/: (sax:attribute-value a))) + (validity-error "colon in ID attribute")) + (unless (eq (attdef-type adef) :CDATA) + (let ((canon (canon-not-cdata-attval (sax:attribute-value a)))) + (when (and (standalone-check-necessary-p adef) + (not (rod= (sax:attribute-value a) canon))) + (validity-error "(02) Standalone Document Declaration: attribute value not normalized")) + (setf (sax:attribute-value a) canon)))))) (when *validate* ;maybe validate attribute values (dolist (a attlist) (validate-attribute ctx e a)))) @@ -879,6 +884,8 @@ (defun define-entity (source-stream name kind def) (setf name (intern-name name)) + (when (and sax:*namespace-processing* (find #/: name)) + (wf-error source-stream "colon in entity name")) (let ((table (ecase kind (:general (dtd-gentities (dtd *ctx*))) @@ -2273,6 +2280,8 @@ (normalize-public-id (extid-public id)) nil) (uri-rod (extid-system id))) + (when (and sax:*namespace-processing* (find #/: name)) + (wf-error input "colon in notation name")) (when *validate* (define-notation (dtd *ctx*) name id)) (list :notation-decl name id)))

1 0

[cxml-cvs] CVS update: cxml/XMLCONF
by dlichteblau＠common-lisp.net 03 Dec '05

03 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv26832 Modified Files: XMLCONF Log Message: -eduni/namespaces/1.0/043.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Colon in entity name -] -eduni/namespaces/1.0/044.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Colon in entity name -] -eduni/namespaces/1.0/045.xml [not validating:] input [validating:] FAILED: - validity error not detected -[ -Colon in ID attribute name -] -eduni/namespaces/1.0/046.xml [not validating:] input [validating:] FAILED: - validity error not detected -[ -Colon in ID attribute name -] Date: Sat Dec 3 22:54:43 2005 Author: dlichteblau Index: cxml/XMLCONF diff -u cxml/XMLCONF:1.41 cxml/XMLCONF:1.42 --- cxml/XMLCONF:1.41 Sat Dec 3 22:31:30 2005 +++ cxml/XMLCONF Sat Dec 3 22:54:42 2005 @@ -1827,24 +1827,8 @@ eduni/namespaces/1.0/040.xml [not validating:] input [validating:] invalid eduni/namespaces/1.0/041.xml [not validating:] input [validating:] invalid eduni/namespaces/1.0/042.xml [not validating:] not-wf [validating:] not-wf -eduni/namespaces/1.0/043.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Colon in entity name -] -eduni/namespaces/1.0/044.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Colon in entity name -] -eduni/namespaces/1.0/045.xml [not validating:] input [validating:] FAILED: - validity error not detected -[ -Colon in ID attribute name -] -eduni/namespaces/1.0/046.xml [not validating:] input [validating:] FAILED: - validity error not detected -[ -Colon in ID attribute name -] -4/1829 tests failed; 333 tests were skipped \ No newline at end of file +eduni/namespaces/1.0/043.xml [not validating:] not-wf [validating:] not-wf +eduni/namespaces/1.0/044.xml [not validating:] not-wf [validating:] not-wf +eduni/namespaces/1.0/045.xml [not validating:] input [validating:] invalid +eduni/namespaces/1.0/046.xml [not validating:] input [validating:] invalid +0/1829 tests failed; 333 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/XMLCONF
by dlichteblau＠common-lisp.net 03 Dec '05

03 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv25047 Modified Files: XMLCONF Log Message: -eduni/namespaces/1.0/015.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Bad QName syntax: colon at start -] Date: Sat Dec 3 22:31:30 2005 Author: dlichteblau Index: cxml/XMLCONF diff -u cxml/XMLCONF:1.40 cxml/XMLCONF:1.41 --- cxml/XMLCONF:1.40 Sat Dec 3 22:26:53 2005 +++ cxml/XMLCONF Sat Dec 3 22:31:30 2005 @@ -1799,11 +1799,7 @@ eduni/namespaces/1.0/012.xml [not validating:] not-wf [validating:] not-wf eduni/namespaces/1.0/013.xml [not validating:] not-wf [validating:] invalid eduni/namespaces/1.0/014.xml [not validating:] not-wf [validating:] invalid -eduni/namespaces/1.0/015.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Bad QName syntax: colon at start -] +eduni/namespaces/1.0/015.xml [not validating:] not-wf [validating:] invalid eduni/namespaces/1.0/016.xml [not validating:] not-wf [validating:] invalid eduni/namespaces/1.0/017.xml [not validating:] input [validating:] invalid eduni/namespaces/1.0/018.xml [not validating:] input [validating:] invalid @@ -1851,4 +1847,4 @@ [ Colon in ID attribute name ] -5/1829 tests failed; 333 tests were skipped \ No newline at end of file +4/1829 tests failed; 333 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp
by dlichteblau＠common-lisp.net 03 Dec '05

03 Dec '05

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv25047/xml Modified Files: xml-parse.lisp Log Message: -eduni/namespaces/1.0/015.xml [not validating:] FAILED: - well-formedness violation not detected -[ -Bad QName syntax: colon at start -] Date: Sat Dec 3 22:31:31 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.47 cxml/xml/xml-parse.lisp:1.48 --- cxml/xml/xml-parse.lisp:1.47 Sat Dec 3 22:26:54 2005 +++ cxml/xml/xml-parse.lisp Sat Dec 3 22:31:31 2005 @@ -3326,6 +3326,8 @@ (if pos (let ((prefix (subseq qname 0 pos)) (local-name (subseq qname (1+ pos)))) + (when (zerop pos) + (wf-error nil "empty namespace prefix")) (if (nc-name-p local-name) (values prefix local-name) (wf-error nil "~S is not a valid NcName."

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cxml-cvs December 2005