20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(declare (unit tcp-transportmod))
(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses dbfile))
(declare (uses dbmod))
(declare (uses portlogger))
(use address-info tcp)
(module tcp-transportmod
*
(import scheme)
|
>
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(declare (unit tcp-transportmod))
(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses dbfile))
(declare (uses dbmod))
(declare (uses portlogger))
(declare (uses mtmod))
(use address-info tcp)
(module tcp-transportmod
*
(import scheme)
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
typed-records
tcp-server
debugprint
commonmod
dbfile
dbmod
portlogger
)
;;======================================================================
;; client
;;======================================================================
|
>
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
typed-records
tcp-server
debugprint
commonmod
dbfile
dbmod
mtmod
portlogger
)
;;======================================================================
;; client
;;======================================================================
|