Overview
| Comment: | Remove in mem db for monitor.db - it did not work right in read-only context |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
02c7d8cb87d0874716e4687fab88917f |
| User & Date: | mrwellan on 2014-06-17 10:36:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-06-17
| ||
| 10:50 | Fixed cleanrunexectute to use xterm/override check-in: 920d1e8584 user: mrwellan tags: v1.55, v1.5521 | |
| 10:36 | Remove in mem db for monitor.db - it did not work right in read-only context check-in: 02c7d8cb87 user: mrwellan tags: v1.55 | |
| 00:07 | Added retry on remove when blocked by toplevel with not-yet-removed child tests check-in: 42fa11c691 user: matt tags: v1.55 | |
Changes
Modified tasks.scm from [ce6e1d604e] to [8ae8213233].
| ︙ | ︙ | |||
22 23 24 25 26 27 28 | ;; Tasks db ;;====================================================================== (define (tasks:open-db) (let* ((dbpath (conc *toppath* "/monitor.db")) (exists (file-exists? dbpath)) (write-access (file-write-access? dbpath)) | | | | | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
;; Tasks db
;;======================================================================
(define (tasks:open-db)
(let* ((dbpath (conc *toppath* "/monitor.db"))
(exists (file-exists? dbpath))
(write-access (file-write-access? dbpath))
(mdb ;; (if (file-write-access? *toppath*)
(sqlite3:open-database dbpath))
;; (sqlite3:open-database ":memory:"))) ;; (never-give-up-open-db dbpath))
(handler (make-busy-timeout 36000)))
(if (and exists
(not write-access))
(set! *db-write-access* write-access)) ;; only unset so other db's also can use this control
(sqlite3:set-busy-handler! mdb handler)
(sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
(if (not exists)
|
| ︙ | ︙ |