136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
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* ((dbdir (or (configf:lookup *configdat* "setup" "dbdir")
(configdat (megatest:area-configdat area-dat))
|