198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
subdbs)
#t
)
#f
)
)
(define (dbfile:make-tmpdir-name areapath)
(let* ((dname (conc "/tmp/"(current-user-name)"/" (string-translate areapath "/" "."))))
(unless (directory-exists? dname)
(create-directory dname #t))
dname))
(define (dbfile:run-id->path apath run-id)
(conc apath"/"(dbfile:run-id->dbname run-id)))
|
|
|
|
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
subdbs)
#t
)
#f
)
)
(define (dbfile:make-tmpdir-name areapath tmpadj)
(let* ((dname (conc "/tmp/"(current-user-name)"/" (string-translate areapath "/" ".") tmpadj)))
(unless (directory-exists? dname)
(create-directory dname #t))
dname))
(define (dbfile:run-id->path apath run-id)
(conc apath"/"(dbfile:run-id->dbname run-id)))
|