Changeset 15349 in project


Ignore:
Timestamp:
08/07/09 13:40:44 (10 years ago)
Author:
sjamaan
Message:

Add doctype-rules for sxml-transforms

Location:
release/4/doctype
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • release/4/doctype/doctype.scm

    r10966 r15349  
    1313   xhtml-1.0-frameset
    1414   html-3.2
    15    html-2.0)
     15   html-2.0
     16   doctype-rules)
    1617
    17   (import scheme)
     18(import scheme data-structures)
    1819
    19   (define html-4.01-strict
    20     "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">")
    21   (define xhtml-1.0-strict
    22     "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
    23   (define html-4.01-transitional
    24     "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">")
    25   (define xhtml-1.0-transitional
    26     "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">")
    27   (define html-4.01-frameset
    28     "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\" \"http://www.w3.org/TR/html4/frameset.dtd\">")
    29   (define xhtml-1.0-frameset
    30     "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">")
    31   (define html-3.2
    32     "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">")
    33   (define html-2.0
    34     "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">"))
     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)

  • release/4/doctype/doctype.setup

    r10966 r15349  
    44(install-extension 'doctype
    55 '("doctype.so" "doctype.import.scm")
    6  '((documentation "doctype.html") (version 1.1)))
     6 '((documentation "doctype.html") (version 1.2)))
Note: See TracChangeset for help on using the changeset viewer.