Megatest

$(MOFILE) $(MOIMPFILES) : megatest-fossil-hash.scm
megatest.o : $(MOIMPFILES)
mofiles/commonmod.o : megatest-fossil-hash.scm
mofiles/dbmod.o \
      mofiles/servermod.o \
      mofiles/apimod.o \
      mofiles/dcommonmod.o \
      mofiles/configfmod.o \
      mofiles/ods.o : mofiles/commonmod.o
      mofiles/ods.o : mofiles/commonmod.o mofiles/configfmod.o

mofiles/dcommonmod.o : mofiles/configfmod.o mofiles/dbmod.o

mofiles/configfmod.o : mofiles/commonmod.o
# mofiles/dbmod.o      : mofiles/configfmod.o
mofiles/rmtmod.o : mofiles/apimod.o
mofiles/servermod.o : mofiles/dbmod.o
common.o : mofiles/commonmod.o

# commonmod.o dashboard.o megatest.o tcmt.o apimod.o : megatest-fossil-hash.scm

tests.o db.o launch.o runs.o dashboard-tests.o				\
dashboard-context-menu.o dashboard-guimonitor.o dashboard-main.o	\
monitor.o dashboard.o archive.o megatest.o : db_records.scm megatest-fossil-hash.scm

dashboard.o : mofiles/apimod.o

				(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