Overview
| Comment: | turn off discard of dbdats |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 |
| Files: | files | file ages | folders |
| SHA1: |
76a1ae19205822b6d3a6255820dd77b1 |
| User & Date: | matt on 2022-08-02 07:17:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-08-02
| ||
| 07:56 | Remove info printing of parallel-api-requests check-in: 4bec7c5319 user: matt tags: v1.70 | |
| 07:17 | turn off discard of dbdats check-in: 76a1ae1920 user: matt tags: v1.70 | |
| 07:16 | Improved message for Run id required asserts check-in: 203b01f1fa user: matt tags: v1.70 | |
Changes
Modified dbfile.scm from [2cf29f02a0] to [9987c907b6].
| ︙ | ︙ | |||
240 241 242 243 244 245 246 | (set! *dbfile:num-handles-in-use* (+ *dbfile:num-handles-in-use* 1)) (stack-pop! (dbr:subdb-dbstack subdb)))))) ;; return a previously opened db handle to the stack of available handles (define (dbfile:add-dbdat dbstruct run-id dbdat) (let* ((subdb (dbfile:get-subdb dbstruct run-id)) (age (- (current-seconds)(dbr:dbdat-birth-sec dbdat)))) | | | 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 |
(set! *dbfile:num-handles-in-use* (+ *dbfile:num-handles-in-use* 1))
(stack-pop! (dbr:subdb-dbstack subdb))))))
;; return a previously opened db handle to the stack of available handles
(define (dbfile:add-dbdat dbstruct run-id dbdat)
(let* ((subdb (dbfile:get-subdb dbstruct run-id))
(age (- (current-seconds)(dbr:dbdat-birth-sec dbdat))))
(if #f ;; (> age 300) ;; just testing - discard and close after 30 sec
(begin
;; (map sqlite3:finalize! (hash-table-values (dbr:dbdat-stmt-cache dbdat)))
;; (sqlite3:finalize! (dbr:dbdat-dbh dbdat))
(dbfile:print-err "INFO: Discarded dbdat over 30 sec old ("age"s)"))
(begin
(set! *dbfile:num-handles-in-use* (- *dbfile:num-handles-in-use* 1))
(stack-push! (dbr:subdb-dbstack subdb) dbdat)))))
|
| ︙ | ︙ |