261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
|
;;======================================================================
(if (args:get-arg "-env2file")
(begin
(save-environment-as-files (args:get-arg "-env2file"))
(set! *didsomething* #t)))
(if (args:get-arg "-list-targets")
(print (string-intersperse
(sort (map car (hash-table->alist
(read-config "runconfigs.config"
(make-hash-table) #f))) string<?) "\n")))
(if (args:get-arg "-list-disks")
(print (string-intersperse
(map cadr (hash-table-ref/default
(read-config "megatest.config" #f #t)
"disks" "'"
("none" ""))) "\n")))
;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;; we start the server if not running else start the client thread
;;======================================================================
(if (args:get-arg "-server")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
|
;;======================================================================
(if (args:get-arg "-env2file")
(begin
(save-environment-as-files (args:get-arg "-env2file"))
(set! *didsomething* #t)))
;; (if (args:get-arg "-list-targets")
;; (print (string-intersperse
;; (sort (map car (hash-table->alist
;; (read-config "runconfigs.config"
;; (make-hash-table) #f))) string<?) "\n")))
;;
;;
;; (if (args:get-arg "-list-disks")
;; (print (string-intersperse
;; (map cadr (hash-table-ref/default
;; (read-config "megatest.config" #f #t)
;; "disks" "'"
;; ("none" ""))) "\n")))
;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;; we start the server if not running else start the client thread
;;======================================================================
(if (args:get-arg "-server")
|