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

namespace-normalizer lieber doch nicht per default

Browse Source
This commit is contained in:
dlichteblau
2005-12-27 20:17:33 +00:00
parent 36ba984844
commit a6a31873a8
2 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
doc/dom.html
View File

@ -63,6 +63,11 @@
<tt>unparse-document</tt> as a thin wrapper around <tt>unparse-document</tt> as a thin wrapper around
<tt>map-document</tt>. <tt>map-document</tt>.
</p> </p>
<p>
Applications dealing with namespaces might want to inject a
<a href="using.html#misc">namespace normalizer</a> into the
sink chain.
</p>
<p> <p>
<div class="def">Function DOM:MAP-DOCUMENT (handler document &key include-xmlns-attributes include-default-values include-doctype)</div> <div class="def">Function DOM:MAP-DOCUMENT (handler document &key include-xmlns-attributes include-default-values include-doctype)</div>
Traverse a DOM document and call SAX functions as if an XML Traverse a DOM document and call SAX functions as if an XML
@ -111,11 +116,6 @@
doctype declaration will be written that includes notations doctype declaration will be written that includes notations
declared in the document. declared in the document.
</li> </li>
<li>
If namespace processing is enabled
(<tt>sax:*namespace-processing*</tt>), a <a
href="using.html#misc">namespace normalizer</a> is used.
</li>
</ul> </ul>
<p> <p>
<tt>unparse-document-to-octets</tt> returns an <tt>(unsigned-byte <tt>unparse-document-to-octets</tt> returns an <tt>(unsigned-byte

11
dom/unparse.lisp
View File

@ -1,8 +1,6 @@
(in-package :cxml) (in-package :cxml)
(defun %unparse-document (sink doc canonical) (defun %unparse-document (sink doc canonical)
(when sax:*namespace-processing*
(setf sink (cxml:make-namespace-normalizer sink)))
(dom:map-document sink (dom:map-document sink
doc doc
:include-doctype (if (and canonical (>= canonical 2)) :include-doctype (if (and canonical (>= canonical 2))
@ -15,8 +13,7 @@
doc doc
canonical)) canonical))
(defun unparse-document (doc character-stream &rest initargs &key canonical) (defun unparse-document (doc stream &rest initargs &key canonical)
(%unparse-document (%unparse-document (apply #'make-character-stream-sink stream initargs)
(apply #'make-character-stream-sink character-stream initargs) doc
doc canonical))
canonical))