-
Notifications
You must be signed in to change notification settings - Fork 25
/
sxml.sls
75 lines (68 loc) · 1.94 KB
/
sxml.sls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
(library (sxml)
(export make-xml-token
xml-token?
xml-token-kind
xml-token-head
ssax:skip-S
ssax:ncname-starting-char?
ssax:read-NCName
ssax:read-QName
ssax:Prefix-XML
name-compare
ssax:largest-unres-name
ssax:read-markup-token
ssax:skip-pi
ssax:read-pi-body-as-string
ssax:skip-internal-dtd
ssax:read-cdata-body
ssax:read-char-ref
ssax:predefined-parsed-entities
ssax:handle-parsed-entity
make-empty-attlist
attlist-add
attlist-null?
attlist-remove-top
attlist->alist
attlist-fold
ssax:read-attributes
ssax:resolve-name
ssax:uri-string->symbol
ssax:complete-start-tag
ssax:read-external-id
ssax:scan-Misc
ssax:read-char-data
ssax:assert-token
ssax:make-parser
ssax:make-pi-parser
ssax:make-elem-parser
ssax:make-parser/positional-args
ssax:define-labeled-arg-macro
ssax:reverse-collect-str
ssax:reverse-collect-str-drop-ws
ssax:xml->sxml
nodeset?
node-typeof?
node-eq?
node-equal?
node-pos
take-until
take-after
map-union
node-reverse
node-trace
select-kids
node-self
node-join
node-reduce
node-or
node-closure
node-parent
sxpath)
(import (except (scheme)
string-copy string-for-each string->list string-upcase
string-downcase string-titlecase string-hash string-copy! string-fill!
fold-right error filter)
(prefix (only (scheme) error) scheme:)
(srfi s13 strings)
(sxml ssax)
(sxml sxpath)))