[cxml-cvs] CVS cxml/xml

[dlichteblau]

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

Modified Files:
	unparse.lisp 
Log Message:
new function cxml:doctype


--- /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/07/01 17:25:39	1.17
+++ /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/07/01 18:52:26	1.18
@@ -564,6 +564,12 @@
 (defmacro with-namespace ((prefix uri) &body body)
   `(invoke-with-namespace (lambda () , at body) ,prefix ,uri))
 
+(defun doctype (name public-id system-id &optional internal-subset)
+  (sax:start-dtd *sink* name public-id system-id)
+  (when internal-subset
+    (sax:unparsed-internal-subset *sink* internal-subset))
+  (sax:end-dtd *sink*))
+
 (defun maybe-emit-start-tag ()
   (when *current-element*
     ;; starting child node, need to emit opening tag of parent first: