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

cxml:unescaped, sax:unescaped

Browse Source
This commit is contained in:
dlichteblau
2007-11-18 18:43:10 +00:00
parent a50f1c7b64
commit 77db951f12
4 changed files with 55 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
xml/unparse.lisp
View File

@ -459,6 +459,10 @@
(loop for c across data do (unparse-datachar c y))
(loop for c across data do (unparse-datachar-readable c y))))))))
(defmethod sax:unescaped ((sink sink) data)
(maybe-close-tag sink)
(%write-rod data sink))
(defmethod sax:comment ((sink sink) data)
(maybe-close-tag sink)
(unless (canonical sink)
@ -682,3 +686,17 @@
(maybe-emit-start-tag)
(sax:characters *sink* (rod data))
data)
(defun comment (data)
(maybe-emit-start-tag)
(sax:comment *sink* (rod data))
data)
(defun processing-instruction (target data)
(maybe-emit-start-tag)
(sax:processing-instruction *sink* (rod target) (rod data))
data)
(defun unescaped (str)
(maybe-emit-start-tag)
(sax:unescaped *sink* (rod str)))