40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
srfi-69
commonmod
dbfile
debugprint
)
(define dbcache-mode (make-parameter 'tmp)) ;; 'inmem, 'tmp
;; NOTE: This returns only the name "1.db", "main.db", not the path
;;
(define (dbmod:run-id->dbfname run-id)
(conc (dbfile:run-id->dbnum run-id)".db"))
(define (dbmod:get-dbdir dbstruct)
(let* ((areapath (dbr:dbstruct-areapath dbstruct))
|
<
<
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
srfi-69
commonmod
dbfile
debugprint
)
;; NOTE: This returns only the name "1.db", "main.db", not the path
;;
(define (dbmod:run-id->dbfname run-id)
(conc (dbfile:run-id->dbnum run-id)".db"))
(define (dbmod:get-dbdir dbstruct)
(let* ((areapath (dbr:dbstruct-areapath dbstruct))
|