275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
|
;; (dbmod:sync-tables tables last-update db cachedb))))
;;
;; direction: 'fromdest 'todest
;;
(define (dbmod:sync-gasket tables last-update cachedb dbh dbfname direction keys)
(assert (sqlite3:database? cachedb) "FATAL: sync-gasket: cachedb is not a db")
(assert (sqlite3:database? cachedb) "FATAL: sync-gasket: dbh is not a db")
(debug:print-info 0 *default-log-port* "dbmod:sync-gasket called with sync-method="(dbfile:sync-method))
(case (dbfile:sync-method)
((none) #f)
((attach)
(dbmod:attach-sync tables cachedb dbfname direction))
((newsync)
(dbmod:new-sync tables cachedb dbh dbfname direction))
(else ;; original
|
|
|
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
|
;; (dbmod:sync-tables tables last-update db cachedb))))
;;
;; direction: 'fromdest 'todest
;;
(define (dbmod:sync-gasket tables last-update cachedb dbh dbfname direction keys)
(assert (sqlite3:database? cachedb) "FATAL: sync-gasket: cachedb is not a db")
(assert (sqlite3:database? cachedb) "FATAL: sync-gasket: dbh is not a db")
(debug:print-info 2 *default-log-port* "dbmod:sync-gasket called with sync-method="(dbfile:sync-method))
(case (dbfile:sync-method)
((none) #f)
((attach)
(dbmod:attach-sync tables cachedb dbfname direction))
((newsync)
(dbmod:new-sync tables cachedb dbh dbfname direction))
(else ;; original
|