Megatest

Check-in [fdb15678bf]
Login
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: fdb15678bf8ff2063fdd86b048606e6d049ecc3a
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

1874
1875



1876
1877
1878
1879
1880
1881
1882
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
	  (update-rundat tabdat (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "runname" "%") (dboard:tabdat-numruns tabdat)
			 (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "test-name" "%/%")
			 "%" ;; (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))