Megatest

Check-in [bcd244a86b]
Login
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: bcd244a86bb3807190fdcb7568478d084fc719ac
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
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

2590
2591
2592
2593
2594
2595
2596









2597
2598
2599



2600
2601
2602
2603
2604
2605
2606
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)))
       (sparse-vector-set! (dboard:rdat-runs rdat) run-id runrec)
       (hash-table-set! (dboard:rdat-targ-runid 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)
			(conc (simple-run-target runrec) "/" (simple-run-runname runrec))
			run-id)))
   data))
	 (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))