cxml-cvs

cxml-cvs@common-lisp.net

425 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-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

[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/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-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-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/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/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

← Newer
1
...
24
25
26
27
28
29
30
...
43
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