187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
+
|
"-lock"
"-unlock"
"-list-servers"
;; mist queries
"-list-disks"
"-list-targets"
"-list-db-targets"
"-show-runconfig"
;; queries
"-test-paths" ;; get path(s) to a test, ordered by youngest first
"-runall" ;; run all tests
"-remove-runs"
"-usequeue"
"-rebuild-db"
|
347
348
349
350
351
352
353
354
355
356
357
358
359
360
|
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
|
+
+
+
+
|
(let ((targets (common:get-runconfig-targets)))
(print "Found "(length targets) " targets")
(for-each (lambda (x)
(print "[" x "]"))
targets)
(set! *didsomething* #t)))
(if (args:get-arg "-show-runconfig")
(begin
(pp (hash-table->alist (open-run-close setup-env-defaults #f "runconfigs.config" #f #f change-env: #f)))
(set! *didsomething* #t)))
;;======================================================================
;; Remove old run(s)
;;======================================================================
;; since several actions can be specified on the command line the removal
;; is done first
|