1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
|
(define (db:tmp->megatest.db-sync dbstruct last-update)
(let* ((all-dbs (cons "main.db" (glob (conc (db:dbfile-path)"/[0-9]*.db")))))
(for-each
(lambda (dbname)
(let* ((mtdb (dbr:dbstruct-mtdb dbstruct))
(tmpdb (db:get-db dbstruct))
(refndb (dbr:dbstruct-refndb dbstruct))
(res (db:sync-tables (db:sync-all-tables-list dbstruct) last-update tmpdb refndb mtdb)))
(stack-push! (dbr:dbstruct-dbstack dbstruct) tmpdb)
res))
|
|
|
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
|
(define (db:tmp->megatest.db-sync dbstruct last-update)
(let* ((all-dbs (cons "main.db" (glob (conc (db:dbfile-path)"/[0-9]*.db")))))
(for-each
(lambda (dbname)
(let* ((mtdb (dbr:dbstruct-mtdb dbstruct))
;; more to do here?
(tmpdb (db:get-db dbstruct))
(refndb (dbr:dbstruct-refndb dbstruct))
(res (db:sync-tables (db:sync-all-tables-list dbstruct) last-update tmpdb refndb mtdb)))
(stack-push! (dbr:dbstruct-dbstack dbstruct) tmpdb)
res))
|