Megatest

Check-in [0dd13b4980]
Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-refactor02 | v1.70-defunct-try
Files: files | file ages | folders
SHA1: 0dd13b49806d104d69a53a8c40bc4cf592ea126d
User & Date: mrwellan on 2019-12-31 12:24:45
Other Links: branch diff | manifest | tags
Context
2019-12-31
13:06
wip check-in: 39164c1a21 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
12:24
wip check-in: 0dd13b4980 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
11:13
wip check-in: 54c85dfff6 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
Changes

Modified launchmod.scm from [1cbe901dd1] to [317d9c947e].

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;======================================================================

(declare (unit launchmod))

(declare (uses commonmod))
;; (declare (uses rmtmod))
;; (declare (uses mtconfigf))
;; (declare (uses testsmod))
;; (declare (uses mtargs))
;; (declare (uses subrunmod))
;; (declare (uses dbmod))

(module launchmod
	*
	
(import scheme chicken data-structures extras files)
(import (prefix sqlite3 sqlite3:) posix typed-records
	srfi-18 srfi-69 format ports srfi-1 matchable
	z3 (prefix base64 base64:) regex
	call-with-environment-variables csv)
(import commonmod)
;; (import rmtmod)
;; (import (prefix mtconfigf configf:))
;; (import testsmod)
;; (import (prefix mtargs args:))
;; (import subrunmod)
;; (import dbmod)
;; 
;; ;; (use (prefix ulex ulex:))
;; 
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "run_records.scm")
)







<
<
<
<
<
<










|
<
<
<
<
<
<
<
<
<
<
<

17
18
19
20
21
22
23






24
25
26
27
28
29
30
31
32
33
34











35
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;======================================================================

(declare (unit launchmod))

(declare (uses commonmod))







(module launchmod
	*
	
(import scheme chicken data-structures extras files)
(import (prefix sqlite3 sqlite3:) posix typed-records
	srfi-18 srfi-69 format ports srfi-1 matchable
	z3 (prefix base64 base64:) regex
	call-with-environment-variables csv)
(import commonmod)












)

Modified megamod.scm from [e5bfc454fa] to [2105b4eb5b].

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
(declare (uses mtmod))
(declare (uses servermod))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses subrunmod))
(declare (uses itemsmod))
(declare (uses runsmod))
;; (declare (uses archivemod))
;; (declare (uses clientmod))
;; (declare (uses dcommonmod))
;; (declare (uses envmod))
;; (declare (uses ezstepsmod))
;; (declare (uses ftail))
;; (declare (uses keysmod))
;; (declare (uses launchmod))
;; (declare (uses processmod))
;; (declare (uses runconfigmod))
;; (declare (uses subrunmod))
;; (declare (uses vgmod))

(module megamod
	*
	
(import scheme chicken data-structures extras)
(use 
 (prefix base64 base64:)







<
<
<
<
<
<
<
<
<
<
<
<







37
38
39
40
41
42
43












44
45
46
47
48
49
50
(declare (uses mtmod))
(declare (uses servermod))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses subrunmod))
(declare (uses itemsmod))
(declare (uses runsmod))













(module megamod
	*
	
(import scheme chicken data-structures extras)
(use 
 (prefix base64 base64:)
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
(import rmtmod)
(import mtmod)
(import testsmod)
(import servermod)
(import subrunmod)
(import itemsmod)
(import runsmod)
;; (import archivemod)
;; (import clientmod)
;; (import dcommonmod)
;; (import envmod)
;; (import ezstepsmod)
;; (import ftail)
;; (import keysmod)
;; (import launchmod)
;; (import odsmod)
;; (import processmod)
;; (import runconfigmod)
;; (import subrunmod)
;; (import vgmod)

;; (use (prefix ulex ulex:))

(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
(include "run_records.scm")







<
<
<
<
<
<
<
<
<
<
<
<
<







117
118
119
120
121
122
123













124
125
126
127
128
129
130
(import rmtmod)
(import mtmod)
(import testsmod)
(import servermod)
(import subrunmod)
(import itemsmod)
(import runsmod)














;; (use (prefix ulex ulex:))

(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
(include "run_records.scm")
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213

(include "archive-inc.scm")  
(include "client-inc.scm")
(include "env-inc.scm")
(include "portlogger-inc.scm")
(include "process-inc.scm")    ;; L6
(include "runconfig-inc.scm")
;; (include "api-inc.scm")       ;; L3 
;; (include "common-inc.scm")    ;; L5
;; (include "db-inc.scm")        ;; L4
;; (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 "rmt-inc.scm")        ;; L2
;; (include "runs-inc.scm")       ;; L1.5
;; (include "server-inc.scm")
;; (include "subrun-inc.scm")
;; (include "tasks-inc.scm")
;; (include "tdb-inc.scm")
;; (include "tests-inc.scm")

;; (include "js-path.scm") ;; moved into init procedure in tests-inc.scm

)
;; http-transport:server-dat definition moved to common_records.scm
;; bunch of small functions factored out of send-receive to make debug easier







<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<




158
159
160
161
162
163
164




















165
166
167
168

(include "archive-inc.scm")  
(include "client-inc.scm")
(include "env-inc.scm")
(include "portlogger-inc.scm")
(include "process-inc.scm")    ;; L6
(include "runconfig-inc.scm")





















)
;; http-transport:server-dat definition moved to common_records.scm
;; bunch of small functions factored out of send-receive to make debug easier