945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
|
(if should-print (debug:print 3 *default-log-port* "INFO: db sync, total run time " runtime " ms"))
(for-each
(lambda (dat)
(let ((tblname (car dat))
(count (cdr dat)))
(set! tot-count (+ tot-count count))
(if (> count 0) ;; concs are there to prevent "Error: (sprintf) illegal format-string character: #\1" which I don't understand.
(if should-print (debug:print 0 *default-log-port* (format " "(conc tblname)" "(conc count))))))) ;; ~10a ~5a"
(sort (hash-table->alist numrecs)(lambda (a b)(> (cdr a)(cdr b))))))
tot-count))))
(define db:trigger-list
(list (list "update_runs_trigger" "CREATE TRIGGER IF NOT EXISTS update_runs_trigger AFTER UPDATE ON runs
FOR EACH ROW
BEGIN
|
|
|
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
|
(if should-print (debug:print 3 *default-log-port* "INFO: db sync, total run time " runtime " ms"))
(for-each
(lambda (dat)
(let ((tblname (car dat))
(count (cdr dat)))
(set! tot-count (+ tot-count count))
(if (> count 0) ;; concs are there to prevent "Error: (sprintf) illegal format-string character: #\1" which I don't understand.
(if should-print (debug:print 0 *default-log-port* " "(conc tblname)" "(conc count)))))) ;; ~10a ~5a"
(sort (hash-table->alist numrecs)(lambda (a b)(> (cdr a)(cdr b))))))
tot-count))))
(define db:trigger-list
(list (list "update_runs_trigger" "CREATE TRIGGER IF NOT EXISTS update_runs_trigger AFTER UPDATE ON runs
FOR EACH ROW
BEGIN
|