Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-servload |
| Files: | files | file ages | folders |
| SHA1: |
9b4499570ce0f6ad128388110a1b50a4 |
| User & Date: | matt on 2023-05-01 10:02:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-02
| ||
| 11:38 | Go back to original sync check-in: a12a6cfff9 user: mrwellan tags: v1.80-servload | |
|
2023-05-01
| ||
| 10:02 | wip check-in: 9b4499570c user: matt tags: v1.80-servload | |
| 09:00 | db2db works (at least with attach mode syncing) check-in: 9361d9fe7b user: matt tags: v1.80-servload | |
Changes
Modified dbmod.scm from [f2c3610f44] to [a60adec379].
| ︙ | ︙ | |||
222 223 224 225 226 227 228 |
(dbr:dbstruct-sync-proc-set! dbstruct
(lambda (last-update)
(if *sync-in-progress*
(debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk")
(begin
(mutex-lock! *db-with-db-mutex*) ;; this mutex is used when overloaded or during a query that modifies the db
(set! *sync-in-progress* #t)
| | | > | 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 |
(dbr:dbstruct-sync-proc-set! dbstruct
(lambda (last-update)
(if *sync-in-progress*
(debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk")
(begin
(mutex-lock! *db-with-db-mutex*) ;; this mutex is used when overloaded or during a query that modifies the db
(set! *sync-in-progress* #t)
#;(dbmod:sync-gasket tables last-update inmem db
dbfullname syncdir)
(system (conc "megatest -db2db -from "tmpdb" -to "dbfname"&"))
(mutex-unlock! *db-with-db-mutex*)
(thread-sleep! 0.5) ;; ensure at least 1/2 second down time between sync calls
(set! *sync-in-progress* #f)))))
;; (dbmod:sync-tables tables #f db inmem)
;; (if db
(dbmod:sync-gasket tables #f inmem db dbfullname 'fromdest) ;; ) ;; load into inmem
(dbr:dbstruct-last-update-set! dbstruct (current-seconds)) ;; should this be offset back in time by one second?
|
| ︙ | ︙ |
Modified transport-mode.scm.template from [7b4174ac3b] to [1b66b2d4cc].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 | ;; uncomment this block to test without tcp or inmem ;; (dbfile:sync-method 'none) ;; (dbfile:cache-method 'none) ;; (rmt:transport-mode 'nfs) ;; uncomment this block to test with tcp and inmem | | | | 11 12 13 14 15 16 17 18 19 20 21 22 | ;; uncomment this block to test without tcp or inmem ;; (dbfile:sync-method 'none) ;; (dbfile:cache-method 'none) ;; (rmt:transport-mode 'nfs) ;; uncomment this block to test with tcp and inmem (dbfile:sync-method 'attach) ;; 'original) ;; attach) (dbfile:cache-method 'tmp) ;; 'inmem) (rmt:transport-mode 'tcp) |