From 2dcfda178f817bec62b9f51248d96799d254d686 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 16 Nov 2003 10:56:37 +0000 Subject: [PATCH] r8224: add entities argument to dtd-prologue --- 2/base.lisp | 30 +++++++++++++++++++----------- 2/data.lisp | 8 ++++---- 2/debian/changelog | 8 +++++++- 3 files changed, 30 insertions(+), 16 deletions(-) diff --git a/2/base.lisp b/2/base.lisp index 91319c2..517af2c 100644 --- a/2/base.lisp +++ b/2/base.lisp @@ -38,20 +38,28 @@ (defun lml-print-date (date) (lml-write-string (date-string date))) -(defun dtd-prologue (&optional (format :xhtml11)) +(defun dtd-prologue (&optional (format :xhtml11) &key entities) (case format ((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset :xml) (lml-write-string +xml-prologue-string+) - (lml-write-char #\newline))) - (case format - ((:xhtml11 :xhtml) - (lml-write-string +xhtml11-dtd-string+)) - (:xhtml10-strict - (lml-write-string +xhtml10-strict-dtd-string+)) - (:xhtml10-transitional - (lml-write-string +xhtml10-transitional-dtd-string+)) - (:xhtml10-frameset - (lml-write-string +xhtml10-frameset-dtd-string+)) + (lml-write-char #\newline) + (case format + ((:xhtml11 :xhtml) + (lml-write-string +xhtml11-dtd-string+)) + (:xhtml10-strict + (lml-write-string +xhtml10-strict-dtd-string+)) + (:xhtml10-transitional + (lml-write-string +xhtml10-transitional-dtd-string+)) + (:xhtml10-frameset + (lml-write-string +xhtml10-frameset-dtd-string+))) + (when entities + (lml-write-char #\space) + (lml-write-char #\[) + (lml-write-char #\Newline) + (lml-write-string entities) + (lml-write-char #\Newline) + (lml-write-char #\])) + (lml-write-char #\>)) (:html (lml-write-string +html4-dtd-string+))) (lml-write-char #\newline)) diff --git a/2/data.lisp b/2/data.lisp index 8480e3b..58cd22d 100644 --- a/2/data.lisp +++ b/2/data.lisp @@ -28,13 +28,13 @@ "") (defvar +xhtml11-dtd-string+ - "") + "") + "") + "") + " Sun, 16 Nov 2003 02:53:47 -0700 + cl-lml2 (1.4.1-1) unstable; urgency=low * Improve code walker - -- Kevin M. Rosenberg Mon, 21 Jul 2003 12:01:34 -0600 + -- Kevin M. Rosenberg Sun, 16 Nov 2003 02:53:28 -0700 cl-lml2 (1.4-1) unstable; urgency=low -- 2.34.1