source: project/release/5/srfi-18/trunk/srfi-18.types @ 35501

Last change on this file since 35501 was 35501, checked in by Kooda, 18 months ago

Update CHICKEN 5's srfi-18 egg

File size: 5.1 KB
Line 
1
2(srfi-18#abandoned-mutex-exception? (#(procedure #:pure) abandoned-mutex-exception? (*) boolean))
3(srfi-18#condition-variable-broadcast! (#(procedure #:clean #:enforce) srfi-18#condition-variable-broadcast! ((struct condition-variable)) undefined))
4(srfi-18#condition-variable-name (#(procedure #:clean #:enforce) srfi-18#condition-variable-name ((struct condition-variable)) *))
5(srfi-18#condition-variable-signal! (#(procedure #:clean #:enforce) srfi-18#condition-variable-signal! ((struct condition-variable)) undefined))
6(srfi-18#condition-variable-specific (#(procedure #:clean #:enforce) srfi-18#condition-variable-specific ((struct condition-variable)) *))
7(srfi-18#condition-variable-specific-set! (#(procedure #:clean #:enforce) srfi-18#condition-variable-specific-set! ((struct condition-variable) *) undefined))
8
9(srfi-18#condition-variable? (#(procedure #:pure #:predicate (struct condition-variable))
10                      srfi-18#condition-variable? (*)
11                      boolean))
12
13(srfi-18#current-thread (#(procedure #:clean) srfi-18#current-thread () (struct thread))) ;XXX
14
15(srfi-18#current-time (#(procedure #:clean) srfi-18#current-time () (struct time)))
16(srfi-18#join-timeout-exception? (#(procedure #:pure) srfi-18#join-timeout-exception? (*) boolean))
17(srfi-18#make-condition-variable (#(procedure #:clean) srfi-18#make-condition-variable (#!optional *) (struct condition-variable)))
18(srfi-18#make-mutex (#(procedure #:clean) srfi-18#make-mutex (#!optional *) (struct mutex)))
19(srfi-18#make-thread (#(procedure #:clean #:enforce) srfi-18#make-thread ((procedure () . *) #!optional *) (struct thread)))
20(srfi-18#mutex-lock! (#(procedure #:clean #:enforce) srfi-18#mutex-lock! ((struct mutex) #!optional (or false number (struct time)) (or false (struct thread))) boolean))
21
22(srfi-18#mutex-name (#(procedure #:clean #:enforce) srfi-18#mutex-name ((struct mutex)) *)
23            (((struct mutex)) (##sys#slot #(1) '1)))
24
25(srfi-18#mutex-specific (#(procedure #:clean #:enforce) srfi-18#mutex-specific ((struct mutex)) *)
26                (((struct mutex)) (##sys#slot #(1) '6)))
27
28(srfi-18#mutex-specific-set! (#(procedure #:clean #:enforce) srfi-18#mutex-specific-set! ((struct mutex) *) undefined)
29                     (((struct mutex) *) (##sys#setslot #(1) '6 #(2))))
30
31(srfi-18#mutex-state (#(procedure #:clean #:enforce) srfi-18#mutex-state ((struct mutex)) (or symbol (struct thread))))
32(srfi-18#mutex-unlock! (#(procedure #:clean #:enforce) srfi-18#mutex-unlock! ((struct mutex) #!optional (struct condition-variable) *) undefined))
33
34(srfi-18#mutex? (#(procedure #:pure #:predicate (struct mutex)) srfi-18#mutex? (*) boolean))
35
36(srfi-18#raise (procedure srfi-18#raise (*) noreturn))
37(srfi-18#seconds->time (#(procedure #:clean #:enforce) srfi-18#seconds->time (number) (struct time)))
38(srfi-18#terminated-thread-exception? (#(procedure #:pure) srfi-18#terminated-thread-exception? (*) boolean))
39(srfi-18#thread-join! (#(procedure #:clean #:enforce) srfi-18#thread-join! ((struct thread) #!optional * *) . *))
40
41(srfi-18#thread-name (#(procedure #:clean #:enforce) srfi-18#thread-name ((struct thread)) *)
42             (((struct thread)) (##sys#slot #(1) '6)))
43
44(srfi-18#thread-quantum (#(procedure #:clean #:enforce) srfi-18#thread-quantum ((struct thread)) fixnum)
45                (((struct thread)) (##sys#slot #(1) '9)))
46
47(srfi-18#thread-quantum-set! (#(procedure #:clean #:enforce) srfi-18#thread-quantum-set! ((struct thread) fixnum) undefined))
48(srfi-18#thread-resume! (#(procedure #:clean #:enforce) srfi-18#thread-resume! ((struct thread)) undefined))
49(srfi-18#thread-signal! (#(procedure #:clean #:enforce) srfi-18#thread-signal! ((struct thread) *) undefined))
50(srfi-18#thread-sleep! (#(procedure #:clean) srfi-18#thread-sleep! (*) undefined))
51
52(srfi-18#thread-specific (#(procedure #:clean #:enforce) srfi-18#thread-specific ((struct thread)) *)
53                 (((struct thread)) (##sys#slot #(1) '10)))
54
55(srfi-18#thread-specific-set! (#(procedure #:clean #:enforce) srfi-18#thread-specific-set! ((struct thread) *) undefined)
56                      (((struct thread) *) (##sys#setslot #(1) '10 #(2))))
57
58(srfi-18#thread-start! (#(procedure #:enforce) srfi-18#thread-start! ((or (struct thread) (procedure () . *))) (struct thread)))
59
60(srfi-18#thread-state (#(procedure #:clean #:enforce) srfi-18#thread-state ((struct thread)) symbol)
61              (((struct thread)) (##sys#slot #(1) '3)))
62
63(srfi-18#thread-suspend! (#(procedure #:clean #:enforce) srfi-18#thread-suspend! ((struct thread)) undefined))
64(srfi-18#thread-terminate! (#(procedure #:clean #:enforce) srfi-18#thread-terminate! ((struct thread)) undefined))
65(srfi-18#thread-wait-for-i/o! (#(procedure #:clean #:enforce) srfi-18#thread-wait-for-i/o! (fixnum #!optional symbol) undefined))
66(srfi-18#thread-yield! (#(procedure #:clean) srfi-18#thread-yield! () undefined))
67
68(srfi-18#thread? (#(procedure #:pure #:predicate (struct thread)) srfi-18#thread? (*) boolean))
69
70(srfi-18#time->seconds (#(procedure #:clean #:enforce) srfi-18#time->seconds ((struct time)) number))
71
72(srfi-18#time? (#(procedure #:pure #:predicate (struct time)) srfi-18#time? (*) boolean))
73
74(srfi-18#uncaught-exception-reason (#(procedure #:clean #:enforce) srfi-18#uncaught-exception-reason ((struct condition)) *))
75(srfi-18#uncaught-exception? (#(procedure #:pure) srfi-18#uncaught-exception? (*) boolean))
Note: See TracBrowser for help on using the repository browser.