88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *useserver* (or(not (args:get-arg "-use-local"))
(configf:lookup *configdat* "dashboard" "use-server")))
(define *dbdir* (db:dbfile-path #f)) ;; (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
(define *dbstruct-local* (make-dbr:dbstruct path: *dbdir*
local: #t))
(define *db-file-path* (db:dbfile-path 0))
;; HACK ALERT: this is a hack, please fix.
(define *read-only* (not (file-read-access? *db-file-path*)))
(define toplevel #f)
(define dlg #f)
|
|
>
>
|
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *useserver* (or(not (args:get-arg "-use-local"))
(configf:lookup *configdat* "dashboard" "use-server")))
(define *dbdir* (db:dbfile-path #f)) ;; (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
(define *dbstruct-local* (if *useserver*
#f
(make-dbr:dbstruct path: *dbdir*
local: #t)))
(define *db-file-path* (db:dbfile-path 0))
;; HACK ALERT: this is a hack, please fix.
(define *read-only* (not (file-read-access? *db-file-path*)))
(define toplevel #f)
(define dlg #f)
|