Overview
| Comment: | Beginnings of update of runs tree |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-fixes |
| Files: | files | file ages | folders |
| SHA1: |
bcd244a86bb3807190fdcb7568478d08 |
| User & Date: | matt on 2020-02-29 16:07:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-02-29
| ||
| 18:19 | Pulled in some changes from v1.65 check-in: c12a0cf92c user: matt tags: v1.65-fixes | |
| 16:07 | Beginnings of update of runs tree check-in: bcd244a86b user: matt tags: v1.65-fixes | |
|
2020-02-26
| ||
| 15:08 | wip check-in: 89ffda5553 user: matt tags: v1.65-fixes | |
Changes
Modified dashboard.scm from [5b78fda6a2] to [2a51c77172].
| ︙ | ︙ | |||
1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 |
(iup:vbox
txtbox
tb
))))
;; browse runs as a tree. Used in both "Runs" tab and
;; in the runs control panel.
;;
(define (dboard:runs-tree-new-browser commondat rdat)
(let* ((txtbox (iup:textbox
#:action (lambda (val a b)
(debug:catch-and-dump
(lambda ()
;; for the Runs view we put the list
| > > | 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 |
(iup:vbox
txtbox
tb
))))
;; browse runs as a tree. Used in both "Runs" tab and
;; in the runs control panel.
;;
;; THIS IS THE NEW ONE
;;
(define (dboard:runs-tree-new-browser commondat rdat)
(let* ((txtbox (iup:textbox
#:action (lambda (val a b)
(debug:catch-and-dump
(lambda ()
;; for the Runs view we put the list
|
| ︙ | ︙ | |||
2583 2584 2585 2586 2587 2588 2589 | ;; simple-run-target procedure (x3786) ;; simple-run-target-set! procedure (x3782 val3783) ;; simple-run? procedure (x3780) ;; runs is <vec header runs> ;; (define (dashboard:update-runs-data data rdat) | > | | | | | > > | | < > | | | 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 |
;; simple-run-target procedure (x3786)
;; simple-run-target-set! procedure (x3782 val3783)
;; simple-run? procedure (x3780)
;; runs is <vec header runs>
;;
(define (dashboard:update-runs-data data rdat)
(let* ((tb (dboard:rdat-runs-tree rdat)))
;; update runs id => runrec
;; update targ-runid target/runname => run-id
(for-each
(lambda (runrec)
(let* ((run-id (simple-run-id runrec))
(full-targ-runname (conc (simple-run-target runrec) "/"
(simple-run-runname runrec))))
(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)))
(define (new-runs-updater commondat rdat)
(let* ((last-update (dboard:rdat-last-update rdat))
(targ-sql-filt (dboard:rdat-targ-sql-filt rdat))
(runname-sql-filt (dboard:rdat-runname-sql-filt rdat))
(state-sql-filt (dboard:rdat-state-sql-filt rdat))
(status-sql-filt (dboard:rdat-status-sql-filt rdat))
|
| ︙ | ︙ |