Differences From Artifact [b57f2cb57e]:
- File tasks.scm — part of check-in [cf0372bf78] at 2014-11-06 08:52:45 on branch v1.60 — Added safety net for server start failing, put server kills into log file server-kills.log (user: mrwellan, size: 31181) [annotate] [blame] [check-ins using]
To Artifact [059408bffa]:
- File tasks.scm — part of check-in [faeb319c76] at 2014-11-10 22:31:21 on branch v1.60 — Protected accesses to megatest.db and monitor.db with journal file busy control (user: matt, size: 31277) [annotate] [blame] [check-ins using]
| ︙ | |||
49 50 51 52 53 54 55 56 57 58 59 60 61 62 | 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | + + + |
(define (tasks:get-task-db-path)
(if *task-db*
(vector-ref *task-db* 1)
(let* ((linktree (configf:lookup *configdat* "setup" "linktree"))
(dbpath (conc linktree "/.db/monitor.db")))
dbpath)))
(define (tasks:wait-on-busy-monitor.db)
(tasks:wait-on-journal (tasks:get-task-db-path) 30))
;; If file exists AND
;; file readable
;; ==> open it
;; If file exists AND
;; file NOT readable
;; ==> open in-mem version
;; If file NOT exists
|
| ︙ |