2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
|
(vector-ref inrec 3) ;; item-path
-1 "-" "-"))
;;
;; 1. cache tests-match-qry
;; 2. compile qry and store in hash
;; 3. convert for-each-row to fold
;;
#;(define (db:get-tests-for-run-state-status dbstruct run-id testpatt #!optional (last-update 0))
(db:with-db
dbstruct run-id #f
(lambda (db)
` (let* ((res '())
(stmt-cache (dbr:dbstruct-stmt-cache dbstruct))
|
>
>
|
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
|
(vector-ref inrec 3) ;; item-path
-1 "-" "-"))
;;
;; 1. cache tests-match-qry
;; 2. compile qry and store in hash
;; 3. convert for-each-row to fold
;;
;; THERE IS A BUG IN THIS ONE, MAYBE THE HOH STUFF AIN'T WORKING?
;;
#;(define (db:get-tests-for-run-state-status dbstruct run-id testpatt #!optional (last-update 0))
(db:with-db
dbstruct run-id #f
(lambda (db)
` (let* ((res '())
(stmt-cache (dbr:dbstruct-stmt-cache dbstruct))
|