cxml-cvs December 2005

cxml-cvs@common-lisp.net

1 participants
138 discussions

[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-serv10867/dom Modified Files: dom-impl.lisp Log Message: 756/808 nodesetprefix01.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementTagName| - #(100 109 115 116 99 58 97 100 100 - 114 101 115 115) - 'DOMTEST::%EQUAL) failed. 757/808 nodesetprefix02.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|newAttrName| - #(100 111 109 58 97 100 100 114 - 101 115 115) - 'DOMTEST::%EQUAL) failed. Date: Sun Dec 11 20:46:22 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.26 cxml/dom/dom-impl.lisp:1.27 --- cxml/dom/dom-impl.lisp:1.26 Sun Dec 11 20:38:10 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 20:46:21 2005 @@ -50,6 +50,14 @@ (dom:namespace-uri node))) (setf (slot-value node 'prefix) newval)) +(defmethod (setf dom:prefix) :after (newval (node attribute)) + (setf (slot-value node 'name) + (concatenate 'rod newval #":" (dom:local-name node)))) + +(defmethod (setf dom:prefix) :after (newval (node element)) + (setf (slot-value node 'tag-name) + (concatenate 'rod newval #":" (dom:local-name node)))) + (defclass document (node) ((doc-type :initarg :doc-type :reader dom:doctype) (dtd :initform nil :reader dtd)

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-serv10867 Modified Files: DOMTEST Log Message: 756/808 nodesetprefix01.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementTagName| - #(100 109 115 116 99 58 97 100 100 - 114 101 115 115) - 'DOMTEST::%EQUAL) failed. 757/808 nodesetprefix02.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|newAttrName| - #(100 111 109 58 97 100 100 114 - 101 115 115) - 'DOMTEST::%EQUAL) failed. Date: Sun Dec 11 20:46:21 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.27 cxml/DOMTEST:1.28 --- cxml/DOMTEST:1.27 Sun Dec 11 20:38:09 2005 +++ cxml/DOMTEST Sun Dec 11 20:46:20 2005 @@ -791,15 +791,7 @@ TEST FAILED: NOT_SUPPORTED_ERR (9): No entity resolver registered. 756/808 nodesetprefix01.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementTagName| - #(100 109 115 116 99 58 97 100 100 - 114 101 115 115) - 'DOMTEST::%EQUAL) failed. 757/808 nodesetprefix02.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|newAttrName| - #(100 111 109 58 97 100 100 114 - 101 115 115) - 'DOMTEST::%EQUAL) failed. 758/808 nodesetprefix03.xml 759/808 nodesetprefix04.xml 760/808 nodesetprefix05.xml @@ -854,4 +846,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -6/763 tests failed; 45 tests were skipped \ No newline at end of file +4/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-serv9777/dom Modified Files: dom-impl.lisp Log Message: tolles OO ist das. 747/808 nodehasattributes02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:HAS-ATTRIBUTES (1)> - when called with arguments - (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>). Date: Sun Dec 11 20:38:10 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.25 cxml/dom/dom-impl.lisp:1.26 --- cxml/dom/dom-impl.lisp:1.25 Sun Dec 11 20:35:05 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 20:38:10 2005 @@ -448,6 +448,9 @@ ;;; Node +(defmethod dom:has-attributes ((element node)) + nil) + (defmethod dom:is-supported ((node node) feature version) (dom:has-feature 'implementation feature version))

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-serv9777 Modified Files: DOMTEST Log Message: tolles OO ist das. 747/808 nodehasattributes02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:HAS-ATTRIBUTES (1)> - when called with arguments - (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>). Date: Sun Dec 11 20:38:10 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.26 cxml/DOMTEST:1.27 --- cxml/DOMTEST:1.26 Sun Dec 11 20:35:05 2005 +++ cxml/DOMTEST Sun Dec 11 20:38:09 2005 @@ -780,10 +780,6 @@ 745/808 nodegetprefix03.xml 746/808 nodehasattributes01.xml 747/808 nodehasattributes02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:HAS-ATTRIBUTES (1)> - when called with arguments - (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>). 748/808 nodehasattributes03.xml 749/808 nodehasattributes04.xml 750/808 nodeissupported01.xml @@ -858,4 +854,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -7/763 tests failed; 45 tests were skipped \ No newline at end of file +6/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-serv9723/dom Modified Files: dom-impl.lisp Log Message: 694/808 internalSubset01.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. Date: Sun Dec 11 20:35:06 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.24 cxml/dom/dom-impl.lisp:1.25 --- cxml/dom/dom-impl.lisp:1.24 Sun Dec 11 20:28:00 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 20:35:05 2005 @@ -1150,7 +1150,11 @@ (defmethod dom:internal-subset ((node document-type)) ;; FIXME: encoding ist falsch, anderen sink nehmen! - (if (slot-boundp node 'internal-subset) + (if (and (slot-boundp node 'internal-subset) + ;; die damen und herren von der test suite sind wohl der meinung, + ;; dass ein leeres internal subset nicht vorhanden ist und + ;; wir daher nil liefern sollen. bittesehr! + (internal-subset node)) (with-output-to-string (stream) (let ((sink (cxml:make-character-stream-sink stream))) (dolist (def (internal-subset 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-serv9723 Modified Files: DOMTEST Log Message: 694/808 internalSubset01.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. Date: Sun Dec 11 20:35:05 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.25 cxml/DOMTEST:1.26 --- cxml/DOMTEST:1.25 Sun Dec 11 20:27:59 2005 +++ cxml/DOMTEST Sun Dec 11 20:35:05 2005 @@ -727,7 +727,6 @@ 692/808 importNode16.xml 693/808 importNode17.xml 694/808 internalSubset01.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. 695/808 isSupported01.xml 696/808 isSupported02.xml 697/808 isSupported04.xml @@ -859,4 +858,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -8/763 tests failed; 45 tests were skipped \ No newline at end of file +7/763 tests failed; 45 tests were skipped \ No newline at end of file

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-serv8594 Modified Files: DOMTEST Log Message: importnode07 und namednodemapremovenameditemns02.xml geworkaroundet *nichtueberzeugtsei* Date: Sun Dec 11 20:27:59 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.24 cxml/DOMTEST:1.25 --- cxml/DOMTEST:1.24 Sun Dec 11 19:47:27 2005 +++ cxml/DOMTEST Sun Dec 11 20:27:59 2005 @@ -714,7 +714,6 @@ 681/808 importNode05.xml 682/808 importNode06.xml 683/808 importNode07.xml -TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 1) failed. 684/808 importNode08.xml 685/808 importNode09.xml 686/808 importNode10.xml @@ -753,10 +752,6 @@ 716/808 namednodemapgetnameditemns06.xml 717/808 namednodemapremovenameditemns01.xml 718/808 namednodemapremovenameditemns02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)> - when called with arguments - (NIL). 719/808 namednodemapremovenameditemns03.xml 720/808 namednodemapremovenameditemns04.xml 721/808 namednodemapremovenameditemns05.xml @@ -864,4 +859,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -10/763 tests failed; 45 tests were skipped \ No newline at end of file +8/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-serv8594/dom Modified Files: dom-impl.lisp Log Message: importnode07 und namednodemapremovenameditemns02.xml geworkaroundet *nichtueberzeugtsei* Date: Sun Dec 11 20:28:00 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.23 cxml/dom/dom-impl.lisp:1.24 --- cxml/dom/dom-impl.lisp:1.23 Sun Dec 11 19:47:28 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 20:28:00 2005 @@ -1045,7 +1045,11 @@ dtd)))) (when e (dolist (a (cxml::elmdef-attributes e)) - (when (and a (listp (cxml::attdef-default a))) + (when (and a + (listp (cxml::attdef-default a)) + (not (dom:get-attribute-node + element + (cxml::attdef-name a)))) (add-default-attribute element a)))))) (defun add-default-attribute (element adef) @@ -1055,6 +1059,15 @@ (text (dom:create-text-node owner value))) (setf (slot-value anode 'specified-p) nil) (setf (slot-value anode 'owner-element) element) + (multiple-value-bind (prefix local-name) + (handler-case + (cxml::split-qname (cxml::attdef-name adef)) + (cxml:well-formedness-violation (c) + (dom-error :NAMESPACE_ERR "~A" c))) + ;; das ist fuer importnode07. + ;; so richtig ueberzeugend finde ich das ja nicht. + (setf (slot-value anode 'prefix) prefix) + (setf (slot-value anode 'local-name) local-name)) (dom:append-child anode text) (push anode (slot-value (dom:attributes element) 'items)))) @@ -1292,6 +1305,7 @@ (dom:set-attribute result (dom:name attribute) (dom:value attribute))))) + (add-default-attributes result) result)) (defmethod dom:import-node ((document document) (node entity) deep)

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-serv6304/dom Modified Files: dom-impl.lisp Log Message: 674/808 hc_nodedocumentfragmentnormalize2.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|txtNode|) failed. Date: Sun Dec 11 19:47:28 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.22 cxml/dom/dom-impl.lisp:1.23 --- cxml/dom/dom-impl.lisp:1.22 Sun Dec 11 19:43:45 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 19:47:28 2005 @@ -1106,6 +1106,10 @@ (dom:remove-child n child) ;; not (incf i) ) + ((zerop (length (dom:data child))) + (dom:remove-child n child) + ;; not (incf i) + ) (t (setf previous child) (incf i))))))

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-serv6304 Modified Files: DOMTEST Log Message: 674/808 hc_nodedocumentfragmentnormalize2.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|txtNode|) failed. Date: Sun Dec 11 19:47:27 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.23 cxml/DOMTEST:1.24 --- cxml/DOMTEST:1.23 Sun Dec 11 19:43:45 2005 +++ cxml/DOMTEST Sun Dec 11 19:47:27 2005 @@ -705,7 +705,6 @@ 672/808 hc_namednodemapinvalidtype1.xml 673/808 hc_nodedocumentfragmentnormalize1.xml 674/808 hc_nodedocumentfragmentnormalize2.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|txtNode|) failed. 675/808 hc_notationsremovenameditemns1.xml 676/808 hc_notationssetnameditemns1.xml 677/808 importNode01.xml @@ -865,4 +864,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -11/763 tests failed; 45 tests were skipped \ No newline at end of file +10/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
14
Older →

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