944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
|
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
|
-
-
+
+
|
(common:low-noise-print 120 "db sync" (> runtime 500))))) ;; low and high sync times treated as separate.
(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)
(if should-print (debug:print 0 *default-log-port* (format #f " ~10a ~5a" tblname 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 #f " ~10a ~5a" (conc tblname)(conc count)))))))
(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
|