December 2005 - cxml-cvs@common-lisp.net - mailman3.common-lisp.net

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

11 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv5212 Modified Files: DOMTEST Log Message: 639/808 getElementById01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)> - when called with arguments - (NIL). Date: Sun Dec 11 19:43:45 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.22 cxml/DOMTEST:1.23 --- cxml/DOMTEST:1.22 Sun Dec 11 19:36:13 2005 +++ cxml/DOMTEST Sun Dec 11 19:43:45 2005 @@ -670,10 +670,6 @@ 637/808 getAttributeNodeNS01.xml 638/808 getAttributeNodeNS02.xml 639/808 getElementById01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)> - when called with arguments - (NIL). 640/808 getElementById02.xml 641/808 getElementsByTagNameNS01.xml 642/808 getElementsByTagNameNS02.xml @@ -869,4 +865,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -12/763 tests failed; 45 tests were skipped \ No newline at end of file +11/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp
by dlichteblau＠common-lisp.net 11 Dec '05

11 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv5212/dom Modified Files: dom-impl.lisp Log Message: 639/808 getElementById01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)> - when called with arguments - (NIL). Date: Sun Dec 11 19:43:46 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.21 cxml/dom/dom-impl.lisp:1.22 --- cxml/dom/dom-impl.lisp:1.21 Sun Dec 11 19:17:31 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 19:43:45 2005 @@ -425,9 +425,9 @@ (get-elements-by-tag-name-internal-ns document uri lname)) (defmethod dom:get-element-by-id ((document document) id) - (block nil + (block t (unless (dtd document) - (return nil)) + (return-from t nil)) (setf id (%rod id)) (labels ((walk (n) (dovector (c (dom:child-nodes n)) @@ -441,7 +441,7 @@ (let* ((name (rod (cxml::attdef-name a))) (value (dom:get-attribute c name))) (when (and value (rod= value id)) - (return c))))))) + (return-from t c))))))) (walk c))))) (walk document))))

1 0

[cxml-cvs] CVS update: cxml/dom/dom-builder.lisp
by dlichteblau＠common-lisp.net 11 Dec '05

11 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv5144/dom Modified Files: dom-builder.lisp Log Message: 731/808 namednodemapsetnameditemns06.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 732/808 namednodemapsetnameditemns07.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 733/808 namednodemapsetnameditemns08.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 800/808 setNamedItemNS01.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR Date: Sun Dec 11 19:36:14 2005 Author: dlichteblau Index: cxml/dom/dom-builder.lisp diff -u cxml/dom/dom-builder.lisp:1.7 cxml/dom/dom-builder.lisp:1.8 --- cxml/dom/dom-builder.lisp:1.7 Mon Dec 5 00:20:25 2005 +++ cxml/dom/dom-builder.lisp Sun Dec 11 19:36:14 2005 @@ -104,12 +104,15 @@ (push anode anodes))) (setf (slot-value element 'dom-impl::parent) parent) (fast-push element (slot-value parent 'dom-impl::children)) - (setf (slot-value element 'dom-impl::attributes) - (make-instance 'attribute-node-map - :items anodes - :element-type :attribute - :element element - :owner document)) + (let ((map + (make-instance 'attribute-node-map + :items anodes + :element-type :attribute + :element element + :owner document))) + (setf (slot-value element 'dom-impl::attributes) map) + (dolist (anode anodes) + (setf (slot-value anode 'map) map))) (push element element-stack)))) (defmethod sax:end-element ((handler dom-builder) namespace-uri local-name qname)

1 0

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

11 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv5144 Modified Files: DOMTEST Log Message: 731/808 namednodemapsetnameditemns06.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 732/808 namednodemapsetnameditemns07.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 733/808 namednodemapsetnameditemns08.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 800/808 setNamedItemNS01.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR Date: Sun Dec 11 19:36:13 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.21 cxml/DOMTEST:1.22 --- cxml/DOMTEST:1.21 Sun Dec 11 19:30:45 2005 +++ cxml/DOMTEST Sun Dec 11 19:36:13 2005 @@ -651,7 +651,6 @@ 619/808 elementsetattributenodens01.xml 620/808 elementsetattributenodens02.xml 621/808 elementsetattributenodens03.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 622/808 elementsetattributenodens04.xml 623/808 elementsetattributenodens05.xml 624/808 elementsetattributenodens06.xml @@ -776,11 +775,8 @@ 729/808 namednodemapsetnameditemns04.xml 730/808 namednodemapsetnameditemns05.xml 731/808 namednodemapsetnameditemns06.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 732/808 namednodemapsetnameditemns07.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 733/808 namednodemapsetnameditemns08.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 734/808 namednodemapsetnameditemns09.xml 735/808 namednodemapsetnameditemns10.xml 736/808 namednodemapsetnameditemns11.xml @@ -868,10 +864,9 @@ 798/808 setAttributeNodeNS04.xml 799/808 setAttributeNodeNS05.xml 800/808 setNamedItemNS01.xml -TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 801/808 setNamedItemNS02.xml 802/808 setNamedItemNS03.xml 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -17/763 tests failed; 45 tests were skipped \ No newline at end of file +12/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

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

11 Dec '05

Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv4251/test Modified Files: domtest.lisp Log Message: 600/808 domimplementationfeaturecore.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 601/808 domimplementationfeaturexmlversion2.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 602/808 domimplementationhasfeature01.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. Date: Sun Dec 11 19:30:52 2005 Author: dlichteblau Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.11 cxml/test/domtest.lisp:1.12 --- cxml/test/domtest.lisp:1.11 Sun Dec 4 23:57:31 2005 +++ cxml/test/domtest.lisp Sun Dec 11 19:30:52 2005 @@ -199,7 +199,6 @@ ("equals" (translate-equals element)) ("notEquals" (translate-not-equals element)) ("contentType" (translate-content-type element)) - ("hasFeature" (translate-has-feature element)) ("implementationAttribute" (assert-have-implementation-attribute element)) ("isNull" (translate-is-null element)) ("not" (translate-is-null element)) @@ -403,11 +402,13 @@ (error "oops"))))) (defun translate-has-feature (element) - (with-attributes (|var| |feature| |version|) element - (maybe-setf (%intern |var|) - `(and (runes:rod-equal ,(parse-java-literal |feature|) #"XML") - (or (zerop (length ,(parse-java-literal |version|))) - (runes:rod-equal ,(parse-java-literal |version|) #"1.0")))))) + (with-attributes (|obj| |var| |feature| |version|) element + (if (nullify |obj|) + (translate-member element) + (maybe-setf (%intern |var|) + `(dom:has-feature 'dom-impl::implementation + ,(parse-java-literal |feature|) + ,(parse-java-literal |version|)))))) (defun translate-fail (element) (declare (ignore element))

1 0

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

11 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv4251 Modified Files: DOMTEST Log Message: 600/808 domimplementationfeaturecore.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 601/808 domimplementationfeaturexmlversion2.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 602/808 domimplementationhasfeature01.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. Date: Sun Dec 11 19:30:49 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.20 cxml/DOMTEST:1.21 --- cxml/DOMTEST:1.20 Sun Dec 11 19:17:30 2005 +++ cxml/DOMTEST Sun Dec 11 19:30:45 2005 @@ -630,11 +630,8 @@ 598/808 domimplementationcreatedocumenttype02.xml 599/808 domimplementationcreatedocumenttype04.xml 600/808 domimplementationfeaturecore.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 601/808 domimplementationfeaturexmlversion2.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 602/808 domimplementationhasfeature01.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. 603/808 domimplementationhasfeature02.xml 604/808 elementgetattributenodens01.xml 605/808 elementgetattributenodens02.xml @@ -877,4 +874,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -20/763 tests failed; 45 tests were skipped \ No newline at end of file +17/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp
by dlichteblau＠common-lisp.net 11 Dec '05

11 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv3219/dom Modified Files: dom-impl.lisp Log Message: 586/808 documentimportnode19.xml -TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTIT Y {xxxxxxxx}>. Date: Sun Dec 11 19:17:32 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.20 cxml/dom/dom-impl.lisp:1.21 --- cxml/dom/dom-impl.lisp:1.20 Sun Dec 11 19:13:04 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 19:17:31 2005 @@ -1292,6 +1292,7 @@ (defmethod dom:import-node ((document document) (node entity) deep) (import-node-internal 'entity document node deep + :name (dom:name node) :public-id (dom:public-id node) :system-id (dom:system-id node) :notation-name (dom:notation-name node)))

1 0

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

11 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv3219 Modified Files: DOMTEST Log Message: 586/808 documentimportnode19.xml -TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTIT Y {xxxxxxxx}>. Date: Sun Dec 11 19:17:30 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.19 cxml/DOMTEST:1.20 --- cxml/DOMTEST:1.19 Sun Dec 11 19:13:00 2005 +++ cxml/DOMTEST Sun Dec 11 19:17:30 2005 @@ -614,7 +614,6 @@ 584/808 documentimportnode17.xml 585/808 documentimportnode18.xml 586/808 documentimportnode19.xml -TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTITY {xxxxxxxx}>. 587/808 documentimportnode20.xml implementationAttribute expandEntityReferences not supported, skipping test 588/808 documentimportnode21.xml @@ -878,4 +877,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -21/763 tests failed; 45 tests were skipped \ No newline at end of file +20/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp
by dlichteblau＠common-lisp.net 11 Dec '05

11 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv2791/dom Modified Files: dom-impl.lisp Log Message: 582/808 documentimportnode14.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(104 116 116 112 58 47 47 119 119 - 119 46 110 105 115 116 46 103 - 111 118) - 'DOMTEST::%EQUAL) failed. Date: Sun Dec 11 19:13:05 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.19 cxml/dom/dom-impl.lisp:1.20 --- cxml/dom/dom-impl.lisp:1.19 Sat Dec 10 21:06:05 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 19:13:04 2005 @@ -1280,7 +1280,14 @@ (setf (slot-value attributes 'element) result) (dolist (attribute (dom:items (dom:attributes node))) (when (or (dom:specified attribute) *clone-not-import*) - (dom:set-attribute result (dom:name attribute) (dom:value attribute)))) + (if (dom:namespace-uri attribute) + (dom:set-attribute-ns result + (dom:namespace-uri attribute) + (dom:local-name attribute) + (dom:value attribute)) + (dom:set-attribute result + (dom:name attribute) + (dom:value attribute))))) result)) (defmethod dom:import-node ((document document) (node entity) deep)

1 0

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

11 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv2791 Modified Files: DOMTEST Log Message: 582/808 documentimportnode14.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(104 116 116 112 58 47 47 119 119 - 119 46 110 105 115 116 46 103 - 111 118) - 'DOMTEST::%EQUAL) failed. Date: Sun Dec 11 19:13:03 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.18 cxml/DOMTEST:1.19 --- cxml/DOMTEST:1.18 Sat Dec 10 21:06:02 2005 +++ cxml/DOMTEST Sun Dec 11 19:13:00 2005 @@ -610,11 +610,6 @@ 580/808 documentimportnode12.xml 581/808 documentimportnode13.xml 582/808 documentimportnode14.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(104 116 116 112 58 47 47 119 119 - 119 46 110 105 115 116 46 103 - 111 118) - 'DOMTEST::%EQUAL) failed. 583/808 documentimportnode15.xml 584/808 documentimportnode17.xml 585/808 documentimportnode18.xml @@ -883,4 +878,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -22/763 tests failed; 45 tests were skipped \ No newline at end of file +21/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0