153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
;; (filedb:get-path db id)))
;; NB// #f => return dbdir only
;; (was planned to be; zeroth db with name=main.db)
;;
;; If run-id is #f return to create and retrieve the path where the db will live.
;;
(define (db:dbfile-path) ;; run-id)
(let* ((dbdir (common:get-db-tmp-area))) ;; (db:get-dbdir))
;; (fname (if run-id
;; (if (eq? run-id 0) "main.db" (conc run-id ".db"))
;; #f)))
(handle-exceptions
exn
(begin
|
|
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
;; (filedb:get-path db id)))
;; NB// #f => return dbdir only
;; (was planned to be; zeroth db with name=main.db)
;;
;; If run-id is #f return to create and retrieve the path where the db will live.
;;
(define (db:dbfile-path . junk) ;; run-id)
(let* ((dbdir (common:get-db-tmp-area))) ;; (db:get-dbdir))
;; (fname (if run-id
;; (if (eq? run-id 0) "main.db" (conc run-id ".db"))
;; #f)))
(handle-exceptions
exn
(begin
|