Megatest

Check-in [bd42d6502d]
Login
Overview
Comment:odd dredges of code - bad merge?
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-real-new-runs-view-wip
Files: files | file ages | folders
SHA1: bd42d6502d3d266a38cebd30e40807a3fb24e4c9
User & Date: mrwellan on 2021-02-22 19:02:55
Other Links: branch diff | manifest | tags
Context
2021-02-23
20:06
Merged real-new-runs-view check-in: f21ad6e7f5 user: matt tags: v1.65-real-new-runs-view-wip (unpublished)
2021-02-22
19:02
odd dredges of code - bad merge? check-in: bd42d6502d user: mrwellan tags: v1.65-real-new-runs-view-wip (unpublished)
18:56
Fixed/tweaked more deps. check-in: 07b32b8669 user: mrwellan tags: v1.65-real-new-runs-view-wip (unpublished)
Changes

Modified dashboard.scm from [6d6c48afd4] to [a8b0fa0188].

196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
;;     (begin
;;       (debug:print-info 0 *default-log-port* "Forcing db-cache mode due to read-only access to megatest.db")
;;       (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
;;)

;; data common to all tabs in dboard:commondat struct moved to dcommonmod
  ;; data from sql db
(keys       (rmt:get-keys))         ;; to be removed when targets handling is r

;; RA => returns the tabdat stored at hashkey passed in commondat-tabdats table (e.g. 0 gives summary)
;;
(define (dboard:common-get-tabdat commondat #!key (tab-num #f))
  (let* ((tnum (or tab-num
		   (dboard:commondat-curr-tab-num commondat)
		   0)) ;; tab-num value is curr-tab-num value in passed commondat







|







196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
;;     (begin
;;       (debug:print-info 0 *default-log-port* "Forcing db-cache mode due to read-only access to megatest.db")
;;       (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
;;)

;; data common to all tabs in dboard:commondat struct moved to dcommonmod
  ;; data from sql db
;; (keys       (rmt:get-keys))         ;; to be removed when targets handling is r

;; RA => returns the tabdat stored at hashkey passed in commondat-tabdats table (e.g. 0 gives summary)
;;
(define (dboard:common-get-tabdat commondat #!key (tab-num #f))
  (let* ((tnum (or tab-num
		   (dboard:commondat-curr-tab-num commondat)
		   0)) ;; tab-num value is curr-tab-num value in passed commondat