projects
/
lml.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2dcfda1
)
r8226: update to new dtd writing functions
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 16 Nov 2003 15:49:47 +0000
(15:49 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 16 Nov 2003 15:49:47 +0000
(15:49 +0000)
2/base.lisp
patch
|
blob
|
history
diff --git
a/2/base.lisp
b/2/base.lisp
index 517af2cc834fcf336e2db5be3d96930d43d56021..ecfd2792acf2cae51df83376542d717e0ceb7ebb 100644
(file)
--- a/
2/base.lisp
+++ b/
2/base.lisp
@@
-38,6
+38,17
@@
(defun lml-print-date (date)
(lml-write-string (date-string date)))
(defun lml-print-date (date)
(lml-write-string (date-string date)))
+(defun xml-header-stream (stream &key (version "1.0") (standalone :unspecified)
+ (encoding :unspecified))
+ (format stream "<?xml version=\"~A\"~A~A ?>"
+ version
+ (if (eq standalone :unspecified)
+ ""
+ (format nil " standalone=\"~A\"" standalone))
+ (if (eq encoding :unspecified)
+ ""
+ (format nil " encoding=\"~A\"" encoding))))
+
(defun dtd-prologue (&optional (format :xhtml11) &key entities)
(case format
((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset :xml)
(defun dtd-prologue (&optional (format :xhtml11) &key entities)
(case format
((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset :xml)