OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

importnode07 und namednodemapremovenameditemns02.xml geworkaroundet

Browse Source 
*nichtueberzeugtsei*
This commit is contained in:
dlichteblau
2005-12-11 19:27:59 +00:00
parent fed3699960
commit 58c3cc32c8
2 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
DOMTEST
View File

@ -714,7 +714,6 @@ implementationAttribute expandEntityReferences not supported, skipping test
681/808 importNode05.xml 681/808 importNode05.xml
682/808 importNode06.xml 682/808 importNode06.xml
683/808 importNode07.xml 683/808 importNode07.xml
TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 1) failed.
684/808 importNode08.xml 684/808 importNode08.xml
685/808 importNode09.xml 685/808 importNode09.xml
686/808 importNode10.xml 686/808 importNode10.xml
@ -753,10 +752,6 @@ TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
716/808 namednodemapgetnameditemns06.xml 716/808 namednodemapgetnameditemns06.xml
717/808 namednodemapremovenameditemns01.xml 717/808 namednodemapremovenameditemns01.xml
718/808 namednodemapremovenameditemns02.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 719/808 namednodemapremovenameditemns03.xml
720/808 namednodemapremovenameditemns04.xml 720/808 namednodemapremovenameditemns04.xml
721/808 namednodemapremovenameditemns05.xml 721/808 namednodemapremovenameditemns05.xml
@ -864,4 +859,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
803/808 setNamedItemNS04.xml 803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml 804/808 setNamedItemNS05.xml
805/808 systemId01.xml 805/808 systemId01.xml
10/763 tests failed; 45 tests were skipped 8/763 tests failed; 45 tests were skipped

16
dom/dom-impl.lisp
View File

@ -1045,7 +1045,11 @@
dtd)))) dtd))))
(when e (when e
(dolist (a (cxml::elmdef-attributes 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)))))) (add-default-attribute element a))))))
(defun add-default-attribute (element adef) (defun add-default-attribute (element adef)
@ -1055,6 +1059,15 @@
(text (dom:create-text-node owner value))) (text (dom:create-text-node owner value)))
(setf (slot-value anode 'specified-p) nil) (setf (slot-value anode 'specified-p) nil)
(setf (slot-value anode 'owner-element) element) (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) (dom:append-child anode text)
(push anode (slot-value (dom:attributes element) 'items)))) (push anode (slot-value (dom:attributes element) 'items))))
@ -1292,6 +1305,7 @@
(dom:set-attribute result (dom:set-attribute result
(dom:name attribute) (dom:name attribute)
(dom:value attribute))))) (dom:value attribute)))))
(add-default-attributes result)
result)) result))
(defmethod dom:import-node ((document document) (node entity) deep) (defmethod dom:import-node ((document document) (node entity) deep)