| ︙ | | | ︙ | |
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
;; (declare (uses runconfigmod))
(declare (uses runsmod))
;; (declare (uses servermod))
;; (declare (uses subrunmod))
;; (declare (uses tasksmod))
(declare (uses testsmod))
;; (declare (uses vgmod))
(module megamod
*
(import scheme chicken data-structures extras)
(use
(prefix base64 base64:)
|
>
>
>
>
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
;; (declare (uses runconfigmod))
(declare (uses runsmod))
;; (declare (uses servermod))
;; (declare (uses subrunmod))
;; (declare (uses tasksmod))
(declare (uses testsmod))
;; (declare (uses vgmod))
(declare (uses pkts))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses ducttape-lib))
(module megamod
*
(import scheme chicken data-structures extras)
(use
(prefix base64 base64:)
|
| ︙ | | | ︙ | |
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
http-client
intarweb
irregex
matchable
md5
message-digest
pathname-expand
pkts
ports
posix
;; queue
regex
regex-case
s11n
sparse-vectors
|
|
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
http-client
intarweb
irregex
matchable
md5
message-digest
pathname-expand
;; pkts
ports
posix
;; queue
regex
regex-case
s11n
sparse-vectors
|
| ︙ | | | ︙ | |
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
tcp
typed-records
udp
uri-common
z3
)
(use (prefix mtconfigf configf:))
(define read-config configf:read-config)
(define find-and-read-config configf:find-and-read-config)
(define config:eval-string-in-environment configf:eval-string-in-environment)
(import spiffy)
;; (import apimod)
|
|
|
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
tcp
typed-records
udp
uri-common
z3
)
(import (prefix mtconfigf configf:))
(define read-config configf:read-config)
(define find-and-read-config configf:find-and-read-config)
(define config:eval-string-in-environment configf:eval-string-in-environment)
(import spiffy)
;; (import apimod)
|
| ︙ | | | ︙ | |
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
;; (import runconfigmod)
(import runsmod)
;; (import servermod)
;; (import subrunmod)
;; (import tasksmod)
(import testsmod)
;; (import vgmod)
(use (prefix ulex ulex:))
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
(include "run_records.scm")
|
>
>
>
|
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
;; (import runconfigmod)
(import runsmod)
;; (import servermod)
;; (import subrunmod)
;; (import tasksmod)
(import testsmod)
;; (import vgmod)
(import pkts)
(import (prefix mtargs args:))
(import ducttape-lib)
(use (prefix ulex ulex:))
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
(include "run_records.scm")
|
| ︙ | | | ︙ | |
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
(include "common-inc.scm") ;; L5
(include "db-inc.scm") ;; L4
(include "env-inc.scm")
(include "http-transport-inc.scm")
(include "items-inc.scm")
;; (include "keys-inc.scm")
(include "launch-inc.scm") ;; L1
(include "margs-inc.scm")
(include "mt-inc.scm")
(include "ods-inc.scm") ;; L1
(include "pgdb-inc.scm")
(include "portlogger-inc.scm")
(include "process-inc.scm") ;; L6
(include "rmt-inc.scm") ;; L2
(include "runconfig-inc.scm")
|
|
|
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
(include "common-inc.scm") ;; L5
(include "db-inc.scm") ;; L4
(include "env-inc.scm")
(include "http-transport-inc.scm")
(include "items-inc.scm")
;; (include "keys-inc.scm")
(include "launch-inc.scm") ;; L1
;; (include "margs-inc.scm")
(include "mt-inc.scm")
(include "ods-inc.scm") ;; L1
(include "pgdb-inc.scm")
(include "portlogger-inc.scm")
(include "process-inc.scm") ;; L6
(include "rmt-inc.scm") ;; L2
(include "runconfig-inc.scm")
|
| ︙ | | | ︙ | |