KMRCLを眺める(225) XML-DECLARATION-STREAM — #:g1

Posted 2010-11-10 12:48:00 GMT

今回はKMRCLのxml-utils.lispから、XML-DECLARATION-STREAMです。
名前の通りXMLの宣言を作成するもので定義は、

(defun xml-declaration-stream (stream &key (version "1.0") standalone encoding)
  (format stream "<?xml version=\"~A\"~A~A ?>~%"
          version
          (if encoding
              (format nil " encoding=\"~A\"" encoding)
              ""
              )
          (if standalone
              (format nil " standalone=\"~A\"" standalone)
              "")))
という風。
動作は、
(with-output-to-string (out)
  (kl::xml-declaration-stream out :standalone "yes" :encoding "utf-8"))
;=> "<?xml version=\"1.0\" encoding=\"utf-8\" standalone=\"yes\" ?>
;   "
となっています。

comments powered by Disqus