43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(declare (uses tree))
(declare (uses dcommon))
(declare (uses dashboard-context-menu))
(declare (uses vg))
(declare (uses subrun))
(declare (uses mt))
(declare (uses dbfile))
(declare (uses debugprint))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "megatest-version.scm")
(include "megatest-fossil-hash.scm")
|
|
|
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(declare (uses tree))
(declare (uses dcommon))
(declare (uses dashboard-context-menu))
(declare (uses vg))
(declare (uses subrun))
(declare (uses mt))
(declare (uses dbfile))
;; (declare (uses debugprint))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "megatest-version.scm")
(include "megatest-fossil-hash.scm")
|
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
|
3)))
(define (get-curr-sort)
(vector-ref *tests-sort-options* *tests-sort-reverse*))
;;======================================================================
(debug:setup)
;; (define uidat #f)
(define-inline (dboard:uidat-get-keycol vec)(vector-ref vec 0))
(define-inline (dboard:uidat-get-lftcol vec)(vector-ref vec 1))
(define-inline (dboard:uidat-get-header vec)(vector-ref vec 2))
(define-inline (dboard:uidat-get-runsvec vec)(vector-ref vec 3))
|
|
|
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
|
3)))
(define (get-curr-sort)
(vector-ref *tests-sort-options* *tests-sort-reverse*))
;;======================================================================
(debug:setup (args:get-arg "-debug")(args:get-arg "-debug-noprop"))
;; (define uidat #f)
(define-inline (dboard:uidat-get-keycol vec)(vector-ref vec 0))
(define-inline (dboard:uidat-get-lftcol vec)(vector-ref vec 1))
(define-inline (dboard:uidat-get-header vec)(vector-ref vec 2))
(define-inline (dboard:uidat-get-runsvec vec)(vector-ref vec 3))
|