98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
typed-records
udp
uri-common
z3
)
(use (prefix mtconfigf configf:))
(import canvas-draw-iup spiffy)
;; (import apimod)
;; (import archivemod)
;; (import clientmod)
|
>
>
>
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
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 canvas-draw-iup spiffy)
;; (import apimod)
;; (import archivemod)
;; (import clientmod)
|
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
(common:watchdog)))
"Watchdog thread"))
(include "api-inc.scm")
(include "archive-inc.scm")
(include "client-inc.scm")
(include "common-inc.scm")
(include "configf-inc.scm")
(include "db-inc.scm")
(include "dcommon-inc.scm")
(include "dashboard-tests-inc.scm")
(include "env-inc.scm")
(include "ezsteps-inc.scm")
(include "gutils-inc.scm")
(include "http-transport-inc.scm")
|
|
|
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
(common:watchdog)))
"Watchdog thread"))
(include "api-inc.scm")
(include "archive-inc.scm")
(include "client-inc.scm")
(include "common-inc.scm")
;; (include "configf-inc.scm")
(include "db-inc.scm")
(include "dcommon-inc.scm")
(include "dashboard-tests-inc.scm")
(include "env-inc.scm")
(include "ezsteps-inc.scm")
(include "gutils-inc.scm")
(include "http-transport-inc.scm")
|