Overview
| Comment: | Fixed typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | megatest.db-sync |
| Files: | files | file ages | folders |
| SHA1: |
1911dc98ed33e4f61428aea57dc5e158 |
| User & Date: | mrwellan on 2014-03-18 17:31:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-03-18
| ||
| 23:57 | Removed unneeded opening of main.db in each server. Reworked run stats Closed-Leaf check-in: b055e5fd1b user: matt tags: megatest.db-sync | |
| 17:31 | Fixed typo check-in: 1911dc98ed user: mrwellan tags: megatest.db-sync | |
| 02:14 | Start of code to sync to megatest.db check-in: 07907018df user: matt tags: megatest.db-sync | |
Changes
Modified db.scm from [8946983652] to [5f0bb87ad0].
| ︙ | ︙ | |||
254 255 256 257 258 259 260 |
(inmem (dbr:dbstruct-get-inmem dbstruct))
(refdb (dbr:dbstruct-get-refdb dbstruct))
(olddb (dbr:dbstruct-get-olddb dbstruct)))
(if (or (not (number? mtime))
(not (number? stime))
(> mtime stime)
force-sync)
| | | 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 |
(inmem (dbr:dbstruct-get-inmem dbstruct))
(refdb (dbr:dbstruct-get-refdb dbstruct))
(olddb (dbr:dbstruct-get-olddb dbstruct)))
(if (or (not (number? mtime))
(not (number? stime))
(> mtime stime)
force-sync)
(let ((num-synced (db:sync-tables db:sync-tests-only inmem refdb rundb olddb)))
(dbr:dbstruct-set-stime! dbstruct (current-milliseconds))
num-synced)
0)))
;; close all opened run-id dbs
(define (db:close-all dbstruct)
;; finalize main.db
|
| ︙ | ︙ |