Overview
| Comment: | Commented out line used for debugging |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62-side |
| Files: | files | file ages | folders |
| SHA1: |
d37abcb490b67c433245836532a2477e |
| User & Date: | matt on 2016-10-31 23:17:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-11-04
| ||
| 11:06 | Added typed-records to common.scm. Minor typo fixes. Added shm and wal to files to check timestamps on for dashboard refresh check-in: 7b2f541448 user: matt tags: v1.62-side | |
|
2016-10-31
| ||
| 23:17 | Commented out line used for debugging check-in: d37abcb490 user: matt tags: v1.62-side | |
| 09:55 | Bring in working parts of cached-db to v1.62 check-in: efa4004401 user: mrwellan tags: v1.62-side | |
Changes
Modified db.scm from [843bf5a690] to [e160ad8993].
| ︙ | ︙ | |||
811 812 813 814 815 816 817 |
(if (eq? access-mode 'cached)
(apply db:call-with-cached-db db-cmd params)
(apply rmt-cmd params)))
;; return the target db handle so it can be used
;;
(define (db:cache-for-read-only source target #!key (use-last-update #f))
| | | 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 |
(if (eq? access-mode 'cached)
(apply db:call-with-cached-db db-cmd params)
(apply rmt-cmd params)))
;; return the target db handle so it can be used
;;
(define (db:cache-for-read-only source target #!key (use-last-update #f))
;; (common:sync-to-megatest.db #t) ;; BUG!! DON'T LEAVE THIS HERE!
(if (and (hash-table-ref/default *global-db-store* target #f)
(>= (file-modification-time target)(file-modification-time source)))
(hash-table-ref *global-db-store* target)
(let* ((toppath (launch:setup))
(targ-db-last-mod (if (file-exists? target)
(file-modification-time target)
0))
|
| ︙ | ︙ |