669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
|
(if (setup-for-run)
(let* ((db #f)
(runpatt (args:get-arg "-list-runs"))
(testpatt (if (args:get-arg "-testpatt")
(args:get-arg "-testpatt")
"%"))
(keys (cdb:remote-run db:get-keys #f))
(runsdat (cdb:remote-run db:get-runs-by-patt #f keys runpatt
(common:args-get-target)
#f #f))
;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
(runs (db:get-rows runsdat))
(header (db:get-header runsdat))
(db-targets (args:get-arg "-list-db-targets"))
(seen (make-hash-table)))
;; Each run
|
|
|
|
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
|
(if (setup-for-run)
(let* ((db #f)
(runpatt (args:get-arg "-list-runs"))
(testpatt (if (args:get-arg "-testpatt")
(args:get-arg "-testpatt")
"%"))
(keys (cdb:remote-run db:get-keys #f))
(runsdat (cdb:remote-run db:get-runs-by-patt #f keys (if runpatt runpatt "%")
(if (args:get-arg "-list-runs")(common:args-get-target) #f)
#f #f))
;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
(runs (db:get-rows runsdat))
(header (db:get-header runsdat))
(db-targets (args:get-arg "-list-db-targets"))
(seen (make-hash-table)))
;; Each run
|