209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
(apply sqlite3:execute rputstmt (vector->list rdat))))))
rdats)))
(sqlite3:finalize! rgetstmt)
(sqlite3:finalize! rputstmt))
(if (> rrecchgd 0) (debug:print 0 "synced " rrecchgd " changed records in runs table"))
(if (> trecchgd 0) (debug:print 0 "synced " trecchgd " changed records in tests table"))
(if (> tmrecchgd 0) (debug:print 0 "sync'd " tmrecchgd " changed records in test_meta table"))))
(define (db:sync-back)
(db:sync-to *inmemdb* *db*))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
(debug:print-info 11 "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
|
|
>
|
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
(apply sqlite3:execute rputstmt (vector->list rdat))))))
rdats)))
(sqlite3:finalize! rgetstmt)
(sqlite3:finalize! rputstmt))
(if (> rrecchgd 0) (debug:print 0 "synced " rrecchgd " changed records in runs table"))
(if (> trecchgd 0) (debug:print 0 "synced " trecchgd " changed records in tests table"))
(if (> tmrecchgd 0) (debug:print 0 "sync'd " tmrecchgd " changed records in test_meta table"))
(+ rrecchgd trecchgd tmrecchgd)))
(define (db:sync-back)
(db:sync-to *inmemdb* *db*))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
(debug:print-info 11 "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
|
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
|
runnamepatt)
(vector header res)))
;; use (get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
(define (db:get-run-info db run-id)
;;(if (hash-table-ref/default *run-info-cache* run-id #f)
;; (hash-table-ref *run-info-cache* run-id)
(let* ((res #f)
(keys (db:get-keys db))
(remfields (list "id" "runname" "state" "status" "owner" "event_time"))
(header (append keys remfields))
(keystr (conc (keys->keystr keys) ","
(string-intersperse remfields ","))))
(debug:print-info 11 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
(sqlite3:for-each-row
|
|
|
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
|
runnamepatt)
(vector header res)))
;; use (get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
(define (db:get-run-info db run-id)
;;(if (hash-table-ref/default *run-info-cache* run-id #f)
;; (hash-table-ref *run-info-cache* run-id)
(let* ((res (vector #f #f #f #f))
(keys (db:get-keys db))
(remfields (list "id" "runname" "state" "status" "owner" "event_time"))
(header (append keys remfields))
(keystr (conc (keys->keystr keys) ","
(string-intersperse remfields ","))))
(debug:print-info 11 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
(sqlite3:for-each-row
|