461
462
463
464
465
466
467
468
469
470
471
472
473
474
|
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
|
+
+
|
(retry))
(exn (permission)(dbfile:print-err exn "ERROR: database " fname " has some permissions problem.")
(retry))
(exn ()
(dbfile:print-err exn "ERROR: Unknown error with database " fname " message: "
((condition-property-accessor 'exn 'message) exn))
(retry)))))
;; (if (file-write-access? fname) -- stuff lost in merge, what was here?
;; )
(define (dbfile:open-no-sync-db dbpath)
(if (not (file-exists? dbpath))
(create-directory dbpath #t))
(let* ((dbname (conc dbpath "/no-sync.db"))
(db-exists (file-exists? dbname))
(db (dbfile:cautious-open-database dbname)))
|
551
552
553
554
555
556
557
558
559
560
|
553
554
555
556
557
558
559
560
561
|
-
+
-
|
(file-list (if (eq? 0 (length glob-list))
'("/no/such/file")
glob-list)))
(apply max
(map
dbfile:lazy-modification-time
file-list))))
)
)
|