[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv22776

Modified Files:
	package.lisp unparse.lisp 
Log Message:
new slot omit-xml-declaration-p on sink


--- /project/cxml/cvsroot/cxml/xml/package.lisp	2007/11/18 18:43:11	1.21
+++ /project/cxml/cvsroot/cxml/xml/package.lisp	2007/12/02 20:56:42	1.22
@@ -50,6 +50,8 @@
    ;; #-rune-is-character
    #:make-character-stream-sink/utf8
 
+   #:omit-xml-declaration-p
+
    #:with-xml-output
    #:with-output-sink
    #:with-namespace
--- /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/11/24 00:04:16	1.24
+++ /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/12/02 20:56:42	1.25
@@ -80,7 +80,10 @@
      (previous-notation :initform nil :accessor previous-notation)
      (have-doctype :initform nil :accessor have-doctype)
      (have-internal-subset :initform nil :accessor have-internal-subset)
-     (stack :initform nil :accessor stack)))
+     (stack :initform nil :accessor stack)
+     (omit-xml-declaration-p :initform nil
+			     :initarg :omit-xml-declaration-p
+			     :accessor omit-xml-declaration-p)))
 
 #-rune-is-character
 (defmethod hax:%want-strings-p ((handler sink))
@@ -134,7 +137,8 @@
 ;;;; doctype and notations
 
 (defmethod sax:start-document ((sink sink))
-  (unless (canonical sink)
+  (unless (or (canonical sink)
+	      (omit-xml-declaration-p sink))
     (%write-rod #"<?xml version=\"1.0\" encoding=\"UTF-8\"?>" sink)
     (%write-rune #/U+000A sink)))