Overview
| Comment: | fixed issues with single columns being fetched from db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-gasket |
| Files: | files | file ages | folders |
| SHA1: |
484ab17aff4b4f3446e6c43a80284c34 |
| User & Date: | srehman on 2016-12-20 16:36:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-21
| ||
| 11:00 | fixed some functions where it's requred to access list Closed-Leaf check-in: 9a7d1c682d user: srehman tags: v1.63-gasket | |
|
2016-12-20
| ||
| 16:36 | fixed issues with single columns being fetched from db check-in: 484ab17aff user: srehman tags: v1.63-gasket | |
| 15:50 | changed more sqlite3 calls to dbi check-in: 750e8df937 user: srehman tags: v1.63-gasket | |
Changes
Modified db.scm from [33e8e7f1ab] to [1ce0aa1a84].
| ︙ | ︙ | |||
1945 1946 1947 1948 1949 1950 1951 |
#f
#f
(lambda (db)
(let ((numruns 0))
(debug:print-info 11 *default-log-port* "db:get-num-runs START " runpatt)
(dbi:for-each-row
(lambda (count)
| | | 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 |
#f
#f
(lambda (db)
(let ((numruns 0))
(debug:print-info 11 *default-log-port* "db:get-num-runs START " runpatt)
(dbi:for-each-row
(lambda (count)
(set! numruns (vector-ref count 0)))
db
"SELECT COUNT(id) FROM runs WHERE runname LIKE ? AND state != 'deleted';" runpatt)
(debug:print-info 11 *default-log-port* "db:get-num-runs END " runpatt)
numruns))))
;; (sqlite3#fold-row proc3670 init3671 db-or-stmt3672 . params3673)>
;;
|
| ︙ | ︙ | |||
2015 2016 2017 2018 2019 2020 2021 |
dbstruct
#f
#f
(lambda (db)
(let ((run-ids '()))
(dbi:for-each-row
(lambda (run-id)
| | | 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 |
dbstruct
#f
#f
(lambda (db)
(let ((run-ids '()))
(dbi:for-each-row
(lambda (run-id)
(set! run-ids (cons (vector-ref run-id 0) run-ids)))
db
"SELECT id FROM runs WHERE state != 'deleted' ORDER BY event_time DESC;")
(reverse run-ids)))))
;; get some basic run stats
;;
;; ( (runname (( state count ) ... ))
|
| ︙ | ︙ | |||
3087 3088 3089 3090 3091 3092 3093 |
(string-split target "/"))
" AND "))
;; (testqry (tests:match->sqlqry testpatt))
(runsqry (dbi:prepare db (conc "SELECT id FROM runs WHERE " keystr " AND runname LIKE '" runname "';"))))
;; (debug:print 8 *default-log-port* "db:test-get-paths-matching-keynames-target-new\n runsqry=" runsqry "\n tstsqry=" testqry)
(dbi:for-each-row
(lambda (rid)
| | | 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 |
(string-split target "/"))
" AND "))
;; (testqry (tests:match->sqlqry testpatt))
(runsqry (dbi:prepare db (conc "SELECT id FROM runs WHERE " keystr " AND runname LIKE '" runname "';"))))
;; (debug:print 8 *default-log-port* "db:test-get-paths-matching-keynames-target-new\n runsqry=" runsqry "\n tstsqry=" testqry)
(dbi:for-each-row
(lambda (rid)
(set! row-ids (cons (vector-ref rid 0) row-ids)))
runsqry)
(dbi:close runsqry)
row-ids))
;; finds latest matching all patts for given run-id
;;
(define (db:test-get-paths-matching-keynames-target-new dbstruct run-id keynames target res testpatt statepatt statuspatt runname)
|
| ︙ | ︙ |