Overview
| Comment: | Force getting some run data |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
fdb15678bf8ff2063fdd86b048606e6d |
| User & Date: | matt on 2016-07-12 01:46:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-07-12
| ||
| 17:49 | Progress on run time display check-in: cd3c0cae4d user: mrwellan tags: v1.61 | |
| 01:46 | Force getting some run data check-in: fdb15678bf user: matt tags: v1.61 | |
| 01:26 | Basics in place for generating run-times display check-in: 0521c27c7e user: matt tags: v1.61 | |
Changes
Modified dashboard.scm from [5911801b61] to [b5a492a3b9].
| ︙ | ︙ | |||
1867 1868 1869 1870 1871 1872 1873 |
(dboard:commondat-please-update-set! commondat #f)
recalc))
(define (dashboard:run-times-tab-updater commondat tab-num)
(let ((tabdat (dboard:common-get-tabdat commondat tab-num: tab-num)))
(if tabdat
(begin
| > | > | | 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 |
(dboard:commondat-please-update-set! commondat #f)
recalc))
(define (dashboard:run-times-tab-updater commondat tab-num)
(let ((tabdat (dboard:common-get-tabdat commondat tab-num: tab-num)))
(if tabdat
(begin
(update-rundat tabdat
"%" ;; (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "runname" "%")
100 ;; (dboard:tabdat-numruns tabdat)
"%" ;; (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "test-name" "%/%")
;; (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "item-name" "%")
(let ((res '()))
(for-each (lambda (key)
(if (not (equal? key "runname"))
(let ((val (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) key #f)))
(if val (set! res (cons (list key val) res))))))
(dboard:tabdat-dbkeys tabdat))
|
| ︙ | ︙ |