Overview
| Comment: | tree enabled. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-real-new-runs-view |
| Files: | files | file ages | folders |
| SHA1: |
4f948bab9ee4262eead62c4daab171bf |
| User & Date: | matt on 2021-02-15 22:05:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-17
| ||
| 22:50 | basic widgets in place check-in: 1893d712b7 user: matt tags: v1.65-real-new-runs-view | |
|
2021-02-15
| ||
| 22:05 | tree enabled. check-in: 4f948bab9e user: matt tags: v1.65-real-new-runs-view | |
| 21:46 | New runs view check-in: 6401245dc8 user: matt tags: v1.65-real-new-runs-view | |
Changes
Modified dashboard-new-runs-view.scm from [bca8e9de51] to [d8b00d8358].
| ︙ | ︙ | |||
47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
(lambda (runrec)
(let* ((run-id (simple-run-id runrec))
(full-targ-runname (conc (simple-run-target runrec) "/"
(simple-run-runname runrec))))
(debug:print 0 *default-log-port* "Update run " run-id)
(sparse-vector-set! (dboard:rdat-runs rdat) run-id runrec)
(hash-table-set! (dboard:rdat-targ-runid rdat) full-targ-runname run-id)
))
data)
numruns))
;;======================================================================
;; The "new" runs browser, this one sets up the view and registers the
;; updater
;;
(define (dashboard:runs-browse commondat tabdat #!key (tab-num 5))
(let* ((rdat (make-dboard:rdat)))
(dboard:commondat-add-updater
commondat
(lambda ()
| > | | < < < | < | 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 |
(lambda (runrec)
(let* ((run-id (simple-run-id runrec))
(full-targ-runname (conc (simple-run-target runrec) "/"
(simple-run-runname runrec))))
(debug:print 0 *default-log-port* "Update run " run-id)
(sparse-vector-set! (dboard:rdat-runs rdat) run-id runrec)
(hash-table-set! (dboard:rdat-targ-runid rdat) full-targ-runname run-id)
(tree:add-node tb "Runs" (string-split full-targ-runname "/"))
))
data)
numruns))
;;======================================================================
;; The "new" runs browser, this one sets up the view and registers the
;; updater
;;
(define (dashboard:runs-browse commondat tabdat #!key (tab-num 5))
(let* ((rdat (make-dboard:rdat)))
(dboard:commondat-add-updater
commondat
(lambda ()
(dashboard:new-runs-updater commondat tabdat rdat))
tab-num: tab-num)
(iup:split
#:orientation "VERTICAL"
#:value 150
(iup:vbox
(dboard:runs-tree-new-view-browser commondat rdat))
(iup:split
#:orientation "VERTICAL"
#:value 250
(iup:vbox
(dboard:runs-new-matrix commondat rdat))
(iup:vbox
(iup:matrix))))))
(define (dashboard:new-runs-updater commondat tabdat rdat)
(let* ((runnum (dboard:rdat-runnum rdat))
(start-time (current-milliseconds))
(tot-runs #f))
(if (eq? runnum 0)(dashboard:update-runs-data rdat))
(set! tot-runs (vector-length (dboard:rdat-runsbynum rdat)))
(let loop ((rn runnum))
(if (and (< (- (current-milliseconds) start-time) 250)
(< rn tot-runs))
(let* ((newrn (if (>= runnum (vector-length (dboard:rdat-runsbynum rdat)))
0 ;; start over
(+ rn 1)))) ;; (+ runnum 1)))
(dashboard:update-run-data rn rdat)
(dboard:rdat-runnum-set! rdat newrn)
(if (> newrn 0)
(loop newrn)))))
(if (>= (dboard:rdat-runnum rdat) tot-runs)
(dboard:rdat-runnum-set! rdat 0))
;; (dboard:rdat-runnum-set! rdat rn))) ;; not needed as it is set above
;; (dboard:rdat-last-update-set! rdat (- (current-seconds) 10))
'()))
#;(define (make-runs-view commondat rdat tab-num)
;; register an updater
(dboard:commondat-add-updater
commondat
(lambda ()
|
| ︙ | ︙ |
Modified dashboard.scm from [8ae05c9fa2] to [33886fa835].
| ︙ | ︙ | |||
1825 1826 1827 1828 1829 1830 1831 |
(define (tree-path->run-id tabdat path)
(if (not (null? path))
(hash-table-ref/default (dboard:tabdat-path-run-ids tabdat) path #f)
#f))
(define (new-tree-path->run-id rdat path)
(if (not (null? path))
| | > | 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 |
(define (tree-path->run-id tabdat path)
(if (not (null? path))
(hash-table-ref/default (dboard:tabdat-path-run-ids tabdat) path #f)
#f))
(define (new-tree-path->run-id rdat path)
(if (not (null? path))
(hash-table-ref/default(dboard:rdat-targ-runid rdat) path #f)
;;
#f))
;; (define (dboard:get-tests-dat tabdat run-id last-update)
;; (let* ((access-mode (dboard:tabdat-access-mode tabdat))
;; (tdat (if run-id (db:dispatch-query access-mode rmt:get-tests-for-run db:get-tests-for-run
;; run-id
;; (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "test-name" "%/%")
|
| ︙ | ︙ |