20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(import (prefix base64 base64:))
(declare (unit sdb))
;;
(define (sdb:open) ;; (conc *toppath* "/megatest.db") (car *configinfo*)))
(if (not *toppath*)
(if (not (setup-for-run))
(begin
(debug:print 0 "ERROR: Attempted to open db when not in megatest area. Exiting.")
(exit))))
(let* ((dbpath (conc *toppath* "/db/sdb.db")) ;; fname)
(dbexists (let ((fe (file-exists? dbpath)))
(if fe
fe
|
|
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(import (prefix base64 base64:))
(declare (unit sdb))
;;
(define (sdb:open) ;; (conc *toppath* "/megatest.db") (car *configinfo*)))
(if (not *toppath*)
(if (not (launch:setup-for-run))
(begin
(debug:print 0 "ERROR: Attempted to open db when not in megatest area. Exiting.")
(exit))))
(let* ((dbpath (conc *toppath* "/db/sdb.db")) ;; fname)
(dbexists (let ((fe (file-exists? dbpath)))
(if fe
fe
|