Overview
| Comment: | Added missing file |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f1ab91987ac6fecdba5df22d1922fe0c |
| User & Date: | matt on 2013-11-11 08:22:56 |
| Other Links: | manifest | tags |
Context
|
2013-11-11
| ||
| 14:58 | More stuff converted to api check-in: 43006bbb5a user: mrwellan tags: trunk | |
| 08:22 | Added missing file check-in: f1ab91987a user: matt tags: trunk | |
| 06:07 | Added ability to make in-mem db be on disk for debugging check-in: 80dc29f269 user: matt tags: trunk | |
Changes
Modified db.scm from [1e1638bb1a] to [28e56b9e65].
| ︙ | ︙ | |||
88 89 90 91 92 93 94 |
(db:initialize db))
;; Moving db:set-sync to a call in run.scm - it is a persistent value and only needs to be set once
;; (db:set-sync db)
db))
(define (open-in-mem-db)
(let* ((path (configf:lookup *configdat* "setup" "tmpdb"))
| | | 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 |
(db:initialize db))
;; Moving db:set-sync to a call in run.scm - it is a persistent value and only needs to be set once
;; (db:set-sync db)
db))
(define (open-in-mem-db)
(let* ((path (configf:lookup *configdat* "setup" "tmpdb"))
(fname (if path (conc path "/temp-megatest.db") #f))
(exists (and path (file-exists? fname)))
(db (if path
(begin
(create-directory path #t)
(sqlite3:open-database fname))
(sqlite3:open-database ":memory:"))))
(if (not exists) (db:initialize db))
|
| ︙ | ︙ |