r5177: *** empty log message ***

[lml2.git] / data.lisp
diff --git a/data.lisp b/data.lisp

index 58aee929cf2f455645e9a4f7e771b84acf5660ab..9a286ce06bf389048512fc008d1b99ec6bab64f7 100644 (file)
--- a/data.lisp
+++ b/data.lisp
@@ -7,7 +7,7 @@
  ;;;; Programmer:    Kevin M. Rosenberg
  ;;;; Date Started:  Aug 2002
  ;;;;
  ;;;; Programmer:    Kevin M. Rosenberg
  ;;;; Date Started:  Aug 2002
  ;;;;
-;;;; $Id: data.lisp,v 1.1 2003/06/20 04:12:29 kevin Exp $
+;;;; $Id: data.lisp,v 1.2 2003/06/23 20:37:43 kevin Exp $
  ;;;;
  ;;;; This file, part of LML2, is Copyright (c) 2002 by Kevin M. Rosenberg
  ;;;;
  ;;;;
  ;;;; This file, part of LML2, is Copyright (c) 2002 by Kevin M. Rosenberg
  ;;;;
@@ -23,11 +23,20 @@
  (defvar *print-spaces* nil)
  (defvar *indent* 0)
  
  (defvar *print-spaces* nil)
  (defvar *indent* 0)
  
-(defun html4-prologue-string ()
-  "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
-
-(defun xml-prologue-string ()
+(defvar +xml-prologue-string+
    "<?xml version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"yes\"?>")
  
    "<?xml version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"yes\"?>")
  
-(defun xhtml-prologue-string ()
+(defvar +html4-dtd-string+
+  "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
+
+(defvar +xhtml11-dtd-string+
    "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">")
    "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">")
+
+(defvar +xhtml10-strict-dtd-string+
+  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml10/DTD/xhtml10-strict.dtd\">")
+
+(defvar +xhtml10-transitional-dtd-string+
+  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml10/DTD/xhtml10-transitional.dtd\">")
+
+(defvar +xhtml10-frameset-dtd-string+
+  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\" \"http://www.w3.org/TR/xhtml10/DTD/xhtml10-frameset.dtd\">")