Overview
| Comment: | new2old needed to handle main.db correctly |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
fbfdc4b6a2b6848b9b63b49302d37346 |
| User & Date: | mrwellan on 2014-10-08 12:45:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-10-08
| ||
| 12:54 | new2old needed to handle sync in rmt correctly check-in: 6ad4f305ae user: mrwellan tags: v1.60 | |
| 12:45 | new2old needed to handle main.db correctly check-in: fbfdc4b6a2 user: mrwellan tags: v1.60 | |
| 12:11 | Fixed sync bug (I think) check-in: 18f70c2641 user: mrwellan tags: v1.60 | |
Changes
Modified db.scm from [aeeb4a3176] to [725bc305cb].
| ︙ | ︙ | |||
526 527 528 529 530 531 532 |
run-ids)))
;; now ensure all newdb data are synced to megatest.db
(if (member 'new2old options)
(for-each
(lambda (run-id)
(let ((fromdb (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
| > > | | 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 |
run-ids)))
;; now ensure all newdb data are synced to megatest.db
(if (member 'new2old options)
(for-each
(lambda (run-id)
(let ((fromdb (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
(if (eq? run-id 0)
(db:sync-tables (db:sync-main-list dbstruct)(db:get-db fromdb run-id) mtdb)
(db:sync-tables db:sync-tests-only (db:get-db fromdb run-id) mtdb))))
run-ids))
(db:close-all dbstruct)
(sqlite3:finalize! mdb)))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
|
| ︙ | ︙ |