Megatest

Check-in [3dd33d4cce]
Login
Overview
Comment:made wal mode optional
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: 3dd33d4cce8391ad0ad76c07d89dae0b2ab74d1f
User & Date: bjbarcla on 2017-03-01 15:36:30
Other Links: branch diff | manifest | tags
Context
2017-03-01
19:10
fixed issue for elena (0 byte megatest.db on make setup) check-in: 880cbf2fca user: bjbarcla tags: v1.63, 1.6309a
18:57
bugfixed check-in: 983192e6e6 user: bjbarcla tags: v1.63-elena
15:36
made wal mode optional check-in: 3dd33d4cce user: bjbarcla tags: v1.63
15:35
reversed polarity of walmode Closed-Leaf check-in: e6ea5fd0f3 user: bjbarcla tags: v1.63-no-wal
2017-02-23
16:41
bumped version check-in: 738c84b513 user: bjbarcla tags: v1.63, v1.6309
Changes

Modified db.scm from [08ea3af600] to [a86510f3f3].

218
219
220
221
222
223
224
225

226
227
228
229
230
231
232
233
    (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)
	      (begin

		(if (string-match "^/tmp/.*" fname) ;; this is a file in /tmp
		    (sqlite3:execute db "PRAGMA journal_mode=WAL;")
		    (print "Creating " fname " in NON-WAL mode."))
		(initproc db)))
	  ;; (release-dot-lock fname)
	  db)
	(begin
	  (debug:print 2 *default-log-port* "WARNING: opening db in non-writable dir " fname)







|
>
|







218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
    (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)
              (begin
		(if (and (configf:lookup *configdat* "setup" "use-wal")
                         (string-match "^/tmp/.*" fname)) ;; this is a file in /tmp
		    (sqlite3:execute db "PRAGMA journal_mode=WAL;")
		    (print "Creating " fname " in NON-WAL mode."))
		(initproc db)))
	  ;; (release-dot-lock fname)
	  db)
	(begin
	  (debug:print 2 *default-log-port* "WARNING: opening db in non-writable dir " fname)