Overview
| Comment: | add spreadsheet |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-readonly |
| Files: | files | file ages | folders |
| SHA1: |
fa9ace95d6d8ebcddb25ae401810bc8f |
| User & Date: | bjbarcla on 2017-02-17 17:10:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-17
| ||
| 17:23 | updated api_access_methods_evolution.ods check-in: 10f398cac7 user: bjbarcla tags: v1.63-readonly | |
| 17:10 | add spreadsheet check-in: fa9ace95d6 user: bjbarcla tags: v1.63-readonly | |
| 16:19 | wip check-in: c08f1fdbe0 user: bjbarcla tags: v1.63-readonly | |
Changes
Modified db.scm from [a942af1057] to [ee800bc3aa].
| ︙ | ︙ | |||
302 303 304 305 306 307 308 |
tmpdb))))
;; 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))
| > | > > > > > | | | | | | | | | 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 |
tmpdb))))
;; 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
((not (file-write-access? (or areapath *toppath*)))
(let* ((dbstruct (make-dbr:dbstruct)))
(db:open-db dbstruct areapath: areapath)
(set! *dbstruct-db* dbstruct)
dbstruct))
((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")))
|
| ︙ | ︙ |
Added docs/api_access_methods_evolution.ods version [56afd2d4f2].
cannot compute difference between binary files