126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
(let ((curr-tmdat #f))
(sqlite3:for-each-row
(lambda (a . b)
(set! curr-tmdat (apply vector a b)))
tmgetstmt testm-id)
(if (not (equal? curr-tmdat tmdat)) ;; something changed
(begin
(debug:print 0 " test-id: " test-id
"\ncurr-tdat: " curr-tmdat
"\n tdat: " tmdat)
(apply sqlite3:execute tputstmt (vector->list tmdat))
(set! tmrecchgd (+ tmrecchgd 1)))))))))
tmdats)
(sqlite3:finalize! tmgetstmt)
(sqlite3:finalize! tmputstmt))
;; First sync tests data
(let ((run-ids (db:get-all-run-ids fromdb))
|
|
|
|
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
(let ((curr-tmdat #f))
(sqlite3:for-each-row
(lambda (a . b)
(set! curr-tmdat (apply vector a b)))
tmgetstmt testm-id)
(if (not (equal? curr-tmdat tmdat)) ;; something changed
(begin
(debug:print 0 " test-id: " testm-id
"\ncurr-tdat: " curr-tmdat
"\n tdat: " tmdat)
(apply sqlite3:execute tmputstmt (vector->list tmdat))
(set! tmrecchgd (+ tmrecchgd 1)))))))))
tmdats)
(sqlite3:finalize! tmgetstmt)
(sqlite3:finalize! tmputstmt))
;; First sync tests data
(let ((run-ids (db:get-all-run-ids fromdb))
|