Overview
| Comment: | opened db:setup to non-homehost |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-readonly |
| Files: | files | file ages | folders |
| SHA1: |
f2bcff013a5f9cc4cb59980b27c3e970 |
| User & Date: | bjbarcla on 2017-02-17 17:46:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-21
| ||
| 14:03 | fixed gross bugs; first time ovbserved read-only mode working (-list-runs) check-in: 6d7e5ab283 user: bjbarcla tags: v1.63-readonly | |
|
2017-02-17
| ||
| 17:46 | opened db:setup to non-homehost check-in: f2bcff013a user: bjbarcla tags: v1.63-readonly | |
| 17:23 | updated api_access_methods_evolution.ods check-in: 10f398cac7 user: bjbarcla tags: v1.63-readonly | |
Changes
Modified db.scm from [ee800bc3aa] to [0e0ff10fa7].
| ︙ | ︙ | |||
304 305 306 307 308 309 310 | ;; Make the dbstruct, setup up auxillary db's and call for main db at least once ;; ;; called in http-transport and replicated in rmt.scm for *local* access. ;; (define (db:setup #!key (areapath #f)) (cond (*dbstruct-db* *dbstruct-db*);; TODO: when multiple areas are supported, this optimization will be a hazard | | | < < < < < | | | | 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 |
;; Make the dbstruct, setup up auxillary db's and call for main db at least once
;;
;; called in http-transport and replicated in rmt.scm for *local* access.
;;
(define (db:setup #!key (areapath #f))
(cond
(*dbstruct-db* *dbstruct-db*);; TODO: when multiple areas are supported, this optimization will be a hazard
(else ;;(common:on-homehost?)
(let* ((dbstruct (make-dbr:dbstruct)))
(db:open-db dbstruct areapath: areapath)
(set! *dbstruct-db* dbstruct)
dbstruct))))
;; (else
;; (debug:print 0 *default-log-port* "ERROR: attempt to open database when not on homehost. Exiting. Homehost: " (common:get-homehost))
;; (exit 1))))
;; Open the classic megatest.db file (defaults to open in toppath)
;;
;; NOTE: returns a dbdat not a dbstruct!
;;
(define (db:open-megatest-db #!key (path #f)(name #f))
(let* ((dbpath (conc (or path *toppath*) "/" (or name "megatest.db")))
|
| ︙ | ︙ |