source: project/release/4/doctype/doctype.scm @ 15349

Last change on this file since 15349 was 15349, checked in by sjamaan, 11 years ago

Add doctype-rules for sxml-transforms

File size: 1.9 KB
Line 
1;; Some XHTML and HTML doctypes, as strings
2;; Author: Zbigniew
3;; License: Public domain
4
5;; see also http://htmlhelp.com/tools/validator/doctype.html
6
7(module doctype
8  (html-4.01-strict
9   xhtml-1.0-strict
10   html-4.01-transitional
11   xhtml-1.0-transitional
12   html-4.01-frameset
13   xhtml-1.0-frameset
14   html-3.2
15   html-2.0
16   doctype-rules)
17
18(import scheme data-structures)
19
20(define html-4.01-strict
21  "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">")
22(define xhtml-1.0-strict
23  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
24(define html-4.01-transitional
25  "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">")
26(define xhtml-1.0-transitional
27  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">")
28(define html-4.01-frameset
29  "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\" \"http://www.w3.org/TR/html4/frameset.dtd\">")
30(define xhtml-1.0-frameset
31  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">")
32(define html-3.2
33  "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">")
34(define html-2.0
35  "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
36
37(define doctype-rules
38  `((html-4.01-strict *preorder* . ,(constantly html-4.01-strict))
39    (xhtml-1.0-strict *preorder* . ,(constantly xhtml-1.0-strict))
40    (html-4.01-transitional *preorder* . ,(constantly html-4.01-transitional))
41    (xhtml-1.0-transitional *preorder* . ,(constantly xhtml-1.0-transitional))
42    (html-4.01-frameset *preorder* . ,(constantly html-4.01-frameset))
43    (xhtml-1.0-frameset *preorder* . ,(constantly xhtml-1.0-frameset))
44    (html-3.2 *preorder* . ,(constantly html-3.2))
45    (html-2.0 *preorder* . ,(constantly html-3.2))))
46)
Note: See TracBrowser for help on using the repository browser.