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 10 Dec '05

10 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv32546/dom Modified Files: dom-impl.lisp Log Message: keine version == egal Date: Sat Dec 10 21:06:05 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.18 cxml/dom/dom-impl.lisp:1.19 --- cxml/dom/dom-impl.lisp:1.18 Mon Dec 5 00:26:47 2005 +++ cxml/dom/dom-impl.lisp Sat Dec 10 21:06:05 2005 @@ -214,7 +214,8 @@ (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") + (or (zerop (length version)) + (string-equal (rod-string version) "1.0") (string-equal (rod-string version) "2.0")))) (defun %create-document-type (name publicid systemid)

1 0

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

10 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv32546 Modified Files: DOMTEST Log Message: keine version == egal Date: Sat Dec 10 21:06:04 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.17 cxml/DOMTEST:1.18 --- cxml/DOMTEST:1.17 Mon Dec 5 00:26:47 2005 +++ cxml/DOMTEST Sat Dec 10 21:06:02 2005 @@ -750,15 +750,12 @@ 698/808 isSupported05.xml 699/808 isSupported06.xml 700/808 isSupported07.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 701/808 isSupported09.xml 702/808 isSupported10.xml 703/808 isSupported11.xml 704/808 isSupported12.xml 705/808 isSupported13.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 706/808 isSupported14.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 707/808 localName01.xml 708/808 localName02.xml 709/808 localName03.xml @@ -814,9 +811,7 @@ 748/808 nodehasattributes03.xml 749/808 nodehasattributes04.xml 750/808 nodeissupported01.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. 751/808 nodeissupported02.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. 752/808 nodeissupported03.xml 753/808 nodeissupported04.xml 754/808 nodeissupported05.xml @@ -888,4 +883,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -27/763 tests failed; 45 tests were skipped \ No newline at end of file +22/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

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

05 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv15596 Modified Files: COPYING Log Message: da stand noch (c) franz, das ist natuerlich quatsch Date: Mon Dec 5 00:51:40 2005 Author: dlichteblau Index: cxml/COPYING diff -u cxml/COPYING:1.1 cxml/COPYING:1.2 --- cxml/COPYING:1.1 Mon Nov 28 23:33:29 2005 +++ cxml/COPYING Mon Dec 5 00:51:40 2005 @@ -1,6 +1,11 @@ -Preamble to the Gnu Lesser General Public License +Closure XML -- a Common Lisp XML parser + +Copyright (c) 1999 by Gilbert Baumann +Copyright (c) 2003 by Henrik Motakef +Copyright (c) 2004 knowledgeTools Int. GmbH +Copyright (c) 2004,2005 David Lichteblau -Copyright (c) 2000 Franz Incorporated, Berkeley, CA 94704 +Preamble to the Gnu Lesser General Public License The concept of the GNU Lesser General Public License version 2.1 ("LGPL") has been adopted to govern the use and distribution of

1 0

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

05 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv13355/dom Modified Files: dom-impl.lisp Log Message: nicht spezifizierte importe sollen NOT_SUPPORTED_ERR geben Date: Mon Dec 5 00:26:48 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.17 cxml/dom/dom-impl.lisp:1.18 --- cxml/dom/dom-impl.lisp:1.17 Mon Dec 5 00:23:25 2005 +++ cxml/dom/dom-impl.lisp Mon Dec 5 00:26:47 2005 @@ -1248,6 +1248,10 @@ (dom:append-child result (dom:import-node document child t)))) result)) +(defmethod dom:import-node ((document document) (node t) deep) + (declare (ignore deep)) + (dom-error :NOT_SUPPORTED_ERR "not implemented")) + (defmethod dom:import-node ((document document) (node attribute) deep) (declare (ignore deep)) (import-node-internal 'attribute

1 0

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

05 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv13355 Modified Files: DOMTEST Log Message: nicht spezifizierte importe sollen NOT_SUPPORTED_ERR geben Date: Mon Dec 5 00:26:47 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.16 cxml/DOMTEST:1.17 --- cxml/DOMTEST:1.16 Mon Dec 5 00:23:24 2005 +++ cxml/DOMTEST Mon Dec 5 00:26:47 2005 @@ -602,23 +602,8 @@ 572/808 documentimportnode04.xml 573/808 documentimportnode05.xml 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 {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 {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 {xxxxxxxx}> - #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T). 577/808 documentimportnode09.xml 578/808 documentimportnode10.xml 579/808 documentimportnode11.xml @@ -756,17 +741,7 @@ 690/808 importNode14.xml 691/808 importNode15.xml 692/808 importNode16.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 {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 {xxxxxxxx}> - #<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL). 694/808 internalSubset01.xml TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. 695/808 isSupported01.xml @@ -913,4 +888,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -32/763 tests failed; 45 tests were skipped \ No newline at end of file +27/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 05 Dec '05

05 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv13298/dom Modified Files: dom-impl.lisp Log Message: attributknotennamespace beim klonen mitnehmen Date: Mon Dec 5 00:23:26 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.16 cxml/dom/dom-impl.lisp:1.17 --- cxml/dom/dom-impl.lisp:1.16 Mon Dec 5 00:20:25 2005 +++ cxml/dom/dom-impl.lisp Mon Dec 5 00:23:25 2005 @@ -1254,6 +1254,9 @@ document node t :name (dom:name node) + :namespace-uri (dom:namespace-uri node) + :local-name (dom:local-name node) + :prefix (dom:prefix node) :owner-element nil)) (defmethod dom:import-node ((document document) (node document-fragment) deep)

1 0

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

05 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv13298 Modified Files: DOMTEST Log Message: attributknotennamespace beim klonen mitnehmen Date: Mon Dec 5 00:23:25 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.15 cxml/DOMTEST:1.16 --- cxml/DOMTEST:1.15 Mon Dec 5 00:20:22 2005 +++ cxml/DOMTEST Mon Dec 5 00:23:24 2005 @@ -601,7 +601,6 @@ 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="" {xxxxxxxx}>. 574/808 documentimportnode06.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> @@ -675,7 +674,6 @@ 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" {xxxxxxxx}>. 621/808 elementsetattributenodens03.xml TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 622/808 elementsetattributenodens04.xml @@ -915,4 +913,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -34/763 tests failed; 45 tests were skipped \ No newline at end of file +32/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 05 Dec '05

05 Dec '05

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv13237/xml Modified Files: xml-parse.lisp Log Message: auch qname "xmlns" hat einen namespace, falls sax:*sowieso* an ist. und im dom-builder nicht den namen des doctypes pruefen Date: Mon Dec 5 00:20:27 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.52 cxml/xml/xml-parse.lisp:1.53 --- cxml/xml/xml-parse.lisp:1.52 Sun Dec 4 23:18:37 2005 +++ cxml/xml/xml-parse.lisp Mon Dec 5 00:20:27 2005 @@ -3466,15 +3466,19 @@ (defun set-attribute-namespace (attribute) (let ((qname (sax:attribute-qname attribute))) - (multiple-value-bind (prefix local-name) (split-qname qname) - (declare (ignorable local-name)) - (when (and prefix ;; default namespace doesn't apply to attributes - (or (not (rod= #"xmlns" prefix)) sax:*use-xmlns-namespace*)) - (multiple-value-bind (uri prefix local-name) - (decode-qname qname) - (declare (ignore prefix)) - (setf (sax:attribute-namespace-uri attribute) uri) - (setf (sax:attribute-local-name attribute) local-name)))))) + (if (and sax:*use-xmlns-namespace* (rod= qname #"xmlns")) + (setf (sax:attribute-namespace-uri attribute) + #"http://www.w3.org/2000/xmlns/") + (multiple-value-bind (prefix local-name) (split-qname qname) + (declare (ignorable local-name)) + (when (and prefix ;; default namespace doesn't apply to attributes + (or (not (rod= #"xmlns" prefix)) + sax:*use-xmlns-namespace*)) + (multiple-value-bind (uri prefix local-name) + (decode-qname qname) + (declare (ignore prefix)) + (setf (sax:attribute-namespace-uri attribute) uri) + (setf (sax:attribute-local-name attribute) local-name))))))) ;;;;;;;;;;;;;;;;;

1 0

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

05 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv13237/dom Modified Files: dom-builder.lisp dom-impl.lisp Log Message: auch qname "xmlns" hat einen namespace, falls sax:*sowieso* an ist. und im dom-builder nicht den namen des doctypes pruefen Date: Mon Dec 5 00:20:25 2005 Author: dlichteblau Index: cxml/dom/dom-builder.lisp diff -u cxml/dom/dom-builder.lisp:1.6 cxml/dom/dom-builder.lisp:1.7 --- cxml/dom/dom-builder.lisp:1.6 Sun Dec 4 23:18:34 2005 +++ cxml/dom/dom-builder.lisp Mon Dec 5 00:20:25 2005 @@ -45,8 +45,7 @@ (defmethod sax:start-dtd ((handler dom-builder) name publicid systemid) (let* ((document (document handler)) - (doctype - (dom:create-document-type 'implementation name publicid systemid))) + (doctype (%create-document-type 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 Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.15 cxml/dom/dom-impl.lisp:1.16 --- cxml/dom/dom-impl.lisp:1.15 Sun Dec 4 23:57:30 2005 +++ cxml/dom/dom-impl.lisp Mon Dec 5 00:20:25 2005 @@ -217,9 +217,7 @@ (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) - (safe-split-qname name #"") +(defun %create-document-type (name publicid systemid) (make-instance 'dom-impl::document-type :name name :notations (make-instance 'dom-impl::named-node-map @@ -231,6 +229,11 @@ :public-id publicid :system-id systemid)) +(defmethod dom:create-document-type + ((factory (eql 'implementation)) name publicid systemid) + (safe-split-qname name #"") + (%create-document-type name publicid systemid)) + (defmethod dom:create-document ((factory (eql 'implementation)) uri qname doctype) (let ((document (make-instance 'dom-impl::document))) @@ -363,6 +366,9 @@ (defmethod dom:create-attribute-ns ((document document) uri qname) (setf uri (%rod uri)) (setf qname (%rod qname)) + (when (and (rod= qname #"xmlns") + (not (rod= uri #"http://www.w3.org/2000/xmlns/"))) + (dom-error :NAMESPACE_ERR "invalid uri for qname `xmlns'")) (multiple-value-bind (prefix local-name) (safe-split-qname qname uri) (make-instance 'attribute

1 0

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

05 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv13237 Modified Files: DOMTEST Log Message: auch qname "xmlns" hat einen namespace, falls sax:*sowieso* an ist. und im dom-builder nicht den namen des doctypes pruefen Date: Mon Dec 5 00:20:24 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.14 cxml/DOMTEST:1.15 --- cxml/DOMTEST:1.14 Sun Dec 4 23:57:30 2005 +++ cxml/DOMTEST Mon Dec 5 00:20:22 2005 @@ -586,7 +586,6 @@ 556/808 documentcreateattributeNS05.xml 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 @@ -671,7 +670,6 @@ 613/808 elementhasattribute03.xml 614/808 elementhasattribute04.xml 615/808 elementhasattributens01.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 616/808 elementhasattributens02.xml 617/808 elementhasattributens03.xml 618/808 elementremoveattributens01.xml @@ -690,7 +688,6 @@ 628/808 elementsetattributens04.xml 629/808 elementsetattributens05.xml 630/808 elementsetattributens08.xml -TEST FAILED: expected exception NAMESPACE_ERR 631/808 elementsetattributensurinull.xml 632/808 getAttributeNS01.xml 633/808 getAttributeNS02.xml @@ -807,8 +804,6 @@ (NIL). 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 {xxxxxxxx}> 721/808 namednodemapremovenameditemns05.xml 722/808 namednodemapremovenameditemns06.xml 723/808 namednodemapremovenameditemns07.xml @@ -885,6 +880,7 @@ 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 780/808 publicId01.xml @@ -904,7 +900,6 @@ 790/808 setAttributeNS05.xml 791/808 setAttributeNS06.xml 792/808 setAttributeNS07.xml -TEST FAILED: expected exception NAMESPACE_ERR 793/808 setAttributeNS09.xml 794/808 setAttributeNS10.xml 795/808 setAttributeNodeNS01.xml @@ -920,4 +915,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -38/763 tests failed; 45 tests were skipped \ No newline at end of file +34/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

← Newer
1
...
6
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