26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
;;======================================================================
;; (use rpc pkts mailbox sqlite3)
(module ulex
*
(import scheme posix-groups (chicken base) queues (chicken port) (chicken io) (chicken file) mailbox system-information)
(import srfi-18 pkts matchable regex
typed-records srfi-69 srfi-1
srfi-4 regex-case
(prefix sqlite3 sqlite3:)
(chicken foreign)
(chicken sort)
(chicken process-context posix)
|
|
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
;;======================================================================
;; (use rpc pkts mailbox sqlite3)
(module ulex
*
(import scheme (chicken base) queues (chicken port) (chicken io) (chicken file) mailbox system-information)
(import srfi-18 pkts matchable regex
typed-records srfi-69 srfi-1
srfi-4 regex-case
(prefix sqlite3 sqlite3:)
(chicken foreign)
(chicken sort)
(chicken process-context posix)
|