Overview
| Comment: | Remove dotlock from opening dbs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
3ebddba754fab357d64cd13d0bec91f9 |
| User & Date: | mrwellan on 2015-05-28 09:55:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-05-28
| ||
| 22:55 | Merged check-in: 065043b224 user: matt tags: v1.60 | |
| 09:55 | Remove dotlock from opening dbs check-in: 3ebddba754 user: mrwellan tags: v1.60 | |
| 09:02 | Completed -since support and reversed order of runs in the stats summary table check-in: b0d737abcc user: mrwellan tags: v1.60 | |
Changes
Modified db.scm from [2f7bc00249] to [74bdf209e7].
| ︙ | ︙ | |||
172 173 174 175 176 177 178 |
(let* ((parent-dir (pathname-directory fname))
(dir-writable (file-write-access? parent-dir))
(file-exists (file-exists? fname))
(file-write (if file-exists
(file-write-access? fname)
dir-writable )))
(if file-write ;; dir-writable
| | | | 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 |
(let* ((parent-dir (pathname-directory fname))
(dir-writable (file-write-access? parent-dir))
(file-exists (file-exists? fname))
(file-write (if file-exists
(file-write-access? fname)
dir-writable )))
(if file-write ;; dir-writable
(let (;; (lock (obtain-dot-lock fname 1 5 10))
(db (sqlite3:open-database fname)))
(sqlite3:set-busy-handler! db (make-busy-timeout 136000))
(db:set-sync db) ;; (sqlite3:execute db "PRAGMA synchronous = 0;")
(if (not file-exists)(initproc db))
;; (release-dot-lock fname)
db)
(begin
(debug:print 0 "ERROR: no such db in non-writable dir " fname)
(sqlite3:open-database fname))))) ;; )
;; This routine creates the db. It is only called if the db is not already opened
;;
|
| ︙ | ︙ |