422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
|
(if (not (file-exists? (conc dest-path "/" rdbname)))
(begin
(create-directory (conc dest-path "/" rdbname "/sxml") #t)
(with-output-to-file (conc dest-path "/" rdbname "/sheet-names.cfg")
(lambda ()(print))))))
'("stepsinfo" "miscinfo"))
(let* ((runs (rmt:simple-get-runs (or runname "%") #f #f (or target "%") 0))
(tests (make-hash-table)) ;; just tests
(fullt (make-hash-table)) ;; all test/items
(testreg (make-hash-table)) ;; for the testconfigs
(stepsrdb (conc dest-path "/stepsinfo"))
(miscrdb (conc dest-path "/miscinfo")))
(if (> (length runs) 1)
(debug:print-info 0 *default-log-port* "More than one run matches, first found data will be used."))
|
|
|
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
|
(if (not (file-exists? (conc dest-path "/" rdbname)))
(begin
(create-directory (conc dest-path "/" rdbname "/sxml") #t)
(with-output-to-file (conc dest-path "/" rdbname "/sheet-names.cfg")
(lambda ()(print))))))
'("stepsinfo" "miscinfo"))
(let* ((runs (rmt:simple-get-runs (or runname "%") #f #f (or target "%") #f))
(tests (make-hash-table)) ;; just tests
(fullt (make-hash-table)) ;; all test/items
(testreg (make-hash-table)) ;; for the testconfigs
(stepsrdb (conc dest-path "/stepsinfo"))
(miscrdb (conc dest-path "/miscinfo")))
(if (> (length runs) 1)
(debug:print-info 0 *default-log-port* "More than one run matches, first found data will be used."))
|