Megatest

Check-in [458bd9aea8]
Login
Overview
Comment:cherrypicked change to fix args to db:caution-open-database
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80 | v1.8006
Files: files | file ages | folders
SHA1: 458bd9aea8dc2b1ace59522fb56dfc43df7d899a
User & Date: mmgraham on 2023-01-22 17:48:32
Other Links: branch diff | manifest | tags
Context
2023-01-26
04:01
Added some reference docs on servers check-in: f6037c5e9e user: matt tags: v1.80
2023-01-22
17:48
cherrypicked change to fix args to db:caution-open-database check-in: 458bd9aea8 user: mmgraham tags: v1.80, v1.8006
16:58
Uncommented (remote-conndat runremote) to fix crash when dashboard left idle check-in: 610857aa28 user: mmgraham tags: v1.80
Changes

Modified dbfile.scm from [5825d84245] to [ec0a32b2ce].

334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
	 (delay-time (* (- 51 tries-left) 1.1))
      	 (write-access (file-write-access? fname))
         (dir-access (file-write-access? (pathname-directory fname)))
         (retry      (lambda ()
		       (thread-sleep! delay-time)
		       (if (> tries-left 0)
			   (dbfile:cautious-open-database fname init-proc
							  sync-mode: sync-mode journal-mode
							  (- tries-left 1))))))
    (assert (>= tries-left 0) (conc "FATAL: too many attempts in dbfile:cautious-open-database of "fname", giving up."))
    
    (if (and (file-write-access? fname)
	     (file-exists? busy-file))
	(begin
	  (if (common:low-noise-print 120 busy-file)







|







334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
	 (delay-time (* (- 51 tries-left) 1.1))
      	 (write-access (file-write-access? fname))
         (dir-access (file-write-access? (pathname-directory fname)))
         (retry      (lambda ()
		       (thread-sleep! delay-time)
		       (if (> tries-left 0)
			   (dbfile:cautious-open-database fname init-proc
							  sync-mode journal-mode
							  (- tries-left 1))))))
    (assert (>= tries-left 0) (conc "FATAL: too many attempts in dbfile:cautious-open-database of "fname", giving up."))
    
    (if (and (file-write-access? fname)
	     (file-exists? busy-file))
	(begin
	  (if (common:low-noise-print 120 busy-file)