OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

new function cxml:doctype

Browse Source
This commit is contained in:
dlichteblau
2007-07-01 18:52:26 +00:00
parent b9630fddfc
commit d9fe9dfd51
3 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
doc/sax.xml
View File

@ -299,6 +299,7 @@
<div class="def">Function CXML:ATTRIBUTE* (prefix lname value) => value</div> <div class="def">Function CXML:ATTRIBUTE* (prefix lname value) => value</div>
<div class="def">Function CXML:TEXT (data) => data</div> <div class="def">Function CXML:TEXT (data) => data</div>
<div class="def">Function CXML:CDATA (data) => data</div> <div class="def">Function CXML:CDATA (data) => data</div>
<div class="def">Function CXML:doctype (name public-id system-id &amp;optional internal-subset)</div>
Convenience syntax for event-based serialization. Convenience syntax for event-based serialization.
</p> </p>
<p> <p>

1
xml/package.lisp
View File

@ -58,6 +58,7 @@
#:unparse-attribute #:unparse-attribute
#:cdata #:cdata
#:text #:text
#:doctype
#:xml-parse-error #:xml-parse-error
#:well-formedness-violation #:well-formedness-violation

6
xml/unparse.lisp
View File

@ -564,6 +564,12 @@
(defmacro with-namespace ((prefix uri) &body body) (defmacro with-namespace ((prefix uri) &body body)
`(invoke-with-namespace (lambda () ,@body) ,prefix ,uri)) `(invoke-with-namespace (lambda () ,@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 () (defun maybe-emit-start-tag ()
(when *current-element* (when *current-element*
;; starting child node, need to emit opening tag of parent first: ;; starting child node, need to emit opening tag of parent first: