;; Some XHTML and HTML doctypes, as strings
;; Author: Zbigniew
;; License: Public domain
;; see also http://htmlhelp.com/tools/validator/doctype.html
(module doctype
(html-4.01-strict
xhtml-1.0-strict
html-4.01-transitional
xhtml-1.0-transitional
html-4.01-frameset
xhtml-1.0-frameset
html-3.2
html-2.0
doctype-rules)
(import scheme data-structures)
(define html-4.01-strict
"")
(define xhtml-1.0-strict
"")
(define html-4.01-transitional
"")
(define xhtml-1.0-transitional
"")
(define html-4.01-frameset
"")
(define xhtml-1.0-frameset
"")
(define html-3.2
"")
(define html-2.0
"")
(define doctype-rules
`((html-4.01-strict *preorder* . ,(constantly html-4.01-strict))
(xhtml-1.0-strict *preorder* . ,(constantly xhtml-1.0-strict))
(html-4.01-transitional *preorder* . ,(constantly html-4.01-transitional))
(xhtml-1.0-transitional *preorder* . ,(constantly xhtml-1.0-transitional))
(html-4.01-frameset *preorder* . ,(constantly html-4.01-frameset))
(xhtml-1.0-frameset *preorder* . ,(constantly xhtml-1.0-frameset))
(html-3.2 *preorder* . ,(constantly html-3.2))
(html-2.0 *preorder* . ,(constantly html-3.2))))
)