From dlichteblau at common-lisp.net  Sat Dec  3 21:02:39 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:02:39 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/XMLCONF 
Message-ID: <20051203210239.B66B088556@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv23177

Modified Files:
	XMLCONF 
Log Message:
-eduni/namespaces/1.0/012.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Namespace inequality test: equal after attribute value normalization
-]

Date: Sat Dec  3 22:02:36 2005
Author: dlichteblau

Index: cxml/XMLCONF
diff -u cxml/XMLCONF:1.37 cxml/XMLCONF:1.38
--- cxml/XMLCONF:1.37	Sun Nov 27 22:02:53 2005
+++ cxml/XMLCONF	Sat Dec  3 22:02:35 2005
@@ -1796,11 +1796,7 @@
 eduni/namespaces/1.0/009.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/010.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/011.xml [not validating:] not-wf [validating:] not-wf
-eduni/namespaces/1.0/012.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Namespace inequality test: equal after attribute value normalization
-]
+eduni/namespaces/1.0/012.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/013.xml [not validating:] FAILED:
   #(98 58 97 116 116 114) fell through ETYPECASE expression.
   Wanted one of (STRING SIMPLE-STRING).
@@ -1868,4 +1864,4 @@
 [
 Colon in ID attribute name
 ]
-9/1829 tests failed; 333 tests were skipped
\ No newline at end of file
+8/1829 tests failed; 333 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sat Dec  3 21:02:39 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:02:39 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/xmlconf.lisp 
Message-ID: <20051203210239.15D7288565@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv23177/test

Modified Files:
	xmlconf.lisp 
Log Message:
-eduni/namespaces/1.0/012.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Namespace inequality test: equal after attribute value normalization
-]

Date: Sat Dec  3 22:02:37 2005
Author: dlichteblau

Index: cxml/test/xmlconf.lisp
diff -u cxml/test/xmlconf.lisp:1.7 cxml/test/xmlconf.lisp:1.8
--- cxml/test/xmlconf.lisp:1.7	Sun Nov 27 22:02:58 2005
+++ cxml/test/xmlconf.lisp	Sat Dec  3 22:02:37 2005
@@ -70,7 +70,7 @@
     (with-open-file (*standard-output*
 		     (merge-pathnames "XMLCONF" base)
 		     :direction :output
-		     :external-format :iso-8859-1
+;;;		     :external-format :iso-8859-1
 		     :if-exists :supersede)
       (run-all-tests directory))))
 
@@ -195,9 +195,4 @@
       t)))
 
 #+(or)
-(xmlconf::run-all-tests "/mnt/debian/space/xmlconf/")
-
-#+(or)
-(progn
-  (#+allegro mp:with-timeout #+allegro (60) #-allegro progn
-             ))
+(xmlconf::dribble-tests "/home/david/2001/XML-Test-Suite/xmlconf/")



From dlichteblau at common-lisp.net  Sat Dec  3 21:02:39 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:02:39 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051203210239.9817B88567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv23177/xml

Modified Files:
	xml-parse.lisp 
Log Message:
-eduni/namespaces/1.0/012.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Namespace inequality test: equal after attribute value normalization
-]

Date: Sat Dec  3 22:02:38 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.44 cxml/xml/xml-parse.lisp:1.45
--- cxml/xml/xml-parse.lisp:1.44	Mon Nov 28 23:33:47 2005
+++ cxml/xml/xml-parse.lisp	Sat Dec  3 22:02:38 2005
@@ -183,12 +183,8 @@
 
 (defvar *ctx*)
 
-;; forward declaration for DEFVAR
-(declaim (special *default-namespace-bindings*))
-
 (defstruct (context (:conc-name nil))
   handler
-  (namespace-bindings *default-namespace-bindings*)
   (dtd nil)
   model-stack
   (referenced-notations '())
@@ -202,6 +198,11 @@
 
 (defvar *expand-pe-p* nil)
 
+(defparameter *namespace-bindings*
+  '((#"" . nil)
+    (#"xmlns" . #"http://www.w3.org/2000/xmlns/")
+    (#"xml" . #"http://www.w3.org/XML/1998/namespace")))
+
 ;;;; ---------------------------------------------------------------------------
 ;;;; xstreams
 ;;;;
@@ -701,6 +702,8 @@
          (elmdef (elmdef-external-p def))
          (attdef (attdef-external-p def)))))
 
+;; attribute validation, defaulting, and normalization -- except for for
+;; uniqueness checks, which are done after namespaces have been declared
 (defun process-attributes (ctx name attlist)
   (let ((e (find-element name (dtd ctx))))
     (cond
@@ -716,11 +719,11 @@
               (t
                 (when (standalone-check-necessary-p ad)
                   (validity-error "(02) Standalone Document Declaration: missing attribute value"))
-                (push (build-attribute (attdef-name ad)
-                                       (cadr (attdef-default ad))
-                                       nil)
+                (push (sax:make-attribute :qname (attdef-name ad)
+					  :value (cadr (attdef-default ad))
+					  :specified-p nil)
                       attlist)))))
-        (dolist (a attlist)             ;normalize non-CDATA values
+        (dolist (a attlist)		;normalize non-CDATA values
           (let* ((qname (sax:attribute-qname a))
                  (adef (find-attribute e qname)))
             (when (and adef (not (eq (attdef-type adef) :CDATA)))
@@ -729,7 +732,7 @@
                            (not (rod= (sax:attribute-value a) canon)))
                   (validity-error "(02) Standalone Document Declaration: attribute value not normalized"))
                 (setf (sax:attribute-value a) canon)))))
-        (when *validate*                ;maybe validate attribute values
+        (when *validate*		;maybe validate attribute values
           (dolist (a attlist)
             (validate-attribute ctx e a))))
       ((and *validate* attlist)
@@ -2607,66 +2610,52 @@
       (sax:end-document handler))))
 
 (defun p/element (input)
-  (if sax:*namespace-processing*
-      (p/element-ns input)
-      (p/element-no-ns input)))
-
-(defun p/element-no-ns (input)
-  ;;    [39] element ::= EmptyElemTag | STag content ETag
-  (error "sorry, bitrot")
-  (multiple-value-bind (cat sem) (read-token input)
-    (cond ((eq cat :ztag)
-	   (sax:start-element (handler *ctx*) nil nil (car sem) (build-attribute-list-no-ns (cdr sem)))
-	   (sax:end-element (handler *ctx*) nil nil (car sem)))
-
-          ((eq cat :stag)
-	   (sax:start-element (handler *ctx*) nil nil (car sem) (build-attribute-list-no-ns (cdr sem)))
-	   (p/content input)
-	   (multiple-value-bind (cat2 sem2) (read-token input)
-               (unless (and (eq cat2 :etag)
-                            (eq (car sem2) (car sem)))
-                 (wf-error input "Bad nesting. ~S / ~S" (mu sem) (mu (cons cat2 sem2)))))
-	   (sax:end-element (handler *ctx*) nil nil (car sem)))
-
-          (t
-           (wf-error input "Expecting element.")))))
-
-
-(defun p/element-ns (input)
   (multiple-value-bind (cat sem) (read-token input)
     (case cat
       ((:stag :ztag))
       (:eof (eox input))
       (t (wf-error input "element expected")))
-    (destructuring-bind (&optional name &rest attrs) sem
+    (destructuring-bind (&optional name &rest raw-attrs) sem
       (validate-start-element *ctx* name)
-      (let ((ns-decls (declare-namespaces name attrs)))
-	(multiple-value-bind (ns-uri prefix local-name) (decode-qname name)
+      (let* ((attrs
+	      (process-attributes *ctx* name (build-attribute-list raw-attrs)))
+	     (*namespace-bindings* *namespace-bindings*)
+	     new-namespaces)
+	(when sax:*namespace-processing*
+	  (setf new-namespaces (declare-namespaces attrs))
+	  (mapc #'set-attribute-namespace attrs))
+	(multiple-value-bind (uri prefix local-name)
+	    (if sax:*namespace-processing*
+		(decode-qname name)
+		(values nil nil nil))
 	  (declare (ignore prefix))
-	  (let* ((raw-attlist (build-attribute-list-ns attrs))
-		 (attlist
-		  (remove-if-not (lambda (a)
-				   (or sax:*include-xmlns-attributes*
-				       (not (xmlns-attr-p (sax:attribute-qname a)))))
-				 (process-attributes *ctx* name raw-attlist))))
-	    (cond ((eq cat :ztag)
-		    (sax:start-element (handler *ctx*) ns-uri local-name name attlist)
-		    (sax:end-element (handler *ctx*) ns-uri local-name name))
+	  (check-attribute-uniqueness attrs)
+	  (unless (or sax:*include-xmlns-attributes*
+		      (null sax:*namespace-processing*))
+	    (setf attrs
+		  (remove-if (compose #'xmlns-attr-p #'sax:attribute-qname)
+			     attrs))) 
+	  (cond
+	    ((eq cat :ztag)
+	      (sax:start-element (handler *ctx*) uri local-name name attrs)
+	      (sax:end-element (handler *ctx*) uri local-name name))
 		
-	      ((eq cat :stag)
-		(sax:start-element (handler *ctx*) ns-uri local-name name attlist)
-		(p/content input)
-		(multiple-value-bind (cat2 sem2) (read-token input)
-		  (unless (and (eq cat2 :etag)
-			       (eq (car sem2) name))
-		    (wf-error input "Bad nesting. ~S / ~S" (mu name) (mu (cons cat2 sem2))))
-		  (when (cdr sem2)
-		    (wf-error input "no attributes allowed in end tag")))
-		(sax:end-element (handler *ctx*) ns-uri local-name name))
+	    ((eq cat :stag)
+	      (sax:start-element (handler *ctx*) uri local-name name attrs)
+	      (p/content input)
+	      (multiple-value-bind (cat2 sem2) (read-token input)
+		(unless (and (eq cat2 :etag)
+			     (eq (car sem2) name))
+		  (wf-error input "Bad nesting. ~S / ~S"
+			    (mu name)
+			    (mu (cons cat2 sem2))))
+		(when (cdr sem2)
+		  (wf-error input "no attributes allowed in end tag")))
+	      (sax:end-element (handler *ctx*) uri local-name name))
 		
-	      (t
-		(wf-error input "Expecting element, got ~S." cat)))))
-	(undeclare-namespaces ns-decls))
+	    (t
+	      (wf-error input "Expecting element, got ~S." cat))))
+	(undeclare-namespaces new-namespaces))
       (validate-end-element *ctx* name))))
 
 (defun p/content (input)
@@ -3323,11 +3312,6 @@
 
 ;;; Namespace stuff
 
-(defvar *default-namespace-bindings*
-  '((#"" . nil)
-    (#"xmlns" . #"http://www.w3.org/2000/xmlns/")
-    (#"xml" . #"http://www.w3.org/XML/1998/namespace")))
-
 ;; We already know that name is part of a valid XML name, so all we
 ;; have to check is that the first rune is a name-start-rune and that
 ;; there is not colon in it.
@@ -3357,7 +3341,7 @@
 
 
 (defun find-namespace-binding (prefix)
-  (cdr (or (assoc (or prefix #"") (namespace-bindings *ctx*) :test #'rod=)
+  (cdr (or (assoc (or prefix #"") *namespace-bindings* :test #'rod=)
 	   (wf-error nil "Undeclared namespace prefix: ~A" (rod-string prefix)))))
 
 ;; FIXME: Should probably be refactored by adding :start and :end to rod=/rod-equal
@@ -3375,33 +3359,17 @@
       (subseq attrname 6)
       nil))
 
-(defun find-namespace-declarations (element attr-alist)
-  (let ((result
-         (mapcar #'(lambda (attr)
-                     (cons (attrname->prefix (car attr)) (cdr attr)))
-                 (remove-if-not #'xmlns-attr-p attr-alist :key #'car))))
-    ;; Argh!  PROCESS-ATTRIBUTES needs to know the attributes' namespaces
-    ;; already.  But namespace declarations can be done using default values
-    ;; in the DTD.  So we need to handle defaulting of attribute values twice,
-    ;; once for xmlns attributes, then for all others.  (I really hope I'm
-    ;; wrong on this one, but I don't see how.)
-    (let ((e (find-element element (dtd *ctx*))))
-      (when e
-        (dolist (ad (elmdef-attributes e)) ;handle default values
-          (let* ((name (attdef-name ad))
-                 (prefix (attrname->prefix name)))
-            (when (and (xmlns-attr-p name)
-                       (not (member prefix result :key #'car :test #'rod=))
-                       (listp (attdef-default ad)) ;:DEFAULT or :FIXED
-                       )
-              (push (cons prefix (cadr (attdef-default ad))) result))))))
-    result))
-
-(defun declare-namespaces (element attr-alist)
-  (let ((ns-decls (find-namespace-declarations element attr-alist)))
-    (dolist (ns-decl ns-decls )
+(defun find-namespace-declarations (attributes)
+  (loop
+      for attribute in attributes
+      for qname = (sax:attribute-qname attribute)
+      when (xmlns-attr-p qname)
+      collect (cons (attrname->prefix qname) (sax:attribute-value attribute))))
+
+(defun declare-namespaces (attributes)
+  (let ((ns-decls (find-namespace-declarations attributes)))
+    (dolist (ns-decl ns-decls)
       ;; check some namespace validity constraints
-      ;; FIXME: Would be nice to add "this is insane, go ahead" restarts
       (let ((prefix (car ns-decl))
 	    (uri (if (rod= #"" (cdr ns-decl))
 		     nil
@@ -3438,7 +3406,7 @@
                       may be bound to an empty namespace URI, thus ~
                       undeclaring it."))
 	  (t
-	   (push (cons prefix uri) (namespace-bindings *ctx*))
+	   (push (cons prefix uri) *namespace-bindings*)
 	   (sax:start-prefix-mapping (handler *ctx*)
 				     (car ns-decl)
 				     (cdr ns-decl))))))
@@ -3446,62 +3414,53 @@
 
 (defun undeclare-namespaces (ns-decls)
   (dolist (ns-decl ns-decls)
-    (setf (namespace-bindings *ctx*) (delete ns-decl (namespace-bindings *ctx*)))
     (sax:end-prefix-mapping (handler *ctx*) (car ns-decl))))
 
-(defun build-attribute-list-no-ns (attr-alist)
-  (mapcar #'(lambda (pair)
-              (sax:make-attribute :qname (car pair)
-                                  :value (cdr pair)
-                                  :specified-p t))
-	  attr-alist))
-
-;; FIXME: Use a non-braindead way to enforce attribute uniqueness
-(defun build-attribute-list-ns (attr-alist)
+(defun build-attribute-list (attr-alist)
+  ;; fixme: if there is a reason this function reverses attribute order,
+  ;; it should be documented.
   (let (attributes)
     (dolist (pair attr-alist)
-      (push (build-attribute (car pair) (cdr pair) t) attributes))
-
-    ;; 5.3 Uniqueness of Attributes
-    ;; In XML documents conforming to [the xmlns] specification, no
-    ;; tag may contain two attributes which:
-    ;; 1. have identical names, or
-    ;; 2. have qualified names with the same local part and with
-    ;; prefixes which have been bound to namespace names that are
-    ;; identical.
-    ;;
-    ;; 1. is checked by read-tag-2, so we only deal with 2 here
-    (do ((sublist attributes (cdr sublist)))
-	((null sublist) attributes)
-      (let ((attr-1 (car sublist)))
+      (push (sax:make-attribute :qname (car pair)
+				:value (cdr pair)
+				:specified-p t)
+	    attributes))
+    attributes))
+
+(defun check-attribute-uniqueness (attributes)
+  ;; 5.3 Uniqueness of Attributes
+  ;; In XML documents conforming to [the xmlns] specification, no
+  ;; tag may contain two attributes which:
+  ;; 1. have identical names, or
+  ;; 2. have qualified names with the same local part and with
+  ;; prefixes which have been bound to namespace names that are
+  ;; identical.
+  ;;
+  ;; 1. is checked by read-tag-2, so we only deal with 2 here
+  (loop for (attr-1 . rest) on attributes do
 	(when (and (sax:attribute-namespace-uri attr-1)
-		   (find-if #'(lambda (attr-2)
-				(and (rod= (sax:attribute-namespace-uri attr-1)
-					   (sax:attribute-namespace-uri attr-2))
-				     (rod= (sax:attribute-local-name attr-1)
-					   (sax:attribute-local-name attr-2))))
-		       (cdr sublist)))
+		   (find-if (lambda (attr-2)
+			      (and (rod= (sax:attribute-namespace-uri attr-1)
+					 (sax:attribute-namespace-uri attr-2))
+				   (rod= (sax:attribute-local-name attr-1)
+					 (sax:attribute-local-name attr-2))))
+			    rest))
 	  (wf-error nil
 		    "Multiple definitions of attribute ~S in namespace ~S."
 		    (mu (sax:attribute-local-name attr-1))
-		    (mu (sax:attribute-namespace-uri attr-1))))))))
+		    (mu (sax:attribute-namespace-uri attr-1))))))
 
-(defun build-attribute (name value specified-p)
-  (multiple-value-bind (prefix local-name) (split-qname name)
-    (declare (ignorable local-name))
-    (if (or (not prefix) ;; default namespace doesn't apply to attributes
-	    (and (rod= #"xmlns" prefix) (not sax:*use-xmlns-namespace*)))
-	(sax:make-attribute :qname name
-                            :value value
-                            :specified-p specified-p)
+(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 name)
+	    (decode-qname qname)
 	  (declare (ignore prefix))
-	  (sax:make-attribute :qname name
-                              :value value
-                              :namespace-uri uri
-                              :local-name local-name
-                              :specified-p specified-p)))))
+	  (setf (sax:attribute-namespace-uri attribute) uri)
+	  (setf (sax:attribute-local-name attribute) local-name))))))
 
 ;;;;;;;;;;;;;;;;;
 



From dlichteblau at common-lisp.net  Sat Dec  3 21:24:22 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:24:22 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/XMLCONF 
Message-ID: <20051203212422.CCCEB88556@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv24489

Modified Files:
	XMLCONF 
Log Message:
-eduni/namespaces/1.0/013.xml [not validating:] FAILED:
-  #(98 58 97 116 116 114) fell through ETYPECASE expression.
-  Wanted one of (STRING SIMPLE-STRING).
-[
-Bad QName syntax: multiple colons
-]

Date: Sat Dec  3 22:24:20 2005
Author: dlichteblau

Index: cxml/XMLCONF
diff -u cxml/XMLCONF:1.38 cxml/XMLCONF:1.39
--- cxml/XMLCONF:1.38	Sat Dec  3 22:02:35 2005
+++ cxml/XMLCONF	Sat Dec  3 22:24:16 2005
@@ -1797,12 +1797,7 @@
 eduni/namespaces/1.0/010.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/011.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/012.xml [not validating:] not-wf [validating:] not-wf
-eduni/namespaces/1.0/013.xml [not validating:] FAILED:
-  #(98 58 97 116 116 114) fell through ETYPECASE expression.
-  Wanted one of (STRING SIMPLE-STRING).
-[
-Bad QName syntax: multiple colons
-]
+eduni/namespaces/1.0/013.xml [not validating:] not-wf [validating:] invalid
 eduni/namespaces/1.0/014.xml [not validating:] FAILED:
   invalid array index 0 for #() (should be nonnegative and <0)
 [
@@ -1864,4 +1859,4 @@
 [
 Colon in ID attribute name
 ]
-8/1829 tests failed; 333 tests were skipped
\ No newline at end of file
+7/1829 tests failed; 333 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sat Dec  3 21:24:23 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:24:23 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/xmlconf.lisp 
Message-ID: <20051203212423.D10FD88556@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv24489/test

Modified Files:
	xmlconf.lisp 
Log Message:
-eduni/namespaces/1.0/013.xml [not validating:] FAILED:
-  #(98 58 97 116 116 114) fell through ETYPECASE expression.
-  Wanted one of (STRING SIMPLE-STRING).
-[
-Bad QName syntax: multiple colons
-]

Date: Sat Dec  3 22:24:21 2005
Author: dlichteblau

Index: cxml/test/xmlconf.lisp
diff -u cxml/test/xmlconf.lisp:1.8 cxml/test/xmlconf.lisp:1.9
--- cxml/test/xmlconf.lisp:1.8	Sat Dec  3 22:02:37 2005
+++ cxml/test/xmlconf.lisp	Sat Dec  3 22:24:21 2005
@@ -70,7 +70,7 @@
     (with-open-file (*standard-output*
 		     (merge-pathnames "XMLCONF" base)
 		     :direction :output
-;;;		     :external-format :iso-8859-1
+		     :external-format :iso-8859-1
 		     :if-exists :supersede)
       (run-all-tests directory))))
 



From dlichteblau at common-lisp.net  Sat Dec  3 21:24:28 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:24:28 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051203212428.914A488565@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv24489/xml

Modified Files:
	xml-parse.lisp 
Log Message:
-eduni/namespaces/1.0/013.xml [not validating:] FAILED:
-  #(98 58 97 116 116 114) fell through ETYPECASE expression.
-  Wanted one of (STRING SIMPLE-STRING).
-[
-Bad QName syntax: multiple colons
-]

Date: Sat Dec  3 22:24:22 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.45 cxml/xml/xml-parse.lisp:1.46
--- cxml/xml/xml-parse.lisp:1.45	Sat Dec  3 22:02:38 2005
+++ cxml/xml/xml-parse.lisp	Sat Dec  3 22:24:21 2005
@@ -3327,7 +3327,8 @@
 	      (local-name (subseq qname (1+ pos))))
 	  (if (nc-name-p local-name)
 	      (values prefix local-name)
-	      (wf-error "~S is not a valid NcName." local-name)))
+	      (wf-error nil "~S is not a valid NcName."
+			(rod-string local-name))))
 	(values () qname))))
 		
 (defun decode-qname (qname)



From dlichteblau at common-lisp.net  Sat Dec  3 21:26:55 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:26:55 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051203212655.E5D2688565@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv24551/xml

Modified Files:
	xml-parse.lisp 
Log Message:
-eduni/namespaces/1.0/014.xml [not validating:] FAILED:
-  invalid array index 0 for #() (should be nonnegative and <0)
-[
-Bad QName syntax: colon at end
-]

Date: Sat Dec  3 22:26:54 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.46 cxml/xml/xml-parse.lisp:1.47
--- cxml/xml/xml-parse.lisp:1.46	Sat Dec  3 22:24:21 2005
+++ cxml/xml/xml-parse.lisp	Sat Dec  3 22:26:54 2005
@@ -3316,7 +3316,8 @@
 ;; have to check is that the first rune is a name-start-rune and that
 ;; there is not colon in it.
 (defun nc-name-p (name)
-  (and (name-start-rune-p (rune name 0))
+  (and (plusp (length name))
+       (name-start-rune-p (rune name 0))
        (notany #'(lambda (rune) (rune= #/: rune)) name)))
 
 (defun split-qname (qname)



From dlichteblau at common-lisp.net  Sat Dec  3 21:26:55 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:26:55 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/XMLCONF 
Message-ID: <20051203212655.B9AB188556@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv24551

Modified Files:
	XMLCONF 
Log Message:
-eduni/namespaces/1.0/014.xml [not validating:] FAILED:
-  invalid array index 0 for #() (should be nonnegative and <0)
-[
-Bad QName syntax: colon at end
-]

Date: Sat Dec  3 22:26:54 2005
Author: dlichteblau

Index: cxml/XMLCONF
diff -u cxml/XMLCONF:1.39 cxml/XMLCONF:1.40
--- cxml/XMLCONF:1.39	Sat Dec  3 22:24:16 2005
+++ cxml/XMLCONF	Sat Dec  3 22:26:53 2005
@@ -1798,21 +1798,13 @@
 eduni/namespaces/1.0/011.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/012.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/013.xml [not validating:] not-wf [validating:] invalid
-eduni/namespaces/1.0/014.xml [not validating:] FAILED:
-  invalid array index 0 for #() (should be nonnegative and <0)
-[
-Bad QName syntax: colon at end
-]
+eduni/namespaces/1.0/014.xml [not validating:] not-wf [validating:] invalid
 eduni/namespaces/1.0/015.xml [not validating:] FAILED:
   well-formedness violation not detected
 [
 Bad QName syntax: colon at start
 ]
-eduni/namespaces/1.0/016.xml [not validating:] FAILED:
-  invalid array index 0 for #() (should be nonnegative and <0)
-[
-Bad QName syntax: xmlns:
-]
+eduni/namespaces/1.0/016.xml [not validating:] not-wf [validating:] invalid
 eduni/namespaces/1.0/017.xml [not validating:] input [validating:] invalid
 eduni/namespaces/1.0/018.xml [not validating:] input [validating:] invalid
 eduni/namespaces/1.0/019.xml [not validating:] input [validating:] invalid
@@ -1859,4 +1851,4 @@
 [
 Colon in ID attribute name
 ]
-7/1829 tests failed; 333 tests were skipped
\ No newline at end of file
+5/1829 tests failed; 333 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sat Dec  3 21:31:32 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:31:32 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051203213132.7DE5688565@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv25047/xml

Modified Files:
	xml-parse.lisp 
Log Message:
-eduni/namespaces/1.0/015.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Bad QName syntax: colon at start
-]

Date: Sat Dec  3 22:31:31 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.47 cxml/xml/xml-parse.lisp:1.48
--- cxml/xml/xml-parse.lisp:1.47	Sat Dec  3 22:26:54 2005
+++ cxml/xml/xml-parse.lisp	Sat Dec  3 22:31:31 2005
@@ -3326,6 +3326,8 @@
     (if pos
 	(let ((prefix (subseq qname 0 pos))
 	      (local-name (subseq qname (1+ pos))))
+	  (when (zerop pos)
+	    (wf-error nil "empty namespace prefix"))
 	  (if (nc-name-p local-name)
 	      (values prefix local-name)
 	      (wf-error nil "~S is not a valid NcName."



From dlichteblau at common-lisp.net  Sat Dec  3 21:31:32 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:31:32 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/XMLCONF 
Message-ID: <20051203213132.0018C88556@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv25047

Modified Files:
	XMLCONF 
Log Message:
-eduni/namespaces/1.0/015.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Bad QName syntax: colon at start
-]

Date: Sat Dec  3 22:31:30 2005
Author: dlichteblau

Index: cxml/XMLCONF
diff -u cxml/XMLCONF:1.40 cxml/XMLCONF:1.41
--- cxml/XMLCONF:1.40	Sat Dec  3 22:26:53 2005
+++ cxml/XMLCONF	Sat Dec  3 22:31:30 2005
@@ -1799,11 +1799,7 @@
 eduni/namespaces/1.0/012.xml [not validating:] not-wf [validating:] not-wf
 eduni/namespaces/1.0/013.xml [not validating:] not-wf [validating:] invalid
 eduni/namespaces/1.0/014.xml [not validating:] not-wf [validating:] invalid
-eduni/namespaces/1.0/015.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Bad QName syntax: colon at start
-]
+eduni/namespaces/1.0/015.xml [not validating:] not-wf [validating:] invalid
 eduni/namespaces/1.0/016.xml [not validating:] not-wf [validating:] invalid
 eduni/namespaces/1.0/017.xml [not validating:] input [validating:] invalid
 eduni/namespaces/1.0/018.xml [not validating:] input [validating:] invalid
@@ -1851,4 +1847,4 @@
 [
 Colon in ID attribute name
 ]
-5/1829 tests failed; 333 tests were skipped
\ No newline at end of file
+4/1829 tests failed; 333 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sat Dec  3 21:54:45 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:54:45 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/XMLCONF 
Message-ID: <20051203215445.0552188556@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv26832

Modified Files:
	XMLCONF 
Log Message:
-eduni/namespaces/1.0/043.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Colon in entity name
-]
-eduni/namespaces/1.0/044.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Colon in entity name
-]
-eduni/namespaces/1.0/045.xml [not validating:] input [validating:] FAILED:
-  validity error not detected
-[
-Colon in ID attribute name
-]
-eduni/namespaces/1.0/046.xml [not validating:] input [validating:] FAILED:
-  validity error not detected
-[
-Colon in ID attribute name
-]

Date: Sat Dec  3 22:54:43 2005
Author: dlichteblau

Index: cxml/XMLCONF
diff -u cxml/XMLCONF:1.41 cxml/XMLCONF:1.42
--- cxml/XMLCONF:1.41	Sat Dec  3 22:31:30 2005
+++ cxml/XMLCONF	Sat Dec  3 22:54:42 2005
@@ -1827,24 +1827,8 @@
 eduni/namespaces/1.0/040.xml [not validating:] input [validating:] invalid
 eduni/namespaces/1.0/041.xml [not validating:] input [validating:] invalid
 eduni/namespaces/1.0/042.xml [not validating:] not-wf [validating:] not-wf
-eduni/namespaces/1.0/043.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Colon in entity name
-]
-eduni/namespaces/1.0/044.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Colon in entity name
-]
-eduni/namespaces/1.0/045.xml [not validating:] input [validating:] FAILED:
-  validity error not detected
-[
-Colon in ID attribute name
-]
-eduni/namespaces/1.0/046.xml [not validating:] input [validating:] FAILED:
-  validity error not detected
-[
-Colon in ID attribute name
-]
-4/1829 tests failed; 333 tests were skipped
\ No newline at end of file
+eduni/namespaces/1.0/043.xml [not validating:] not-wf [validating:] not-wf
+eduni/namespaces/1.0/044.xml [not validating:] not-wf [validating:] not-wf
+eduni/namespaces/1.0/045.xml [not validating:] input [validating:] invalid
+eduni/namespaces/1.0/046.xml [not validating:] input [validating:] invalid
+0/1829 tests failed; 333 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sat Dec  3 21:54:46 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat,  3 Dec 2005 22:54:46 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051203215446.1CBBB88565@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv26832/xml

Modified Files:
	xml-parse.lisp 
Log Message:
-eduni/namespaces/1.0/043.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Colon in entity name
-]
-eduni/namespaces/1.0/044.xml [not validating:] FAILED:
-  well-formedness violation not detected
-[
-Colon in entity name
-]
-eduni/namespaces/1.0/045.xml [not validating:] input [validating:] FAILED:
-  validity error not detected
-[
-Colon in ID attribute name
-]
-eduni/namespaces/1.0/046.xml [not validating:] input [validating:] FAILED:
-  validity error not detected
-[
-Colon in ID attribute name
-]

Date: Sat Dec  3 22:54:44 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.48 cxml/xml/xml-parse.lisp:1.49
--- cxml/xml/xml-parse.lisp:1.48	Sat Dec  3 22:31:31 2005
+++ cxml/xml/xml-parse.lisp	Sat Dec  3 22:54:44 2005
@@ -624,7 +624,6 @@
 	 (zstream (if (zstream-p stream) stream zmain))
 	 (xstream (if (xstream-p stream) stream nil))
 	 (s (make-string-output-stream)))
-    (write-string "Parse error: " s)
     (write-line message s)
     (when xstream
       (write-line "Location:" s)
@@ -726,12 +725,18 @@
         (dolist (a attlist)		;normalize non-CDATA values
           (let* ((qname (sax:attribute-qname a))
                  (adef (find-attribute e qname)))
-            (when (and adef (not (eq (attdef-type adef) :CDATA)))
-              (let ((canon (canon-not-cdata-attval (sax:attribute-value a))))
-                (when (and (standalone-check-necessary-p adef)
-                           (not (rod= (sax:attribute-value a) canon)))
-                  (validity-error "(02) Standalone Document Declaration: attribute value not normalized"))
-                (setf (sax:attribute-value a) canon)))))
+	    (when adef
+	      (when (and *validate*
+			 sax:*namespace-processing*
+			 (eq (attdef-type adef) :ID)
+			 (find #/: (sax:attribute-value a)))
+		(validity-error "colon in ID attribute"))
+	      (unless (eq (attdef-type adef) :CDATA)
+		(let ((canon (canon-not-cdata-attval (sax:attribute-value a))))
+		  (when (and (standalone-check-necessary-p adef)
+			     (not (rod= (sax:attribute-value a) canon)))
+		    (validity-error "(02) Standalone Document Declaration: attribute value not normalized"))
+		  (setf (sax:attribute-value a) canon))))))
         (when *validate*		;maybe validate attribute values
           (dolist (a attlist)
             (validate-attribute ctx e a))))
@@ -879,6 +884,8 @@
 
 (defun define-entity (source-stream name kind def)
   (setf name (intern-name name))
+  (when (and sax:*namespace-processing* (find #/: name))
+    (wf-error source-stream "colon in entity name"))
   (let ((table
          (ecase kind
            (:general (dtd-gentities (dtd *ctx*)))
@@ -2273,6 +2280,8 @@
                                   (normalize-public-id (extid-public id))
                                   nil)
                               (uri-rod (extid-system id)))
+    (when (and sax:*namespace-processing* (find #/: name))
+      (wf-error input "colon in notation name"))
     (when *validate*
       (define-notation (dtd *ctx*) name id))
     (list :notation-decl name id)))



From dlichteblau at common-lisp.net  Sun Dec  4 18:43:56 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 19:43:56 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/installation.html
	cxml/doc/using.html 
Message-ID: <20051204184356.07EE288554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv22921/doc

Modified Files:
	installation.html using.html 
Log Message:
DOM 2 Core.  Ungetestet, aber die 1er tests laufen wieder, daher rein damit.

Date: Sun Dec  4 19:43:53 2005
Author: dlichteblau

Index: cxml/doc/installation.html
diff -u cxml/doc/installation.html:1.3 cxml/doc/installation.html:1.4
--- cxml/doc/installation.html:1.3	Sun Nov 27 21:49:11 2005
+++ cxml/doc/installation.html	Sun Dec  4 19:43:52 2005
@@ -103,7 +103,8 @@
 
     <p>
       <b>Prerequisites.</b>
-      CXML needs the <a href="http://www.cliki.net/Puri">puri</a> library.
+      CXML needs the <a href="http://www.cliki.net/Puri">puri</a> library
+      as well as <a href="http://www.common-lisp.net/project/cl-plus-ssl/#trivial-gray-streams">trivial-gray-streams</a>.
     </p>
 
     <p>
@@ -125,7 +126,7 @@
 $ cvs login    # password is "anonymous"
 $ cvs co 2001/XML-Test-Suite/xmlconf
 $ cvs co -D '2005-05-06 23:00' 2001/DOM-Test-Suite
-$ cd 2001/DOM-Test-Suite && ant dom1-dtd</pre>
+$ cd 2001/DOM-Test-Suite && ant dom1-dtd dom2-dtd</pre>
     <p>
       Omit <tt>-D</tt> to get the latest version, which may not work
       with cxml yet.  The <tt>ant</tt> step is necessary to run the DOM


Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.2 cxml/doc/using.html:1.3
--- cxml/doc/using.html:1.2	Sun Nov 27 21:49:11 2005
+++ cxml/doc/using.html	Sun Dec  4 19:43:53 2005
@@ -613,6 +613,8 @@
       <br/>
       <div class="def">Function SAX:START-DTD (handler name public-id system-id)</div>
       <div class="def">Function SAX:END-DTD (handler)</div>
+      <div class="def">Function SAX:START-INTERNAL-SUBSET (handler)</div>
+      <div class="def">Function SAX:END-INTERNAL-SUBSET (handler)</div>
       <div class="def">Function SAX:UNPARSED-ENTITY-DECLARATION (handler name public-id system-id notation-name)</div>
       <div class="def">Function SAX:EXTERNAL-ENTITY-DECLARATION (handler kind name public-id system-id)</div>
       <div class="def">Function SAX:INTERNAL-ENTITY-DECLARATION (handler kind name value)</div>
@@ -623,9 +625,9 @@
       <div class="def">Accessor SAX:ATTRIBUTE-PREFIX (attribute)</div>
       <div class="def">Accessor SAX:ATTRIBUTE-NAMESPACE-URI (attribute)</div>
       <div class="def">Accessor SAX:ATTRIBUTE-LOCAL-NAME (attribute)</div>
-      <div class="def">Accessor SAX:ATTRIBUTE-VALUE (attribute)</div>
       <div class="def">Accessor SAX:ATTRIBUTE-QNAME (attribute)</div>
       <div class="def">Accessor SAX:ATTRIBUTE-SPECIFIED-P (attribute)</div>
+      <div class="def">Accessor SAX:ATTRIBUTE-VALUE (attribute)</div>
     </p>
     <p>
       The entity declaration methods are similar to Java SAX



From dlichteblau at common-lisp.net  Sun Dec  4 18:44:00 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 19:44:00 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-builder.lisp
	cxml/dom/dom-impl.lisp cxml/dom/dom-sax.lisp
	cxml/dom/package.lisp cxml/dom/unparse.lisp
	cxml/dom/simple-dom.lisp cxml/dom/string-dom.lisp 
Message-ID: <20051204184400.C1B0B88545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv22921/dom

Modified Files:
	dom-builder.lisp dom-impl.lisp dom-sax.lisp package.lisp 
	unparse.lisp 
Removed Files:
	simple-dom.lisp string-dom.lisp 
Log Message:
DOM 2 Core.  Ungetestet, aber die 1er tests laufen wieder, daher rein damit.

Date: Sun Dec  4 19:43:56 2005
Author: dlichteblau

Index: cxml/dom/dom-builder.lisp
diff -u cxml/dom/dom-builder.lisp:1.3 cxml/dom/dom-builder.lisp:1.4
--- cxml/dom/dom-builder.lisp:1.3	Mon Nov 28 23:33:33 2005
+++ cxml/dom/dom-builder.lisp	Sun Dec  4 19:43:54 2005
@@ -12,7 +12,8 @@
 
 (defclass dom-builder ()
   ((document      :initform nil :accessor document)
-   (element-stack :initform '() :accessor element-stack)))
+   (element-stack :initform '() :accessor element-stack)
+   (internal-subset             :accessor internal-subset)))
 
 (defun dom:make-dom-builder ()
   (make-instance 'dom-builder))
@@ -39,26 +40,48 @@
   (setf (slot-value (document handler) 'entity-resolver) resolver))
 
 (defmethod sax:start-dtd ((handler dom-builder) name publicid systemid)
-  (declare (ignore publicid systemid))
   (let* ((document (document handler))
-         (doctype (make-instance 'dom-impl::document-type
-                    :name name
-                    :notations (make-instance 'dom-impl::named-node-map
-                                 :element-type :notation
-                                 :owner document)
-                    :entities (make-instance 'dom-impl::named-node-map
-                                :element-type :entity
-                                :owner document))))
+         (doctype
+	  (dom:create-document-type 'implementation 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
 	  (slot-value document 'dom-impl::doc-type) doctype)))
 
+(defmethod sax:start-internal-subset ((handler dom-builder))
+  (setf (internal-subset handler) nil))
+
+(defmethod sax:end-internal-subset ((handler dom-builder))
+  (setf (internal-subset (slot-value (document handler) 'dom-impl::doc-type))
+	(nreverse (internal-subset handler)))
+  (slot-makunbound handler 'internal-subset))
+
+(macrolet ((defhandler (name &rest args)
+	     `(defmethod ,name ((handler dom-builder) , at args)
+		(when (slot-boundp handler 'internal-subset)
+		  (push (list ',name , at args) (internal-subset handler))))))
+  (defhandler sax:unparsed-entity-declaration
+      name public-id system-id notation-name)
+  (defhandler sax:external-entity-declaration
+      kind name public-id system-id)
+  (defhandler sax:internal-entity-declaration
+      kind name value)
+  (defhandler sax:notation-declaration
+      name public-id system-id)
+  (defhandler sax:element-declaration
+      name model)
+  (defhandler sax:attribute-declaration
+      element-name attribute-name type default))
+
 (defmethod sax:start-element
     ((handler dom-builder) namespace-uri local-name qname attributes)
-  (declare (ignore namespace-uri local-name))
   (with-slots (document element-stack) handler
     (let ((element (make-instance 'element 
                      :tag-name qname
-                     :owner document))
+                     :owner document
+		     :namespace-uri namespace-uri
+		     :local-name local-name
+		     :prefix (cxml::split-qname (cxml::rod qname))))
 	  (parent (car element-stack))
           (anodes '()))
       (dolist (attr attributes)
@@ -68,6 +91,7 @@
                (dom:create-text-node document (sax:attribute-value attr))))
           (setf (slot-value anode 'dom-impl::specified-p)
                 (sax:attribute-specified-p attr))
+	  (setf (slot-value anode 'dom-impl::owner-element) element)
           (dom:append-child anode text)
           (push anode anodes)))
       (setf (slot-value element 'dom-impl::parent) parent)


Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.4 cxml/dom/dom-impl.lisp:1.5
--- cxml/dom/dom-impl.lisp:1.4	Mon Nov 28 23:33:33 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 19:43:56 2005
@@ -8,7 +8,8 @@
 ;;;; Author: knowledgeTools Int. GmbH
 
 (defpackage :dom-impl
-  (:use :cl :runes))
+  (:use :cl :runes)
+  (:export #:create-document))
 
 (in-package :dom-impl)
 
@@ -33,6 +34,15 @@
    (read-only-p :initform nil           :reader read-only-p)
    (map         :initform nil)))
 
+(defmethod dom:prefix ((node node)) nil)
+(defmethod dom:local-name ((node node)) nil)
+(defmethod dom:namespace-uri ((node node)) nil)
+
+(defclass namespace-mixin ()
+  ((prefix        :initarg :prefix        :reader dom:prefix)
+   (local-name    :initarg :local-name    :reader dom:local-name)
+   (namespace-uri :initarg :namespace-uri :reader dom:namespace-uri)))
+
 (defclass document (node)
   ((doc-type    :initarg :doc-type     :reader dom:doctype)
    (dtd         :initform nil          :reader dtd)
@@ -44,8 +54,9 @@
 (defclass character-data (node)
   ((value       :initarg :data          :reader dom:data)))
 
-(defclass attribute (node)
+(defclass attribute (namespace-mixin node)
   ((name        :initarg :name          :reader dom:name)
+   (owner-element :initarg :owner-element :reader dom:owner-element)
    (specified-p :initarg :specified-p   :reader dom:specified)))
 
 (defmethod print-object ((object attribute) stream)
@@ -54,7 +65,7 @@
             (rod-string (dom:name object))
             (rod-string (dom:value object)))))
 
-(defclass element (node)
+(defclass element (namespace-mixin node)
   ((tag-name    :initarg :tag-name      :reader dom:tag-name)
    (attributes  :initarg :attributes    :reader dom:attributes)))
 
@@ -73,8 +84,11 @@
 
 (defclass document-type (node)
   ((name          :initarg :name          :reader dom:name)
+   (public-id     :initarg :public-id     :reader dom:public-id)
+   (system-id     :initarg :system-id     :reader dom:system-id)
    (entities      :initarg :entities      :reader dom:entities)
-   (notations     :initarg :notations     :reader dom:notations)))
+   (notations     :initarg :notations     :reader dom:notations)
+   (internal-subset                       :accessor internal-subset)))
 
 (defclass notation (node)
   ((name          :initarg :name          :reader dom:name)
@@ -176,6 +190,45 @@
     (:NOT_SUPPORTED_ERR                 9)
     (:INUSE_ATTRIBUTE_ERR               10)))
 
+;; dom-implementation protocol
+
+(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")
+	   (string-equal (rod-string version) "2.0"))))
+
+(defmethod dom:create-document-type
+    ((factory (eql 'implementation)) name publicid systemid)
+  (make-instance 'dom-impl::document-type
+    :name name
+    :notations (make-instance 'dom-impl::named-node-map
+		 :element-type :notation
+		 :owner nil)
+    :entities (make-instance 'dom-impl::named-node-map
+		:element-type :entity
+		:owner nil)
+    :public-id publicid
+    :system-id systemid))
+
+(defmethod dom:create-document
+    ((factory (eql 'implementation)) uri qname doctype)
+  (let ((document (make-instance 'dom-impl::document)))
+    (setf (slot-value document 'owner) nil
+	  (slot-value document 'doc-type) doctype
+	  (slot-value document 'namespace-uri) uri)
+    (setf (values (slot-value document 'prefix)
+		  (slot-value document 'local-name))
+	  (safe-split-qname qname uri))
+    (when doctype
+      (unless (typep doctype 'document-type)
+	(dom-error :WRONG_DOCUMENT_ERR
+		   "doctype was created by a different dom implementation"))
+      (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))
+    document))
+
 ;; document-fragment protocol
 ;; document protocol
 
@@ -191,8 +244,11 @@
   (setf tag-name (rod tag-name))
   (unless (cxml::valid-name-p tag-name)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string tag-name)))
-  (let ((result (make-instance 'element 
+  (let ((result (make-instance 'element
                   :tag-name tag-name
+		  :namespace-uri nil
+		  :local-name nil
+		  :prefix nil
                   :owner document)))
     (setf (slot-value result 'attributes)
           (make-instance 'attribute-node-map
@@ -202,6 +258,41 @@
     (add-default-attributes result)
     result))
 
+(defun safe-split-qname (qname uri)
+  (unless (cxml::valid-name-p qname)
+    (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string qname)))
+  (multiple-value-bind (prefix local-name)
+      (handler-case
+	  (cxml::split-qname qname)
+	(cxml:well-formedness-violation (c)
+	  (dom-error :NAMESPACE_ERR "~A" c)))
+    (when prefix
+      (when (and (rod= prefix "xml")
+		 (not (rod= uri "http://www.w3.org/XML/1998/namespace")))
+	(dom-error :NAMESPACE_ERR "invalid uri for prefix `xml'"))
+      (when (and (rod= prefix "xmlns")
+		 (not (rod= uri "http://www.w3.org/2000/xmlns/")))
+	(dom-error :NAMESPACE_ERR "invalid uri for prefix `xmlns'")))
+    (values prefix local-name)))
+
+(defmethod dom:create-element-ns ((document document) uri qname)
+  (setf qname (rod qname))
+  (multiple-value-bind (prefix local-name)
+      (safe-split-qname qname uri)
+    (let ((result (make-instance 'element
+		    :tag-name qname
+		    :namespace-uri uri
+		    :local-name local-name
+		    :prefix prefix
+		    :owner document)))
+      (setf (slot-value result 'attributes)
+	    (make-instance 'attribute-node-map
+	      :element-type :attribute
+	      :owner document
+	      :element result))
+      (add-default-attributes result)
+      result)))
+
 (defmethod dom:create-document-fragment ((document document))
   (make-instance 'document-fragment
     :owner document))
@@ -240,9 +331,25 @@
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name)))
   (make-instance 'attribute
     :name name
+    :local-name nil
+    :prefix nil
+    :namespace-uri nil
     :specified-p t
     :owner document))
 
+(defmethod dom:create-attribute-ns ((document document) uri qname)
+  (setf uri (rod uri))
+  (setf qname (rod qname))
+  (multiple-value-bind (prefix local-name)
+      (safe-split-qname qname uri)
+    (make-instance 'attribute
+      :name qname
+      :namespace-uri uri
+      :local-name local-name
+      :prefix prefix
+      :specified-p t
+      :owner document)))
+
 (defmethod dom:create-entity-reference ((document document) name)
   (setf name (rod name))
   (unless (cxml::valid-name-p name)
@@ -253,23 +360,66 @@
 
 (defmethod get-elements-by-tag-name-internal (node tag-name)
   (setf tag-name (rod tag-name))
-  (let ((result (make-node-list)))
-    (setf tag-name (rod tag-name))
-    (let ((wild-p (rod= tag-name '#.(string-rod "*"))))
-      (labels ((walk (n)
-                 (dovector (c (dom:child-nodes n))
-                   (when (dom:element-p c)
-                     (when (or wild-p (rod= tag-name (dom:node-name c)))
-                       (vector-push-extend c result (extension result)))
-                     (walk c)))))
-        (walk node)))
+  (let ((result (make-node-list))
+	(wild-p (rod= tag-name '#.(string-rod "*"))))
+    (labels ((walk (n)
+	       (dovector (c (dom:child-nodes n))
+		 (when (dom:element-p c)
+		   (when (or wild-p (rod= tag-name (dom:node-name c)))
+		     (vector-push-extend c result (extension result)))
+		   (walk c)))))
+      (walk node))
+    result))
+
+(defmethod get-elements-by-tag-name-internal-ns (node uri lname)
+  (setf uri (rod uri))
+  (setf lname (rod lname))
+  (let ((result (make-node-list))
+	(wild-uri-p (rod= uri '#.(string-rod "*")))
+	(wild-lname-p (rod= lname '#.(string-rod "*"))))
+    (labels ((walk (n)
+	       (dovector (c (dom:child-nodes n))
+		 (when (dom:element-p c)
+		   (when (and (or wild-lname-p (rod= lname (dom:local-name c)))
+			      (or wild-uri-p (rod= uri (dom:namespace-uri c))))
+		     (vector-push-extend c result (extension result)))
+		   (walk c)))))
+      (walk node))
     result))
 
 (defmethod dom:get-elements-by-tag-name ((document document) tag-name)
   (get-elements-by-tag-name-internal document tag-name))
 
+(defmethod dom:get-elements-by-tag-name-ns ((document document) uri lname)
+  (get-elements-by-tag-name-internal-ns document uri lname))
+
+(defmethod dom:get-element-by-id ((document document) id)
+  (block nil
+    (unless (dtd document)
+      (return nil))
+    (setf id (rod id))
+    (labels ((walk (n)
+	       (dovector (c (dom:child-nodes n))
+		 (when (dom:element-p c)
+		   (let ((e (cxml::find-element
+			     (cxml::rod (dom:tag-name c))
+			     (dtd document))))
+		     (when e
+		       (dolist (a (cxml::elmdef-attributes e))
+			 (when (eq :ID (cxml::attdef-type a))
+			   (let* ((name (rod (cxml::attdef-name a)))
+				  (value (dom:get-attribute c name)))
+			     (when (and value (rod= value id))
+			       (return c)))))))
+		   (walk c)))))
+      (walk document))))
+
+
 ;;; Node
 
+(defmethod dom:is-supported ((node node) feature version)
+  (dom:has-feature 'implementation feature version))
+
 (defmethod dom:parent-node ((node node))
   (slot-value node 'parent))
 
@@ -544,29 +694,50 @@
   (setf name (rod name))
   (with-slots (items) self
     (dolist (k items nil)
-      (cond ((rod= name (dom:node-name k))
-             (return k))))))
+      (when (rod= name (dom:node-name k))
+	(return k)))))
 
-(defmethod dom:set-named-item ((self named-node-map) arg)
-  (assert-writeable self)
-  (unless (eq (dom:node-type arg) (slot-value self 'element-type))
+(defmethod dom:get-named-item-ns ((self named-node-map) uri lname)
+  (setf uri (rod uri))
+  (setf lname (rod lname))
+  (with-slots (items) self
+    (dolist (k items nil)
+      (when (and (equal uri (dom:namespace-uri k))
+		 (equal lname (dom:local-name k)))
+	(return k)))))
+
+(defun %set-named-item (map arg test)
+  (assert-writeable map)
+  (unless (eq (dom:node-type arg) (slot-value map 'element-type))
     (dom-error :HIERARCHY_REQUEST_ERR
                "~S cannot adopt ~S, since it is not of type ~S."
-               self arg (slot-value self 'element-type)))
-  (unless (eq (dom:owner-document self) (dom:owner-document arg))
+               map arg (slot-value map 'element-type)))
+  (unless (eq (dom:owner-document map) (dom:owner-document arg))
     (dom-error :WRONG_DOCUMENT_ERR
                "~S cannot adopt ~S, since it was created by a different document."
-               self arg))
+               map arg))
   (let ((old-map (slot-value arg 'map)))
-    (when (and old-map (not (eq old-map self)))
+    (when (and old-map (not (eq old-map map)))
       (dom-error :INUSE_ATTRIBUTE_ERR "Attribute node already mapped" arg)))
-  (setf (slot-value arg 'map) self)
+  (setf (slot-value arg 'map) map)
+  (with-slots (items) map
+    (dolist (k items (progn (setf items (cons arg items)) nil))
+      (when (funcall test k)
+	(setf items (cons arg (delete k items)))
+	(return k)))))
+
+(defmethod dom:set-named-item ((self named-node-map) arg)
   (let ((name (dom:node-name arg)))
-    (with-slots (items) self
-      (dolist (k items (progn (setf items (cons arg items))nil))
-        (cond ((rod= name (dom:node-name k))
-               (setf items (cons arg (delete k items)))
-               (return k)))))))
+    (%set-named-item self arg (lambda (k) (rod= name (dom:node-name k))))))
+
+(defmethod dom:set-named-item-ns ((self named-node-map) arg)
+  (let ((uri (dom:namespace-uri arg))
+	(lname (dom:local-name arg)))
+    (%set-named-item self
+		     arg
+		     (lambda (k)
+		       (and (rod= lname (dom:local-name k))
+			    (rod= uri (dom:namespace-uri k)))))))
 
 (defmethod dom:remove-named-item ((self named-node-map) name)
   (assert-writeable self)
@@ -577,6 +748,18 @@
              (setf items (delete k items))
              (return k))))))
 
+(defmethod dom:remove-named-item-ns ((self named-node-map) uri lname)
+  (assert-writeable self)
+  (setf uri (rod uri))
+  (setf lname (rod lname))
+  (with-slots (items) self
+    (dolist (k items
+	      (dom-error :NOT_FOUND_ERR "~A not found in ~A" lname self))
+      (when (and (rod= lname (dom:local-name k))
+		 (rod= uri (dom:namespace-uri k)))
+	(setf items (delete k items))
+	(return k)))))
+
 (defmethod dom:length ((self named-node-map))
   (with-slots (items) self
     (length items)))
@@ -743,6 +926,15 @@
 
 ;;; ELEMENT
 
+(defmethod dom:has-attributes ((element element))
+  (plusp (length (dom:items (dom:attributes element)))))
+
+(defmethod dom:has-attribute ((element element) name)
+  (and (dom:get-named-item (dom:attributes element) name) t))
+
+(defmethod dom:has-attribute-ns ((element element) uri lname)
+  (and (dom:get-named-item-ns (dom:attributes element) uri lname) t))
+
 (defmethod dom:get-attribute-node ((element element) name)
   (dom:get-named-item (dom:attributes element) name))
 
@@ -750,24 +942,51 @@
   (assert-writeable element)
   (dom:set-named-item (dom:attributes element) new-attr))
 
+(defmethod dom:get-attribute-node-ns ((element element) uri lname)
+  (dom:get-named-item-ns (dom:attributes element) uri lname))
+
+(defmethod dom:set-attribute-node-ns ((element element) (new-attr attribute))
+  (assert-writeable element)
+  (dom:set-named-item-ns (dom:attributes element) new-attr))
+
 (defmethod dom:get-attribute ((element element) name)
   (let ((a (dom:get-attribute-node element name)))
     (if a
         (dom:value a)
         #.(string-rod ""))))
 
+(defmethod dom:get-attribute-ns ((element element) uri lname)
+  (let ((a (dom:get-attribute-node-ns element uri lname)))
+    (if a
+        (dom:value a)
+        #.(string-rod ""))))
+
 (defmethod dom:set-attribute ((element element) name value)
   (assert-writeable element)
   (with-slots (owner) element
     (let ((attr (dom:create-attribute owner name)))
+      (setf (slot-value attr 'owner-element) element)
       (setf (dom:value attr) value)
       (dom:set-attribute-node element attr))
     (values)))
 
+(defmethod dom:set-attribute-ns ((element element) uri lname value)
+  (assert-writeable element)
+  (with-slots (owner) element
+    (let ((attr (dom:create-attribute-ns owner uri lname)))
+      (setf (slot-value attr 'owner-element) element)
+      (setf (dom:value attr) value)
+      (dom:set-attribute-node-ns element attr))
+    (values)))
+
 (defmethod dom:remove-attribute ((element element) name)
   (assert-writeable element)
   (dom:remove-attribute-node element (dom:get-attribute-node element name)))
 
+(defmethod dom:remove-attribute-ns ((elt element) uri lname)
+  (assert-writeable elt)
+  (dom:remove-attribute-node elt (dom:get-attribute-node-ns elt uri lname)))
+
 (defmethod dom:remove-attribute-node ((element element) (old-attr attribute))
   (assert-writeable element)
   (with-slots (items) (dom:attributes element)
@@ -781,14 +1000,18 @@
 
 (defun maybe-add-default-attribute (element name)
   (let* ((dtd (dtd (slot-value element 'owner)))
-         (e (when dtd (cxml::find-element (dom:tag-name element) dtd)))
+         (e (when dtd (cxml::find-element
+		       (cxml::rod (dom:tag-name element))
+		       dtd)))
          (a (when e (cxml::find-attribute e name))))
     (when (and a (listp (cxml::attdef-default a)))
       (add-default-attribute element a))))
 
 (defun add-default-attributes (element)
   (let* ((dtd (dtd (slot-value element 'owner)))
-         (e (when dtd (cxml::find-element (dom:tag-name element) dtd))))
+         (e (when dtd (cxml::find-element
+		       (cxml::rod (dom:tag-name element))
+		       dtd))))
     (when e
       (dolist (a (cxml::elmdef-attributes e))
         (when (and a (listp (cxml::attdef-default a)))
@@ -799,7 +1022,8 @@
          (owner (slot-value element 'owner))
          (anode (dom:create-attribute owner (cxml::attdef-name adef)))
          (text (dom:create-text-node owner value)))
-    (setf (slot-value anode 'dom-impl::specified-p) nil)
+    (setf (slot-value anode 'specified-p) nil)
+    (setf (slot-value anode 'owner-element) element)
     (dom:append-child anode text)
     (push anode (slot-value (dom:attributes element) 'items))))
 
@@ -810,8 +1034,16 @@
   (assert-writeable element)
   (get-elements-by-tag-name-internal element name))
 
-(defmethod dom:normalize ((element element))
+(defmethod dom:get-elements-by-tag-name-ns ((element element) uri lname)
   (assert-writeable element)
+  (get-elements-by-tag-name-internal-ns element uri lname))
+
+(defmethod dom:set-named-item :after ((self attribute-node-map) arg)
+  (setf (slot-value arg 'owner-element)
+	(slot-value self 'element)))
+
+(defmethod dom:normalize ((node node))
+  (assert-writeable node)
   (labels ((walk (n)
              (when (eq (dom:node-type n) :element)
                (map nil #'walk (dom:items (dom:attributes n))))
@@ -837,7 +1069,7 @@
                        (setf previous child)
                        (incf i)))))) 
              (map nil #'walk (dom:child-nodes n))))
-    (walk element))
+    (walk node))
   (values))
 
 ;;; TEXT
@@ -856,7 +1088,17 @@
 ;;; COMMENT -- nix
 ;;; CDATA-SECTION -- nix
 
-;;; DOCUMENT-TYPE -- missing
+;;; DOCUMENT-TYPE
+
+(defmethod dom:internal-subset ((node document-type))
+  ;; FIXME: encoding ist falsch, anderen sink nehmen!
+  (if (slot-boundp node 'internal-subset)
+      (with-output-to-string (stream)
+	(let ((sink (cxml:make-character-stream-sink stream)))
+	  (dolist (def (internal-subset node))
+	    (apply (car def) sink (cdr def)))))
+      nil))
+
 ;;; NOTATION -- nix
 ;;; ENTITY -- nix
 
@@ -978,6 +1220,9 @@
                        :owner document))
          (result (import-node-internal 'element document node deep
                                        :attributes attributes
+				       :namespace-uri (dom:namespace-uri node)
+				       :local-name (dom:local-name node)
+				       :prefix (dom:prefix node)
                                        :tag-name (dom:tag-name node))))
     (setf (slot-value attributes 'element) result)
     (dolist (attribute (dom:items (dom:attributes node)))
@@ -1034,7 +1279,7 @@
 
 ;;; Erweiterung
 
-(defun dom:create-document (&optional document-element)
+(defun dom-impl:create-document (&optional document-element)
   ;; Um ein neues Dokumentenobject zu erzeugen, parsen wir einfach ein
   ;; Dummydokument.
   (let* ((handler (dom:make-dom-builder))


Index: cxml/dom/dom-sax.lisp
diff -u cxml/dom/dom-sax.lisp:1.2 cxml/dom/dom-sax.lisp:1.3
--- cxml/dom/dom-sax.lisp:1.2	Mon Nov 28 23:33:33 2005
+++ cxml/dom/dom-sax.lisp	Sun Dec  4 19:43:56 2005
@@ -11,26 +11,41 @@
 (defun dom:map-document
     (handler document
      &key (include-xmlns-attributes sax:*include-xmlns-attributes*)
+	  include-doctype
           include-default-values)
   (sax:start-document handler)
-  (let ((doctype (dom:doctype document)))
-    (when doctype
-      (sax:start-dtd handler (dom:name doctype) nil nil)
-      ;; need notations for canonical mode 2
-      (let* ((ns (dom:notations doctype))
-             (a (make-array (dom:length ns))))
-        ;; get them
-        (dotimes (k (dom:length ns))
-          (setf (elt a k) (dom:item ns k)))
-        ;; sort them 
-        (setf a (sort a #'rod< :key #'dom:name))
-        (loop for n across a do
-              (sax:notation-declaration handler
-                                        (dom:name n)
-                                        (dom:public-id n)
-                                        (dom:system-id n)))
-        ;; fixme: entities!
-        (sax:end-dtd handler))))
+  (when include-doctype
+    (let ((doctype (dom:doctype document)))
+      (when doctype
+	(sax:start-dtd handler
+		       (dom:name doctype)
+		       (dom:public-id doctype)
+		       (dom:system-id doctype))
+	(ecase include-doctype
+	  (:full-internal-subset
+	    (when (slot-boundp doctype 'internal-subset)
+	      (sax:start-internal-subset handler)
+	      (dolist (def (internal-subset doctype))
+		(apply (car def) handler (cdr def)))
+	      (sax:end-internal-subset handler)))
+	  (:canonical-notations
+	    ;; need notations for canonical mode 2
+	    (let* ((ns (dom:notations doctype))
+		   (a (make-array (dom:length ns))))
+	      (when (plusp (dom:length ns))
+		(sax:start-internal-subset handler)
+		;; get them
+		(dotimes (k (dom:length ns))
+		  (setf (elt a k) (dom:item ns k)))
+		;; sort them 
+		(setf a (sort a #'rod< :key #'dom:name))
+		(loop for n across a do
+		      (sax:notation-declaration handler
+						(dom:name n)
+						(dom:public-id n)
+						(dom:system-id n)))
+		(sax:end-internal-subset handler)))))
+	(sax:end-dtd handler))))
   (labels ((walk (node)
              (dom:do-node-list (child (dom:child-nodes node))
                (ecase (dom:node-type child)


Index: cxml/dom/package.lisp
diff -u cxml/dom/package.lisp:1.2 cxml/dom/package.lisp:1.3
--- cxml/dom/package.lisp:1.2	Mon Nov 28 23:33:33 2005
+++ cxml/dom/package.lisp	Sun Dec  4 19:43:56 2005
@@ -12,7 +12,33 @@
    ;; lisp-specific extensions
    #:make-dom-builder
 
-   ;; methods
+   ;; DOM 2 functions
+   #:owner-element
+   #:import-node
+   #:create-element-ns
+   #:create-attribute-ns
+   #:get-elements-by-tag-name-ns
+   #:get-element-by-id
+   #:get-named-item-ns
+   #:set-named-item-ns
+   #:remove-named-item-ns
+   #:is-supported
+   #:has-attributes
+   #:namespace-uri
+   #:prefix
+   #:local-name
+   #:internal-subset
+   #:create-document-type
+   #:create-document
+   #:get-attribute-ns
+   #:set-attribute-ns
+   #:remove-attribute-ns
+   #:get-attribute-node-ns
+   #:set-attribute-node-ns
+   #:has-attribute
+   #:has-attribute-ns
+
+   ;; DOM 1 functions
    #:has-feature
    #:doctype
    #:implementation
@@ -72,7 +98,6 @@
    #:system-id
    #:notation-name
    #:target
-   #:import-node
    #:code
    
    ;; protocol classes


Index: cxml/dom/unparse.lisp
diff -u cxml/dom/unparse.lisp:1.1.1.1 cxml/dom/unparse.lisp:1.2
--- cxml/dom/unparse.lisp:1.1.1.1	Sun Mar 13 19:02:47 2005
+++ cxml/dom/unparse.lisp	Sun Dec  4 19:43:56 2005
@@ -1,9 +1,20 @@
 (in-package :cxml)
 
-(defun unparse-document-to-octets (doc &rest initargs)
-  (let ((sink (apply #'make-octet-vector-sink initargs)))
-    (dom:map-document sink doc :include-default-values t)))
+(defun %unparse-document (sink doc canonical)
+  (dom:map-document sink
+		    doc
+		    :include-doctype (if (and canonical (>= canonical 2))
+					 :canonical-notations
+					 nil)
+		    :include-default-values t))
 
-(defun unparse-document (doc character-stream &rest initargs)
-  (let ((sink (apply #'make-character-stream-sink character-stream initargs)))
-    (dom:map-document sink doc :include-default-values t)))
+(defun unparse-document-to-octets (doc &rest initargs &key canonical)
+  (%unparse-document (apply #'make-octet-vector-sink initargs)
+		     doc
+		     canonical))
+
+(defun unparse-document (doc character-stream &rest initargs &key canonical)
+  (%unparse-document
+   (apply #'make-character-stream-sink character-stream initargs)
+   doc
+   canonical))







From dlichteblau at common-lisp.net  Sun Dec  4 18:44:13 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 19:44:13 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051204184413.C94B088554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv22921/test

Modified Files:
	domtest.lisp 
Log Message:
DOM 2 Core.  Ungetestet, aber die 1er tests laufen wieder, daher rein damit.

Date: Sun Dec  4 19:44:00 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.4 cxml/test/domtest.lisp:1.5
--- cxml/test/domtest.lisp:1.4	Sat Nov 26 23:55:23 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 19:44:00 2005
@@ -142,11 +142,14 @@
                (c = (elt str i))
                :until (runes:rune= c #.(runes:char-rune #\")))
             (if (runes:rune= c #.(runes:char-rune #\\))
-                (ecase (progn
+                (let ((frob
+		       (progn
                          (incf i)
-                         (elt str i))
-                  ;; ...
-                  (#/n (vector-push-extend #/newline v (length v))))
+                         (elt str i))))
+		  (ecase frob
+		    ;; ...
+		    (#/n (vector-push-extend #/newline v (length v)))
+		    ((#/\\ #/\") (vector-push-extend #/\\ v (length v)))))
                 (vector-push-extend c v (length v))))
         (coerce v 'runes::simple-rod)))
     (t
@@ -163,13 +166,14 @@
 
 ;;;; dom1-interfaces.xml auslesen
 
-(defvar *methods* '())
-(defvar *fields* '())
+(defparameter *methods* '())
+(defparameter *fields* '())
 
 (declaim (special *directory*))
+(declaim (special *files-directory*))
 
-(defun read-members ()
-  (let* ((pathname (merge-pathnames "patches/dom1-interfaces.xml" *directory*))
+(defun read-members (&optional (directory *directory*))
+  (let* ((pathname (merge-pathnames "build/dom2-interfaces.xml" directory))
          (builder (dom:make-dom-builder))
          (library (dom:document-element (cxml:parse-file pathname builder)))
          (methods '())
@@ -554,8 +558,15 @@
 (defun assert-have-implementation-attribute (element)
   (let ((attribute (runes:rod-string (dom:get-attribute element "name"))))
     (string-case attribute
+      ;; fixme: expandEntityReferences sollten wir auch mal anschalten, wo
+      ;; wir uns schon die muehe machen...
       ("validating"
         (setf cxml::*validate* t))
+      ("namespaceAware"
+	;; ???  dom 2 ohne namespace-support gibt's doch gar nicht,
+	;; ausser vielleicht in html-only implementationen, und dann sollen
+	;; sie halt auf hasFeature "XML" testen.
+        )
       (t
         (format t "~&implementationAttribute ~A not supported, skipping test~%"
                 attribute)
@@ -606,12 +617,9 @@
 (defun load-file (name &optional will-be-modified-p)
   (declare (ignore will-be-modified-p))
   (setf name (runes:rod-string name))
-  (let* ((directory (merge-pathnames "tests/level1/core/files/" *directory*))
-         (document
-          (cxml:parse-file
-           (make-pathname :name name :type "xml" :defaults directory)
-           (dom:make-dom-builder))))
-    document))
+  (cxml:parse-file
+   (make-pathname :name name :type "xml" :defaults *files-directory*)
+   (dom:make-dom-builder)))
 
 (defparameter *bad-tests*
     '("hc_elementnormalize2.xml"
@@ -628,39 +636,57 @@
 
 (defun run-all-tests (*directory* &optional verbose)
   (let* ((cxml::*redefinition-warning* nil)
-         (test-directory (merge-pathnames "tests/level1/core/" *directory*))
-         (all-tests (merge-pathnames "alltests.xml" test-directory))
-         (builder (dom:make-dom-builder))
-         (suite (dom:document-element (cxml:parse-file all-tests builder)))
          (n 0)
          (i 0)
          (ntried 0)
          (nfailed 0))
-    (do-child-elements (member suite)
-      (unless
-          (or (equal (dom:tag-name member) "metadata")
-              (member (runes:rod-string (dom:get-attribute member "href"))
-                      *bad-tests*
-                      :test 'equal))
-        (incf n)))
-    (do-child-elements (member suite)
-      (let ((href (runes:rod-string (dom:get-attribute member "href"))))
-        (unless (or (runes:rod= (dom:tag-name member) #"metadata")
-                    (member href *bad-tests* :test 'equal))
-          (format t "~&~D/~D ~A~%" i n href)
-          (let ((lisp (slurp-test (merge-pathnames href test-directory))))
-            (when verbose
-              (print lisp))
-            (when lisp
-              (incf ntried)
-              (with-simple-restart (skip-test "Skip this test")
-                (handler-case
-                    (let ((cxml::*validate* nil))
-                      (funcall (compile nil lisp)))
-                  (serious-condition (c)
-                    (incf nfailed)
-                    (warn "test failed: ~A" c))))))
-          (incf i))))
+    (flet ((parse (test-directory)
+	     (let* ((all-tests (merge-pathnames "alltests.xml" test-directory))
+		    (builder (dom:make-dom-builder))
+		    (suite (dom:document-element
+			    (cxml:parse-file all-tests builder)))
+		    (*files-directory*
+		     (merge-pathnames "files/" test-directory)))
+	       (do-child-elements (member suite)
+		 (unless
+		     (or (equal (dom:tag-name member) "metadata")
+			 (member (runes:rod-string
+				  (dom:get-attribute member "href"))
+				 *bad-tests*
+				 :test 'equal))
+		   (incf n)))
+	       suite))
+	   (run (test-directory suite)
+	     (print test-directory)
+	     (let ((*files-directory*
+		    (merge-pathnames "files/" test-directory)))
+	       (do-child-elements (member suite)
+		 (let ((href (runes:rod-string
+			      (dom:get-attribute member "href"))))
+		   (unless (or (runes:rod= (dom:tag-name member) #"metadata")
+			       (member href *bad-tests* :test 'equal))
+		     (format t "~&~D/~D ~A~%" i n href)
+		     (let ((lisp (slurp-test
+				  (merge-pathnames href test-directory))))
+		       (when verbose
+			 (print lisp))
+		       (when lisp
+			 (incf ntried)
+			 (with-simple-restart (skip-test "Skip this test")
+			   (handler-case
+			       (let ((cxml::*validate* nil))
+				 (funcall (compile nil lisp)))
+			     (serious-condition (c)
+			       (incf nfailed)
+			       (warn "test failed: ~A" c))))))
+		     (incf i)))))))
+      (let* ((d1 (merge-pathnames "tests/level1/core/" *directory*))
+	     (d2 (merge-pathnames "tests/level2/core/" *directory*))
+	     (suite1 (parse d1))
+	     (suite2 (parse d2)))
+	(run d1 suite1)
+	#+(or)
+	(run d2 suite2)))
     (format t "~&~D/~D tests failed; ~D test~:P were skipped"
             nfailed ntried (- n ntried))))
 



From dlichteblau at common-lisp.net  Sun Dec  4 18:44:16 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 19:44:16 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/sax-handler.lisp
	cxml/xml/unparse.lisp cxml/xml/xml-parse.lisp 
Message-ID: <20051204184416.DBA3188545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv22921/xml

Modified Files:
	sax-handler.lisp unparse.lisp xml-parse.lisp 
Log Message:
DOM 2 Core.  Ungetestet, aber die 1er tests laufen wieder, daher rein damit.

Date: Sun Dec  4 19:44:14 2005
Author: dlichteblau

Index: cxml/xml/sax-handler.lisp
diff -u cxml/xml/sax-handler.lisp:1.1.1.13 cxml/xml/sax-handler.lisp:1.2
--- cxml/xml/sax-handler.lisp:1.1.1.13	Sun Mar 13 19:02:51 2005
+++ cxml/xml/sax-handler.lisp	Sun Dec  4 19:44:05 2005
@@ -72,6 +72,8 @@
 	   #:end-cdata
 	   #:start-dtd
 	   #:end-dtd
+	   #:start-internal-subset
+	   #:end-internal-subset
            #:unparsed-entity-declaration
            #:external-entity-declaration
            #:internal-entity-declaration
@@ -252,6 +254,16 @@
 
 (defgeneric end-dtd (handler)
   (:documentation "Called at the end of parsing a DTD.")
+  (:method ((handler t)) nil))
+
+(defgeneric start-internal-subset (handler)
+  (:documentation "Reports that an internal subset is present.  Called before
+any definition from the internal subset is reported.")
+  (:method ((handler t)) nil))
+
+(defgeneric end-internal-subset (handler)
+  (:documentation "Called after processing of the internal subset has
+finished, if present.")
   (:method ((handler t)) nil))
 
 (defgeneric unparsed-entity-declaration


Index: cxml/xml/unparse.lisp
diff -u cxml/xml/unparse.lisp:1.3 cxml/xml/unparse.lisp:1.4
--- cxml/xml/unparse.lisp:1.3	Mon Nov 28 23:33:47 2005
+++ cxml/xml/unparse.lisp	Sun Dec  4 19:44:06 2005
@@ -7,9 +7,9 @@
 ;;;    Author: David Lichteblau <david at lichteblau.com>
 ;;;   License: Lisp-LGPL (See file COPYING for details).
 ;;; ---------------------------------------------------------------------------
-;;;  ?? copyright 1999 by Gilbert Baumann
-;;;  ?? copyright 2004 by knowledgeTools Int. GmbH
-;;;  ?? copyright 2004 by David Lichteblau (for headcraft.de)
+;;;  ???? copyright 1999 by Gilbert Baumann
+;;;  ???? copyright 2004 by knowledgeTools Int. GmbH
+;;;  ???? copyright 2004 by David Lichteblau (for headcraft.de)
 
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Library General Public
@@ -184,42 +184,185 @@
         (unparse-string public-id sink)
         (write-rod #"\"" sink)))))
 
+(defmethod sax:start-internal-subset ((sink sink))
+  (ensure-doctype sink)
+  (write-rod #" [" sink)
+  (write-rune #/U+000A sink))
+
+(defmethod sax:end-internal-subset ((sink sink))
+  (ensure-doctype sink)
+  (write-rod #"]" sink))
+
 (defmethod sax:notation-declaration ((sink sink) name public-id system-id)
-  (when (and (canonical sink) (>= (canonical sink) 2))
-    (let ((prev (previous-notation sink)))
-      (cond
-        (prev
-          (unless (rod< prev name)
-            (error "misordered notations; cannot unparse canonically")))
-        (t
-          (ensure-doctype sink)
-          (write-rod #" [" sink)
-          (write-rune #/U+000A sink)))
-      (setf (previous-notation sink) name)) 
-    (write-rod #"<!NOTATION " sink)
+  (let ((prev (previous-notation sink)))
+    (when (and (and (canonical sink) (>= (canonical sink) 2))
+	       prev
+	       (not (rod< prev name)))
+      (error "misordered notations; cannot unparse canonically"))
+    (setf (previous-notation sink) name)) 
+  (write-rod #"<!NOTATION " sink)
+  (write-rod name sink)
+  (cond
+    ((zerop (length public-id))
+      (write-rod #" SYSTEM '" sink)
+      (write-rod system-id sink)
+      (write-rune #/' sink))
+    ((zerop (length system-id))
+      (write-rod #" PUBLIC '" sink)
+      (write-rod public-id sink)
+      (write-rune #/' sink))
+    (t 
+      (write-rod #" PUBLIC '" sink)
+      (write-rod public-id sink)
+      (write-rod #"' '" sink)
+      (write-rod system-id sink)
+      (write-rune #/' sink)))
+  (write-rune #/> sink)
+  (write-rune #/U+000A sink))
+
+(defmethod sax:unparsed-entity-declaration
+    ((sink sink) name public-id system-id notation-name)
+  (unless (and (canonical sink) (< (canonical sink) 3))
+    (write-rod #"<!ENTITY " sink)
     (write-rod name sink)
     (cond
       ((zerop (length public-id))
-        (write-rod #" SYSTEM '" sink)
-        (write-rod system-id sink)
-        (write-rune #/' sink))
+	(write-rod #" SYSTEM '" sink)
+	(write-rod system-id sink)
+	(write-rune #/' sink))
       ((zerop (length system-id))
-        (write-rod #" PUBLIC '" sink)
-        (write-rod public-id sink)
-        (write-rune #/' sink))
+	(write-rod #" PUBLIC '" sink)
+	(write-rod public-id sink)
+	(write-rune #/' sink))
       (t 
-        (write-rod #" PUBLIC '" sink)
-        (write-rod public-id sink)
-        (write-rod #"' '" sink)
-        (write-rod system-id sink)
-        (write-rune #/' sink)))
+	(write-rod #" PUBLIC '" sink)
+	(write-rod public-id sink)
+	(write-rod #"' '" sink)
+	(write-rod system-id sink)
+	(write-rune #/' sink)))
+    (write-rod #" NDATA " sink)
+    (write-rod notation-name sink)
     (write-rune #/> sink)
     (write-rune #/U+000A sink)))
 
+(defmethod sax:external-entity-declaration
+    ((sink sink) kind name public-id system-id)
+  (when (canonical sink)
+    (error "cannot serialize parsed entities in canonical mode"))
+  (write-rod #"<!ENTITY " sink)
+  (when (eq kind :parameter)
+    (write-rod #" % " sink))
+  (write-rod name sink)
+  (cond
+    ((zerop (length public-id))
+      (write-rod #" SYSTEM '" sink)
+      (write-rod system-id sink)
+      (write-rune #/' sink))
+    ((zerop (length system-id))
+      (write-rod #" PUBLIC '" sink)
+      (write-rod public-id sink)
+      (write-rune #/' sink))
+    (t 
+      (write-rod #" PUBLIC '" sink)
+      (write-rod public-id sink)
+      (write-rod #"' '" sink)
+      (write-rod system-id sink)
+      (write-rune #/' sink)))
+  (write-rune #/> sink)
+  (write-rune #/U+000A sink))
+
+(defmethod sax:internal-entity-declaration ((sink sink) kind name value)
+  (when (canonical sink)
+    (error "cannot serialize parsed entities in canonical mode"))
+  (write-rod #"<!ENTITY " sink)
+  (when (eq kind :parameter)
+    (write-rod #" % " sink))
+  (write-rod name sink)
+  (write-rune #/U+0020 sink)
+  (write-rune #/\" sink)
+  (unparse-string value sink)
+  (write-rune #/\" sink)
+  (write-rune #/> sink)
+  (write-rune #/U+000A sink))
+
+(defmethod sax:element-declaration ((sink sink) name model)
+  (when (canonical sink)
+    (error "cannot serialize element type declarations in canonical mode"))
+  (write-rod #"<!ELEMENT " sink)
+  (write-rod name sink)
+  (write-rune #/U+0020 sink)
+  (labels ((walk (m)
+	     (cond
+	       ((eq m :EMPTY)
+		 (write-rod "EMPTY" sink))
+	       ((eq m :PCDATA)
+		 (write-rod "#PCDATA" sink))
+	       ((atom m)
+		 (unparse-string m sink))
+	       (t
+		 (ecase (car m)
+		   (and
+		     (write-rune #/\( sink)
+		     (loop for (n . rest) on (cdr m) do
+			   (walk n)
+			   (when rest
+			     (write-rune #\, sink)))
+		     (write-rune #/\) sink))
+		   (or
+		     (write-rune #/\( sink)
+		     (loop for (n . rest) on (cdr m) do
+			   (walk n)
+			   (when rest
+			     (write-rune #\| sink)))
+		     (write-rune #/\) sink))
+		   (*
+		     (walk (second m))
+		     (write-rod #/* sink))
+		   (+
+		     (walk (second m))
+		     (write-rod #/+ sink))
+		   (?
+		     (walk (second m))
+		     (write-rod #/? sink)))))))
+    (walk model))
+  (write-rune #/> sink)
+  (write-rune #/U+000A sink))
+
+(defmethod sax:attribute-declaration ((sink sink) ename aname type default)
+  (when (canonical sink)
+    (error "cannot serialize attribute type declarations in canonical mode"))
+  (write-rod #"<!ATTLIST " sink)
+  (write-rod ename sink)
+  (write-rune #/U+0020 sink)
+  (write-rod aname sink)
+  (write-rune #/U+0020 sink)
+  (cond
+    ((atom type)
+      (write-rod (rod (string-upcase (symbol-name type))) sink))
+    (t
+      (when (eq :NOTATION (car type))
+	(write-rod #"NOTATION " sink))
+      (write-rune #/\( sink)
+      (loop for (n . rest) on (cdr type) do
+	    (write-rod n sink)
+	    (when rest
+	      (write-rune #\| sink)))
+      (write-rune #/\) sink)))
+  (cond
+    ((atom default)
+      (write-rune #/# sink)
+      (write-rod (rod (string-upcase (symbol-name default))) sink))
+    (t
+      (when (eq :FIXED (car default))
+	(write-rod #"#FIXED " sink))
+      (write-rune #/\" sink)
+      (unparse-string (second default) sink)
+      (write-rune #/\" sink)))
+  (write-rune #/> sink)
+  (write-rune #/U+000A sink))
+
 (defmethod sax:end-dtd ((sink sink))
   (when (have-doctype sink)
-    (when (previous-notation sink)
-      (write-rod #"]" sink))
     (write-rod #">" sink)
     (write-rune #/U+000A sink)))
 


Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.49 cxml/xml/xml-parse.lisp:1.50
--- cxml/xml/xml-parse.lisp:1.49	Sat Dec  3 22:54:44 2005
+++ cxml/xml/xml-parse.lisp	Sun Dec  4 19:44:06 2005
@@ -1517,7 +1517,6 @@
                           delim))))))
 
 (defun read-character-reference (input)
-  ;; xxx eof handling
   ;; The #/& is already read
   (let ((res
          (let ((c (read-rune input)))
@@ -2080,9 +2079,9 @@
 ;;;     to indicate whether the end tag is valid.
 ;;;
 ;;; Function B will be called with the character data rod as its argument, it
-;;; returns a boolean indicating whether this text element is allowed.
+;;; returns a boolean indicating whether this text node is allowed.
 ;;;
-;;; That is, if one of the functions ever returns NIL, the element is
+;;; That is, if one of the functions ever returns NIL, the node is
 ;;; rejected as invalid.
 
 (defun cmodel-done (actual-value)
@@ -2471,6 +2470,7 @@
           (wf-error input "document includes an internal subset"))
         (ensure-dtd)
         (consume-token input)
+	(sax:start-internal-subset (handler *ctx*))
         (while (progn (p/S? input)
                       (not (eq (peek-token input) :\] )))
           (if (eq (peek-token input) :PE-REFERENCE)
@@ -2487,6 +2487,7 @@
               (let ((*expand-pe-p* t))
                 (p/markup-decl input))))
         (consume-token input)
+	(sax:end-internal-subset (handler *ctx*))
         (p/S? input))
       (expect input :>)
       (when extid



From dlichteblau at common-lisp.net  Sun Dec  4 18:43:56 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 19:43:56 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST cxml/README.html 
Message-ID: <20051204184356.B29D788545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv22921

Modified Files:
	DOMTEST README.html 
Log Message:
DOM 2 Core.  Ungetestet, aber die 1er tests laufen wieder, daher rein damit.

Date: Sun Dec  4 19:43:50 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.1 cxml/DOMTEST:1.2
--- cxml/DOMTEST:1.1	Sat Nov 26 23:55:22 2005
+++ cxml/DOMTEST	Sun Dec  4 19:43:49 2005
@@ -1,550 +1,552 @@
-0/525 attrcreatedocumentfragment.xml
-1/525 attrcreatetextnode.xml
-2/525 attrcreatetextnode2.xml
-3/525 attrdefaultvalue.xml
-4/525 attreffectivevalue.xml
-5/525 attrentityreplacement.xml
-6/525 attrname.xml
-7/525 attrnextsiblingnull.xml
-8/525 attrnotspecifiedvalue.xml
-9/525 attrparentnodenull.xml
-10/525 attrprevioussiblingnull.xml
-11/525 attrsetvaluenomodificationallowederr.xml
+
+#P"/home/david/2001/DOM-Test-Suite/tests/level1/core/" 
+0/808 attrcreatedocumentfragment.xml
+1/808 attrcreatetextnode.xml
+2/808 attrcreatetextnode2.xml
+3/808 attrdefaultvalue.xml
+4/808 attreffectivevalue.xml
+5/808 attrentityreplacement.xml
+6/808 attrname.xml
+7/808 attrnextsiblingnull.xml
+8/808 attrnotspecifiedvalue.xml
+9/808 attrparentnodenull.xml
+10/808 attrprevioussiblingnull.xml
+11/808 attrsetvaluenomodificationallowederr.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-12/525 attrsetvaluenomodificationallowederrEE.xml
-13/525 attrspecifiedvalue.xml
-14/525 attrspecifiedvaluechanged.xml
-15/525 attrspecifiedvalueremove.xml
-16/525 cdatasectiongetdata.xml
+12/808 attrsetvaluenomodificationallowederrEE.xml
+13/808 attrspecifiedvalue.xml
+14/808 attrspecifiedvaluechanged.xml
+15/808 attrspecifiedvalueremove.xml
+16/808 cdatasectiongetdata.xml
 implementationAttribute coalescing not supported, skipping test
-17/525 cdatasectionnormalize.xml
-18/525 characterdataappenddata.xml
-19/525 characterdataappenddatagetdata.xml
-20/525 characterdataappenddatanomodificationallowederr.xml
-21/525 characterdataappenddatanomodificationallowederrEE.xml
-22/525 characterdatadeletedatabegining.xml
-23/525 characterdatadeletedataend.xml
-24/525 characterdatadeletedataexceedslength.xml
-25/525 characterdatadeletedatagetlengthanddata.xml
-26/525 characterdatadeletedatamiddle.xml
-27/525 characterdatadeletedatanomodificationallowederrEE.xml
-28/525 characterdatagetdata.xml
-29/525 characterdatagetlength.xml
-30/525 characterdataindexsizeerrdeletedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-31/525 characterdataindexsizeerrdeletedataoffsetgreater.xml
-32/525 characterdataindexsizeerrdeletedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-33/525 characterdataindexsizeerrinsertdataoffsetgreater.xml
-34/525 characterdataindexsizeerrinsertdataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-35/525 characterdataindexsizeerrreplacedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-36/525 characterdataindexsizeerrreplacedataoffsetgreater.xml
-37/525 characterdataindexsizeerrreplacedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-38/525 characterdataindexsizeerrsubstringcountnegative.xml
-implementationAttribute signed not supported, skipping test
-39/525 characterdataindexsizeerrsubstringnegativeoffset.xml
-implementationAttribute signed not supported, skipping test
-40/525 characterdataindexsizeerrsubstringoffsetgreater.xml
-41/525 characterdatainsertdatabeginning.xml
-42/525 characterdatainsertdataend.xml
-43/525 characterdatainsertdatamiddle.xml
-44/525 characterdatainsertdatanomodificationallowederr.xml
-45/525 characterdatainsertdatanomodificationallowederrEE.xml
-46/525 characterdatareplacedatabegining.xml
-47/525 characterdatareplacedataend.xml
-48/525 characterdatareplacedataexceedslengthofarg.xml
-49/525 characterdatareplacedataexceedslengthofdata.xml
-50/525 characterdatareplacedatamiddle.xml
-51/525 characterdatareplacedatanomodificationallowederr.xml
-52/525 characterdatareplacedatanomodificationallowederrEE.xml
-53/525 characterdatasetdatanomodificationallowederr.xml
-54/525 characterdatasetdatanomodificationallowederrEE.xml
-55/525 characterdatasetnodevalue.xml
-56/525 characterdatasubstringexceedsvalue.xml
-57/525 characterdatasubstringvalue.xml
-58/525 commentgetcomment.xml
-59/525 documentcreateattribute.xml
-60/525 documentcreatecdatasection.xml
-61/525 documentcreatecomment.xml
-62/525 documentcreatedocumentfragment.xml
-63/525 documentcreateelement.xml
-64/525 documentcreateelementcasesensitive.xml
-65/525 documentcreateelementdefaultattr.xml
-66/525 documentcreateentityreference.xml
-67/525 documentcreateentityreferenceknown.xml
-68/525 documentcreateprocessinginstruction.xml
-69/525 documentcreatetextnode.xml
-70/525 documentgetdoctype.xml
-71/525 documentgetdoctypenodtd.xml
-72/525 documentgetelementsbytagnamelength.xml
-73/525 documentgetelementsbytagnametotallength.xml
-74/525 documentgetelementsbytagnamevalue.xml
-75/525 documentgetimplementation.xml
-76/525 documentgetrootnode.xml
-77/525 documentinvalidcharacterexceptioncreateattribute.xml
-78/525 documentinvalidcharacterexceptioncreateelement.xml
-79/525 documentinvalidcharacterexceptioncreateentref.xml
-80/525 documentinvalidcharacterexceptioncreateentref1.xml
-81/525 documentinvalidcharacterexceptioncreatepi.xml
-82/525 documentinvalidcharacterexceptioncreatepi1.xml
-83/525 documenttypegetdoctype.xml
-84/525 documenttypegetentities.xml
-85/525 documenttypegetentitieslength.xml
-86/525 documenttypegetentitiestype.xml
-87/525 documenttypegetnotations.xml
-88/525 documenttypegetnotationstype.xml
-89/525 domimplementationfeaturenoversion.xml
-90/525 domimplementationfeaturenull.xml
+17/808 cdatasectionnormalize.xml
+18/808 characterdataappenddata.xml
+19/808 characterdataappenddatagetdata.xml
+20/808 characterdataappenddatanomodificationallowederr.xml
+21/808 characterdataappenddatanomodificationallowederrEE.xml
+22/808 characterdatadeletedatabegining.xml
+23/808 characterdatadeletedataend.xml
+24/808 characterdatadeletedataexceedslength.xml
+25/808 characterdatadeletedatagetlengthanddata.xml
+26/808 characterdatadeletedatamiddle.xml
+27/808 characterdatadeletedatanomodificationallowederrEE.xml
+28/808 characterdatagetdata.xml
+29/808 characterdatagetlength.xml
+30/808 characterdataindexsizeerrdeletedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+31/808 characterdataindexsizeerrdeletedataoffsetgreater.xml
+32/808 characterdataindexsizeerrdeletedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+33/808 characterdataindexsizeerrinsertdataoffsetgreater.xml
+34/808 characterdataindexsizeerrinsertdataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+35/808 characterdataindexsizeerrreplacedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+36/808 characterdataindexsizeerrreplacedataoffsetgreater.xml
+37/808 characterdataindexsizeerrreplacedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+38/808 characterdataindexsizeerrsubstringcountnegative.xml
+implementationAttribute signed not supported, skipping test
+39/808 characterdataindexsizeerrsubstringnegativeoffset.xml
+implementationAttribute signed not supported, skipping test
+40/808 characterdataindexsizeerrsubstringoffsetgreater.xml
+41/808 characterdatainsertdatabeginning.xml
+42/808 characterdatainsertdataend.xml
+43/808 characterdatainsertdatamiddle.xml
+44/808 characterdatainsertdatanomodificationallowederr.xml
+45/808 characterdatainsertdatanomodificationallowederrEE.xml
+46/808 characterdatareplacedatabegining.xml
+47/808 characterdatareplacedataend.xml
+48/808 characterdatareplacedataexceedslengthofarg.xml
+49/808 characterdatareplacedataexceedslengthofdata.xml
+50/808 characterdatareplacedatamiddle.xml
+51/808 characterdatareplacedatanomodificationallowederr.xml
+52/808 characterdatareplacedatanomodificationallowederrEE.xml
+53/808 characterdatasetdatanomodificationallowederr.xml
+54/808 characterdatasetdatanomodificationallowederrEE.xml
+55/808 characterdatasetnodevalue.xml
+56/808 characterdatasubstringexceedsvalue.xml
+57/808 characterdatasubstringvalue.xml
+58/808 commentgetcomment.xml
+59/808 documentcreateattribute.xml
+60/808 documentcreatecdatasection.xml
+61/808 documentcreatecomment.xml
+62/808 documentcreatedocumentfragment.xml
+63/808 documentcreateelement.xml
+64/808 documentcreateelementcasesensitive.xml
+65/808 documentcreateelementdefaultattr.xml
+66/808 documentcreateentityreference.xml
+67/808 documentcreateentityreferenceknown.xml
+68/808 documentcreateprocessinginstruction.xml
+69/808 documentcreatetextnode.xml
+70/808 documentgetdoctype.xml
+71/808 documentgetdoctypenodtd.xml
+72/808 documentgetelementsbytagnamelength.xml
+73/808 documentgetelementsbytagnametotallength.xml
+74/808 documentgetelementsbytagnamevalue.xml
+75/808 documentgetimplementation.xml
+76/808 documentgetrootnode.xml
+77/808 documentinvalidcharacterexceptioncreateattribute.xml
+78/808 documentinvalidcharacterexceptioncreateelement.xml
+79/808 documentinvalidcharacterexceptioncreateentref.xml
+80/808 documentinvalidcharacterexceptioncreateentref1.xml
+81/808 documentinvalidcharacterexceptioncreatepi.xml
+82/808 documentinvalidcharacterexceptioncreatepi1.xml
+83/808 documenttypegetdoctype.xml
+84/808 documenttypegetentities.xml
+85/808 documenttypegetentitieslength.xml
+86/808 documenttypegetentitiestype.xml
+87/808 documenttypegetnotations.xml
+88/808 documenttypegetnotationstype.xml
+89/808 domimplementationfeaturenoversion.xml
+90/808 domimplementationfeaturenull.xml
 implementationAttribute hasNullString not supported, skipping test
-91/525 domimplementationfeaturexml.xml
-92/525 elementaddnewattribute.xml
-93/525 elementassociatedattribute.xml
-94/525 elementchangeattributevalue.xml
-95/525 elementcreatenewattribute.xml
-96/525 elementgetattributenode.xml
-97/525 elementgetattributenodenull.xml
-98/525 elementgetelementempty.xml
-99/525 elementgetelementsbytagname.xml
-100/525 elementgetelementsbytagnameaccessnodelist.xml
-101/525 elementgetelementsbytagnamenomatch.xml
-102/525 elementgetelementsbytagnamespecialvalue.xml
-103/525 elementgettagname.xml
-104/525 elementinuseattributeerr.xml
-105/525 elementinvalidcharacterexception.xml
-106/525 elementnormalize.xml
-107/525 elementnotfounderr.xml
-108/525 elementremoveattribute.xml
-109/525 elementremoveattributeaftercreate.xml
-110/525 elementremoveattributenode.xml
-111/525 elementremoveattributenodenomodificationallowederr.xml
-112/525 elementremoveattributenodenomodificationallowederrEE.xml
-113/525 elementremoveattributenomodificationallowederr.xml
-114/525 elementremoveattributenomodificationallowederrEE.xml
-115/525 elementremoveattributerestoredefaultvalue.xml
-116/525 elementreplaceattributewithself.xml
-117/525 elementreplaceexistingattribute.xml
-118/525 elementreplaceexistingattributegevalue.xml
-119/525 elementretrieveallattributes.xml
-120/525 elementretrieveattrvalue.xml
-121/525 elementretrievetagname.xml
-122/525 elementsetattributenodenomodificationallowederr.xml
-123/525 elementsetattributenodenomodificationallowederrEE.xml
+91/808 domimplementationfeaturexml.xml
+92/808 elementaddnewattribute.xml
+93/808 elementassociatedattribute.xml
+94/808 elementchangeattributevalue.xml
+95/808 elementcreatenewattribute.xml
+96/808 elementgetattributenode.xml
+97/808 elementgetattributenodenull.xml
+98/808 elementgetelementempty.xml
+99/808 elementgetelementsbytagname.xml
+100/808 elementgetelementsbytagnameaccessnodelist.xml
+101/808 elementgetelementsbytagnamenomatch.xml
+102/808 elementgetelementsbytagnamespecialvalue.xml
+103/808 elementgettagname.xml
+104/808 elementinuseattributeerr.xml
+105/808 elementinvalidcharacterexception.xml
+106/808 elementnormalize.xml
+107/808 elementnotfounderr.xml
+108/808 elementremoveattribute.xml
+109/808 elementremoveattributeaftercreate.xml
+110/808 elementremoveattributenode.xml
+111/808 elementremoveattributenodenomodificationallowederr.xml
+112/808 elementremoveattributenodenomodificationallowederrEE.xml
+113/808 elementremoveattributenomodificationallowederr.xml
+114/808 elementremoveattributenomodificationallowederrEE.xml
+115/808 elementremoveattributerestoredefaultvalue.xml
+116/808 elementreplaceattributewithself.xml
+117/808 elementreplaceexistingattribute.xml
+118/808 elementreplaceexistingattributegevalue.xml
+119/808 elementretrieveallattributes.xml
+120/808 elementretrieveattrvalue.xml
+121/808 elementretrievetagname.xml
+122/808 elementsetattributenodenomodificationallowederr.xml
+123/808 elementsetattributenodenomodificationallowederrEE.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-124/525 elementsetattributenodenull.xml
-125/525 elementsetattributenomodificationallowederr.xml
+124/808 elementsetattributenodenull.xml
+125/808 elementsetattributenomodificationallowederr.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-126/525 elementsetattributenomodificationallowederrEE.xml
-127/525 elementwrongdocumenterr.xml
-128/525 entitygetentityname.xml
-129/525 entitygetpublicid.xml
-130/525 entitygetpublicidnull.xml
-131/525 namednodemapchildnoderange.xml
-132/525 namednodemapgetnameditem.xml
-133/525 namednodemapinuseattributeerr.xml
-134/525 namednodemapnotfounderr.xml
-135/525 namednodemapnumberofnodes.xml
-136/525 namednodemapremovenameditem.xml
-137/525 namednodemapremovenameditemgetvalue.xml
-138/525 namednodemapremovenameditemreturnnodevalue.xml
-139/525 namednodemapreturnattrnode.xml
-140/525 namednodemapreturnfirstitem.xml
-141/525 namednodemapreturnlastitem.xml
-142/525 namednodemapreturnnull.xml
-143/525 namednodemapsetnameditem.xml
-144/525 namednodemapsetnameditemreturnvalue.xml
-145/525 namednodemapsetnameditemthatexists.xml
-146/525 namednodemapsetnameditemwithnewvalue.xml
-147/525 namednodemapwrongdocumenterr.xml
-148/525 nodeappendchild.xml
-149/525 nodeappendchildchildexists.xml
-150/525 nodeappendchilddocfragment.xml
-151/525 nodeappendchildgetnodename.xml
-152/525 nodeappendchildinvalidnodetype.xml
-153/525 nodeappendchildnewchilddiffdocument.xml
-154/525 nodeappendchildnodeancestor.xml
-155/525 nodeappendchildnomodificationallowederr.xml
-156/525 nodeappendchildnomodificationallowederrEE.xml
-157/525 nodeattributenodeattribute.xml
-158/525 nodeattributenodename.xml
-159/525 nodeattributenodetype.xml
-160/525 nodeattributenodevalue.xml
-161/525 nodecdatasectionnodeattribute.xml
-162/525 nodecdatasectionnodename.xml
-163/525 nodecdatasectionnodetype.xml
+126/808 elementsetattributenomodificationallowederrEE.xml
+127/808 elementwrongdocumenterr.xml
+128/808 entitygetentityname.xml
+129/808 entitygetpublicid.xml
+130/808 entitygetpublicidnull.xml
+131/808 namednodemapchildnoderange.xml
+132/808 namednodemapgetnameditem.xml
+133/808 namednodemapinuseattributeerr.xml
+134/808 namednodemapnotfounderr.xml
+135/808 namednodemapnumberofnodes.xml
+136/808 namednodemapremovenameditem.xml
+137/808 namednodemapremovenameditemgetvalue.xml
+138/808 namednodemapremovenameditemreturnnodevalue.xml
+139/808 namednodemapreturnattrnode.xml
+140/808 namednodemapreturnfirstitem.xml
+141/808 namednodemapreturnlastitem.xml
+142/808 namednodemapreturnnull.xml
+143/808 namednodemapsetnameditem.xml
+144/808 namednodemapsetnameditemreturnvalue.xml
+145/808 namednodemapsetnameditemthatexists.xml
+146/808 namednodemapsetnameditemwithnewvalue.xml
+147/808 namednodemapwrongdocumenterr.xml
+148/808 nodeappendchild.xml
+149/808 nodeappendchildchildexists.xml
+150/808 nodeappendchilddocfragment.xml
+151/808 nodeappendchildgetnodename.xml
+152/808 nodeappendchildinvalidnodetype.xml
+153/808 nodeappendchildnewchilddiffdocument.xml
+154/808 nodeappendchildnodeancestor.xml
+155/808 nodeappendchildnomodificationallowederr.xml
+156/808 nodeappendchildnomodificationallowederrEE.xml
+157/808 nodeattributenodeattribute.xml
+158/808 nodeattributenodename.xml
+159/808 nodeattributenodetype.xml
+160/808 nodeattributenodevalue.xml
+161/808 nodecdatasectionnodeattribute.xml
+162/808 nodecdatasectionnodename.xml
+163/808 nodecdatasectionnodetype.xml
 implementationAttribute coalescing not supported, skipping test
-164/525 nodecdatasectionnodevalue.xml
+164/808 nodecdatasectionnodevalue.xml
 implementationAttribute coalescing not supported, skipping test
-165/525 nodechildnodes.xml
-166/525 nodechildnodesappendchild.xml
-167/525 nodechildnodesempty.xml
-168/525 nodecloneattributescopied.xml
-169/525 nodeclonefalsenocopytext.xml
-170/525 nodeclonegetparentnull.xml
-171/525 nodeclonenodefalse.xml
-172/525 nodeclonenodetrue.xml
-173/525 nodeclonetruecopytext.xml
-174/525 nodecommentnodeattributes.xml
-175/525 nodecommentnodename.xml
-176/525 nodecommentnodetype.xml
-177/525 nodecommentnodevalue.xml
-178/525 nodedocumentfragmentnodename.xml
-179/525 nodedocumentfragmentnodetype.xml
-180/525 nodedocumentfragmentnodevalue.xml
-181/525 nodedocumentnodeattribute.xml
-182/525 nodedocumentnodename.xml
-183/525 nodedocumentnodetype.xml
-184/525 nodedocumentnodevalue.xml
-185/525 nodedocumenttypenodename.xml
-186/525 nodedocumenttypenodetype.xml
-187/525 nodedocumenttypenodevalue.xml
-188/525 nodeelementnodeattributes.xml
-189/525 nodeelementnodename.xml
-190/525 nodeelementnodetype.xml
-191/525 nodeelementnodevalue.xml
-192/525 nodeentitynodeattributes.xml
-193/525 nodeentitynodename.xml
-194/525 nodeentitynodetype.xml
-195/525 nodeentitynodevalue.xml
-196/525 nodeentitysetnodevalue.xml
-197/525 nodeentityreferencenodeattributes.xml
-198/525 nodeentityreferencenodename.xml
-199/525 nodeentityreferencenodetype.xml
-200/525 nodeentityreferencenodevalue.xml
-201/525 nodegetfirstchild.xml
-202/525 nodegetfirstchildnull.xml
-203/525 nodegetlastchild.xml
-204/525 nodegetlastchildnull.xml
-205/525 nodegetnextsibling.xml
-206/525 nodegetnextsiblingnull.xml
-207/525 nodegetownerdocument.xml
-208/525 nodegetownerdocumentnull.xml
-209/525 nodegetprevioussibling.xml
-210/525 nodegetprevioussiblingnull.xml
-211/525 nodehaschildnodes.xml
-212/525 nodehaschildnodesfalse.xml
-213/525 nodeinsertbefore.xml
-214/525 nodeinsertbeforedocfragment.xml
-215/525 nodeinsertbeforeinvalidnodetype.xml
-216/525 nodeinsertbeforenewchilddiffdocument.xml
-217/525 nodeinsertbeforenewchildexists.xml
-218/525 nodeinsertbeforenodeancestor.xml
-219/525 nodeinsertbeforenodename.xml
-220/525 nodeinsertbeforenomodificationallowederr.xml
-221/525 nodeinsertbeforenomodificationallowederrEE.xml
-222/525 nodeinsertbeforerefchildnonexistent.xml
-223/525 nodeinsertbeforerefchildnull.xml
-224/525 nodelistindexequalzero.xml
-225/525 nodelistindexgetlength.xml
-226/525 nodelistindexgetlengthofemptylist.xml
-227/525 nodelistindexnotzero.xml
-228/525 nodelistreturnfirstitem.xml
-229/525 nodelistreturnlastitem.xml
-230/525 nodelisttraverselist.xml
-231/525 nodenotationnodeattributes.xml
-232/525 nodenotationnodename.xml
-233/525 nodenotationnodetype.xml
-234/525 nodenotationnodevalue.xml
-235/525 nodeparentnode.xml
-236/525 nodeparentnodenull.xml
-237/525 nodeprocessinginstructionnodeattributes.xml
-238/525 nodeprocessinginstructionnodename.xml
-239/525 nodeprocessinginstructionnodetype.xml
-240/525 nodeprocessinginstructionnodevalue.xml
-241/525 nodeprocessinginstructionsetnodevalue.xml
-242/525 noderemovechild.xml
-243/525 noderemovechildgetnodename.xml
-244/525 noderemovechildnode.xml
-245/525 noderemovechildnomodificationallowederr.xml
-246/525 noderemovechildnomodificationallowederrEE.xml
-247/525 noderemovechildoldchildnonexistent.xml
-248/525 nodereplacechild.xml
-249/525 nodereplacechildinvalidnodetype.xml
-250/525 nodereplacechildnewchilddiffdocument.xml
-251/525 nodereplacechildnewchildexists.xml
-252/525 nodereplacechildnodeancestor.xml
-253/525 nodereplacechildnodename.xml
-254/525 nodereplacechildnomodificationallowederr.xml
-255/525 nodereplacechildnomodificationallowederrEE.xml
-256/525 nodereplacechildoldchildnonexistent.xml
-257/525 nodesetnodevaluenomodificationallowederr.xml
-258/525 nodesetnodevaluenomodificationallowederrEE.xml
-259/525 nodetextnodeattribute.xml
-260/525 nodetextnodename.xml
-261/525 nodetextnodetype.xml
-262/525 nodetextnodevalue.xml
-263/525 notationgetnotationname.xml
-264/525 notationgetpublicid.xml
-265/525 notationgetpublicidnull.xml
-266/525 notationgetsystemid.xml
-267/525 notationgetsystemidnull.xml
-268/525 processinginstructiongetdata.xml
-269/525 processinginstructiongettarget.xml
-270/525 processinginstructionsetdatanomodificationallowederr.xml
+165/808 nodechildnodes.xml
+166/808 nodechildnodesappendchild.xml
+167/808 nodechildnodesempty.xml
+168/808 nodecloneattributescopied.xml
+169/808 nodeclonefalsenocopytext.xml
+170/808 nodeclonegetparentnull.xml
+171/808 nodeclonenodefalse.xml
+172/808 nodeclonenodetrue.xml
+173/808 nodeclonetruecopytext.xml
+174/808 nodecommentnodeattributes.xml
+175/808 nodecommentnodename.xml
+176/808 nodecommentnodetype.xml
+177/808 nodecommentnodevalue.xml
+178/808 nodedocumentfragmentnodename.xml
+179/808 nodedocumentfragmentnodetype.xml
+180/808 nodedocumentfragmentnodevalue.xml
+181/808 nodedocumentnodeattribute.xml
+182/808 nodedocumentnodename.xml
+183/808 nodedocumentnodetype.xml
+184/808 nodedocumentnodevalue.xml
+185/808 nodedocumenttypenodename.xml
+186/808 nodedocumenttypenodetype.xml
+187/808 nodedocumenttypenodevalue.xml
+188/808 nodeelementnodeattributes.xml
+189/808 nodeelementnodename.xml
+190/808 nodeelementnodetype.xml
+191/808 nodeelementnodevalue.xml
+192/808 nodeentitynodeattributes.xml
+193/808 nodeentitynodename.xml
+194/808 nodeentitynodetype.xml
+195/808 nodeentitynodevalue.xml
+196/808 nodeentitysetnodevalue.xml
+197/808 nodeentityreferencenodeattributes.xml
+198/808 nodeentityreferencenodename.xml
+199/808 nodeentityreferencenodetype.xml
+200/808 nodeentityreferencenodevalue.xml
+201/808 nodegetfirstchild.xml
+202/808 nodegetfirstchildnull.xml
+203/808 nodegetlastchild.xml
+204/808 nodegetlastchildnull.xml
+205/808 nodegetnextsibling.xml
+206/808 nodegetnextsiblingnull.xml
+207/808 nodegetownerdocument.xml
+208/808 nodegetownerdocumentnull.xml
+209/808 nodegetprevioussibling.xml
+210/808 nodegetprevioussiblingnull.xml
+211/808 nodehaschildnodes.xml
+212/808 nodehaschildnodesfalse.xml
+213/808 nodeinsertbefore.xml
+214/808 nodeinsertbeforedocfragment.xml
+215/808 nodeinsertbeforeinvalidnodetype.xml
+216/808 nodeinsertbeforenewchilddiffdocument.xml
+217/808 nodeinsertbeforenewchildexists.xml
+218/808 nodeinsertbeforenodeancestor.xml
+219/808 nodeinsertbeforenodename.xml
+220/808 nodeinsertbeforenomodificationallowederr.xml
+221/808 nodeinsertbeforenomodificationallowederrEE.xml
+222/808 nodeinsertbeforerefchildnonexistent.xml
+223/808 nodeinsertbeforerefchildnull.xml
+224/808 nodelistindexequalzero.xml
+225/808 nodelistindexgetlength.xml
+226/808 nodelistindexgetlengthofemptylist.xml
+227/808 nodelistindexnotzero.xml
+228/808 nodelistreturnfirstitem.xml
+229/808 nodelistreturnlastitem.xml
+230/808 nodelisttraverselist.xml
+231/808 nodenotationnodeattributes.xml
+232/808 nodenotationnodename.xml
+233/808 nodenotationnodetype.xml
+234/808 nodenotationnodevalue.xml
+235/808 nodeparentnode.xml
+236/808 nodeparentnodenull.xml
+237/808 nodeprocessinginstructionnodeattributes.xml
+238/808 nodeprocessinginstructionnodename.xml
+239/808 nodeprocessinginstructionnodetype.xml
+240/808 nodeprocessinginstructionnodevalue.xml
+241/808 nodeprocessinginstructionsetnodevalue.xml
+242/808 noderemovechild.xml
+243/808 noderemovechildgetnodename.xml
+244/808 noderemovechildnode.xml
+245/808 noderemovechildnomodificationallowederr.xml
+246/808 noderemovechildnomodificationallowederrEE.xml
+247/808 noderemovechildoldchildnonexistent.xml
+248/808 nodereplacechild.xml
+249/808 nodereplacechildinvalidnodetype.xml
+250/808 nodereplacechildnewchilddiffdocument.xml
+251/808 nodereplacechildnewchildexists.xml
+252/808 nodereplacechildnodeancestor.xml
+253/808 nodereplacechildnodename.xml
+254/808 nodereplacechildnomodificationallowederr.xml
+255/808 nodereplacechildnomodificationallowederrEE.xml
+256/808 nodereplacechildoldchildnonexistent.xml
+257/808 nodesetnodevaluenomodificationallowederr.xml
+258/808 nodesetnodevaluenomodificationallowederrEE.xml
+259/808 nodetextnodeattribute.xml
+260/808 nodetextnodename.xml
+261/808 nodetextnodetype.xml
+262/808 nodetextnodevalue.xml
+263/808 notationgetnotationname.xml
+264/808 notationgetpublicid.xml
+265/808 notationgetpublicidnull.xml
+266/808 notationgetsystemid.xml
+267/808 notationgetsystemidnull.xml
+268/808 processinginstructiongetdata.xml
+269/808 processinginstructiongettarget.xml
+270/808 processinginstructionsetdatanomodificationallowederr.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-271/525 processinginstructionsetdatanomodificationallowederrEE.xml
-272/525 textindexsizeerrnegativeoffset.xml
+271/808 processinginstructionsetdatanomodificationallowederrEE.xml
+272/808 textindexsizeerrnegativeoffset.xml
 implementationAttribute signed not supported, skipping test
-273/525 textindexsizeerroffsetoutofbounds.xml
-274/525 textparseintolistofelements.xml
-275/525 textsplittextfour.xml
-276/525 textsplittextnomodificationallowederr.xml
-277/525 textsplittextnomodificationallowederrEE.xml
-278/525 textsplittextone.xml
-279/525 textsplittextthree.xml
-280/525 textsplittexttwo.xml
-281/525 textwithnomarkup.xml
-282/525 nodevalue01.xml
-283/525 nodevalue02.xml
-284/525 nodevalue03.xml
-285/525 nodevalue04.xml
-286/525 nodevalue05.xml
-287/525 nodevalue06.xml
-288/525 nodevalue07.xml
-289/525 nodevalue08.xml
-290/525 nodevalue09.xml
-291/525 hc_attrcreatedocumentfragment.xml
-292/525 hc_attrcreatetextnode.xml
-293/525 hc_attrcreatetextnode2.xml
-294/525 hc_attreffectivevalue.xml
-295/525 hc_attrname.xml
-296/525 hc_attrnextsiblingnull.xml
-297/525 hc_attrparentnodenull.xml
-298/525 hc_attrprevioussiblingnull.xml
-299/525 hc_attrspecifiedvalue.xml
-300/525 hc_attrspecifiedvaluechanged.xml
-301/525 hc_characterdataappenddata.xml
-302/525 hc_characterdataappenddatagetdata.xml
-303/525 hc_characterdatadeletedatabegining.xml
-304/525 hc_characterdatadeletedataend.xml
-305/525 hc_characterdatadeletedataexceedslength.xml
-306/525 hc_characterdatadeletedatagetlengthanddata.xml
-307/525 hc_characterdatadeletedatamiddle.xml
-308/525 hc_characterdatagetdata.xml
-309/525 hc_characterdatagetlength.xml
-310/525 hc_characterdataindexsizeerrdeletedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-311/525 hc_characterdataindexsizeerrdeletedataoffsetgreater.xml
-312/525 hc_characterdataindexsizeerrdeletedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-313/525 hc_characterdataindexsizeerrinsertdataoffsetgreater.xml
-314/525 hc_characterdataindexsizeerrinsertdataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-315/525 hc_characterdataindexsizeerrreplacedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-316/525 hc_characterdataindexsizeerrreplacedataoffsetgreater.xml
-317/525 hc_characterdataindexsizeerrreplacedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-318/525 hc_characterdataindexsizeerrsubstringcountnegative.xml
-implementationAttribute signed not supported, skipping test
-319/525 hc_characterdataindexsizeerrsubstringnegativeoffset.xml
-implementationAttribute signed not supported, skipping test
-320/525 hc_characterdataindexsizeerrsubstringoffsetgreater.xml
-321/525 hc_characterdatainsertdatabeginning.xml
-322/525 hc_characterdatainsertdataend.xml
-323/525 hc_characterdatainsertdatamiddle.xml
-324/525 hc_characterdatareplacedatabegining.xml
-325/525 hc_characterdatareplacedataend.xml
-326/525 hc_characterdatareplacedataexceedslengthofarg.xml
-327/525 hc_characterdatareplacedataexceedslengthofdata.xml
-328/525 hc_characterdatareplacedatamiddle.xml
-329/525 hc_characterdatasetnodevalue.xml
-330/525 hc_characterdatasubstringexceedsvalue.xml
-331/525 hc_characterdatasubstringvalue.xml
-332/525 hc_commentgetcomment.xml
-333/525 hc_documentcreateattribute.xml
-334/525 hc_documentcreatecomment.xml
-335/525 hc_documentcreatedocumentfragment.xml
-336/525 hc_documentcreateelement.xml
-337/525 hc_documentcreateelementcasesensitive.xml
-338/525 hc_documentcreatetextnode.xml
-339/525 hc_documentgetdoctype.xml
-340/525 hc_documentgetelementsbytagnamelength.xml
-341/525 hc_documentgetelementsbytagnametotallength.xml
-342/525 hc_documentgetelementsbytagnamevalue.xml
-343/525 hc_documentgetimplementation.xml
-344/525 hc_documentgetrootnode.xml
-345/525 hc_documentinvalidcharacterexceptioncreateattribute.xml
-346/525 hc_documentinvalidcharacterexceptioncreateattribute1.xml
-347/525 hc_documentinvalidcharacterexceptioncreateelement.xml
-348/525 hc_documentinvalidcharacterexceptioncreateelement1.xml
-349/525 hc_domimplementationfeaturenoversion.xml
-350/525 hc_domimplementationfeaturenull.xml
+273/808 textindexsizeerroffsetoutofbounds.xml
+274/808 textparseintolistofelements.xml
+275/808 textsplittextfour.xml
+276/808 textsplittextnomodificationallowederr.xml
+277/808 textsplittextnomodificationallowederrEE.xml
+278/808 textsplittextone.xml
+279/808 textsplittextthree.xml
+280/808 textsplittexttwo.xml
+281/808 textwithnomarkup.xml
+282/808 nodevalue01.xml
+283/808 nodevalue02.xml
+284/808 nodevalue03.xml
+285/808 nodevalue04.xml
+286/808 nodevalue05.xml
+287/808 nodevalue06.xml
+288/808 nodevalue07.xml
+289/808 nodevalue08.xml
+290/808 nodevalue09.xml
+291/808 hc_attrcreatedocumentfragment.xml
+292/808 hc_attrcreatetextnode.xml
+293/808 hc_attrcreatetextnode2.xml
+294/808 hc_attreffectivevalue.xml
+295/808 hc_attrname.xml
+296/808 hc_attrnextsiblingnull.xml
+297/808 hc_attrparentnodenull.xml
+298/808 hc_attrprevioussiblingnull.xml
+299/808 hc_attrspecifiedvalue.xml
+300/808 hc_attrspecifiedvaluechanged.xml
+301/808 hc_characterdataappenddata.xml
+302/808 hc_characterdataappenddatagetdata.xml
+303/808 hc_characterdatadeletedatabegining.xml
+304/808 hc_characterdatadeletedataend.xml
+305/808 hc_characterdatadeletedataexceedslength.xml
+306/808 hc_characterdatadeletedatagetlengthanddata.xml
+307/808 hc_characterdatadeletedatamiddle.xml
+308/808 hc_characterdatagetdata.xml
+309/808 hc_characterdatagetlength.xml
+310/808 hc_characterdataindexsizeerrdeletedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+311/808 hc_characterdataindexsizeerrdeletedataoffsetgreater.xml
+312/808 hc_characterdataindexsizeerrdeletedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+313/808 hc_characterdataindexsizeerrinsertdataoffsetgreater.xml
+314/808 hc_characterdataindexsizeerrinsertdataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+315/808 hc_characterdataindexsizeerrreplacedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+316/808 hc_characterdataindexsizeerrreplacedataoffsetgreater.xml
+317/808 hc_characterdataindexsizeerrreplacedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+318/808 hc_characterdataindexsizeerrsubstringcountnegative.xml
+implementationAttribute signed not supported, skipping test
+319/808 hc_characterdataindexsizeerrsubstringnegativeoffset.xml
+implementationAttribute signed not supported, skipping test
+320/808 hc_characterdataindexsizeerrsubstringoffsetgreater.xml
+321/808 hc_characterdatainsertdatabeginning.xml
+322/808 hc_characterdatainsertdataend.xml
+323/808 hc_characterdatainsertdatamiddle.xml
+324/808 hc_characterdatareplacedatabegining.xml
+325/808 hc_characterdatareplacedataend.xml
+326/808 hc_characterdatareplacedataexceedslengthofarg.xml
+327/808 hc_characterdatareplacedataexceedslengthofdata.xml
+328/808 hc_characterdatareplacedatamiddle.xml
+329/808 hc_characterdatasetnodevalue.xml
+330/808 hc_characterdatasubstringexceedsvalue.xml
+331/808 hc_characterdatasubstringvalue.xml
+332/808 hc_commentgetcomment.xml
+333/808 hc_documentcreateattribute.xml
+334/808 hc_documentcreatecomment.xml
+335/808 hc_documentcreatedocumentfragment.xml
+336/808 hc_documentcreateelement.xml
+337/808 hc_documentcreateelementcasesensitive.xml
+338/808 hc_documentcreatetextnode.xml
+339/808 hc_documentgetdoctype.xml
+340/808 hc_documentgetelementsbytagnamelength.xml
+341/808 hc_documentgetelementsbytagnametotallength.xml
+342/808 hc_documentgetelementsbytagnamevalue.xml
+343/808 hc_documentgetimplementation.xml
+344/808 hc_documentgetrootnode.xml
+345/808 hc_documentinvalidcharacterexceptioncreateattribute.xml
+346/808 hc_documentinvalidcharacterexceptioncreateattribute1.xml
+347/808 hc_documentinvalidcharacterexceptioncreateelement.xml
+348/808 hc_documentinvalidcharacterexceptioncreateelement1.xml
+349/808 hc_domimplementationfeaturenoversion.xml
+350/808 hc_domimplementationfeaturenull.xml
 implementationAttribute hasNullString not supported, skipping test
-351/525 hc_domimplementationfeaturexml.xml
-352/525 hc_elementaddnewattribute.xml
-353/525 hc_elementassociatedattribute.xml
-354/525 hc_elementchangeattributevalue.xml
-355/525 hc_elementcreatenewattribute.xml
-356/525 hc_elementgetattributenode.xml
-357/525 hc_elementgetattributenodenull.xml
-358/525 hc_elementgetelementempty.xml
-359/525 hc_elementgetelementsbytagname.xml
-360/525 hc_elementgetelementsbytagnameaccessnodelist.xml
-361/525 hc_elementgetelementsbytagnamenomatch.xml
-362/525 hc_elementgetelementsbytagnamespecialvalue.xml
-363/525 hc_elementgettagname.xml
-364/525 hc_elementinuseattributeerr.xml
-365/525 hc_elementinvalidcharacterexception.xml
-366/525 hc_elementinvalidcharacterexception1.xml
-367/525 hc_elementnormalize.xml
-368/525 hc_elementnotfounderr.xml
-369/525 hc_elementremoveattribute.xml
-370/525 hc_elementremoveattributeaftercreate.xml
-371/525 hc_elementremoveattributenode.xml
-372/525 hc_elementreplaceattributewithself.xml
-373/525 hc_elementreplaceexistingattribute.xml
-374/525 hc_elementreplaceexistingattributegevalue.xml
-375/525 hc_elementretrieveallattributes.xml
-376/525 hc_elementretrieveattrvalue.xml
-377/525 hc_elementretrievetagname.xml
-378/525 hc_elementsetattributenodenull.xml
-379/525 hc_elementwrongdocumenterr.xml
-380/525 hc_entitiesremovenameditem1.xml
-381/525 hc_entitiessetnameditem1.xml
-382/525 hc_namednodemapchildnoderange.xml
-383/525 hc_namednodemapgetnameditem.xml
-384/525 hc_namednodemapinuseattributeerr.xml
-385/525 hc_namednodemapnotfounderr.xml
-386/525 hc_namednodemapnumberofnodes.xml
-387/525 hc_namednodemapremovenameditem.xml
-388/525 hc_namednodemapreturnattrnode.xml
-389/525 hc_namednodemapreturnfirstitem.xml
-390/525 hc_namednodemapreturnlastitem.xml
-391/525 hc_namednodemapreturnnull.xml
-392/525 hc_namednodemapsetnameditem.xml
-393/525 hc_namednodemapsetnameditemreturnvalue.xml
-394/525 hc_namednodemapsetnameditemthatexists.xml
-395/525 hc_namednodemapsetnameditemwithnewvalue.xml
-396/525 hc_namednodemapwrongdocumenterr.xml
-397/525 hc_nodeappendchild.xml
-398/525 hc_nodeappendchildchildexists.xml
-399/525 hc_nodeappendchilddocfragment.xml
-400/525 hc_nodeappendchildgetnodename.xml
-401/525 hc_nodeappendchildinvalidnodetype.xml
-402/525 hc_nodeappendchildnewchilddiffdocument.xml
-403/525 hc_nodeappendchildnodeancestor.xml
-404/525 hc_nodeattributenodeattribute.xml
-405/525 hc_nodeattributenodename.xml
-406/525 hc_nodeattributenodetype.xml
-407/525 hc_nodeattributenodevalue.xml
-408/525 hc_nodechildnodes.xml
-409/525 hc_nodechildnodesappendchild.xml
-410/525 hc_nodechildnodesempty.xml
-411/525 hc_nodecloneattributescopied.xml
-412/525 hc_nodeclonefalsenocopytext.xml
-413/525 hc_nodeclonegetparentnull.xml
-414/525 hc_nodeclonenodefalse.xml
-415/525 hc_nodeclonenodetrue.xml
-416/525 hc_nodeclonetruecopytext.xml
-417/525 hc_nodecommentnodeattributes.xml
-418/525 hc_nodecommentnodename.xml
-419/525 hc_nodecommentnodetype.xml
-420/525 hc_nodecommentnodevalue.xml
-421/525 hc_nodedocumentfragmentnodename.xml
-422/525 hc_nodedocumentfragmentnodetype.xml
-423/525 hc_nodedocumentfragmentnodevalue.xml
-424/525 hc_nodedocumentnodeattribute.xml
-425/525 hc_nodedocumentnodename.xml
-426/525 hc_nodedocumentnodetype.xml
-427/525 hc_nodedocumentnodevalue.xml
-428/525 hc_nodeelementnodeattributes.xml
-429/525 hc_nodeelementnodename.xml
-430/525 hc_nodeelementnodetype.xml
-431/525 hc_nodeelementnodevalue.xml
-432/525 hc_nodegetfirstchild.xml
-433/525 hc_nodegetfirstchildnull.xml
-434/525 hc_nodegetlastchild.xml
-435/525 hc_nodegetlastchildnull.xml
-436/525 hc_nodegetnextsibling.xml
-437/525 hc_nodegetnextsiblingnull.xml
-438/525 hc_nodegetownerdocument.xml
-439/525 hc_nodegetownerdocumentnull.xml
-440/525 hc_nodegetprevioussibling.xml
-441/525 hc_nodegetprevioussiblingnull.xml
-442/525 hc_nodehaschildnodes.xml
-443/525 hc_nodehaschildnodesfalse.xml
-444/525 hc_nodeinsertbefore.xml
-445/525 hc_nodeinsertbeforedocfragment.xml
-446/525 hc_nodeinsertbeforeinvalidnodetype.xml
-447/525 hc_nodeinsertbeforenewchilddiffdocument.xml
-448/525 hc_nodeinsertbeforenewchildexists.xml
-449/525 hc_nodeinsertbeforenodeancestor.xml
-450/525 hc_nodeinsertbeforenodename.xml
-451/525 hc_nodeinsertbeforerefchildnonexistent.xml
-452/525 hc_nodeinsertbeforerefchildnull.xml
-453/525 hc_nodelistindexequalzero.xml
-454/525 hc_nodelistindexgetlength.xml
-455/525 hc_nodelistindexgetlengthofemptylist.xml
-456/525 hc_nodelistindexnotzero.xml
-457/525 hc_nodelistreturnfirstitem.xml
-458/525 hc_nodelistreturnlastitem.xml
-459/525 hc_nodelisttraverselist.xml
-460/525 hc_nodeparentnode.xml
-461/525 hc_nodeparentnodenull.xml
-462/525 hc_noderemovechild.xml
-463/525 hc_noderemovechildgetnodename.xml
-464/525 hc_noderemovechildnode.xml
-465/525 hc_noderemovechildoldchildnonexistent.xml
-466/525 hc_nodereplacechild.xml
-467/525 hc_nodereplacechildinvalidnodetype.xml
-468/525 hc_nodereplacechildnewchilddiffdocument.xml
-469/525 hc_nodereplacechildnodeancestor.xml
-470/525 hc_nodereplacechildnodename.xml
-471/525 hc_nodereplacechildoldchildnonexistent.xml
-472/525 hc_nodetextnodeattribute.xml
-473/525 hc_nodetextnodename.xml
-474/525 hc_nodetextnodetype.xml
-475/525 hc_nodetextnodevalue.xml
-476/525 hc_nodevalue01.xml
-477/525 hc_nodevalue02.xml
-478/525 hc_nodevalue03.xml
-479/525 hc_nodevalue04.xml
-480/525 hc_nodevalue05.xml
-481/525 hc_nodevalue06.xml
-482/525 hc_nodevalue07.xml
-483/525 hc_nodevalue08.xml
-484/525 hc_notationsremovenameditem1.xml
-485/525 hc_notationssetnameditem1.xml
-486/525 hc_textindexsizeerrnegativeoffset.xml
-implementationAttribute signed not supported, skipping test
-487/525 hc_textindexsizeerroffsetoutofbounds.xml
-488/525 hc_textparseintolistofelements.xml
-489/525 hc_textsplittextfour.xml
-490/525 hc_textsplittextone.xml
-491/525 hc_textsplittextthree.xml
-492/525 hc_textsplittexttwo.xml
-493/525 hc_textwithnomarkup.xml
-494/525 hc_attrappendchild1.xml
-495/525 hc_attrappendchild2.xml
-496/525 hc_attrappendchild3.xml
-497/525 hc_attrappendchild4.xml
-498/525 hc_attrappendchild5.xml
-499/525 hc_attrappendchild6.xml
-500/525 hc_attrchildnodes1.xml
-501/525 hc_attrchildnodes2.xml
-502/525 hc_attrclonenode1.xml
-503/525 hc_attrfirstchild.xml
-504/525 hc_attrgetvalue1.xml
-505/525 hc_attrgetvalue2.xml
-506/525 hc_attrhaschildnodes.xml
-507/525 hc_attrinsertbefore1.xml
-508/525 hc_attrinsertbefore2.xml
-509/525 hc_attrinsertbefore3.xml
-510/525 hc_attrinsertbefore4.xml
-511/525 hc_attrinsertbefore5.xml
-512/525 hc_attrinsertbefore6.xml
-513/525 hc_attrinsertbefore7.xml
-514/525 hc_attrlastchild.xml
-515/525 hc_attrnormalize.xml
-516/525 hc_attrremovechild1.xml
-517/525 hc_attrremovechild2.xml
-518/525 hc_attrreplacechild1.xml
-519/525 hc_attrreplacechild2.xml
-520/525 hc_attrsetvalue1.xml
-521/525 hc_attrsetvalue2.xml
-522/525 attrremovechild1.xml
-523/525 attrreplacechild1.xml
-0/497 tests failed; 28 tests were skipped
\ No newline at end of file
+351/808 hc_domimplementationfeaturexml.xml
+352/808 hc_elementaddnewattribute.xml
+353/808 hc_elementassociatedattribute.xml
+354/808 hc_elementchangeattributevalue.xml
+355/808 hc_elementcreatenewattribute.xml
+356/808 hc_elementgetattributenode.xml
+357/808 hc_elementgetattributenodenull.xml
+358/808 hc_elementgetelementempty.xml
+359/808 hc_elementgetelementsbytagname.xml
+360/808 hc_elementgetelementsbytagnameaccessnodelist.xml
+361/808 hc_elementgetelementsbytagnamenomatch.xml
+362/808 hc_elementgetelementsbytagnamespecialvalue.xml
+363/808 hc_elementgettagname.xml
+364/808 hc_elementinuseattributeerr.xml
+365/808 hc_elementinvalidcharacterexception.xml
+366/808 hc_elementinvalidcharacterexception1.xml
+367/808 hc_elementnormalize.xml
+368/808 hc_elementnotfounderr.xml
+369/808 hc_elementremoveattribute.xml
+370/808 hc_elementremoveattributeaftercreate.xml
+371/808 hc_elementremoveattributenode.xml
+372/808 hc_elementreplaceattributewithself.xml
+373/808 hc_elementreplaceexistingattribute.xml
+374/808 hc_elementreplaceexistingattributegevalue.xml
+375/808 hc_elementretrieveallattributes.xml
+376/808 hc_elementretrieveattrvalue.xml
+377/808 hc_elementretrievetagname.xml
+378/808 hc_elementsetattributenodenull.xml
+379/808 hc_elementwrongdocumenterr.xml
+380/808 hc_entitiesremovenameditem1.xml
+381/808 hc_entitiessetnameditem1.xml
+382/808 hc_namednodemapchildnoderange.xml
+383/808 hc_namednodemapgetnameditem.xml
+384/808 hc_namednodemapinuseattributeerr.xml
+385/808 hc_namednodemapnotfounderr.xml
+386/808 hc_namednodemapnumberofnodes.xml
+387/808 hc_namednodemapremovenameditem.xml
+388/808 hc_namednodemapreturnattrnode.xml
+389/808 hc_namednodemapreturnfirstitem.xml
+390/808 hc_namednodemapreturnlastitem.xml
+391/808 hc_namednodemapreturnnull.xml
+392/808 hc_namednodemapsetnameditem.xml
+393/808 hc_namednodemapsetnameditemreturnvalue.xml
+394/808 hc_namednodemapsetnameditemthatexists.xml
+395/808 hc_namednodemapsetnameditemwithnewvalue.xml
+396/808 hc_namednodemapwrongdocumenterr.xml
+397/808 hc_nodeappendchild.xml
+398/808 hc_nodeappendchildchildexists.xml
+399/808 hc_nodeappendchilddocfragment.xml
+400/808 hc_nodeappendchildgetnodename.xml
+401/808 hc_nodeappendchildinvalidnodetype.xml
+402/808 hc_nodeappendchildnewchilddiffdocument.xml
+403/808 hc_nodeappendchildnodeancestor.xml
+404/808 hc_nodeattributenodeattribute.xml
+405/808 hc_nodeattributenodename.xml
+406/808 hc_nodeattributenodetype.xml
+407/808 hc_nodeattributenodevalue.xml
+408/808 hc_nodechildnodes.xml
+409/808 hc_nodechildnodesappendchild.xml
+410/808 hc_nodechildnodesempty.xml
+411/808 hc_nodecloneattributescopied.xml
+412/808 hc_nodeclonefalsenocopytext.xml
+413/808 hc_nodeclonegetparentnull.xml
+414/808 hc_nodeclonenodefalse.xml
+415/808 hc_nodeclonenodetrue.xml
+416/808 hc_nodeclonetruecopytext.xml
+417/808 hc_nodecommentnodeattributes.xml
+418/808 hc_nodecommentnodename.xml
+419/808 hc_nodecommentnodetype.xml
+420/808 hc_nodecommentnodevalue.xml
+421/808 hc_nodedocumentfragmentnodename.xml
+422/808 hc_nodedocumentfragmentnodetype.xml
+423/808 hc_nodedocumentfragmentnodevalue.xml
+424/808 hc_nodedocumentnodeattribute.xml
+425/808 hc_nodedocumentnodename.xml
+426/808 hc_nodedocumentnodetype.xml
+427/808 hc_nodedocumentnodevalue.xml
+428/808 hc_nodeelementnodeattributes.xml
+429/808 hc_nodeelementnodename.xml
+430/808 hc_nodeelementnodetype.xml
+431/808 hc_nodeelementnodevalue.xml
+432/808 hc_nodegetfirstchild.xml
+433/808 hc_nodegetfirstchildnull.xml
+434/808 hc_nodegetlastchild.xml
+435/808 hc_nodegetlastchildnull.xml
+436/808 hc_nodegetnextsibling.xml
+437/808 hc_nodegetnextsiblingnull.xml
+438/808 hc_nodegetownerdocument.xml
+439/808 hc_nodegetownerdocumentnull.xml
+440/808 hc_nodegetprevioussibling.xml
+441/808 hc_nodegetprevioussiblingnull.xml
+442/808 hc_nodehaschildnodes.xml
+443/808 hc_nodehaschildnodesfalse.xml
+444/808 hc_nodeinsertbefore.xml
+445/808 hc_nodeinsertbeforedocfragment.xml
+446/808 hc_nodeinsertbeforeinvalidnodetype.xml
+447/808 hc_nodeinsertbeforenewchilddiffdocument.xml
+448/808 hc_nodeinsertbeforenewchildexists.xml
+449/808 hc_nodeinsertbeforenodeancestor.xml
+450/808 hc_nodeinsertbeforenodename.xml
+451/808 hc_nodeinsertbeforerefchildnonexistent.xml
+452/808 hc_nodeinsertbeforerefchildnull.xml
+453/808 hc_nodelistindexequalzero.xml
+454/808 hc_nodelistindexgetlength.xml
+455/808 hc_nodelistindexgetlengthofemptylist.xml
+456/808 hc_nodelistindexnotzero.xml
+457/808 hc_nodelistreturnfirstitem.xml
+458/808 hc_nodelistreturnlastitem.xml
+459/808 hc_nodelisttraverselist.xml
+460/808 hc_nodeparentnode.xml
+461/808 hc_nodeparentnodenull.xml
+462/808 hc_noderemovechild.xml
+463/808 hc_noderemovechildgetnodename.xml
+464/808 hc_noderemovechildnode.xml
+465/808 hc_noderemovechildoldchildnonexistent.xml
+466/808 hc_nodereplacechild.xml
+467/808 hc_nodereplacechildinvalidnodetype.xml
+468/808 hc_nodereplacechildnewchilddiffdocument.xml
+469/808 hc_nodereplacechildnodeancestor.xml
+470/808 hc_nodereplacechildnodename.xml
+471/808 hc_nodereplacechildoldchildnonexistent.xml
+472/808 hc_nodetextnodeattribute.xml
+473/808 hc_nodetextnodename.xml
+474/808 hc_nodetextnodetype.xml
+475/808 hc_nodetextnodevalue.xml
+476/808 hc_nodevalue01.xml
+477/808 hc_nodevalue02.xml
+478/808 hc_nodevalue03.xml
+479/808 hc_nodevalue04.xml
+480/808 hc_nodevalue05.xml
+481/808 hc_nodevalue06.xml
+482/808 hc_nodevalue07.xml
+483/808 hc_nodevalue08.xml
+484/808 hc_notationsremovenameditem1.xml
+485/808 hc_notationssetnameditem1.xml
+486/808 hc_textindexsizeerrnegativeoffset.xml
+implementationAttribute signed not supported, skipping test
+487/808 hc_textindexsizeerroffsetoutofbounds.xml
+488/808 hc_textparseintolistofelements.xml
+489/808 hc_textsplittextfour.xml
+490/808 hc_textsplittextone.xml
+491/808 hc_textsplittextthree.xml
+492/808 hc_textsplittexttwo.xml
+493/808 hc_textwithnomarkup.xml
+494/808 hc_attrappendchild1.xml
+495/808 hc_attrappendchild2.xml
+496/808 hc_attrappendchild3.xml
+497/808 hc_attrappendchild4.xml
+498/808 hc_attrappendchild5.xml
+499/808 hc_attrappendchild6.xml
+500/808 hc_attrchildnodes1.xml
+501/808 hc_attrchildnodes2.xml
+502/808 hc_attrclonenode1.xml
+503/808 hc_attrfirstchild.xml
+504/808 hc_attrgetvalue1.xml
+505/808 hc_attrgetvalue2.xml
+506/808 hc_attrhaschildnodes.xml
+507/808 hc_attrinsertbefore1.xml
+508/808 hc_attrinsertbefore2.xml
+509/808 hc_attrinsertbefore3.xml
+510/808 hc_attrinsertbefore4.xml
+511/808 hc_attrinsertbefore5.xml
+512/808 hc_attrinsertbefore6.xml
+513/808 hc_attrinsertbefore7.xml
+514/808 hc_attrlastchild.xml
+515/808 hc_attrnormalize.xml
+516/808 hc_attrremovechild1.xml
+517/808 hc_attrremovechild2.xml
+518/808 hc_attrreplacechild1.xml
+519/808 hc_attrreplacechild2.xml
+520/808 hc_attrsetvalue1.xml
+521/808 hc_attrsetvalue2.xml
+522/808 attrremovechild1.xml
+523/808 attrreplacechild1.xml
+0/497 tests failed; 311 tests were skipped
\ No newline at end of file


Index: cxml/README.html
diff -u cxml/README.html:1.9 cxml/README.html:1.10
--- cxml/README.html:1.9	Mon Nov 28 23:33:29 2005
+++ cxml/README.html	Sun Dec  4 19:43:49 2005
@@ -96,6 +96,7 @@
         reported as instances of <tt>well-formedness-violation</tt>.  We
         also print line number information.
       </li>
+      <li>Support internal subset serialization.</li>
       <li>Gilbert Baumann has clarified the license as Lisp-LGPL.</li>
     </ul>
     <p class="nomargin"><tt>rel-2005-06-25</tt></p>



From dlichteblau at common-lisp.net  Sun Dec  4 19:19:19 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 20:19:19 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204191919.38F1688554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv26350

Modified Files:
	DOMTEST 
Log Message:
rein mit den dom 2 tests

Date: Sun Dec  4 20:19:17 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.2 cxml/DOMTEST:1.3
--- cxml/DOMTEST:1.2	Sun Dec  4 19:43:49 2005
+++ cxml/DOMTEST	Sun Dec  4 20:19:16 2005
@@ -549,4 +549,292 @@
 521/808 hc_attrsetvalue2.xml
 522/808 attrremovechild1.xml
 523/808 attrreplacechild1.xml
-0/497 tests failed; 311 tests were skipped
\ No newline at end of file
+
+#P"/home/david/2001/DOM-Test-Suite/tests/level2/core/" 
+524/808 attrgetownerelement01.xml
+525/808 attrgetownerelement02.xml
+526/808 attrgetownerelement03.xml
+527/808 attrgetownerelement04.xml
+528/808 attrgetownerelement05.xml
+529/808 createAttributeNS01.xml
+530/808 createAttributeNS02.xml
+531/808 createAttributeNS03.xml
+532/808 createAttributeNS04.xml
+533/808 createAttributeNS05.xml
+534/808 createAttributeNS06.xml
+535/808 createDocument01.xml
+536/808 createDocument02.xml
+537/808 createDocument03.xml
+538/808 createDocument04.xml
+539/808 createDocument05.xml
+540/808 createDocument06.xml
+541/808 createDocument07.xml
+542/808 createDocument08.xml
+543/808 createDocumentType01.xml
+544/808 createDocumentType02.xml
+545/808 createDocumentType03.xml
+546/808 createDocumentType04.xml
+547/808 createElementNS01.xml
+548/808 createElementNS02.xml
+549/808 createElementNS03.xml
+550/808 createElementNS04.xml
+551/808 createElementNS05.xml
+552/808 documentcreateattributeNS01.xml
+553/808 documentcreateattributeNS02.xml
+554/808 documentcreateattributeNS03.xml
+555/808 documentcreateattributeNS04.xml
+556/808 documentcreateattributeNS05.xml
+557/808 documentcreateattributeNS06.xml
+558/808 documentcreateattributeNS07.xml
+559/808 documentcreateelementNS01.xml
+560/808 documentcreateelementNS02.xml
+561/808 documentcreateelementNS05.xml
+562/808 documentcreateelementNS06.xml
+563/808 documentgetelementbyid01.xml
+564/808 documentgetelementsbytagnameNS01.xml
+565/808 documentgetelementsbytagnameNS02.xml
+566/808 documentgetelementsbytagnameNS03.xml
+567/808 documentgetelementsbytagnameNS04.xml
+568/808 documentgetelementsbytagnameNS05.xml
+569/808 documentimportnode01.xml
+570/808 documentimportnode02.xml
+571/808 documentimportnode03.xml
+572/808 documentimportnode04.xml
+573/808 documentimportnode05.xml
+574/808 documentimportnode06.xml
+575/808 documentimportnode07.xml
+576/808 documentimportnode08.xml
+577/808 documentimportnode09.xml
+578/808 documentimportnode10.xml
+579/808 documentimportnode11.xml
+580/808 documentimportnode12.xml
+581/808 documentimportnode13.xml
+582/808 documentimportnode14.xml
+583/808 documentimportnode15.xml
+584/808 documentimportnode17.xml
+585/808 documentimportnode18.xml
+586/808 documentimportnode19.xml
+587/808 documentimportnode20.xml
+implementationAttribute expandEntityReferences not supported, skipping test
+588/808 documentimportnode21.xml
+implementationAttribute expandEntityReferences not supported, skipping test
+589/808 documentimportnode22.xml
+590/808 documenttypeinternalSubset01.xml
+591/808 documenttypepublicid01.xml
+592/808 documenttypesystemid01.xml
+593/808 domimplementationcreatedocument03.xml
+594/808 domimplementationcreatedocument04.xml
+595/808 domimplementationcreatedocument05.xml
+596/808 domimplementationcreatedocument07.xml
+597/808 domimplementationcreatedocumenttype01.xml
+598/808 domimplementationcreatedocumenttype02.xml
+599/808 domimplementationcreatedocumenttype04.xml
+600/808 domimplementationfeaturecore.xml
+601/808 domimplementationfeaturexmlversion2.xml
+602/808 domimplementationhasfeature01.xml
+603/808 domimplementationhasfeature02.xml
+604/808 elementgetattributenodens01.xml
+605/808 elementgetattributenodens02.xml
+606/808 elementgetattributenodens03.xml
+607/808 elementgetattributens02.xml
+608/808 elementgetelementsbytagnamens02.xml
+609/808 elementgetelementsbytagnamens04.xml
+610/808 elementgetelementsbytagnamens05.xml
+611/808 elementhasattribute01.xml
+612/808 elementhasattribute02.xml
+613/808 elementhasattribute03.xml
+614/808 elementhasattribute04.xml
+615/808 elementhasattributens01.xml
+616/808 elementhasattributens02.xml
+617/808 elementhasattributens03.xml
+618/808 elementremoveattributens01.xml
+619/808 elementsetattributenodens01.xml
+620/808 elementsetattributenodens02.xml
+621/808 elementsetattributenodens03.xml
+622/808 elementsetattributenodens04.xml
+623/808 elementsetattributenodens05.xml
+624/808 elementsetattributenodens06.xml
+implementationAttribute expandEntityReferences not supported, skipping test
+625/808 elementsetattributens01.xml
+626/808 elementsetattributens02.xml
+627/808 elementsetattributens03.xml
+628/808 elementsetattributens04.xml
+629/808 elementsetattributens05.xml
+630/808 elementsetattributens08.xml
+631/808 elementsetattributensurinull.xml
+632/808 getAttributeNS01.xml
+633/808 getAttributeNS02.xml
+634/808 getAttributeNS03.xml
+635/808 getAttributeNS04.xml
+636/808 getAttributeNS05.xml
+637/808 getAttributeNodeNS01.xml
+638/808 getAttributeNodeNS02.xml
+639/808 getElementById01.xml
+640/808 getElementById02.xml
+641/808 getElementsByTagNameNS01.xml
+642/808 getElementsByTagNameNS02.xml
+643/808 getElementsByTagNameNS03.xml
+644/808 getElementsByTagNameNS04.xml
+645/808 getElementsByTagNameNS05.xml
+646/808 getElementsByTagNameNS06.xml
+647/808 getElementsByTagNameNS07.xml
+648/808 getElementsByTagNameNS08.xml
+649/808 getElementsByTagNameNS09.xml
+650/808 getElementsByTagNameNS10.xml
+651/808 getElementsByTagNameNS11.xml
+652/808 getElementsByTagNameNS12.xml
+653/808 getElementsByTagNameNS13.xml
+654/808 getElementsByTagNameNS14.xml
+655/808 getNamedItemNS01.xml
+656/808 getNamedItemNS02.xml
+657/808 getNamedItemNS03.xml
+658/808 getNamedItemNS04.xml
+659/808 hasAttribute01.xml
+660/808 hasAttribute02.xml
+661/808 hasAttribute03.xml
+662/808 hasAttribute04.xml
+663/808 hasAttributeNS01.xml
+664/808 hasAttributeNS02.xml
+665/808 hasAttributeNS03.xml
+666/808 hasAttributeNS04.xml
+667/808 hasAttributeNS05.xml
+668/808 hasAttributes01.xml
+669/808 hasAttributes02.xml
+670/808 hc_entitiesremovenameditemns1.xml
+671/808 hc_entitiessetnameditemns1.xml
+672/808 hc_namednodemapinvalidtype1.xml
+673/808 hc_nodedocumentfragmentnormalize1.xml
+674/808 hc_nodedocumentfragmentnormalize2.xml
+675/808 hc_notationsremovenameditemns1.xml
+676/808 hc_notationssetnameditemns1.xml
+677/808 importNode01.xml
+678/808 importNode02.xml
+679/808 importNode03.xml
+680/808 importNode04.xml
+681/808 importNode05.xml
+682/808 importNode06.xml
+683/808 importNode07.xml
+684/808 importNode08.xml
+685/808 importNode09.xml
+686/808 importNode10.xml
+687/808 importNode11.xml
+688/808 importNode12.xml
+689/808 importNode13.xml
+690/808 importNode14.xml
+691/808 importNode15.xml
+692/808 importNode16.xml
+693/808 importNode17.xml
+694/808 internalSubset01.xml
+695/808 isSupported01.xml
+696/808 isSupported02.xml
+697/808 isSupported04.xml
+698/808 isSupported05.xml
+699/808 isSupported06.xml
+700/808 isSupported07.xml
+701/808 isSupported09.xml
+702/808 isSupported10.xml
+703/808 isSupported11.xml
+704/808 isSupported12.xml
+705/808 isSupported13.xml
+706/808 isSupported14.xml
+707/808 localName01.xml
+708/808 localName02.xml
+709/808 localName03.xml
+710/808 localName04.xml
+711/808 namednodemapgetnameditemns01.xml
+712/808 namednodemapgetnameditemns02.xml
+713/808 namednodemapgetnameditemns03.xml
+714/808 namednodemapgetnameditemns04.xml
+715/808 namednodemapgetnameditemns05.xml
+716/808 namednodemapgetnameditemns06.xml
+717/808 namednodemapremovenameditemns01.xml
+718/808 namednodemapremovenameditemns02.xml
+719/808 namednodemapremovenameditemns03.xml
+720/808 namednodemapremovenameditemns04.xml
+721/808 namednodemapremovenameditemns05.xml
+722/808 namednodemapremovenameditemns06.xml
+723/808 namednodemapremovenameditemns07.xml
+724/808 namednodemapremovenameditemns08.xml
+725/808 namednodemapremovenameditemns09.xml
+726/808 namednodemapsetnameditemns01.xml
+727/808 namednodemapsetnameditemns02.xml
+728/808 namednodemapsetnameditemns03.xml
+729/808 namednodemapsetnameditemns04.xml
+730/808 namednodemapsetnameditemns05.xml
+731/808 namednodemapsetnameditemns06.xml
+732/808 namednodemapsetnameditemns07.xml
+733/808 namednodemapsetnameditemns08.xml
+734/808 namednodemapsetnameditemns09.xml
+735/808 namednodemapsetnameditemns10.xml
+736/808 namednodemapsetnameditemns11.xml
+737/808 namespaceURI01.xml
+738/808 namespaceURI02.xml
+739/808 namespaceURI03.xml
+740/808 namespaceURI04.xml
+741/808 nodegetlocalname03.xml
+742/808 nodegetnamespaceuri03.xml
+743/808 nodegetownerdocument01.xml
+744/808 nodegetownerdocument02.xml
+745/808 nodegetprefix03.xml
+746/808 nodehasattributes01.xml
+747/808 nodehasattributes02.xml
+748/808 nodehasattributes03.xml
+749/808 nodehasattributes04.xml
+750/808 nodeissupported01.xml
+751/808 nodeissupported02.xml
+752/808 nodeissupported03.xml
+753/808 nodeissupported04.xml
+754/808 nodeissupported05.xml
+755/808 nodenormalize01.xml
+756/808 nodesetprefix01.xml
+757/808 nodesetprefix02.xml
+758/808 nodesetprefix03.xml
+759/808 nodesetprefix04.xml
+760/808 nodesetprefix05.xml
+761/808 nodesetprefix06.xml
+762/808 nodesetprefix07.xml
+763/808 nodesetprefix08.xml
+764/808 nodesetprefix09.xml
+765/808 normalize01.xml
+766/808 ownerDocument01.xml
+767/808 ownerElement01.xml
+768/808 ownerElement02.xml
+769/808 prefix01.xml
+770/808 prefix02.xml
+771/808 prefix03.xml
+772/808 prefix04.xml
+773/808 prefix05.xml
+774/808 prefix06.xml
+775/808 prefix07.xml
+776/808 prefix08.xml
+777/808 prefix09.xml
+778/808 prefix10.xml
+779/808 prefix11.xml
+780/808 publicId01.xml
+781/808 removeAttributeNS01.xml
+782/808 removeAttributeNS02.xml
+783/808 removeNamedItemNS01.xml
+784/808 removeNamedItemNS02.xml
+785/808 removeNamedItemNS03.xml
+786/808 setAttributeNS01.xml
+787/808 setAttributeNS02.xml
+788/808 setAttributeNS03.xml
+789/808 setAttributeNS04.xml
+790/808 setAttributeNS05.xml
+791/808 setAttributeNS06.xml
+792/808 setAttributeNS07.xml
+793/808 setAttributeNS09.xml
+794/808 setAttributeNS10.xml
+795/808 setAttributeNodeNS01.xml
+796/808 setAttributeNodeNS02.xml
+implementationAttribute expandEntityReferences not supported, skipping test
+797/808 setAttributeNodeNS03.xml
+798/808 setAttributeNodeNS04.xml
+799/808 setAttributeNodeNS05.xml
+800/808 setNamedItemNS01.xml
+801/808 setNamedItemNS02.xml
+802/808 setNamedItemNS03.xml
+803/808 setNamedItemNS04.xml
+804/808 setNamedItemNS05.xml
+805/808 systemId01.xml
+153/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 19:19:19 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 20:19:19 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051204191919.6D7E888565@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv26350/test

Modified Files:
	domtest.lisp 
Log Message:
rein mit den dom 2 tests

Date: Sun Dec  4 20:19:18 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.5 cxml/test/domtest.lisp:1.6
--- cxml/test/domtest.lisp:1.5	Sun Dec  4 19:44:00 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 20:19:18 2005
@@ -685,7 +685,6 @@
 	     (suite1 (parse d1))
 	     (suite2 (parse d2)))
 	(run d1 suite1)
-	#+(or)
 	(run d2 suite2)))
     (format t "~&~D/~D tests failed; ~D test~:P were skipped"
             nfailed ntried (- n ntried))))



From dlichteblau at common-lisp.net  Sun Dec  4 19:25:09 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 20:25:09 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204192509.235ED88554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv26399

Modified Files:
	DOMTEST 
Log Message:
fehlermeldungen mitdribbeln

Date: Sun Dec  4 20:25:08 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.3 cxml/DOMTEST:1.4
--- cxml/DOMTEST:1.3	Sun Dec  4 20:19:16 2005
+++ cxml/DOMTEST	Sun Dec  4 20:25:08 2005
@@ -552,127 +552,359 @@
 
 #P"/home/david/2001/DOM-Test-Suite/tests/level2/core/" 
 524/808 attrgetownerelement01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)>
+             when called with arguments
+               (NIL).
 525/808 attrgetownerelement02.xml
+TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE L1:att="" {53109709}>.
 526/808 attrgetownerelement03.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 527/808 attrgetownerelement04.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 {539F31B1}> NIL T).
 528/808 attrgetownerelement05.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)>
+             when called with arguments
+               (NIL).
 529/808 createAttributeNS01.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 530/808 createAttributeNS02.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 531/808 createAttributeNS03.xml
 532/808 createAttributeNS04.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 533/808 createAttributeNS05.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrName|
+                                             DOMTEST-TESTS::|qualifiedName|
+                                             'DOMTEST::%EQUAL) failed.
 534/808 createAttributeNS06.xml
 535/808 createDocument01.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {531CC0C9}>.
 536/808 createDocument02.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {538DA9C1}>.
 537/808 createDocument03.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53A4E701}>.
 538/808 createDocument04.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53BFF001}>.
 539/808 createDocument05.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53DC8AE1}>.
 540/808 createDocument06.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53EF8E99}>.
 541/808 createDocument07.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {540325C9}>.
 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
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|nodeName|
+                                             #(112 114 101 102 105 120 58 109
+                                               121 68 111 99)
+                                             'DOMTEST::%EQUAL) failed.
 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
+TEST FAILED: expected exception NAMESPACE_ERR
 548/808 createElementNS02.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 549/808 createElementNS03.xml
 550/808 createElementNS04.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 551/808 createElementNS05.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementName|
+                                             DOMTEST-TESTS::|qualifiedName|
+                                             'DOMTEST::%EQUAL) failed.
 552/808 documentcreateattributeNS01.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|nodeName|
+                                             #(116 101 115 116)
+                                             'DOMTEST::%EQUAL) failed.
 553/808 documentcreateattributeNS02.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 554/808 documentcreateattributeNS03.xml
 555/808 documentcreateattributeNS04.xml
+TEST FAILED: The variable CXML::*CTX* is unbound.
 556/808 documentcreateattributeNS05.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53B785C9}>.
 557/808 documentcreateattributeNS06.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53CB6D11}>.
 558/808 documentcreateattributeNS07.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 559/808 documentcreateelementNS01.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|nodeName|
+                                             #(88 77 76 58 88 77 76)
+                                             'DOMTEST::%EQUAL) failed.
 560/808 documentcreateelementNS02.xml
+TEST FAILED: expected exception INVALID_CHARACTER_ERR
 561/808 documentcreateelementNS05.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 562/808 documentcreateelementNS06.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {526F54C9}>.
 563/808 documentgetelementbyid01.xml
 564/808 documentgetelementsbytagnameNS01.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53794409}>.
 565/808 documentgetelementsbytagnameNS02.xml
+TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed.
 566/808 documentgetelementsbytagnameNS03.xml
 567/808 documentgetelementsbytagnameNS04.xml
 568/808 documentgetelementsbytagnameNS05.xml
 569/808 documentimportnode01.xml
 570/808 documentimportnode02.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 {541961B1}> NIL NIL).
 571/808 documentimportnode03.xml
 572/808 documentimportnode04.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {52E83991}>.
 573/808 documentimportnode05.xml
+TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {538E9D39}>.
 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 {53A36719}>
+                #<DOM-IMPL::DOCUMENT {53A36719}> 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 {53BB2BD9}>
+                #<DOM-IMPL::DOCUMENT-TYPE {53BB3509}> 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 {53CEEF99}>
+                #<DOM-IMPL::DOCUMENT-TYPE {53D06431}> T).
 577/808 documentimportnode09.xml
 578/808 documentimportnode10.xml
 579/808 documentimportnode11.xml
 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).
 583/808 documentimportnode15.xml
 584/808 documentimportnode17.xml
 585/808 documentimportnode18.xml
 586/808 documentimportnode19.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53DB25C9}>.
 587/808 documentimportnode20.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 588/808 documentimportnode21.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 589/808 documentimportnode22.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {541F0FA9}>.
 590/808 documenttypeinternalSubset01.xml
 591/808 documenttypepublicid01.xml
 592/808 documenttypesystemid01.xml
 593/808 domimplementationcreatedocument03.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {5395B5E1}>.
 594/808 domimplementationcreatedocument04.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53ABC5F9}>.
 595/808 domimplementationcreatedocument05.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53C2C3C1}>.
 596/808 domimplementationcreatedocument07.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {53D6DDA1}>.
 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
+TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 602/808 domimplementationhasfeature01.xml
+TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
 603/808 domimplementationhasfeature02.xml
 604/808 elementgetattributenodens01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
+             when called with arguments
+               (NIL).
 605/808 elementgetattributenodens02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
+             when called with arguments
+               (NIL).
 606/808 elementgetattributenodens03.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
+             when called with arguments
+               (NIL).
 607/808 elementgetattributens02.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
+                                             #(100 101 102 97 117 108 116 86 97
+                                               108)
+                                             'DOMTEST::%EQUAL) failed.
 608/808 elementgetelementsbytagnamens02.xml
 609/808 elementgetelementsbytagnamens04.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 610/808 elementgetelementsbytagnamens05.xml
 611/808 elementhasattribute01.xml
 612/808 elementhasattribute02.xml
 613/808 elementhasattribute03.xml
 614/808 elementhasattribute04.xml
 615/808 elementhasattributens01.xml
+TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 616/808 elementhasattributens02.xml
+TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 617/808 elementhasattributens03.xml
+TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 618/808 elementremoveattributens01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
+             when called with arguments
+               (#<DOM-IMPL::ELEMENT elem {54226FC9}> NIL).
 619/808 elementsetattributenodens01.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 620/808 elementsetattributenodens02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:CLONE-NODE (1)>
+             when called with arguments
+               (NIL T).
 621/808 elementsetattributenodens03.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NODE-NS (1)>
+             when called with arguments
+               (#<DOM-IMPL::ELEMENT address {53896FE9}> NIL).
 622/808 elementsetattributenodens04.xml
 623/808 elementsetattributenodens05.xml
 624/808 elementsetattributenodens06.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 625/808 elementsetattributens01.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 626/808 elementsetattributens02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)>
+             when called with arguments
+               (NIL
+                #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 114 103
+                  47 68 79 77 47 84 101 115 116 47 115 101 116 65 116 116 114
+                  105 98 117 116 101 78 83)
+                #(116 104 105 115 58 115 116 114 101 101 116)
+                #(83 105 108 118 101 114 32 83 116 114 101 101 116)).
 627/808 elementsetattributens03.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 628/808 elementsetattributens04.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 629/808 elementsetattributens05.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 630/808 elementsetattributens08.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 631/808 elementsetattributensurinull.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 632/808 getAttributeNS01.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
+                                             #(68 73 83 84 82 73 67 84)
+                                             'DOMTEST::%EQUAL) failed.
 633/808 getAttributeNS02.xml
 634/808 getAttributeNS03.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
+             when called with arguments
+               (#<DOM-IMPL::ELEMENT emp:address {53CAE8C1}> NIL).
 635/808 getAttributeNS04.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
+                                             #(78 101 119 86 97 108 117 101)
+                                             'DOMTEST::%EQUAL) failed.
 636/808 getAttributeNS05.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
+                                             #(89 101 115)
+                                             'DOMTEST::%EQUAL) failed.
 637/808 getAttributeNodeNS01.xml
 638/808 getAttributeNodeNS02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 639/808 getElementById01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
+             when called with arguments
+               (NIL).
 640/808 getElementById02.xml
 641/808 getElementsByTagNameNS01.xml
+TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 37) failed.
 642/808 getElementsByTagNameNS02.xml
+TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 5) failed.
 643/808 getElementsByTagNameNS03.xml
 644/808 getElementsByTagNameNS04.xml
 645/808 getElementsByTagNameNS05.xml
@@ -680,12 +912,17 @@
 647/808 getElementsByTagNameNS07.xml
 648/808 getElementsByTagNameNS08.xml
 649/808 getElementsByTagNameNS09.xml
+TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 5) failed.
 650/808 getElementsByTagNameNS10.xml
 651/808 getElementsByTagNameNS11.xml
 652/808 getElementsByTagNameNS12.xml
 653/808 getElementsByTagNameNS13.xml
 654/808 getElementsByTagNameNS14.xml
 655/808 getNamedItemNS01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 656/808 getNamedItemNS02.xml
 657/808 getNamedItemNS03.xml
 658/808 getNamedItemNS04.xml
@@ -697,7 +934,9 @@
 664/808 hasAttributeNS02.xml
 665/808 hasAttributeNS03.xml
 666/808 hasAttributeNS04.xml
+TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 667/808 hasAttributeNS05.xml
+TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 668/808 hasAttributes01.xml
 669/808 hasAttributes02.xml
 670/808 hc_entitiesremovenameditemns1.xml
@@ -705,6 +944,7 @@
 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
@@ -714,127 +954,292 @@
 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
 687/808 importNode11.xml
+TEST FAILED: NOT_SUPPORTED_ERR (9):
+not implemented
 688/808 importNode12.xml
 689/808 importNode13.xml
 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 {5196FF99}>
+                #<DOM-IMPL::DOCUMENT-TYPE {51999959}> 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 {51B22F99}>
+                #<DOM-IMPL::DOCUMENT {51B68F99}> NIL).
 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
 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
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|localName|
+                                             #(100 111 109 101 115 116 105 99)
+                                             'DOMTEST::%EQUAL) failed.
 708/808 localName02.xml
 709/808 localName03.xml
 710/808 localName04.xml
 711/808 namednodemapgetnameditemns01.xml
 712/808 namednodemapgetnameditemns02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 713/808 namednodemapgetnameditemns03.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 714/808 namednodemapgetnameditemns04.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 715/808 namednodemapgetnameditemns05.xml
 716/808 namednodemapgetnameditemns06.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 717/808 namednodemapremovenameditemns01.xml
+TEST FAILED: NOT_FOUND_ERR (8):
+#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {521C36B9}>
 718/808 namednodemapremovenameditemns02.xml
+TEST FAILED: NOT_FOUND_ERR (8):
+#(100 101 102 97 117 108 116 65 116 116
+  114) not found in #<ATTRIBUTE-NODE-MAP {52720F49}>
 719/808 namednodemapremovenameditemns03.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 720/808 namednodemapremovenameditemns04.xml
+TEST FAILED: NOT_FOUND_ERR (8):
+#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {52A22B59}>
 721/808 namednodemapremovenameditemns05.xml
 722/808 namednodemapremovenameditemns06.xml
 723/808 namednodemapremovenameditemns07.xml
 724/808 namednodemapremovenameditemns08.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
+             when called with arguments
+               (#<DOM-IMPL::ELEMENT emp:address {51B0FEC1}> NIL).
 725/808 namednodemapremovenameditemns09.xml
+TEST FAILED: NOT_FOUND_ERR (8):
+#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {51E00841}>
 726/808 namednodemapsetnameditemns01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 727/808 namednodemapsetnameditemns02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 728/808 namednodemapsetnameditemns03.xml
+TEST FAILED: NOT_FOUND_ERR (8):
+#(115 116 114 101 101 116) not found in #<ATTRIBUTE-NODE-MAP {52779EC1}>
 729/808 namednodemapsetnameditemns04.xml
+TEST FAILED: When attempting to
+             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
+             DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {52958B99}>.
 730/808 namednodemapsetnameditemns05.xml
 731/808 namednodemapsetnameditemns06.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 732/808 namednodemapsetnameditemns07.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 733/808 namednodemapsetnameditemns08.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 734/808 namednodemapsetnameditemns09.xml
 735/808 namednodemapsetnameditemns10.xml
 736/808 namednodemapsetnameditemns11.xml
 737/808 namespaceURI01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 738/808 namespaceURI02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 739/808 namespaceURI03.xml
 740/808 namespaceURI04.xml
 741/808 nodegetlocalname03.xml
 742/808 nodegetnamespaceuri03.xml
+TEST FAILED: The assertion (NULL DOMTEST-TESTS::|attrNSURINull|) failed.
 743/808 nodegetownerdocument01.xml
 744/808 nodegetownerdocument02.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {51C7BA61}>.
 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 {522E1CB1}>).
 748/808 nodehasattributes03.xml
 749/808 nodehasattributes04.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {5291D5C9}>.
 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
 755/808 nodenormalize01.xml
+TEST FAILED: When attempting to
+             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
+                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
+             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
+             #<DOM-IMPL::DOCUMENT {527AB001}>.
 756/808 nodesetprefix01.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 757/808 nodesetprefix02.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 758/808 nodesetprefix03.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 759/808 nodesetprefix04.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 760/808 nodesetprefix05.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 761/808 nodesetprefix06.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 762/808 nodesetprefix07.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 763/808 nodesetprefix08.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 764/808 nodesetprefix09.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 765/808 normalize01.xml
 766/808 ownerDocument01.xml
 767/808 ownerElement01.xml
 768/808 ownerElement02.xml
+TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE newAttribute="" {52D293F9}>.
 769/808 prefix01.xml
 770/808 prefix02.xml
 771/808 prefix03.xml
 772/808 prefix04.xml
 773/808 prefix05.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 774/808 prefix06.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 775/808 prefix07.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 776/808 prefix08.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 777/808 prefix09.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 778/808 prefix10.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 779/808 prefix11.xml
+TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
 780/808 publicId01.xml
 781/808 removeAttributeNS01.xml
 782/808 removeAttributeNS02.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
+             when called with arguments
+               (#<DOM-IMPL::ELEMENT emp:address {520D35E1}> NIL).
 783/808 removeNamedItemNS01.xml
+TEST FAILED: NOT_FOUND_ERR (8):
+#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {522F4FF1}>
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
+TEST FAILED: NOT_FOUND_ERR (8):
+#(78 73 76) not found in #<ATTRIBUTE-NODE-MAP {529C3E21}>
 786/808 setAttributeNS01.xml
+TEST FAILED: expected exception INVALID_CHARACTER_ERR
 787/808 setAttributeNS02.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 788/808 setAttributeNS03.xml
 789/808 setAttributeNS04.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
+                                             #(110 101 119 86 97 108 117 101)
+                                             'DOMTEST::%EQUAL) failed.
 790/808 setAttributeNS05.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
+                                             #(60 110 101 119 86 97 108 117 101
+                                               62)
+                                             'DOMTEST::%EQUAL) failed.
 791/808 setAttributeNS06.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 792/808 setAttributeNS07.xml
+TEST FAILED: expected exception NAMESPACE_ERR
 793/808 setAttributeNS09.xml
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
+                                             #(110 101 119 86 97 108 117 101)
+                                             'DOMTEST::%EQUAL) failed.
 794/808 setAttributeNS10.xml
 795/808 setAttributeNodeNS01.xml
 796/808 setAttributeNodeNS02.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 797/808 setAttributeNodeNS03.xml
 798/808 setAttributeNodeNS04.xml
+TEST FAILED: Argument Y is not a NUMBER: #\x
 799/808 setAttributeNodeNS05.xml
 800/808 setNamedItemNS01.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 801/808 setNamedItemNS02.xml
 802/808 setNamedItemNS03.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
+             when called with arguments
+               (NIL).
 803/808 setNamedItemNS04.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 804/808 setNamedItemNS05.xml
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
+             when called with arguments
+               (NIL).
 805/808 systemId01.xml
 153/763 tests failed; 45 tests were skipped



From dlichteblau at common-lisp.net  Sun Dec  4 19:25:10 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 20:25:10 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051204192510.76A728855E@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv26399/test

Modified Files:
	domtest.lisp 
Log Message:
fehlermeldungen mitdribbeln

Date: Sun Dec  4 20:25:09 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.6 cxml/test/domtest.lisp:1.7
--- cxml/test/domtest.lisp:1.6	Sun Dec  4 20:19:18 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 20:25:09 2005
@@ -678,7 +678,7 @@
 				 (funcall (compile nil lisp)))
 			     (serious-condition (c)
 			       (incf nfailed)
-			       (warn "test failed: ~A" c))))))
+			       (format t "~&TEST FAILED: ~A~&" c))))))
 		     (incf i)))))))
       (let* ((d1 (merge-pathnames "tests/level1/core/" *directory*))
 	     (d2 (merge-pathnames "tests/level2/core/" *directory*))



From dlichteblau at common-lisp.net  Sun Dec  4 20:35:15 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 21:35:15 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204203515.9991788545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv31930

Modified Files:
	DOMTEST 
Log Message:
am dom rumgeschraubt und sax-defaults geaendert
vielleicht teilweise verkehrt

Date: Sun Dec  4 21:35:14 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.4 cxml/DOMTEST:1.5
--- cxml/DOMTEST:1.4	Sun Dec  4 20:25:08 2005
+++ cxml/DOMTEST	Sun Dec  4 21:35:13 2005
@@ -557,14 +557,12 @@
              when called with arguments
                (NIL).
 525/808 attrgetownerelement02.xml
-TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE L1:att="" {53109709}>.
 526/808 attrgetownerelement03.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
 527/808 attrgetownerelement04.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 {539F31B1}> NIL T).
+               (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL T).
 528/808 attrgetownerelement05.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)>
@@ -586,37 +584,37 @@
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {531CC0C9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 536/808 createDocument02.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {538DA9C1}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 537/808 createDocument03.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53A4E701}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 538/808 createDocument04.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53BFF001}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 539/808 createDocument05.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53DC8AE1}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 540/808 createDocument06.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53EF8E99}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 541/808 createDocument07.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {540325C9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 542/808 createDocument08.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)>
@@ -652,7 +650,6 @@
                                              #(116 101 115 116)
                                              'DOMTEST::%EQUAL) failed.
 553/808 documentcreateattributeNS02.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
 554/808 documentcreateattributeNS03.xml
 555/808 documentcreateattributeNS04.xml
 TEST FAILED: The variable CXML::*CTX* is unbound.
@@ -661,13 +658,13 @@
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53B785C9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 557/808 documentcreateattributeNS06.xml
 TEST FAILED: When attempting to
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53CB6D11}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 558/808 documentcreateattributeNS07.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 559/808 documentcreateelementNS01.xml
@@ -683,13 +680,13 @@
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {526F54C9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 563/808 documentgetelementbyid01.xml
 564/808 documentgetelementsbytagnameNS01.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53794409}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 565/808 documentgetelementsbytagnameNS02.xml
 TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed.
 566/808 documentgetelementsbytagnameNS03.xml
@@ -700,34 +697,34 @@
 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 {541961B1}> NIL NIL).
+               (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL NIL).
 571/808 documentimportnode03.xml
 572/808 documentimportnode04.xml
 TEST FAILED: When attempting to
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {52E83991}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 573/808 documentimportnode05.xml
-TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {538E9D39}>.
+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 {53A36719}>
-                #<DOM-IMPL::DOCUMENT {53A36719}> 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 {53BB2BD9}>
-                #<DOM-IMPL::DOCUMENT-TYPE {53BB3509}> 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 {53CEEF99}>
-                #<DOM-IMPL::DOCUMENT-TYPE {53D06431}> T).
+               (#<DOM-IMPL::DOCUMENT {xxxxxxxx}>
+                #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T).
 577/808 documentimportnode09.xml
 578/808 documentimportnode10.xml
 579/808 documentimportnode11.xml
@@ -746,7 +743,7 @@
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53DB25C9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 587/808 documentimportnode20.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 588/808 documentimportnode21.xml
@@ -756,7 +753,7 @@
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {541F0FA9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 590/808 documenttypeinternalSubset01.xml
 591/808 documenttypepublicid01.xml
 592/808 documenttypesystemid01.xml
@@ -764,22 +761,22 @@
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {5395B5E1}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 594/808 domimplementationcreatedocument04.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53ABC5F9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 595/808 domimplementationcreatedocument05.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53C2C3C1}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 596/808 domimplementationcreatedocument07.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {53D6DDA1}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 597/808 domimplementationcreatedocumenttype01.xml
 598/808 domimplementationcreatedocumenttype02.xml
 599/808 domimplementationcreatedocumenttype04.xml
@@ -813,7 +810,7 @@
                                              'DOMTEST::%EQUAL) failed.
 608/808 elementgetelementsbytagnamens02.xml
 609/808 elementgetelementsbytagnamens04.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 1) failed.
 610/808 elementgetelementsbytagnamens05.xml
 611/808 elementhasattribute01.xml
 612/808 elementhasattribute02.xml
@@ -829,9 +826,12 @@
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
              when called with arguments
-               (#<DOM-IMPL::ELEMENT elem {54226FC9}> NIL).
+               (#<DOM-IMPL::ELEMENT elem {xxxxxxxx}> NIL).
 619/808 elementsetattributenodens01.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 620/808 elementsetattributenodens02.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:CLONE-NODE (1)>
@@ -841,13 +841,16 @@
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NODE-NS (1)>
              when called with arguments
-               (#<DOM-IMPL::ELEMENT address {53896FE9}> NIL).
+               (#<DOM-IMPL::ELEMENT address {xxxxxxxx}> NIL).
 622/808 elementsetattributenodens04.xml
 623/808 elementsetattributenodens05.xml
 624/808 elementsetattributenodens06.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 625/808 elementsetattributens01.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 626/808 elementsetattributens02.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)>
@@ -864,11 +867,10 @@
              when called with arguments
                (NIL).
 628/808 elementsetattributens04.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
 629/808 elementsetattributens05.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: expected exception NAMESPACE_ERR
 630/808 elementsetattributens08.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: expected exception NAMESPACE_ERR
 631/808 elementsetattributensurinull.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 632/808 getAttributeNS01.xml
@@ -880,7 +882,7 @@
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
              when called with arguments
-               (#<DOM-IMPL::ELEMENT emp:address {53CAE8C1}> NIL).
+               (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
 635/808 getAttributeNS04.xml
 TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
                                              #(78 101 119 86 97 108 117 101)
@@ -969,14 +971,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 {5196FF99}>
-                #<DOM-IMPL::DOCUMENT-TYPE {51999959}> 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 {51B22F99}>
-                #<DOM-IMPL::DOCUMENT {51B68F99}> 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
@@ -995,9 +997,6 @@
 706/808 isSupported14.xml
 TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 707/808 localName01.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|localName|
-                                             #(100 111 109 101 115 116 105 99)
-                                             'DOMTEST::%EQUAL) failed.
 708/808 localName02.xml
 709/808 localName03.xml
 710/808 localName04.xml
@@ -1024,12 +1023,11 @@
              when called with arguments
                (NIL).
 717/808 namednodemapremovenameditemns01.xml
-TEST FAILED: NOT_FOUND_ERR (8):
-#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {521C36B9}>
 718/808 namednodemapremovenameditemns02.xml
-TEST FAILED: NOT_FOUND_ERR (8):
-#(100 101 102 97 117 108 116 65 116 116
-  114) not found in #<ATTRIBUTE-NODE-MAP {52720F49}>
+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
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
@@ -1037,7 +1035,7 @@
                (NIL).
 720/808 namednodemapremovenameditemns04.xml
 TEST FAILED: NOT_FOUND_ERR (8):
-#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {52A22B59}>
+#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}>
 721/808 namednodemapremovenameditemns05.xml
 722/808 namednodemapremovenameditemns06.xml
 723/808 namednodemapremovenameditemns07.xml
@@ -1045,10 +1043,8 @@
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
              when called with arguments
-               (#<DOM-IMPL::ELEMENT emp:address {51B0FEC1}> NIL).
+               (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
 725/808 namednodemapremovenameditemns09.xml
-TEST FAILED: NOT_FOUND_ERR (8):
-#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {51E00841}>
 726/808 namednodemapsetnameditemns01.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
@@ -1060,13 +1056,15 @@
              when called with arguments
                (NIL).
 728/808 namednodemapsetnameditemns03.xml
-TEST FAILED: NOT_FOUND_ERR (8):
-#(115 116 114 101 101 116) not found in #<ATTRIBUTE-NODE-MAP {52779EC1}>
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
+             when called with arguments
+               (NIL).
 729/808 namednodemapsetnameditemns04.xml
 TEST FAILED: When attempting to
              set the slot's value to NIL (SETF of SLOT-VALUE), the slot
              DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {52958B99}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 730/808 namednodemapsetnameditemns05.xml
 731/808 namednodemapsetnameditemns06.xml
 TEST FAILED: There is no applicable method for the generic function
@@ -1107,21 +1105,21 @@
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {51C7BA61}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 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 {522E1CB1}>).
+               (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>).
 748/808 nodehasattributes03.xml
 749/808 nodehasattributes04.xml
 TEST FAILED: When attempting to
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {5291D5C9}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 750/808 nodeissupported01.xml
 TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
 751/808 nodeissupported02.xml
@@ -1134,62 +1132,68 @@
              set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
                           114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
              the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {527AB001}>.
+             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 756/808 nodesetprefix01.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+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 function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
+             when called with arguments
+               (NIL).
 758/808 nodesetprefix03.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NAMESPACE_ERR
 759/808 nodesetprefix04.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: There is no applicable method for the generic function
+               #<STANDARD-GENERIC-FUNCTION (SETF DOM:PREFIX) (1)>
+             when called with arguments
+               (#(116 101 115 116) NIL).
 760/808 nodesetprefix05.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: expected exception NAMESPACE_ERR
 761/808 nodesetprefix06.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: expected exception NAMESPACE_ERR
 762/808 nodesetprefix07.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: expected exception NAMESPACE_ERR
 763/808 nodesetprefix08.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NAMESPACE_ERR
 764/808 nodesetprefix09.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
+TEST FAILED: expected exception INVALID_CHARACTER_ERR
 765/808 normalize01.xml
 766/808 ownerDocument01.xml
 767/808 ownerElement01.xml
 768/808 ownerElement02.xml
-TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE newAttribute="" {52D293F9}>.
 769/808 prefix01.xml
 770/808 prefix02.xml
 771/808 prefix03.xml
 772/808 prefix04.xml
 773/808 prefix05.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NAMESPACE_ERR
 774/808 prefix06.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception INVALID_CHARACTER_ERR
 775/808 prefix07.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NAMESPACE_ERR
 776/808 prefix08.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
 777/808 prefix09.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NAMESPACE_ERR
 778/808 prefix10.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NAMESPACE_ERR
 779/808 prefix11.xml
-TEST FAILED: The function (SETF DOM:PREFIX) is undefined.
+TEST FAILED: expected exception NAMESPACE_ERR
 780/808 publicId01.xml
 781/808 removeAttributeNS01.xml
 782/808 removeAttributeNS02.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
              when called with arguments
-               (#<DOM-IMPL::ELEMENT emp:address {520D35E1}> NIL).
+               (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
 783/808 removeNamedItemNS01.xml
-TEST FAILED: NOT_FOUND_ERR (8):
-#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {522F4FF1}>
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
 TEST FAILED: NOT_FOUND_ERR (8):
-#(78 73 76) not found in #<ATTRIBUTE-NODE-MAP {529C3E21}>
+#(78 73 76) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}>
 786/808 setAttributeNS01.xml
 TEST FAILED: expected exception INVALID_CHARACTER_ERR
 787/808 setAttributeNS02.xml
@@ -1218,7 +1222,6 @@
 implementationAttribute expandEntityReferences not supported, skipping test
 797/808 setAttributeNodeNS03.xml
 798/808 setAttributeNodeNS04.xml
-TEST FAILED: Argument Y is not a NUMBER: #\x
 799/808 setAttributeNodeNS05.xml
 800/808 setNamedItemNS01.xml
 TEST FAILED: There is no applicable method for the generic function
@@ -1242,4 +1245,4 @@
              when called with arguments
                (NIL).
 805/808 systemId01.xml
-153/763 tests failed; 45 tests were skipped
\ No newline at end of file
+143/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 20:35:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 21:35:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-builder.lisp
	cxml/dom/dom-impl.lisp 
Message-ID: <20051204203518.1572488545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv31930/dom

Modified Files:
	dom-builder.lisp dom-impl.lisp 
Log Message:
am dom rumgeschraubt und sax-defaults geaendert
vielleicht teilweise verkehrt

Date: Sun Dec  4 21:35:15 2005
Author: dlichteblau

Index: cxml/dom/dom-builder.lisp
diff -u cxml/dom/dom-builder.lisp:1.4 cxml/dom/dom-builder.lisp:1.5
--- cxml/dom/dom-builder.lisp:1.4	Sun Dec  4 19:43:54 2005
+++ cxml/dom/dom-builder.lisp	Sun Dec  4 21:35:15 2005
@@ -22,6 +22,10 @@
   (vector-push-extend new-element vector (max 1 (array-dimension vector 0))))
 
 (defmethod sax:start-document ((handler dom-builder))
+  (when (and sax:*namespace-processing*
+	     (not (and sax:*include-xmlns-attributes*
+		       sax:*use-xmlns-namespace*)))
+    (error "SAX configuration is incompatible with DOM: *namespace-processing* is activated, but *include-xmlns-attributes* or *use-xmlns-namespace* are not"))
   (let ((document (make-instance 'dom-impl::document)))
     (setf (slot-value document 'dom-impl::owner) nil
 	  (slot-value document 'dom-impl::doc-type) nil)
@@ -86,7 +90,9 @@
           (anodes '()))
       (dolist (attr attributes)
 	(let ((anode
-               (dom:create-attribute document (sax:attribute-qname attr)))
+               (dom:create-attribute-ns document
+					(sax:attribute-namespace-uri attr)
+					(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.5 cxml/dom/dom-impl.lisp:1.6
--- cxml/dom/dom-impl.lisp:1.5	Sun Dec  4 19:43:56 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 21:35:15 2005
@@ -39,7 +39,7 @@
 (defmethod dom:namespace-uri ((node node)) nil)
 
 (defclass namespace-mixin ()
-  ((prefix        :initarg :prefix        :reader dom:prefix)
+  ((prefix        :initarg :prefix        :accessor dom:prefix)
    (local-name    :initarg :local-name    :reader dom:local-name)
    (namespace-uri :initarg :namespace-uri :reader dom:namespace-uri)))
 
@@ -267,11 +267,11 @@
 	(cxml:well-formedness-violation (c)
 	  (dom-error :NAMESPACE_ERR "~A" c)))
     (when prefix
-      (when (and (rod= prefix "xml")
-		 (not (rod= uri "http://www.w3.org/XML/1998/namespace")))
+      (when (and (rod= prefix #"xml")
+		 (not (rod= uri #"http://www.w3.org/XML/1998/namespace")))
 	(dom-error :NAMESPACE_ERR "invalid uri for prefix `xml'"))
-      (when (and (rod= prefix "xmlns")
-		 (not (rod= uri "http://www.w3.org/2000/xmlns/")))
+      (when (and (rod= prefix #"xmlns")
+		 (not (rod= uri #"http://www.w3.org/2000/xmlns/")))
 	(dom-error :NAMESPACE_ERR "invalid uri for prefix `xmlns'")))
     (values prefix local-name)))
 
@@ -335,6 +335,7 @@
     :prefix nil
     :namespace-uri nil
     :specified-p t
+    :owner-element nil
     :owner document))
 
 (defmethod dom:create-attribute-ns ((document document) uri qname)
@@ -348,6 +349,7 @@
       :local-name local-name
       :prefix prefix
       :specified-p t
+      :owner-element nil
       :owner document)))
 
 (defmethod dom:create-entity-reference ((document document) name)
@@ -361,7 +363,7 @@
 (defmethod get-elements-by-tag-name-internal (node tag-name)
   (setf tag-name (rod tag-name))
   (let ((result (make-node-list))
-	(wild-p (rod= tag-name '#.(string-rod "*"))))
+	(wild-p (rod= tag-name #"*")))
     (labels ((walk (n)
 	       (dovector (c (dom:child-nodes n))
 		 (when (dom:element-p c)
@@ -375,8 +377,8 @@
   (setf uri (rod uri))
   (setf lname (rod lname))
   (let ((result (make-node-list))
-	(wild-uri-p (rod= uri '#.(string-rod "*")))
-	(wild-lname-p (rod= lname '#.(string-rod "*"))))
+	(wild-uri-p (rod= uri #"*"))
+	(wild-lname-p (rod= lname #"*")))
     (labels ((walk (n)
 	       (dovector (c (dom:child-nodes n))
 		 (when (dom:element-p c)
@@ -1030,6 +1032,12 @@
 (defmethod dom:remove-named-item :after ((self attribute-node-map) name)
   (maybe-add-default-attribute (slot-value self 'element) name))
 
+(defmethod dom:remove-named-item-ns
+    ((self attribute-node-map) uri lname)
+  (let ((k (call-next-method)))
+    (maybe-add-default-attribute (slot-value self 'element) (dom:node-name k))
+    k))
+
 (defmethod dom:get-elements-by-tag-name ((element element) name)
   (assert-writeable element)
   (get-elements-by-tag-name-internal element name))
@@ -1039,6 +1047,10 @@
   (get-elements-by-tag-name-internal-ns element uri lname))
 
 (defmethod dom:set-named-item :after ((self attribute-node-map) arg)
+  (setf (slot-value arg 'owner-element)
+	(slot-value self 'element)))
+
+(defmethod dom:set-named-item-ns :after ((self attribute-node-map) arg)
   (setf (slot-value arg 'owner-element)
 	(slot-value self 'element)))
 



From dlichteblau at common-lisp.net  Sun Dec  4 20:35:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 21:35:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051204203518.1806688554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv31930/test

Modified Files:
	domtest.lisp 
Log Message:
am dom rumgeschraubt und sax-defaults geaendert
vielleicht teilweise verkehrt

Date: Sun Dec  4 21:35:17 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.7 cxml/test/domtest.lisp:1.8
--- cxml/test/domtest.lisp:1.7	Sun Dec  4 20:25:09 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 21:35:17 2005
@@ -689,9 +689,13 @@
     (format t "~&~D/~D tests failed; ~D test~:P were skipped"
             nfailed ntried (- n ntried))))
 
-(defun run-test (*directory* href)
-  (let* ((test-directory (merge-pathnames "tests/level1/core/" *directory*))
-         (lisp (slurp-test (merge-pathnames href test-directory)))
+(defun run-test (*directory* level href)
+  (let* ((test-directory
+	  (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))
          (cxml::*validate* nil))
     (print lisp)
     (when lisp



From dlichteblau at common-lisp.net  Sun Dec  4 20:35:27 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 21:35:27 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/sax-handler.lisp 
Message-ID: <20051204203527.9075488554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv31930/xml

Modified Files:
	sax-handler.lisp 
Log Message:
am dom rumgeschraubt und sax-defaults geaendert
vielleicht teilweise verkehrt

Date: Sun Dec  4 21:35:24 2005
Author: dlichteblau

Index: cxml/xml/sax-handler.lisp
diff -u cxml/xml/sax-handler.lisp:1.2 cxml/xml/sax-handler.lisp:1.3
--- cxml/xml/sax-handler.lisp:1.2	Sun Dec  4 19:44:05 2005
+++ cxml/xml/sax-handler.lisp	Sun Dec  4 21:35:18 2005
@@ -94,7 +94,7 @@
 related options.")
 
 ;; The http://xml.org/sax/features/namespace-prefixes property.
-(defvar *include-xmlns-attributes* nil
+(defvar *include-xmlns-attributes* t
   "If non-nil, namespace declarations are reported as normal
 attributes.
 
@@ -104,7 +104,7 @@
 See also `*use-xmlns-namespace*', and `start-element' for a detailed
 description of the consequences of setting this variable.")
 
-(defvar *use-xmlns-namespace* nil
+(defvar *use-xmlns-namespace* t
   "If this variable is nil (the default), attributes with a name like
 'xmlns:x' are not considered to be in a namespace, following the
 'Namespaces in XML' specification.



From dlichteblau at common-lisp.net  Sun Dec  4 20:46:30 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 21:46:30 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204204630.5E84188554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv562/dom

Modified Files:
	dom-impl.lisp 
Log Message:
(setf dom:prefix) korrigiert

Date: Sun Dec  4 21:46:29 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.6 cxml/dom/dom-impl.lisp:1.7
--- cxml/dom/dom-impl.lisp:1.6	Sun Dec  4 21:35:15 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 21:46:29 2005
@@ -39,9 +39,14 @@
 (defmethod dom:namespace-uri ((node node)) nil)
 
 (defclass namespace-mixin ()
-  ((prefix        :initarg :prefix        :accessor dom:prefix)
+  ((prefix        :initarg :prefix        :reader dom:prefix)
    (local-name    :initarg :local-name    :reader dom:local-name)
    (namespace-uri :initarg :namespace-uri :reader dom:namespace-uri)))
+
+(defmethod (setf dom:prefix) (newval (node namespace-mixin))
+  (assert-writeable node)
+  (safe-split-qname (concatenate 'rod newval #":foo") (dom:namespace-uri node))
+  (setf (slot-value node 'prefix) newval))
 
 (defclass document (node)
   ((doc-type    :initarg :doc-type     :reader dom:doctype)



From dlichteblau at common-lisp.net  Sun Dec  4 20:46:29 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 21:46:29 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204204629.0767D88545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv562

Modified Files:
	DOMTEST 
Log Message:
(setf dom:prefix) korrigiert

Date: Sun Dec  4 21:46:28 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.5 cxml/DOMTEST:1.6
--- cxml/DOMTEST:1.5	Sun Dec  4 21:35:13 2005
+++ cxml/DOMTEST	Sun Dec  4 21:46:28 2005
@@ -1151,15 +1151,12 @@
              when called with arguments
                (#(116 101 115 116) NIL).
 760/808 nodesetprefix05.xml
-TEST FAILED: expected exception NAMESPACE_ERR
+TEST FAILED: The variable CXML::*CTX* is unbound.
 761/808 nodesetprefix06.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 762/808 nodesetprefix07.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 763/808 nodesetprefix08.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 764/808 nodesetprefix09.xml
-TEST FAILED: expected exception INVALID_CHARACTER_ERR
+TEST FAILED: The variable CXML::*CTX* is unbound.
 765/808 normalize01.xml
 766/808 ownerDocument01.xml
 767/808 ownerElement01.xml
@@ -1169,17 +1166,13 @@
 771/808 prefix03.xml
 772/808 prefix04.xml
 773/808 prefix05.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 774/808 prefix06.xml
-TEST FAILED: expected exception INVALID_CHARACTER_ERR
 775/808 prefix07.xml
-TEST FAILED: expected exception NAMESPACE_ERR
+TEST FAILED: The variable CXML::*CTX* is unbound.
 776/808 prefix08.xml
-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
 777/808 prefix09.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 778/808 prefix10.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 779/808 prefix11.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 780/808 publicId01.xml
@@ -1245,4 +1238,4 @@
              when called with arguments
                (NIL).
 805/808 systemId01.xml
-143/763 tests failed; 45 tests were skipped
\ No newline at end of file
+136/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 21:15:37 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:15:37 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204211537.1CFF888545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv2250

Modified Files:
	DOMTEST 
Log Message:
noch ne runde dom-fixes

Date: Sun Dec  4 22:15:35 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.6 cxml/DOMTEST:1.7
--- cxml/DOMTEST:1.6	Sun Dec  4 21:46:28 2005
+++ cxml/DOMTEST	Sun Dec  4 22:15:35 2005
@@ -569,52 +569,22 @@
              when called with arguments
                (NIL).
 529/808 createAttributeNS01.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 530/808 createAttributeNS02.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 531/808 createAttributeNS03.xml
 532/808 createAttributeNS04.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 533/808 createAttributeNS05.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrName|
-                                             DOMTEST-TESTS::|qualifiedName|
-                                             'DOMTEST::%EQUAL) failed.
 534/808 createAttributeNS06.xml
 535/808 createDocument01.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 536/808 createDocument02.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
+TEST FAILED: expected exception NAMESPACE_ERR
 537/808 createDocument03.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
+TEST FAILED: expected exception WRONG_DOCUMENT_ERR
 538/808 createDocument04.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
+TEST FAILED: expected exception WRONG_DOCUMENT_ERR
 539/808 createDocument05.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 540/808 createDocument06.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 541/808 createDocument07.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 542/808 createDocument08.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)>
@@ -625,68 +595,33 @@
 544/808 createDocumentType02.xml
 TEST FAILED: expected exception INVALID_CHARACTER_ERR
 545/808 createDocumentType03.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|nodeName|
-                                             #(112 114 101 102 105 120 58 109
-                                               121 68 111 99)
-                                             'DOMTEST::%EQUAL) failed.
 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
-TEST FAILED: expected exception NAMESPACE_ERR
 548/808 createElementNS02.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 549/808 createElementNS03.xml
 550/808 createElementNS04.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 551/808 createElementNS05.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementName|
-                                             DOMTEST-TESTS::|qualifiedName|
-                                             'DOMTEST::%EQUAL) failed.
 552/808 documentcreateattributeNS01.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|nodeName|
-                                             #(116 101 115 116)
-                                             'DOMTEST::%EQUAL) failed.
 553/808 documentcreateattributeNS02.xml
 554/808 documentcreateattributeNS03.xml
 555/808 documentcreateattributeNS04.xml
-TEST FAILED: The variable CXML::*CTX* is unbound.
 556/808 documentcreateattributeNS05.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
+TEST FAILED: expected exception NAMESPACE_ERR
 557/808 documentcreateattributeNS06.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 558/808 documentcreateattributeNS07.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 559/808 documentcreateelementNS01.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|nodeName|
-                                             #(88 77 76 58 88 77 76)
-                                             'DOMTEST::%EQUAL) failed.
 560/808 documentcreateelementNS02.xml
-TEST FAILED: expected exception INVALID_CHARACTER_ERR
 561/808 documentcreateelementNS05.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 562/808 documentcreateelementNS06.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 563/808 documentgetelementbyid01.xml
 564/808 documentgetelementsbytagnameNS01.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 565/808 documentgetelementsbytagnameNS02.xml
 TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed.
 566/808 documentgetelementsbytagnameNS03.xml
@@ -700,11 +635,6 @@
                (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL NIL).
 571/808 documentimportnode03.xml
 572/808 documentimportnode04.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 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
@@ -739,44 +669,20 @@
 584/808 documentimportnode17.xml
 585/808 documentimportnode18.xml
 586/808 documentimportnode19.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
+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
 implementationAttribute expandEntityReferences not supported, skipping test
 589/808 documentimportnode22.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 590/808 documenttypeinternalSubset01.xml
 591/808 documenttypepublicid01.xml
 592/808 documenttypesystemid01.xml
 593/808 domimplementationcreatedocument03.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 594/808 domimplementationcreatedocument04.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
+TEST FAILED: expected exception NAMESPACE_ERR
 595/808 domimplementationcreatedocument05.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 596/808 domimplementationcreatedocument07.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 597/808 domimplementationcreatedocumenttype01.xml
 598/808 domimplementationcreatedocumenttype02.xml
 599/808 domimplementationcreatedocumenttype04.xml
@@ -904,7 +810,6 @@
                (NIL).
 640/808 getElementById02.xml
 641/808 getElementsByTagNameNS01.xml
-TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 37) failed.
 642/808 getElementsByTagNameNS02.xml
 TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 5) failed.
 643/808 getElementsByTagNameNS03.xml
@@ -1061,10 +966,6 @@
              when called with arguments
                (NIL).
 729/808 namednodemapsetnameditemns04.xml
-TEST FAILED: When attempting to
-             set the slot's value to NIL (SETF of SLOT-VALUE), the slot
-             DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 730/808 namednodemapsetnameditemns05.xml
 731/808 namednodemapsetnameditemns06.xml
 TEST FAILED: There is no applicable method for the generic function
@@ -1101,11 +1002,6 @@
 TEST FAILED: The assertion (NULL DOMTEST-TESTS::|attrNSURINull|) failed.
 743/808 nodegetownerdocument01.xml
 744/808 nodegetownerdocument02.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 745/808 nodegetprefix03.xml
 746/808 nodehasattributes01.xml
 747/808 nodehasattributes02.xml
@@ -1115,11 +1011,6 @@
                (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>).
 748/808 nodehasattributes03.xml
 749/808 nodehasattributes04.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
 750/808 nodeissupported01.xml
 TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
 751/808 nodeissupported02.xml
@@ -1128,11 +1019,8 @@
 753/808 nodeissupported04.xml
 754/808 nodeissupported05.xml
 755/808 nodenormalize01.xml
-TEST FAILED: When attempting to
-             set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
-                          114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
-             the slot DOM-IMPL::NAMESPACE-URI is missing from the object
-             #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
+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
@@ -1151,12 +1039,10 @@
              when called with arguments
                (#(116 101 115 116) NIL).
 760/808 nodesetprefix05.xml
-TEST FAILED: The variable CXML::*CTX* is unbound.
 761/808 nodesetprefix06.xml
 762/808 nodesetprefix07.xml
 763/808 nodesetprefix08.xml
 764/808 nodesetprefix09.xml
-TEST FAILED: The variable CXML::*CTX* is unbound.
 765/808 normalize01.xml
 766/808 ownerDocument01.xml
 767/808 ownerElement01.xml
@@ -1168,7 +1054,6 @@
 773/808 prefix05.xml
 774/808 prefix06.xml
 775/808 prefix07.xml
-TEST FAILED: The variable CXML::*CTX* is unbound.
 776/808 prefix08.xml
 777/808 prefix09.xml
 TEST FAILED: expected exception NAMESPACE_ERR
@@ -1185,12 +1070,9 @@
 783/808 removeNamedItemNS01.xml
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
-TEST FAILED: NOT_FOUND_ERR (8):
-#(78 73 76) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}>
+TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
 786/808 setAttributeNS01.xml
-TEST FAILED: expected exception INVALID_CHARACTER_ERR
 787/808 setAttributeNS02.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 788/808 setAttributeNS03.xml
 789/808 setAttributeNS04.xml
 TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
@@ -1202,7 +1084,6 @@
                                                62)
                                              'DOMTEST::%EQUAL) failed.
 791/808 setAttributeNS06.xml
-TEST FAILED: expected exception NAMESPACE_ERR
 792/808 setAttributeNS07.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 793/808 setAttributeNS09.xml
@@ -1233,9 +1114,5 @@
              when called with arguments
                (NIL).
 804/808 setNamedItemNS05.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
-             when called with arguments
-               (NIL).
 805/808 systemId01.xml
-136/763 tests failed; 45 tests were skipped
\ No newline at end of file
+102/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 21:15:39 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:15:39 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204211539.5EF7B8855E@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv2250/dom

Modified Files:
	dom-impl.lisp 
Log Message:
noch ne runde dom-fixes

Date: Sun Dec  4 22:15:36 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.7 cxml/dom/dom-impl.lisp:1.8
--- cxml/dom/dom-impl.lisp:1.7	Sun Dec  4 21:46:29 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 22:15:36 2005
@@ -45,7 +45,9 @@
 
 (defmethod (setf dom:prefix) (newval (node namespace-mixin))
   (assert-writeable node)
-  (safe-split-qname (concatenate 'rod newval #":foo") (dom:namespace-uri node))
+  (when newval
+    (safe-split-qname (concatenate 'rod newval #":foo")
+		      (dom:namespace-uri node)))
   (setf (slot-value node 'prefix) newval))
 
 (defclass document (node)
@@ -193,7 +195,12 @@
     (:NO_MODIFICATION_ALLOWED_ERR       7)
     (:NOT_FOUND_ERR                     8)
     (:NOT_SUPPORTED_ERR                 9)
-    (:INUSE_ATTRIBUTE_ERR               10)))
+    (:INUSE_ATTRIBUTE_ERR               10)
+    (:INVALID_STATE_ERR                 11)
+    (:SYNTAX_ERR                        12)
+    (:INVALID_MODIFICATION_ERR          13)
+    (:NAMESPACE_ERR                     14)
+    (:INVALID_ACCESS_ERR                15)))
 
 ;; dom-implementation protocol
 
@@ -220,11 +227,7 @@
     ((factory (eql 'implementation)) uri qname doctype)
   (let ((document (make-instance 'dom-impl::document)))
     (setf (slot-value document 'owner) nil
-	  (slot-value document 'doc-type) doctype
-	  (slot-value document 'namespace-uri) uri)
-    (setf (values (slot-value document 'prefix)
-		  (slot-value document 'local-name))
-	  (safe-split-qname qname uri))
+	  (slot-value document 'doc-type) doctype)
     (when doctype
       (unless (typep doctype 'document-type)
 	(dom-error :WRONG_DOCUMENT_ERR
@@ -232,6 +235,8 @@
       (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))
+    (when (or uri qname)
+      (dom:append-child document (dom:create-element-ns document uri qname)))
     document))
 
 ;; document-fragment protocol



From dlichteblau at common-lisp.net  Sun Dec  4 21:15:39 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:15:39 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051204211539.28DFF88554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv2250/test

Modified Files:
	domtest.lisp 
Log Message:
noch ne runde dom-fixes

Date: Sun Dec  4 22:15:37 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.8 cxml/test/domtest.lisp:1.9
--- cxml/test/domtest.lisp:1.8	Sun Dec  4 21:35:17 2005
+++ cxml/test/domtest.lisp	Sun Dec  4 22:15:37 2005
@@ -595,6 +595,11 @@
                           (("byte" "short" "int" "long") 0)
                           (t nil)))
                   bindings)
+	    (let ((value (dom:get-attribute e "value")))
+	      (when value
+		(push `(setf ,(%intern (dom:get-attribute e "name"))
+			     ,(parse-java-literal value))
+		      code)))
             (do-child-elements (member e :name "member") e
               (push `(setf ,(%intern (dom:get-attribute e "name"))
                            (append ,(%intern (dom:get-attribute e "name"))



From dlichteblau at common-lisp.net  Sun Dec  4 21:15:43 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:15:43 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051204211543.6E37488565@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv2250/xml

Modified Files:
	xml-parse.lisp 
Log Message:
noch ne runde dom-fixes

Date: Sun Dec  4 22:15:42 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.50 cxml/xml/xml-parse.lisp:1.51
--- cxml/xml/xml-parse.lisp:1.50	Sun Dec  4 19:44:06 2005
+++ cxml/xml/xml-parse.lisp	Sun Dec  4 22:15:38 2005
@@ -181,7 +181,7 @@
 
 ;;; parser context
 
-(defvar *ctx*)
+(defvar *ctx* nil)
 
 (defstruct (context (:conc-name nil))
   handler



From dlichteblau at common-lisp.net  Sun Dec  4 21:22:48 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:22:48 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204212248.A2BD088545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv2929

Modified Files:
	DOMTEST 
Log Message:
 785/808 removeNamedItemNS03.xml
-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR

Date: Sun Dec  4 22:22:47 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.7 cxml/DOMTEST:1.8
--- cxml/DOMTEST:1.7	Sun Dec  4 22:15:35 2005
+++ cxml/DOMTEST	Sun Dec  4 22:22:47 2005
@@ -1070,7 +1070,6 @@
 783/808 removeNamedItemNS01.xml
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
 786/808 setAttributeNS01.xml
 787/808 setAttributeNS02.xml
 788/808 setAttributeNS03.xml
@@ -1115,4 +1114,4 @@
                (NIL).
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-102/763 tests failed; 45 tests were skipped
\ No newline at end of file
+101/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 21:22:48 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:22:48 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204212248.17B9788554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv2929/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 785/808 removeNamedItemNS03.xml
-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR

Date: Sun Dec  4 22:22:48 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.8 cxml/dom/dom-impl.lisp:1.9
--- cxml/dom/dom-impl.lisp:1.8	Sun Dec  4 22:15:36 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 22:22:47 2005
@@ -1138,6 +1138,7 @@
   (labels ((walk (n)
              (setf (slot-value n 'read-only-p) t)
              (when (dom:element-p n)
+	       (setf (slot-value (dom:attributes n) 'read-only-p) t)
                (map nil #'walk (dom:items (dom:attributes n))))
              (map nil #'walk (dom:child-nodes n))))
     (walk instance)))



From dlichteblau at common-lisp.net  Sun Dec  4 21:41:14 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:41:14 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204214114.08B038855E@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv4855/dom

Modified Files:
	dom-impl.lisp 
Log Message:
uh oh.  (rod nil) => "NIL"

Date: Sun Dec  4 22:41:13 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.9 cxml/dom/dom-impl.lisp:1.10
--- cxml/dom/dom-impl.lisp:1.9	Sun Dec  4 22:22:47 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 22:41:13 2005
@@ -128,6 +128,12 @@
 
 ;;; Implementation
 
+(defun %rod (x)
+  (etypecase x
+    (null x)
+    (rod x)
+    (string (string-rod x))))
+
 (defun assert-writeable (node)
   (when (read-only-p node)
     (dom-error :NO_MODIFICATION_ALLOWED_ERR "~S is marked read-only." node)))
@@ -251,7 +257,7 @@
            (return k)))))
 
 (defmethod dom:create-element ((document document) tag-name)
-  (setf tag-name (rod tag-name))
+  (setf tag-name (%rod tag-name))
   (unless (cxml::valid-name-p tag-name)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string tag-name)))
   (let ((result (make-instance 'element
@@ -286,7 +292,7 @@
     (values prefix local-name)))
 
 (defmethod dom:create-element-ns ((document document) uri qname)
-  (setf qname (rod qname))
+  (setf qname (%rod qname))
   (multiple-value-bind (prefix local-name)
       (safe-split-qname qname uri)
     (let ((result (make-instance 'element
@@ -308,26 +314,26 @@
     :owner document))
 
 (defmethod dom:create-text-node ((document document) data)
-  (setf data (rod data))
+  (setf data (%rod data))
   (make-instance 'text
     :data data
     :owner document))
 
 (defmethod dom:create-comment ((document document) data)
-  (setf data (rod data))
+  (setf data (%rod data))
   (make-instance 'comment
     :data data
     :owner document))
 
 (defmethod dom:create-cdata-section ((document document) data)
-  (setf data (rod data))
+  (setf data (%rod data))
   (make-instance 'cdata-section
     :data data
     :owner document))
 
 (defmethod dom:create-processing-instruction ((document document) target data)
-  (setf target (rod target))
-  (setf data (rod data))
+  (setf target (%rod target))
+  (setf data (%rod data))
   (unless (cxml::valid-name-p target)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string target)))
   (make-instance 'processing-instruction
@@ -336,7 +342,7 @@
     :data data))
 
 (defmethod dom:create-attribute ((document document) name)
-  (setf name (rod name))
+  (setf name (%rod name))
   (unless (cxml::valid-name-p name)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name)))
   (make-instance 'attribute
@@ -349,8 +355,8 @@
     :owner document))
 
 (defmethod dom:create-attribute-ns ((document document) uri qname)
-  (setf uri (rod uri))
-  (setf qname (rod qname))
+  (setf uri (%rod uri))
+  (setf qname (%rod qname))
   (multiple-value-bind (prefix local-name)
       (safe-split-qname qname uri)
     (make-instance 'attribute
@@ -363,7 +369,7 @@
       :owner document)))
 
 (defmethod dom:create-entity-reference ((document document) name)
-  (setf name (rod name))
+  (setf name (%rod name))
   (unless (cxml::valid-name-p name)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name)))
   (make-instance 'entity-reference
@@ -371,7 +377,7 @@
     :owner document))
 
 (defmethod get-elements-by-tag-name-internal (node tag-name)
-  (setf tag-name (rod tag-name))
+  (setf tag-name (%rod tag-name))
   (let ((result (make-node-list))
 	(wild-p (rod= tag-name #"*")))
     (labels ((walk (n)
@@ -384,8 +390,8 @@
     result))
 
 (defmethod get-elements-by-tag-name-internal-ns (node uri lname)
-  (setf uri (rod uri))
-  (setf lname (rod lname))
+  (setf uri (%rod uri))
+  (setf lname (%rod lname))
   (let ((result (make-node-list))
 	(wild-uri-p (rod= uri #"*"))
 	(wild-lname-p (rod= lname #"*")))
@@ -409,7 +415,7 @@
   (block nil
     (unless (dtd document)
       (return nil))
-    (setf id (rod id))
+    (setf id (%rod id))
     (labels ((walk (n)
 	       (dovector (c (dom:child-nodes n))
 		 (when (dom:element-p c)
@@ -703,19 +709,19 @@
 ;;; NAMED-NODE-MAP
 
 (defmethod dom:get-named-item ((self named-node-map) name)
-  (setf name (rod name))
+  (setf name (%rod name))
   (with-slots (items) self
     (dolist (k items nil)
       (when (rod= name (dom:node-name k))
 	(return k)))))
 
 (defmethod dom:get-named-item-ns ((self named-node-map) uri lname)
-  (setf uri (rod uri))
-  (setf lname (rod lname))
+  (setf uri (%rod uri))
+  (setf lname (%rod lname))
   (with-slots (items) self
     (dolist (k items nil)
-      (when (and (equal uri (dom:namespace-uri k))
-		 (equal lname (dom:local-name k)))
+      (when (and (rod= uri (dom:namespace-uri k))
+		 (rod= lname (dom:local-name k)))
 	(return k)))))
 
 (defun %set-named-item (map arg test)
@@ -753,7 +759,7 @@
 
 (defmethod dom:remove-named-item ((self named-node-map) name)
   (assert-writeable self)
-  (setf name (rod name))
+  (setf name (%rod name))
   (with-slots (items) self
     (dolist (k items (dom-error :NOT_FOUND_ERR "~A not found in ~A" name self))
       (cond ((rod= name (dom:node-name k))
@@ -762,8 +768,8 @@
 
 (defmethod dom:remove-named-item-ns ((self named-node-map) uri lname)
   (assert-writeable self)
-  (setf uri (rod uri))
-  (setf lname (rod lname))
+  (setf uri (%rod uri))
+  (setf lname (%rod lname))
   (with-slots (items) self
     (dolist (k items
 	      (dom-error :NOT_FOUND_ERR "~A not found in ~A" lname self))
@@ -786,7 +792,7 @@
 
 (defmethod (setf dom:data) (newval (self character-data))
   (assert-writeable self)
-  (setf newval (rod newval))
+  (setf newval (%rod newval))
   (setf (slot-value self 'value) newval))
 
 (defmethod dom:length ((node character-data))
@@ -801,7 +807,7 @@
 
 (defmethod dom:append-data ((node character-data) arg)
   (assert-writeable node)
-  (setq arg (rod arg))
+  (setq arg (%rod arg))
   (with-slots (value) node
     (setf value (concatenate 'rod value arg)))
   (values))
@@ -829,7 +835,7 @@
   ;; Although we could implement this by calling DELETE-DATA, then INSERT-DATA,
   ;; we implement this function directly to avoid creating temporary garbage.
   (assert-writeable node)
-  (setf arg (rod arg))
+  (setf arg (%rod arg))
   (with-slots (value) node
     (unless (<= 0 offset (length value))
       (dom-error :INDEX_SIZE_ERR "offset is invalid"))
@@ -852,7 +858,7 @@
 
 (defmethod dom:insert-data ((node character-data) offset arg)
   (assert-writeable node)
-  (setf arg (rod arg))
+  (setf arg (%rod arg))
   (with-slots (value) node
     (unless (<= 0 offset (length value))
       (dom-error :INDEX_SIZE_ERR "offset is invalid"))
@@ -889,7 +895,7 @@
 
 (defmethod (setf dom:value) (new-value (node attribute))
   (assert-writeable node)
-  (let ((rod (rod new-value)))
+  (let ((rod (%rod new-value)))
     (with-slots (children owner) node
       ;; remove children, add new TEXT-NODE child
       ;; (alas, we must not reuse an old TEXT-NODE)
@@ -1147,7 +1153,7 @@
 
 (defmethod (setf dom:data) (newval (self processing-instruction))
   (assert-writeable self)
-  (setf newval (rod newval))
+  (setf newval (%rod newval))
   (setf (slot-value self 'data) newval))
 
 ;; das koennte man auch mit einer GF machen



From dlichteblau at common-lisp.net  Sun Dec  4 21:41:14 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:41:14 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204214114.92BF588545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv4855

Modified Files:
	DOMTEST 
Log Message:
uh oh.  (rod nil) => "NIL"

Date: Sun Dec  4 22:41:13 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.8 cxml/DOMTEST:1.9
--- cxml/DOMTEST:1.8	Sun Dec  4 22:22:47 2005
+++ cxml/DOMTEST	Sun Dec  4 22:41:13 2005
@@ -552,22 +552,14 @@
 
 #P"/home/david/2001/DOM-Test-Suite/tests/level2/core/" 
 524/808 attrgetownerelement01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)>
-             when called with arguments
-               (NIL).
 525/808 attrgetownerelement02.xml
 526/808 attrgetownerelement03.xml
 527/808 attrgetownerelement04.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}> NIL T).
+TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE emp:zone="CANADA" {xxxxxxxx}>.
 528/808 attrgetownerelement05.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)>
-             when called with arguments
-               (NIL).
+TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|ownerElementName|
+                                             #(97 100 100 114 101 115 115)
+                                             'DOMTEST::%EQUAL) failed.
 529/808 createAttributeNS01.xml
 530/808 createAttributeNS02.xml
 TEST FAILED: expected exception NAMESPACE_ERR
@@ -629,10 +621,6 @@
 568/808 documentgetelementsbytagnameNS05.xml
 569/808 documentimportnode01.xml
 570/808 documentimportnode02.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}> NIL NIL).
 571/808 documentimportnode03.xml
 572/808 documentimportnode04.xml
 573/808 documentimportnode05.xml
@@ -695,28 +683,11 @@
 TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
 603/808 domimplementationhasfeature02.xml
 604/808 elementgetattributenodens01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
-             when called with arguments
-               (NIL).
 605/808 elementgetattributenodens02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
-             when called with arguments
-               (NIL).
 606/808 elementgetattributenodens03.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
-             when called with arguments
-               (NIL).
 607/808 elementgetattributens02.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
-                                             #(100 101 102 97 117 108 116 86 97
-                                               108)
-                                             'DOMTEST::%EQUAL) failed.
 608/808 elementgetelementsbytagnamens02.xml
 609/808 elementgetelementsbytagnamens04.xml
-TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 1) failed.
 610/808 elementgetelementsbytagnamens05.xml
 611/808 elementhasattribute01.xml
 612/808 elementhasattribute02.xml
@@ -725,38 +696,18 @@
 615/808 elementhasattributens01.xml
 TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 616/808 elementhasattributens02.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 617/808 elementhasattributens03.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 618/808 elementremoveattributens01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
-             when called with arguments
-               (#<DOM-IMPL::ELEMENT elem {xxxxxxxx}> NIL).
 619/808 elementsetattributenodens01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 620/808 elementsetattributenodens02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:CLONE-NODE (1)>
-             when called with arguments
-               (NIL T).
+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: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NODE-NS (1)>
-             when called with arguments
-               (#<DOM-IMPL::ELEMENT address {xxxxxxxx}> NIL).
+TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 622/808 elementsetattributenodens04.xml
 623/808 elementsetattributenodens05.xml
 624/808 elementsetattributenodens06.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 625/808 elementsetattributens01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 626/808 elementsetattributens02.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)>
@@ -768,10 +719,6 @@
                 #(116 104 105 115 58 115 116 114 101 101 116)
                 #(83 105 108 118 101 114 32 83 116 114 101 101 116)).
 627/808 elementsetattributens03.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 628/808 elementsetattributens04.xml
 629/808 elementsetattributens05.xml
 TEST FAILED: expected exception NAMESPACE_ERR
@@ -780,29 +727,12 @@
 631/808 elementsetattributensurinull.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 632/808 getAttributeNS01.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
-                                             #(68 73 83 84 82 73 67 84)
-                                             'DOMTEST::%EQUAL) failed.
 633/808 getAttributeNS02.xml
 634/808 getAttributeNS03.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
-             when called with arguments
-               (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
 635/808 getAttributeNS04.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
-                                             #(78 101 119 86 97 108 117 101)
-                                             'DOMTEST::%EQUAL) failed.
 636/808 getAttributeNS05.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
-                                             #(89 101 115)
-                                             'DOMTEST::%EQUAL) failed.
 637/808 getAttributeNodeNS01.xml
 638/808 getAttributeNodeNS02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 639/808 getElementById01.xml
 TEST FAILED: There is no applicable method for the generic function
                #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
@@ -826,10 +756,6 @@
 653/808 getElementsByTagNameNS13.xml
 654/808 getElementsByTagNameNS14.xml
 655/808 getNamedItemNS01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 656/808 getNamedItemNS02.xml
 657/808 getNamedItemNS03.xml
 658/808 getNamedItemNS04.xml
@@ -841,9 +767,7 @@
 664/808 hasAttributeNS02.xml
 665/808 hasAttributeNS03.xml
 666/808 hasAttributeNS04.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 667/808 hasAttributeNS05.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 668/808 hasAttributes01.xml
 669/808 hasAttributes02.xml
 670/808 hc_entitiesremovenameditemns1.xml
@@ -907,26 +831,10 @@
 710/808 localName04.xml
 711/808 namednodemapgetnameditemns01.xml
 712/808 namednodemapgetnameditemns02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 713/808 namednodemapgetnameditemns03.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 714/808 namednodemapgetnameditemns04.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 715/808 namednodemapgetnameditemns05.xml
 716/808 namednodemapgetnameditemns06.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 717/808 namednodemapremovenameditemns01.xml
 718/808 namednodemapremovenameditemns02.xml
 TEST FAILED: There is no applicable method for the generic function
@@ -934,10 +842,6 @@
              when called with arguments
                (NIL).
 719/808 namednodemapremovenameditemns03.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 720/808 namednodemapremovenameditemns04.xml
 TEST FAILED: NOT_FOUND_ERR (8):
 #(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}>
@@ -945,61 +849,27 @@
 722/808 namednodemapremovenameditemns06.xml
 723/808 namednodemapremovenameditemns07.xml
 724/808 namednodemapremovenameditemns08.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
-             when called with arguments
-               (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
 725/808 namednodemapremovenameditemns09.xml
 726/808 namednodemapsetnameditemns01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 727/808 namednodemapsetnameditemns02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
 728/808 namednodemapsetnameditemns03.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
 729/808 namednodemapsetnameditemns04.xml
 730/808 namednodemapsetnameditemns05.xml
 731/808 namednodemapsetnameditemns06.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
+TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 732/808 namednodemapsetnameditemns07.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
+TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 733/808 namednodemapsetnameditemns08.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
+TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 734/808 namednodemapsetnameditemns09.xml
 735/808 namednodemapsetnameditemns10.xml
 736/808 namednodemapsetnameditemns11.xml
 737/808 namespaceURI01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
 738/808 namespaceURI02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
 739/808 namespaceURI03.xml
 740/808 namespaceURI04.xml
 741/808 nodegetlocalname03.xml
 742/808 nodegetnamespaceuri03.xml
-TEST FAILED: The assertion (NULL DOMTEST-TESTS::|attrNSURINull|) failed.
 743/808 nodegetownerdocument01.xml
 744/808 nodegetownerdocument02.xml
 745/808 nodegetprefix03.xml
@@ -1027,17 +897,14 @@
                                                114 101 115 115)
                                              'DOMTEST::%EQUAL) failed.
 757/808 nodesetprefix02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
-             when called with arguments
-               (NIL).
+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
 TEST FAILED: expected exception NAMESPACE_ERR
 759/808 nodesetprefix04.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION (SETF DOM:PREFIX) (1)>
-             when called with arguments
-               (#(116 101 115 116) NIL).
+TEST FAILED: expected exception NAMESPACE_ERR
 760/808 nodesetprefix05.xml
 761/808 nodesetprefix06.xml
 762/808 nodesetprefix07.xml
@@ -1064,9 +931,9 @@
 781/808 removeAttributeNS01.xml
 782/808 removeAttributeNS02.xml
 TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
+               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
              when called with arguments
-               (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
+               (NIL).
 783/808 removeNamedItemNS01.xml
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
@@ -1074,21 +941,11 @@
 787/808 setAttributeNS02.xml
 788/808 setAttributeNS03.xml
 789/808 setAttributeNS04.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
-                                             #(110 101 119 86 97 108 117 101)
-                                             'DOMTEST::%EQUAL) failed.
 790/808 setAttributeNS05.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
-                                             #(60 110 101 119 86 97 108 117 101
-                                               62)
-                                             'DOMTEST::%EQUAL) failed.
 791/808 setAttributeNS06.xml
 792/808 setAttributeNS07.xml
 TEST FAILED: expected exception NAMESPACE_ERR
 793/808 setAttributeNS09.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
-                                             #(110 101 119 86 97 108 117 101)
-                                             'DOMTEST::%EQUAL) failed.
 794/808 setAttributeNS10.xml
 795/808 setAttributeNodeNS01.xml
 796/808 setAttributeNodeNS02.xml
@@ -1097,21 +954,10 @@
 798/808 setAttributeNodeNS04.xml
 799/808 setAttributeNodeNS05.xml
 800/808 setNamedItemNS01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
+TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 801/808 setNamedItemNS02.xml
 802/808 setNamedItemNS03.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
-             when called with arguments
-               (NIL).
 803/808 setNamedItemNS04.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-101/763 tests failed; 45 tests were skipped
\ No newline at end of file
+63/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 21:44:07 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:44:07 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204214407.A4D1E88545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv4890

Modified Files:
	DOMTEST 
Log Message:
(import-node attribute)

Date: Sun Dec  4 22:44:06 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.9 cxml/DOMTEST:1.10
--- cxml/DOMTEST:1.9	Sun Dec  4 22:41:13 2005
+++ cxml/DOMTEST	Sun Dec  4 22:44:06 2005
@@ -555,7 +555,6 @@
 525/808 attrgetownerelement02.xml
 526/808 attrgetownerelement03.xml
 527/808 attrgetownerelement04.xml
-TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE emp:zone="CANADA" {xxxxxxxx}>.
 528/808 attrgetownerelement05.xml
 TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|ownerElementName|
                                              #(97 100 100 114 101 115 115)
@@ -960,4 +959,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-63/763 tests failed; 45 tests were skipped
\ No newline at end of file
+62/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 21:44:07 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 22:44:07 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204214407.E5EB28855E@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv4890/dom

Modified Files:
	dom-impl.lisp 
Log Message:
(import-node attribute)

Date: Sun Dec  4 22:44:07 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.10 cxml/dom/dom-impl.lisp:1.11
--- cxml/dom/dom-impl.lisp:1.10	Sun Dec  4 22:41:13 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec  4 22:44:06 2005
@@ -1238,7 +1238,11 @@
 
 (defmethod dom:import-node ((document document) (node attribute) deep)
   (declare (ignore deep))
-  (import-node-internal 'attribute document node t :name (dom:name node)))
+  (import-node-internal 'attribute
+			document node
+			t
+			:name (dom:name node)
+			:owner-element nil))
 
 (defmethod dom:import-node ((document document) (node document-fragment) deep)
   (import-node-internal 'document-fragment document node deep))



From dlichteblau at common-lisp.net  Sun Dec  4 22:18:35 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:18:35 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204221835.BF3DA88545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv8177

Modified Files:
	DOMTEST 
Log Message:
ohne prefix haben wir beim namespace-processing aber trotzdem einen lname

Date: Sun Dec  4 23:18:33 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.10 cxml/DOMTEST:1.11
--- cxml/DOMTEST:1.10	Sun Dec  4 22:44:06 2005
+++ cxml/DOMTEST	Sun Dec  4 23:18:33 2005
@@ -556,9 +556,6 @@
 526/808 attrgetownerelement03.xml
 527/808 attrgetownerelement04.xml
 528/808 attrgetownerelement05.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|ownerElementName|
-                                             #(97 100 100 114 101 115 115)
-                                             'DOMTEST::%EQUAL) failed.
 529/808 createAttributeNS01.xml
 530/808 createAttributeNS02.xml
 TEST FAILED: expected exception NAMESPACE_ERR
@@ -614,7 +611,6 @@
 563/808 documentgetelementbyid01.xml
 564/808 documentgetelementsbytagnameNS01.xml
 565/808 documentgetelementsbytagnameNS02.xml
-TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed.
 566/808 documentgetelementsbytagnameNS03.xml
 567/808 documentgetelementsbytagnameNS04.xml
 568/808 documentgetelementsbytagnameNS05.xml
@@ -623,25 +619,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="" {xxxxxxxx}>.
+TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {52D57899}>.
 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).
+               (#<DOM-IMPL::DOCUMENT {51AFD949}>
+                #<DOM-IMPL::DOCUMENT {51AFD949}> 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).
+               (#<DOM-IMPL::DOCUMENT {51E0F1B1}>
+                #<DOM-IMPL::DOCUMENT-TYPE {51E0FAB1}> 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).
+               (#<DOM-IMPL::DOCUMENT {51F8A1B1}>
+                #<DOM-IMPL::DOCUMENT-TYPE {51FA2FA1}> T).
 577/808 documentimportnode09.xml
 578/808 documentimportnode10.xml
 579/808 documentimportnode11.xml
@@ -656,7 +652,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 {xxxxxxxx}>.
+TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTITY {52051579}>.
 587/808 documentimportnode20.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 588/808 documentimportnode21.xml
@@ -699,7 +695,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" {xxxxxxxx}>.
+TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE street="Yes" {52C329D1}>.
 621/808 elementsetattributenodens03.xml
 TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 622/808 elementsetattributenodens04.xml
@@ -708,15 +704,6 @@
 implementationAttribute expandEntityReferences not supported, skipping test
 625/808 elementsetattributens01.xml
 626/808 elementsetattributens02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)>
-             when called with arguments
-               (NIL
-                #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 114 103
-                  47 68 79 77 47 84 101 115 116 47 115 101 116 65 116 116 114
-                  105 98 117 116 101 78 83)
-                #(116 104 105 115 58 115 116 114 101 101 116)
-                #(83 105 108 118 101 114 32 83 116 114 101 101 116)).
 627/808 elementsetattributens03.xml
 628/808 elementsetattributens04.xml
 629/808 elementsetattributens05.xml
@@ -740,7 +727,6 @@
 640/808 getElementById02.xml
 641/808 getElementsByTagNameNS01.xml
 642/808 getElementsByTagNameNS02.xml
-TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 5) failed.
 643/808 getElementsByTagNameNS03.xml
 644/808 getElementsByTagNameNS04.xml
 645/808 getElementsByTagNameNS05.xml
@@ -748,7 +734,6 @@
 647/808 getElementsByTagNameNS07.xml
 648/808 getElementsByTagNameNS08.xml
 649/808 getElementsByTagNameNS09.xml
-TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 5) failed.
 650/808 getElementsByTagNameNS10.xml
 651/808 getElementsByTagNameNS11.xml
 652/808 getElementsByTagNameNS12.xml
@@ -799,14 +784,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 {xxxxxxxx}>
-                #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> NIL).
+               (#<DOM-IMPL::DOCUMENT {52C10309}>
+                #<DOM-IMPL::DOCUMENT-TYPE {5174B8A9}> 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).
+               (#<DOM-IMPL::DOCUMENT {519843A1}>
+                #<DOM-IMPL::DOCUMENT {519A9DE1}> NIL).
 694/808 internalSubset01.xml
 TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
 695/808 isSupported01.xml
@@ -843,7 +828,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 {xxxxxxxx}>
+#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {5289D969}>
 721/808 namednodemapremovenameditemns05.xml
 722/808 namednodemapremovenameditemns06.xml
 723/808 namednodemapremovenameditemns07.xml
@@ -877,7 +862,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 {xxxxxxxx}>).
+               (#<DOM-IMPL::DOCUMENT-TYPE {524EFAB1}>).
 748/808 nodehasattributes03.xml
 749/808 nodehasattributes04.xml
 750/808 nodeissupported01.xml
@@ -959,4 +944,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-62/763 tests failed; 45 tests were skipped
\ No newline at end of file
+57/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec  4 22:18:36 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:18:36 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-builder.lisp
	cxml/dom/dom-impl.lisp 
Message-ID: <20051204221836.80AB788554@common-lisp.net>

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)



From dlichteblau at common-lisp.net  Sun Dec  4 22:18:38 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:18:38 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051204221838.A21098855E@common-lisp.net>

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 (, at bindings)
+         (let ((*files-directory* ,*files-directory*) ;fuer copy&paste:
+	       , at 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



From dlichteblau at common-lisp.net  Sun Dec  4 22:18:41 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:18:41 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051204221841.B4CBA88545@common-lisp.net>

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)



From dlichteblau at common-lisp.net  Sun Dec  4 22:22:31 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:22:31 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204222231.3752C88545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 22:22:31 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:22:31 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204222231.901F688554@common-lisp.net>

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'"))



From dlichteblau at common-lisp.net  Sun Dec  4 22:25:36 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:25:36 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204222536.49F0288545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 22:25:36 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:25:36 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204222536.7AA9F88554@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 22:57:30 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:57:30 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204225730.36A5088545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 22:57:33 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:57:33 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051204225733.CFDBE88545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 22:57:32 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun,  4 Dec 2005 23:57:32 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204225732.E46A48855E@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 23:20:25 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:20:25 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204232025.1F9A988545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 23:20:27 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:20:27 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-builder.lisp
	cxml/dom/dom-impl.lisp 
Message-ID: <20051204232027.2489488554@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 23:20:29 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:20:29 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051204232029.7E4A888554@common-lisp.net>

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)))))))
 
 ;;;;;;;;;;;;;;;;;
 



From dlichteblau at common-lisp.net  Sun Dec  4 23:23:26 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:23:26 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204232326.5C00588554@common-lisp.net>

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)



From dlichteblau at common-lisp.net  Sun Dec  4 23:23:26 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:23:26 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204232326.2973888545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 23:26:48 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:26:48 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051204232648.8017388545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 23:26:48 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:26:48 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051204232648.20F0188554@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec  4 23:51:41 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon,  5 Dec 2005 00:51:41 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/COPYING 
Message-ID: <20051204235141.2A17988545@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sat Dec 10 20:06:05 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat, 10 Dec 2005 21:06:05 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051210200605.6453D8858C@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sat Dec 10 20:06:11 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat, 10 Dec 2005 21:06:11 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051210200611.0A66388592@common-lisp.net>

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)



From dlichteblau at common-lisp.net  Sun Dec 11 18:13:06 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:13:06 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211181306.3305288567@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 18:13:07 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:13:07 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211181307.C667A8856A@common-lisp.net>

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)



From dlichteblau at common-lisp.net  Sun Dec 11 18:17:33 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:17:33 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211181733.E7E2488567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv3219

Modified Files:
	DOMTEST 
Log Message:
 586/808 documentimportnode19.xml
-TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTIT
Y {xxxxxxxx}>.

Date: Sun Dec 11 19:17:30 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.19 cxml/DOMTEST:1.20
--- cxml/DOMTEST:1.19	Sun Dec 11 19:13:00 2005
+++ cxml/DOMTEST	Sun Dec 11 19:17:30 2005
@@ -614,7 +614,6 @@
 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 {xxxxxxxx}>.
 587/808 documentimportnode20.xml
 implementationAttribute expandEntityReferences not supported, skipping test
 588/808 documentimportnode21.xml
@@ -878,4 +877,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-21/763 tests failed; 45 tests were skipped
\ No newline at end of file
+20/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 18:17:34 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:17:34 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211181734.0B2718856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv3219/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 586/808 documentimportnode19.xml
-TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTIT
Y {xxxxxxxx}>.

Date: Sun Dec 11 19:17:32 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.20 cxml/dom/dom-impl.lisp:1.21
--- cxml/dom/dom-impl.lisp:1.20	Sun Dec 11 19:13:04 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 19:17:31 2005
@@ -1292,6 +1292,7 @@
 
 (defmethod dom:import-node ((document document) (node entity) deep)
   (import-node-internal 'entity document node deep
+			:name (dom:name node)
                         :public-id (dom:public-id node)
                         :system-id (dom:system-id node)
                         :notation-name (dom:notation-name node)))



From dlichteblau at common-lisp.net  Sun Dec 11 18:30:52 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:30:52 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211183052.1163988593@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv4251

Modified Files:
	DOMTEST 
Log Message:
 600/808 domimplementationfeaturecore.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 601/808 domimplementationfeaturexmlversion2.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 602/808 domimplementationhasfeature01.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.

Date: Sun Dec 11 19:30:49 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.20 cxml/DOMTEST:1.21
--- cxml/DOMTEST:1.20	Sun Dec 11 19:17:30 2005
+++ cxml/DOMTEST	Sun Dec 11 19:30:45 2005
@@ -630,11 +630,8 @@
 598/808 domimplementationcreatedocumenttype02.xml
 599/808 domimplementationcreatedocumenttype04.xml
 600/808 domimplementationfeaturecore.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 601/808 domimplementationfeaturexmlversion2.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 602/808 domimplementationhasfeature01.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
 603/808 domimplementationhasfeature02.xml
 604/808 elementgetattributenodens01.xml
 605/808 elementgetattributenodens02.xml
@@ -877,4 +874,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-20/763 tests failed; 45 tests were skipped
\ No newline at end of file
+17/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 18:30:54 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:30:54 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051211183054.BECCC885A1@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv4251/test

Modified Files:
	domtest.lisp 
Log Message:
 600/808 domimplementationfeaturecore.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 601/808 domimplementationfeaturexmlversion2.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
 602/808 domimplementationhasfeature01.xml
-TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.

Date: Sun Dec 11 19:30:52 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.11 cxml/test/domtest.lisp:1.12
--- cxml/test/domtest.lisp:1.11	Sun Dec  4 23:57:31 2005
+++ cxml/test/domtest.lisp	Sun Dec 11 19:30:52 2005
@@ -199,7 +199,6 @@
     ("equals" (translate-equals element))
     ("notEquals" (translate-not-equals element))
     ("contentType" (translate-content-type element))
-    ("hasFeature" (translate-has-feature element))
     ("implementationAttribute" (assert-have-implementation-attribute element))
     ("isNull" (translate-is-null element))
     ("not" (translate-is-null element))
@@ -403,11 +402,13 @@
         (error "oops")))))
 
 (defun translate-has-feature (element)
-  (with-attributes (|var| |feature| |version|) element
-    (maybe-setf (%intern |var|)
-                `(and (runes:rod-equal ,(parse-java-literal |feature|) #"XML")
-                      (or (zerop (length ,(parse-java-literal |version|)))
-                          (runes:rod-equal ,(parse-java-literal |version|) #"1.0"))))))
+  (with-attributes (|obj| |var| |feature| |version|) element
+    (if (nullify |obj|)
+	(translate-member element)
+	(maybe-setf (%intern |var|)
+		    `(dom:has-feature 'dom-impl::implementation
+				      ,(parse-java-literal |feature|)
+				      ,(parse-java-literal |version|))))))
 
 (defun translate-fail (element)
   (declare (ignore element))



From dlichteblau at common-lisp.net  Sun Dec 11 18:36:14 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:36:14 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211183614.8CCAC88567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv5144

Modified Files:
	DOMTEST 
Log Message:
 731/808 namednodemapsetnameditemns06.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 732/808 namednodemapsetnameditemns07.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 733/808 namednodemapsetnameditemns08.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 800/808 setNamedItemNS01.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR

Date: Sun Dec 11 19:36:13 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.21 cxml/DOMTEST:1.22
--- cxml/DOMTEST:1.21	Sun Dec 11 19:30:45 2005
+++ cxml/DOMTEST	Sun Dec 11 19:36:13 2005
@@ -651,7 +651,6 @@
 619/808 elementsetattributenodens01.xml
 620/808 elementsetattributenodens02.xml
 621/808 elementsetattributenodens03.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 622/808 elementsetattributenodens04.xml
 623/808 elementsetattributenodens05.xml
 624/808 elementsetattributenodens06.xml
@@ -776,11 +775,8 @@
 729/808 namednodemapsetnameditemns04.xml
 730/808 namednodemapsetnameditemns05.xml
 731/808 namednodemapsetnameditemns06.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 732/808 namednodemapsetnameditemns07.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 733/808 namednodemapsetnameditemns08.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 734/808 namednodemapsetnameditemns09.xml
 735/808 namednodemapsetnameditemns10.xml
 736/808 namednodemapsetnameditemns11.xml
@@ -868,10 +864,9 @@
 798/808 setAttributeNodeNS04.xml
 799/808 setAttributeNodeNS05.xml
 800/808 setNamedItemNS01.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 801/808 setNamedItemNS02.xml
 802/808 setNamedItemNS03.xml
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-17/763 tests failed; 45 tests were skipped
\ No newline at end of file
+12/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 18:36:15 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:36:15 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-builder.lisp 
Message-ID: <20051211183615.980FF8856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv5144/dom

Modified Files:
	dom-builder.lisp 
Log Message:
 731/808 namednodemapsetnameditemns06.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 732/808 namednodemapsetnameditemns07.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 733/808 namednodemapsetnameditemns08.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 800/808 setNamedItemNS01.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR

Date: Sun Dec 11 19:36:14 2005
Author: dlichteblau

Index: cxml/dom/dom-builder.lisp
diff -u cxml/dom/dom-builder.lisp:1.7 cxml/dom/dom-builder.lisp:1.8
--- cxml/dom/dom-builder.lisp:1.7	Mon Dec  5 00:20:25 2005
+++ cxml/dom/dom-builder.lisp	Sun Dec 11 19:36:14 2005
@@ -104,12 +104,15 @@
           (push anode anodes)))
       (setf (slot-value element 'dom-impl::parent) parent)
       (fast-push element (slot-value parent 'dom-impl::children))
-      (setf (slot-value element 'dom-impl::attributes)
-            (make-instance 'attribute-node-map
-              :items anodes
-              :element-type :attribute
-              :element element
-              :owner document))
+      (let ((map
+	      (make-instance 'attribute-node-map
+		:items anodes
+		:element-type :attribute
+		:element element
+		:owner document)))
+	(setf (slot-value element 'dom-impl::attributes) map)
+	(dolist (anode anodes)
+	  (setf (slot-value anode 'map) map)))
       (push element element-stack))))
 
 (defmethod sax:end-element ((handler dom-builder) namespace-uri local-name qname)



From dlichteblau at common-lisp.net  Sun Dec 11 18:43:46 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:43:46 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211184346.CC02A88567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv5212

Modified Files:
	DOMTEST 
Log Message:
 639/808 getElementById01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
-             when called with arguments
-               (NIL).

Date: Sun Dec 11 19:43:45 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.22 cxml/DOMTEST:1.23
--- cxml/DOMTEST:1.22	Sun Dec 11 19:36:13 2005
+++ cxml/DOMTEST	Sun Dec 11 19:43:45 2005
@@ -670,10 +670,6 @@
 637/808 getAttributeNodeNS01.xml
 638/808 getAttributeNodeNS02.xml
 639/808 getElementById01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
-             when called with arguments
-               (NIL).
 640/808 getElementById02.xml
 641/808 getElementsByTagNameNS01.xml
 642/808 getElementsByTagNameNS02.xml
@@ -869,4 +865,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-12/763 tests failed; 45 tests were skipped
\ No newline at end of file
+11/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 18:43:46 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:43:46 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211184346.17BDA8856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv5212/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 639/808 getElementById01.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
-             when called with arguments
-               (NIL).

Date: Sun Dec 11 19:43:46 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.21 cxml/dom/dom-impl.lisp:1.22
--- cxml/dom/dom-impl.lisp:1.21	Sun Dec 11 19:17:31 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 19:43:45 2005
@@ -425,9 +425,9 @@
   (get-elements-by-tag-name-internal-ns document uri lname))
 
 (defmethod dom:get-element-by-id ((document document) id)
-  (block nil
+  (block t
     (unless (dtd document)
-      (return nil))
+      (return-from t nil))
     (setf id (%rod id))
     (labels ((walk (n)
 	       (dovector (c (dom:child-nodes n))
@@ -441,7 +441,7 @@
 			   (let* ((name (rod (cxml::attdef-name a)))
 				  (value (dom:get-attribute c name)))
 			     (when (and value (rod= value id))
-			       (return c)))))))
+			       (return-from t c)))))))
 		   (walk c)))))
       (walk document))))
 



From dlichteblau at common-lisp.net  Sun Dec 11 18:47:29 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:47:29 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211184729.4C1D08856A@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 18:47:28 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 19:47:28 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211184728.1BEFC88567@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 19:28:01 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:28:01 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211192801.8188188567@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 19:28:01 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:28:01 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211192801.EF7568856A@common-lisp.net>

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)



From dlichteblau at common-lisp.net  Sun Dec 11 19:35:06 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:35:06 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211193506.B8CFF88567@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 19:35:07 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:35:07 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211193507.3B38F8856A@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 19:38:10 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:38:10 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211193810.318FF88567@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 19:38:11 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:38:11 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211193811.04B8F88567@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 19:46:22 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:46:22 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211194622.2A24188567@common-lisp.net>

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



From dlichteblau at common-lisp.net  Sun Dec 11 19:46:23 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:46:23 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211194623.BFAA08856A@common-lisp.net>

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)



From dlichteblau at common-lisp.net  Sun Dec 11 19:54:57 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:54:57 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211195457.0D29E88567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv11020

Modified Files:
	DOMTEST 
Log Message:
 777/808 prefix09.xml
-TEST FAILED: expected exception NAMESPACE_ERR

Date: Sun Dec 11 20:54:57 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.28 cxml/DOMTEST:1.29
--- cxml/DOMTEST:1.28	Sun Dec 11 20:46:20 2005
+++ cxml/DOMTEST	Sun Dec 11 20:54:56 2005
@@ -812,7 +812,6 @@
 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
@@ -846,4 +845,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-4/763 tests failed; 45 tests were skipped
\ No newline at end of file
+3/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 19:54:58 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 20:54:58 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211195458.E8D3D8856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv11020/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 777/808 prefix09.xml
-TEST FAILED: expected exception NAMESPACE_ERR

Date: Sun Dec 11 20:54:57 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.27 cxml/dom/dom-impl.lisp:1.28
--- cxml/dom/dom-impl.lisp:1.27	Sun Dec 11 20:46:21 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 20:54:57 2005
@@ -50,6 +50,10 @@
 		      (dom:namespace-uri node)))
   (setf (slot-value node 'prefix) newval))
 
+(defmethod (setf dom:prefix) :before (newval (node attribute))
+  (when (rod= (dom:node-name node) #"xmlns")
+    (dom-error :NAMESPACE_ERR "must not change xmlns attribute prefix")))
+
 (defmethod (setf dom:prefix) :after (newval (node attribute))
   (setf (slot-value node 'name)
 	(concatenate 'rod newval #":" (dom:local-name node))))



From dlichteblau at common-lisp.net  Sun Dec 11 20:04:07 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 21:04:07 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211200407.1F92988567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv12142

Modified Files:
	DOMTEST 
Log Message:
 782/808 removeAttributeNS02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).

Date: Sun Dec 11 21:04:06 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.29 cxml/DOMTEST:1.30
--- cxml/DOMTEST:1.29	Sun Dec 11 20:54:56 2005
+++ cxml/DOMTEST	Sun Dec 11 21:04:06 2005
@@ -817,10 +817,6 @@
 780/808 publicId01.xml
 781/808 removeAttributeNS01.xml
 782/808 removeAttributeNS02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).
 783/808 removeNamedItemNS01.xml
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
@@ -845,4 +841,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-3/763 tests failed; 45 tests were skipped
\ No newline at end of file
+2/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 20:04:08 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 21:04:08 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211200408.268E988567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv12142/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 782/808 removeAttributeNS02.xml
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
-             when called with arguments
-               (NIL).

Date: Sun Dec 11 21:04:07 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.28 cxml/dom/dom-impl.lisp:1.29
--- cxml/dom/dom-impl.lisp:1.28	Sun Dec 11 20:54:57 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 21:04:06 2005
@@ -1039,19 +1039,23 @@
     (unless (find old-attr items)
       (dom-error :NOT_FOUND_ERR "Attribute not found."))
     (setf items (remove old-attr items))
-    (maybe-add-default-attribute element (dom:name old-attr))
+    (maybe-add-default-attribute element old-attr)
     old-attr))
 
 ;; eek, defaulting:
 
-(defun maybe-add-default-attribute (element name)
-  (let* ((dtd (dtd (slot-value element 'owner)))
+(defun maybe-add-default-attribute (element old-attr)
+  (let* ((qname (dom:name old-attr))
+	 (dtd (dtd (slot-value element 'owner)))
          (e (when dtd (cxml::find-element
 		       (cxml::rod (dom:tag-name element))
 		       dtd)))
-         (a (when e (cxml::find-attribute e name))))
+         (a (when e (cxml::find-attribute e qname))))
     (when (and a (listp (cxml::attdef-default a)))
-      (add-default-attribute element a))))
+      (let ((new (add-default-attribute element a)))
+	(setf (slot-value new 'namespace-uri) (dom:namespace-uri old-attr))
+	(setf (slot-value new 'prefix) (dom:prefix old-attr))
+	(setf (slot-value new 'local-name) (dom:local-name old-attr))))))
 
 (defun add-default-attributes (element)
   (let* ((dtd (dtd (slot-value element 'owner)))
@@ -1065,7 +1069,16 @@
 		   (not (dom:get-attribute-node
 			 element
 			 (cxml::attdef-name a))))
-          (add-default-attribute element a))))))
+          (let ((anode (add-default-attribute element a)))
+	    (multiple-value-bind (prefix local-name)
+		(handler-case
+		    (cxml::split-qname (cxml::attdef-name a))
+		  (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))))))))
 
 (defun add-default-attribute (element adef)
   (let* ((value (second (cxml::attdef-default adef)))
@@ -1074,25 +1087,20 @@
          (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))))
+    (push anode (slot-value (dom:attributes element) 'items))
+    anode))
 
-(defmethod dom:remove-named-item :after ((self attribute-node-map) name)
-  (maybe-add-default-attribute (slot-value self 'element) name))
+(defmethod dom:remove-named-item ((self attribute-node-map) name)
+  name
+  (let ((k (call-next-method)))
+    (maybe-add-default-attribute (slot-value self 'element) k)
+    k))
 
-(defmethod dom:remove-named-item-ns
-    ((self attribute-node-map) uri lname)
+(defmethod dom:remove-named-item-ns ((self attribute-node-map) uri lname)
+  uri lname
   (let ((k (call-next-method)))
-    (maybe-add-default-attribute (slot-value self 'element) (dom:node-name k))
+    (maybe-add-default-attribute (slot-value self 'element) k)
     k))
 
 (defmethod dom:get-elements-by-tag-name ((element element) name)



From dlichteblau at common-lisp.net  Sun Dec 11 20:07:46 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 21:07:46 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211200746.155898856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv12188/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 687/808 importNode11.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-not implemented

Date: Sun Dec 11 21:07:45 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.29 cxml/dom/dom-impl.lisp:1.30
--- cxml/dom/dom-impl.lisp:1.29	Sun Dec 11 21:04:06 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 21:07:45 2005
@@ -1344,12 +1344,8 @@
 
 (defmethod dom:import-node ((document document) (node entity-reference) deep)
   (declare (ignore deep))
-  #+(or)
   (import-node-internal 'entity-reference document node nil
-                        :name (dom:name node))
-  ;; XXX If the document being imported into provides a definition for
-  ;; this entity name, its value is assigned.
-  (dom-error :NOT_SUPPORTED_ERR "not implemented"))
+                        :name (dom:name node)))
 
 (defmethod dom:import-node ((document document) (node notation) deep)
   (import-node-internal 'notation document node deep



From dlichteblau at common-lisp.net  Sun Dec 11 20:07:46 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 21:07:46 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211200746.C51AC88567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv12188

Modified Files:
	DOMTEST 
Log Message:
 687/808 importNode11.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-not implemented

Date: Sun Dec 11 21:07:44 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.30 cxml/DOMTEST:1.31
--- cxml/DOMTEST:1.30	Sun Dec 11 21:04:06 2005
+++ cxml/DOMTEST	Sun Dec 11 21:07:44 2005
@@ -718,8 +718,6 @@
 685/808 importNode09.xml
 686/808 importNode10.xml
 687/808 importNode11.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-not implemented
 688/808 importNode12.xml
 689/808 importNode13.xml
 690/808 importNode14.xml
@@ -841,4 +839,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-2/763 tests failed; 45 tests were skipped
\ No newline at end of file
+1/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 20:13:05 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 21:13:05 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051211201305.C375988567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv12268

Modified Files:
	DOMTEST 
Log Message:
 755/808 nodenormalize01.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-No entity resolver registered.

Date: Sun Dec 11 21:13:04 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.31 cxml/DOMTEST:1.32
--- cxml/DOMTEST:1.31	Sun Dec 11 21:07:44 2005
+++ cxml/DOMTEST	Sun Dec 11 21:13:04 2005
@@ -786,8 +786,6 @@
 753/808 nodeissupported04.xml
 754/808 nodeissupported05.xml
 755/808 nodenormalize01.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-No entity resolver registered.
 756/808 nodesetprefix01.xml
 757/808 nodesetprefix02.xml
 758/808 nodesetprefix03.xml
@@ -839,4 +837,4 @@
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-1/763 tests failed; 45 tests were skipped
\ No newline at end of file
+0/763 tests failed; 45 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Sun Dec 11 20:13:06 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sun, 11 Dec 2005 21:13:06 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20051211201306.3C4C28856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv12268/dom

Modified Files:
	dom-impl.lisp 
Log Message:
 755/808 nodenormalize01.xml
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-No entity resolver registered.

Date: Sun Dec 11 21:13:05 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.30 cxml/dom/dom-impl.lisp:1.31
--- cxml/dom/dom-impl.lisp:1.30	Sun Dec 11 21:07:45 2005
+++ cxml/dom/dom-impl.lisp	Sun Dec 11 21:13:05 2005
@@ -1193,11 +1193,10 @@
   (let* ((owner (dom:owner-document instance))
          (handler (dom:make-dom-builder))
          (resolver (slot-value owner 'entity-resolver)))
-    (unless resolver
-      (dom-error :NOT_SUPPORTED_ERR "No entity resolver registered."))
-    (setf (document handler) owner)
-    (push instance (element-stack handler))
-    (funcall resolver (dom:name instance) handler))
+    (when resolver
+      (setf (document handler) owner)
+      (push instance (element-stack handler))
+      (funcall resolver (dom:name instance) handler)))
   (labels ((walk (n)
              (setf (slot-value n 'read-only-p) t)
              (when (dom:element-p n)



From dlichteblau at common-lisp.net  Sun Dec 11 23:31:40 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 12 Dec 2005 00:31:40 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html 
Message-ID: <20051211233140.4172288545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv29111

Modified Files:
	README.html 
Log Message:
na wer sagt's denn.
DOM 2 Core

Date: Mon Dec 12 00:31:38 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.10 cxml/README.html:1.11
--- cxml/README.html:1.10	Sun Dec  4 19:43:49 2005
+++ cxml/README.html	Mon Dec 12 00:31:36 2005
@@ -70,7 +70,7 @@
       validating SAX-like <a
       href="http://www.w3.org/TR/2000/REC-xml-20001006">XML&nbsp;1.0</a>
       parser as well as the <a
-      href="http://www.w3.org/TR/REC-DOM-Level-1/level-one-core.html">DOM&nbsp;Level&nbsp;1&nbsp;Core</a>
+      href="http://www.w3.org/TR/DOM-Level-2-Core/">DOM&nbsp;Level&nbsp;2&nbsp;Core</a>
       interfaces.
     </p>
 
@@ -90,7 +90,7 @@
     <h2>Recent Changes</h2>
     <p class="nomargin"><tt>rel-2005-xx-yy</tt></p>
     <ul class="nomargin">
-      <li>Use trivial-gray-streams.</li>
+      <li>Implemented DOM 2 Core.</li>
       <li>
         Error handling overhaul: All syntax errors should now be
         reported as instances of <tt>well-formedness-violation</tt>.  We
@@ -98,6 +98,7 @@
       </li>
       <li>Support internal subset serialization.</li>
       <li>Gilbert Baumann has clarified the license as Lisp-LGPL.</li>
+      <li>Use trivial-gray-streams.</li>
     </ul>
     <p class="nomargin"><tt>rel-2005-06-25</tt></p>
     <ul class="nomargin">



From dlichteblau at common-lisp.net  Sun Dec 11 23:31:41 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 12 Dec 2005 00:31:41 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/using.html 
Message-ID: <20051211233141.EF6BD88545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv29111/doc

Modified Files:
	using.html 
Log Message:
na wer sagt's denn.
DOM 2 Core

Date: Mon Dec 12 00:31:39 2005
Author: dlichteblau

Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.3 cxml/doc/using.html:1.4
--- cxml/doc/using.html:1.3	Sun Dec  4 19:43:53 2005
+++ cxml/doc/using.html	Mon Dec 12 00:31:39 2005
@@ -649,15 +649,15 @@
     <a name="dom"/>
     <h2>DOM Notes</h2>
     <p>
-      CXML implements the DOM Level 1 Core interfaces.&nbsp; Explaining
+      CXML implements the DOM Level 2 Core interfaces.&nbsp; Explaining
       DOM is better left to the <a
-      href="http://www.w3.org/TR/REC-DOM-Level-1/level-one-core.html">specification</a>,
+      href="http://www.w3.org/TR/DOM-Level-2-Core/core.html">specification</a>,
       so please refer to the official W3C documents for DOM.
     </p>
     <p>
       However, there is no "standard" DOM mapping for Lisp.&nbsp; DOM
       is <a
-      href="http://www.w3.org/TR/REC-DOM-Level-1/idl-definitions.html">specified
+      href="http://www.w3.org/TR/DOM-Level-2-Core/idl-definitions.html">specified
       in CORBA IDL</a>, but it refrains from using object-oriented IDL
       features, allowing for a much more natural Lisp implemenation than
       the the ordinary IDL/Lisp mapping would.



From dlichteblau at common-lisp.net  Sun Dec 11 23:56:48 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 12 Dec 2005 00:56:48 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/using.html 
Message-ID: <20051211235648.7C4F788567@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv31040/doc

Modified Files:
	using.html 
Log Message:
namespace normalization

Date: Mon Dec 12 00:56:47 2005
Author: dlichteblau

Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.4 cxml/doc/using.html:1.5
--- cxml/doc/using.html:1.4	Mon Dec 12 00:31:39 2005
+++ cxml/doc/using.html	Mon Dec 12 00:56:46 2005
@@ -156,12 +156,6 @@
     </p>
 
     <p>
-      <div class="def">Function DOM:MAKE-DOM-BUILDER ()</div>
-      Create a SAX handler which builds a DOM document.&nbsp; Example:
-    </p>
-    <pre>(cxml:parse-file "test.xml" (dom:make-dom-builder))</pre>
-
-    <p>
       <div class="def">Condition class CXML:XML-PARSE-ERROR ()</div>
       Superclass of all conditions signalled by the CXML parser.
     </p>
@@ -183,7 +177,8 @@
     <p>
       <div class="def">Function CXML:UNPARSE-DOCUMENT (document stream &rest keys)</div>
       <div class="def">Function CXML:UNPARSE-DOCUMENT-TO-OCTETS (document &rest keys) => vector</div>
-      Serialize a DOM document object.
+      Serialize a DOM document object.  These convenience functions are
+      wrappers around <tt>dom:map-document</tt>.
     </p>
     <ul>
       <li><tt>document</tt> -- a DOM document object</li>
@@ -224,6 +219,10 @@
       does not matter to the application.
     </p>
     <p>
+      If namespace support is enabled (the default), these functions use
+      a namespace normalizer (<tt>cxml:make-namespace-normalizer</tt>).
+    </p>
+    <p>
       <tt>unparse-document-to-octets</tt> returns an <tt>(unsigned-byte
       8)</tt> array, whereas <tt>unparse-document</tt> writes
       characters.&nbsp; <tt>unparse-document</tt> is useful together
@@ -247,7 +246,7 @@
     </p>
 
     <p>
-      <div class="def">Macro CXML:WITH-XML-OUTPUT (sink &body body) => vector</div>
+      <div class="def">Macro CXML:WITH-XML-OUTPUT (sink &body body) => sink-specific result</div>
       <div class="def">Macro CXML:WITH-ELEMENT (qname &body body) => result</div>
       <div class="def">Function CXML:ATTRIBUTE (name value) => value</div>
       <div class="def">Function CXML:TEXT (data) => data</div>
@@ -320,12 +319,6 @@
   (dom:map-document (cxml:make-validator x #"foo") d))</pre>
 
     <p>
-      <div class="def">Function DOM:MAP-DOCUMENT (handler document &key include-xmlns-attributes include-default-values)</div>
-      Traverse a DOM document and call SAX functions as if an XML
-      representation of the document were processed by a SAX parser.
-    </p>
-
-    <p>
       <div class="def">Class CXML:SAX-PROXY ()</div>
       <div class="def">Accessor CXML:PROXY-CHAINED-HANDLER</div>
       <tt>sax-proxy</tt> is a SAX handler which passes all events it
@@ -338,6 +331,17 @@
       handler unmodified.
     </p>
 
+    <p>
+    <div class="def">Accessor CXML:MAKE-NAMESPACE-NORMALIZER (next-handler)</div>
+    </p>
+    <p>
+      Return a SAX handler that performs <a
+      href="http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/namespaces-algorithms.html#normalizeDocumentAlgo">DOM
+      3-style namespace normalization</a> on Attribute lists in
+      <tt>start-element</tt> events before passing them on the next
+      handler.
+    </p>
+
     <a name="xmls"/>
     <h3>XMLS Compatibility</h3>
     <p>
@@ -649,19 +653,45 @@
     <a name="dom"/>
     <h2>DOM Notes</h2>
     <p>
-      CXML implements the DOM Level 2 Core interfaces.&nbsp; Explaining
-      DOM is better left to the <a
-      href="http://www.w3.org/TR/DOM-Level-2-Core/core.html">specification</a>,
-      so please refer to the official W3C documents for DOM.
+      CXML implements the DOM Level 2 Core interfaces.&nbsp; For details
+      on DOM, please refer to the <a
+      href="http://www.w3.org/TR/DOM-Level-2-Core/core.html">specification</a>.
     </p>
     <p>
-      However, there is no "standard" DOM mapping for Lisp.&nbsp; DOM
+      However, note that there is no "standard" DOM mapping for Lisp.&nbsp; DOM
       is <a
       href="http://www.w3.org/TR/DOM-Level-2-Core/idl-definitions.html">specified
       in CORBA IDL</a>, but it refrains from using object-oriented IDL
       features, allowing for a much more natural Lisp implemenation than
-      the the ordinary IDL/Lisp mapping would.
+      the the ordinary IDL/Lisp mapping would.  The mapping chosen for
+      cxml is explained below.
     </p>
+
+    <h3>Example</h3>
+    <pre>XML(97): (dom:node-type
+          (dom:document-element
+           (cxml:parse-file "~/test.xml" (dom:make-dom-builder))))
+:ELEMENT</pre>
+
+    <h3>CXML-specific functions</h3>
+    <p>
+      <div class="def">Function DOM:MAKE-DOM-BUILDER ()</div>
+      Create a SAX handler which builds a DOM document.&nbsp; Example:
+    </p>
+    <pre>(cxml:parse-file "test.xml" (dom:make-dom-builder))</pre>
+
+    <p>
+      <div class="def">Function DOM:MAP-DOCUMENT (handler document &key include-xmlns-attributes include-default-values)</div>
+      Traverse a DOM document and call SAX functions as if an XML
+      representation of the document were processed by a SAX parser.
+    </p>
+    <p>
+      <tt>dom:map-document</tt> is the low-level building-block used to
+      implement the <a href="#serialization">serialization functions</a>
+      like <tt>unparse-document</tt>, but can also be used directly.
+    </p>
+
+    <h3>DOM/Lisp mapping</h3>
     <p>
       Differences between CXML's DOM and the direct IDL/Lisp mapping:
     </p>
@@ -715,10 +745,5 @@
         <tt>dom:do-node-list</tt>, which can be implemented portably.
       </li>
     </ul>
-    <p>Example:</p>
-    <pre>XML(97): (dom:node-type
-          (dom:document-element
-           (cxml:parse-file "~/test.xml" (dom:make-dom-builder))))
-:ELEMENT</pre>
   </body>
 </html>



From dlichteblau at common-lisp.net  Sun Dec 11 23:56:47 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 12 Dec 2005 00:56:47 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html cxml/cxml.asd 
Message-ID: <20051211235647.E59E488545@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv31040

Modified Files:
	README.html cxml.asd 
Log Message:
namespace normalization

Date: Mon Dec 12 00:56:46 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.11 cxml/README.html:1.12
--- cxml/README.html:1.11	Mon Dec 12 00:31:36 2005
+++ cxml/README.html	Mon Dec 12 00:56:45 2005
@@ -90,7 +90,12 @@
     <h2>Recent Changes</h2>
     <p class="nomargin"><tt>rel-2005-xx-yy</tt></p>
     <ul class="nomargin">
-      <li>Implemented DOM 2 Core.</li>
+      <li>
+        Implemented DOM 2 Core.
+        (A handler for DOM 3-style namespace normalization is provided and 
+        used by default for serialization of DOM documents if namespace
+	support is enabled.)
+      </li>
       <li>
         Error handling overhaul: All syntax errors should now be
         reported as instances of <tt>well-formedness-violation</tt>.  We


Index: cxml/cxml.asd
diff -u cxml/cxml.asd:1.6 cxml/cxml.asd:1.7
--- cxml/cxml.asd:1.6	Sat Nov 26 22:48:16 2005
+++ cxml/cxml.asd	Mon Dec 12 00:56:45 2005
@@ -68,6 +68,7 @@
      (:file "unparse"         :depends-on ("xml-parse"))
      (:file "xmls-compat"     :depends-on ("xml-parse"))
      (:file "recoder"         :depends-on ("xml-parse"))
+     (:file "xmlns-normalizer" :depends-on ("xml-parse"))
      (:file "catalog"         :depends-on ("xml-parse"))
      (:file "sax-proxy"       :depends-on ("xml-parse")))
     :depends-on (:cxml-runes :puri :trivial-gray-streams))



From dlichteblau at common-lisp.net  Sun Dec 11 23:56:55 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 12 Dec 2005 00:56:55 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xmlns-normalizer.lisp
	cxml/xml/package.lisp cxml/xml/sax-proxy.lisp 
Message-ID: <20051211235655.9DF878856F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv31040/xml

Modified Files:
	package.lisp sax-proxy.lisp 
Added Files:
	xmlns-normalizer.lisp 
Log Message:
namespace normalization

Date: Mon Dec 12 00:56:52 2005
Author: dlichteblau



Index: cxml/xml/package.lisp
diff -u cxml/xml/package.lisp:1.6 cxml/xml/package.lisp:1.7
--- cxml/xml/package.lisp:1.6	Mon Nov 28 23:33:47 2005
+++ cxml/xml/package.lisp	Mon Dec 12 00:56:52 2005
@@ -74,4 +74,5 @@
    
    #:make-recoder
    #:sax-proxy
-   #:proxy-chained-handler))
+   #:proxy-chained-handler
+   #:make-namespace-normalizer))


Index: cxml/xml/sax-proxy.lisp
diff -u cxml/xml/sax-proxy.lisp:1.2 cxml/xml/sax-proxy.lisp:1.3
--- cxml/xml/sax-proxy.lisp:1.2	Mon Nov 28 23:33:47 2005
+++ cxml/xml/sax-proxy.lisp	Mon Dec 12 00:56:52 2005
@@ -29,6 +29,8 @@
   (define-proxy-method sax:end-cdata ())
   (define-proxy-method sax:start-dtd (name public-id system-id))
   (define-proxy-method sax:end-dtd ())
+  (define-proxy-method sax:start-internal-subset ())
+  (define-proxy-method sax:end-internal-subset ())
   (define-proxy-method sax:unparsed-entity-declaration (name pub sys not))
   (define-proxy-method sax:external-entity-declaration (kind name pub sys))
   (define-proxy-method sax:internal-entity-declaration (kind name value))



From dlichteblau at common-lisp.net  Sun Dec 11 23:56:53 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 12 Dec 2005 00:56:53 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp cxml/dom/unparse.lisp
Message-ID: <20051211235653.845578856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv31040/dom

Modified Files:
	dom-impl.lisp unparse.lisp 
Log Message:
namespace normalization

Date: Mon Dec 12 00:56:51 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.31 cxml/dom/dom-impl.lisp:1.32
--- cxml/dom/dom-impl.lisp:1.31	Sun Dec 11 21:13:05 2005
+++ cxml/dom/dom-impl.lisp	Mon Dec 12 00:56:48 2005
@@ -50,18 +50,6 @@
 		      (dom:namespace-uri node)))
   (setf (slot-value node 'prefix) newval))
 
-(defmethod (setf dom:prefix) :before (newval (node attribute))
-  (when (rod= (dom:node-name node) #"xmlns")
-    (dom-error :NAMESPACE_ERR "must not change xmlns attribute prefix")))
-
-(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)
@@ -78,6 +66,14 @@
    (owner-element :initarg :owner-element :reader dom:owner-element)
    (specified-p :initarg :specified-p   :reader dom:specified)))
 
+(defmethod (setf dom:prefix) :before (newval (node attribute))
+  (when (rod= (dom:node-name node) #"xmlns")
+    (dom-error :NAMESPACE_ERR "must not change xmlns attribute prefix")))
+
+(defmethod (setf dom:prefix) :after (newval (node attribute))
+  (setf (slot-value node 'name)
+	(concatenate 'rod newval #":" (dom:local-name node))))
+
 (defmethod print-object ((object attribute) stream)
   (print-unreadable-object (object stream :type t :identity t)
     (format stream "~A=~S"
@@ -87,6 +83,10 @@
 (defclass element (namespace-mixin node)
   ((tag-name    :initarg :tag-name      :reader dom:tag-name)
    (attributes  :initarg :attributes    :reader dom:attributes)))
+
+(defmethod (setf dom:prefix) :after (newval (node element))
+  (setf (slot-value node 'tag-name)
+	(concatenate 'rod newval #":" (dom:local-name node))))
 
 (defmethod print-object ((object element) stream)
   (print-unreadable-object (object stream :type t :identity t)


Index: cxml/dom/unparse.lisp
diff -u cxml/dom/unparse.lisp:1.2 cxml/dom/unparse.lisp:1.3
--- cxml/dom/unparse.lisp:1.2	Sun Dec  4 19:43:56 2005
+++ cxml/dom/unparse.lisp	Mon Dec 12 00:56:51 2005
@@ -1,6 +1,8 @@
 (in-package :cxml)
 
 (defun %unparse-document (sink doc canonical)
+  (when sax:*namespace-processing*
+    (setf sink (cxml:make-namespace-normalizer sink)))
   (dom:map-document sink
 		    doc
 		    :include-doctype (if (and canonical (>= canonical 2))



From dlichteblau at common-lisp.net  Sat Dec 17 22:30:21 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat, 17 Dec 2005 23:30:21 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/catalog.lisp 
Message-ID: <20051217223021.E70C388554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv11009/xml

Modified Files:
	catalog.lisp 
Log Message:
fixed catalog error handling

Date: Sat Dec 17 23:30:20 2005
Author: dlichteblau

Index: cxml/xml/catalog.lisp
diff -u cxml/xml/catalog.lisp:1.2 cxml/xml/catalog.lisp:1.3
--- cxml/xml/catalog.lisp:1.2	Mon Nov 28 23:33:47 2005
+++ cxml/xml/catalog.lisp	Sat Dec 17 23:30:19 2005
@@ -223,7 +223,7 @@
   (handler-case
       (parse-catalog-file/strict uri)
     (file-error () nil)
-    (parser-error () nil)))
+    (xml-parse-error () nil)))
 
 (defparameter *catalog-dtd*
     (let* ((cxml



From dlichteblau at common-lisp.net  Sat Dec 17 22:43:19 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Sat, 17 Dec 2005 23:43:19 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp 
Message-ID: <20051217224319.5D14488554@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv11981/xml

Modified Files:
	xml-parse.lisp 
Log Message:
fixed octet-input-stream
Date: Sat Dec 17 23:43:17 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.53 cxml/xml/xml-parse.lisp:1.54
--- cxml/xml/xml-parse.lisp:1.53	Mon Dec  5 00:20:27 2005
+++ cxml/xml/xml-parse.lisp	Sat Dec 17 23:43:17 2005
@@ -3033,7 +3033,7 @@
   (make-rod-xstream (string-rod string)))
 
 (defclass octet-input-stream
-    (trivial-gray-stream fundamental-binary-input-stream)
+    (trivial-gray-stream-mixin fundamental-binary-input-stream)
     ((octets :initarg :octets)
      (pos :initform 0)))
 



From dlichteblau at common-lisp.net  Mon Dec 26 22:04:19 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 26 Dec 2005 23:04:19 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html 
Message-ID: <20051226220419.D8803880D9@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv962

Modified Files:
	README.html 
Log Message:
dokumentation aufgeteilt

Date: Mon Dec 26 23:04:09 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.12 cxml/README.html:1.13
--- cxml/README.html:1.12	Mon Dec 12 00:56:45 2005
+++ cxml/README.html	Mon Dec 26 23:04:08 2005
@@ -10,32 +10,6 @@
       <p>
 	<a href="README.html">CXML Homepage</a>
       </p>
-      <ul>
-	<li>
-          <a href="doc/installation.html">Installing Closure XML</a>
-          <ul>
-	    <li><a href="doc/installation.html#download"><b>Download</b></a></li>
-	    <li><a href="doc/installation.html#implementations">Implementation-specific notes</a></li>
-	    <li><a href="doc/installation.html#compilation"><b>Compilation</b></a></li>
-	    <li><a href="doc/installation.html#tests">Tests</a></li>
-          </ul>
-	</li>
-	<li>
-          <a href="doc/using.html">Using Closure XML</a>
-          <ul>
-            <li><a href="doc/using.html#quickstart"><b>Quick-Start Example</b></a></li>
-            <li><a href="doc/using.html#parser">Parsing and Validating</a></li>
-            <li><a href="doc/using.html#serialization">Serialization</a></li>
-            <li><a href="doc/using.html#misc">Miscellaneous Utility Functions</a></li>
-            <li><a href="doc/using.html#xmls">XMLS Compatibility</a></li>
-            <li><a href="doc/using.html#rods">Dealing with Rods</a></li>
-            <li><a href="doc/using.html#dtdcache">Caching of DTD Objects</a></li>
-            <li><a href="doc/using.html#catalogs">XML Catalogs</a></li>
-	    <li><a href="doc/using.html#sax">SAX Interface</a></li>
-	    <li><a href="doc/using.html#dom">DOM Notes</a></li>
-          </ul>
-	</li>
-      </ul>
     </div>
 
     <h1>Closure XML Parser</h1>
@@ -90,17 +64,8 @@
     <h2>Recent Changes</h2>
     <p class="nomargin"><tt>rel-2005-xx-yy</tt></p>
     <ul class="nomargin">
-      <li>
-        Implemented DOM 2 Core.
-        (A handler for DOM 3-style namespace normalization is provided and 
-        used by default for serialization of DOM documents if namespace
-	support is enabled.)
-      </li>
-      <li>
-        Error handling overhaul: All syntax errors should now be
-        reported as instances of <tt>well-formedness-violation</tt>.  We
-        also print line number information.
-      </li>
+      <li>Implemented DOM 2 Core.</li>
+      <li>Error handling overhaul.</li>
       <li>Support internal subset serialization.</li>
       <li>Gilbert Baumann has clarified the license as Lisp-LGPL.</li>
       <li>Use trivial-gray-streams.</li>



From dlichteblau at common-lisp.net  Mon Dec 26 22:04:19 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Mon, 26 Dec 2005 23:04:19 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/dom.html cxml/doc/quickstart.html
	cxml/doc/xmls-compat.html cxml/doc/cxml.css
	cxml/doc/installation.html cxml/doc/using.html 
Message-ID: <20051226220419.0AC5088446@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv962/doc

Modified Files:
	cxml.css installation.html using.html 
Added Files:
	dom.html quickstart.html xmls-compat.html 
Log Message:
dokumentation aufgeteilt

Date: Mon Dec 26 23:04:10 2005
Author: dlichteblau







Index: cxml/doc/cxml.css
diff -u cxml/doc/cxml.css:1.1 cxml/doc/cxml.css:1.2
--- cxml/doc/cxml.css:1.1	Sat Jun 25 15:56:54 2005
+++ cxml/doc/cxml.css	Mon Dec 26 23:04:10 2005
@@ -5,19 +5,33 @@
   margin: 0em 2pt 1em 2em;
   min-width: 15%;
   padding: 0pt 5pt 5pt 5pt;
+  font-family: helvetica;
 }
 
-div.sidebar ul {
+div.sidebar ul.main {
   padding: 0pt 0pt 0pt 1em;
   margin: 0 0 1em;
 }
 
+div.sidebar ul.sub {
+  list-style-type: square;
+  padding: 0pt 0pt 0pt 1em;
+  margin: 0 0 1em;
+}
+
+div.sidebar ul.hack {
+  padding: 0 0 0 0;
+  margin: 0 0 1em;
+  list-style-type: none;
+}
+
 body {
   color: #000000;
   background-color: #ffffff;
   margin-right: 0pt;
   margin-bottom: 10%;
   padding-left: 30px;
+  font-family: helvetica;
 }
 
 h1,h2,h3 {


Index: cxml/doc/installation.html
diff -u cxml/doc/installation.html:1.4 cxml/doc/installation.html:1.5
--- cxml/doc/installation.html:1.4	Sun Dec  4 19:43:52 2005
+++ cxml/doc/installation.html	Mon Dec 26 23:04:10 2005
@@ -7,35 +7,6 @@
   </head>
   <body>
     <div class="sidebar">
-      <p>
-	<a href="../README.html">CXML Homepage</a>
-      </p>
-      <ul>
-	<li>
-          <a href="installation.html">Installing Closure XML</a>
-          <ul>
-	    <li><a href="installation.html#download"><b>Download</b></a></li>
-	    <li><a href="installation.html#implementations">Implementation-specific notes</a></li>
-	    <li><a href="installation.html#compilation"><b>Compilation</b></a></li>
-	    <li><a href="installation.html#tests">Tests</a></li>
-          </ul>
-	</li>
-	<li>
-          <a href="using.html">Using Closure XML</a>
-          <ul>
-            <li><a href="using.html#quickstart"><b>Quick-Start Example</b></a></li>
-            <li><a href="using.html#parser">Parsing and Validating</a></li>
-            <li><a href="using.html#serialization">Serialization</a></li>
-            <li><a href="using.html#misc">Miscellaneous Utility Functions</a></li>
-            <li><a href="using.html#xmls">XMLS Compatibility</a></li>
-            <li><a href="using.html#rods">Dealing with Rods</a></li>
-            <li><a href="using.html#dtdcache">Caching of DTD Objects</a></li>
-            <li><a href="using.html#catalogs">XML Catalogs</a></li>
-	    <li><a href="using.html#sax">SAX Interface</a></li>
-	    <li><a href="using.html#dom">DOM Notes</a></li>
-          </ul>
-	</li>
-      </ul>
     </div>
     <h1>Installation of Closure XML</h1>
 


Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.5 cxml/doc/using.html:1.6
--- cxml/doc/using.html:1.5	Mon Dec 12 00:56:46 2005
+++ cxml/doc/using.html	Mon Dec 26 23:04:10 2005
@@ -7,80 +7,17 @@
   </head>
   <body>
     <div class="sidebar">
-      <p>
-	<a href="../README.html">CXML Homepage</a>
-      </p>
-      <ul>
-	<li>
-          <a href="installation.html">Installing Closure XML</a>
-          <ul>
-	    <li><a href="installation.html#download"><b>Download</b></a></li>
-	    <li><a href="installation.html#implementations">Implementation-specific notes</a></li>
-	    <li><a href="installation.html#compilation"><b>Compilation</b></a></li>
-	    <li><a href="installation.html#tests">Tests</a></li>
-          </ul>
-	</li>
-	<li>
-          <a href="using.html">Using Closure XML</a>
-          <ul>
-            <li><a href="using.html#quickstart"><b>Quick-Start Example</b></a></li>
-            <li><a href="using.html#parser">Parsing and Validating</a></li>
-            <li><a href="using.html#serialization">Serialization</a></li>
-            <li><a href="using.html#misc">Miscellaneous Utility Functions</a></li>
-            <li><a href="using.html#xmls">XMLS Compatibility</a></li>
-            <li><a href="using.html#rods">Dealing with Rods</a></li>
-            <li><a href="using.html#dtdcache">Caching of DTD Objects</a></li>
-            <li><a href="using.html#catalogs">XML Catalogs</a></li>
-	    <li><a href="using.html#sax">SAX Interface</a></li>
-	    <li><a href="using.html#dom">DOM Notes</a></li>
-          </ul>
-	</li>
-      </ul>
     </div>
-    <h1>Using Closure XML</h1>
-
-    <a name="quickstart"/>
-    <h3>Quick-Start Example</h3>
-
-    <p>
-      Make sure to <a href="installation.html#installation">install and load</a> cxml first.
-    </p>
-
-    <p>Create a test file called <tt>example.xml</tt>:</p>
-    <pre>* <b>(with-open-file (s "example.xml" :direction :output)
-    (write-string "&lt;test a='b'&gt;&lt;child/&gt;&lt;/test>" s))</b></pre>
-
-    <p>Parse <tt>example.xml</tt> into a DOM tree (<a href="#parser">read
-    more</a>):</p>
-    <pre>* <b>(cxml:parse-file "example.xml" (dom:make-dom-builder))</b>
-#&lt;DOM-IMPL::DOCUMENT @ #x72206172>
-;; save result for later:
-* <b>(defparameter *example* *)</b>
-*EXAMPLE*</pre>
-
-    <p>Inspect the DOM tree (<a href="#dom">read more</a>):</p>
-    <pre>* <b>(dom:document-element *example*)</b>
-#&lt;DOM-IMPL::ELEMENT test @ #x722b6ba2&gt;
-* <b>(dom:tag-name (dom:document-element *example*))</b>
-"test"
-* <b>(dom:child-nodes (dom:document-element *example*))</b>
-#(#&lt;DOM-IMPL::ELEMENT child @ #x722b6d8a&gt;)
-* <b>(dom:get-attribute (dom:document-element *example*) "a")</b>
-"b"</pre>
-
-    <p>Serialize the DOM document back into a stream (<a
-    href="#serialization">read more</a>):</p>
-    <pre><b>(cxml:unparse-document *example* *standard-output*)</b>
-&lt;test a="b"&gt;&lt;child&gt;&lt;/child>&lt;/test></pre>
-
-    <p>As an alternative to DOM, parse into xmls-compatible list
-    structure (<a href="#xmls">read more</a>):</p>
-    <pre>* <b>(cxml:parse-file "example.xml" (cxml-xmls:make-xmls-builder))</b>
-("test" (("a" "b")) ("child" NIL))</pre>
+    <h1>Using the SAX parser</h1>
 
     <a name="parser"/>
     <h3>Parsing and Validating</h3>
     <p>
+      CXML is implemented as a SAX parser.  (Refer to <a
+      href="dom.html#parser">make-dom-builder</a> for information about
+      DOM.)
+    </p>
+    <p>
       <div class="def">Function CXML:PARSE-FILE (pathname handler &key ...)</div>
       <div class="def">Function CXML:PARSE-STREAM (stream handler &key ...)</div>
       <div class="def">Function CXML:PARSE-OCTETS (octets handler &key ...)</div>
@@ -175,16 +112,29 @@
     <a name="serialization"/>
     <h3>Serialization</h3>
     <p>
-      <div class="def">Function CXML:UNPARSE-DOCUMENT (document stream &rest keys)</div>
-      <div class="def">Function CXML:UNPARSE-DOCUMENT-TO-OCTETS (document &rest keys) => vector</div>
-      Serialize a DOM document object.  These convenience functions are
-      wrappers around <tt>dom:map-document</tt>.
+      Serialization is performed using <tt>sink</tt> objects.  A sink
+      is an output stream for runes.  There are different kinds of sinks
+      for output to lisp streams, vectors, etc.
+    </p>
+    <p>
+      Technically, sinks are SAX handlers that write XML output for SAX
+      events sent to them.  In practise, user code would normally not
+      generate those SAX events manually, and instead use a function
+      like <a href="dom.html#serialization">dom:map-document</a> or <a
+      href="xmls-compat.html">xmls-compat:map-node</a> to serialize an
+      in-memory document.
+    </p>
+    <p>
+      In addition to <tt>map-document</tt>, cxml has a set of
+      convenience macros for serialization (see below for
+      <tt>with-xml-output</tt>, <tt>with-element</tt>, etc).
+    </p>
+
+    <p>
+      <div class="def">Function CXML:MAKE-CHARACTER-STREAM-SINK (stream &rest keys) => sink</div>
+      <div class="def">Function CXML:MAKE-OCTET-VECTOR-SINK (&rest keys) => sink</div>
+      Return a handle suitable for event-based XML serialization.
     </p>
-    <ul>
-      <li><tt>document</tt> -- a DOM document object</li>
-      <li><tt>stream</tt> -- a Common Lisp stream with element-type
-        <tt>character</tt></li>
-    </ul>
     <p>Keyword arguments:</p>
     <ul>
       <li>
@@ -231,12 +181,6 @@
       characters written by <tt>unparse-document</tt> are really UTF-8
       bytes encoded as characters.
     </p>
-
-    <p>
-      <div class="def">Function CXML:MAKE-CHARACTER-STREAM-SINK (stream &rest keys) => sink</div>
-      <div class="def">Function CXML:MAKE-OCTET-VECTOR-SINK (&rest keys) => sink</div>
-      Return a handle suitable for event-based XML serialization.
-    </p>
     <p>
       These function provide the low-level mechanism used by the DOM
       serialization functions.  To serialize a document without building
@@ -272,7 +216,7 @@
 &lt;/foo&gt;</pre>
    <p>
       (Note that these functions accept both strings and rods, so we
-      could write <tt>"foo"</tt> instead of <tt>#"foo"</tt> above.)
+      can write <tt>"foo"</tt> instead of <tt>#"foo"</tt> above.)
    </p>
 
     <p>
@@ -303,7 +247,7 @@
   (sax:end-document sink))</pre>
 
     <a name="misc"/>
-    <h3>Miscellaneous Utility Functions</h3>
+    <h3>Miscellaneous SAX handlers</h3>
     <p>
       <div class="def">Function CXML:MAKE-VALIDATOR (dtd root)</div>
       Create a SAX handler which validates against a DTD instance.&nbsp;
@@ -337,82 +281,11 @@
     <p>
       Return a SAX handler that performs <a
       href="http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/namespaces-algorithms.html#normalizeDocumentAlgo">DOM
-      3-style namespace normalization</a> on Attribute lists in
+      3-style namespace normalization</a> on attribute lists in
       <tt>start-element</tt> events before passing them on the next
       handler.
     </p>
 
-    <a name="xmls"/>
-    <h3>XMLS Compatibility</h3>
-    <p>
-      Like other XML parsers written in Lisp, CXML can work with
-      documents represented as list structures. The specific model
-      implemented by cxml is compatible with the <a
-      href="http://common-lisp.net/project/xmls/">xmls parser</a>.  Xmls
-      list structures are a simpler and faster alternative to full DOM
-      document trees.  They also serve as an example showing how to
-      implement user-defined document models as an independent layer
-      over the the base parser (c.f. <tt>xml/xmls-compat.lisp</tt> in
-      the cxml distribution).  However, note that the list structures do
-      not include all information available in DOM documents and are
-      sometimes more difficult to work wth since many DOM functions
-      cannot be implemented on them.
-    </p>
-    <p>
-      <div class="def">Function CXML-XMLS:MAKE-XMLS-BUILDER (&key include-default-values)</div>
-      Create a SAX handler which builds XMLS list structures.&nbsp;
-      If <tt>include-default-values</tt> is true, default values for
-      attributes declared in a DTD are included as attributes in the
-      xmls output.  <tt>include-default-values</tt> is true by default
-      and can be set to <tt>nil</tt> to suppress inclusion of default
-      values.
-    </p>
-    <p>
-      Example:
-    </p>
-    <pre>(cxml:parse-file "test.xml" (cxml-xmls:make-xmls-builder))</pre>
-    <p>
-      <div class="def">Function CXML-XMLS:MAP-NODE (handler node &key include-xmlns-attributes)</div>
-      Traverse an XMLS document/node and call SAX functions as if an XML
-      representation of the document were processed by a SAX parser.
-    </p>
-    <p>
-      Use this function to serialize XMLS data.  For example, we could
-      define a replacement for <tt>xmls:write-xml</tt> like this:
-    </p>
-    <pre>(defun write-xml (stream node &key indent)
-  (let ((sink (cxml:make-character-stream-sink
-               stream :canonical nil :indentation indent)))
-    (cxml-xmls:map-node sink node)))</pre>
-    <p>
-      <div class="def">Function CXML-XMLS:MAKE-NODE (&key name ns attrs
-      children) => xmls node</div>
-      Build a list node of the form
-      (<em>name</em>&nbsp;((<em>name</em>&nbsp;<em>value</em>)<em>*</em>)&nbsp;<em>child*</em>).
-    </p>
-    <p>
-      The node list's <tt>car</tt> can also be a cons of local <tt>name</tt>
-      and namespace prefix <tt>ns</tt>.
-      <em>fixme:</em> It is unclear to me how namespaces are meant to
-      work in xmls, since xmls documentation differs from how xmls
-      actually works in current releases.  Usually applications need to
-      know both the namespace prefix <em>and</em> the namespace URI.  We
-      currently follow the xmls <em>implementation</em> and use the
-      namespace prefix instead of following its <em>documentation</em> which
-      shows the URI.  We do not follow xmls in munging xmlns attribute
-      values.  Attributes themselves have namespaces and it is not clear
-      to me how that works in xmls.
-    </p>
-    <p>
-      <div class="def">Accessor CXML-XMLS:NODE-NAME (node)</div>
-      <div class="def">Accessor CXML-XMLS:NODE-NS (node)</div>
-      <div class="def">Accessor CXML-XMLS:NODE-ATTRS (node)</div>
-      <div class="def">Accessor CXML-XMLS:NODE-CHILDREN (node)</div>
-      Accessors for xmls node data.
-    </p>
-    <p>
-    </p>
-
     <a name="rods"/>
     <h3>Dealing with Rods</h3>
     <p>
@@ -648,102 +521,5 @@
     <p>
       <i>fixme</i>: For more information on these functions refer to the docstrings.
     </p>
-
-
-    <a name="dom"/>
-    <h2>DOM Notes</h2>
-    <p>
-      CXML implements the DOM Level 2 Core interfaces.&nbsp; For details
-      on DOM, please refer to the <a
-      href="http://www.w3.org/TR/DOM-Level-2-Core/core.html">specification</a>.
-    </p>
-    <p>
-      However, note that there is no "standard" DOM mapping for Lisp.&nbsp; DOM
-      is <a
-      href="http://www.w3.org/TR/DOM-Level-2-Core/idl-definitions.html">specified
-      in CORBA IDL</a>, but it refrains from using object-oriented IDL
-      features, allowing for a much more natural Lisp implemenation than
-      the the ordinary IDL/Lisp mapping would.  The mapping chosen for
-      cxml is explained below.
-    </p>
-
-    <h3>Example</h3>
-    <pre>XML(97): (dom:node-type
-          (dom:document-element
-           (cxml:parse-file "~/test.xml" (dom:make-dom-builder))))
-:ELEMENT</pre>
-
-    <h3>CXML-specific functions</h3>
-    <p>
-      <div class="def">Function DOM:MAKE-DOM-BUILDER ()</div>
-      Create a SAX handler which builds a DOM document.&nbsp; Example:
-    </p>
-    <pre>(cxml:parse-file "test.xml" (dom:make-dom-builder))</pre>
-
-    <p>
-      <div class="def">Function DOM:MAP-DOCUMENT (handler document &key include-xmlns-attributes include-default-values)</div>
-      Traverse a DOM document and call SAX functions as if an XML
-      representation of the document were processed by a SAX parser.
-    </p>
-    <p>
-      <tt>dom:map-document</tt> is the low-level building-block used to
-      implement the <a href="#serialization">serialization functions</a>
-      like <tt>unparse-document</tt>, but can also be used directly.
-    </p>
-
-    <h3>DOM/Lisp mapping</h3>
-    <p>
-      Differences between CXML's DOM and the direct IDL/Lisp mapping:
-    </p>
-    <ul>
-      <li>
-        DOM function names are symbols in the <tt>DOM</tt> package (not
-        the <tt>OP</tt> package).
-      </li>
-      <li>
-        DOM functions have proper required arguments, not a huge
-        <tt>&rest</tt> lambda list.
-      </li>
-      <li>
-        Although most IDL interfaces are implemented as CLOS classes by
-        CXML, the Lisp types of DOM objects is not documented and cannot
-        be relied upon.&nbsp; A node's type can be determined using
-        <tt>dom:node-type</tt> instead.
-      </li>
-      <li>
-        <tt>DOMString</tt> is mapped to <tt>rod</tt>, which is either
-        an <tt>(unsigned-byte 16)</tt> array type or a string type.
-      </li>
-      <li>
-        The IDL/Lisp mapping maps CORBA enums to Lisp keywords.&nbsp;
-        Unfortunately, the DOM IDL does not use enums.&nbsp; Instead,
-        both exception types and node types are defined integer
-        constants.&nbsp; CXML chooses to ignore this definition and uses
-        keywords instead.
-      </li>
-      <li>
-        DOM uses StudlyCaps.&nbsp; Lisp programmers don't.&nbsp; We
-        insert <tt>#\-</tt> before every upper case letter preceded by a
-        lower case letter and before every upper case letter which is
-        followed by a lower case letter, but preceded by a capital
-        letter.&nbsp; This algorithms leads to the natural Lisp spelling
-        of DOM function names.
-      </li>
-      <li>
-        Implementation note: DOM's <tt>NodeList</tt> does not
-        necessarily map to a native "sequence" type.&nbsp; (For example,
-        node lists are objects in Java, not arrays.)&nbsp;
-        <tt>NodeList</tt> is specified to reflect changes done after a
-        node list was created, so node lists cannot be Lisp lists.&nbsp;
-        (A node list could be implemented as a CLOS object pointing to
-        said list though.)&nbsp; Instead, CXML currently implements node
-        lists as adjustable vectors.&nbsp; Note that code which relies on
-        this implementation and uses Lisp sequence functions
-        instead of sticking to <tt>dom:item</tt> and <tt>dom:length</tt>
-        is not portable.&nbsp; As a compromise, you can use our
-        extensions <tt>dom:map-node-list</tt> or
-        <tt>dom:do-node-list</tt>, which can be implemented portably.
-      </li>
-    </ul>
   </body>
 </html>



From dlichteblau at common-lisp.net  Tue Dec 27 00:21:30 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 01:21:30 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/cxml.asd 
Message-ID: <20051227002130.ECE47880D9@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv11709

Modified Files:
	cxml.asd 
Log Message:
utf8-dom

Date: Tue Dec 27 01:21:28 2005
Author: dlichteblau

Index: cxml/cxml.asd
diff -u cxml/cxml.asd:1.7 cxml/cxml.asd:1.8
--- cxml/cxml.asd:1.7	Mon Dec 12 00:56:45 2005
+++ cxml/cxml.asd	Tue Dec 27 01:21:27 2005
@@ -46,6 +46,7 @@
              #-rune-is-character "runes"
              #+rune-is-character "characters"
 	    :depends-on ("package" "definline"))
+     #+rune-is-integer (:file "utf8" :depends-on ("package"))
      (:file "syntax" :depends-on ("package" "definline" runes))
      (:file "encodings" :depends-on ("package"))
      (:file "encodings-data" :depends-on ("package" "encodings"))
@@ -73,6 +74,25 @@
      (:file "sax-proxy"       :depends-on ("xml-parse")))
     :depends-on (:cxml-runes :puri :trivial-gray-streams))
 
+(defclass utf8dom-file (closure-source-file) ((of)))
+
+(defmethod output-files ((operation compile-op) (c utf8dom-file))
+  (let* ((normal (car (call-next-method)))
+	 (name (concatenate 'string (pathname-name normal) "-utf8"))
+	 (of (make-pathname :name name :defaults normal)))
+    (setf (slot-value c 'of) of)
+    (list of)))
+
+(defmethod perform ((o load-op) (c utf8dom-file))
+  (load (slot-value c 'of)))
+
+(defvar *utf8-runes-readtable*)
+
+(defmethod perform ((operation compile-op) (c utf8dom-file))
+  (let ((*features* (cons 'utf8dom-file *features*))
+	(*readtable* *utf8-runes-readtable*))
+    (call-next-method)))
+
 (asdf:defsystem :cxml-dom
     :default-component-class closure-source-file
     :pathname (merge-pathnames
@@ -80,8 +100,12 @@
                (make-pathname :name nil :type nil :defaults *load-truename*))
     :components
     ((:file "package")
-     (:file "dom-impl"        :depends-on ("package"))
-     (:file "dom-builder"     :depends-on ("dom-impl"))
+     (:file rune-impl :pathname "dom-impl" :depends-on ("package"))
+     (:file rune-builder :pathname "dom-builder" :depends-on (rune-impl))
+     #+rune-is-integer
+     (utf8dom-file utf8-impl :pathname "dom-impl" :depends-on ("package"))
+     #+rune-is-integer
+     (utf8dom-file utf8-builder :pathname "dom-builder" :depends-on (utf8-impl))
      (:file "unparse"         :depends-on ("package"))
      (:file "dom-sax"         :depends-on ("package")))
     :depends-on (:cxml-xml))



From dlichteblau at common-lisp.net  Tue Dec 27 00:21:33 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 01:21:33 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/using.html 
Message-ID: <20051227002133.21D44880D9@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv11709/doc

Modified Files:
	using.html 
Log Message:
utf8-dom

Date: Tue Dec 27 01:21:30 2005
Author: dlichteblau

Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.6 cxml/doc/using.html:1.7
--- cxml/doc/using.html:1.6	Mon Dec 26 23:04:10 2005
+++ cxml/doc/using.html	Tue Dec 27 01:21:30 2005
@@ -323,11 +323,10 @@
       builder, since DOM is specified to use UTF-16.
     </p>
     <p>
-      <div class="def">Function CXML:MAKE-RECODER (chained-handler &optional recoder-fn)</div>
+      <div class="def">Function CXML:MAKE-RECODER (chained-handler recoder-fn)</div>
       Return a SAX handler which passes all events on to
       <tt>chained-handler</tt> after converting all strings and rods
-      using <tt>recoder-fn</tt>, a function of one argument which
-      defaults to <tt>runes:rod-string</tt>.
+      using <tt>recoder-fn</tt>, a function of one argument.
     </p>
     <p>
       <b>Example.</b> In a Lisp which ordinarily would use octet vector rods:
@@ -337,7 +336,7 @@
     <p>
       Use a SAX recoder to get strings instead::
     </p>
-    <pre>CL-USER(17): (parse-string "&lt;test/&gt;" (cxml:make-recoder (cxml-xmls:make-xmls-builder)))
+    <pre>CL-USER(17): (parse-string "&lt;test/&gt;" (cxml:make-recoder (cxml-xmls:make-xmls-builder) 'runes:rod-string))
 ("test" NIL)</pre>
 
     <a name="dtdcache"/>



From dlichteblau at common-lisp.net  Tue Dec 27 00:21:37 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 01:21:37 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-builder.lisp
	cxml/dom/dom-impl.lisp cxml/dom/dom-sax.lisp cxml/dom/package.lisp 
Message-ID: <20051227002137.D034E88574@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv11709/dom

Modified Files:
	dom-builder.lisp dom-impl.lisp dom-sax.lisp package.lisp 
Log Message:
utf8-dom

Date: Tue Dec 27 01:21:31 2005
Author: dlichteblau

Index: cxml/dom/dom-builder.lisp
diff -u cxml/dom/dom-builder.lisp:1.8 cxml/dom/dom-builder.lisp:1.9
--- cxml/dom/dom-builder.lisp:1.8	Sun Dec 11 19:36:14 2005
+++ cxml/dom/dom-builder.lisp	Tue Dec 27 01:21:31 2005
@@ -8,14 +8,19 @@
 ;;;; Author: David Lichteblau <david at lichteblau.com>
 ;;;; Author: knowledgeTools Int. GmbH
 
-(in-package :dom-impl)
+#-cxml-system::utf8dom-file
+(in-package :rune-dom)
+
+#+cxml-system::utf8dom-file
+(in-package :utf8-dom)
+
 
 (defclass dom-builder ()
   ((document      :initform nil :accessor document)
    (element-stack :initform '() :accessor element-stack)
    (internal-subset             :accessor internal-subset)))
 
-(defun dom:make-dom-builder ()
+(defun make-dom-builder ()
   (make-instance 'dom-builder))
 
 (defun fast-push (new-element vector)
@@ -26,9 +31,9 @@
 	     (not (and sax:*include-xmlns-attributes*
 		       sax:*use-xmlns-namespace*)))
     (error "SAX configuration is incompatible with DOM: *namespace-processing* is activated, but *include-xmlns-attributes* or *use-xmlns-namespace* are not"))
-  (let ((document (make-instance 'dom-impl::document)))
-    (setf (slot-value document 'dom-impl::owner) nil
-	  (slot-value document 'dom-impl::doc-type) nil)
+  (let ((document (make-instance 'document)))
+    (setf (slot-value document 'owner) nil
+	  (slot-value document 'doc-type) nil)
     (setf (document handler) document)
     (push document (element-stack handler))))
 
@@ -46,16 +51,16 @@
 (defmethod sax:start-dtd ((handler dom-builder) name publicid systemid)
   (let* ((document (document handler))
          (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
-	  (slot-value document 'dom-impl::doc-type) doctype)))
+    (setf (slot-value doctype 'owner) document
+	  (slot-value (dom:notations doctype) 'owner) document
+	  (slot-value (dom:entities doctype) 'owner) document
+	  (slot-value document 'doc-type) doctype)))
 
 (defmethod sax:start-internal-subset ((handler dom-builder))
   (setf (internal-subset handler) nil))
 
 (defmethod sax:end-internal-subset ((handler dom-builder))
-  (setf (internal-subset (slot-value (document handler) 'dom-impl::doc-type))
+  (setf (dom::%internal-subset (slot-value (document handler) 'doc-type))
 	(nreverse (internal-subset handler)))
   (slot-makunbound handler 'internal-subset))
 
@@ -78,6 +83,7 @@
 
 (defmethod sax:start-element
     ((handler dom-builder) namespace-uri local-name qname attributes)
+  (check-type qname rod)
   (with-slots (document element-stack) handler
     (let* ((nsp sax:*namespace-processing*)
 	   (element (make-instance 'element 
@@ -85,7 +91,7 @@
                      :owner document
 		     :namespace-uri (when nsp namespace-uri)
 		     :local-name (when nsp local-name)
-		     :prefix (when nsp (cxml::split-qname (cxml::rod qname)))))
+		     :prefix (%rod (when nsp (cxml::split-qname (real-rod qname))))))
 	  (parent (car element-stack))
           (anodes '()))
       (dolist (attr attributes)
@@ -97,20 +103,20 @@
 		   (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)
+          (setf (slot-value anode 'specified-p)
                 (sax:attribute-specified-p attr))
-	  (setf (slot-value anode 'dom-impl::owner-element) element)
+	  (setf (slot-value anode 'owner-element) element)
           (dom:append-child anode text)
           (push anode anodes)))
-      (setf (slot-value element 'dom-impl::parent) parent)
-      (fast-push element (slot-value parent 'dom-impl::children))
+      (setf (slot-value element 'parent) parent)
+      (fast-push element (slot-value parent 'children))
       (let ((map
 	      (make-instance 'attribute-node-map
 		:items anodes
 		:element-type :attribute
 		:element element
 		:owner document)))
-	(setf (slot-value element 'dom-impl::attributes) map)
+	(setf (slot-value element 'attributes) map)
 	(dolist (anode anodes)
 	  (setf (slot-value anode 'map) map)))
       (push element element-stack))))
@@ -134,15 +140,15 @@
           (dom:append-data last-child data))
         (t
           (let ((node (dom:create-text-node document data)))
-            (setf (slot-value node 'dom-impl::parent) parent)
-            (fast-push node (slot-value (car element-stack) 'dom-impl::children))))))))
+            (setf (slot-value node 'parent) parent)
+            (fast-push node (slot-value (car element-stack) 'children))))))))
 
 (defmethod sax:start-cdata ((handler dom-builder))
   (with-slots (document element-stack) handler
     (let ((node (dom:create-cdata-section document #""))
           (parent (car element-stack)))
-      (setf (slot-value node 'dom-impl::parent) parent)
-      (fast-push node (slot-value parent 'dom-impl::children))
+      (setf (slot-value node 'parent) parent)
+      (fast-push node (slot-value parent 'children))
       (push node element-stack))))
 
 (defmethod sax:end-cdata ((handler dom-builder))
@@ -153,15 +159,15 @@
   (with-slots (document element-stack) handler
     (let ((node (dom:create-processing-instruction document target data))
           (parent (car element-stack)))
-      (setf (slot-value node 'dom-impl::parent) parent)
-      (fast-push node (slot-value (car element-stack) 'dom-impl::children)))))
+      (setf (slot-value node 'parent) parent)
+      (fast-push node (slot-value (car element-stack) 'children)))))
 
 (defmethod sax:comment ((handler dom-builder) data)
   (with-slots (document element-stack) handler
     (let ((node (dom:create-comment document data))
           (parent (car element-stack)))
-      (setf (slot-value node 'dom-impl::parent) parent)
-      (fast-push node (slot-value (car element-stack) 'dom-impl::children)))))
+      (setf (slot-value node 'parent) parent)
+      (fast-push node (slot-value (car element-stack) 'children)))))
 
 (defmethod sax:unparsed-entity-declaration
     ((handler dom-builder) name public-id system-id notation-name)
@@ -182,7 +188,7 @@
 
 (defun set-entity (handler name pid sid notation)
   (dom:set-named-item (dom:entities (dom:doctype (document handler)))
-                      (make-instance 'dom-impl::entity
+                      (make-instance 'entity
                         :owner (document handler)
                         :name name
                         :public-id pid
@@ -192,7 +198,7 @@
 (defmethod sax:notation-declaration
     ((handler dom-builder) name public-id system-id)
   (dom:set-named-item (dom:notations (dom:doctype (document handler)))
-                      (make-instance 'dom-impl::notation
+                      (make-instance 'notation
                         :owner (document handler)
                         :name name
                         :public-id public-id


Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.32 cxml/dom/dom-impl.lisp:1.33
--- cxml/dom/dom-impl.lisp:1.32	Mon Dec 12 00:56:48 2005
+++ cxml/dom/dom-impl.lisp	Tue Dec 27 01:21:31 2005
@@ -7,11 +7,24 @@
 ;;;; Author: David Lichteblau <david at lichteblau.com>
 ;;;; Author: knowledgeTools Int. GmbH
 
-(defpackage :dom-impl
+#-cxml-system::utf8dom-file
+(defpackage :rune-dom
   (:use :cl :runes)
-  (:export #:create-document))
+  #+rune-is-character (:nicknames :cxml-dom)
+  (:export #:implementation #:make-dom-builder #:create-document))
+
+#+cxml-system::utf8dom-file
+(defpackage :utf8-dom
+  (:use :cl :utf8-runes)
+  (:nicknames :cxml-dom)
+  (:export #:implementation #:make-dom-builder #:create-document))
+
+#-cxml-system::utf8dom-file
+(in-package :rune-dom)
+
+#+cxml-system::utf8dom-file
+(in-package :utf8-dom)
 
-(in-package :dom-impl)
 
 ;; Classes
 
@@ -107,7 +120,7 @@
    (system-id     :initarg :system-id     :reader dom:system-id)
    (entities      :initarg :entities      :reader dom:entities)
    (notations     :initarg :notations     :reader dom:notations)
-   (internal-subset                       :accessor internal-subset)))
+   (dom::%internal-subset                 :accessor dom::%internal-subset)))
 
 (defclass notation (node)
   ((name          :initarg :name          :reader dom:name)
@@ -144,9 +157,24 @@
   (etypecase x
     (null x)
     (rod x)
+    #+cxml-system::utf8dom-file (runes::rod (cxml::rod-to-utf8-string x))
     (string (string-rod x))
     (vector x)))
 
+#-cxml-system::utf8dom-file
+(defun real-rod (x)
+  (%rod x))
+
+#+cxml-system::utf8dom-file
+(defun real-rod (x)
+  (etypecase x
+    (null x)
+    (runes::rod x)
+    (string (cxml::utf8-string-to-rod x))))
+
+(defun valid-name-p (x)
+  (cxml::valid-name-p (real-rod x)))
+
 (defun assert-writeable (node)
   (when (read-only-p node)
     (dom-error :NO_MODIFICATION_ALLOWED_ERR "~S is marked read-only." node)))
@@ -231,12 +259,12 @@
 	   (string-equal (rod-string version) "2.0"))))
 
 (defun %create-document-type (name publicid systemid)
-  (make-instance 'dom-impl::document-type
+  (make-instance 'document-type
     :name name
-    :notations (make-instance 'dom-impl::named-node-map
+    :notations (make-instance 'named-node-map
 		 :element-type :notation
 		 :owner nil)
-    :entities (make-instance 'dom-impl::named-node-map
+    :entities (make-instance 'named-node-map
 		:element-type :entity
 		:owner nil)
     :public-id publicid
@@ -249,7 +277,7 @@
 
 (defmethod dom:create-document
     ((factory (eql 'implementation)) uri qname doctype)
-  (let ((document (make-instance 'dom-impl::document)))
+  (let ((document (make-instance 'document)))
     (setf (slot-value document 'owner) nil
 	  (slot-value document 'doc-type) doctype)
     (when doctype
@@ -258,9 +286,9 @@
 		   "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))
+      (setf (slot-value doctype 'owner) document
+	    (slot-value (dom:notations doctype) 'owner) document
+	    (slot-value (dom:entities doctype) 'owner) document))
     (when (or uri qname)
       (dom:append-child document (dom:create-element-ns document uri qname)))
     document))
@@ -278,7 +306,7 @@
 
 (defmethod dom:create-element ((document document) tag-name)
   (setf tag-name (%rod tag-name))
-  (unless (cxml::valid-name-p tag-name)
+  (unless (valid-name-p tag-name)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string tag-name)))
   (let ((result (make-instance 'element
                   :tag-name tag-name
@@ -295,14 +323,16 @@
     result))
 
 (defun safe-split-qname (qname uri)
-  (unless (cxml::valid-name-p qname)
+  (unless (valid-name-p qname)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string qname)))
   (multiple-value-bind (prefix local-name)
       (handler-case
-	  (cxml::split-qname qname)
+	  (cxml::split-qname (real-rod qname))
 	(cxml:well-formedness-violation (c)
 	  (dom-error :NAMESPACE_ERR "~A" c)))
+    (setf local-name (%rod local-name))
     (when prefix
+      (setf prefix (%rod prefix))
       (unless uri
 	(dom-error :NAMESPACE_ERR "prefix specified but no namespace URI"))
       (when (and (rod= prefix #"xml")
@@ -356,7 +386,7 @@
 (defmethod dom:create-processing-instruction ((document document) target data)
   (setf target (%rod target))
   (setf data (%rod data))
-  (unless (cxml::valid-name-p target)
+  (unless (valid-name-p target)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string target)))
   (make-instance 'processing-instruction
     :owner document
@@ -365,7 +395,7 @@
 
 (defmethod dom:create-attribute ((document document) name)
   (setf name (%rod name))
-  (unless (cxml::valid-name-p name)
+  (unless (valid-name-p name)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name)))
   (make-instance 'attribute
     :name name
@@ -395,7 +425,7 @@
 
 (defmethod dom:create-entity-reference ((document document) name)
   (setf name (%rod name))
-  (unless (cxml::valid-name-p name)
+  (unless (valid-name-p name)
     (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name)))
   (make-instance 'entity-reference
     :name name
@@ -445,12 +475,12 @@
 	       (dovector (c (dom:child-nodes n))
 		 (when (dom:element-p c)
 		   (let ((e (cxml::find-element
-			     (cxml::rod (dom:tag-name c))
+			     (real-rod (dom:tag-name c))
 			     (dtd document))))
 		     (when e
 		       (dolist (a (cxml::elmdef-attributes e))
 			 (when (eq :ID (cxml::attdef-type a))
-			   (let* ((name (rod (cxml::attdef-name a)))
+			   (let* ((name (%rod (cxml::attdef-name a)))
 				  (value (dom:get-attribute c name)))
 			     (when (and value (rod= value id))
 			       (return-from t c)))))))
@@ -603,19 +633,19 @@
 ;; node-name 
 
 (defmethod dom:node-name ((self document))
-  '#.(string-rod "#document"))
+  #"#document")
 
 (defmethod dom:node-name ((self document-fragment))
-  '#.(string-rod "#document-fragment"))
+  #"#document-fragment")
 
 (defmethod dom:node-name ((self text))
-  '#.(string-rod "#text"))
+  #"#text")
 
 (defmethod dom:node-name ((self cdata-section))
-  '#.(string-rod "#cdata-section"))
+  #"#cdata-section")
 
 (defmethod dom:node-name ((self comment))
-  '#.(string-rod "#comment"))
+  #"#comment")
 
 (defmethod dom:node-name ((self attribute))
   (dom:name self))
@@ -999,13 +1029,13 @@
   (let ((a (dom:get-attribute-node element name)))
     (if a
         (dom:value a)
-        #.(string-rod ""))))
+        #"")))
 
 (defmethod dom:get-attribute-ns ((element element) uri lname)
   (let ((a (dom:get-attribute-node-ns element uri lname)))
     (if a
         (dom:value a)
-        #.(string-rod ""))))
+        #"")))
 
 (defmethod dom:set-attribute ((element element) name value)
   (assert-writeable element)
@@ -1048,9 +1078,9 @@
   (let* ((qname (dom:name old-attr))
 	 (dtd (dtd (slot-value element 'owner)))
          (e (when dtd (cxml::find-element
-		       (cxml::rod (dom:tag-name element))
+		       (real-rod (dom:tag-name element))
 		       dtd)))
-         (a (when e (cxml::find-attribute e qname))))
+         (a (when e (cxml::find-attribute e (real-rod qname)))))
     (when (and a (listp (cxml::attdef-default a)))
       (let ((new (add-default-attribute element a)))
 	(setf (slot-value new 'namespace-uri) (dom:namespace-uri old-attr))
@@ -1060,7 +1090,7 @@
 (defun add-default-attributes (element)
   (let* ((dtd (dtd (slot-value element 'owner)))
          (e (when dtd (cxml::find-element
-		       (cxml::rod (dom:tag-name element))
+		       (real-rod (dom:tag-name element))
 		       dtd))))
     (when e
       (dolist (a (cxml::elmdef-attributes e))
@@ -1068,13 +1098,15 @@
 		   (listp (cxml::attdef-default a))
 		   (not (dom:get-attribute-node
 			 element
-			 (cxml::attdef-name a))))
+			 (%rod (cxml::attdef-name a)))))
           (let ((anode (add-default-attribute element a)))
 	    (multiple-value-bind (prefix local-name)
 		(handler-case
 		    (cxml::split-qname (cxml::attdef-name a))
 		  (cxml:well-formedness-violation (c)
 		    (dom-error :NAMESPACE_ERR "~A" c)))
+	      (when prefix (setf prefix (%rod prefix)))
+	      (setf local-name (%rod local-name))
 	      ;; das ist fuer importnode07.
 	      ;; so richtig ueberzeugend finde ich das ja nicht.
 	      (setf (slot-value anode 'prefix) prefix)
@@ -1173,14 +1205,14 @@
 
 (defmethod dom:internal-subset ((node document-type))
   ;; FIXME: encoding ist falsch, anderen sink nehmen!
-  (if (and (slot-boundp node 'internal-subset)
+  (if (and (slot-boundp node 'dom::%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))
+	   (dom::%internal-subset node))
       (with-output-to-string (stream)
 	(let ((sink (cxml:make-character-stream-sink stream)))
-	  (dolist (def (internal-subset node))
+	  (dolist (def (dom::%internal-subset node))
 	    (apply (car def) sink (cdr def)))))
       nil))
 
@@ -1191,7 +1223,7 @@
 
 (defmethod initialize-instance :after ((instance entity-reference) &key)
   (let* ((owner (dom:owner-document instance))
-         (handler (dom:make-dom-builder))
+         (handler (make-dom-builder))
          (resolver (slot-value owner 'entity-resolver)))
     (when resolver
       (setf (document handler) owner)
@@ -1380,10 +1412,10 @@
 
 ;;; Erweiterung
 
-(defun dom-impl:create-document (&optional document-element)
+(defun create-document (&optional document-element)
   ;; Um ein neues Dokumentenobject zu erzeugen, parsen wir einfach ein
   ;; Dummydokument.
-  (let* ((handler (dom:make-dom-builder))
+  (let* ((handler (make-dom-builder))
          (cxml::*ctx* (cxml::make-context :handler handler))
          (result
           (progn


Index: cxml/dom/dom-sax.lisp
diff -u cxml/dom/dom-sax.lisp:1.3 cxml/dom/dom-sax.lisp:1.4
--- cxml/dom/dom-sax.lisp:1.3	Sun Dec  4 19:43:56 2005
+++ cxml/dom/dom-sax.lisp	Tue Dec 27 01:21:31 2005
@@ -6,7 +6,7 @@
 ;;;; Author: David Lichteblau <david at lichteblau.com>
 ;;;; Copyright (c) 2004 knowledgeTools Int. GmbH
 
-(in-package :dom-impl)
+(in-package :cxml)
 
 (defun dom:map-document
     (handler document
@@ -23,9 +23,9 @@
 		       (dom:system-id doctype))
 	(ecase include-doctype
 	  (:full-internal-subset
-	    (when (slot-boundp doctype 'internal-subset)
+	    (when (slot-boundp doctype 'dom::%internal-subset)
 	      (sax:start-internal-subset handler)
-	      (dolist (def (internal-subset doctype))
+	      (dolist (def (dom::%internal-subset doctype))
 		(apply (car def) handler (cdr def)))
 	      (sax:end-internal-subset handler)))
 	  (:canonical-notations


Index: cxml/dom/package.lisp
diff -u cxml/dom/package.lisp:1.3 cxml/dom/package.lisp:1.4
--- cxml/dom/package.lisp:1.3	Sun Dec  4 19:43:56 2005
+++ cxml/dom/package.lisp	Tue Dec 27 01:21:31 2005
@@ -8,10 +8,6 @@
 (defpackage :dom
   (:use)
   (:export
-   
-   ;; lisp-specific extensions
-   #:make-dom-builder
-
    ;; DOM 2 functions
    #:owner-element
    #:import-node
@@ -100,26 +96,29 @@
    #:target
    #:code
    
-   ;; protocol classes
-   #:dom-implementation
-   #:document-fragment
-   #:document
-   #:node
-   #:node-list
-   #:named-node-map
-   #:character-data
-   #:attr
-   #:element
-   #:text
-   #:comment
-   #:cdata-section
-   #:document-type
-   #:notation
-   #:entity
-   #:entity-reference
-   #:processing-instruction
+   ;; not exported:
+;;;   ;; protocol classes
+;;;   #:dom-implementation
+;;;   #:document-fragment
+;;;   #:document
+;;;   #:node
+;;;   #:node-list
+;;;   #:named-node-map
+;;;   #:character-data
+;;;   #:attr
+;;;   #:element
+;;;   #:text
+;;;   #:comment
+;;;   #:cdata-section
+;;;   #:document-type
+;;;   #:notation
+;;;   #:entity
+;;;   #:entity-reference
+;;;   #:processing-instruction
+
    ;;
    #:items
+
    ;;
    #:node-p
    #:document-p



From dlichteblau at common-lisp.net  Tue Dec 27 00:21:38 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 01:21:38 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/runes/utf8.lisp cxml/runes/package.lisp
Message-ID: <20051227002138.EB8A7880D9@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv11709/runes

Modified Files:
	package.lisp 
Added Files:
	utf8.lisp 
Log Message:
utf8-dom

Date: Tue Dec 27 01:21:36 2005
Author: dlichteblau



Index: cxml/runes/package.lisp
diff -u cxml/runes/package.lisp:1.3 cxml/runes/package.lisp:1.4
--- cxml/runes/package.lisp:1.3	Sun Nov 27 18:19:12 2005
+++ cxml/runes/package.lisp	Tue Dec 27 01:21:36 2005
@@ -61,6 +61,12 @@
            #:set-to-full-speed
            #:xstream-name))
 
+(defpackage :utf8-runes
+  (:use :cl)
+  (:export *utf8-runes-readtable*
+	   #:rune #:rod #:simple-rod #:rod-string #:rod= #:make-rod
+	   #:string-rod))
+
 (defpackage :runes-encoding
   (:use :cl :runes)
   (:export



From dlichteblau at common-lisp.net  Tue Dec 27 00:21:39 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 01:21:39 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp
	cxml/test/xmlconf.lisp 
Message-ID: <20051227002139.B143D885A1@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv11709/test

Modified Files:
	domtest.lisp xmlconf.lisp 
Log Message:
utf8-dom

Date: Tue Dec 27 01:21:37 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.12 cxml/test/domtest.lisp:1.13
--- cxml/test/domtest.lisp:1.12	Sun Dec 11 19:30:52 2005
+++ cxml/test/domtest.lisp	Tue Dec 27 01:21:37 2005
@@ -174,7 +174,7 @@
 
 (defun read-members (&optional (directory *directory*))
   (let* ((pathname (merge-pathnames "build/dom2-interfaces.xml" directory))
-         (builder (dom:make-dom-builder))
+         (builder (rune-dom:make-dom-builder))
          (library (dom:document-element (cxml:parse-file pathname builder)))
          (methods '())
          (fields '()))
@@ -209,9 +209,9 @@
     (t (error "unknown condition: ~A" element))))
 
 (defun equalsp (a b test)
-  (when (typep a 'dom-impl::named-node-map)
+  (when (dom:named-node-map-p a)
     (setf a (dom:items a)))
-  (when (typep b 'dom-impl::named-node-map)
+  (when (dom:named-node-map-p b)
     (setf b (dom:items b)))
   (if (and (typep a 'sequence) (typep b 'sequence))
       (null (set-exclusive-or (coerce a 'list) (coerce b 'list) :test test))
@@ -368,7 +368,7 @@
 
 (defun translate-implementation (elt)
   (with-attributes (|var|) elt
-    (maybe-setf (%intern |var|) `'dom-impl::implementation)))
+    (maybe-setf (%intern |var|) `'rune-dom:implementation)))
 
 (defun translate-length (load)
   ;; XXX Soweit ich sehe unterscheiden die Tests nicht zwischen
@@ -406,7 +406,7 @@
     (if (nullify |obj|)
 	(translate-member element)
 	(maybe-setf (%intern |var|)
-		    `(dom:has-feature 'dom-impl::implementation
+		    `(dom:has-feature 'rune-dom:implementation
 				      ,(parse-java-literal |feature|)
 				      ,(parse-java-literal |version|))))))
 
@@ -458,7 +458,7 @@
 (defun translate-assert-size (element)
   (with-attributes (|collection| |size|) element
     `(let ((collection ,(%intern |collection|)))
-       (when (typep collection 'dom-impl::named-node-map)
+       (when (dom:named-node-map-p collection)
          (setf collection (dom:items collection)))
        (assert (eql (length collection) ,(parse-java-literal |size|))))))
 
@@ -493,9 +493,9 @@
       (return
         `(block assert-domexception
            (handler-bind
-               ((dom-impl::dom-exception
+               ((rune-dom::dom-exception
                  (lambda (c)
-                   (when (eq (dom-impl::dom-exception-key c)
+                   (when (eq (rune-dom::dom-exception-key c)
                              ,(intern (tag-name c) :keyword))
                      (return-from assert-domexception)))))
              ,@(translate-body c)
@@ -506,7 +506,7 @@
      ,@(map-child-elements
         'list
         (lambda (exception)
-          `(when (eq (dom-impl::dom-exception-key c)
+          `(when (eq (rune-dom::dom-exception-key c)
                      ,(intern (runes:rod-string (dom:get-attribute exception "code"))
                               :keyword))
              ,@(translate-body exception)
@@ -516,7 +516,7 @@
 (defun translate-try (element)
   `(block try
      (handler-bind
-         ((dom-impl::dom-exception
+         ((rune-dom::dom-exception
            ,(translate-catch
              (do-child-elements (c element :name "catch") (return c))
              '(return-from try))))
@@ -556,7 +556,7 @@
 (defun translate-for-each (element)
   (with-attributes (|collection| |member|) element
     `(let ((collection ,(%intern |collection|)))
-       (when (typep collection 'dom-impl::named-node-map)
+       (when (dom:named-node-map-p collection)
          (setf collection (dom:items collection)))
        (map nil (lambda (,(%intern |member|)) ,@(translate-body element))
             collection))))
@@ -582,7 +582,7 @@
   (unless *fields*
     (multiple-value-setq (*methods* *fields*) (read-members)))
   (catch 'give-up
-    (let* ((builder (dom:make-dom-builder))
+    (let* ((builder (rune-dom:make-dom-builder))
            (cxml::*validate* nil)         ;dom1.dtd is buggy
            (test (dom:document-element (cxml:parse-file pathname builder)))
            title
@@ -631,7 +631,7 @@
   (setf name (runes:rod-string name))
   (cxml:parse-file
    (make-pathname :name name :type "xml" :defaults *files-directory*)
-   (dom:make-dom-builder)))
+   (rune-dom:make-dom-builder)))
 
 (defparameter *bad-tests*
     '("hc_elementnormalize2.xml"
@@ -654,7 +654,7 @@
          (nfailed 0))
     (flet ((parse (test-directory)
 	     (let* ((all-tests (merge-pathnames "alltests.xml" test-directory))
-		    (builder (dom:make-dom-builder))
+		    (builder (rune-dom:make-dom-builder))
 		    (suite (dom:document-element
 			    (cxml:parse-file all-tests builder)))
 		    (*files-directory*


Index: cxml/test/xmlconf.lisp
diff -u cxml/test/xmlconf.lisp:1.9 cxml/test/xmlconf.lisp:1.10
--- cxml/test/xmlconf.lisp:1.9	Sat Dec  3 22:24:21 2005
+++ cxml/test/xmlconf.lisp	Tue Dec 27 01:21:37 2005
@@ -76,7 +76,7 @@
 
 (defun run-all-tests (directory)
   (let* ((pathname (merge-pathnames "xmlconf.xml" directory))
-         (builder (dom:make-dom-builder))
+         (builder (rune-dom:make-dom-builder))
          (xmlconf (cxml:parse-file pathname builder))
          (ntried 0)
          (nfailed 0)
@@ -124,7 +124,7 @@
   (declare (ignore description))
   (let ((document (apply #'cxml:parse-file
                          pathname
-                         (dom:make-dom-builder)
+                         (rune-dom:make-dom-builder)
                          args)))
     (cond
       ((null output)
@@ -161,7 +161,7 @@
        (handler-case
            (progn
              (format t " [validating:]")
-             (cxml:parse-file pathname (dom:make-dom-builder) :validate t)
+             (cxml:parse-file pathname (rune-dom:make-dom-builder) :validate t)
              (error "validity error not detected")
              nil)
          (cxml:validity-error ()
@@ -174,7 +174,7 @@
   (handler-case
       (progn
          (format t " [not validating:]")
-	(cxml:parse-file pathname (dom:make-dom-builder) :validate nil)
+	(cxml:parse-file pathname (rune-dom:make-dom-builder) :validate nil)
 	(error "well-formedness violation not detected")
       nil)
     (cxml:well-formedness-violation ()
@@ -183,7 +183,7 @@
   (handler-case
       (progn
 	(format t " [validating:]")
-	(cxml:parse-file pathname (dom:make-dom-builder) :validate t)
+	(cxml:parse-file pathname (rune-dom:make-dom-builder) :validate t)
 	(error "well-formedness violation not detected")
       nil)
     (cxml:well-formedness-violation ()



From dlichteblau at common-lisp.net  Tue Dec 27 00:21:54 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 01:21:54 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/recoder.lisp cxml/xml/unparse.lisp 
Message-ID: <20051227002154.7A050880D9@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv11709/xml

Modified Files:
	recoder.lisp unparse.lisp 
Log Message:
utf8-dom

Date: Tue Dec 27 01:21:45 2005
Author: dlichteblau

Index: cxml/xml/recoder.lisp
diff -u cxml/xml/recoder.lisp:1.2 cxml/xml/recoder.lisp:1.3
--- cxml/xml/recoder.lisp:1.2	Mon Nov 28 23:33:47 2005
+++ cxml/xml/recoder.lisp	Tue Dec 27 01:21:38 2005
@@ -12,7 +12,7 @@
     ((recoder :initarg :recoder :accessor recoder)
      (chained-handler :initarg :chained-handler :accessor chained-handler)))
 
-(defun make-recoder (chained-handler &optional (recoder-fn #'rod-string))
+(defun make-recoder (chained-handler recoder-fn)
   (make-instance 'recoder
     :recoder recoder-fn
     :chained-handler chained-handler))


Index: cxml/xml/unparse.lisp
diff -u cxml/xml/unparse.lisp:1.4 cxml/xml/unparse.lisp:1.5
--- cxml/xml/unparse.lisp:1.4	Sun Dec  4 19:44:06 2005
+++ cxml/xml/unparse.lisp	Tue Dec 27 01:21:41 2005
@@ -639,6 +639,6 @@
   (let* ((bytes (map '(vector (unsigned-byte 8)) #'char-code str))
          (buffer (make-array (length bytes) :element-type '(unsigned-byte 16)))
          (n (decode-sequence :utf-8 bytes 0 (length bytes) buffer 0 0 nil))
-         (result (make-array n :element-type 'rod)))
+         (result (make-array n :element-type 'rune)))
     (map-into result #'code-rune buffer)
     result))



From dlichteblau at common-lisp.net  Tue Dec 27 01:35:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 02:35:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-builder.lisp
	cxml/dom/dom-impl.lisp cxml/dom/dom-sax.lisp 
Message-ID: <20051227013518.D0F7B88446@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv17375/dom

Modified Files:
	dom-builder.lisp dom-impl.lisp dom-sax.lisp 
Log Message:
utf8-dom fixes.
recoding nach utf-8 jetzt der default.

Date: Tue Dec 27 02:35:15 2005
Author: dlichteblau

Index: cxml/dom/dom-builder.lisp
diff -u cxml/dom/dom-builder.lisp:1.9 cxml/dom/dom-builder.lisp:1.10
--- cxml/dom/dom-builder.lisp:1.9	Tue Dec 27 01:21:31 2005
+++ cxml/dom/dom-builder.lisp	Tue Dec 27 02:35:14 2005
@@ -83,7 +83,7 @@
 
 (defmethod sax:start-element
     ((handler dom-builder) namespace-uri local-name qname attributes)
-  (check-type qname rod)
+  (check-type qname rod)		;catch recoder/builder mismatch
   (with-slots (document element-stack) handler
     (let* ((nsp sax:*namespace-processing*)
 	   (element (make-instance 'element 


Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.33 cxml/dom/dom-impl.lisp:1.34
--- cxml/dom/dom-impl.lisp:1.33	Tue Dec 27 01:21:31 2005
+++ cxml/dom/dom-impl.lisp	Tue Dec 27 02:35:14 2005
@@ -1228,7 +1228,9 @@
     (when resolver
       (setf (document handler) owner)
       (push instance (element-stack handler))
-      (funcall resolver (dom:name instance) handler)))
+      #+cxml-system::utf8dom-file
+      (setf handler (cxml:make-recoder handler #'cxml:rod-to-utf8-string))
+      (funcall resolver (real-rod (dom:name instance)) handler)))
   (labels ((walk (n)
              (setf (slot-value n 'read-only-p) t)
              (when (dom:element-p n)


Index: cxml/dom/dom-sax.lisp
diff -u cxml/dom/dom-sax.lisp:1.4 cxml/dom/dom-sax.lisp:1.5
--- cxml/dom/dom-sax.lisp:1.4	Tue Dec 27 01:21:31 2005
+++ cxml/dom/dom-sax.lisp	Tue Dec 27 02:35:14 2005
@@ -12,7 +12,11 @@
     (handler document
      &key (include-xmlns-attributes sax:*include-xmlns-attributes*)
 	  include-doctype
-          include-default-values)
+          include-default-values
+	  (recode (typep document 'utf8-dom::node)))
+  #+rune-is-integer
+  (when recode
+    (setf handler (make-recoder handler #'utf8-string-to-rod)))
   (sax:start-document handler)
   (when include-doctype
     (let ((doctype (dom:doctype document)))



From dlichteblau at common-lisp.net  Tue Dec 27 01:35:15 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 02:35:15 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/dom.html cxml/doc/quickstart.html
	cxml/doc/using.html 
Message-ID: <20051227013515.24837880D9@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv17375/doc

Modified Files:
	dom.html quickstart.html using.html 
Log Message:
utf8-dom fixes.
recoding nach utf-8 jetzt der default.

Date: Tue Dec 27 02:35:13 2005
Author: dlichteblau

Index: cxml/doc/dom.html
diff -u cxml/doc/dom.html:1.1 cxml/doc/dom.html:1.2
--- cxml/doc/dom.html:1.1	Mon Dec 26 23:04:10 2005
+++ cxml/doc/dom.html	Tue Dec 27 02:35:13 2005
@@ -22,10 +22,33 @@
       To parse an XML document into a DOM tree, use the SAX parser with a
       DOM builder as the SAX handler.  Example:
     </p>
-    <pre>(cxml:parse-file "test.xml" (dom:make-dom-builder))</pre>
+    <pre>(cxml:parse-file "test.xml" (cxml-dom:make-dom-builder))</pre>
     <p>
-      <div class="def">Function DOM:MAKE-DOM-BUILDER ()</div>
+      <div class="def">Function CXML-DOM:MAKE-DOM-BUILDER ()</div>
       Create a SAX handler which builds a DOM document.
+    <p>
+    </p>
+      This functions returns a DOM builder that will work with the default
+      configuration of the SAX parser and is guaranteed to use
+      characters/strings instead of runes/rods, if that makes a
+      difference on the Lisp in question.
+    <p>
+    </p>
+      This is the same as <tt>rune-dom:make-dom-builder</tt> on Lisps
+      with Unicode support, and the same as
+      <tt>utf8-dom:make-dom-builder</tt> otherwise.
+    </p>
+
+    <p>
+      <div class="def">Function RUNE-DOM:MAKE-DOM-BUILDER ()</div>
+      Create a SAX handler which builds a DOM document using runes and rods.
+    </p>
+
+    <p>
+      <div class="def">Function UTF8-DOM:MAKE-DOM-BUILDER ()</div>
+      (Only on Lisps without Unicode support:)
+      Create a SAX handler which builds a DOM document using
+      UTF-8-encoded strings.
     </p>
 
     <a name="serialization"/>
@@ -62,6 +85,12 @@
       <li>
         <tt>include-default-values</tt> -- include attribute nodes with nil
         <tt>dom:specified</tt>.
+      </li>
+      <li>
+        <tt>recode</tt> -- (ignored on Lisps with Unicode support.) If
+        true, recode UTF-8 strings to rods.   Defaults to true if used
+        with a UTF-8 DOM document.  It can be set to false manually to
+        suppress recoding in this case.
       </li>
     </ul>
 


Index: cxml/doc/quickstart.html
diff -u cxml/doc/quickstart.html:1.1 cxml/doc/quickstart.html:1.2
--- cxml/doc/quickstart.html:1.1	Mon Dec 26 23:04:10 2005
+++ cxml/doc/quickstart.html	Tue Dec 27 02:35:13 2005
@@ -33,7 +33,7 @@
             <li><a href="using.html#parser">Parsing and Validating</a></li>
             <li><a href="using.html#serialization">Serialization</a></li>
             <li><a href="using.html#misc">Miscellaneous SAX handlers</a></li>
-            <li><a href="using.html#rods">Dealing with Rods</a></li>
+            <li><a href="using.html#rods">Recoders</a></li>
             <li><a href="using.html#dtdcache">Caching of DTD Objects</a></li>
             <li><a href="using.html#catalogs">XML Catalogs</a></li>
 	    <li><a href="using.html#sax">SAX Interface</a></li>
@@ -67,7 +67,7 @@
 
     <p>Parse <tt>example.xml</tt> into a DOM tree (<a href="using.html#parser">read
     more</a>):</p>
-    <pre>* <b>(cxml:parse-file "example.xml" (dom:make-dom-builder))</b>
+    <pre>* <b>(cxml:parse-file "example.xml" (cxml-dom:make-dom-builder))</b>
 #&lt;DOM-IMPL::DOCUMENT @ #x72206172>
 ;; save result for later:
 * <b>(defparameter *example* *)</b>


Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.7 cxml/doc/using.html:1.8
--- cxml/doc/using.html:1.7	Tue Dec 27 01:21:30 2005
+++ cxml/doc/using.html	Tue Dec 27 02:35:13 2005
@@ -69,6 +69,13 @@
         <tt>disallow-internal-subset</tt> -- a boolean.  If true, signal
         an error if the document contains an internal subset.
       </li>
+      <li>
+        <tt>recode</tt> -- a boolean.  (Ignored on Lisps with Unicode
+        support.)  Recode rods to UTF-8 strings.  Defaults to true.
+	Make sure to use <tt>utf8-dom:make-dom-builder</tt> if this
+        option is enabled and <tt>rune-dom:make-dom-builder</tt>
+        otherwise.
+      </li>
     </ul>
 
     <p>
@@ -258,7 +265,7 @@
       ignored.<br/>
       Example:
     </p>
-    <pre>(let ((d (parse-file "~/test.xml" (dom:make-dom-builder)))
+    <pre>(let ((d (parse-file "~/test.xml" (cxml-dom:make-dom-builder)))
       (x (parse-dtd-file "~/test.dtd")))
   (dom:map-document (cxml:make-validator x #"foo") d))</pre>
 
@@ -287,40 +294,15 @@
     </p>
 
     <a name="rods"/>
-    <h3>Dealing with Rods</h3>
+    <h3>Recoders</h3>
     <p>
-      As explained above, the XML parser handles character encoding and
-      uses 16bit strings internally.  Instead of using characters and strings
-      it uses <em>runes</em> and <em>rods</em>.  This is seen as a
-      feature, but can be inconvenient.
+      Recoders are a mechanism used by CXML internally on Lisp implementations
+      without Unicode support to recode UTF-16 vectors (rods) of
+      integers (runes) into UTF-8 strings.
     </p>
-    <ul>
-      <li>
-        If your Lisp supports 16 bit unicode strings, use feature
-        <tt>:rune-is-character</tt> and forget about runes and rods.
-        CXML will use ordinary Lisp characters and strings both
-        internally and externally.
-      </li>
-      <li>
-        If your Lisp does not support such strings and your application
-        needs Unicode support, use functions defined in the
-        <tt>runes</tt> package instead of ordinary string operators.
-      </li>
-      <li>
-        If your Lisp does not support such strings and your application
-        does not need Unicode support anyway, it will probably be more
-        convenient to let CXML convert rods into strings automatically.
-        To do that, use <tt>cxml:make-recoder</tt> to chain a special
-        sax handler between the parser and your application handler.
-        The recoder translates all rods using an application defined
-        function, which defaults to <tt>runes:rod-string</tt>.  Although
-        the actual XML parser still uses rods internally, you SAX
-        handler will only see ordinary Lisp strings.
-      </li>
-    </ul>
     <p>
-      Note that the recoder approach does <em>not</em> work with the DOM
-      builder, since DOM is specified to use UTF-16.
+      User code does not usually need to deal with recoders in current
+      versions of CXML.
     </p>
     <p>
       <div class="def">Function CXML:MAKE-RECODER (chained-handler recoder-fn)</div>
@@ -328,16 +310,6 @@
       <tt>chained-handler</tt> after converting all strings and rods
       using <tt>recoder-fn</tt>, a function of one argument.
     </p>
-    <p>
-      <b>Example.</b> In a Lisp which ordinarily would use octet vector rods:
-    </p>
-    <pre>CL-USER(14): (cxml:parse-string "&lt;test/&gt;" (cxml-xmls:make-xmls-builder))
-(#(116 101 115 116) NIL)</pre>
-    <p>
-      Use a SAX recoder to get strings instead::
-    </p>
-    <pre>CL-USER(17): (parse-string "&lt;test/&gt;" (cxml:make-recoder (cxml-xmls:make-xmls-builder) 'runes:rod-string))
-("test" NIL)</pre>
 
     <a name="dtdcache"/>
     <h3>Caching of DTD Objects</h3>



From dlichteblau at common-lisp.net  Tue Dec 27 01:35:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 02:35:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/utf8domtest.diff
	cxml/test/domtest.lisp cxml/test/xmlconf.lisp 
Message-ID: <20051227013518.F282388574@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv17375/test

Modified Files:
	domtest.lisp xmlconf.lisp 
Added Files:
	utf8domtest.diff 
Log Message:
utf8-dom fixes.
recoding nach utf-8 jetzt der default.

Date: Tue Dec 27 02:35:16 2005
Author: dlichteblau



Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.13 cxml/test/domtest.lisp:1.14
--- cxml/test/domtest.lisp:1.13	Tue Dec 27 01:21:37 2005
+++ cxml/test/domtest.lisp	Tue Dec 27 02:35:16 2005
@@ -175,7 +175,8 @@
 (defun read-members (&optional (directory *directory*))
   (let* ((pathname (merge-pathnames "build/dom2-interfaces.xml" directory))
          (builder (rune-dom:make-dom-builder))
-         (library (dom:document-element (cxml:parse-file pathname builder)))
+         (library (dom:document-element
+		   (cxml:parse-file pathname builder :recode nil)))
          (methods '())
          (fields '()))
     (do-child-elements (interface library :name "interface")
@@ -584,7 +585,8 @@
   (catch 'give-up
     (let* ((builder (rune-dom:make-dom-builder))
            (cxml::*validate* nil)         ;dom1.dtd is buggy
-           (test (dom:document-element (cxml:parse-file pathname builder)))
+           (test (dom:document-element
+		  (cxml:parse-file pathname builder :recode nil)))
            title
            (bindings '())
            (code '()))
@@ -631,7 +633,8 @@
   (setf name (runes:rod-string name))
   (cxml:parse-file
    (make-pathname :name name :type "xml" :defaults *files-directory*)
-   (rune-dom:make-dom-builder)))
+   (rune-dom:make-dom-builder)
+   :recode nil))
 
 (defparameter *bad-tests*
     '("hc_elementnormalize2.xml"
@@ -656,7 +659,7 @@
 	     (let* ((all-tests (merge-pathnames "alltests.xml" test-directory))
 		    (builder (rune-dom:make-dom-builder))
 		    (suite (dom:document-element
-			    (cxml:parse-file all-tests builder)))
+			    (cxml:parse-file all-tests builder :recode nil)))
 		    (*files-directory*
 		     (merge-pathnames "files/" test-directory)))
 	       (do-child-elements (member suite)


Index: cxml/test/xmlconf.lisp
diff -u cxml/test/xmlconf.lisp:1.10 cxml/test/xmlconf.lisp:1.11
--- cxml/test/xmlconf.lisp:1.10	Tue Dec 27 01:21:37 2005
+++ cxml/test/xmlconf.lisp	Tue Dec 27 02:35:16 2005
@@ -77,7 +77,7 @@
 (defun run-all-tests (directory)
   (let* ((pathname (merge-pathnames "xmlconf.xml" directory))
          (builder (rune-dom:make-dom-builder))
-         (xmlconf (cxml:parse-file pathname builder))
+         (xmlconf (cxml:parse-file pathname builder :recode nil))
          (ntried 0)
          (nfailed 0)
          (nskipped 0)
@@ -125,6 +125,7 @@
   (let ((document (apply #'cxml:parse-file
                          pathname
                          (rune-dom:make-dom-builder)
+			 :recode nil
                          args)))
     (cond
       ((null output)
@@ -161,7 +162,10 @@
        (handler-case
            (progn
              (format t " [validating:]")
-             (cxml:parse-file pathname (rune-dom:make-dom-builder) :validate t)
+             (cxml:parse-file pathname
+			      (rune-dom:make-dom-builder)
+			      :recode nil
+			      :validate t)
              (error "validity error not detected")
              nil)
          (cxml:validity-error ()
@@ -174,7 +178,10 @@
   (handler-case
       (progn
          (format t " [not validating:]")
-	(cxml:parse-file pathname (rune-dom:make-dom-builder) :validate nil)
+	(cxml:parse-file pathname
+			 (rune-dom:make-dom-builder)
+			 :recode nil
+			 :validate nil)
 	(error "well-formedness violation not detected")
       nil)
     (cxml:well-formedness-violation ()
@@ -183,7 +190,10 @@
   (handler-case
       (progn
 	(format t " [validating:]")
-	(cxml:parse-file pathname (rune-dom:make-dom-builder) :validate t)
+	(cxml:parse-file pathname
+			 (rune-dom:make-dom-builder)
+			 :recode nil
+			 :validate t)
 	(error "well-formedness violation not detected")
       nil)
     (cxml:well-formedness-violation ()



From dlichteblau at common-lisp.net  Tue Dec 27 01:35:26 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 02:35:26 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/package.lisp cxml/xml/recoder.lisp
	cxml/xml/xml-parse.lisp 
Message-ID: <20051227013526.30D7288592@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv17375/xml

Modified Files:
	package.lisp recoder.lisp xml-parse.lisp 
Log Message:
utf8-dom fixes.
recoding nach utf-8 jetzt der default.

Date: Tue Dec 27 02:35:22 2005
Author: dlichteblau

Index: cxml/xml/package.lisp
diff -u cxml/xml/package.lisp:1.7 cxml/xml/package.lisp:1.8
--- cxml/xml/package.lisp:1.7	Mon Dec 12 00:56:52 2005
+++ cxml/xml/package.lisp	Tue Dec 27 02:35:18 2005
@@ -75,4 +75,6 @@
    #:make-recoder
    #:sax-proxy
    #:proxy-chained-handler
-   #:make-namespace-normalizer))
+   #:make-namespace-normalizer
+   #:rod-to-utf8-string
+   #:utf8-string-to-rod))


Index: cxml/xml/recoder.lisp
diff -u cxml/xml/recoder.lisp:1.3 cxml/xml/recoder.lisp:1.4
--- cxml/xml/recoder.lisp:1.3	Tue Dec 27 01:21:38 2005
+++ cxml/xml/recoder.lisp	Tue Dec 27 02:35:20 2005
@@ -74,6 +74,9 @@
     (%string public-id)
     (%string system-id))
 
+  (defwrapper sax:start-internal-subset ())
+  (defwrapper sax:end-internal-subset ())
+
   (defwrapper sax:end-dtd ())
 
   (defwrapper sax:unparsed-entity-declaration


Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.54 cxml/xml/xml-parse.lisp:1.55
--- cxml/xml/xml-parse.lisp:1.54	Sat Dec 17 23:43:17 2005
+++ cxml/xml/xml-parse.lisp	Tue Dec 27 02:35:20 2005
@@ -2552,13 +2552,18 @@
 
 (defun p/document
     (input handler
-     &key validate dtd root entity-resolver disallow-internal-subset)
+     &key validate dtd root entity-resolver disallow-internal-subset
+	  (recode t))
   ;; check types of user-supplied arguments for better error messages:
   (check-type validate boolean)
+  (check-type recode boolean)
   (check-type dtd (or null extid))
   (check-type root (or null rod))
   (check-type entity-resolver (or null function symbol))
   (check-type disallow-internal-subset boolean)
+  #+rune-is-integer
+  (when recode
+    (setf handler (make-recoder handler #'rod-to-utf8-string)))
   (let ((*ctx*
          (make-context :handler handler
 		       :main-zstream input



From dlichteblau at common-lisp.net  Tue Dec 27 20:01:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:01:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/dom.html cxml/doc/installation.html
	cxml/doc/quickstart.html cxml/doc/using.html 
Message-ID: <20051227200118.D72B188161@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv5367/doc

Modified Files:
	dom.html installation.html quickstart.html using.html 
Log Message:
sb-unicode backport
namespace-korrekturen
noch documentation

Date: Tue Dec 27 21:01:12 2005
Author: dlichteblau

Index: cxml/doc/dom.html
diff -u cxml/doc/dom.html:1.2 cxml/doc/dom.html:1.3
--- cxml/doc/dom.html:1.2	Tue Dec 27 02:35:13 2005
+++ cxml/doc/dom.html	Tue Dec 27 21:01:12 2005
@@ -117,6 +117,15 @@
         href="using.html#misc">namespace normalizer</a> is used.
       </li>
     </ul>
+    <p>
+      <tt>unparse-document-to-octets</tt> returns an <tt>(unsigned-byte
+      8)</tt> array, whereas <tt>unparse-document</tt> writes
+      characters.&nbsp; <tt>unparse-document</tt> is useful together
+      with <tt>with-output-to-string</tt>.&nbsp; However, note that the
+      resulting document in both cases is UTF-8 encoded, so the
+      characters written by <tt>unparse-document</tt> are really UTF-8
+      bytes encoded as characters.
+    </p>
 
     <a name="mapping"/>
     <h3>DOM/Lisp mapping</h3>


Index: cxml/doc/installation.html
diff -u cxml/doc/installation.html:1.5 cxml/doc/installation.html:1.6
--- cxml/doc/installation.html:1.5	Mon Dec 26 23:04:10 2005
+++ cxml/doc/installation.html	Tue Dec 27 21:01:12 2005
@@ -14,35 +14,31 @@
     <h2>Download</h2>
     <ul>
       <li>
-        <a href="http://common-lisp.net/project/cxml/download/">tarballs</a>
+        <div><a href="http://common-lisp.net/project/cxml/download/">tarballs</a></div>
       </li>
-    <li>
+      <li>
+        <div>
       Anoncvs (<a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cxml/?cvsroot=cxml">browse</a>):
       <pre>$ export CVSROOT=:pserver:anonymous at common-lisp.net:/project/cxml/cvsroot
 $ cvs login
 Logging in to :pserver:anonymous at common-lisp.net:2401/project/cxml/cvsroot
 CVS password: anonymous
 $ cvs co cxml</pre>
-      </lii>
+        </div>
+      </li>
     </ul>
 
     <a name="implementations"/>
     <h2>Implementation-specific notes</h2>
     <p>
       CXML should be portable to all Common Lisp implementations
-      supporting gray streams.  Currently supported are ACL, CLISP,
-      CMUCL, LispWorks, OpenMCL, and SBCL.
+      supported by <a
+      href="http://common-lisp.net/project/cl-plus-ssl/#trivial-gray-streams">trivial-gray-streams</a>.
     </p>
     <ul>
       <li>
-	Note that CMUCL and OpenMCL do not support Unicode
-	natively.&nbsp; (You might want to use the <a
-	href="using.html#rods">recoding SAX handler</a> to work with
-	native strings anyway.)
-      </li>
-      <li>
 	SBCL and CLISP will trip over cxml's non-ASCII source files
-	unless compiled using a suitable locale configuration
+	unless run using a suitable locale configuration
 	(<tt>LC_CTYPE=en_US.ISO-8859-1</tt> should help).
       </li>
       <li>
@@ -51,19 +47,6 @@
       </li>
     </ul>
 
-<!--
-    <p>
-      Optional configuration (skip this unless you know better): CXML
-      has full Unicode code support - - even on Lisps without Unicode
-      strings.  On non-unicode aware Lisps, <tt>DOMString</tt> is
-      implemented as an array of character codes.  CXML will auto-detect
-      at compile-time which string representation to use.  To override
-      the auto-detection, you can set one of the features
-      <tt>:rune-is-character</tt> and <tt>:rune-is-integer</tt> before
-      loading <tt>cxml.asd</tt>.
-    </p>
--->
-
     <a name="compilation"/>
     <h2>Compilation</h2>
     <p>
@@ -117,9 +100,9 @@
     </p>
 
     <p>
-      <b>fixme</b> My parser does not understand the current testsuite
-      anymore.&nbsp; To fix this problem, revert the affected files
-      manually after check-out:
+      <b>fixme</b> domtest.lisp does not understand the current
+      testsuite driver anymore.&nbsp; To fix this problem, revert the
+      affected files manually after check-out:
     </p>
 
     <pre>$ cd 2001/XML-Test-Suite/xmlconf/


Index: cxml/doc/quickstart.html
diff -u cxml/doc/quickstart.html:1.2 cxml/doc/quickstart.html:1.3
--- cxml/doc/quickstart.html:1.2	Tue Dec 27 02:35:13 2005
+++ cxml/doc/quickstart.html	Tue Dec 27 21:01:12 2005
@@ -16,7 +16,7 @@
           <ul class="sub">
 	    <li><a href="installation.html#download"><b>Download</b></a></li>
 	    <li><a href="installation.html#implementations">Implementation-specific notes</a></li>
-	    <li><a href="installation.html#compilation"><b>Compilation</b></a></li>
+	    <li><a href="installation.html#compilation">Compilation</a></li>
 	    <li><a href="installation.html#tests">Tests</a></li>
           </ul>
 	</li>


Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.8 cxml/doc/using.html:1.9
--- cxml/doc/using.html:1.8	Tue Dec 27 02:35:13 2005
+++ cxml/doc/using.html	Tue Dec 27 21:01:12 2005
@@ -138,9 +138,10 @@
     </p>
 
     <p>
-      <div class="def">Function CXML:MAKE-CHARACTER-STREAM-SINK (stream &rest keys) => sink</div>
+      <div class="def">Function CXML:MAKE-OCTET-STREAM-SINK (stream &rest keys) => sink</div>
       <div class="def">Function CXML:MAKE-OCTET-VECTOR-SINK (&rest keys) => sink</div>
-      Return a handle suitable for event-based XML serialization.
+      <div class="def">Function CXML:MAKE-CHARACTER-STREAM-SINK (stream &rest keys) => sink</div>
+      Return a SAX serialization handle.
     </p>
     <p>Keyword arguments:</p>
     <ul>
@@ -175,26 +176,6 @@
       changes the document model and should only be used if whitespace
       does not matter to the application.
     </p>
-    <p>
-      If namespace support is enabled (the default), these functions use
-      a namespace normalizer (<tt>cxml:make-namespace-normalizer</tt>).
-    </p>
-    <p>
-      <tt>unparse-document-to-octets</tt> returns an <tt>(unsigned-byte
-      8)</tt> array, whereas <tt>unparse-document</tt> writes
-      characters.&nbsp; <tt>unparse-document</tt> is useful together
-      with <tt>with-output-to-string</tt>.&nbsp; However, note that the
-      resulting document in both cases is UTF-8 encoded, so the
-      characters written by <tt>unparse-document</tt> are really UTF-8
-      bytes encoded as characters.
-    </p>
-    <p>
-      These function provide the low-level mechanism used by the DOM
-      serialization functions.  To serialize a document without building
-      its DOM tree first, create a sink handle and call SAX functions on that
-      handle.  <tt>sax:end-document</tt> returns the serialized form of
-      the document described by the SAX events.
-    </p>
 
     <p>
       <div class="def">Macro CXML:WITH-XML-OUTPUT (sink &body body) => sink-specific result</div>
@@ -214,17 +195,12 @@
       (attribute "blub" "bla"))
     (text "Hi there.")))</pre>
    <p>
-      Prints this to <tt>stream</tt>, which must be an
-      <tt>(unsigned-byte 8)</tt> stream:
+      Prints this to <tt>stream</tt>:
    </p>
    <pre>&lt;foo xyz="abc"&gt;
   &lt;bar blub="bla"&gt;&lt;/bar&gt;
   Hi there.
 &lt;/foo&gt;</pre>
-   <p>
-      (Note that these functions accept both strings and rods, so we
-      can write <tt>"foo"</tt> instead of <tt>#"foo"</tt> above.)
-   </p>
 
     <p>
       <div class="def">Macro XHTML-GENERATOR:WITH-XHTML (sink &rest forms)</div>



From dlichteblau at common-lisp.net  Tue Dec 27 20:01:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:01:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html 
Message-ID: <20051227200118.3767E88574@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv5367

Modified Files:
	README.html 
Log Message:
sb-unicode backport
namespace-korrekturen
noch documentation

Date: Tue Dec 27 21:01:11 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.13 cxml/README.html:1.14
--- cxml/README.html:1.13	Mon Dec 26 23:04:08 2005
+++ cxml/README.html	Tue Dec 27 21:01:10 2005
@@ -66,6 +66,7 @@
     <ul class="nomargin">
       <li>Implemented DOM 2 Core.</li>
       <li>Error handling overhaul.</li>
+      <li>UTF-8 string support in DOM on Lisps without Unicode characters.</li>
       <li>Support internal subset serialization.</li>
       <li>Gilbert Baumann has clarified the license as Lisp-LGPL.</li>
       <li>Use trivial-gray-streams.</li>



From dlichteblau at common-lisp.net  Tue Dec 27 20:01:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:01:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/runes/characters.lisp
	cxml/runes/utf8.lisp 
Message-ID: <20051227200118.6FDEB88593@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv5367/runes

Modified Files:
	characters.lisp utf8.lisp 
Log Message:
sb-unicode backport
namespace-korrekturen
noch documentation

Date: Tue Dec 27 21:01:16 2005
Author: dlichteblau

Index: cxml/runes/characters.lisp
diff -u cxml/runes/characters.lisp:1.4 cxml/runes/characters.lisp:1.5
--- cxml/runes/characters.lisp:1.4	Mon Nov 28 23:33:35 2005
+++ cxml/runes/characters.lisp	Tue Dec 27 21:01:16 2005
@@ -95,7 +95,9 @@
   (stringp x))
 
 (defun rod= (x y)
-  (string= x y))
+  (if (zerop (length x))
+      (zerop (length y))
+      (and (plusp (length y)) (string= x y))))
 
 (defun rod-equal (x y)
   (string-equal x y))


Index: cxml/runes/utf8.lisp
diff -u cxml/runes/utf8.lisp:1.1 cxml/runes/utf8.lisp:1.2
--- cxml/runes/utf8.lisp:1.1	Tue Dec 27 01:21:36 2005
+++ cxml/runes/utf8.lisp	Tue Dec 27 21:01:16 2005
@@ -10,14 +10,6 @@
 (deftype rod () '(vector rune))
 (deftype simple-rod () '(simple-array rune))
 
-#+(or)
-(definline rune (rod index)
-  (char rod index))
-
-#+(or)
-(defun (setf rune) (newval rod index)
-  (setf (char rod index) newval))
-
 (defun rod= (r s)
   (string= r s))
 



From dlichteblau at common-lisp.net  Tue Dec 27 20:01:19 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:01:19 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp 
Message-ID: <20051227200119.76DA188599@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv5367/test

Modified Files:
	domtest.lisp 
Log Message:
sb-unicode backport
namespace-korrekturen
noch documentation

Date: Tue Dec 27 21:01:17 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.14 cxml/test/domtest.lisp:1.15
--- cxml/test/domtest.lisp:1.14	Tue Dec 27 02:35:16 2005
+++ cxml/test/domtest.lisp	Tue Dec 27 21:01:17 2005
@@ -151,7 +151,7 @@
 		    (#/n (vector-push-extend #/newline v (length v)))
 		    ((#/\\ #/\") (vector-push-extend #/\\ v (length v)))))
                 (vector-push-extend c v (length v))))
-        (coerce v 'runes::simple-rod)))
+        (make-array (length v) :element-type 'runes:rune :initial-contents v)))
     (t
       (%intern str))))
 
@@ -680,7 +680,7 @@
 			      (dom:get-attribute member "href"))))
 		   (unless (or (runes:rod= (dom:tag-name member) #"metadata")
 			       (member href *bad-tests* :test 'equal))
-		     (format t "~&~D/~D ~A~%" i n href)
+		     (format t "~&~D/~D ~A~%" i #+nil n 808 href)
 		     (let ((lisp (slurp-test
 				  (merge-pathnames href test-directory))))
 		       (when verbose



From dlichteblau at common-lisp.net  Tue Dec 27 20:01:18 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:01:18 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-sax.lisp 
Message-ID: <20051227200118.5DC4988592@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv5367/dom

Modified Files:
	dom-sax.lisp 
Log Message:
sb-unicode backport
namespace-korrekturen
noch documentation

Date: Tue Dec 27 21:01:15 2005
Author: dlichteblau

Index: cxml/dom/dom-sax.lisp
diff -u cxml/dom/dom-sax.lisp:1.5 cxml/dom/dom-sax.lisp:1.6
--- cxml/dom/dom-sax.lisp:1.5	Tue Dec 27 02:35:14 2005
+++ cxml/dom/dom-sax.lisp	Tue Dec 27 21:01:13 2005
@@ -13,7 +13,8 @@
      &key (include-xmlns-attributes sax:*include-xmlns-attributes*)
 	  include-doctype
           include-default-values
-	  (recode (typep document 'utf8-dom::node)))
+	  (recode (and #+rune-is-integer (typep document 'utf8-dom::node))))
+  (declare (ignorable recode))
   #+rune-is-integer
   (when recode
     (setf handler (make-recoder handler #'utf8-string-to-rod)))
@@ -54,16 +55,16 @@
              (dom:do-node-list (child (dom:child-nodes node))
                (ecase (dom:node-type child)
                  (:element
-                   ;; fixme: namespaces
                    (let ((attlist
                           (compute-attributes child
                                               include-xmlns-attributes
                                               include-default-values))
-                         (lname (dom:tag-name child))
+			 (uri (dom:namespace-uri child))
+                         (lname (dom:local-name child))
                          (qname (dom:tag-name child)))
-                     (sax:start-element handler nil lname qname attlist)
+                     (sax:start-element handler uri lname qname attlist)
                      (walk child)
-                     (sax:end-element handler nil lname qname)))
+                     (sax:end-element handler uri lname qname)))
                  (:cdata-section
                    (sax:start-cdata handler)
                    (sax:characters handler (dom:data child))
@@ -83,10 +84,11 @@
   (let ((results '()))
     (dom:do-node-list (a (dom:attributes element))
       (when (and (or defaultp (dom:specified a))
-                 (or xmlnsp (not (cxml::xmlns-attr-p (dom:name a)))))
+                 (or xmlnsp (not (cxml::xmlns-attr-p (rod (dom:name a))))))
         (push
          (sax:make-attribute :qname (dom:name a)
                              :value (dom:value a)
+			     :namespace-uri (dom:namespace-uri a)
                              :specified-p (dom:specified a))
          results)))
     (reverse results)))



From dlichteblau at common-lisp.net  Tue Dec 27 20:01:35 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:01:35 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/xml-parse.lisp
	cxml/xml/xmlns-normalizer.lisp 
Message-ID: <20051227200135.EB1FD88161@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv5367/xml

Modified Files:
	xml-parse.lisp xmlns-normalizer.lisp 
Log Message:
sb-unicode backport
namespace-korrekturen
noch documentation

Date: Tue Dec 27 21:01:33 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.55 cxml/xml/xml-parse.lisp:1.56
--- cxml/xml/xml-parse.lisp:1.55	Tue Dec 27 02:35:20 2005
+++ cxml/xml/xml-parse.lisp	Tue Dec 27 21:01:19 2005
@@ -116,11 +116,7 @@
 ;;
 ;; o better extensibility wrt character representation, one may want to
 ;;   have
-;;    - UTF-8  in standard CL strings
-;;    - UCS-2  in RODs
-;;    - UTF-16 in RODs
 ;;    - UCS-4  in vectoren
-;;   [habe ich eigentlich nicht vor--david]
 ;;
 ;; o xstreams auslagern, documententieren und dann auch in SGML und
 ;;   CSS parser verwenden. (halt alles was zeichen liest).
@@ -1210,10 +1206,10 @@
                   (values :nmtoken (read-name-token input)))
                  ((rune= #/# c)
                   (let ((q (read-name-token input)))
-                    (cond ((equalp q '#.(string-rod "REQUIRED")) :|#REQUIRED|)
-                          ((equalp q '#.(string-rod "IMPLIED")) :|#IMPLIED|)
-                          ((equalp q '#.(string-rod "FIXED"))   :|#FIXED|)
-                          ((equalp q '#.(string-rod "PCDATA"))  :|#PCDATA|)
+                    (cond ((rod= q '#.(string-rod "REQUIRED")) :|#REQUIRED|)
+                          ((rod= q '#.(string-rod "IMPLIED")) :|#IMPLIED|)
+                          ((rod= q '#.(string-rod "FIXED"))   :|#FIXED|)
+                          ((rod= q '#.(string-rod "PCDATA"))  :|#PCDATA|)
                           (t
                            (wf-error zinput "Unknown token: ~S." q)))))
                  ((or (rune= c #/U+0020)
@@ -1821,15 +1817,15 @@
   ;; [59] Enumeration ::= '(' S? Nmtoken (S? '|' S? Nmtoken)* S? ')' /* VC: Enumeration */
   (multiple-value-bind (cat sem) (read-token input)
     (cond ((eq cat :nmtoken)
-           (cond ((equalp sem '#.(string-rod "CDATA"))    :CDATA)
-                 ((equalp sem '#.(string-rod "ID"))       :ID)
-                 ((equalp sem '#.(string-rod "IDREF"))    :IDREFS)
-                 ((equalp sem '#.(string-rod "IDREFS"))   :IDREFS)
-                 ((equalp sem '#.(string-rod "ENTITY"))   :ENTITY)
-                 ((equalp sem '#.(string-rod "ENTITIES")) :ENTITIES)
-                 ((equalp sem '#.(string-rod "NMTOKEN"))  :NMTOKEN)
-                 ((equalp sem '#.(string-rod "NMTOKENS")) :NMTOKENS)
-                 ((equalp sem '#.(string-rod "NOTATION"))
+           (cond ((rod= sem '#.(string-rod "CDATA"))    :CDATA)
+                 ((rod= sem '#.(string-rod "ID"))       :ID)
+                 ((rod= sem '#.(string-rod "IDREF"))    :IDREFS)
+                 ((rod= sem '#.(string-rod "IDREFS"))   :IDREFS)
+                 ((rod= sem '#.(string-rod "ENTITY"))   :ENTITY)
+                 ((rod= sem '#.(string-rod "ENTITIES")) :ENTITIES)
+                 ((rod= sem '#.(string-rod "NMTOKEN"))  :NMTOKEN)
+                 ((rod= sem '#.(string-rod "NMTOKENS")) :NMTOKENS)
+                 ((rod= sem '#.(string-rod "NOTATION"))
                   (let (names)
                     (p/S input)
                     (expect input :\()
@@ -1923,15 +1919,15 @@
     (cond ((member cat '(:\" :\'))
            (make-internal-entdef (p/entity-value input)))
           ((and (eq cat :nmtoken)
-                (or (equalp sem '#.(string-rod "SYSTEM"))
-                    (equalp sem '#.(string-rod "PUBLIC"))))
+                (or (rod= sem '#.(string-rod "SYSTEM"))
+                    (rod= sem '#.(string-rod "PUBLIC"))))
            (let (extid ndata)
              (setf extid (p/external-id input nil))
              (when (eq kind :general)   ;NDATA allowed at all?
                (cond ((eq (peek-token input) :S)
                       (p/S? input)
                       (when (and (eq (peek-token input) :nmtoken)
-                                 (equalp (nth-value 1 (peek-token input))
+                                 (rod= (nth-value 1 (peek-token input))
                                          '#.(string-rod "NDATA")))
                         (consume-token input)
                         (p/S input)
@@ -1961,10 +1957,10 @@
 (defun p/external-id (input &optional (public-only-ok-p nil))
   ;; xxx public-only-ok-p
   (multiple-value-bind (cat sem) (read-token input)
-    (cond ((and (eq cat :nmtoken) (equalp sem '#.(string-rod "SYSTEM")))
+    (cond ((and (eq cat :nmtoken) (rod= sem '#.(string-rod "SYSTEM")))
            (p/S input)
            (make-extid nil (p/system-literal input)))
-          ((and (eq cat :nmtoken) (equalp sem '#.(string-rod "PUBLIC")))
+          ((and (eq cat :nmtoken) (rod= sem '#.(string-rod "PUBLIC")))
            (let (pub sys)
              (p/S input)
              (setf pub (p/pubid-literal input))
@@ -3390,9 +3386,7 @@
     (dolist (ns-decl ns-decls)
       ;; check some namespace validity constraints
       (let ((prefix (car ns-decl))
-	    (uri (if (rod= #"" (cdr ns-decl))
-		     nil
-		     (cdr ns-decl))))
+	    (uri (cdr ns-decl)))
 	(cond
 	  ((and (rod= prefix #"xml")
 		(not (rod= uri #"http://www.w3.org/XML/1998/namespace")))
@@ -3425,7 +3419,8 @@
                       may be bound to an empty namespace URI, thus ~
                       undeclaring it."))
 	  (t
-	   (push (cons prefix uri) *namespace-bindings*)
+	   (push (cons prefix (if (rod= #"" uri) nil uri))
+		 *namespace-bindings*)
 	   (sax:start-prefix-mapping (handler *ctx*)
 				     (car ns-decl)
 				     (cdr ns-decl))))))


Index: cxml/xml/xmlns-normalizer.lisp
diff -u cxml/xml/xmlns-normalizer.lisp:1.1 cxml/xml/xmlns-normalizer.lisp:1.2
--- cxml/xml/xmlns-normalizer.lisp:1.1	Mon Dec 12 00:56:52 2005
+++ cxml/xml/xmlns-normalizer.lisp	Tue Dec 27 21:01:32 2005
@@ -90,7 +90,8 @@
 	(let ((binding (normalizer-find-prefix handler prefix)))
 	  (cond
 	    ((null binding)
-	      (push-namespace prefix uri))
+	      (unless (and (null prefix) (zerop (length uri)))
+		(push-namespace prefix uri)))
 	    ((rod= (sax:attribute-value binding) uri))
 	    ((member binding (car (xmlns-stack handler)))
 	      (setf (sax:attribute-value binding) uri))



From dlichteblau at common-lisp.net  Tue Dec 27 20:17:35 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:17:35 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/unparse.lisp 
Message-ID: <20051227201735.2875188574@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv6956/dom

Modified Files:
	unparse.lisp 
Log Message:
namespace-normalizer lieber doch nicht per default

Date: Tue Dec 27 21:17:34 2005
Author: dlichteblau

Index: cxml/dom/unparse.lisp
diff -u cxml/dom/unparse.lisp:1.3 cxml/dom/unparse.lisp:1.4
--- cxml/dom/unparse.lisp:1.3	Mon Dec 12 00:56:51 2005
+++ cxml/dom/unparse.lisp	Tue Dec 27 21:17:34 2005
@@ -1,8 +1,6 @@
 (in-package :cxml)
 
 (defun %unparse-document (sink doc canonical)
-  (when sax:*namespace-processing*
-    (setf sink (cxml:make-namespace-normalizer sink)))
   (dom:map-document sink
 		    doc
 		    :include-doctype (if (and canonical (>= canonical 2))
@@ -15,8 +13,7 @@
 		     doc
 		     canonical))
 
-(defun unparse-document (doc character-stream &rest initargs &key canonical)
-  (%unparse-document
-   (apply #'make-character-stream-sink character-stream initargs)
-   doc
-   canonical))
+(defun unparse-document (doc stream &rest initargs &key canonical)
+  (%unparse-document (apply #'make-character-stream-sink stream initargs)
+		     doc
+		     canonical))



From dlichteblau at common-lisp.net  Tue Dec 27 20:17:35 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Tue, 27 Dec 2005 21:17:35 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/dom.html 
Message-ID: <20051227201735.65F2C88161@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv6956/doc

Modified Files:
	dom.html 
Log Message:
namespace-normalizer lieber doch nicht per default

Date: Tue Dec 27 21:17:33 2005
Author: dlichteblau

Index: cxml/doc/dom.html
diff -u cxml/doc/dom.html:1.3 cxml/doc/dom.html:1.4
--- cxml/doc/dom.html:1.3	Tue Dec 27 21:01:12 2005
+++ cxml/doc/dom.html	Tue Dec 27 21:17:33 2005
@@ -64,6 +64,11 @@
       <tt>map-document</tt>.
     </p>
     <p>
+      Applications dealing with namespaces might want to inject a
+      <a href="using.html#misc">namespace normalizer</a> into the
+      sink chain.
+    </p>
+    <p>
       <div class="def">Function DOM:MAP-DOCUMENT (handler document &key include-xmlns-attributes include-default-values include-doctype)</div>
       Traverse a DOM document and call SAX functions as if an XML
       representation of the document was processed by a SAX parser.
@@ -110,11 +115,6 @@
         If keyword argument <tt>canonical</tt> is specified as 2, a
         doctype declaration will be written that includes notations
         declared in the document.
-      </li>
-      <li>
-        If namespace processing is enabled
-        (<tt>sax:*namespace-processing*</tt>), a <a
-        href="using.html#misc">namespace normalizer</a> is used.
       </li>
     </ul>
     <p>



From dlichteblau at common-lisp.net  Wed Dec 28 23:11:19 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:11:19 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html cxml/cxml.asd 
Message-ID: <20051228231119.A7B128856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv577

Modified Files:
	README.html cxml.asd 
Log Message:
sink reorganization

Date: Thu Dec 29 00:11:18 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.14 cxml/README.html:1.15
--- cxml/README.html:1.14	Tue Dec 27 21:01:10 2005
+++ cxml/README.html	Thu Dec 29 00:11:18 2005
@@ -10,6 +10,49 @@
       <p>
 	<a href="README.html">CXML Homepage</a>
       </p>
+      <ul class="main">
+	<li>
+          <a href="doc/installation.html">Installing Closure XML</a>
+          <ul class="sub">
+	    <li><a href="doc/installation.html#download"><b>Download</b></a></li>
+	    <li><a href="doc/installation.html#implementations">Implementation-specific notes</a></li>
+	    <li><a href="doc/installation.html#compilation">Compilation</a></li>
+	    <li><a href="doc/installation.html#tests">Tests</a></li>
+          </ul>
+	</li>
+        <li>
+          <ul class="hack">
+            <li>
+              <a href="doc/using.html#quickstart"><b>Quick-Start Example</b></a>
+            </li>
+          </ul>
+        </li>
+	<li>
+          <a href="doc/using.html">SAX parser</a>
+          <ul class="sub">
+            <li><a href="doc/using.html#parser">Parsing and Validating</a></li>
+            <li><a href="doc/using.html#serialization">Serialization</a></li>
+            <li><a href="doc/using.html#misc">Miscellaneous SAX handlers</a></li>
+            <li><a href="doc/using.html#rods">Recoders</a></li>
+            <li><a href="doc/using.html#dtdcache">Caching of DTD Objects</a></li>
+            <li><a href="doc/using.html#catalogs">XML Catalogs</a></li>
+	    <li><a href="doc/using.html#sax">SAX Interface</a></li>
+          </ul>
+	</li>
+	<li>
+          <a href="doc/using.html">DOM implementation</a>
+          <ul class="sub">
+            <li><a href="doc/dom.html#parser">Parsing with the DOM builder</a></li>
+            <li><a href="doc/dom.html#serialization">Serialization</a></li>
+	    <li><a href="doc/dom.html#mapping">DOM/Lisp mapping</a></li>
+          </ul>
+	</li>
+	<li>
+          <ul class="hack">
+            <li><a href="doc/xmls-compat.html">XMLS Builder</a></li>
+          </ul>
+        </li>
+      </ul>
     </div>
 
     <h1>Closure XML Parser</h1>
@@ -67,6 +110,7 @@
       <li>Implemented DOM 2 Core.</li>
       <li>Error handling overhaul.</li>
       <li>UTF-8 string support in DOM on Lisps without Unicode characters.</li>
+      <li>Sink API has been changed.</li>
       <li>Support internal subset serialization.</li>
       <li>Gilbert Baumann has clarified the license as Lisp-LGPL.</li>
       <li>Use trivial-gray-streams.</li>


Index: cxml/cxml.asd
diff -u cxml/cxml.asd:1.8 cxml/cxml.asd:1.9
--- cxml/cxml.asd:1.8	Tue Dec 27 01:21:27 2005
+++ cxml/cxml.asd	Thu Dec 29 00:11:18 2005
@@ -51,7 +51,8 @@
      (:file "encodings" :depends-on ("package"))
      (:file "encodings-data" :depends-on ("package" "encodings"))
      (:file "xstream"
-            :depends-on ("package" "definline" "syntax" "encodings-data"))))
+            :depends-on ("package" "definline" "syntax" "encodings-data"))
+     (:file "ystream" :depends-on (runes))))
 
 (asdf:defsystem :cxml-xml
     :default-component-class closure-source-file
@@ -106,7 +107,6 @@
      (utf8dom-file utf8-impl :pathname "dom-impl" :depends-on ("package"))
      #+rune-is-integer
      (utf8dom-file utf8-builder :pathname "dom-builder" :depends-on (utf8-impl))
-     (:file "unparse"         :depends-on ("package"))
      (:file "dom-sax"         :depends-on ("package")))
     :depends-on (:cxml-xml))
 



From dlichteblau at common-lisp.net  Wed Dec 28 23:11:22 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:11:22 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/dom.html cxml/doc/installation.html
	cxml/doc/quickstart.html cxml/doc/using.html
	cxml/doc/xmls-compat.html 
Message-ID: <20051228231122.216D18856F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv577/doc

Modified Files:
	dom.html installation.html quickstart.html using.html 
	xmls-compat.html 
Log Message:
sink reorganization

Date: Thu Dec 29 00:11:19 2005
Author: dlichteblau

Index: cxml/doc/dom.html
diff -u cxml/doc/dom.html:1.4 cxml/doc/dom.html:1.5
--- cxml/doc/dom.html:1.4	Tue Dec 27 21:17:33 2005
+++ cxml/doc/dom.html	Thu Dec 29 00:11:19 2005
@@ -7,6 +7,52 @@
   </head>
   <body>
     <div class="sidebar">
+      <p>
+	<a href="../README.html">CXML Homepage</a>
+      </p>
+      <ul class="main">
+	<li>
+          <a href="installation.html">Installing Closure XML</a>
+          <ul class="sub">
+	    <li><a href="installation.html#download"><b>Download</b></a></li>
+	    <li><a href="installation.html#implementations">Implementation-specific notes</a></li>
+	    <li><a href="installation.html#compilation">Compilation</a></li>
+	    <li><a href="installation.html#tests">Tests</a></li>
+          </ul>
+	</li>
+        <li>
+          <ul class="hack">
+            <li>
+              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+            </li>
+          </ul>
+        </li>
+	<li>
+          <a href="using.html">SAX parser</a>
+          <ul class="sub">
+            <li><a href="using.html#parser">Parsing and Validating</a></li>
+            <li><a href="using.html#serialization">Serialization</a></li>
+            <li><a href="using.html#misc">Miscellaneous SAX handlers</a></li>
+            <li><a href="using.html#rods">Recoders</a></li>
+            <li><a href="using.html#dtdcache">Caching of DTD Objects</a></li>
+            <li><a href="using.html#catalogs">XML Catalogs</a></li>
+	    <li><a href="using.html#sax">SAX Interface</a></li>
+          </ul>
+	</li>
+	<li>
+          <a href="using.html">DOM implementation</a>
+          <ul class="sub">
+            <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
+            <li><a href="dom.html#serialization">Serialization</a></li>
+	    <li><a href="dom.html#mapping">DOM/Lisp mapping</a></li>
+          </ul>
+	</li>
+	<li>
+          <ul class="hack">
+            <li><a href="xmls-compat.html">XMLS Builder</a></li>
+          </ul>
+        </li>
+      </ul>
     </div>
 
     <h1>The DOM implementation</h1>
@@ -54,14 +100,9 @@
     <a name="serialization"/>
     <h3>Serializing DOM</h3>
     <p>
-      The technique used to serialize a DOM document is to use a SAX
-      serialization sink as the argument to <tt>dom:map-document</tt>,
-      which generates SAX events for the DOM tree.
-    </p>
-    <p>
-      In addition, there are convenience functions like
-      <tt>unparse-document</tt> as a thin wrapper around
-      <tt>map-document</tt>.
+      To serialize a DOM document, use a SAX serialization sink as the
+      argument to <tt>dom:map-document</tt>, which generates SAX events
+      for the DOM tree.
     </p>
     <p>
       Applications dealing with namespaces might want to inject a
@@ -98,34 +139,6 @@
         suppress recoding in this case.
       </li>
     </ul>
-
-    <p>
-      <div class="def">Function CXML:UNPARSE-DOCUMENT (document stream &rest keys)</div>
-      <div class="def">Function CXML:UNPARSE-DOCUMENT-TO-OCTETS (document &rest keys) => vector</div>
-    </p>
-    <p>
-      Serialize a DOM document object.  These convenience functions are
-      wrappers around <tt>dom:map-document</tt>.
-    </p>
-    <p>Keyword arguments are passed on to the sink.  C.f. <a
-    href="using.html#serialization">cxml:make-octet-vector-sink</a>.</p>
-    <p>Notes:</p>
-    <ul>
-      <li>
-        If keyword argument <tt>canonical</tt> is specified as 2, a
-        doctype declaration will be written that includes notations
-        declared in the document.
-      </li>
-    </ul>
-    <p>
-      <tt>unparse-document-to-octets</tt> returns an <tt>(unsigned-byte
-      8)</tt> array, whereas <tt>unparse-document</tt> writes
-      characters.&nbsp; <tt>unparse-document</tt> is useful together
-      with <tt>with-output-to-string</tt>.&nbsp; However, note that the
-      resulting document in both cases is UTF-8 encoded, so the
-      characters written by <tt>unparse-document</tt> are really UTF-8
-      bytes encoded as characters.
-    </p>
 
     <a name="mapping"/>
     <h3>DOM/Lisp mapping</h3>


Index: cxml/doc/installation.html
diff -u cxml/doc/installation.html:1.6 cxml/doc/installation.html:1.7
--- cxml/doc/installation.html:1.6	Tue Dec 27 21:01:12 2005
+++ cxml/doc/installation.html	Thu Dec 29 00:11:19 2005
@@ -7,6 +7,52 @@
   </head>
   <body>
     <div class="sidebar">
+      <p>
+	<a href="../README.html">CXML Homepage</a>
+      </p>
+      <ul class="main">
+	<li>
+          <a href="installation.html">Installing Closure XML</a>
+          <ul class="sub">
+	    <li><a href="installation.html#download"><b>Download</b></a></li>
+	    <li><a href="installation.html#implementations">Implementation-specific notes</a></li>
+	    <li><a href="installation.html#compilation">Compilation</a></li>
+	    <li><a href="installation.html#tests">Tests</a></li>
+          </ul>
+	</li>
+        <li>
+          <ul class="hack">
+            <li>
+              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+            </li>
+          </ul>
+        </li>
+	<li>
+          <a href="using.html">SAX parser</a>
+          <ul class="sub">
+            <li><a href="using.html#parser">Parsing and Validating</a></li>
+            <li><a href="using.html#serialization">Serialization</a></li>
+            <li><a href="using.html#misc">Miscellaneous SAX handlers</a></li>
+            <li><a href="using.html#rods">Recoders</a></li>
+            <li><a href="using.html#dtdcache">Caching of DTD Objects</a></li>
+            <li><a href="using.html#catalogs">XML Catalogs</a></li>
+	    <li><a href="using.html#sax">SAX Interface</a></li>
+          </ul>
+	</li>
+	<li>
+          <a href="using.html">DOM implementation</a>
+          <ul class="sub">
+            <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
+            <li><a href="dom.html#serialization">Serialization</a></li>
+	    <li><a href="dom.html#mapping">DOM/Lisp mapping</a></li>
+          </ul>
+	</li>
+	<li>
+          <ul class="hack">
+            <li><a href="xmls-compat.html">XMLS Builder</a></li>
+          </ul>
+        </li>
+      </ul>
     </div>
     <h1>Installation of Closure XML</h1>
 


Index: cxml/doc/quickstart.html
diff -u cxml/doc/quickstart.html:1.3 cxml/doc/quickstart.html:1.4
--- cxml/doc/quickstart.html:1.3	Tue Dec 27 21:01:12 2005
+++ cxml/doc/quickstart.html	Thu Dec 29 00:11:19 2005
@@ -83,10 +83,10 @@
 * <b>(dom:get-attribute (dom:document-element *example*) "a")</b>
 "b"</pre>
 
-    <p>Serialize the DOM document back into a stream (<a
+    <p>Serialize the DOM document back into a file (<a
     href="using.html#serialization">read more</a>):</p>
-    <pre><b>(cxml:unparse-document *example* *standard-output*)</b>
-&lt;test a="b"&gt;&lt;child&gt;&lt;/child>&lt;/test></pre>
+    <pre><b>(with-open-file (out "example.out" :direction :output :element-type '(unsigned-byte 8))
+  (dom:map-document (cxml:make-octet-stream-sink out) *example*))</b></pre>
 
     <p>As an alternative to DOM, parse into xmls-compatible list
     structure (<a href="xmls-compat.html">read more</a>):</p>


Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.9 cxml/doc/using.html:1.10
--- cxml/doc/using.html:1.9	Tue Dec 27 21:01:12 2005
+++ cxml/doc/using.html	Thu Dec 29 00:11:19 2005
@@ -7,6 +7,52 @@
   </head>
   <body>
     <div class="sidebar">
+      <p>
+	<a href="../README.html">CXML Homepage</a>
+      </p>
+      <ul class="main">
+	<li>
+          <a href="installation.html">Installing Closure XML</a>
+          <ul class="sub">
+	    <li><a href="installation.html#download"><b>Download</b></a></li>
+	    <li><a href="installation.html#implementations">Implementation-specific notes</a></li>
+	    <li><a href="installation.html#compilation">Compilation</a></li>
+	    <li><a href="installation.html#tests">Tests</a></li>
+          </ul>
+	</li>
+        <li>
+          <ul class="hack">
+            <li>
+              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+            </li>
+          </ul>
+        </li>
+	<li>
+          <a href="using.html">SAX parser</a>
+          <ul class="sub">
+            <li><a href="using.html#parser">Parsing and Validating</a></li>
+            <li><a href="using.html#serialization">Serialization</a></li>
+            <li><a href="using.html#misc">Miscellaneous SAX handlers</a></li>
+            <li><a href="using.html#rods">Recoders</a></li>
+            <li><a href="using.html#dtdcache">Caching of DTD Objects</a></li>
+            <li><a href="using.html#catalogs">XML Catalogs</a></li>
+	    <li><a href="using.html#sax">SAX Interface</a></li>
+          </ul>
+	</li>
+	<li>
+          <a href="using.html">DOM implementation</a>
+          <ul class="sub">
+            <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
+            <li><a href="dom.html#serialization">Serialization</a></li>
+	    <li><a href="dom.html#mapping">DOM/Lisp mapping</a></li>
+          </ul>
+	</li>
+	<li>
+          <ul class="hack">
+            <li><a href="xmls-compat.html">XMLS Builder</a></li>
+          </ul>
+        </li>
+      </ul>
     </div>
     <h1>Using the SAX parser</h1>
 
@@ -137,12 +183,70 @@
       <tt>with-xml-output</tt>, <tt>with-element</tt>, etc).
     </p>
 
+    <div style="background-color: #ddddff">
+      Portable sinks:<br/>
+      <span class="def">Function CXML:MAKE-OCTET-VECTOR-SINK (&rest keys) => sink</span><br/>
+      <span class="def">Function CXML:MAKE-OCTET-STREAM-SINK (stream &rest keys) => sink</span><br/>
+      <span class="def">Function CXML:MAKE-ROD-SINK (&rest keys) => sink</span><br/>
+      <br/>
+      Only on Lisps with Unicode support:<br/>
+      <span class="def">Function CXML:MAKE-STRING-SINK</span> -- alias for <tt>cxml:make-rod-sink</tt><br/>
+      <span class="def">Function CXML:MAKE-CHARACTER-STREAM-SINK (stream &rest keys) => sink</span><br/>
+      <br/>
+      Only on Lisps <em>without</em> Unicode support:<br/>
+      <span class="def">Function CXML:MAKE-STRING-SINK/UTF8 (&rest keys) => sink</span><br/>
+      <span class="def">Function CXML:MAKE-CHARACTER-STREAM-SINK/UTF8 (stream &rest keys) => sink</span><br/>
+    </div>
     <p>
-      <div class="def">Function CXML:MAKE-OCTET-STREAM-SINK (stream &rest keys) => sink</div>
-      <div class="def">Function CXML:MAKE-OCTET-VECTOR-SINK (&rest keys) => sink</div>
-      <div class="def">Function CXML:MAKE-CHARACTER-STREAM-SINK (stream &rest keys) => sink</div>
       Return a SAX serialization handle.
     </p>
+    <ul>
+      <li>
+        The <tt>-octet-</tt> functions write the document encoded into
+        UTF-8.
+	<tt>make-octet-stream-sink</tt> works with Lisp streams of
+	element-type <tt>(unsigned-byte 8)</tt>.
+	<tt>make-octet-vector-sink</tt> returns a vector of
+	<tt>(unsigned-byte 8)</tt>.
+      </li>
+      <li>
+        <tt>make-character-stream-sink</tt> works with character
+	streams.  It serializes the document into characters <em>without
+	encoding it into an external format</em>.  When using these
+	functions, <em>take care to avoid encoding the result into
+	an incorrect external format</em>.  (Note that characters undergo
+	external format conversion when written to a character stream.
+	If the document's XML declaration specifies an encoding, make
+	sure to specify this encoding as the external format if and when
+	writing the serialized document to a character stream.  If the
+	document does not specify an encoding, either UTF-8 or UTF-16
+	must be used.)  This function is available only on Lisps with
+	unicode support.
+      </li>
+      <li>
+        <tt>make-rod-sink</tt> serializes the document into a vector of
+	runes <em>without encoding it into an external format</em>.
+	(On Lisp with unicode support, the result will be a string;
+	otherwise, a vector of character codes will be returned.)
+	The warnings given for <tt>make-character-stream-sink</tt>
+	apply to this function as well.
+      </li>
+      <li>
+        The <tt>/utf8</tt> functions write the document encoded into
+	characters representing a UTF-8 encoding.
+	When using these functions, <em>take care to avoid encoding the
+	result</em> into an external format for a second time.  (Note
+	that characters undergo external format conversion when written
+	to a character stream.  Since these functions already perform
+	external format conversion, make sure to specify an external
+	format that does "nothing" if and when writing the serialized document
+	to a character stream.  ISO-8859-1 external formats usually
+	achieve the desired effect.)
+	<tt>make-character-stream-sink/utf8</tt> works with character streams.
+	<tt>make-string-sink/utf8</tt> returns a string.
+        These functions are available only on Lisps without unicode support.
+      </li>
+    </ul>
     <p>Keyword arguments:</p>
     <ul>
       <li>
@@ -170,6 +274,16 @@
         <tt>NIL</tt>: Use a more readable non-canonical representation.
       </li>
     </ul>
+    <p>
+      An internal subset will be included in the result regardless of
+      the <tt>canonical</tt> setting.  It is the responsibility of the
+      caller to not report an internal subset for
+      canonical&nbsp;&lt;=&nbsp;1, or only notations as required for
+      canonical&nbsp;=&nbsp;2.  For example, the
+      <tt>include-doctype</tt> argument to <tt>dom:map-document</tt>
+      should be set to <tt>nil</tt> for the former behaviour and
+      <tt>:canonical-notations</tt> for the latter.
+    </p>
     <p>
       With an <tt>indentation</tt> level, pretty-print the XML by
       inserting additional whitespace.&nbsp; Note that indentation


Index: cxml/doc/xmls-compat.html
diff -u cxml/doc/xmls-compat.html:1.1 cxml/doc/xmls-compat.html:1.2
--- cxml/doc/xmls-compat.html:1.1	Mon Dec 26 23:04:10 2005
+++ cxml/doc/xmls-compat.html	Thu Dec 29 00:11:19 2005
@@ -7,6 +7,52 @@
   </head>
   <body>
     <div class="sidebar">
+      <p>
+	<a href="../README.html">CXML Homepage</a>
+      </p>
+      <ul class="main">
+	<li>
+          <a href="installation.html">Installing Closure XML</a>
+          <ul class="sub">
+	    <li><a href="installation.html#download"><b>Download</b></a></li>
+	    <li><a href="installation.html#implementations">Implementation-specific notes</a></li>
+	    <li><a href="installation.html#compilation">Compilation</a></li>
+	    <li><a href="installation.html#tests">Tests</a></li>
+          </ul>
+	</li>
+        <li>
+          <ul class="hack">
+            <li>
+              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+            </li>
+          </ul>
+        </li>
+	<li>
+          <a href="using.html">SAX parser</a>
+          <ul class="sub">
+            <li><a href="using.html#parser">Parsing and Validating</a></li>
+            <li><a href="using.html#serialization">Serialization</a></li>
+            <li><a href="using.html#misc">Miscellaneous SAX handlers</a></li>
+            <li><a href="using.html#rods">Recoders</a></li>
+            <li><a href="using.html#dtdcache">Caching of DTD Objects</a></li>
+            <li><a href="using.html#catalogs">XML Catalogs</a></li>
+	    <li><a href="using.html#sax">SAX Interface</a></li>
+          </ul>
+	</li>
+	<li>
+          <a href="using.html">DOM implementation</a>
+          <ul class="sub">
+            <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
+            <li><a href="dom.html#serialization">Serialization</a></li>
+	    <li><a href="dom.html#mapping">DOM/Lisp mapping</a></li>
+          </ul>
+	</li>
+	<li>
+          <ul class="hack">
+            <li><a href="xmls-compat.html">XMLS Builder</a></li>
+          </ul>
+        </li>
+      </ul>
     </div>
 
     <h1>XMLS Builder</h1>



From dlichteblau at common-lisp.net  Wed Dec 28 23:11:42 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:11:42 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/runes/ystream.lisp
	cxml/runes/package.lisp 
Message-ID: <20051228231142.BD49B8859E@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv577/runes

Modified Files:
	package.lisp 
Added Files:
	ystream.lisp 
Log Message:
sink reorganization

Date: Thu Dec 29 00:11:34 2005
Author: dlichteblau



Index: cxml/runes/package.lisp
diff -u cxml/runes/package.lisp:1.4 cxml/runes/package.lisp:1.5
--- cxml/runes/package.lisp:1.4	Tue Dec 27 01:21:36 2005
+++ cxml/runes/package.lisp	Thu Dec 29 00:11:32 2005
@@ -59,7 +59,21 @@
            #:xstream-plist
            #:xstream-encoding
            #:set-to-full-speed
-           #:xstream-name))
+           #:xstream-name
+
+           ;; ystream.lisp
+	   #:ystream
+	   #:close-ystream
+	   #:write-rune
+	   #:write-rod
+	   #:ystream-column
+           #:make-octet-vector-ystream
+           #:make-octet-stream-ystream
+           #:make-rod-ystream
+           #+rune-is-character #:make-character-stream-ystream
+           #+rune-is-integer #:make-string-ystream/utf8
+           #+rune-is-integer #:make-character-stream-ystream/utf8
+	   #:runes-to-utf8/adjustable-string))
 
 (defpackage :utf8-runes
   (:use :cl)



From dlichteblau at common-lisp.net  Wed Dec 28 23:11:35 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:11:35 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp cxml/dom/unparse.lisp
Message-ID: <20051228231135.3B3448856F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv577/dom

Modified Files:
	dom-impl.lisp 
Removed Files:
	unparse.lisp 
Log Message:
sink reorganization

Date: Thu Dec 29 00:11:24 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.34 cxml/dom/dom-impl.lisp:1.35
--- cxml/dom/dom-impl.lisp:1.34	Tue Dec 27 02:35:14 2005
+++ cxml/dom/dom-impl.lisp	Thu Dec 29 00:11:22 2005
@@ -973,7 +973,7 @@
     (rod-stream-buf stream)))
 
 (defmethod write-attribute-child ((node node) stream)
-  (write-rod (dom:node-value node) stream))
+  (put-rod (dom:node-value node) stream))
 
 (defmethod write-attribute-child ((node entity-reference) stream)
   (dovector (child (dom:child-nodes node))
@@ -988,7 +988,7 @@
   (buf nil)
   (position 0))
 
-(defun write-rod (rod rod-stream)
+(defun put-rod (rod rod-stream)
   (let ((buf (rod-stream-buf rod-stream)))
     (when buf
       (move rod buf 0 (rod-stream-position rod-stream) (length rod)))
@@ -1210,10 +1210,12 @@
 	   ;; dass ein leeres internal subset nicht vorhanden ist und
 	   ;; wir daher nil liefern sollen.  bittesehr!
 	   (dom::%internal-subset node))
-      (with-output-to-string (stream)
-	(let ((sink (cxml:make-character-stream-sink stream)))
-	  (dolist (def (dom::%internal-subset node))
-	    (apply (car def) sink (cdr def)))))
+      (let ((sink
+	     #+rune-is-character (cxml:make-string-sink)
+	     #-rune-is-character (cxml:make-string-sink/utf8)))
+	(dolist (def (dom::%internal-subset node))
+	  (apply (car def) sink (cdr def)))
+	(sax:end-document sink))
       nil))
 
 ;;; NOTATION -- nix





From dlichteblau at common-lisp.net  Wed Dec 28 23:11:46 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:11:46 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/test/domtest.lisp
	cxml/test/xmlconf.lisp 
Message-ID: <20051228231146.0B2198856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv577/test

Modified Files:
	domtest.lisp xmlconf.lisp 
Log Message:
sink reorganization

Date: Thu Dec 29 00:11:42 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.15 cxml/test/domtest.lisp:1.16
--- cxml/test/domtest.lisp:1.15	Tue Dec 27 21:01:17 2005
+++ cxml/test/domtest.lisp	Thu Dec 29 00:11:38 2005
@@ -680,7 +680,7 @@
 			      (dom:get-attribute member "href"))))
 		   (unless (or (runes:rod= (dom:tag-name member) #"metadata")
 			       (member href *bad-tests* :test 'equal))
-		     (format t "~&~D/~D ~A~%" i #+nil n 808 href)
+		     (format t "~&~D/~D ~A~%" i n href)
 		     (let ((lisp (slurp-test
 				  (merge-pathnames href test-directory))))
 		       (when verbose


Index: cxml/test/xmlconf.lisp
diff -u cxml/test/xmlconf.lisp:1.11 cxml/test/xmlconf.lisp:1.12
--- cxml/test/xmlconf.lisp:1.11	Tue Dec 27 02:35:16 2005
+++ cxml/test/xmlconf.lisp	Thu Dec 29 00:11:38 2005
@@ -54,9 +54,10 @@
               (merge-pathnames output sub-directory)))))
 
 (defun serialize-document (document)
-  (map 'vector #'char-code
-       (with-output-to-string (s)
-         (cxml:unparse-document document s :canonical 2))))
+  (dom:map-document (cxml:make-octet-vector-sink :canonical 2)
+		    document
+		    :include-doctype :canonical-notations
+		    :include-default-values t))
 
 (defun file-contents (pathname)
   (with-open-file (s pathname :element-type '(unsigned-byte 8))



From dlichteblau at common-lisp.net  Wed Dec 28 23:11:55 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:11:55 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/package.lisp cxml/xml/unparse.lisp 
Message-ID: <20051228231155.585398856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv577/xml

Modified Files:
	package.lisp unparse.lisp 
Log Message:
sink reorganization

Date: Thu Dec 29 00:11:51 2005
Author: dlichteblau

Index: cxml/xml/package.lisp
diff -u cxml/xml/package.lisp:1.8 cxml/xml/package.lisp:1.9
--- cxml/xml/package.lisp:1.8	Tue Dec 27 02:35:18 2005
+++ cxml/xml/package.lisp	Thu Dec 29 00:11:46 2005
@@ -38,11 +38,13 @@
    ;; #:parse-string
    #:parse-octets
 
-   #:make-character-stream-sink
    #:make-octet-vector-sink
    #:make-octet-stream-sink
-   #:unparse-document
-   #:unparse-document-to-octets
+   #:make-rod-sink
+   #+rune-is-character #:make-string-sink
+   #+rune-is-character #:make-character-stream-sink
+   #-rune-is-character #:make-string-sink/utf8
+   #-rune-is-character #:make-character-stream-sink/utf8
 
    #:with-xml-output
    #:with-element


Index: cxml/xml/unparse.lisp
diff -u cxml/xml/unparse.lisp:1.5 cxml/xml/unparse.lisp:1.6
--- cxml/xml/unparse.lisp:1.5	Tue Dec 27 01:21:41 2005
+++ cxml/xml/unparse.lisp	Thu Dec 29 00:11:48 2005
@@ -67,11 +67,10 @@
 ;; -- James Clark (jjc at jclark.com)
 
 
-;;;; SINK: a rune output "stream"
+;;;; SINK: an xml output sink
 
 (defclass sink ()
-    ((high-surrogate :initform nil)
-     (column :initform 0 :accessor column)
+    ((ystream :initarg :ystream :accessor sink-ystream)
      (width :initform 79 :initarg :width :accessor width)
      (canonical :initform t :initarg :canonical :accessor canonical)
      (indentation :initform nil :initarg :indentation :accessor indentation)
@@ -90,77 +89,49 @@
   (when (and (canonical instance) (indentation instance))
     (error "Cannot indent XML in canonical mode")))
 
-;; WRITE-OCTET als generisch zu machen ist vielleicht nicht die schnellste
-;; Loesung, aber die einfachste.
-(defgeneric write-octet (octet sink))
-
 (defun make-buffer (&key (element-type '(unsigned-byte 8)))
   (make-array 1
               :element-type element-type
               :adjustable t
               :fill-pointer 0))
 
-(defmethod write-octet :after (octet sink)
-  (with-slots (column) sink
-    (setf column (if (eql octet 10) 0 (1+ column)))))
-
-
-;; vector (octet) sinks
-
-(defclass vector-sink (sink)
-    ((target-vector :initform (make-buffer))))
-
-(defun make-octet-vector-sink (&rest initargs)
-  (apply #'make-instance 'vector-sink initargs))
-
-(defmethod write-octet (octet (sink vector-sink))
-  (let ((target-vector (slot-value sink 'target-vector)))
-    (vector-push-extend octet target-vector (length target-vector))))
-
-(defmethod sax:end-document ((sink vector-sink))
-  (slot-value sink 'target-vector))
-
-
-;; character stream sinks
-
-(defclass character-stream-sink (sink)
-    ((target-stream :initarg :target-stream)))
-
-(defun make-character-stream-sink (character-stream &rest initargs)
-  (apply #'make-instance 'character-stream-sink
-         :target-stream character-stream
-         initargs))
+;; total haesslich, aber die ystreams will ich im moment eigentlich nicht
+;; dokumentieren
+(macrolet ((define-maker (make-sink make-ystream &rest args)
+	     `(defun ,make-sink (, at args &rest initargs)
+		(apply #'make-instance
+		       'sink
+		       :ystream (,make-ystream , at args)
+		       initargs))))
+  (define-maker make-octet-vector-sink make-octet-vector-ystream)
+  (define-maker make-octet-stream-sink make-octet-stream-ystream stream)
+  (define-maker make-rod-sink make-rod-ystream)
+
+  #+rune-is-character
+  (define-maker make-character-stream-sink make-character-ystream stream)
+
+  #-rune-is-character
+  (define-maker make-string-sink/utf8 make-string-ystream/utf8)
+
+  #-rune-is-character
+  (define-maker make-character-stream-sink/utf8
+      make-character-stream-ystream/utf8
+    stream))
 
-(defmethod write-octet (octet (sink character-stream-sink))
-  (write-char (code-char octet) (slot-value sink 'target-stream)))
+#+rune-is-character
+(defun make-string-sink (&rest args) (apply #'make-rod-sink args))
 
-(defmethod sax:end-document ((sink character-stream-sink))
-  (slot-value sink 'target-stream))
 
-
-;; octet stream sinks
-
-(defclass octet-stream-sink (sink)
-    ((target-stream :initarg :target-stream)))
-
-(defun make-octet-stream-sink (octet-stream &rest initargs)
-  (apply #'make-instance 'octet-stream-sink
-         :target-stream octet-stream
-         initargs))
-
-(defmethod write-octet (octet (sink octet-stream-sink))
-  (write-byte octet (slot-value sink 'target-stream)))
-
-(defmethod sax:end-document ((sink octet-stream-sink))
-  (slot-value sink 'target-stream))
+(defmethod sax:end-document ((sink sink))
+  (close-ystream (sink-ystream sink)))
 
 
 ;;;; doctype and notations
 
 (defmethod sax:start-document ((sink sink))
   (unless (canonical sink)
-    (write-rod #"<?xml version=\"1.0\" encoding=\"UTF-8\"?>" sink)
-    (write-rune #/U+000A sink)))
+    (%write-rod #"<?xml version=\"1.0\" encoding=\"UTF-8\"?>" sink)
+    (%write-rune #/U+000A sink)))
 
 (defmethod sax:start-dtd ((sink sink) name public-id system-id)
   (setf (name-for-dtd sink) name)
@@ -170,28 +141,28 @@
 (defun ensure-doctype (sink &optional public-id system-id)
   (unless (have-doctype sink)
     (setf (have-doctype sink) t)
-    (write-rod #"<!DOCTYPE " sink)
-    (write-rod (name-for-dtd sink) sink)
+    (%write-rod #"<!DOCTYPE " sink)
+    (%write-rod (name-for-dtd sink) sink)
     (cond
       (public-id
-        (write-rod #" PUBLIC \"" sink)
+        (%write-rod #" PUBLIC \"" sink)
         (unparse-string public-id sink)
-        (write-rod #"\" \"" sink)
+        (%write-rod #"\" \"" sink)
         (unparse-string system-id sink)
-        (write-rod #"\"" sink))
+        (%write-rod #"\"" sink))
       (system-id
-        (write-rod #" SYSTEM \"" sink)
+        (%write-rod #" SYSTEM \"" sink)
         (unparse-string public-id sink)
-        (write-rod #"\"" sink)))))
+        (%write-rod #"\"" sink)))))
 
 (defmethod sax:start-internal-subset ((sink sink))
   (ensure-doctype sink)
-  (write-rod #" [" sink)
-  (write-rune #/U+000A sink))
+  (%write-rod #" [" sink)
+  (%write-rune #/U+000A sink))
 
 (defmethod sax:end-internal-subset ((sink sink))
   (ensure-doctype sink)
-  (write-rod #"]" sink))
+  (%write-rod #"]" sink))
 
 (defmethod sax:notation-declaration ((sink sink) name public-id system-id)
   (let ((prev (previous-notation sink)))
@@ -200,171 +171,171 @@
 	       (not (rod< prev name)))
       (error "misordered notations; cannot unparse canonically"))
     (setf (previous-notation sink) name)) 
-  (write-rod #"<!NOTATION " sink)
-  (write-rod name sink)
+  (%write-rod #"<!NOTATION " sink)
+  (%write-rod name sink)
   (cond
     ((zerop (length public-id))
-      (write-rod #" SYSTEM '" sink)
-      (write-rod system-id sink)
-      (write-rune #/' sink))
+      (%write-rod #" SYSTEM '" sink)
+      (%write-rod system-id sink)
+      (%write-rune #/' sink))
     ((zerop (length system-id))
-      (write-rod #" PUBLIC '" sink)
-      (write-rod public-id sink)
-      (write-rune #/' sink))
+      (%write-rod #" PUBLIC '" sink)
+      (%write-rod public-id sink)
+      (%write-rune #/' sink))
     (t 
-      (write-rod #" PUBLIC '" sink)
-      (write-rod public-id sink)
-      (write-rod #"' '" sink)
-      (write-rod system-id sink)
-      (write-rune #/' sink)))
-  (write-rune #/> sink)
-  (write-rune #/U+000A sink))
+      (%write-rod #" PUBLIC '" sink)
+      (%write-rod public-id sink)
+      (%write-rod #"' '" sink)
+      (%write-rod system-id sink)
+      (%write-rune #/' sink)))
+  (%write-rune #/> sink)
+  (%write-rune #/U+000A sink))
 
 (defmethod sax:unparsed-entity-declaration
     ((sink sink) name public-id system-id notation-name)
   (unless (and (canonical sink) (< (canonical sink) 3))
-    (write-rod #"<!ENTITY " sink)
-    (write-rod name sink)
+    (%write-rod #"<!ENTITY " sink)
+    (%write-rod name sink)
     (cond
       ((zerop (length public-id))
-	(write-rod #" SYSTEM '" sink)
-	(write-rod system-id sink)
-	(write-rune #/' sink))
+	(%write-rod #" SYSTEM '" sink)
+	(%write-rod system-id sink)
+	(%write-rune #/' sink))
       ((zerop (length system-id))
-	(write-rod #" PUBLIC '" sink)
-	(write-rod public-id sink)
-	(write-rune #/' sink))
+	(%write-rod #" PUBLIC '" sink)
+	(%write-rod public-id sink)
+	(%write-rune #/' sink))
       (t 
-	(write-rod #" PUBLIC '" sink)
-	(write-rod public-id sink)
-	(write-rod #"' '" sink)
-	(write-rod system-id sink)
-	(write-rune #/' sink)))
-    (write-rod #" NDATA " sink)
-    (write-rod notation-name sink)
-    (write-rune #/> sink)
-    (write-rune #/U+000A sink)))
+	(%write-rod #" PUBLIC '" sink)
+	(%write-rod public-id sink)
+	(%write-rod #"' '" sink)
+	(%write-rod system-id sink)
+	(%write-rune #/' sink)))
+    (%write-rod #" NDATA " sink)
+    (%write-rod notation-name sink)
+    (%write-rune #/> sink)
+    (%write-rune #/U+000A sink)))
 
 (defmethod sax:external-entity-declaration
     ((sink sink) kind name public-id system-id)
   (when (canonical sink)
     (error "cannot serialize parsed entities in canonical mode"))
-  (write-rod #"<!ENTITY " sink)
+  (%write-rod #"<!ENTITY " sink)
   (when (eq kind :parameter)
-    (write-rod #" % " sink))
-  (write-rod name sink)
+    (%write-rod #" % " sink))
+  (%write-rod name sink)
   (cond
     ((zerop (length public-id))
-      (write-rod #" SYSTEM '" sink)
-      (write-rod system-id sink)
-      (write-rune #/' sink))
+      (%write-rod #" SYSTEM '" sink)
+      (%write-rod system-id sink)
+      (%write-rune #/' sink))
     ((zerop (length system-id))
-      (write-rod #" PUBLIC '" sink)
-      (write-rod public-id sink)
-      (write-rune #/' sink))
+      (%write-rod #" PUBLIC '" sink)
+      (%write-rod public-id sink)
+      (%write-rune #/' sink))
     (t 
-      (write-rod #" PUBLIC '" sink)
-      (write-rod public-id sink)
-      (write-rod #"' '" sink)
-      (write-rod system-id sink)
-      (write-rune #/' sink)))
-  (write-rune #/> sink)
-  (write-rune #/U+000A sink))
+      (%write-rod #" PUBLIC '" sink)
+      (%write-rod public-id sink)
+      (%write-rod #"' '" sink)
+      (%write-rod system-id sink)
+      (%write-rune #/' sink)))
+  (%write-rune #/> sink)
+  (%write-rune #/U+000A sink))
 
 (defmethod sax:internal-entity-declaration ((sink sink) kind name value)
   (when (canonical sink)
     (error "cannot serialize parsed entities in canonical mode"))
-  (write-rod #"<!ENTITY " sink)
+  (%write-rod #"<!ENTITY " sink)
   (when (eq kind :parameter)
-    (write-rod #" % " sink))
-  (write-rod name sink)
-  (write-rune #/U+0020 sink)
-  (write-rune #/\" sink)
+    (%write-rod #" % " sink))
+  (%write-rod name sink)
+  (%write-rune #/U+0020 sink)
+  (%write-rune #/\" sink)
   (unparse-string value sink)
-  (write-rune #/\" sink)
-  (write-rune #/> sink)
-  (write-rune #/U+000A sink))
+  (%write-rune #/\" sink)
+  (%write-rune #/> sink)
+  (%write-rune #/U+000A sink))
 
 (defmethod sax:element-declaration ((sink sink) name model)
   (when (canonical sink)
     (error "cannot serialize element type declarations in canonical mode"))
-  (write-rod #"<!ELEMENT " sink)
-  (write-rod name sink)
-  (write-rune #/U+0020 sink)
+  (%write-rod #"<!ELEMENT " sink)
+  (%write-rod name sink)
+  (%write-rune #/U+0020 sink)
   (labels ((walk (m)
 	     (cond
 	       ((eq m :EMPTY)
-		 (write-rod "EMPTY" sink))
+		 (%write-rod "EMPTY" sink))
 	       ((eq m :PCDATA)
-		 (write-rod "#PCDATA" sink))
+		 (%write-rod "#PCDATA" sink))
 	       ((atom m)
 		 (unparse-string m sink))
 	       (t
 		 (ecase (car m)
 		   (and
-		     (write-rune #/\( sink)
+		     (%write-rune #/\( sink)
 		     (loop for (n . rest) on (cdr m) do
 			   (walk n)
 			   (when rest
-			     (write-rune #\, sink)))
-		     (write-rune #/\) sink))
+			     (%write-rune #\, sink)))
+		     (%write-rune #/\) sink))
 		   (or
-		     (write-rune #/\( sink)
+		     (%write-rune #/\( sink)
 		     (loop for (n . rest) on (cdr m) do
 			   (walk n)
 			   (when rest
-			     (write-rune #\| sink)))
-		     (write-rune #/\) sink))
+			     (%write-rune #\| sink)))
+		     (%write-rune #/\) sink))
 		   (*
 		     (walk (second m))
-		     (write-rod #/* sink))
+		     (%write-rod #/* sink))
 		   (+
 		     (walk (second m))
-		     (write-rod #/+ sink))
+		     (%write-rod #/+ sink))
 		   (?
 		     (walk (second m))
-		     (write-rod #/? sink)))))))
+		     (%write-rod #/? sink)))))))
     (walk model))
-  (write-rune #/> sink)
-  (write-rune #/U+000A sink))
+  (%write-rune #/> sink)
+  (%write-rune #/U+000A sink))
 
 (defmethod sax:attribute-declaration ((sink sink) ename aname type default)
   (when (canonical sink)
     (error "cannot serialize attribute type declarations in canonical mode"))
-  (write-rod #"<!ATTLIST " sink)
-  (write-rod ename sink)
-  (write-rune #/U+0020 sink)
-  (write-rod aname sink)
-  (write-rune #/U+0020 sink)
+  (%write-rod #"<!ATTLIST " sink)
+  (%write-rod ename sink)
+  (%write-rune #/U+0020 sink)
+  (%write-rod aname sink)
+  (%write-rune #/U+0020 sink)
   (cond
     ((atom type)
-      (write-rod (rod (string-upcase (symbol-name type))) sink))
+      (%write-rod (rod (string-upcase (symbol-name type))) sink))
     (t
       (when (eq :NOTATION (car type))
-	(write-rod #"NOTATION " sink))
-      (write-rune #/\( sink)
+	(%write-rod #"NOTATION " sink))
+      (%write-rune #/\( sink)
       (loop for (n . rest) on (cdr type) do
-	    (write-rod n sink)
+	    (%write-rod n sink)
 	    (when rest
-	      (write-rune #\| sink)))
-      (write-rune #/\) sink)))
+	      (%write-rune #\| sink)))
+      (%write-rune #/\) sink)))
   (cond
     ((atom default)
-      (write-rune #/# sink)
-      (write-rod (rod (string-upcase (symbol-name default))) sink))
+      (%write-rune #/# sink)
+      (%write-rod (rod (string-upcase (symbol-name default))) sink))
     (t
       (when (eq :FIXED (car default))
-	(write-rod #"#FIXED " sink))
-      (write-rune #/\" sink)
+	(%write-rod #"#FIXED " sink))
+      (%write-rune #/\" sink)
       (unparse-string (second default) sink)
-      (write-rune #/\" sink)))
-  (write-rune #/> sink)
-  (write-rune #/U+000A sink))
+      (%write-rune #/\" sink)))
+  (%write-rune #/> sink)
+  (%write-rune #/U+000A sink))
 
 (defmethod sax:end-dtd ((sink sink))
   (when (have-doctype sink)
-    (write-rod #">" sink)
-    (write-rune #/U+000A sink)))
+    (%write-rod #">" sink)
+    (%write-rune #/U+000A sink)))
 
 
 ;;;; elements
@@ -375,15 +346,15 @@
   (have-gt nil))
 
 (defun sink-fresh-line (sink)
-  (unless (zerop (column sink))
-    (write-rune-0 10 sink)
+  (unless (zerop (ystream-column (sink-ystream sink)))
+    (%write-rune 10 sink)
     (indent sink)))
 
 (defun maybe-close-tag (sink)
   (let ((tag (car (stack sink))))
     (when (and (tag-p tag) (not (tag-have-gt tag)))
       (setf (tag-have-gt tag) t)
-      (write-rune #/> sink))))
+      (%write-rune #/> sink))))
 
 (defmethod sax:start-element
     ((sink sink) namespace-uri local-name qname attributes)
@@ -395,16 +366,16 @@
   (when (indentation sink)
     (sink-fresh-line sink)
     (start-indentation-block sink))
-  (write-rune #/< sink)
-  (write-rod qname sink)
+  (%write-rune #/< sink)
+  (%write-rod qname sink)
   (let ((atts (sort (copy-list attributes) #'rod< :key #'sax:attribute-qname)))
     (dolist (a atts)
-      (write-rune #/space sink)
-      (write-rod (sax:attribute-qname a) sink)
-      (write-rune #/= sink)
-      (write-rune #/\" sink)
-      (map nil (lambda (c) (unparse-datachar c sink)) (sax:attribute-value a))
-      (write-rune #/\" sink)))
+      (%write-rune #/space sink)
+      (%write-rod (sax:attribute-qname a) sink)
+      (%write-rune #/= sink)
+      (%write-rune #/\" sink)
+      (unparse-string (sax:attribute-value a) sink)
+      (%write-rune #/\" sink)))
   (when (canonical sink)
     (maybe-close-tag sink)))
 
@@ -423,21 +394,21 @@
         (sink-fresh-line sink)))
     (cond
       ((tag-have-gt tag)
-       (write-rod '#.(string-rod "</") sink)
-       (write-rod qname sink)
-       (write-rod '#.(string-rod ">") sink))
+       (%write-rod '#.(string-rod "</") sink)
+       (%write-rod qname sink)
+       (%write-rod '#.(string-rod ">") sink))
       (t
-       (write-rod #"/>" sink)))))
+       (%write-rod #"/>" sink)))))
 
 (defmethod sax:processing-instruction ((sink sink) target data)
   (maybe-close-tag sink)
   (unless (rod-equal target '#.(string-rod "xml"))
-    (write-rod '#.(string-rod "<?") sink)
-    (write-rod target sink)
+    (%write-rod '#.(string-rod "<?") sink)
+    (%write-rod target sink)
     (when data
-      (write-rune #/space sink)
-      (write-rod data sink))
-    (write-rod '#.(string-rod "?>") sink)))
+      (%write-rune #/space sink)
+      (%write-rod data sink))
+    (%write-rod '#.(string-rod "?>") sink)))
 
 (defmethod sax:start-cdata ((sink sink))
   (maybe-close-tag sink)
@@ -451,17 +422,17 @@
           (not (search #"]]" data)))
       (when (indentation sink)
         (sink-fresh-line sink))
-      (write-rod #"<![CDATA[" sink)
+      (%write-rod #"<![CDATA[" sink)
       ;; XXX signal error if body is unprintable?
-      (map nil (lambda (c) (write-rune c sink)) data)
-      (write-rod #"]]>" sink))
+      (map nil (lambda (c) (%write-rune c sink)) data)
+      (%write-rod #"]]>" sink))
     (t
       (if (indentation sink)
           (unparse-indented-text data sink)
-          (map nil (if (canonical sink)
-                       (lambda (c) (unparse-datachar c sink))
-                       (lambda (c) (unparse-datachar-readable c sink)))
-               data)))))
+	  (let ((y (sink-ystream sink)))
+	    (if (canonical sink)
+		(loop for c across data do (unparse-datachar c y))
+		(loop for c across data do (unparse-datachar-readable c y))))))))
 
 (defmethod sax:end-cdata ((sink sink))
   (unless (eq (pop (stack sink)) :cdata)
@@ -469,7 +440,7 @@
 
 (defun indent (sink)
   (dotimes (x (current-indentation sink))
-    (write-rune-0 32 sink)))
+    (%write-rune 32 sink)))
 
 (defun start-indentation-block (sink)
   (incf (current-indentation sink) (indentation sink)))
@@ -491,89 +462,47 @@
             (let* ((w (or (position-if #'whitespacep data :start (1+ pos)) n))
                    (next (or (position-if-not #'whitespacep data :start w) n)))
               (when need-whitespace-p
-                (if (< (+ (column sink) w (- pos)) (width sink))
-                    (write-rune-0 32 sink)
+                (if (< (+ (ystream-column (sink-ystream sink)) w (- pos))
+		       (width sink))
+                    (%write-rune 32 sink)
                     (sink-fresh-line sink)))
               (loop
+		  with y = (sink-ystream sink)
                   for i from pos below w do
-                    (unparse-datachar-readable (elt data i) sink))
+                    (unparse-datachar-readable (elt data i) y))
               (setf need-whitespace-p (< w n))
               (setf pos next))))
         (t
-          (write-rune-0 32 sink))))))
+          (%write-rune 32 sink))))))
 
 (defun unparse-string (str sink)
-  (map nil (lambda (c) (unparse-datachar c sink)) str))
+  (let ((y (sink-ystream sink)))
+    (loop for rune across str do (unparse-datachar rune y))))
 
-(defun unparse-datachar (c sink)
-  (cond ((rune= c #/&) (write-rod '#.(string-rod "&amp;") sink))
-        ((rune= c #/<) (write-rod '#.(string-rod "&lt;") sink))
-        ((rune= c #/>) (write-rod '#.(string-rod "&gt;") sink))
-        ((rune= c #/\") (write-rod '#.(string-rod "&quot;") sink))
-        ((rune= c #/U+0009) (write-rod '#.(string-rod "&#9;") sink))
-        ((rune= c #/U+000A) (write-rod '#.(string-rod "&#10;") sink))
-        ((rune= c #/U+000D) (write-rod '#.(string-rod "&#13;") sink))
+(defun unparse-datachar (c ystream)
+  (cond ((rune= c #/&) (write-rod '#.(string-rod "&amp;") ystream))
+        ((rune= c #/<) (write-rod '#.(string-rod "&lt;") ystream))
+        ((rune= c #/>) (write-rod '#.(string-rod "&gt;") ystream))
+        ((rune= c #/\") (write-rod '#.(string-rod "&quot;") ystream))
+        ((rune= c #/U+0009) (write-rod '#.(string-rod "&#9;") ystream))
+        ((rune= c #/U+000A) (write-rod '#.(string-rod "&#10;") ystream))
+        ((rune= c #/U+000D) (write-rod '#.(string-rod "&#13;") ystream))
         (t
-         (write-rune c sink))))
+         (write-rune c ystream))))
 
-(defun unparse-datachar-readable (c sink)
-  (cond ((rune= c #/&) (write-rod '#.(string-rod "&amp;") sink))
-        ((rune= c #/<) (write-rod '#.(string-rod "&lt;") sink))
-        ((rune= c #/>) (write-rod '#.(string-rod "&gt;") sink))
-        ((rune= c #/\") (write-rod '#.(string-rod "&quot;") sink))
+(defun unparse-datachar-readable (c ystream)
+  (cond ((rune= c #/&) (write-rod '#.(string-rod "&amp;") ystream))
+        ((rune= c #/<) (write-rod '#.(string-rod "&lt;") ystream))
+        ((rune= c #/>) (write-rod '#.(string-rod "&gt;") ystream))
+        ((rune= c #/\") (write-rod '#.(string-rod "&quot;") ystream))
         (t
-          (write-rune c sink))))
+          (write-rune c ystream))))
 
+(defun %write-rune (c sink)
+  (write-rune c (sink-ystream sink)))
 
-;;;; UTF-8 output for SINKs
-
-(defun write-rod (rod sink)
-  (map nil (lambda (c) (write-rune c sink)) rod))
-
-(defun write-rune (rune sink)
-  (let ((code (rune-code rune)))
-    (with-slots (high-surrogate) sink
-      (cond
-        ((<= #xD800 code #xDBFF)
-          (setf high-surrogate code))
-        ((<= #xDC00 code #xDFFF)
-          (let ((q (logior (ash (- high-surrogate #xD7C0) 10)
-                           (- code #xDC00))))
-            (write-rune-0 q sink))
-          (setf high-surrogate nil))
-        (t
-          (write-rune-0 code sink))))))
-
-(defun write-rune-0 (code sink)
-  (labels ((wr (x)
-             (write-octet x sink)))
-    (cond ((<= #x00000000 code #x0000007F) 
-           (wr code))
-          ((<= #x00000080 code #x000007FF)
-           (wr (logior #b11000000 (ldb (byte 5 6) code)))
-           (wr (logior #b10000000 (ldb (byte 6 0) code))))
-          ((<= #x00000800 code #x0000FFFF)
-           (wr (logior #b11100000 (ldb (byte 4 12) code)))
-           (wr (logior #b10000000 (ldb (byte 6 6) code)))
-           (wr (logior #b10000000 (ldb (byte 6 0) code))))
-          ((<= #x00010000 code #x001FFFFF)
-           (wr (logior #b11110000 (ldb (byte 3 18) code)))
-           (wr (logior #b10000000 (ldb (byte 6 12) code)))
-           (wr (logior #b10000000 (ldb (byte 6 6) code)))
-           (wr (logior #b10000000 (ldb (byte 6 0) code))))
-          ((<= #x00200000 code #x03FFFFFF)
-           (wr (logior #b11111000 (ldb (byte 2 24) code)))
-           (wr (logior #b10000000 (ldb (byte 6 18) code)))
-           (wr (logior #b10000000 (ldb (byte 6 12) code)))
-           (wr (logior #b10000000 (ldb (byte 6 6) code)))
-           (wr (logior #b10000000 (ldb (byte 6 0) code))))
-          ((<= #x04000000 code #x7FFFFFFF)
-           (wr (logior #b11111100 (ldb (byte 1 30) code)))
-           (wr (logior #b10000000 (ldb (byte 6 24) code)))
-           (wr (logior #b10000000 (ldb (byte 6 18) code)))
-           (wr (logior #b10000000 (ldb (byte 6 12) code)))
-           (wr (logior #b10000000 (ldb (byte 6 6) code)))
-           (wr (logior #b10000000 (ldb (byte 6 0) code)))))))
+(defun %write-rod (r sink)
+  (write-rod r (sink-ystream sink)))
 
 
 ;;;; convenience functions for DOMless XML serialization
@@ -632,8 +561,9 @@
   data)
 
 (defun rod-to-utf8-string (rod)
-  (with-output-to-string (s)
-    (write-rod rod (cxml:make-character-stream-sink s))))
+  (let ((out (make-buffer :element-type 'character)))
+    (runes-to-utf8/adjustable-string out rod (length rod))
+    out))
 
 (defun utf8-string-to-rod (str)
   (let* ((bytes (map '(vector (unsigned-byte 8)) #'char-code str))



From dlichteblau at common-lisp.net  Wed Dec 28 23:18:05 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:18:05 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/using.html 
Message-ID: <20051228231805.B99868856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv1642/doc

Modified Files:
	using.html 
Log Message:
parse-string in parse-rod umbenannt und exportiert

Date: Thu Dec 29 00:18:04 2005
Author: dlichteblau

Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.10 cxml/doc/using.html:1.11
--- cxml/doc/using.html:1.10	Thu Dec 29 00:11:19 2005
+++ cxml/doc/using.html	Thu Dec 29 00:18:04 2005
@@ -67,6 +67,7 @@
       <div class="def">Function CXML:PARSE-FILE (pathname handler &key ...)</div>
       <div class="def">Function CXML:PARSE-STREAM (stream handler &key ...)</div>
       <div class="def">Function CXML:PARSE-OCTETS (octets handler &key ...)</div>
+      <div class="def">Function CXML:PARSE-ROD (rod handler &key ...)</div>
       Parse an XML document.&nbsp;
       Return values from this function depend on the SAX handler used.<br/>
       Arguments:
@@ -123,6 +124,11 @@
         otherwise.
       </li>
     </ul>
+    <p>
+      Note: <tt>parse-rod</tt> assumes that the input has already been
+      decoded into Unicode runes and ignores the encoding
+      specified in the XML declaration, if any.
+    </p>
 
     <p>
       <div class="def">Function CXML:PARSE-DTD-FILE (pathname)</div>



From dlichteblau at common-lisp.net  Wed Dec 28 23:18:07 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:18:07 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/package.lisp
	cxml/xml/xml-parse.lisp 
Message-ID: <20051228231807.651628856F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv1642/xml

Modified Files:
	package.lisp xml-parse.lisp 
Log Message:
parse-string in parse-rod umbenannt und exportiert

Date: Thu Dec 29 00:18:06 2005
Author: dlichteblau

Index: cxml/xml/package.lisp
diff -u cxml/xml/package.lisp:1.9 cxml/xml/package.lisp:1.10
--- cxml/xml/package.lisp:1.9	Thu Dec 29 00:11:46 2005
+++ cxml/xml/package.lisp	Thu Dec 29 00:18:05 2005
@@ -34,8 +34,7 @@
    
    #:parse-file
    #:parse-stream
-   ;; XXX encoding is mis-handled by parse-string, don't export it
-   ;; #:parse-string
+   #:parse-rod
    #:parse-octets
 
    #:make-octet-vector-sink


Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.56 cxml/xml/xml-parse.lisp:1.57
--- cxml/xml/xml-parse.lisp:1.56	Tue Dec 27 21:01:19 2005
+++ cxml/xml/xml-parse.lisp	Thu Dec 29 00:18:05 2005
@@ -3025,12 +3025,10 @@
         (p/ext-subset zstream)
         (dtd *ctx*)))))
 
-(defun parse-string (string handler)
-  ;; XXX this function mis-handles encoding
+(defun parse-rod (string handler)
   (parse-xstream (string->xstream string) handler))
 
 (defun string->xstream (string)
-  ;; XXX encoding is mis-handled by this kind of stream
   (make-rod-xstream (string-rod string)))
 
 (defclass octet-input-stream



From dlichteblau at common-lisp.net  Wed Dec 28 23:18:10 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 00:18:10 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/sax-tests/tests.lisp 
Message-ID: <20051228231810.CCECF8856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml/sax-tests
In directory common-lisp.net:/tmp/cvs-serv1642/xml/sax-tests

Modified Files:
	tests.lisp 
Log Message:
parse-string in parse-rod umbenannt und exportiert

Date: Thu Dec 29 00:18:09 2005
Author: dlichteblau

Index: cxml/xml/sax-tests/tests.lisp
diff -u cxml/xml/sax-tests/tests.lisp:1.1.1.2 cxml/xml/sax-tests/tests.lisp:1.2
--- cxml/xml/sax-tests/tests.lisp:1.1.1.2	Sun Mar 13 19:02:11 2005
+++ cxml/xml/sax-tests/tests.lisp	Thu Dec 29 00:18:07 2005
@@ -1,7 +1,7 @@
 (in-package :sax-tests)
 
 (defun first-start-element-event (string)
-  (let ((events (xml::parse-string string (make-instance 'event-collecting-handler))))
+  (let ((events (cxml:parse-rod string (make-instance 'event-collecting-handler))))
     (find :start-element events :key #'car)))
 
 
@@ -17,7 +17,7 @@
 
 (deftest attribute-uniqueness-1
   (handler-case
-      (xml::parse-string "<x xmlns:a='http://example.com' xmlns:b='http://example.com' a:a='1' b:a='1'/>")
+      (cxml:parse-rod "<x xmlns:a='http://example.com' xmlns:b='http://example.com' a:a='1' b:a='1'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -26,7 +26,7 @@
 
 (deftest attribute-uniqueness-2
   (handler-case
-      (xml::parse-string "<x xmlns:a='http://example.com' xmlns='http://example.com' a:a='1' a='1'/>")
+      (cxml:parse-rod "<x xmlns:a='http://example.com' xmlns='http://example.com' a:a='1' a='1'/>")
     (error () nil)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -36,7 +36,7 @@
 (deftest attribute-uniqueness-3
   (let ((sax:*namespace-processing* nil))
     (handler-case
-	(xml::parse-string "<x xmlns:a='http://example.com' xmlns:b='http://example.com' a:a='1' b:a='1'/>")
+	(cxml:parse-rod "<x xmlns:a='http://example.com' xmlns:b='http://example.com' a:a='1' b:a='1'/>")
     (error () nil)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -46,7 +46,7 @@
 ;;; Namespace undeclaring
 
 (deftest undeclare-default-namespace-1
-  (let* ((evts (xml::parse-string "<x xmlns='http://example.com'><y xmlns='' a='1'/></x>"
+  (let* ((evts (cxml:parse-rod "<x xmlns='http://example.com'><y xmlns='' a='1'/></x>"
 				   (make-instance 'event-collecting-handler)))
 	 (start-elt-events (remove :start-element evts :test (complement #'eql) :key #'car))
 	 (evt1 (first start-elt-events))
@@ -59,7 +59,7 @@
 
 (deftest undeclare-other-namespace
   (handler-case
-      (xml::parse-string "<x:x xmlns:x='http://example.com'><x:y xmlns:x='' a='1'/></x:x>")
+      (cxml:parse-rod "<x:x xmlns:x='http://example.com'><x:y xmlns:x='' a='1'/></x:x>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -71,7 +71,7 @@
 
 (deftest pi-names-are-ncnames-when-namespace-processing-1
   (handler-case
-      (xml::parse-string "<?a:b c?><x/>")
+      (cxml:parse-rod "<?a:b c?><x/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -81,7 +81,7 @@
 (deftest pi-names-are-ncnames-when-namespace-processing-2
   (let ((sax:*namespace-processing* nil))
     (handler-case
-	(xml::parse-string "<?a:b c?><x/>")
+	(cxml:parse-rod "<?a:b c?><x/>")
       (error () nil)
       (:no-error (&rest junk)
 	(declare (ignore junk))
@@ -90,7 +90,7 @@
 
 (deftest entity-names-are-ncnames-when-namespace-processing-1
   (handler-case
-      (xml::parse-string "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x>&y:z;</x>")
+      (cxml:parse-rod "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x>&y:z;</x>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -99,7 +99,7 @@
 
 (deftest entity-names-are-ncnames-when-namespace-processing-2
   (handler-case
-      (xml::parse-string "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x/>")
+      (cxml:parse-rod "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -109,7 +109,7 @@
 (deftest entity-names-are-ncnames-when-namespace-processing-3
   (let ((sax:*namespace-processing* nil))
     (handler-case
-	(xml::parse-string "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x>&y:z;</x>")
+	(cxml:parse-rod "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x>&y:z;</x>")
       (error () nil)
       (:no-error (&rest junk)
 	(declare (ignore junk))
@@ -119,7 +119,7 @@
 (deftest entity-names-are-ncnames-when-namespace-processing-4
   (let ((sax:*namespace-processing* nil))
     (handler-case
-	(xml::parse-string "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x/>")
+	(cxml:parse-rod "<!DOCTYPE x [ <!ENTITY y:z 'foo'> ]><x/>")
       (error () nil)
       (:no-error (&rest junk)
 	(declare (ignore junk))
@@ -259,7 +259,7 @@
 
 (deftest redefine-xml-namespace-1
   (handler-case
-      (xml::parse-string "<x xmlns:xml='http://www.w3.org/XML/1998/namespace'/>")
+      (cxml:parse-rod "<x xmlns:xml='http://www.w3.org/XML/1998/namespace'/>")
     (error () nil)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -268,7 +268,7 @@
 
 (deftest redefine-xml-namespace-2
   (handler-case
-      (xml::parse-string "<x xmlns:xml='http://example.com/wrong-uri'/>")
+      (cxml:parse-rod "<x xmlns:xml='http://example.com/wrong-uri'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -277,7 +277,7 @@
 
 (deftest redefine-xml-namespace-3
   (handler-case
-      (xml::parse-string "<x xmlns:wrong='http://www.w3.org/XML/1998/namespace'/>")
+      (cxml:parse-rod "<x xmlns:wrong='http://www.w3.org/XML/1998/namespace'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -286,7 +286,7 @@
 
 (deftest redefine-xml-namespace-4
   (handler-case
-      (xml::parse-string "<x xmlns:wrong='http://www.w3.org/XML/1998/namespace'/>")
+      (cxml:parse-rod "<x xmlns:wrong='http://www.w3.org/XML/1998/namespace'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -295,7 +295,7 @@
 
 (deftest redefine-xmlns-namespace-1
   (handler-case
-      (xml::parse-string "<x xmlns:xmlns='http://www.w3.org/2000/xmlns/'/>")
+      (cxml:parse-rod "<x xmlns:xmlns='http://www.w3.org/2000/xmlns/'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -304,7 +304,7 @@
 
 (deftest redefine-xmlns-namespace-2
   (handler-case
-      (xml::parse-string "<x xmlns:xmlns='http://example.com/wrong-ns'/>")
+      (cxml:parse-rod "<x xmlns:xmlns='http://example.com/wrong-ns'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -313,7 +313,7 @@
 
 (deftest redefine-xmlns-namespace-3
   (handler-case
-      (xml::parse-string "<x xmlns:wrong='http://www.w3.org/2000/xmlns/'/>")
+      (cxml:parse-rod "<x xmlns:wrong='http://www.w3.org/2000/xmlns/'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
@@ -322,11 +322,9 @@
 
 (deftest redefine-xmlns-namespace-4
   (handler-case
-      (xml::parse-string "<x xmlns='http://www.w3.org/2000/xmlns/'/>")
+      (cxml:parse-rod "<x xmlns='http://www.w3.org/2000/xmlns/'/>")
     (error () t)
     (:no-error (&rest junk)
       (declare (ignore junk))
       nil))
   t)
-
-



From dlichteblau at common-lisp.net  Thu Dec 29 00:31:32 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:31:32 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html cxml/cxml.asd 
Message-ID: <20051229003132.288958856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv7494

Modified Files:
	README.html cxml.asd 
Log Message:
whitespace normalizer

Date: Thu Dec 29 01:31:30 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.15 cxml/README.html:1.16
--- cxml/README.html:1.15	Thu Dec 29 00:11:18 2005
+++ cxml/README.html	Thu Dec 29 01:31:30 2005
@@ -23,7 +23,7 @@
         <li>
           <ul class="hack">
             <li>
-              <a href="doc/using.html#quickstart"><b>Quick-Start Example</b></a>
+              <a href="doc/quickstart.html"><b>Quick-Start Example</b></a>
             </li>
           </ul>
         </li>
@@ -112,6 +112,7 @@
       <li>UTF-8 string support in DOM on Lisps without Unicode characters.</li>
       <li>Sink API has been changed.</li>
       <li>Support internal subset serialization.</li>
+      <li>Whitespace normalizer.</li>
       <li>Gilbert Baumann has clarified the license as Lisp-LGPL.</li>
       <li>Use trivial-gray-streams.</li>
     </ul>


Index: cxml/cxml.asd
diff -u cxml/cxml.asd:1.9 cxml/cxml.asd:1.10
--- cxml/cxml.asd:1.9	Thu Dec 29 00:11:18 2005
+++ cxml/cxml.asd	Thu Dec 29 01:31:30 2005
@@ -71,6 +71,7 @@
      (:file "xmls-compat"     :depends-on ("xml-parse"))
      (:file "recoder"         :depends-on ("xml-parse"))
      (:file "xmlns-normalizer" :depends-on ("xml-parse"))
+     (:file "space-normalizer" :depends-on ("xml-parse"))
      (:file "catalog"         :depends-on ("xml-parse"))
      (:file "sax-proxy"       :depends-on ("xml-parse")))
     :depends-on (:cxml-runes :puri :trivial-gray-streams))



From dlichteblau at common-lisp.net  Thu Dec 29 00:31:35 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:31:35 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/dom.html cxml/doc/installation.html
	cxml/doc/quickstart.html cxml/doc/using.html
	cxml/doc/xmls-compat.html 
Message-ID: <20051229003135.873E68856F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv7494/doc

Modified Files:
	dom.html installation.html quickstart.html using.html 
	xmls-compat.html 
Log Message:
whitespace normalizer

Date: Thu Dec 29 01:31:31 2005
Author: dlichteblau

Index: cxml/doc/dom.html
diff -u cxml/doc/dom.html:1.5 cxml/doc/dom.html:1.6
--- cxml/doc/dom.html:1.5	Thu Dec 29 00:11:19 2005
+++ cxml/doc/dom.html	Thu Dec 29 01:31:31 2005
@@ -23,7 +23,7 @@
         <li>
           <ul class="hack">
             <li>
-              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+              <a href="quickstart.html"><b>Quick-Start Example</b></a>
             </li>
           </ul>
         </li>


Index: cxml/doc/installation.html
diff -u cxml/doc/installation.html:1.7 cxml/doc/installation.html:1.8
--- cxml/doc/installation.html:1.7	Thu Dec 29 00:11:19 2005
+++ cxml/doc/installation.html	Thu Dec 29 01:31:31 2005
@@ -23,7 +23,7 @@
         <li>
           <ul class="hack">
             <li>
-              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+              <a href="quickstart.html"><b>Quick-Start Example</b></a>
             </li>
           </ul>
         </li>
@@ -116,7 +116,7 @@
     <pre>* (asdf:operate 'asdf:load-op :cxml)</pre>
 
     <p>
-      You can then try the <a href="using.html#quickstart">quick-start example</a>.
+      You can then try the <a href="quickstart.html">quick-start example</a>.
     </p>
 
     <a name="tests"/>


Index: cxml/doc/quickstart.html
diff -u cxml/doc/quickstart.html:1.4 cxml/doc/quickstart.html:1.5
--- cxml/doc/quickstart.html:1.4	Thu Dec 29 00:11:19 2005
+++ cxml/doc/quickstart.html	Thu Dec 29 01:31:31 2005
@@ -23,7 +23,7 @@
         <li>
           <ul class="hack">
             <li>
-              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+              <a href="quickstart.html"><b>Quick-Start Example</b></a>
             </li>
           </ul>
         </li>


Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.11 cxml/doc/using.html:1.12
--- cxml/doc/using.html:1.11	Thu Dec 29 00:18:04 2005
+++ cxml/doc/using.html	Thu Dec 29 01:31:31 2005
@@ -23,7 +23,7 @@
         <li>
           <ul class="hack">
             <li>
-              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+              <a href="quickstart.html"><b>Quick-Start Example</b></a>
             </li>
           </ul>
         </li>
@@ -388,6 +388,32 @@
       <tt>start-element</tt> events before passing them on the next
       handler.
     </p>
+    <p>
+      <div class="def">Function CXML:MAKE-WHITESPACE-NORMALIZER (chained-handler &optional dtd)</div>
+      Return a SAX handler which removes whitespace from elements that
+      have <em>element content</em> and have not been declared to
+      preserve space using an xml:space attribute.
+    </p>
+    <p>Example:</p>
+    <pre>(cxml:parse-file "example.xml"
+                 (cxml:make-whitespace-normalizer (cxml-dom:make-dom-builder))
+                 :validate t)</pre>
+    <p>Example input:</p>
+    <pre>&lt;!DOCTYPE test [
+&lt;!ELEMENT test (foo,bar*)>
+&lt;!ATTLIST test a CDATA #IMPLIED>
+&lt;!ELEMENT foo #PCDATA>
+&lt;!ELEMENT bar (foo?)>
+&lt;!ATTLIST bar xml:space (default|preserve) "default">
+]>
+&lt;test a='b'>
+  &lt;foo>   &lt;/foo>
+  &lt;bar>   &lt;/bar>
+  &lt;bar xml:space="preserve">   &lt;/bar>
+&lt;/test>
+</pre>
+    <p>Example result:</p>
+    <pre>&lt;test a="b">&lt;foo>   &lt;/foo>&lt;bar>&lt;/bar>&lt;bar xml:space="preserve">   &lt;/bar>&lt;/test></pre>
 
     <a name="rods"/>
     <h3>Recoders</h3>
@@ -572,6 +598,9 @@
       <div class="def">Accessor SAX:ATTRIBUTE-QNAME (attribute)</div>
       <div class="def">Accessor SAX:ATTRIBUTE-SPECIFIED-P (attribute)</div>
       <div class="def">Accessor SAX:ATTRIBUTE-VALUE (attribute)</div>
+      <br/>
+      <div class="def">Function SAX:FIND-ATTRIBUTE (qname attributes)</div>
+      <div class="def">Function SAX:FIND-ATTRIBUTE-NS (uri lname attributes)</div>
     </p>
     <p>
       The entity declaration methods are similar to Java SAX


Index: cxml/doc/xmls-compat.html
diff -u cxml/doc/xmls-compat.html:1.2 cxml/doc/xmls-compat.html:1.3
--- cxml/doc/xmls-compat.html:1.2	Thu Dec 29 00:11:19 2005
+++ cxml/doc/xmls-compat.html	Thu Dec 29 01:31:31 2005
@@ -23,7 +23,7 @@
         <li>
           <ul class="hack">
             <li>
-              <a href="using.html#quickstart"><b>Quick-Start Example</b></a>
+              <a href="quickstart.html"><b>Quick-Start Example</b></a>
             </li>
           </ul>
         </li>



From dlichteblau at common-lisp.net  Thu Dec 29 00:31:36 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:31:36 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/runes/ystream.lisp 
Message-ID: <20051229003136.9E4FF8856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv7494/runes

Modified Files:
	ystream.lisp 
Log Message:
whitespace normalizer

Date: Thu Dec 29 01:31:34 2005
Author: dlichteblau

Index: cxml/runes/ystream.lisp
diff -u cxml/runes/ystream.lisp:1.1 cxml/runes/ystream.lisp:1.2
--- cxml/runes/ystream.lisp:1.1	Thu Dec 29 00:11:32 2005
+++ cxml/runes/ystream.lisp	Thu Dec 29 01:31:34 2005
@@ -223,6 +223,7 @@
 #+rune-is-integer
 (progn
   (defstruct (character-stream-ystream/utf8
+	      (:constructor make-character-stream-ystream/utf8 (os-stream))
 	      (:include %stream-ystream)
 	      (:conc-name "YSTREAM-")))
 



From dlichteblau at common-lisp.net  Thu Dec 29 00:31:38 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:31:38 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/space-normalizer.lisp
	cxml/xml/package.lisp cxml/xml/recoder.lisp
	cxml/xml/sax-handler.lisp cxml/xml/sax-proxy.lisp
	cxml/xml/xml-parse.lisp 
Message-ID: <20051229003138.A3ED688579@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv7494/xml

Modified Files:
	package.lisp recoder.lisp sax-handler.lisp sax-proxy.lisp 
	xml-parse.lisp 
Added Files:
	space-normalizer.lisp 
Log Message:
whitespace normalizer

Date: Thu Dec 29 01:31:36 2005
Author: dlichteblau



Index: cxml/xml/package.lisp
diff -u cxml/xml/package.lisp:1.10 cxml/xml/package.lisp:1.11
--- cxml/xml/package.lisp:1.10	Thu Dec 29 00:18:05 2005
+++ cxml/xml/package.lisp	Thu Dec 29 01:31:36 2005
@@ -77,5 +77,6 @@
    #:sax-proxy
    #:proxy-chained-handler
    #:make-namespace-normalizer
+   #:make-whitespace-normalizer
    #:rod-to-utf8-string
    #:utf8-string-to-rod))


Index: cxml/xml/recoder.lisp
diff -u cxml/xml/recoder.lisp:1.4 cxml/xml/recoder.lisp:1.5
--- cxml/xml/recoder.lisp:1.4	Tue Dec 27 02:35:20 2005
+++ cxml/xml/recoder.lisp	Thu Dec 29 01:31:36 2005
@@ -118,4 +118,8 @@
 
   (defwrapper sax:entity-resolver
       (resolver)
-    resolver))
+    resolver)
+
+  (defwrapper sax::dtd
+      (dtd)
+    dtd))


Index: cxml/xml/sax-handler.lisp
diff -u cxml/xml/sax-handler.lisp:1.3 cxml/xml/sax-handler.lisp:1.4
--- cxml/xml/sax-handler.lisp:1.3	Sun Dec  4 21:35:18 2005
+++ cxml/xml/sax-handler.lisp	Thu Dec 29 01:31:36 2005
@@ -53,6 +53,8 @@
 	   #:*use-xmlns-namespace*
 
            #:make-attribute
+           #:find-attribute
+           #:find-attribute-ns
            #:attribute-namespace-uri
            #:attribute-local-name
            #:attribute-qname
@@ -137,6 +139,23 @@
   value
   specified-p)
 
+(defun %rod= (x y)
+  ;; allow rods *and* strings *and* null
+  (cond
+    ((zerop (length x)) (zerop (length y)))
+    ((zerop (length y)) nil)
+    ((stringp x) (string= x y))
+    (t (runes:rod= x y))))
+
+(defun find-attribute (qname attrs)
+  (find qname attrs :key #'attribute-qname :test #'%rod=))
+
+(defun find-attribute-ns (uri lname attrs)
+  (find-if (lambda (attr)
+	     (and (%rod= uri (sax:attribute-namespace-uri attr))
+		  (%rod= lname (sax:attribute-local-name attr))))
+	   attrs))
+
 (defgeneric start-document (handler)
   (:documentation "Called at the beginning of the parsing process,
 before any element, processing instruction or comment is reported.
@@ -325,7 +344,11 @@
   (:documentation
    "Called between sax:end-dtd and sax:end-document to register an entity
     resolver, a function of two arguments: An entity name and SAX handler.
-    When called, the resolver function will parse the named entities data.")
+    When called, the resolver function will parse the named entity's data.")
   (:method ((handler t) resolver)
     (declare (ignore resolver))
     nil))
+
+;; internal for now
+(defgeneric dtd (handler dtd)
+  (:method ((handler t) dtd) (declare (ignore dtd)) nil))


Index: cxml/xml/sax-proxy.lisp
diff -u cxml/xml/sax-proxy.lisp:1.3 cxml/xml/sax-proxy.lisp:1.4
--- cxml/xml/sax-proxy.lisp:1.3	Mon Dec 12 00:56:52 2005
+++ cxml/xml/sax-proxy.lisp	Thu Dec 29 01:31:36 2005
@@ -37,4 +37,5 @@
   (define-proxy-method sax:notation-declaration (name public-id system-id))
   (define-proxy-method sax:element-declaration (name model))
   (define-proxy-method sax:attribute-declaration (elt attr type default))
-  (define-proxy-method sax:entity-resolver (resolver)))
+  (define-proxy-method sax:entity-resolver (resolver))
+  (define-proxy-method sax::dtd (dtd)))


Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.57 cxml/xml/xml-parse.lisp:1.58
--- cxml/xml/xml-parse.lisp:1.57	Thu Dec 29 00:18:05 2005
+++ cxml/xml/xml-parse.lisp	Thu Dec 29 01:31:36 2005
@@ -2513,7 +2513,8 @@
       (let ((dtd (dtd *ctx*)))
         (sax:entity-resolver
          (handler *ctx*)
-         (lambda (name handler) (resolve-entity name handler dtd))))
+         (lambda (name handler) (resolve-entity name handler dtd)))
+        (sax::dtd (handler *ctx*) dtd))
       (list :DOCTYPE name extid))))
 
 (defun report-cached-dtd (dtd)



From dlichteblau at common-lisp.net  Thu Dec 29 00:38:01 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:38:01 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/runes/ystream.lisp 
Message-ID: <20051229003801.5CDDA8856F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv7660/runes

Modified Files:
	ystream.lisp 
Log Message:
sb-unicode backport

Date: Thu Dec 29 01:38:00 2005
Author: dlichteblau

Index: cxml/runes/ystream.lisp
diff -u cxml/runes/ystream.lisp:1.2 cxml/runes/ystream.lisp:1.3
--- cxml/runes/ystream.lisp:1.2	Thu Dec 29 01:31:34 2005
+++ cxml/runes/ystream.lisp	Thu Dec 29 01:37:59 2005
@@ -76,7 +76,7 @@
     (when (plusp ptr)
       (let* ((in (ystream-in-buffer ystream))
 	     (out (ystream-out-buffer ystream))
-	     (surrogatep (<= #xD800 (elt in (1- ptr)) #xDBFF))
+	     (surrogatep (<= #xD800 (rune-code (elt in (1- ptr))) #xDBFF))
 	     n)
 	(when surrogatep
 	  (decf ptr))
@@ -179,11 +179,11 @@
 	      (:conc-name "YSTREAM-"))
     (target-stream nil))
 
-  (defmethod flush-ystream ((ystream rod-ystream))
+  (defmethod flush-ystream ((ystream character-stream-ystream))
     (write-string (ystream-in-buffer ystream) (ystream-target-stream ystream))
     (setf (ystream-in-ptr ystream) 0))
 
-  (defmethod close-ystream ((ystream rod-ystream))
+  (defmethod close-ystream ((ystream character-stream-ystream))
     (ystream-target-stream ystream)))
 
 



From dlichteblau at common-lisp.net  Thu Dec 29 00:38:00 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:38:00 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/DOMTEST 
Message-ID: <20051229003800.C67AB8856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv7660

Modified Files:
	DOMTEST 
Log Message:
sb-unicode backport

Date: Thu Dec 29 01:37:57 2005
Author: dlichteblau

Index: cxml/DOMTEST
diff -u cxml/DOMTEST:1.32 cxml/DOMTEST:1.33
--- cxml/DOMTEST:1.32	Sun Dec 11 21:13:04 2005
+++ cxml/DOMTEST	Thu Dec 29 01:37:57 2005
@@ -1,840 +1,840 @@
 
 #P"/home/david/2001/DOM-Test-Suite/tests/level1/core/" 
-0/808 attrcreatedocumentfragment.xml
-1/808 attrcreatetextnode.xml
-2/808 attrcreatetextnode2.xml
-3/808 attrdefaultvalue.xml
-4/808 attreffectivevalue.xml
-5/808 attrentityreplacement.xml
-6/808 attrname.xml
-7/808 attrnextsiblingnull.xml
-8/808 attrnotspecifiedvalue.xml
-9/808 attrparentnodenull.xml
-10/808 attrprevioussiblingnull.xml
-11/808 attrsetvaluenomodificationallowederr.xml
+0/806 attrcreatedocumentfragment.xml
+1/806 attrcreatetextnode.xml
+2/806 attrcreatetextnode2.xml
+3/806 attrdefaultvalue.xml
+4/806 attreffectivevalue.xml
+5/806 attrentityreplacement.xml
+6/806 attrname.xml
+7/806 attrnextsiblingnull.xml
+8/806 attrnotspecifiedvalue.xml
+9/806 attrparentnodenull.xml
+10/806 attrprevioussiblingnull.xml
+11/806 attrsetvaluenomodificationallowederr.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-12/808 attrsetvaluenomodificationallowederrEE.xml
-13/808 attrspecifiedvalue.xml
-14/808 attrspecifiedvaluechanged.xml
-15/808 attrspecifiedvalueremove.xml
-16/808 cdatasectiongetdata.xml
+12/806 attrsetvaluenomodificationallowederrEE.xml
+13/806 attrspecifiedvalue.xml
+14/806 attrspecifiedvaluechanged.xml
+15/806 attrspecifiedvalueremove.xml
+16/806 cdatasectiongetdata.xml
 implementationAttribute coalescing not supported, skipping test
-17/808 cdatasectionnormalize.xml
-18/808 characterdataappenddata.xml
-19/808 characterdataappenddatagetdata.xml
-20/808 characterdataappenddatanomodificationallowederr.xml
-21/808 characterdataappenddatanomodificationallowederrEE.xml
-22/808 characterdatadeletedatabegining.xml
-23/808 characterdatadeletedataend.xml
-24/808 characterdatadeletedataexceedslength.xml
-25/808 characterdatadeletedatagetlengthanddata.xml
-26/808 characterdatadeletedatamiddle.xml
-27/808 characterdatadeletedatanomodificationallowederrEE.xml
-28/808 characterdatagetdata.xml
-29/808 characterdatagetlength.xml
-30/808 characterdataindexsizeerrdeletedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-31/808 characterdataindexsizeerrdeletedataoffsetgreater.xml
-32/808 characterdataindexsizeerrdeletedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-33/808 characterdataindexsizeerrinsertdataoffsetgreater.xml
-34/808 characterdataindexsizeerrinsertdataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-35/808 characterdataindexsizeerrreplacedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-36/808 characterdataindexsizeerrreplacedataoffsetgreater.xml
-37/808 characterdataindexsizeerrreplacedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-38/808 characterdataindexsizeerrsubstringcountnegative.xml
-implementationAttribute signed not supported, skipping test
-39/808 characterdataindexsizeerrsubstringnegativeoffset.xml
-implementationAttribute signed not supported, skipping test
-40/808 characterdataindexsizeerrsubstringoffsetgreater.xml
-41/808 characterdatainsertdatabeginning.xml
-42/808 characterdatainsertdataend.xml
-43/808 characterdatainsertdatamiddle.xml
-44/808 characterdatainsertdatanomodificationallowederr.xml
-45/808 characterdatainsertdatanomodificationallowederrEE.xml
-46/808 characterdatareplacedatabegining.xml
-47/808 characterdatareplacedataend.xml
-48/808 characterdatareplacedataexceedslengthofarg.xml
-49/808 characterdatareplacedataexceedslengthofdata.xml
-50/808 characterdatareplacedatamiddle.xml
-51/808 characterdatareplacedatanomodificationallowederr.xml
-52/808 characterdatareplacedatanomodificationallowederrEE.xml
-53/808 characterdatasetdatanomodificationallowederr.xml
-54/808 characterdatasetdatanomodificationallowederrEE.xml
-55/808 characterdatasetnodevalue.xml
-56/808 characterdatasubstringexceedsvalue.xml
-57/808 characterdatasubstringvalue.xml
-58/808 commentgetcomment.xml
-59/808 documentcreateattribute.xml
-60/808 documentcreatecdatasection.xml
-61/808 documentcreatecomment.xml
-62/808 documentcreatedocumentfragment.xml
-63/808 documentcreateelement.xml
-64/808 documentcreateelementcasesensitive.xml
-65/808 documentcreateelementdefaultattr.xml
-66/808 documentcreateentityreference.xml
-67/808 documentcreateentityreferenceknown.xml
-68/808 documentcreateprocessinginstruction.xml
-69/808 documentcreatetextnode.xml
-70/808 documentgetdoctype.xml
-71/808 documentgetdoctypenodtd.xml
-72/808 documentgetelementsbytagnamelength.xml
-73/808 documentgetelementsbytagnametotallength.xml
-74/808 documentgetelementsbytagnamevalue.xml
-75/808 documentgetimplementation.xml
-76/808 documentgetrootnode.xml
-77/808 documentinvalidcharacterexceptioncreateattribute.xml
-78/808 documentinvalidcharacterexceptioncreateelement.xml
-79/808 documentinvalidcharacterexceptioncreateentref.xml
-80/808 documentinvalidcharacterexceptioncreateentref1.xml
-81/808 documentinvalidcharacterexceptioncreatepi.xml
-82/808 documentinvalidcharacterexceptioncreatepi1.xml
-83/808 documenttypegetdoctype.xml
-84/808 documenttypegetentities.xml
-85/808 documenttypegetentitieslength.xml
-86/808 documenttypegetentitiestype.xml
-87/808 documenttypegetnotations.xml
-88/808 documenttypegetnotationstype.xml
-89/808 domimplementationfeaturenoversion.xml
-90/808 domimplementationfeaturenull.xml
+17/806 cdatasectionnormalize.xml
+18/806 characterdataappenddata.xml
+19/806 characterdataappenddatagetdata.xml
+20/806 characterdataappenddatanomodificationallowederr.xml
+21/806 characterdataappenddatanomodificationallowederrEE.xml
+22/806 characterdatadeletedatabegining.xml
+23/806 characterdatadeletedataend.xml
+24/806 characterdatadeletedataexceedslength.xml
+25/806 characterdatadeletedatagetlengthanddata.xml
+26/806 characterdatadeletedatamiddle.xml
+27/806 characterdatadeletedatanomodificationallowederrEE.xml
+28/806 characterdatagetdata.xml
+29/806 characterdatagetlength.xml
+30/806 characterdataindexsizeerrdeletedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+31/806 characterdataindexsizeerrdeletedataoffsetgreater.xml
+32/806 characterdataindexsizeerrdeletedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+33/806 characterdataindexsizeerrinsertdataoffsetgreater.xml
+34/806 characterdataindexsizeerrinsertdataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+35/806 characterdataindexsizeerrreplacedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+36/806 characterdataindexsizeerrreplacedataoffsetgreater.xml
+37/806 characterdataindexsizeerrreplacedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+38/806 characterdataindexsizeerrsubstringcountnegative.xml
+implementationAttribute signed not supported, skipping test
+39/806 characterdataindexsizeerrsubstringnegativeoffset.xml
+implementationAttribute signed not supported, skipping test
+40/806 characterdataindexsizeerrsubstringoffsetgreater.xml
+41/806 characterdatainsertdatabeginning.xml
+42/806 characterdatainsertdataend.xml
+43/806 characterdatainsertdatamiddle.xml
+44/806 characterdatainsertdatanomodificationallowederr.xml
+45/806 characterdatainsertdatanomodificationallowederrEE.xml
+46/806 characterdatareplacedatabegining.xml
+47/806 characterdatareplacedataend.xml
+48/806 characterdatareplacedataexceedslengthofarg.xml
+49/806 characterdatareplacedataexceedslengthofdata.xml
+50/806 characterdatareplacedatamiddle.xml
+51/806 characterdatareplacedatanomodificationallowederr.xml
+52/806 characterdatareplacedatanomodificationallowederrEE.xml
+53/806 characterdatasetdatanomodificationallowederr.xml
+54/806 characterdatasetdatanomodificationallowederrEE.xml
+55/806 characterdatasetnodevalue.xml
+56/806 characterdatasubstringexceedsvalue.xml
+57/806 characterdatasubstringvalue.xml
+58/806 commentgetcomment.xml
+59/806 documentcreateattribute.xml
+60/806 documentcreatecdatasection.xml
+61/806 documentcreatecomment.xml
+62/806 documentcreatedocumentfragment.xml
+63/806 documentcreateelement.xml
+64/806 documentcreateelementcasesensitive.xml
+65/806 documentcreateelementdefaultattr.xml
+66/806 documentcreateentityreference.xml
+67/806 documentcreateentityreferenceknown.xml
+68/806 documentcreateprocessinginstruction.xml
+69/806 documentcreatetextnode.xml
+70/806 documentgetdoctype.xml
+71/806 documentgetdoctypenodtd.xml
+72/806 documentgetelementsbytagnamelength.xml
+73/806 documentgetelementsbytagnametotallength.xml
+74/806 documentgetelementsbytagnamevalue.xml
+75/806 documentgetimplementation.xml
+76/806 documentgetrootnode.xml
+77/806 documentinvalidcharacterexceptioncreateattribute.xml
+78/806 documentinvalidcharacterexceptioncreateelement.xml
+79/806 documentinvalidcharacterexceptioncreateentref.xml
+80/806 documentinvalidcharacterexceptioncreateentref1.xml
+81/806 documentinvalidcharacterexceptioncreatepi.xml
+82/806 documentinvalidcharacterexceptioncreatepi1.xml
+83/806 documenttypegetdoctype.xml
+84/806 documenttypegetentities.xml
+85/806 documenttypegetentitieslength.xml
+86/806 documenttypegetentitiestype.xml
+87/806 documenttypegetnotations.xml
+88/806 documenttypegetnotationstype.xml
+89/806 domimplementationfeaturenoversion.xml
+90/806 domimplementationfeaturenull.xml
 implementationAttribute hasNullString not supported, skipping test
-91/808 domimplementationfeaturexml.xml
-92/808 elementaddnewattribute.xml
-93/808 elementassociatedattribute.xml
-94/808 elementchangeattributevalue.xml
-95/808 elementcreatenewattribute.xml
-96/808 elementgetattributenode.xml
-97/808 elementgetattributenodenull.xml
-98/808 elementgetelementempty.xml
-99/808 elementgetelementsbytagname.xml
-100/808 elementgetelementsbytagnameaccessnodelist.xml
-101/808 elementgetelementsbytagnamenomatch.xml
-102/808 elementgetelementsbytagnamespecialvalue.xml
-103/808 elementgettagname.xml
-104/808 elementinuseattributeerr.xml
-105/808 elementinvalidcharacterexception.xml
-106/808 elementnormalize.xml
-107/808 elementnotfounderr.xml
-108/808 elementremoveattribute.xml
-109/808 elementremoveattributeaftercreate.xml
-110/808 elementremoveattributenode.xml
-111/808 elementremoveattributenodenomodificationallowederr.xml
-112/808 elementremoveattributenodenomodificationallowederrEE.xml
-113/808 elementremoveattributenomodificationallowederr.xml
-114/808 elementremoveattributenomodificationallowederrEE.xml
-115/808 elementremoveattributerestoredefaultvalue.xml
-116/808 elementreplaceattributewithself.xml
-117/808 elementreplaceexistingattribute.xml
-118/808 elementreplaceexistingattributegevalue.xml
-119/808 elementretrieveallattributes.xml
-120/808 elementretrieveattrvalue.xml
-121/808 elementretrievetagname.xml
-122/808 elementsetattributenodenomodificationallowederr.xml
-123/808 elementsetattributenodenomodificationallowederrEE.xml
+91/806 domimplementationfeaturexml.xml
+92/806 elementaddnewattribute.xml
+93/806 elementassociatedattribute.xml
+94/806 elementchangeattributevalue.xml
+95/806 elementcreatenewattribute.xml
+96/806 elementgetattributenode.xml
+97/806 elementgetattributenodenull.xml
+98/806 elementgetelementempty.xml
+99/806 elementgetelementsbytagname.xml
+100/806 elementgetelementsbytagnameaccessnodelist.xml
+101/806 elementgetelementsbytagnamenomatch.xml
+102/806 elementgetelementsbytagnamespecialvalue.xml
+103/806 elementgettagname.xml
+104/806 elementinuseattributeerr.xml
+105/806 elementinvalidcharacterexception.xml
+106/806 elementnormalize.xml
+107/806 elementnotfounderr.xml
+108/806 elementremoveattribute.xml
+109/806 elementremoveattributeaftercreate.xml
+110/806 elementremoveattributenode.xml
+111/806 elementremoveattributenodenomodificationallowederr.xml
+112/806 elementremoveattributenodenomodificationallowederrEE.xml
+113/806 elementremoveattributenomodificationallowederr.xml
+114/806 elementremoveattributenomodificationallowederrEE.xml
+115/806 elementremoveattributerestoredefaultvalue.xml
+116/806 elementreplaceattributewithself.xml
+117/806 elementreplaceexistingattribute.xml
+118/806 elementreplaceexistingattributegevalue.xml
+119/806 elementretrieveallattributes.xml
+120/806 elementretrieveattrvalue.xml
+121/806 elementretrievetagname.xml
+122/806 elementsetattributenodenomodificationallowederr.xml
+123/806 elementsetattributenodenomodificationallowederrEE.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-124/808 elementsetattributenodenull.xml
-125/808 elementsetattributenomodificationallowederr.xml
+124/806 elementsetattributenodenull.xml
+125/806 elementsetattributenomodificationallowederr.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-126/808 elementsetattributenomodificationallowederrEE.xml
-127/808 elementwrongdocumenterr.xml
-128/808 entitygetentityname.xml
-129/808 entitygetpublicid.xml
-130/808 entitygetpublicidnull.xml
-131/808 namednodemapchildnoderange.xml
-132/808 namednodemapgetnameditem.xml
-133/808 namednodemapinuseattributeerr.xml
-134/808 namednodemapnotfounderr.xml
-135/808 namednodemapnumberofnodes.xml
-136/808 namednodemapremovenameditem.xml
-137/808 namednodemapremovenameditemgetvalue.xml
-138/808 namednodemapremovenameditemreturnnodevalue.xml
-139/808 namednodemapreturnattrnode.xml
-140/808 namednodemapreturnfirstitem.xml
-141/808 namednodemapreturnlastitem.xml
-142/808 namednodemapreturnnull.xml
-143/808 namednodemapsetnameditem.xml
-144/808 namednodemapsetnameditemreturnvalue.xml
-145/808 namednodemapsetnameditemthatexists.xml
-146/808 namednodemapsetnameditemwithnewvalue.xml
-147/808 namednodemapwrongdocumenterr.xml
-148/808 nodeappendchild.xml
-149/808 nodeappendchildchildexists.xml
-150/808 nodeappendchilddocfragment.xml
-151/808 nodeappendchildgetnodename.xml
-152/808 nodeappendchildinvalidnodetype.xml
-153/808 nodeappendchildnewchilddiffdocument.xml
-154/808 nodeappendchildnodeancestor.xml
-155/808 nodeappendchildnomodificationallowederr.xml
-156/808 nodeappendchildnomodificationallowederrEE.xml
-157/808 nodeattributenodeattribute.xml
-158/808 nodeattributenodename.xml
-159/808 nodeattributenodetype.xml
-160/808 nodeattributenodevalue.xml
-161/808 nodecdatasectionnodeattribute.xml
-162/808 nodecdatasectionnodename.xml
-163/808 nodecdatasectionnodetype.xml
+126/806 elementsetattributenomodificationallowederrEE.xml
+127/806 elementwrongdocumenterr.xml
+128/806 entitygetentityname.xml
+129/806 entitygetpublicid.xml
+130/806 entitygetpublicidnull.xml
+131/806 namednodemapchildnoderange.xml
+132/806 namednodemapgetnameditem.xml
+133/806 namednodemapinuseattributeerr.xml
+134/806 namednodemapnotfounderr.xml
+135/806 namednodemapnumberofnodes.xml
+136/806 namednodemapremovenameditem.xml
+137/806 namednodemapremovenameditemgetvalue.xml
+138/806 namednodemapremovenameditemreturnnodevalue.xml
+139/806 namednodemapreturnattrnode.xml
+140/806 namednodemapreturnfirstitem.xml
+141/806 namednodemapreturnlastitem.xml
+142/806 namednodemapreturnnull.xml
+143/806 namednodemapsetnameditem.xml
+144/806 namednodemapsetnameditemreturnvalue.xml
+145/806 namednodemapsetnameditemthatexists.xml
+146/806 namednodemapsetnameditemwithnewvalue.xml
+147/806 namednodemapwrongdocumenterr.xml
+148/806 nodeappendchild.xml
+149/806 nodeappendchildchildexists.xml
+150/806 nodeappendchilddocfragment.xml
+151/806 nodeappendchildgetnodename.xml
+152/806 nodeappendchildinvalidnodetype.xml
+153/806 nodeappendchildnewchilddiffdocument.xml
+154/806 nodeappendchildnodeancestor.xml
+155/806 nodeappendchildnomodificationallowederr.xml
+156/806 nodeappendchildnomodificationallowederrEE.xml
+157/806 nodeattributenodeattribute.xml
+158/806 nodeattributenodename.xml
+159/806 nodeattributenodetype.xml
+160/806 nodeattributenodevalue.xml
+161/806 nodecdatasectionnodeattribute.xml
+162/806 nodecdatasectionnodename.xml
+163/806 nodecdatasectionnodetype.xml
 implementationAttribute coalescing not supported, skipping test
-164/808 nodecdatasectionnodevalue.xml
+164/806 nodecdatasectionnodevalue.xml
 implementationAttribute coalescing not supported, skipping test
-165/808 nodechildnodes.xml
-166/808 nodechildnodesappendchild.xml
-167/808 nodechildnodesempty.xml
-168/808 nodecloneattributescopied.xml
-169/808 nodeclonefalsenocopytext.xml
-170/808 nodeclonegetparentnull.xml
-171/808 nodeclonenodefalse.xml
-172/808 nodeclonenodetrue.xml
-173/808 nodeclonetruecopytext.xml
-174/808 nodecommentnodeattributes.xml
-175/808 nodecommentnodename.xml
-176/808 nodecommentnodetype.xml
-177/808 nodecommentnodevalue.xml
-178/808 nodedocumentfragmentnodename.xml
-179/808 nodedocumentfragmentnodetype.xml
-180/808 nodedocumentfragmentnodevalue.xml
-181/808 nodedocumentnodeattribute.xml
-182/808 nodedocumentnodename.xml
-183/808 nodedocumentnodetype.xml
-184/808 nodedocumentnodevalue.xml
-185/808 nodedocumenttypenodename.xml
-186/808 nodedocumenttypenodetype.xml
-187/808 nodedocumenttypenodevalue.xml
-188/808 nodeelementnodeattributes.xml
-189/808 nodeelementnodename.xml
-190/808 nodeelementnodetype.xml
-191/808 nodeelementnodevalue.xml
-192/808 nodeentitynodeattributes.xml
-193/808 nodeentitynodename.xml
-194/808 nodeentitynodetype.xml
-195/808 nodeentitynodevalue.xml
-196/808 nodeentitysetnodevalue.xml
-197/808 nodeentityreferencenodeattributes.xml
-198/808 nodeentityreferencenodename.xml
-199/808 nodeentityreferencenodetype.xml
-200/808 nodeentityreferencenodevalue.xml
-201/808 nodegetfirstchild.xml
-202/808 nodegetfirstchildnull.xml
-203/808 nodegetlastchild.xml
-204/808 nodegetlastchildnull.xml
-205/808 nodegetnextsibling.xml
-206/808 nodegetnextsiblingnull.xml
-207/808 nodegetownerdocument.xml
-208/808 nodegetownerdocumentnull.xml
-209/808 nodegetprevioussibling.xml
-210/808 nodegetprevioussiblingnull.xml
-211/808 nodehaschildnodes.xml
-212/808 nodehaschildnodesfalse.xml
-213/808 nodeinsertbefore.xml
-214/808 nodeinsertbeforedocfragment.xml
-215/808 nodeinsertbeforeinvalidnodetype.xml
-216/808 nodeinsertbeforenewchilddiffdocument.xml
-217/808 nodeinsertbeforenewchildexists.xml
-218/808 nodeinsertbeforenodeancestor.xml
-219/808 nodeinsertbeforenodename.xml
-220/808 nodeinsertbeforenomodificationallowederr.xml
-221/808 nodeinsertbeforenomodificationallowederrEE.xml
-222/808 nodeinsertbeforerefchildnonexistent.xml
-223/808 nodeinsertbeforerefchildnull.xml
-224/808 nodelistindexequalzero.xml
-225/808 nodelistindexgetlength.xml
-226/808 nodelistindexgetlengthofemptylist.xml
-227/808 nodelistindexnotzero.xml
-228/808 nodelistreturnfirstitem.xml
-229/808 nodelistreturnlastitem.xml
-230/808 nodelisttraverselist.xml
-231/808 nodenotationnodeattributes.xml
-232/808 nodenotationnodename.xml
-233/808 nodenotationnodetype.xml
-234/808 nodenotationnodevalue.xml
-235/808 nodeparentnode.xml
-236/808 nodeparentnodenull.xml
-237/808 nodeprocessinginstructionnodeattributes.xml
-238/808 nodeprocessinginstructionnodename.xml
-239/808 nodeprocessinginstructionnodetype.xml
-240/808 nodeprocessinginstructionnodevalue.xml
-241/808 nodeprocessinginstructionsetnodevalue.xml
-242/808 noderemovechild.xml
-243/808 noderemovechildgetnodename.xml
-244/808 noderemovechildnode.xml
-245/808 noderemovechildnomodificationallowederr.xml
-246/808 noderemovechildnomodificationallowederrEE.xml
-247/808 noderemovechildoldchildnonexistent.xml
-248/808 nodereplacechild.xml
-249/808 nodereplacechildinvalidnodetype.xml
-250/808 nodereplacechildnewchilddiffdocument.xml
-251/808 nodereplacechildnewchildexists.xml
-252/808 nodereplacechildnodeancestor.xml
-253/808 nodereplacechildnodename.xml
-254/808 nodereplacechildnomodificationallowederr.xml
-255/808 nodereplacechildnomodificationallowederrEE.xml
-256/808 nodereplacechildoldchildnonexistent.xml
-257/808 nodesetnodevaluenomodificationallowederr.xml
-258/808 nodesetnodevaluenomodificationallowederrEE.xml
-259/808 nodetextnodeattribute.xml
-260/808 nodetextnodename.xml
-261/808 nodetextnodetype.xml
-262/808 nodetextnodevalue.xml
-263/808 notationgetnotationname.xml
-264/808 notationgetpublicid.xml
-265/808 notationgetpublicidnull.xml
-266/808 notationgetsystemid.xml
-267/808 notationgetsystemidnull.xml
-268/808 processinginstructiongetdata.xml
-269/808 processinginstructiongettarget.xml
-270/808 processinginstructionsetdatanomodificationallowederr.xml
+165/806 nodechildnodes.xml
+166/806 nodechildnodesappendchild.xml
+167/806 nodechildnodesempty.xml
+168/806 nodecloneattributescopied.xml
+169/806 nodeclonefalsenocopytext.xml
+170/806 nodeclonegetparentnull.xml
+171/806 nodeclonenodefalse.xml
+172/806 nodeclonenodetrue.xml
+173/806 nodeclonetruecopytext.xml
+174/806 nodecommentnodeattributes.xml
+175/806 nodecommentnodename.xml
+176/806 nodecommentnodetype.xml
+177/806 nodecommentnodevalue.xml
+178/806 nodedocumentfragmentnodename.xml
+179/806 nodedocumentfragmentnodetype.xml
+180/806 nodedocumentfragmentnodevalue.xml
+181/806 nodedocumentnodeattribute.xml
+182/806 nodedocumentnodename.xml
+183/806 nodedocumentnodetype.xml
+184/806 nodedocumentnodevalue.xml
+185/806 nodedocumenttypenodename.xml
+186/806 nodedocumenttypenodetype.xml
+187/806 nodedocumenttypenodevalue.xml
+188/806 nodeelementnodeattributes.xml
+189/806 nodeelementnodename.xml
+190/806 nodeelementnodetype.xml
+191/806 nodeelementnodevalue.xml
+192/806 nodeentitynodeattributes.xml
+193/806 nodeentitynodename.xml
+194/806 nodeentitynodetype.xml
+195/806 nodeentitynodevalue.xml
+196/806 nodeentitysetnodevalue.xml
+197/806 nodeentityreferencenodeattributes.xml
+198/806 nodeentityreferencenodename.xml
+199/806 nodeentityreferencenodetype.xml
+200/806 nodeentityreferencenodevalue.xml
+201/806 nodegetfirstchild.xml
+202/806 nodegetfirstchildnull.xml
+203/806 nodegetlastchild.xml
+204/806 nodegetlastchildnull.xml
+205/806 nodegetnextsibling.xml
+206/806 nodegetnextsiblingnull.xml
+207/806 nodegetownerdocument.xml
+208/806 nodegetownerdocumentnull.xml
+209/806 nodegetprevioussibling.xml
+210/806 nodegetprevioussiblingnull.xml
+211/806 nodehaschildnodes.xml
+212/806 nodehaschildnodesfalse.xml
+213/806 nodeinsertbefore.xml
+214/806 nodeinsertbeforedocfragment.xml
+215/806 nodeinsertbeforeinvalidnodetype.xml
+216/806 nodeinsertbeforenewchilddiffdocument.xml
+217/806 nodeinsertbeforenewchildexists.xml
+218/806 nodeinsertbeforenodeancestor.xml
+219/806 nodeinsertbeforenodename.xml
+220/806 nodeinsertbeforenomodificationallowederr.xml
+221/806 nodeinsertbeforenomodificationallowederrEE.xml
+222/806 nodeinsertbeforerefchildnonexistent.xml
+223/806 nodeinsertbeforerefchildnull.xml
+224/806 nodelistindexequalzero.xml
+225/806 nodelistindexgetlength.xml
+226/806 nodelistindexgetlengthofemptylist.xml
+227/806 nodelistindexnotzero.xml
+228/806 nodelistreturnfirstitem.xml
+229/806 nodelistreturnlastitem.xml
+230/806 nodelisttraverselist.xml
+231/806 nodenotationnodeattributes.xml
+232/806 nodenotationnodename.xml
+233/806 nodenotationnodetype.xml
+234/806 nodenotationnodevalue.xml
+235/806 nodeparentnode.xml
+236/806 nodeparentnodenull.xml
+237/806 nodeprocessinginstructionnodeattributes.xml
+238/806 nodeprocessinginstructionnodename.xml
+239/806 nodeprocessinginstructionnodetype.xml
+240/806 nodeprocessinginstructionnodevalue.xml
+241/806 nodeprocessinginstructionsetnodevalue.xml
+242/806 noderemovechild.xml
+243/806 noderemovechildgetnodename.xml
+244/806 noderemovechildnode.xml
+245/806 noderemovechildnomodificationallowederr.xml
+246/806 noderemovechildnomodificationallowederrEE.xml
+247/806 noderemovechildoldchildnonexistent.xml
+248/806 nodereplacechild.xml
+249/806 nodereplacechildinvalidnodetype.xml
+250/806 nodereplacechildnewchilddiffdocument.xml
+251/806 nodereplacechildnewchildexists.xml
+252/806 nodereplacechildnodeancestor.xml
+253/806 nodereplacechildnodename.xml
+254/806 nodereplacechildnomodificationallowederr.xml
+255/806 nodereplacechildnomodificationallowederrEE.xml
+256/806 nodereplacechildoldchildnonexistent.xml
+257/806 nodesetnodevaluenomodificationallowederr.xml
+258/806 nodesetnodevaluenomodificationallowederrEE.xml
+259/806 nodetextnodeattribute.xml
+260/806 nodetextnodename.xml
+261/806 nodetextnodetype.xml
+262/806 nodetextnodevalue.xml
+263/806 notationgetnotationname.xml
+264/806 notationgetpublicid.xml
+265/806 notationgetpublicidnull.xml
+266/806 notationgetsystemid.xml
+267/806 notationgetsystemidnull.xml
+268/806 processinginstructiongetdata.xml
+269/806 processinginstructiongettarget.xml
+270/806 processinginstructionsetdatanomodificationallowederr.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-271/808 processinginstructionsetdatanomodificationallowederrEE.xml
-272/808 textindexsizeerrnegativeoffset.xml
+271/806 processinginstructionsetdatanomodificationallowederrEE.xml
+272/806 textindexsizeerrnegativeoffset.xml
 implementationAttribute signed not supported, skipping test
-273/808 textindexsizeerroffsetoutofbounds.xml
-274/808 textparseintolistofelements.xml
-275/808 textsplittextfour.xml
-276/808 textsplittextnomodificationallowederr.xml
-277/808 textsplittextnomodificationallowederrEE.xml
-278/808 textsplittextone.xml
-279/808 textsplittextthree.xml
-280/808 textsplittexttwo.xml
-281/808 textwithnomarkup.xml
-282/808 nodevalue01.xml
-283/808 nodevalue02.xml
-284/808 nodevalue03.xml
-285/808 nodevalue04.xml
-286/808 nodevalue05.xml
-287/808 nodevalue06.xml
-288/808 nodevalue07.xml
-289/808 nodevalue08.xml
-290/808 nodevalue09.xml
-291/808 hc_attrcreatedocumentfragment.xml
-292/808 hc_attrcreatetextnode.xml
-293/808 hc_attrcreatetextnode2.xml
-294/808 hc_attreffectivevalue.xml
-295/808 hc_attrname.xml
-296/808 hc_attrnextsiblingnull.xml
-297/808 hc_attrparentnodenull.xml
-298/808 hc_attrprevioussiblingnull.xml
-299/808 hc_attrspecifiedvalue.xml
-300/808 hc_attrspecifiedvaluechanged.xml
-301/808 hc_characterdataappenddata.xml
-302/808 hc_characterdataappenddatagetdata.xml
-303/808 hc_characterdatadeletedatabegining.xml
-304/808 hc_characterdatadeletedataend.xml
-305/808 hc_characterdatadeletedataexceedslength.xml
-306/808 hc_characterdatadeletedatagetlengthanddata.xml
-307/808 hc_characterdatadeletedatamiddle.xml
-308/808 hc_characterdatagetdata.xml
-309/808 hc_characterdatagetlength.xml
-310/808 hc_characterdataindexsizeerrdeletedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-311/808 hc_characterdataindexsizeerrdeletedataoffsetgreater.xml
-312/808 hc_characterdataindexsizeerrdeletedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-313/808 hc_characterdataindexsizeerrinsertdataoffsetgreater.xml
-314/808 hc_characterdataindexsizeerrinsertdataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-315/808 hc_characterdataindexsizeerrreplacedatacountnegative.xml
-implementationAttribute signed not supported, skipping test
-316/808 hc_characterdataindexsizeerrreplacedataoffsetgreater.xml
-317/808 hc_characterdataindexsizeerrreplacedataoffsetnegative.xml
-implementationAttribute signed not supported, skipping test
-318/808 hc_characterdataindexsizeerrsubstringcountnegative.xml
-implementationAttribute signed not supported, skipping test
-319/808 hc_characterdataindexsizeerrsubstringnegativeoffset.xml
-implementationAttribute signed not supported, skipping test
-320/808 hc_characterdataindexsizeerrsubstringoffsetgreater.xml
-321/808 hc_characterdatainsertdatabeginning.xml
-322/808 hc_characterdatainsertdataend.xml
-323/808 hc_characterdatainsertdatamiddle.xml
-324/808 hc_characterdatareplacedatabegining.xml
-325/808 hc_characterdatareplacedataend.xml
-326/808 hc_characterdatareplacedataexceedslengthofarg.xml
-327/808 hc_characterdatareplacedataexceedslengthofdata.xml
-328/808 hc_characterdatareplacedatamiddle.xml
-329/808 hc_characterdatasetnodevalue.xml
-330/808 hc_characterdatasubstringexceedsvalue.xml
-331/808 hc_characterdatasubstringvalue.xml
-332/808 hc_commentgetcomment.xml
-333/808 hc_documentcreateattribute.xml
-334/808 hc_documentcreatecomment.xml
-335/808 hc_documentcreatedocumentfragment.xml
-336/808 hc_documentcreateelement.xml
-337/808 hc_documentcreateelementcasesensitive.xml
-338/808 hc_documentcreatetextnode.xml
-339/808 hc_documentgetdoctype.xml
-340/808 hc_documentgetelementsbytagnamelength.xml
-341/808 hc_documentgetelementsbytagnametotallength.xml
-342/808 hc_documentgetelementsbytagnamevalue.xml
-343/808 hc_documentgetimplementation.xml
-344/808 hc_documentgetrootnode.xml
-345/808 hc_documentinvalidcharacterexceptioncreateattribute.xml
-346/808 hc_documentinvalidcharacterexceptioncreateattribute1.xml
-347/808 hc_documentinvalidcharacterexceptioncreateelement.xml
-348/808 hc_documentinvalidcharacterexceptioncreateelement1.xml
-349/808 hc_domimplementationfeaturenoversion.xml
-350/808 hc_domimplementationfeaturenull.xml
+273/806 textindexsizeerroffsetoutofbounds.xml
+274/806 textparseintolistofelements.xml
+275/806 textsplittextfour.xml
+276/806 textsplittextnomodificationallowederr.xml
+277/806 textsplittextnomodificationallowederrEE.xml
+278/806 textsplittextone.xml
+279/806 textsplittextthree.xml
+280/806 textsplittexttwo.xml
+281/806 textwithnomarkup.xml
+282/806 nodevalue01.xml
+283/806 nodevalue02.xml
+284/806 nodevalue03.xml
+285/806 nodevalue04.xml
+286/806 nodevalue05.xml
+287/806 nodevalue06.xml
+288/806 nodevalue07.xml
+289/806 nodevalue08.xml
+290/806 nodevalue09.xml
+291/806 hc_attrcreatedocumentfragment.xml
+292/806 hc_attrcreatetextnode.xml
+293/806 hc_attrcreatetextnode2.xml
+294/806 hc_attreffectivevalue.xml
+295/806 hc_attrname.xml
+296/806 hc_attrnextsiblingnull.xml
+297/806 hc_attrparentnodenull.xml
+298/806 hc_attrprevioussiblingnull.xml
+299/806 hc_attrspecifiedvalue.xml
+300/806 hc_attrspecifiedvaluechanged.xml
+301/806 hc_characterdataappenddata.xml
+302/806 hc_characterdataappenddatagetdata.xml
+303/806 hc_characterdatadeletedatabegining.xml
+304/806 hc_characterdatadeletedataend.xml
+305/806 hc_characterdatadeletedataexceedslength.xml
+306/806 hc_characterdatadeletedatagetlengthanddata.xml
+307/806 hc_characterdatadeletedatamiddle.xml
+308/806 hc_characterdatagetdata.xml
+309/806 hc_characterdatagetlength.xml
+310/806 hc_characterdataindexsizeerrdeletedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+311/806 hc_characterdataindexsizeerrdeletedataoffsetgreater.xml
+312/806 hc_characterdataindexsizeerrdeletedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+313/806 hc_characterdataindexsizeerrinsertdataoffsetgreater.xml
+314/806 hc_characterdataindexsizeerrinsertdataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+315/806 hc_characterdataindexsizeerrreplacedatacountnegative.xml
+implementationAttribute signed not supported, skipping test
+316/806 hc_characterdataindexsizeerrreplacedataoffsetgreater.xml
+317/806 hc_characterdataindexsizeerrreplacedataoffsetnegative.xml
+implementationAttribute signed not supported, skipping test
+318/806 hc_characterdataindexsizeerrsubstringcountnegative.xml
+implementationAttribute signed not supported, skipping test
+319/806 hc_characterdataindexsizeerrsubstringnegativeoffset.xml
+implementationAttribute signed not supported, skipping test
+320/806 hc_characterdataindexsizeerrsubstringoffsetgreater.xml
+321/806 hc_characterdatainsertdatabeginning.xml
+322/806 hc_characterdatainsertdataend.xml
+323/806 hc_characterdatainsertdatamiddle.xml
+324/806 hc_characterdatareplacedatabegining.xml
+325/806 hc_characterdatareplacedataend.xml
+326/806 hc_characterdatareplacedataexceedslengthofarg.xml
+327/806 hc_characterdatareplacedataexceedslengthofdata.xml
+328/806 hc_characterdatareplacedatamiddle.xml
+329/806 hc_characterdatasetnodevalue.xml
+330/806 hc_characterdatasubstringexceedsvalue.xml
+331/806 hc_characterdatasubstringvalue.xml
+332/806 hc_commentgetcomment.xml
+333/806 hc_documentcreateattribute.xml
+334/806 hc_documentcreatecomment.xml
+335/806 hc_documentcreatedocumentfragment.xml
+336/806 hc_documentcreateelement.xml
+337/806 hc_documentcreateelementcasesensitive.xml
+338/806 hc_documentcreatetextnode.xml
+339/806 hc_documentgetdoctype.xml
+340/806 hc_documentgetelementsbytagnamelength.xml
+341/806 hc_documentgetelementsbytagnametotallength.xml
+342/806 hc_documentgetelementsbytagnamevalue.xml
+343/806 hc_documentgetimplementation.xml
+344/806 hc_documentgetrootnode.xml
+345/806 hc_documentinvalidcharacterexceptioncreateattribute.xml
+346/806 hc_documentinvalidcharacterexceptioncreateattribute1.xml
+347/806 hc_documentinvalidcharacterexceptioncreateelement.xml
+348/806 hc_documentinvalidcharacterexceptioncreateelement1.xml
+349/806 hc_domimplementationfeaturenoversion.xml
+350/806 hc_domimplementationfeaturenull.xml
 implementationAttribute hasNullString not supported, skipping test
-351/808 hc_domimplementationfeaturexml.xml
-352/808 hc_elementaddnewattribute.xml
-353/808 hc_elementassociatedattribute.xml
-354/808 hc_elementchangeattributevalue.xml
-355/808 hc_elementcreatenewattribute.xml
-356/808 hc_elementgetattributenode.xml
-357/808 hc_elementgetattributenodenull.xml
-358/808 hc_elementgetelementempty.xml
-359/808 hc_elementgetelementsbytagname.xml
-360/808 hc_elementgetelementsbytagnameaccessnodelist.xml
-361/808 hc_elementgetelementsbytagnamenomatch.xml
-362/808 hc_elementgetelementsbytagnamespecialvalue.xml
-363/808 hc_elementgettagname.xml
-364/808 hc_elementinuseattributeerr.xml
-365/808 hc_elementinvalidcharacterexception.xml
-366/808 hc_elementinvalidcharacterexception1.xml
-367/808 hc_elementnormalize.xml
-368/808 hc_elementnotfounderr.xml
-369/808 hc_elementremoveattribute.xml
-370/808 hc_elementremoveattributeaftercreate.xml
-371/808 hc_elementremoveattributenode.xml
-372/808 hc_elementreplaceattributewithself.xml
-373/808 hc_elementreplaceexistingattribute.xml
-374/808 hc_elementreplaceexistingattributegevalue.xml
-375/808 hc_elementretrieveallattributes.xml
-376/808 hc_elementretrieveattrvalue.xml
-377/808 hc_elementretrievetagname.xml
-378/808 hc_elementsetattributenodenull.xml
-379/808 hc_elementwrongdocumenterr.xml
-380/808 hc_entitiesremovenameditem1.xml
-381/808 hc_entitiessetnameditem1.xml
-382/808 hc_namednodemapchildnoderange.xml
-383/808 hc_namednodemapgetnameditem.xml
-384/808 hc_namednodemapinuseattributeerr.xml
-385/808 hc_namednodemapnotfounderr.xml
-386/808 hc_namednodemapnumberofnodes.xml
-387/808 hc_namednodemapremovenameditem.xml
-388/808 hc_namednodemapreturnattrnode.xml
-389/808 hc_namednodemapreturnfirstitem.xml
-390/808 hc_namednodemapreturnlastitem.xml
-391/808 hc_namednodemapreturnnull.xml
-392/808 hc_namednodemapsetnameditem.xml
-393/808 hc_namednodemapsetnameditemreturnvalue.xml
-394/808 hc_namednodemapsetnameditemthatexists.xml
-395/808 hc_namednodemapsetnameditemwithnewvalue.xml
-396/808 hc_namednodemapwrongdocumenterr.xml
-397/808 hc_nodeappendchild.xml
-398/808 hc_nodeappendchildchildexists.xml
-399/808 hc_nodeappendchilddocfragment.xml
-400/808 hc_nodeappendchildgetnodename.xml
-401/808 hc_nodeappendchildinvalidnodetype.xml
-402/808 hc_nodeappendchildnewchilddiffdocument.xml
-403/808 hc_nodeappendchildnodeancestor.xml
-404/808 hc_nodeattributenodeattribute.xml
-405/808 hc_nodeattributenodename.xml
-406/808 hc_nodeattributenodetype.xml
-407/808 hc_nodeattributenodevalue.xml
-408/808 hc_nodechildnodes.xml
-409/808 hc_nodechildnodesappendchild.xml
-410/808 hc_nodechildnodesempty.xml
-411/808 hc_nodecloneattributescopied.xml
-412/808 hc_nodeclonefalsenocopytext.xml
-413/808 hc_nodeclonegetparentnull.xml
-414/808 hc_nodeclonenodefalse.xml
-415/808 hc_nodeclonenodetrue.xml
-416/808 hc_nodeclonetruecopytext.xml
-417/808 hc_nodecommentnodeattributes.xml
-418/808 hc_nodecommentnodename.xml
-419/808 hc_nodecommentnodetype.xml
-420/808 hc_nodecommentnodevalue.xml
-421/808 hc_nodedocumentfragmentnodename.xml
-422/808 hc_nodedocumentfragmentnodetype.xml
-423/808 hc_nodedocumentfragmentnodevalue.xml
-424/808 hc_nodedocumentnodeattribute.xml
-425/808 hc_nodedocumentnodename.xml
-426/808 hc_nodedocumentnodetype.xml
-427/808 hc_nodedocumentnodevalue.xml
-428/808 hc_nodeelementnodeattributes.xml
-429/808 hc_nodeelementnodename.xml
-430/808 hc_nodeelementnodetype.xml
-431/808 hc_nodeelementnodevalue.xml
-432/808 hc_nodegetfirstchild.xml
-433/808 hc_nodegetfirstchildnull.xml
-434/808 hc_nodegetlastchild.xml
-435/808 hc_nodegetlastchildnull.xml
-436/808 hc_nodegetnextsibling.xml
-437/808 hc_nodegetnextsiblingnull.xml
-438/808 hc_nodegetownerdocument.xml
-439/808 hc_nodegetownerdocumentnull.xml
-440/808 hc_nodegetprevioussibling.xml
-441/808 hc_nodegetprevioussiblingnull.xml
-442/808 hc_nodehaschildnodes.xml
-443/808 hc_nodehaschildnodesfalse.xml
-444/808 hc_nodeinsertbefore.xml
-445/808 hc_nodeinsertbeforedocfragment.xml
-446/808 hc_nodeinsertbeforeinvalidnodetype.xml
-447/808 hc_nodeinsertbeforenewchilddiffdocument.xml
-448/808 hc_nodeinsertbeforenewchildexists.xml
-449/808 hc_nodeinsertbeforenodeancestor.xml
-450/808 hc_nodeinsertbeforenodename.xml
-451/808 hc_nodeinsertbeforerefchildnonexistent.xml
-452/808 hc_nodeinsertbeforerefchildnull.xml
-453/808 hc_nodelistindexequalzero.xml
-454/808 hc_nodelistindexgetlength.xml
-455/808 hc_nodelistindexgetlengthofemptylist.xml
-456/808 hc_nodelistindexnotzero.xml
-457/808 hc_nodelistreturnfirstitem.xml
-458/808 hc_nodelistreturnlastitem.xml
-459/808 hc_nodelisttraverselist.xml
-460/808 hc_nodeparentnode.xml
-461/808 hc_nodeparentnodenull.xml
-462/808 hc_noderemovechild.xml
-463/808 hc_noderemovechildgetnodename.xml
-464/808 hc_noderemovechildnode.xml
-465/808 hc_noderemovechildoldchildnonexistent.xml
-466/808 hc_nodereplacechild.xml
-467/808 hc_nodereplacechildinvalidnodetype.xml
-468/808 hc_nodereplacechildnewchilddiffdocument.xml
-469/808 hc_nodereplacechildnodeancestor.xml
-470/808 hc_nodereplacechildnodename.xml
-471/808 hc_nodereplacechildoldchildnonexistent.xml
-472/808 hc_nodetextnodeattribute.xml
-473/808 hc_nodetextnodename.xml
-474/808 hc_nodetextnodetype.xml
-475/808 hc_nodetextnodevalue.xml
-476/808 hc_nodevalue01.xml
-477/808 hc_nodevalue02.xml
-478/808 hc_nodevalue03.xml
-479/808 hc_nodevalue04.xml
-480/808 hc_nodevalue05.xml
-481/808 hc_nodevalue06.xml
-482/808 hc_nodevalue07.xml
-483/808 hc_nodevalue08.xml
-484/808 hc_notationsremovenameditem1.xml
-485/808 hc_notationssetnameditem1.xml
-486/808 hc_textindexsizeerrnegativeoffset.xml
-implementationAttribute signed not supported, skipping test
-487/808 hc_textindexsizeerroffsetoutofbounds.xml
-488/808 hc_textparseintolistofelements.xml
-489/808 hc_textsplittextfour.xml
-490/808 hc_textsplittextone.xml
-491/808 hc_textsplittextthree.xml
-492/808 hc_textsplittexttwo.xml
-493/808 hc_textwithnomarkup.xml
-494/808 hc_attrappendchild1.xml
-495/808 hc_attrappendchild2.xml
-496/808 hc_attrappendchild3.xml
-497/808 hc_attrappendchild4.xml
-498/808 hc_attrappendchild5.xml
-499/808 hc_attrappendchild6.xml
-500/808 hc_attrchildnodes1.xml
-501/808 hc_attrchildnodes2.xml
-502/808 hc_attrclonenode1.xml
-503/808 hc_attrfirstchild.xml
-504/808 hc_attrgetvalue1.xml
-505/808 hc_attrgetvalue2.xml
-506/808 hc_attrhaschildnodes.xml
-507/808 hc_attrinsertbefore1.xml
-508/808 hc_attrinsertbefore2.xml
-509/808 hc_attrinsertbefore3.xml
-510/808 hc_attrinsertbefore4.xml
-511/808 hc_attrinsertbefore5.xml
-512/808 hc_attrinsertbefore6.xml
-513/808 hc_attrinsertbefore7.xml
-514/808 hc_attrlastchild.xml
-515/808 hc_attrnormalize.xml
-516/808 hc_attrremovechild1.xml
-517/808 hc_attrremovechild2.xml
-518/808 hc_attrreplacechild1.xml
-519/808 hc_attrreplacechild2.xml
-520/808 hc_attrsetvalue1.xml
-521/808 hc_attrsetvalue2.xml
-522/808 attrremovechild1.xml
-523/808 attrreplacechild1.xml
+351/806 hc_domimplementationfeaturexml.xml
+352/806 hc_elementaddnewattribute.xml
+353/806 hc_elementassociatedattribute.xml
+354/806 hc_elementchangeattributevalue.xml
+355/806 hc_elementcreatenewattribute.xml
+356/806 hc_elementgetattributenode.xml
+357/806 hc_elementgetattributenodenull.xml
+358/806 hc_elementgetelementempty.xml
+359/806 hc_elementgetelementsbytagname.xml
+360/806 hc_elementgetelementsbytagnameaccessnodelist.xml
+361/806 hc_elementgetelementsbytagnamenomatch.xml
+362/806 hc_elementgetelementsbytagnamespecialvalue.xml
+363/806 hc_elementgettagname.xml
+364/806 hc_elementinuseattributeerr.xml
+365/806 hc_elementinvalidcharacterexception.xml
+366/806 hc_elementinvalidcharacterexception1.xml
+367/806 hc_elementnormalize.xml
+368/806 hc_elementnotfounderr.xml
+369/806 hc_elementremoveattribute.xml
+370/806 hc_elementremoveattributeaftercreate.xml
+371/806 hc_elementremoveattributenode.xml
+372/806 hc_elementreplaceattributewithself.xml
+373/806 hc_elementreplaceexistingattribute.xml
+374/806 hc_elementreplaceexistingattributegevalue.xml
+375/806 hc_elementretrieveallattributes.xml
+376/806 hc_elementretrieveattrvalue.xml
+377/806 hc_elementretrievetagname.xml
+378/806 hc_elementsetattributenodenull.xml
+379/806 hc_elementwrongdocumenterr.xml
+380/806 hc_entitiesremovenameditem1.xml
+381/806 hc_entitiessetnameditem1.xml
+382/806 hc_namednodemapchildnoderange.xml
+383/806 hc_namednodemapgetnameditem.xml
+384/806 hc_namednodemapinuseattributeerr.xml
+385/806 hc_namednodemapnotfounderr.xml
+386/806 hc_namednodemapnumberofnodes.xml
+387/806 hc_namednodemapremovenameditem.xml
+388/806 hc_namednodemapreturnattrnode.xml
+389/806 hc_namednodemapreturnfirstitem.xml
+390/806 hc_namednodemapreturnlastitem.xml
+391/806 hc_namednodemapreturnnull.xml
+392/806 hc_namednodemapsetnameditem.xml
+393/806 hc_namednodemapsetnameditemreturnvalue.xml
+394/806 hc_namednodemapsetnameditemthatexists.xml
+395/806 hc_namednodemapsetnameditemwithnewvalue.xml
+396/806 hc_namednodemapwrongdocumenterr.xml
+397/806 hc_nodeappendchild.xml
+398/806 hc_nodeappendchildchildexists.xml
+399/806 hc_nodeappendchilddocfragment.xml
+400/806 hc_nodeappendchildgetnodename.xml
+401/806 hc_nodeappendchildinvalidnodetype.xml
+402/806 hc_nodeappendchildnewchilddiffdocument.xml
+403/806 hc_nodeappendchildnodeancestor.xml
+404/806 hc_nodeattributenodeattribute.xml
+405/806 hc_nodeattributenodename.xml
+406/806 hc_nodeattributenodetype.xml
+407/806 hc_nodeattributenodevalue.xml
+408/806 hc_nodechildnodes.xml
+409/806 hc_nodechildnodesappendchild.xml
+410/806 hc_nodechildnodesempty.xml
+411/806 hc_nodecloneattributescopied.xml
+412/806 hc_nodeclonefalsenocopytext.xml
+413/806 hc_nodeclonegetparentnull.xml
+414/806 hc_nodeclonenodefalse.xml
+415/806 hc_nodeclonenodetrue.xml
+416/806 hc_nodeclonetruecopytext.xml
+417/806 hc_nodecommentnodeattributes.xml
+418/806 hc_nodecommentnodename.xml
+419/806 hc_nodecommentnodetype.xml
+420/806 hc_nodecommentnodevalue.xml
+421/806 hc_nodedocumentfragmentnodename.xml
+422/806 hc_nodedocumentfragmentnodetype.xml
+423/806 hc_nodedocumentfragmentnodevalue.xml
+424/806 hc_nodedocumentnodeattribute.xml
+425/806 hc_nodedocumentnodename.xml
+426/806 hc_nodedocumentnodetype.xml
+427/806 hc_nodedocumentnodevalue.xml
+428/806 hc_nodeelementnodeattributes.xml
+429/806 hc_nodeelementnodename.xml
+430/806 hc_nodeelementnodetype.xml
+431/806 hc_nodeelementnodevalue.xml
+432/806 hc_nodegetfirstchild.xml
+433/806 hc_nodegetfirstchildnull.xml
+434/806 hc_nodegetlastchild.xml
+435/806 hc_nodegetlastchildnull.xml
+436/806 hc_nodegetnextsibling.xml
+437/806 hc_nodegetnextsiblingnull.xml
+438/806 hc_nodegetownerdocument.xml
+439/806 hc_nodegetownerdocumentnull.xml
+440/806 hc_nodegetprevioussibling.xml
+441/806 hc_nodegetprevioussiblingnull.xml
+442/806 hc_nodehaschildnodes.xml
+443/806 hc_nodehaschildnodesfalse.xml
+444/806 hc_nodeinsertbefore.xml
+445/806 hc_nodeinsertbeforedocfragment.xml
+446/806 hc_nodeinsertbeforeinvalidnodetype.xml
+447/806 hc_nodeinsertbeforenewchilddiffdocument.xml
+448/806 hc_nodeinsertbeforenewchildexists.xml
+449/806 hc_nodeinsertbeforenodeancestor.xml
+450/806 hc_nodeinsertbeforenodename.xml
+451/806 hc_nodeinsertbeforerefchildnonexistent.xml
+452/806 hc_nodeinsertbeforerefchildnull.xml
+453/806 hc_nodelistindexequalzero.xml
+454/806 hc_nodelistindexgetlength.xml
+455/806 hc_nodelistindexgetlengthofemptylist.xml
+456/806 hc_nodelistindexnotzero.xml
+457/806 hc_nodelistreturnfirstitem.xml
+458/806 hc_nodelistreturnlastitem.xml
+459/806 hc_nodelisttraverselist.xml
+460/806 hc_nodeparentnode.xml
+461/806 hc_nodeparentnodenull.xml
+462/806 hc_noderemovechild.xml
+463/806 hc_noderemovechildgetnodename.xml
+464/806 hc_noderemovechildnode.xml
+465/806 hc_noderemovechildoldchildnonexistent.xml
+466/806 hc_nodereplacechild.xml
+467/806 hc_nodereplacechildinvalidnodetype.xml
+468/806 hc_nodereplacechildnewchilddiffdocument.xml
+469/806 hc_nodereplacechildnodeancestor.xml
+470/806 hc_nodereplacechildnodename.xml
+471/806 hc_nodereplacechildoldchildnonexistent.xml
+472/806 hc_nodetextnodeattribute.xml
+473/806 hc_nodetextnodename.xml
+474/806 hc_nodetextnodetype.xml
+475/806 hc_nodetextnodevalue.xml
+476/806 hc_nodevalue01.xml
+477/806 hc_nodevalue02.xml
+478/806 hc_nodevalue03.xml
+479/806 hc_nodevalue04.xml
+480/806 hc_nodevalue05.xml
+481/806 hc_nodevalue06.xml
+482/806 hc_nodevalue07.xml
+483/806 hc_nodevalue08.xml
+484/806 hc_notationsremovenameditem1.xml
+485/806 hc_notationssetnameditem1.xml
+486/806 hc_textindexsizeerrnegativeoffset.xml
+implementationAttribute signed not supported, skipping test
+487/806 hc_textindexsizeerroffsetoutofbounds.xml
+488/806 hc_textparseintolistofelements.xml
+489/806 hc_textsplittextfour.xml
+490/806 hc_textsplittextone.xml
+491/806 hc_textsplittextthree.xml
+492/806 hc_textsplittexttwo.xml
+493/806 hc_textwithnomarkup.xml
+494/806 hc_attrappendchild1.xml
+495/806 hc_attrappendchild2.xml
+496/806 hc_attrappendchild3.xml
+497/806 hc_attrappendchild4.xml
+498/806 hc_attrappendchild5.xml
+499/806 hc_attrappendchild6.xml
+500/806 hc_attrchildnodes1.xml
+501/806 hc_attrchildnodes2.xml
+502/806 hc_attrclonenode1.xml
+503/806 hc_attrfirstchild.xml
+504/806 hc_attrgetvalue1.xml
+505/806 hc_attrgetvalue2.xml
+506/806 hc_attrhaschildnodes.xml
+507/806 hc_attrinsertbefore1.xml
+508/806 hc_attrinsertbefore2.xml
+509/806 hc_attrinsertbefore3.xml
+510/806 hc_attrinsertbefore4.xml
+511/806 hc_attrinsertbefore5.xml
+512/806 hc_attrinsertbefore6.xml
+513/806 hc_attrinsertbefore7.xml
+514/806 hc_attrlastchild.xml
+515/806 hc_attrnormalize.xml
+516/806 hc_attrremovechild1.xml
+517/806 hc_attrremovechild2.xml
+518/806 hc_attrreplacechild1.xml
+519/806 hc_attrreplacechild2.xml
+520/806 hc_attrsetvalue1.xml
+521/806 hc_attrsetvalue2.xml
+522/806 attrremovechild1.xml
+523/806 attrreplacechild1.xml
 
 #P"/home/david/2001/DOM-Test-Suite/tests/level2/core/" 
-524/808 attrgetownerelement01.xml
-525/808 attrgetownerelement02.xml
-526/808 attrgetownerelement03.xml
-527/808 attrgetownerelement04.xml
-528/808 attrgetownerelement05.xml
-529/808 createAttributeNS01.xml
-530/808 createAttributeNS02.xml
-531/808 createAttributeNS03.xml
-532/808 createAttributeNS04.xml
-533/808 createAttributeNS05.xml
-534/808 createAttributeNS06.xml
-535/808 createDocument01.xml
-536/808 createDocument02.xml
-537/808 createDocument03.xml
-538/808 createDocument04.xml
-539/808 createDocument05.xml
-540/808 createDocument06.xml
-541/808 createDocument07.xml
-542/808 createDocument08.xml
-543/808 createDocumentType01.xml
-544/808 createDocumentType02.xml
-545/808 createDocumentType03.xml
-546/808 createDocumentType04.xml
-547/808 createElementNS01.xml
-548/808 createElementNS02.xml
-549/808 createElementNS03.xml
-550/808 createElementNS04.xml
-551/808 createElementNS05.xml
-552/808 documentcreateattributeNS01.xml
-553/808 documentcreateattributeNS02.xml
-554/808 documentcreateattributeNS03.xml
-555/808 documentcreateattributeNS04.xml
-556/808 documentcreateattributeNS05.xml
-557/808 documentcreateattributeNS06.xml
-558/808 documentcreateattributeNS07.xml
-559/808 documentcreateelementNS01.xml
-560/808 documentcreateelementNS02.xml
-561/808 documentcreateelementNS05.xml
-562/808 documentcreateelementNS06.xml
-563/808 documentgetelementbyid01.xml
-564/808 documentgetelementsbytagnameNS01.xml
-565/808 documentgetelementsbytagnameNS02.xml
-566/808 documentgetelementsbytagnameNS03.xml
-567/808 documentgetelementsbytagnameNS04.xml
-568/808 documentgetelementsbytagnameNS05.xml
-569/808 documentimportnode01.xml
-570/808 documentimportnode02.xml
-571/808 documentimportnode03.xml
-572/808 documentimportnode04.xml
-573/808 documentimportnode05.xml
-574/808 documentimportnode06.xml
-575/808 documentimportnode07.xml
-576/808 documentimportnode08.xml
-577/808 documentimportnode09.xml
-578/808 documentimportnode10.xml
-579/808 documentimportnode11.xml
-580/808 documentimportnode12.xml
-581/808 documentimportnode13.xml
-582/808 documentimportnode14.xml
-583/808 documentimportnode15.xml
-584/808 documentimportnode17.xml
-585/808 documentimportnode18.xml
-586/808 documentimportnode19.xml
-587/808 documentimportnode20.xml
+524/806 attrgetownerelement01.xml
+525/806 attrgetownerelement02.xml
+526/806 attrgetownerelement03.xml
+527/806 attrgetownerelement04.xml
+528/806 attrgetownerelement05.xml
+529/806 createAttributeNS01.xml
+530/806 createAttributeNS02.xml
+531/806 createAttributeNS03.xml
+532/806 createAttributeNS04.xml
+533/806 createAttributeNS05.xml
+534/806 createAttributeNS06.xml
+535/806 createDocument01.xml
+536/806 createDocument02.xml
+537/806 createDocument03.xml
+538/806 createDocument04.xml
+539/806 createDocument05.xml
+540/806 createDocument06.xml
+541/806 createDocument07.xml
+542/806 createDocument08.xml
+543/806 createDocumentType01.xml
+544/806 createDocumentType02.xml
+545/806 createDocumentType03.xml
+546/806 createDocumentType04.xml
+547/806 createElementNS01.xml
+548/806 createElementNS02.xml
+549/806 createElementNS03.xml
+550/806 createElementNS04.xml
+551/806 createElementNS05.xml
+552/806 documentcreateattributeNS01.xml
+553/806 documentcreateattributeNS02.xml
+554/806 documentcreateattributeNS03.xml
+555/806 documentcreateattributeNS04.xml
+556/806 documentcreateattributeNS05.xml
+557/806 documentcreateattributeNS06.xml
+558/806 documentcreateattributeNS07.xml
+559/806 documentcreateelementNS01.xml
+560/806 documentcreateelementNS02.xml
+561/806 documentcreateelementNS05.xml
+562/806 documentcreateelementNS06.xml
+563/806 documentgetelementbyid01.xml
+564/806 documentgetelementsbytagnameNS01.xml
+565/806 documentgetelementsbytagnameNS02.xml
+566/806 documentgetelementsbytagnameNS03.xml
+567/806 documentgetelementsbytagnameNS04.xml
+568/806 documentgetelementsbytagnameNS05.xml
+569/806 documentimportnode01.xml
+570/806 documentimportnode02.xml
+571/806 documentimportnode03.xml
+572/806 documentimportnode04.xml
+573/806 documentimportnode05.xml
+574/806 documentimportnode06.xml
+575/806 documentimportnode07.xml
+576/806 documentimportnode08.xml
+577/806 documentimportnode09.xml
+578/806 documentimportnode10.xml
+579/806 documentimportnode11.xml
+580/806 documentimportnode12.xml
+581/806 documentimportnode13.xml
+582/806 documentimportnode14.xml
+583/806 documentimportnode15.xml
+584/806 documentimportnode17.xml
+585/806 documentimportnode18.xml
+586/806 documentimportnode19.xml
+587/806 documentimportnode20.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-588/808 documentimportnode21.xml
+588/806 documentimportnode21.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-589/808 documentimportnode22.xml
-590/808 documenttypeinternalSubset01.xml
-591/808 documenttypepublicid01.xml
-592/808 documenttypesystemid01.xml
-593/808 domimplementationcreatedocument03.xml
-594/808 domimplementationcreatedocument04.xml
-595/808 domimplementationcreatedocument05.xml
-596/808 domimplementationcreatedocument07.xml
-597/808 domimplementationcreatedocumenttype01.xml
-598/808 domimplementationcreatedocumenttype02.xml
-599/808 domimplementationcreatedocumenttype04.xml
-600/808 domimplementationfeaturecore.xml
-601/808 domimplementationfeaturexmlversion2.xml
-602/808 domimplementationhasfeature01.xml
-603/808 domimplementationhasfeature02.xml
-604/808 elementgetattributenodens01.xml
-605/808 elementgetattributenodens02.xml
-606/808 elementgetattributenodens03.xml
-607/808 elementgetattributens02.xml
-608/808 elementgetelementsbytagnamens02.xml
-609/808 elementgetelementsbytagnamens04.xml
-610/808 elementgetelementsbytagnamens05.xml
-611/808 elementhasattribute01.xml
-612/808 elementhasattribute02.xml
-613/808 elementhasattribute03.xml
-614/808 elementhasattribute04.xml
-615/808 elementhasattributens01.xml
-616/808 elementhasattributens02.xml
-617/808 elementhasattributens03.xml
-618/808 elementremoveattributens01.xml
-619/808 elementsetattributenodens01.xml
-620/808 elementsetattributenodens02.xml
-621/808 elementsetattributenodens03.xml
-622/808 elementsetattributenodens04.xml
-623/808 elementsetattributenodens05.xml
-624/808 elementsetattributenodens06.xml
+589/806 documentimportnode22.xml
+590/806 documenttypeinternalSubset01.xml
+591/806 documenttypepublicid01.xml
+592/806 documenttypesystemid01.xml
+593/806 domimplementationcreatedocument03.xml
+594/806 domimplementationcreatedocument04.xml
+595/806 domimplementationcreatedocument05.xml
+596/806 domimplementationcreatedocument07.xml
+597/806 domimplementationcreatedocumenttype01.xml
+598/806 domimplementationcreatedocumenttype02.xml
+599/806 domimplementationcreatedocumenttype04.xml
+600/806 domimplementationfeaturecore.xml
+601/806 domimplementationfeaturexmlversion2.xml
+602/806 domimplementationhasfeature01.xml
+603/806 domimplementationhasfeature02.xml
+604/806 elementgetattributenodens01.xml
+605/806 elementgetattributenodens02.xml
+606/806 elementgetattributenodens03.xml
+607/806 elementgetattributens02.xml
+608/806 elementgetelementsbytagnamens02.xml
+609/806 elementgetelementsbytagnamens04.xml
+610/806 elementgetelementsbytagnamens05.xml
+611/806 elementhasattribute01.xml
+612/806 elementhasattribute02.xml
+613/806 elementhasattribute03.xml
+614/806 elementhasattribute04.xml
+615/806 elementhasattributens01.xml
+616/806 elementhasattributens02.xml
+617/806 elementhasattributens03.xml
+618/806 elementremoveattributens01.xml
+619/806 elementsetattributenodens01.xml
+620/806 elementsetattributenodens02.xml
+621/806 elementsetattributenodens03.xml
+622/806 elementsetattributenodens04.xml
+623/806 elementsetattributenodens05.xml
+624/806 elementsetattributenodens06.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-625/808 elementsetattributens01.xml
-626/808 elementsetattributens02.xml
-627/808 elementsetattributens03.xml
-628/808 elementsetattributens04.xml
-629/808 elementsetattributens05.xml
-630/808 elementsetattributens08.xml
-631/808 elementsetattributensurinull.xml
-632/808 getAttributeNS01.xml
-633/808 getAttributeNS02.xml
-634/808 getAttributeNS03.xml
-635/808 getAttributeNS04.xml
-636/808 getAttributeNS05.xml
-637/808 getAttributeNodeNS01.xml
-638/808 getAttributeNodeNS02.xml
-639/808 getElementById01.xml
-640/808 getElementById02.xml
-641/808 getElementsByTagNameNS01.xml
-642/808 getElementsByTagNameNS02.xml
-643/808 getElementsByTagNameNS03.xml
-644/808 getElementsByTagNameNS04.xml
-645/808 getElementsByTagNameNS05.xml
-646/808 getElementsByTagNameNS06.xml
-647/808 getElementsByTagNameNS07.xml
-648/808 getElementsByTagNameNS08.xml
-649/808 getElementsByTagNameNS09.xml
-650/808 getElementsByTagNameNS10.xml
-651/808 getElementsByTagNameNS11.xml
-652/808 getElementsByTagNameNS12.xml
-653/808 getElementsByTagNameNS13.xml
-654/808 getElementsByTagNameNS14.xml
-655/808 getNamedItemNS01.xml
-656/808 getNamedItemNS02.xml
-657/808 getNamedItemNS03.xml
-658/808 getNamedItemNS04.xml
-659/808 hasAttribute01.xml
-660/808 hasAttribute02.xml
-661/808 hasAttribute03.xml
-662/808 hasAttribute04.xml
-663/808 hasAttributeNS01.xml
-664/808 hasAttributeNS02.xml
-665/808 hasAttributeNS03.xml
-666/808 hasAttributeNS04.xml
-667/808 hasAttributeNS05.xml
-668/808 hasAttributes01.xml
-669/808 hasAttributes02.xml
-670/808 hc_entitiesremovenameditemns1.xml
-671/808 hc_entitiessetnameditemns1.xml
-672/808 hc_namednodemapinvalidtype1.xml
-673/808 hc_nodedocumentfragmentnormalize1.xml
-674/808 hc_nodedocumentfragmentnormalize2.xml
-675/808 hc_notationsremovenameditemns1.xml
-676/808 hc_notationssetnameditemns1.xml
-677/808 importNode01.xml
-678/808 importNode02.xml
-679/808 importNode03.xml
-680/808 importNode04.xml
-681/808 importNode05.xml
-682/808 importNode06.xml
-683/808 importNode07.xml
-684/808 importNode08.xml
-685/808 importNode09.xml
-686/808 importNode10.xml
-687/808 importNode11.xml
-688/808 importNode12.xml
-689/808 importNode13.xml
-690/808 importNode14.xml
-691/808 importNode15.xml
-692/808 importNode16.xml
-693/808 importNode17.xml
-694/808 internalSubset01.xml
-695/808 isSupported01.xml
-696/808 isSupported02.xml
-697/808 isSupported04.xml
-698/808 isSupported05.xml
-699/808 isSupported06.xml
-700/808 isSupported07.xml
-701/808 isSupported09.xml
-702/808 isSupported10.xml
-703/808 isSupported11.xml
-704/808 isSupported12.xml
-705/808 isSupported13.xml
-706/808 isSupported14.xml
-707/808 localName01.xml
-708/808 localName02.xml
-709/808 localName03.xml
-710/808 localName04.xml
-711/808 namednodemapgetnameditemns01.xml
-712/808 namednodemapgetnameditemns02.xml
-713/808 namednodemapgetnameditemns03.xml
-714/808 namednodemapgetnameditemns04.xml
-715/808 namednodemapgetnameditemns05.xml
-716/808 namednodemapgetnameditemns06.xml
-717/808 namednodemapremovenameditemns01.xml
-718/808 namednodemapremovenameditemns02.xml
-719/808 namednodemapremovenameditemns03.xml
-720/808 namednodemapremovenameditemns04.xml
-721/808 namednodemapremovenameditemns05.xml
-722/808 namednodemapremovenameditemns06.xml
-723/808 namednodemapremovenameditemns07.xml
-724/808 namednodemapremovenameditemns08.xml
-725/808 namednodemapremovenameditemns09.xml
-726/808 namednodemapsetnameditemns01.xml
-727/808 namednodemapsetnameditemns02.xml
-728/808 namednodemapsetnameditemns03.xml
-729/808 namednodemapsetnameditemns04.xml
-730/808 namednodemapsetnameditemns05.xml
-731/808 namednodemapsetnameditemns06.xml
-732/808 namednodemapsetnameditemns07.xml
-733/808 namednodemapsetnameditemns08.xml
-734/808 namednodemapsetnameditemns09.xml
-735/808 namednodemapsetnameditemns10.xml
-736/808 namednodemapsetnameditemns11.xml
-737/808 namespaceURI01.xml
-738/808 namespaceURI02.xml
-739/808 namespaceURI03.xml
-740/808 namespaceURI04.xml
-741/808 nodegetlocalname03.xml
-742/808 nodegetnamespaceuri03.xml
-743/808 nodegetownerdocument01.xml
-744/808 nodegetownerdocument02.xml
-745/808 nodegetprefix03.xml
-746/808 nodehasattributes01.xml
-747/808 nodehasattributes02.xml
-748/808 nodehasattributes03.xml
-749/808 nodehasattributes04.xml
-750/808 nodeissupported01.xml
-751/808 nodeissupported02.xml
-752/808 nodeissupported03.xml
-753/808 nodeissupported04.xml
-754/808 nodeissupported05.xml
-755/808 nodenormalize01.xml
-756/808 nodesetprefix01.xml
-757/808 nodesetprefix02.xml
-758/808 nodesetprefix03.xml
-759/808 nodesetprefix04.xml
-760/808 nodesetprefix05.xml
-761/808 nodesetprefix06.xml
-762/808 nodesetprefix07.xml
-763/808 nodesetprefix08.xml
-764/808 nodesetprefix09.xml
-765/808 normalize01.xml
-766/808 ownerDocument01.xml
-767/808 ownerElement01.xml
-768/808 ownerElement02.xml
-769/808 prefix01.xml
-770/808 prefix02.xml
-771/808 prefix03.xml
-772/808 prefix04.xml
-773/808 prefix05.xml
-774/808 prefix06.xml
-775/808 prefix07.xml
-776/808 prefix08.xml
-777/808 prefix09.xml
-778/808 prefix10.xml
-779/808 prefix11.xml
-780/808 publicId01.xml
-781/808 removeAttributeNS01.xml
-782/808 removeAttributeNS02.xml
-783/808 removeNamedItemNS01.xml
-784/808 removeNamedItemNS02.xml
-785/808 removeNamedItemNS03.xml
-786/808 setAttributeNS01.xml
-787/808 setAttributeNS02.xml
-788/808 setAttributeNS03.xml
-789/808 setAttributeNS04.xml
-790/808 setAttributeNS05.xml
-791/808 setAttributeNS06.xml
-792/808 setAttributeNS07.xml
-793/808 setAttributeNS09.xml
-794/808 setAttributeNS10.xml
-795/808 setAttributeNodeNS01.xml
-796/808 setAttributeNodeNS02.xml
+625/806 elementsetattributens01.xml
+626/806 elementsetattributens02.xml
+627/806 elementsetattributens03.xml
+628/806 elementsetattributens04.xml
+629/806 elementsetattributens05.xml
+630/806 elementsetattributens08.xml
+631/806 elementsetattributensurinull.xml
+632/806 getAttributeNS01.xml
+633/806 getAttributeNS02.xml
+634/806 getAttributeNS03.xml
+635/806 getAttributeNS04.xml
+636/806 getAttributeNS05.xml
+637/806 getAttributeNodeNS01.xml
+638/806 getAttributeNodeNS02.xml
+639/806 getElementById01.xml
+640/806 getElementById02.xml
+641/806 getElementsByTagNameNS01.xml
+642/806 getElementsByTagNameNS02.xml
+643/806 getElementsByTagNameNS03.xml
+644/806 getElementsByTagNameNS04.xml
+645/806 getElementsByTagNameNS05.xml
+646/806 getElementsByTagNameNS06.xml
+647/806 getElementsByTagNameNS07.xml
+648/806 getElementsByTagNameNS08.xml
+649/806 getElementsByTagNameNS09.xml
+650/806 getElementsByTagNameNS10.xml
+651/806 getElementsByTagNameNS11.xml
+652/806 getElementsByTagNameNS12.xml
+653/806 getElementsByTagNameNS13.xml
+654/806 getElementsByTagNameNS14.xml
+655/806 getNamedItemNS01.xml
+656/806 getNamedItemNS02.xml
+657/806 getNamedItemNS03.xml
+658/806 getNamedItemNS04.xml
+659/806 hasAttribute01.xml
+660/806 hasAttribute02.xml
+661/806 hasAttribute03.xml
+662/806 hasAttribute04.xml
+663/806 hasAttributeNS01.xml
+664/806 hasAttributeNS02.xml
+665/806 hasAttributeNS03.xml
+666/806 hasAttributeNS04.xml
+667/806 hasAttributeNS05.xml
+668/806 hasAttributes01.xml
+669/806 hasAttributes02.xml
+670/806 hc_entitiesremovenameditemns1.xml
+671/806 hc_entitiessetnameditemns1.xml
+672/806 hc_namednodemapinvalidtype1.xml
+673/806 hc_nodedocumentfragmentnormalize1.xml
+674/806 hc_nodedocumentfragmentnormalize2.xml
+675/806 hc_notationsremovenameditemns1.xml
+676/806 hc_notationssetnameditemns1.xml
+677/806 importNode01.xml
+678/806 importNode02.xml
+679/806 importNode03.xml
+680/806 importNode04.xml
+681/806 importNode05.xml
+682/806 importNode06.xml
+683/806 importNode07.xml
+684/806 importNode08.xml
+685/806 importNode09.xml
+686/806 importNode10.xml
+687/806 importNode11.xml
+688/806 importNode12.xml
+689/806 importNode13.xml
+690/806 importNode14.xml
+691/806 importNode15.xml
+692/806 importNode16.xml
+693/806 importNode17.xml
+694/806 internalSubset01.xml
+695/806 isSupported01.xml
+696/806 isSupported02.xml
+697/806 isSupported04.xml
+698/806 isSupported05.xml
+699/806 isSupported06.xml
+700/806 isSupported07.xml
+701/806 isSupported09.xml
+702/806 isSupported10.xml
+703/806 isSupported11.xml
+704/806 isSupported12.xml
+705/806 isSupported13.xml
+706/806 isSupported14.xml
+707/806 localName01.xml
+708/806 localName02.xml
+709/806 localName03.xml
+710/806 localName04.xml
+711/806 namednodemapgetnameditemns01.xml
+712/806 namednodemapgetnameditemns02.xml
+713/806 namednodemapgetnameditemns03.xml
+714/806 namednodemapgetnameditemns04.xml
+715/806 namednodemapgetnameditemns05.xml
+716/806 namednodemapgetnameditemns06.xml
+717/806 namednodemapremovenameditemns01.xml
+718/806 namednodemapremovenameditemns02.xml
+719/806 namednodemapremovenameditemns03.xml
+720/806 namednodemapremovenameditemns04.xml
+721/806 namednodemapremovenameditemns05.xml
+722/806 namednodemapremovenameditemns06.xml
+723/806 namednodemapremovenameditemns07.xml
+724/806 namednodemapremovenameditemns08.xml
+725/806 namednodemapremovenameditemns09.xml
+726/806 namednodemapsetnameditemns01.xml
+727/806 namednodemapsetnameditemns02.xml
+728/806 namednodemapsetnameditemns03.xml
+729/806 namednodemapsetnameditemns04.xml
+730/806 namednodemapsetnameditemns05.xml
+731/806 namednodemapsetnameditemns06.xml
+732/806 namednodemapsetnameditemns07.xml
+733/806 namednodemapsetnameditemns08.xml
+734/806 namednodemapsetnameditemns09.xml
+735/806 namednodemapsetnameditemns10.xml
+736/806 namednodemapsetnameditemns11.xml
+737/806 namespaceURI01.xml
+738/806 namespaceURI02.xml
+739/806 namespaceURI03.xml
+740/806 namespaceURI04.xml
+741/806 nodegetlocalname03.xml
+742/806 nodegetnamespaceuri03.xml
+743/806 nodegetownerdocument01.xml
+744/806 nodegetownerdocument02.xml
+745/806 nodegetprefix03.xml
+746/806 nodehasattributes01.xml
+747/806 nodehasattributes02.xml
+748/806 nodehasattributes03.xml
+749/806 nodehasattributes04.xml
+750/806 nodeissupported01.xml
+751/806 nodeissupported02.xml
+752/806 nodeissupported03.xml
+753/806 nodeissupported04.xml
+754/806 nodeissupported05.xml
+755/806 nodenormalize01.xml
+756/806 nodesetprefix01.xml
+757/806 nodesetprefix02.xml
+758/806 nodesetprefix03.xml
+759/806 nodesetprefix04.xml
+760/806 nodesetprefix05.xml
+761/806 nodesetprefix06.xml
+762/806 nodesetprefix07.xml
+763/806 nodesetprefix08.xml
+764/806 nodesetprefix09.xml
+765/806 normalize01.xml
+766/806 ownerDocument01.xml
+767/806 ownerElement01.xml
+768/806 ownerElement02.xml
+769/806 prefix01.xml
+770/806 prefix02.xml
+771/806 prefix03.xml
+772/806 prefix04.xml
+773/806 prefix05.xml
+774/806 prefix06.xml
+775/806 prefix07.xml
+776/806 prefix08.xml
+777/806 prefix09.xml
+778/806 prefix10.xml
+779/806 prefix11.xml
+780/806 publicId01.xml
+781/806 removeAttributeNS01.xml
+782/806 removeAttributeNS02.xml
+783/806 removeNamedItemNS01.xml
+784/806 removeNamedItemNS02.xml
+785/806 removeNamedItemNS03.xml
+786/806 setAttributeNS01.xml
+787/806 setAttributeNS02.xml
+788/806 setAttributeNS03.xml
+789/806 setAttributeNS04.xml
+790/806 setAttributeNS05.xml
+791/806 setAttributeNS06.xml
+792/806 setAttributeNS07.xml
+793/806 setAttributeNS09.xml
+794/806 setAttributeNS10.xml
+795/806 setAttributeNodeNS01.xml
+796/806 setAttributeNodeNS02.xml
 implementationAttribute expandEntityReferences not supported, skipping test
-797/808 setAttributeNodeNS03.xml
-798/808 setAttributeNodeNS04.xml
-799/808 setAttributeNodeNS05.xml
-800/808 setNamedItemNS01.xml
-801/808 setNamedItemNS02.xml
-802/808 setNamedItemNS03.xml
-803/808 setNamedItemNS04.xml
-804/808 setNamedItemNS05.xml
-805/808 systemId01.xml
-0/763 tests failed; 45 tests were skipped
\ No newline at end of file
+797/806 setAttributeNodeNS03.xml
+798/806 setAttributeNodeNS04.xml
+799/806 setAttributeNodeNS05.xml
+800/806 setNamedItemNS01.xml
+801/806 setNamedItemNS02.xml
+802/806 setNamedItemNS03.xml
+803/806 setNamedItemNS04.xml
+804/806 setNamedItemNS05.xml
+805/806 systemId01.xml
+0/763 tests failed; 43 tests were skipped
\ No newline at end of file



From dlichteblau at common-lisp.net  Thu Dec 29 00:38:01 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:38:01 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/unparse.lisp 
Message-ID: <20051229003801.94EC288579@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv7660/xml

Modified Files:
	unparse.lisp 
Log Message:
sb-unicode backport

Date: Thu Dec 29 01:38:01 2005
Author: dlichteblau

Index: cxml/xml/unparse.lisp
diff -u cxml/xml/unparse.lisp:1.6 cxml/xml/unparse.lisp:1.7
--- cxml/xml/unparse.lisp:1.6	Thu Dec 29 00:11:48 2005
+++ cxml/xml/unparse.lisp	Thu Dec 29 01:38:00 2005
@@ -108,7 +108,7 @@
   (define-maker make-rod-sink make-rod-ystream)
 
   #+rune-is-character
-  (define-maker make-character-stream-sink make-character-ystream stream)
+  (define-maker make-character-stream-sink make-character-stream-ystream stream)
 
   #-rune-is-character
   (define-maker make-string-sink/utf8 make-string-ystream/utf8)



From dlichteblau at common-lisp.net  Thu Dec 29 00:39:26 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 29 Dec 2005 01:39:26 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/xml/space-normalizer.lisp 
Message-ID: <20051229003926.82AAA8856A@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv7711/xml

Modified Files:
	space-normalizer.lisp 
Log Message:
oops

Date: Thu Dec 29 01:39:25 2005
Author: dlichteblau

Index: cxml/xml/space-normalizer.lisp
diff -u cxml/xml/space-normalizer.lisp:1.1 cxml/xml/space-normalizer.lisp:1.2
--- cxml/xml/space-normalizer.lisp:1.1	Thu Dec 29 01:31:36 2005
+++ cxml/xml/space-normalizer.lisp	Thu Dec 29 01:39:25 2005
@@ -29,9 +29,9 @@
       (let ((xml-space
 	     (sax:find-attribute (if (stringp qname) "xml:space" #"xml:space")
 				 attrs)))
-	(push (print(if xml-space
+	(push (if xml-space
 		  (rod= (rod (sax:attribute-value xml-space)) #"default")
-		  (car (xml-space-attributes handler))))
+		  (car (xml-space-attributes handler)))
 	      (xml-space-attributes handler)))
       (let* ((e (cxml::find-element (rod qname) dtd))
 	     (cspec (when e (cxml::elmdef-content e))))



From dlichteblau at common-lisp.net  Fri Dec 30 14:21:47 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 30 Dec 2005 15:21:47 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/dom/dom-impl.lisp cxml/dom/package.lisp
Message-ID: <20051230142147.0187E88595@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv19785/dom

Modified Files:
	dom-impl.lisp package.lisp 
Log Message:
kleine anpassungen fuer cl-xmpp
neu: do-node-map, map-node-map

Date: Fri Dec 30 15:21:46 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.35 cxml/dom/dom-impl.lisp:1.36
--- cxml/dom/dom-impl.lisp:1.35	Thu Dec 29 00:11:22 2005
+++ cxml/dom/dom-impl.lisp	Fri Dec 30 15:21:44 2005
@@ -188,6 +188,15 @@
      (dom:map-node-list (lambda (,var) , at body) ,nodelist)
      ,resultform))
 
+(defun dom:map-node-map (fn node-map)
+  (with-slots (items) node-map
+    (mapc fn items)))
+
+(defmacro dom:do-node-map ((var node-map &optional resultform) &body body)
+  `(block nil
+     (dom:map-node-map (lambda (,var) , at body) ,node-map)
+     ,resultform))
+
 (defmacro dovector ((var vector &optional resultform) &body body)
   `(loop
        for ,var across ,vector do (progn , at body)


Index: cxml/dom/package.lisp
diff -u cxml/dom/package.lisp:1.4 cxml/dom/package.lisp:1.5
--- cxml/dom/package.lisp:1.4	Tue Dec 27 01:21:31 2005
+++ cxml/dom/package.lisp	Fri Dec 30 15:21:46 2005
@@ -138,5 +138,7 @@
 
    #:map-node-list
    #:do-node-list
+   #:map-node-map
+   #:do-node-map
    #:create-document
    #:map-document))



From dlichteblau at common-lisp.net  Fri Dec 30 14:21:47 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 30 Dec 2005 15:21:47 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html 
Message-ID: <20051230142147.6E5258858F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv19785

Modified Files:
	README.html 
Log Message:
kleine anpassungen fuer cl-xmpp
neu: do-node-map, map-node-map

Date: Fri Dec 30 15:21:44 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.16 cxml/README.html:1.17
--- cxml/README.html:1.16	Thu Dec 29 01:31:30 2005
+++ cxml/README.html	Fri Dec 30 15:21:43 2005
@@ -82,7 +82,7 @@
     </ul>
 
     <p>
-      CXML currently implements a <a
+      CXML implements a <a
       href="http://www.w3.org/TR/REC-xml-names/">namespace-aware</a>,
       validating SAX-like <a
       href="http://www.w3.org/TR/2000/REC-xml-20001006">XML&nbsp;1.0</a>



From dlichteblau at common-lisp.net  Fri Dec 30 14:21:49 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 30 Dec 2005 15:21:49 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/runes/package.lisp
	cxml/runes/xstream.lisp 
Message-ID: <20051230142149.6D08F8858F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv19785/runes

Modified Files:
	package.lisp xstream.lisp 
Log Message:
kleine anpassungen fuer cl-xmpp
neu: do-node-map, map-node-map

Date: Fri Dec 30 15:21:47 2005
Author: dlichteblau

Index: cxml/runes/package.lisp
diff -u cxml/runes/package.lisp:1.5 cxml/runes/package.lisp:1.6
--- cxml/runes/package.lisp:1.5	Thu Dec 29 00:11:32 2005
+++ cxml/runes/package.lisp	Fri Dec 30 15:21:46 2005
@@ -43,6 +43,7 @@
            #:rod<
 
            ;; xstream.lisp
+           #:xstream
            #:make-xstream
            #:make-rod-xstream
            #:close-xstream


Index: cxml/runes/xstream.lisp
diff -u cxml/runes/xstream.lisp:1.4 cxml/runes/xstream.lisp:1.5
--- cxml/runes/xstream.lisp:1.4	Mon Nov 28 23:33:35 2005
+++ cxml/runes/xstream.lisp	Fri Dec 30 15:21:47 2005
@@ -256,9 +256,7 @@
 
 ;;; Underflow
 
-;;(defun read-runes (sequence input))
-
-(defun xstream-underflow (input)
+(defmethod xstream-underflow ((input xstream))
   (declare (type xstream input))
   ;; we are about to fill new data into the buffer, so we need to
   ;; adjust buffer-start.



From dlichteblau at common-lisp.net  Fri Dec 30 16:06:35 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 30 Dec 2005 17:06:35 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/bg.png cxml/doc/cxml.css 
Message-ID: <20051230160635.505548858F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv27089/doc

Modified Files:
	cxml.css 
Added Files:
	bg.png 
Log Message:
hintergrundleiste

Date: Fri Dec 30 17:06:34 2005
Author: dlichteblau



Index: cxml/doc/cxml.css
diff -u cxml/doc/cxml.css:1.2 cxml/doc/cxml.css:1.3
--- cxml/doc/cxml.css:1.2	Mon Dec 26 23:04:10 2005
+++ cxml/doc/cxml.css	Fri Dec 30 17:06:33 2005
@@ -30,8 +30,13 @@
   background-color: #ffffff;
   margin-right: 0pt;
   margin-bottom: 10%;
+  margin-left: 40px;
   padding-left: 30px;
   font-family: helvetica;
+  background-image: url(bg.png);
+  background-position: top left;
+  background-attachment: fixed;
+  background-repeat: no-repeat;
 }
 
 h1,h2,h3 {



From dlichteblau at common-lisp.net  Fri Dec 30 16:08:25 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 30 Dec 2005 17:08:25 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html 
Message-ID: <20051230160825.0F6EC8858F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv27117

Modified Files:
	README.html 
Log Message:
link korrigiert

Date: Fri Dec 30 17:08:24 2005
Author: dlichteblau

Index: cxml/README.html
diff -u cxml/README.html:1.17 cxml/README.html:1.18
--- cxml/README.html:1.17	Fri Dec 30 15:21:43 2005
+++ cxml/README.html	Fri Dec 30 17:08:24 2005
@@ -40,7 +40,7 @@
           </ul>
 	</li>
 	<li>
-          <a href="doc/using.html">DOM implementation</a>
+          <a href="doc/dom.html">DOM implementation</a>
           <ul class="sub">
             <li><a href="doc/dom.html#parser">Parsing with the DOM builder</a></li>
             <li><a href="doc/dom.html#serialization">Serialization</a></li>



From dlichteblau at common-lisp.net  Fri Dec 30 16:08:27 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 30 Dec 2005 17:08:27 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/dom.html cxml/doc/installation.html
	cxml/doc/quickstart.html cxml/doc/using.html
	cxml/doc/xmls-compat.html 
Message-ID: <20051230160827.CA8AE8858F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv27117/doc

Modified Files:
	dom.html installation.html quickstart.html using.html 
	xmls-compat.html 
Log Message:
link korrigiert

Date: Fri Dec 30 17:08:25 2005
Author: dlichteblau

Index: cxml/doc/dom.html
diff -u cxml/doc/dom.html:1.6 cxml/doc/dom.html:1.7
--- cxml/doc/dom.html:1.6	Thu Dec 29 01:31:31 2005
+++ cxml/doc/dom.html	Fri Dec 30 17:08:25 2005
@@ -40,7 +40,7 @@
           </ul>
 	</li>
 	<li>
-          <a href="using.html">DOM implementation</a>
+          <a href="dom.html">DOM implementation</a>
           <ul class="sub">
             <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
             <li><a href="dom.html#serialization">Serialization</a></li>


Index: cxml/doc/installation.html
diff -u cxml/doc/installation.html:1.8 cxml/doc/installation.html:1.9
--- cxml/doc/installation.html:1.8	Thu Dec 29 01:31:31 2005
+++ cxml/doc/installation.html	Fri Dec 30 17:08:25 2005
@@ -40,7 +40,7 @@
           </ul>
 	</li>
 	<li>
-          <a href="using.html">DOM implementation</a>
+          <a href="dom.html">DOM implementation</a>
           <ul class="sub">
             <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
             <li><a href="dom.html#serialization">Serialization</a></li>


Index: cxml/doc/quickstart.html
diff -u cxml/doc/quickstart.html:1.5 cxml/doc/quickstart.html:1.6
--- cxml/doc/quickstart.html:1.5	Thu Dec 29 01:31:31 2005
+++ cxml/doc/quickstart.html	Fri Dec 30 17:08:25 2005
@@ -40,7 +40,7 @@
           </ul>
 	</li>
 	<li>
-          <a href="using.html">DOM implementation</a>
+          <a href="dom.html">DOM implementation</a>
           <ul class="sub">
             <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
             <li><a href="dom.html#serialization">Serialization</a></li>


Index: cxml/doc/using.html
diff -u cxml/doc/using.html:1.12 cxml/doc/using.html:1.13
--- cxml/doc/using.html:1.12	Thu Dec 29 01:31:31 2005
+++ cxml/doc/using.html	Fri Dec 30 17:08:25 2005
@@ -40,7 +40,7 @@
           </ul>
 	</li>
 	<li>
-          <a href="using.html">DOM implementation</a>
+          <a href="dom.html">DOM implementation</a>
           <ul class="sub">
             <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
             <li><a href="dom.html#serialization">Serialization</a></li>


Index: cxml/doc/xmls-compat.html
diff -u cxml/doc/xmls-compat.html:1.3 cxml/doc/xmls-compat.html:1.4
--- cxml/doc/xmls-compat.html:1.3	Thu Dec 29 01:31:31 2005
+++ cxml/doc/xmls-compat.html	Fri Dec 30 17:08:25 2005
@@ -40,7 +40,7 @@
           </ul>
 	</li>
 	<li>
-          <a href="using.html">DOM implementation</a>
+          <a href="dom.html">DOM implementation</a>
           <ul class="sub">
             <li><a href="dom.html#parser">Parsing with the DOM builder</a></li>
             <li><a href="dom.html#serialization">Serialization</a></li>



From dlichteblau at common-lisp.net  Fri Dec 30 20:47:33 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 30 Dec 2005 21:47:33 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/doc/cxml.css 
Message-ID: <20051230204733.41A728858F@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/doc
In directory common-lisp.net:/tmp/cvs-serv16892/doc

Modified Files:
	cxml.css 
Log Message:
sidebar css

Date: Fri Dec 30 21:47:32 2005
Author: dlichteblau

Index: cxml/doc/cxml.css
diff -u cxml/doc/cxml.css:1.3 cxml/doc/cxml.css:1.4
--- cxml/doc/cxml.css:1.3	Fri Dec 30 17:06:33 2005
+++ cxml/doc/cxml.css	Fri Dec 30 21:47:32 2005
@@ -1,7 +1,11 @@
 div.sidebar {
   float: right;
   background-color: #eeeeee;
-  border: 2pt solid black;
+  border: solid #9c0000;
+  border-top-width: 0px;
+  border-bottom-width: 0px;
+  border-left-width: 4px;
+  border-right-width: 0px;
   margin: 0em 2pt 1em 2em;
   min-width: 15%;
   padding: 0pt 5pt 5pt 5pt;