source: project/release/5/srfi-14/trunk/srfi-14.types

Last change on this file was 35500, checked in by kooda, 15 months ago

Update CHICKEN 5's srfi-14 egg

File size: 7.1 KB
Line 
1(srfi-14#->char-set (procedure srfi-14#->char-set (*) (struct char-set))
2                    (((struct char-set)) #(1))
3                    ((string) (string->char-set #(1)))
4                    ((char) (char-set #(1))))
5
6(srfi-14#char-set (#(procedure #:enforce) srfi-14#char-set (#!rest char) (struct char-set)))
7(srfi-14#char-set->list (#(procedure #:clean #:enforce) srfi-14#char-set->list ((struct char-set)) list))
8(srfi-14#char-set->string (#(procedure #:clean #:enforce) srfi-14#char-set->string ((struct char-set)) string))
9(srfi-14#char-set-adjoin (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin ((struct char-set) #!rest char) (struct char-set)))
10(srfi-14#char-set-adjoin! (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin! ((struct char-set) #!rest char) (struct char-set)))
11(srfi-14#char-set-any (#(procedure #:enforce) srfi-14#char-set-any ((procedure (char) *) (struct char-set)) *))
12(srfi-14#char-set-complement (#(procedure #:clean #:enforce) srfi-14#char-set-complement ((struct char-set)) (struct char-set)))
13(srfi-14#char-set-complement! (#(procedure #:clean #:enforce) srfi-14#char-set-complement! ((struct char-set)) (struct char-set)))
14(srfi-14#char-set-contains? (#(procedure #:clean #:enforce) srfi-14#char-set-contains? ((struct char-set) char) boolean))
15(srfi-14#char-set-copy (#(procedure #:clean #:enforce) srfi-14#char-set-copy ((struct char-set)) (struct char-set)))
16(srfi-14#char-set-count (#(procedure #:clean #:enforce) srfi-14#char-set-count ((procedure (char) *) (struct char-set)) fixnum))
17(srfi-14#char-set-cursor (#(procedure #:clean #:enforce) srfi-14#char-set-cursor ((struct char-set)) fixnum))
18(srfi-14#char-set-cursor-next (#(procedure #:clean #:enforce) srfi-14#char-set-cursor-next ((struct char-set) fixnum) fixnum))
19(srfi-14#char-set-delete (#(procedure #:clean #:enforce) srfi-14#char-set-delete ((struct char-set) #!rest char) (struct char-set)))
20(srfi-14#char-set-delete! (#(procedure #:clean #:enforce) srfi-14#char-set-delete! ((struct char-set) #!rest char) (struct char-set)))
21(srfi-14#char-set-diff+intersection (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
22(srfi-14#char-set-diff+intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection! ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
23(srfi-14#char-set-difference (#(procedure #:clean #:enforce) srfi-14#char-set-difference ((struct char-set) #!rest (struct char-set)) (struct char-set)))
24(srfi-14#char-set-difference! (#(procedure #:clean #:enforce) srfi-14#char-set-difference! ((struct char-set) #!rest (struct char-set)) (struct char-set)))
25(srfi-14#char-set-every (#(procedure #:enforce) srfi-14#char-set-every ((procedure (char) *) (struct char-set)) boolean))
26(srfi-14#char-set-filter (#(procedure #:enforce) srfi-14#char-set-filter ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
27(srfi-14#char-set-filter! (#(procedure #:enforce) srfi-14#char-set-filter! ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
28(srfi-14#char-set-fold (#(procedure #:enforce) srfi-14#char-set-fold ((procedure (char *) *) * (struct char-set)) *))
29(srfi-14#char-set-for-each (#(procedure #:enforce) srfi-14#char-set-for-each ((procedure (char) . *) (struct char-set)) undefined))
30(srfi-14#char-set-hash (#(procedure #:clean #:enforce) srfi-14#char-set-hash ((struct char-set) #!optional number) number))
31(srfi-14#char-set-intersection (#(procedure #:clean #:enforce) srfi-14#char-set-intersection (#!rest (struct char-set)) (struct char-set)))
32(srfi-14#char-set-intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-intersection! (#!rest (struct char-set)) (struct char-set)))
33(srfi-14#char-set-map (#(procedure #:enforce) srfi-14#char-set-map ((procedure (char) char) (struct char-set)) (struct char-set)))
34(srfi-14#char-set-ref (#(procedure #:clean #:enforce) srfi-14#char-set-ref ((struct char-set) fixnum) char))
35(srfi-14#char-set-size (#(procedure #:clean #:enforce) srfi-14#char-set-size ((struct char-set)) fixnum))
36(srfi-14#char-set-unfold (#(procedure #:enforce) srfi-14#char-set-unfold (procedure procedure procedure * #!optional (struct char-set)) (struct char-set)))
37(srfi-14#char-set-unfold! (#(procedure #:enforce) srfi-14#char-set-unfold! (procedure procedure procedure * (struct char-set)) (struct char-set)))
38(srfi-14#char-set-union (#(procedure #:clean #:enforce) srfi-14#char-set-union (#!rest (struct char-set)) (struct char-set)))
39(srfi-14#char-set-union! (#(procedure #:clean #:enforce) srfi-14#char-set-union! (#!rest (struct char-set)) (struct char-set)))
40(srfi-14#char-set-xor (#(procedure #:clean #:enforce) srfi-14#char-set-xor (#!rest (struct char-set)) (struct char-set)))
41(srfi-14#char-set-xor! (#(procedure #:clean #:enforce) srfi-14#char-set-xor! (#!rest (struct char-set)) (struct char-set)))
42(srfi-14#char-set:ascii (struct char-set))
43(srfi-14#char-set:blank (struct char-set))
44(srfi-14#char-set:digit (struct char-set))
45(srfi-14#char-set:empty (struct char-set))
46(srfi-14#char-set:full (struct char-set))
47(srfi-14#char-set:graphic (struct char-set))
48(srfi-14#char-set:hex-digit (struct char-set))
49(srfi-14#char-set:iso-control (struct char-set))
50(srfi-14#char-set:letter (struct char-set))
51(srfi-14#char-set:letter+digit (struct char-set))
52(srfi-14#char-set:lower-case (struct char-set))
53(srfi-14#char-set:printing (struct char-set))
54(srfi-14#char-set:punctuation (struct char-set))
55(srfi-14#char-set:symbol (struct char-set))
56(srfi-14#char-set:title-case (struct char-set))
57(srfi-14#char-set:upper-case (struct char-set))
58(srfi-14#char-set:whitespace (struct char-set))
59
60(srfi-14#char-set= (#(procedure #:clean #:enforce) srfi-14#char-set= (#!rest (struct char-set)) boolean)
61                   (() '#t)
62                   (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
63(srfi-14#char-set<= (#(procedure #:clean #:enforce) srfi-14#char-set<= (#!rest (struct char-set)) boolean)
64                    (() '#t)
65                    (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
66
67(srfi-14#char-set? (#(procedure #:pure #:predicate (struct char-set)) srfi-14#char-set? (*) boolean))
68(srfi-14#end-of-char-set? (#(procedure #:clean #:enforce) srfi-14#end-of-char-set? (fixnum) boolean))
69(srfi-14#list->char-set (#(procedure #:clean #:enforce) srfi-14#list->char-set ((list-of char) #!optional (struct char-set)) (struct char-set)))
70(srfi-14#list->char-set! (#(procedure #:clean #:enforce) srfi-14#list->char-set! ((list-of char) #!optional (struct char-set)) (struct char-set)))
71(srfi-14#string->char-set (#(procedure #:clean #:enforce) srfi-14#string->char-set (string #!optional (struct char-set)) (struct char-set)))
72(srfi-14#string->char-set! (#(procedure #:clean #:enforce) srfi-14#string->char-set! (string #!optional (struct char-set)) (struct char-set)))
73(srfi-14#ucs-range->char-set (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
74(srfi-14#ucs-range->char-set! (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set! (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
Note: See TracBrowser for help on using the repository browser.