Artifact
1e600b5bcbe98224287bcf07fc204cae3742dafb:
- File
sxml/to-html.sls
— part of check-in
[87b69065d8]
at
2017-09-11 21:20:04
on branch trunk
— fixed some include/resolve
(user:
aldo
size: 808)
0000: 28 6c 69 62 72 61 72 79 20 28 73 78 6d 6c 20 74 (library (sxml t
0010: 6f 2d 68 74 6d 6c 29 0a 20 20 28 65 78 70 6f 72 o-html). (expor
0020: 74 0a 20 20 20 53 58 4d 4c 2d 3e 48 54 4d 4c 0a t. SXML->HTML.
0030: 20 20 20 73 74 72 69 6e 67 2d 3e 67 6f 6f 64 48 string->goodH
0040: 54 4d 4c 0a 20 20 20 65 6e 74 61 67 0a 20 20 20 TML. entag.
0050: 65 6e 61 74 74 72 0a 20 20 20 75 6e 69 76 65 72 enattr. univer
0060: 73 61 6c 2d 63 6f 6e 76 65 72 73 69 6f 6e 2d 72 sal-conversion-r
0070: 75 6c 65 73 0a 20 20 20 75 6e 69 76 65 72 73 61 ules. universa
0080: 6c 2d 70 72 6f 74 65 63 74 65 64 2d 72 75 6c 65 l-protected-rule
0090: 73 0a 20 20 20 61 6c 69 73 74 2d 63 6f 6e 76 2d s. alist-conv-
00a0: 72 75 6c 65 73 0a 20 20 20 67 65 6e 65 72 69 63 rules. generic
00b0: 2d 77 65 62 2d 72 75 6c 65 73 0a 20 20 20 73 69 -web-rules. si
00c0: 67 6e 69 66 2d 74 61 69 6c 0a 20 20 20 6d 61 6b gnif-tail. mak
00d0: 65 2d 68 65 61 64 65 72 0a 20 20 20 6d 61 6b 65 e-header. make
00e0: 2d 6e 61 76 62 61 72 0a 20 20 20 6d 61 6b 65 2d -navbar. make-
00f0: 66 6f 6f 74 65 72 0a 20 20 20 66 69 6e 64 2d 48 footer. find-H
0100: 65 61 64 65 72 29 0a 20 20 20 28 69 6d 70 6f 72 eader). (impor
0110: 74 20 28 65 78 63 65 70 74 20 28 73 63 68 65 6d t (except (schem
0120: 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e).
0130: 20 20 20 20 20 73 74 72 69 6e 67 2d 63 6f 70 79 string-copy
0140: 20 73 74 72 69 6e 67 2d 66 6f 72 2d 65 61 63 68 string-for-each
0150: 20 73 74 72 69 6e 67 2d 3e 6c 69 73 74 20 73 74 string->list st
0160: 72 69 6e 67 2d 75 70 63 61 73 65 0a 20 20 20 20 ring-upcase.
0170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
0180: 72 69 6e 67 2d 64 6f 77 6e 63 61 73 65 20 73 74 ring-downcase st
0190: 72 69 6e 67 2d 74 69 74 6c 65 63 61 73 65 20 73 ring-titlecase s
01a0: 74 72 69 6e 67 2d 68 61 73 68 20 73 74 72 69 6e tring-hash strin
01b0: 67 2d 63 6f 70 79 21 20 73 74 72 69 6e 67 2d 66 g-copy! string-f
01c0: 69 6c 6c 21 0a 20 20 20 20 20 20 20 20 20 20 20 ill!.
01d0: 20 20 20 20 20 20 20 66 6f 6c 64 2d 72 69 67 68 fold-righ
01e0: 74 20 65 72 72 6f 72 20 66 69 6c 74 65 72 29 0a t error filter).
01f0: 20 20 20 20 20 20 20 20 20 20 28 70 72 65 66 69 (prefi
0200: 78 20 28 6f 6e 6c 79 20 28 73 63 68 65 6d 65 29 x (only (scheme)
0210: 20 65 72 72 6f 72 29 20 73 63 68 65 6d 65 3a 29 error) scheme:)
0220: 0a 20 20 20 20 20 20 20 20 20 20 28 73 72 66 69 . (srfi
0230: 20 73 31 33 20 73 74 72 69 6e 67 73 29 0a 09 20 s13 strings)..
0240: 20 28 73 78 6d 6c 20 74 72 65 65 2d 74 72 61 6e (sxml tree-tran
0250: 73 29 0a 09 20 20 28 73 72 66 69 20 70 72 69 76 s).. (srfi priv
0260: 61 74 65 20 69 6e 63 6c 75 64 65 29 0a 09 20 20 ate include)..
0270: 28 6f 6e 6c 79 20 28 74 68 75 6e 64 65 72 2d 75 (only (thunder-u
0280: 74 69 6c 73 29 20 73 74 72 69 6e 67 2d 73 70 6c tils) string-spl
0290: 69 74 29 29 0a 20 20 20 28 69 6e 63 6c 75 64 65 it)). (include
02a0: 2f 72 65 73 6f 6c 76 65 20 28 22 73 78 6d 6c 22 /resolve ("sxml"
02b0: 29 20 22 75 74 69 6c 73 2e 73 73 22 29 0a 20 20 ) "utils.ss").
02c0: 20 28 69 6e 63 6c 75 64 65 2f 72 65 73 6f 6c 76 (include/resolv
02d0: 65 20 28 22 73 78 6d 6c 22 29 20 22 53 58 4d 4c e ("sxml") "SXML
02e0: 2d 74 6f 2d 48 54 4d 4c 2e 73 63 6d 22 29 0a 20 -to-HTML.scm").
02f0: 20 20 28 69 6e 63 6c 75 64 65 2f 72 65 73 6f 6c (include/resol
0300: 76 65 20 28 22 73 78 6d 6c 22 29 20 22 53 58 4d ve ("sxml") "SXM
0310: 4c 2d 74 6f 2d 48 54 4d 4c 2d 65 78 74 2e 73 63 L-to-HTML-ext.sc
0320: 6d 22 29 29 0a 09 09 0a m"))....