Overview
| Comment: | Fixed couple deps. Added defense for weird char in format. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-real-new-runs-view |
| Files: | files | file ages | folders |
| SHA1: |
e23b4fcd3063dc9f0aa1aba67d5c063b |
| User & Date: | matt on 2021-02-20 22:05:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-20
| ||
| 22:52 | Patched in some waitons stuff check-in: 36a0175612 user: matt tags: v1.65-real-new-runs-view | |
| 22:05 | Fixed couple deps. Added defense for weird char in format. check-in: e23b4fcd30 user: matt tags: v1.65-real-new-runs-view | |
|
2021-02-19
| ||
| 23:44 | Merged v1.6569-multi-db (which is actually modularization stuff) check-in: d983d860a1 user: matt tags: v1.65-real-new-runs-view | |
Changes
Modified Makefile from [14a17e7794] to [053fff40fb].
| ︙ | ︙ | |||
158 159 160 161 162 163 164 |
$(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 \
| < | | > > > | 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 |
$(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/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
|
| ︙ | ︙ |
Modified dbmod.scm from [14cf915f75] to [3b68a829fd].
| ︙ | ︙ | |||
944 945 946 947 948 949 950 | (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)) | | | | 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) ;; 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
|
| ︙ | ︙ |