278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
|
(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
(case direction
((todisk) ;; i.e. from the cache db to the mtrah db
(dbmod:sync-tables tables last-update keys cachedb dbh))
(else
(dbmod:sync-tables tables last-update keys dbh cachedb))))))
(define (dbmod:close-db dbstruct)
|
|
|
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
|
(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
(case direction
((todisk) ;; i.e. from the cache db to the mtrah db
(dbmod:sync-tables tables last-update keys cachedb dbh))
(else
(dbmod:sync-tables tables last-update keys dbh cachedb))))))
(define (dbmod:close-db dbstruct)
|