doctype.scm
;;; doctype.scm  --  Jens Axel S√łgaard

; This file contains the doctypes listed at
;    <http://www.w3.org/QA/2002/04/valid-dtd-list.html>
; the 16th feb 2006.

(module doctype mzscheme
  (provide (all-defined))
  
  ; The current-doctype parameter is defined at the bottom.
  
  ;;;
  ;;; DOCUMENT TYPES
  ;;;
  
  (define doctype-HTML-4.01-Strict
#<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
doctype
    )
  
  (define doctype-HTML-4.01-Transitional
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
doctype
    )
  
  (define doctype-HTML-4.01-Frameset
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">
doctype
    )
  
  (define doctype-XHTML-1.0-Strict
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
doctype
    )
  (define doctype-XHTML-1.0-Transitional
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
doctype
    )
  (define doctype-XHTML-1.0-Frameset
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
doctype
    )
  
  (define doctype-XHTML-1.1
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
doctype
    )
  
  (define doctype-HTML-2.0
    #<<doctype
<!DOCTYPE html PUBLIC "-//IETF//DTD HTML 2.0//EN">
doctype
    )
  
  (define doctype-HTML-3.2
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
doctype
    )
  
  (define doctype-MathML-1.01
    #<<doctype
<!DOCTYPE math SYSTEM "http://www.w3.org/Math/DTD/mathml1/mathml.dtd">
doctype
    )
  
  (define doctype-MathML-2.0
    #<<doctype
<!DOCTYPE math PUBLIC "-//W3C//DTD MathML 2.0//EN" "http://www.w3.org/TR/MathML2/dtd/mathml2.dtd">
doctype
    )
  
  (define doctype-XHTML+MathML+SVG
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">
doctype
    )
  
  
  (define doctype-SVG-1.0
    #<<doctype
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
doctype
    )
  
  
  (define doctype-SVG-1.1-Full
    #<<doctype
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
doctype
    )
  
  
  (define doctype-SVG-1.1-Basic
    #<<doctype
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1 Basic//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11-basic.dtd">
doctype
    )
  
  
  (define doctype-SVG-1.1-Tiny
    #<<doctype
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1 Tiny//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11-tiny.dtd">
doctype
    )
  
  
  (define doctype-XHTML+MathML+SVG-Profile--XHTML-host
    #<<doctype
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">
doctype
    )
  
  (define doctype-XHTML+MathML+SVG-Profile--SVG-host
    #<<doctype
<!DOCTYPE svg:svg PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">
doctype
    )

  ;;;
  ;;; DOCTYPE PARAMETER
  ;;;
  
  (define current-doctype (make-parameter doctype-XHTML-1.0-Strict))
  
  )