;; 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)))) )