21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
+
+
+
+
+
|
(declare (unit dcommonmod))
(declare (uses commonmod))
(declare (uses testsmod))
(declare (uses megamod))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses gutilsmod))
(declare (uses subrunmod))
(declare (uses runsmod))
(declare (uses rmtmod))
(declare (uses dbmod))
(declare (uses servermod))
(module dcommonmod
*
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:)
posix typed-records srfi-18 srfi-69 format ports srfi-1
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
+
+
+
+
+
-
+
-
+
|
)
(import (prefix mtconfigf configf:))
(import gutilsmod)
(import commonmod)
(import testsmod)
(import megamod)
(import subrunmod)
(import runsmod)
(import rmtmod)
(import dbmod)
(import servermod)
(import canvas-draw)
(import canvas-draw-iup)
(use (prefix iup iup:))
(import (prefix mtargs args:))
(define *tim* (iup:timer))
;; (use (prefix ulex ulex:))
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "test_records.scm")
(include "vg_records.scm")
(include "dcommon-inc.scm")
;; (include "gutils-inc.scm")
;;;; (include "gutils-inc.scm")
)
|