282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
(define (std-exit-procedure)
;; (let ((dbpath (db:dbfile-path run-id))
;; (lockf (conc dbpath "/." run-id ".lck")))
;; (common:simple-file-lock lockf)
;; (db:multi-db-sync (list run-id) 'new2old)
;; (common:simple-file-release-lock lockf))
(let* ((dbpath (db:dbfile-path run-id))
(lockf (conc dbpath "/." run-id ".lck"))
(no-hurry (if *time-to-exit* ;; hurry up
#f
(begin
(set! *time-to-exit* #t)
#t))))
(debug:print-info 4 "starting exit process, finalizing databases.")
(if (and no-hurry (debug:debug-mode 18))
|
|
|
|
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
(define (std-exit-procedure)
;; (let ((dbpath (db:dbfile-path run-id))
;; (lockf (conc dbpath "/." run-id ".lck")))
;; (common:simple-file-lock lockf)
;; (db:multi-db-sync (list run-id) 'new2old)
;; (common:simple-file-release-lock lockf))
(let* ((dbpath (db:dbfile-path #f))
(lockf (conc dbpath "/.megatest.lck"))
(no-hurry (if *time-to-exit* ;; hurry up
#f
(begin
(set! *time-to-exit* #t)
#t))))
(debug:print-info 4 "starting exit process, finalizing databases.")
(if (and no-hurry (debug:debug-mode 18))
|