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