136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
;; (let ((fdb (db:get-filedb dbstruct)))
;; (filedb:get-path db id)))
;; NB// #f => return dbdir only
;; (was planned to be; zeroth db with name=main.db)
;;
(define (db:dbfile-path run-id area-dat)
(let* ((dbdir (or (configf:lookup *configdat* "setup" "dbdir")
(configdat (megatest:area-configdat area-dat))
|
<
|
>
>
|
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
;; (let ((fdb (db:get-filedb dbstruct)))
;; (filedb:get-path db id)))
;; NB// #f => return dbdir only
;; (was planned to be; zeroth db with name=main.db)
;;
(define (db:dbfile-path run-id area-dat)
(let* ((configdat (megatest:area-configdat area-dat))
(dbdir (or (configf:lookup configdat "setup" "dbdir")
(conc (configf:lookup configdat "setup" "linktree") "/.db")))
(toppath (megatest:area-path area-dat))
(link-tree-path (configf:lookup configdat "setup" "linktree"))
(dbpath (configf:lookup configdat "setup" "dbdir"))
(fname (if run-id
(if (eq? run-id 0) "main.db" (conc run-id ".db"))
#f)))
(handle-exceptions
|