Overview
| Comment: | Turn off db:multi-db-sync calls for now |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.7001-multi-db-rb01 |
| Files: | files | file ages | folders |
| SHA1: |
7f0aa9d15d42d325ef66e2a9155269d8 |
| User & Date: | matt on 2022-04-12 09:08:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-04-12
| ||
| 19:06 | minor reformatting check-in: 98e76b1aca user: mrwellan tags: v1.7001-multi-db-rb01 | |
| 09:08 | Turn off db:multi-db-sync calls for now check-in: 7f0aa9d15d user: matt tags: v1.7001-multi-db-rb01 | |
| 08:39 | Wait only a second on lock collision for db open. Do the db init inside the existing lock. check-in: 5a53de80b8 user: matt tags: v1.7001-multi-db-rb01 | |
Changes
Modified common.scm from [914a0f730c] to [fd321f41c8].
| ︙ | ︙ | |||
400 401 402 403 404 405 406 |
(substring (conc (common:get-last-run-version)) 0 4))))
;;======================================================================
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;
(define (common:cleanup-db dbstruct #!key (full #f))
| > | | 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 |
(substring (conc (common:get-last-run-version)) 0 4))))
;;======================================================================
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;
(define (common:cleanup-db dbstruct #!key (full #f))
(debug:print 0 *default-log-port* "WARNING: common:cleanup-db has NOT been reimplemented yet! Please fix!")
#;(apply db:multi-db-sync
dbstruct
'schema
;; 'new2old
'killservers
'adj-target
;; 'old2new
'new2old
|
| ︙ | ︙ |