Artifact
d9c70abce0b5ff09befe38568505fac82fa6847b:
- File
sxml/tree-trans.sls
— part of check-in
[87b69065d8]
at
2017-09-11 21:20:04
on branch trunk
— fixed some include/resolve
(user:
aldo
size: 551)
0000: 0a 28 6c 69 62 72 61 72 79 20 28 73 78 6d 6c 20 .(library (sxml
0010: 74 72 65 65 2d 74 72 61 6e 73 29 0a 20 20 28 65 tree-trans). (e
0020: 78 70 6f 72 74 0a 20 20 20 53 52 56 3a 73 65 6e xport. SRV:sen
0030: 64 2d 72 65 70 6c 79 0a 20 20 20 70 72 65 2d 70 d-reply. pre-p
0040: 6f 73 74 2d 6f 72 64 65 72 0a 20 20 20 70 6f 73 ost-order. pos
0050: 74 2d 6f 72 64 65 72 0a 20 20 20 66 6f 6c 64 74 t-order. foldt
0060: 73 0a 20 20 20 72 65 70 6c 61 63 65 2d 72 61 6e s. replace-ran
0070: 67 65 29 0a 20 20 20 28 69 6d 70 6f 72 74 20 28 ge). (import (
0080: 65 78 63 65 70 74 20 28 73 63 68 65 6d 65 29 0a except (scheme).
0090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00a0: 20 20 73 74 72 69 6e 67 2d 63 6f 70 79 20 73 74 string-copy st
00b0: 72 69 6e 67 2d 66 6f 72 2d 65 61 63 68 20 73 74 ring-for-each st
00c0: 72 69 6e 67 2d 3e 6c 69 73 74 20 73 74 72 69 6e ring->list strin
00d0: 67 2d 75 70 63 61 73 65 0a 20 20 20 20 20 20 20 g-upcase.
00e0: 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e strin
00f0: 67 2d 64 6f 77 6e 63 61 73 65 20 73 74 72 69 6e g-downcase strin
0100: 67 2d 74 69 74 6c 65 63 61 73 65 20 73 74 72 69 g-titlecase stri
0110: 6e 67 2d 68 61 73 68 20 73 74 72 69 6e 67 2d 63 ng-hash string-c
0120: 6f 70 79 21 20 73 74 72 69 6e 67 2d 66 69 6c 6c opy! string-fill
0130: 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !.
0140: 20 20 20 20 66 6f 6c 64 2d 72 69 67 68 74 20 65 fold-right e
0150: 72 72 6f 72 20 66 69 6c 74 65 72 29 0a 20 20 20 rror filter).
0160: 20 20 20 20 20 20 20 28 70 72 65 66 69 78 20 28 (prefix (
0170: 6f 6e 6c 79 20 28 73 63 68 65 6d 65 29 20 65 72 only (scheme) er
0180: 72 6f 72 29 20 73 63 68 65 6d 65 3a 29 0a 20 20 ror) scheme:).
0190: 20 20 20 20 20 20 20 20 28 73 72 66 69 20 73 31 (srfi s1
01a0: 33 20 73 74 72 69 6e 67 73 29 0a 09 20 20 28 73 3 strings).. (s
01b0: 72 66 69 20 70 72 69 76 61 74 65 20 69 6e 63 6c rfi private incl
01c0: 75 64 65 29 29 0a 20 20 20 28 69 6e 63 6c 75 64 ude)). (includ
01d0: 65 2f 72 65 73 6f 6c 76 65 20 28 22 73 78 6d 6c e/resolve ("sxml
01e0: 22 29 20 22 75 74 69 6c 73 2e 73 73 22 29 0a 20 ") "utils.ss").
01f0: 20 20 28 69 6e 63 6c 75 64 65 2f 72 65 73 6f 6c (include/resol
0200: 76 65 20 28 22 73 78 6d 6c 22 29 20 22 53 58 4d ve ("sxml") "SXM
0210: 4c 2d 74 72 65 65 2d 74 72 61 6e 73 2e 73 63 6d L-tree-trans.scm
0220: 22 29 29 0a 09 09 0a "))....