Megatest

Check-in [9b4499570c]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-servload
Files: files | file ages | folders
SHA1: 9b4499570ce0f6ad128388110a1b50a453e9437e
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dbmod.scm from [f2c3610f44] to [a60adec379].

︙
222
223
224
225
226
227
228
229
230



231
232
233
234
235
236
237

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)
					 #;(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
18
19


20
21
22

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 'original) ;; attach)
(dbfile:cache-method 'inmem)
(dbfile:sync-method 'attach) ;; 'original) ;; attach)
(dbfile:cache-method 'tmp)   ;; 'inmem)
(rmt:transport-mode 'tcp)

This page was generated in about 0.123s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00