Megatest

Differences From Artifact [88ea4fc563]:

• File dbmod.scm — part of check-in [6c641b6f76] at 2023-05-22 11:47:51 on branch v1.80 — Added exception handlers back - within threads they have to be dealth with. Added handling of busy exception and it seems to be working better (buy not enough testing yet to be sure). (user: matt, size: 33903) [annotate] [blame] [check-ins using]

To Artifact [a5cc78531f]:

• File dbmod.scm — part of check-in [e799a787ef] at 2023-05-22 20:41:51 on branch v1.80 — One failure to get lock to open db go ahead and try, reset counters of api calls using count of threads, some threads might die and are unable to unregister themselves. (user: matt, size: 33921) [annotate] [blame] [check-ins using]

173
174
175
176
177
178
179
180

181
182
183
184
185
186
187

     (let* ((dbexists (file-exists? dbfullname))
	    (db       (sqlite3:open-database dbfullname))
	    (handler  (sqlite3:make-busy-timeout 136000)))
       (sqlite3:set-busy-handler! db handler)
       (if (and dbexists
		write-access)
	   (init-proc db))
       db))))


(define *sync-in-progress* #f)

;; Open the cachedb db and the on-disk db
;; populate the cachedb db with data
;;
;; Updates fields in dbstruct

|
>

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188

     (let* ((dbexists (file-exists? dbfullname))
	    (db       (sqlite3:open-database dbfullname))
	    (handler  (sqlite3:make-busy-timeout 136000)))
       (sqlite3:set-busy-handler! db handler)
       (if (and dbexists
		write-access)
	   (init-proc db))
       db))
   run-anyway: #t))

(define *sync-in-progress* #f)

;; Open the cachedb db and the on-disk db
;; populate the cachedb db with data
;;
;; Updates fields in dbstruct