Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.7001-multi-db-01 |
| Files: | files | file ages | folders |
| SHA1: |
e2c4e5c24a7cf29c702b0eb165995915 |
| User & Date: | matt on 2022-02-27 17:56:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-02-27
| ||
| 17:56 | wip Closed-Leaf check-in: e2c4e5c24a user: matt tags: v1.7001-multi-db-01 | |
|
2022-02-21
| ||
| 20:09 | Still getting the multi-db implemented. WIP. check-in: 2ee7ae9a00 user: matt tags: v1.7001-multi-db-01 | |
Changes
Modified db.scm from [dce1c7a671] to [3e4a888113].
| ︙ | ︙ | |||
1149 1150 1151 1152 1153 1154 1155 |
(define (db:tmp->megatest.db-sync dbstruct last-update)
(let* ((all-dbs (cons "main.db" (glob (conc (db:dbfile-path)"/[0-9]*.db")))))
(for-each
(lambda (dbname)
(let* ((mtdb (dbr:dbstruct-mtdb dbstruct))
| | | 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 |
(define (db:tmp->megatest.db-sync dbstruct last-update)
(let* ((all-dbs (cons "main.db" (glob (conc (db:dbfile-path)"/[0-9]*.db")))))
(for-each
(lambda (dbname)
(let* ((mtdb (dbr:dbstruct-mtdb dbstruct))
;; more to do here?
(tmpdb (db:get-db dbstruct))
(refndb (dbr:dbstruct-refndb dbstruct))
(res (db:sync-tables (db:sync-all-tables-list dbstruct) last-update tmpdb refndb mtdb)))
(stack-push! (dbr:dbstruct-dbstack dbstruct) tmpdb)
res))
|
| ︙ | ︙ |