22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses debugprint))
(declare (uses tasksmod))
(declare (uses servermod))
(module apimod
*
(import scheme
chicken.base
chicken.process-context.posix
chicken.string
chicken.time
chicken.condition
|
<
>
>
>
>
>
>
>
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses debugprint))
(declare (uses tasksmod))
(declare (uses servermod))
(module apimod
(
api:run-server-process
api:start-server
api:dispatch-cmd
api:execute-requests
api:process-request
)
(import scheme
chicken.base
chicken.process-context.posix
chicken.string
chicken.time
chicken.condition
|