cxml-cvs December 2005

cxml-cvs@common-lisp.net

1 participants
138 discussions

[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-serv10584/test Modified Files: domtest.lisp Log Message: dom murmel dom Date: Sun Dec 4 23:57:31 2005 Author: dlichteblau Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.10 cxml/test/domtest.lisp:1.11 --- cxml/test/domtest.lisp:1.10 Sun Dec 4 23:18:35 2005 +++ cxml/test/domtest.lisp Sun Dec 4 23:57:31 2005 @@ -336,6 +336,7 @@ ("fail" (translate-fail element)) ("hasFeature" (translate-has-feature element)) ("if" (translate-if element)) + ("implementation" (translate-implementation element)) ("increment" (translate-unary-assignment '+ element)) ("decrement" (translate-unary-assignment '- element)) ("length" (translate-length element)) @@ -365,6 +366,10 @@ (with-attributes (|var| |href| |willBeModified|) load (maybe-setf (%intern |var|) `(load-file ,|href| ,(parse-java-literal |willBeModified|))))) + +(defun translate-implementation (elt) + (with-attributes (|var|) elt + (maybe-setf (%intern |var|) `'dom-impl::implementation))) (defun translate-length (load) ;; XXX Soweit ich sehe unterscheiden die Tests nicht zwischen

1 0

[cxml-cvs] CVS update: cxml/dom/dom-impl.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-serv10584/dom Modified Files: dom-impl.lisp Log Message: dom murmel dom Date: Sun Dec 4 23:57:30 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.14 cxml/dom/dom-impl.lisp:1.15 --- cxml/dom/dom-impl.lisp:1.14 Sun Dec 4 23:25:35 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 23:57:30 2005 @@ -219,6 +219,7 @@ (defmethod dom:create-document-type ((factory (eql 'implementation)) name publicid systemid) + (safe-split-qname name #"") (make-instance 'dom-impl::document-type :name name :notations (make-instance 'dom-impl::named-node-map

1 0

[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-serv10584 Modified Files: DOMTEST Log Message: dom murmel dom Date: Sun Dec 4 23:57:30 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.13 cxml/DOMTEST:1.14 --- cxml/DOMTEST:1.13 Sun Dec 4 23:25:34 2005 +++ cxml/DOMTEST Sun Dec 4 23:57:30 2005 @@ -570,20 +570,10 @@ 540/808 createDocument06.xml 541/808 createDocument07.xml 542/808 createDocument08.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)> - when called with arguments - (NIL). 543/808 createDocumentType01.xml -TEST FAILED: expected exception NAMESPACE_ERR 544/808 createDocumentType02.xml -TEST FAILED: expected exception INVALID_CHARACTER_ERR 545/808 createDocumentType03.xml 546/808 createDocumentType04.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)> - when called with arguments - (NIL). 547/808 createElementNS01.xml 548/808 createElementNS02.xml 549/808 createElementNS03.xml @@ -637,10 +627,11 @@ 580/808 documentimportnode12.xml 581/808 documentimportnode13.xml 582/808 documentimportnode14.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)> - when called with arguments - (NIL). +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 @@ -661,7 +652,6 @@ 597/808 domimplementationcreatedocumenttype01.xml 598/808 domimplementationcreatedocumenttype02.xml 599/808 domimplementationcreatedocumenttype04.xml -TEST FAILED: expected exception INVALID_CHARACTER_ERR 600/808 domimplementationfeaturecore.xml TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 601/808 domimplementationfeaturexmlversion2.xml @@ -930,4 +920,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -43/763 tests failed; 45 tests were skipped \ No newline at end of file +38/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 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv8304/dom Modified Files: dom-impl.lisp Log Message: MORE WRONG_DOCUMENT_ERR Date: Sun Dec 4 23:25:35 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.13 cxml/dom/dom-impl.lisp:1.14 --- cxml/dom/dom-impl.lisp:1.13 Sun Dec 4 23:22:30 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 23:25:35 2005 @@ -239,6 +239,8 @@ (unless (typep doctype 'document-type) (dom-error :WRONG_DOCUMENT_ERR "doctype was created by a different dom implementation")) + (when (dom:owner-document doctype) + (dom-error :WRONG_DOCUMENT_ERR "doctype already in use")) (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))

1 0

[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-serv8304 Modified Files: DOMTEST Log Message: MORE WRONG_DOCUMENT_ERR Date: Sun Dec 4 23:25:35 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.12 cxml/DOMTEST:1.13 --- cxml/DOMTEST:1.12 Sun Dec 4 23:22:29 2005 +++ cxml/DOMTEST Sun Dec 4 23:25:34 2005 @@ -565,9 +565,7 @@ 535/808 createDocument01.xml 536/808 createDocument02.xml 537/808 createDocument03.xml -TEST FAILED: expected exception WRONG_DOCUMENT_ERR 538/808 createDocument04.xml -TEST FAILED: expected exception WRONG_DOCUMENT_ERR 539/808 createDocument05.xml 540/808 createDocument06.xml 541/808 createDocument07.xml @@ -932,4 +930,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -45/763 tests failed; 45 tests were skipped \ No newline at end of file +43/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 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv8257/dom Modified Files: dom-impl.lisp Log Message: praefix ohne uri ist verboten Date: Sun Dec 4 23:22:30 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.12 cxml/dom/dom-impl.lisp:1.13 --- cxml/dom/dom-impl.lisp:1.12 Sun Dec 4 23:18:34 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 23:22:30 2005 @@ -284,6 +284,8 @@ (cxml:well-formedness-violation (c) (dom-error :NAMESPACE_ERR "~A" c))) (when prefix + (unless uri + (dom-error :NAMESPACE_ERR "prefix specified but no namespace URI")) (when (and (rod= prefix #"xml") (not (rod= uri #"http://www.w3.org/XML/1998/namespace"))) (dom-error :NAMESPACE_ERR "invalid uri for prefix `xml'"))

1 0

[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-serv8257 Modified Files: DOMTEST Log Message: praefix ohne uri ist verboten Date: Sun Dec 4 23:22:30 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.11 cxml/DOMTEST:1.12 --- cxml/DOMTEST:1.11 Sun Dec 4 23:18:33 2005 +++ cxml/DOMTEST Sun Dec 4 23:22:29 2005 @@ -558,14 +558,12 @@ 528/808 attrgetownerelement05.xml 529/808 createAttributeNS01.xml 530/808 createAttributeNS02.xml -TEST FAILED: expected exception NAMESPACE_ERR 531/808 createAttributeNS03.xml 532/808 createAttributeNS04.xml 533/808 createAttributeNS05.xml 534/808 createAttributeNS06.xml 535/808 createDocument01.xml 536/808 createDocument02.xml -TEST FAILED: expected exception NAMESPACE_ERR 537/808 createDocument03.xml TEST FAILED: expected exception WRONG_DOCUMENT_ERR 538/808 createDocument04.xml @@ -590,7 +588,6 @@ (NIL). 547/808 createElementNS01.xml 548/808 createElementNS02.xml -TEST FAILED: expected exception NAMESPACE_ERR 549/808 createElementNS03.xml 550/808 createElementNS04.xml 551/808 createElementNS05.xml @@ -599,14 +596,12 @@ 554/808 documentcreateattributeNS03.xml 555/808 documentcreateattributeNS04.xml 556/808 documentcreateattributeNS05.xml -TEST FAILED: expected exception NAMESPACE_ERR 557/808 documentcreateattributeNS06.xml 558/808 documentcreateattributeNS07.xml TEST FAILED: expected exception NAMESPACE_ERR 559/808 documentcreateelementNS01.xml 560/808 documentcreateelementNS02.xml 561/808 documentcreateelementNS05.xml -TEST FAILED: expected exception NAMESPACE_ERR 562/808 documentcreateelementNS06.xml 563/808 documentgetelementbyid01.xml 564/808 documentgetelementsbytagnameNS01.xml @@ -619,25 +614,25 @@ 571/808 documentimportnode03.xml 572/808 documentimportnode04.xml 573/808 documentimportnode05.xml -TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {52D57899}>. +TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {xxxxxxxx}>. 574/808 documentimportnode06.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {51AFD949}> - #<DOM-IMPL::DOCUMENT {51AFD949}> NIL). + (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> + #<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL). 575/808 documentimportnode07.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {51E0F1B1}> - #<DOM-IMPL::DOCUMENT-TYPE {51E0FAB1}> T). + (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> + #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T). 576/808 documentimportnode08.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {51F8A1B1}> - #<DOM-IMPL::DOCUMENT-TYPE {51FA2FA1}> T). + (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> + #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T). 577/808 documentimportnode09.xml 578/808 documentimportnode10.xml 579/808 documentimportnode11.xml @@ -652,7 +647,7 @@ 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 {52051579}>. +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 @@ -663,7 +658,6 @@ 592/808 documenttypesystemid01.xml 593/808 domimplementationcreatedocument03.xml 594/808 domimplementationcreatedocument04.xml -TEST FAILED: expected exception NAMESPACE_ERR 595/808 domimplementationcreatedocument05.xml 596/808 domimplementationcreatedocument07.xml 597/808 domimplementationcreatedocumenttype01.xml @@ -695,7 +689,7 @@ 618/808 elementremoveattributens01.xml 619/808 elementsetattributenodens01.xml 620/808 elementsetattributenodens02.xml -TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE street="Yes" {52C329D1}>. +TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE street="Yes" {xxxxxxxx}>. 621/808 elementsetattributenodens03.xml TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 622/808 elementsetattributenodens04.xml @@ -707,11 +701,9 @@ 627/808 elementsetattributens03.xml 628/808 elementsetattributens04.xml 629/808 elementsetattributens05.xml -TEST FAILED: expected exception NAMESPACE_ERR 630/808 elementsetattributens08.xml TEST FAILED: expected exception NAMESPACE_ERR 631/808 elementsetattributensurinull.xml -TEST FAILED: expected exception NAMESPACE_ERR 632/808 getAttributeNS01.xml 633/808 getAttributeNS02.xml 634/808 getAttributeNS03.xml @@ -784,14 +776,14 @@ TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {52C10309}> - #<DOM-IMPL::DOCUMENT-TYPE {5174B8A9}> NIL). + (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> + #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> NIL). 693/808 importNode17.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {519843A1}> - #<DOM-IMPL::DOCUMENT {519A9DE1}> NIL). + (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> + #<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL). 694/808 internalSubset01.xml TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. 695/808 isSupported01.xml @@ -828,7 +820,7 @@ 719/808 namednodemapremovenameditemns03.xml 720/808 namednodemapremovenameditemns04.xml TEST FAILED: NOT_FOUND_ERR (8): -#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {5289D969}> +#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}> 721/808 namednodemapremovenameditemns05.xml 722/808 namednodemapremovenameditemns06.xml 723/808 namednodemapremovenameditemns07.xml @@ -862,7 +854,7 @@ 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 {524EFAB1}>). + (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>). 748/808 nodehasattributes03.xml 749/808 nodehasattributes04.xml 750/808 nodeissupported01.xml @@ -886,9 +878,7 @@ 101 115 115) 'DOMTEST::%EQUAL) failed. 758/808 nodesetprefix03.xml -TEST FAILED: expected exception NAMESPACE_ERR 759/808 nodesetprefix04.xml -TEST FAILED: expected exception NAMESPACE_ERR 760/808 nodesetprefix05.xml 761/808 nodesetprefix06.xml 762/808 nodesetprefix07.xml @@ -907,10 +897,8 @@ 775/808 prefix07.xml 776/808 prefix08.xml 777/808 prefix09.xml -TEST FAILED: expected exception NAMESPACE_ERR 778/808 prefix10.xml 779/808 prefix11.xml -TEST FAILED: expected exception NAMESPACE_ERR 780/808 publicId01.xml 781/808 removeAttributeNS01.xml 782/808 removeAttributeNS02.xml @@ -944,4 +932,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -57/763 tests failed; 45 tests were skipped \ No newline at end of file +45/763 tests failed; 45 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 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv8177/xml Modified Files: xml-parse.lisp Log Message: ohne prefix haben wir beim namespace-processing aber trotzdem einen lname Date: Sun Dec 4 23:18:39 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.51 cxml/xml/xml-parse.lisp:1.52 --- cxml/xml/xml-parse.lisp:1.51 Sun Dec 4 22:15:38 2005 +++ cxml/xml/xml-parse.lisp Sun Dec 4 23:18:37 2005 @@ -3351,7 +3351,7 @@ (let ((uri (find-namespace-binding prefix))) (if uri (values uri prefix local-name) - (values nil nil nil))))) + (values nil nil qname))))) (defun find-namespace-binding (prefix)

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-serv8177/test Modified Files: domtest.lisp Log Message: ohne prefix haben wir beim namespace-processing aber trotzdem einen lname Date: Sun Dec 4 23:18:35 2005 Author: dlichteblau Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.9 cxml/test/domtest.lisp:1.10 --- cxml/test/domtest.lisp:1.9 Sun Dec 4 22:15:37 2005 +++ cxml/test/domtest.lisp Sun Dec 4 23:18:35 2005 @@ -615,7 +615,8 @@ (t (push (translate-statement e) code)))) `(lambda () - (let (,@bindings) + (let ((*files-directory* ,*files-directory*) ;fuer copy&paste: + ,@bindings) (declare (ignorable ,@(mapcar #'car bindings))) ,@(reverse code)))))) @@ -699,8 +700,8 @@ (ecase level (1 (merge-pathnames "tests/level1/core/" *directory*)) (2 (merge-pathnames "tests/level2/core/" *directory*)))) - (lisp (slurp-test (merge-pathnames href test-directory))) (*files-directory* (merge-pathnames "files/" test-directory)) + (lisp (slurp-test (merge-pathnames href test-directory))) (cxml::*validate* nil)) (print lisp) (when lisp

1 0

[cxml-cvs] CVS update: cxml/dom/dom-builder.lisp cxml/dom/dom-impl.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-serv8177/dom Modified Files: dom-builder.lisp dom-impl.lisp Log Message: ohne prefix haben wir beim namespace-processing aber trotzdem einen lname Date: Sun Dec 4 23:18:34 2005 Author: dlichteblau Index: cxml/dom/dom-builder.lisp diff -u cxml/dom/dom-builder.lisp:1.5 cxml/dom/dom-builder.lisp:1.6 --- cxml/dom/dom-builder.lisp:1.5 Sun Dec 4 21:35:15 2005 +++ cxml/dom/dom-builder.lisp Sun Dec 4 23:18:34 2005 @@ -80,19 +80,22 @@ (defmethod sax:start-element ((handler dom-builder) namespace-uri local-name qname attributes) (with-slots (document element-stack) handler - (let ((element (make-instance 'element + (let* ((nsp sax:*namespace-processing*) + (element (make-instance 'element :tag-name qname :owner document - :namespace-uri namespace-uri - :local-name local-name - :prefix (cxml::split-qname (cxml::rod qname)))) + :namespace-uri (when nsp namespace-uri) + :local-name (when nsp local-name) + :prefix (when nsp (cxml::split-qname (cxml::rod qname))))) (parent (car element-stack)) (anodes '())) (dolist (attr attributes) (let ((anode - (dom:create-attribute-ns document - (sax:attribute-namespace-uri attr) - (sax:attribute-qname attr))) + (if nsp + (dom:create-attribute-ns document + (sax:attribute-namespace-uri attr) + (sax:attribute-qname attr)) + (dom:create-attribute document (sax:attribute-qname attr)))) (text (dom:create-text-node document (sax:attribute-value attr)))) (setf (slot-value anode 'dom-impl::specified-p) Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.11 cxml/dom/dom-impl.lisp:1.12 --- cxml/dom/dom-impl.lisp:1.11 Sun Dec 4 22:44:06 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 23:18:34 2005 @@ -132,7 +132,8 @@ (etypecase x (null x) (rod x) - (string (string-rod x)))) + (string (string-rod x)) + (vector x))) (defun assert-writeable (node) (when (read-only-p node)

1 0

← Newer
1
...
7
8
9
10
11
12
13
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