35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
-
-
-
+
+
+
-
+
+
+
+
-
-
+
+
-
+
+
+
+
+
|
(declare (uses dbi))
(declare (uses pkts))
(declare (uses stml2))
(declare (uses cookie))
(declare (uses csv-xml))
(declare (uses hostinfo))
(declare (uses mutils))
(declare (uses ducttape-lib))
(declare (uses mtargs))
(declare (uses adjutant))
(declare (uses archivemod))
(declare (uses apimod))
(declare (uses commonmod))
(declare (uses apimod))
(declare (uses configfmod))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses ezstepsmod))
(declare (uses http-transportmod))
(declare (uses rmtmod))
(declare (uses servermod))
(declare (uses launchmod))
(declare (uses mtargs))
(declare (uses mtver))
(declare (uses adjutant))
(declare (uses mutils))
(declare (uses processmod))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses servermod))
(declare (uses testsmod))
;; (include "call-with-environment-variables/call-with-environment-variables.scm")
(module megatest-main
*
(import scheme
|
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
+
+
+
+
+
+
+
+
-
-
+
+
|
ducttape-lib
mtargs
pkts
stml2
(prefix dbi dbi:)
apimod
archivemod
commonmod
configfmod
dbmod
debugprint
ezstepsmod
http-transportmod
launchmod
processmod
rmtmod
runsmod
servermod
debugprint
processmod
tasksmod
testsmod
)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define setenv set-environment-variable!)
(define unsetenv unset-environment-variable!)
|