36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
(runname-sql-filt (dboard:rdat-runname-sql-filt rdat))
(state-sql-filt (dboard:rdat-run-state-sql-filt rdat))
(status-sql-filt (dboard:rdat-run-status-sql-filt rdat))
(offset (dboard:rdat-runs-offset rdat))
(count (dboard:rdat-runs-count rdat))
;; Use (db:get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
(data (rmt:simple-get-runs runname-sql-filt count offset targ-sql-filt #f))
(numruns (length data)))
(print "Scan runs, offset: "offset" numruns: "numruns" count: "count)
(if (< numruns count) ;; i.e. there are no more runs to get
(begin
(dboard:rdat-runs-offset-set! rdat 0)) ;; start over
(dboard:rdat-runs-offset-set! rdat
(+ (dboard:rdat-runs-offset rdat) numruns)))
;; store in the runsbynum vector
(dboard:rdat-runsbynum-set! rdat (list->vector data))
;; update runs id => runrec
|
|
>
|
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
(runname-sql-filt (dboard:rdat-runname-sql-filt rdat))
(state-sql-filt (dboard:rdat-run-state-sql-filt rdat))
(status-sql-filt (dboard:rdat-run-status-sql-filt rdat))
(offset (dboard:rdat-runs-offset rdat))
(count (dboard:rdat-runs-count rdat))
;; Use (db:get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
(data #;(rmt:simple-get-runs runname-sql-filt count offset targ-sql-filt #f)
(rmt:simple-get-runs runname-sql-filt #f #f targ-sql-filt #f))
(numruns (length data)))
(print "Scan runs, offset: "offset" numruns: "numruns" count: "count)
#;(if (< numruns count) ;; i.e. there are no more runs to get
(begin
(dboard:rdat-runs-offset-set! rdat 0)) ;; start over
(dboard:rdat-runs-offset-set! rdat
(+ (dboard:rdat-runs-offset rdat) numruns)))
;; store in the runsbynum vector
(dboard:rdat-runsbynum-set! rdat (list->vector data))
;; update runs id => runrec
|