Overview
Comment: | getting bit closer to dashboard compiling for mtver 2.0 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.6584-nanomsg |
Files: | files | file ages | folders |
SHA1: |
083868cc4086c97edc29e08387a2fef6 |
User & Date: | matt on 2021-11-07 20:53:50 |
Other Links: | branch diff | manifest | tags |
Context
2021-11-07
| ||
21:04 | wip check-in: f2738dd699 user: matt tags: v1.6584-nanomsg | |
20:53 | getting bit closer to dashboard compiling for mtver 2.0 check-in: 083868cc40 user: matt tags: v1.6584-nanomsg | |
20:14 | wip check-in: e7cab51681 user: matt tags: v1.6584-nanomsg | |
Changes
Modified Makefile from [3a2ebe41ff] to [98b02d63a5].
︙ | ︙ | |||
34 35 36 37 38 39 40 | debugprint.scm mtver.scm csv-xml.scm servermod.scm \ hostinfo.scm adjutant.scm processmod.scm testsmod.scm \ itemsmod.scm keysmod.scm mtmod.scm rmtmod.scm \ tasksmod.scm pgdb.scm launchmod.scm runsmod.scm \ portloggermod.scm archivemod.scm ezstepsmod.scm \ subrunmod.scm bigmod.scm testsmod.scm | | < > | > > > > | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | debugprint.scm mtver.scm csv-xml.scm servermod.scm \ hostinfo.scm adjutant.scm processmod.scm testsmod.scm \ itemsmod.scm keysmod.scm mtmod.scm rmtmod.scm \ tasksmod.scm pgdb.scm launchmod.scm runsmod.scm \ portloggermod.scm archivemod.scm ezstepsmod.scm \ subrunmod.scm bigmod.scm testsmod.scm GUISRCF = GUIMODFILES = tree.scm dashboard-tests.scm vgmod.scm \ dashboard-context-menu.scm dcommon.scm gutils.scm # dashboard-guimonitor.scm mofiles/dashboard-context-menu.o : mofiles/dcommon.o mofiles/dashboard-tests.o : mofiles/dcommon.o mofiles/dcommon.o : mofiles/gutils.o OFILES = $(SRCFILES:%.scm=%.o) GOFILES = $(GUISRCF:%.scm=%.o) MOFILES = $(addprefix mofiles/,$(MSRCFILES:%.scm=%.o)) GMOFILES = $(addprefix mofiles/,$(GUIMODFILES:%.scm=%.o)) # compiled import files MOIMPFILES = $(MSRCFILES:%.scm=%.import.o) GMOIMPFILES = $(GUIMODFILES:%.scm=%.import.o) %.import.o : %.import.scm csc $(CSCOPTS) -unit $*.import -c $*.import.scm -o $*.import.o mofiles/%.o : %.scm @mkdir -p mofiles csc $(CSCOPTS) -J -c $< -o mofiles/$*.o |
︙ | ︙ | |||
128 129 130 131 132 133 134 | mtest: megatest.scm $(MOFILES) $(MOIMPFILES) csc $(CSCOPTS) $(MOFILES) $(MOIMPFILES) megatest.scm -o mtest showmtesthash: @echo $(MTESTHASH) | | | | 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | mtest: megatest.scm $(MOFILES) $(MOIMPFILES) csc $(CSCOPTS) $(MOFILES) $(MOIMPFILES) megatest.scm -o mtest showmtesthash: @echo $(MTESTHASH) dboard : $(OFILES) $(GOFILES) dashboard.scm $(MOFILES) $(MOIMPFILES) $(GMOFILES) $(GMOIMPFILES) megatest-fossil-hash.scm csc $(CSCOPTS) $(OFILES) dashboard.scm $(GOFILES) $(MOFILES) $(MOIMPFILES) $(GMOFILES) $(GMOIMPFILES) -o dboard mtut: $(OFILES) $(MOFILES) megatest-fossil-hash.scm mtut.scm csc $(CSCOPTS) $(OFILES) $(MOFILES) mtut.scm -o mtut # include makefile.inc TCMTOBJS = \ |
︙ | ︙ |
Modified dashboard.scm from [2fa2ea0b07] to [89169ead34].
︙ | ︙ | |||
14 15 16 17 18 19 20 | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ;;====================================================================== | < < | > > | > | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ;;====================================================================== (declare (uses ducttape-lib)) (declare (uses bigmod)) (declare (uses debugprint)) (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses dashboard-context-menu)) ;; (declare (uses dashboard-guimonitor)) (declare (uses dashboard-tests)) (declare (uses dbmod)) (declare (uses dcommon)) (declare (uses gutils)) (declare (uses itemsmod)) (declare (uses launchmod)) (declare (uses mtmod)) (declare (uses mtargs)) (declare (uses mtver)) (declare (uses processmod)) (declare (uses runsmod)) (declare (uses subrunmod)) (declare (uses tree)) (declare (uses vgmod)) (declare (uses bigmod.import)) (declare (uses debugprint.import)) ;; (declare (uses dashboard-main)) (import (prefix iup iup:)) (import canvas-draw) ;; (import canvas-draw-iup) (import ducttape-lib bigmod) (import (prefix sqlite3 sqlite3:) srfi-1 chicken.file.posix chicken.string chicken.process-context regex regex-case srfi-69 typed-records sparse-vectors format) ;; (include "common_records.scm") ;; (include "db_records.scm") ;; (include "run_records.scm") ;; (include "task_records.scm") ;; (include "megatest-version.scm") |
︙ | ︙ | |||
80 81 82 83 84 85 86 87 88 89 90 91 92 93 | mtmod mtver processmod runsmod subrunmod vgmod dcommon dashboard-context-menu dashboard-tests) (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " license GPL, Copyright (C) Matt Welland 2012-2017 | > > | 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | mtmod mtver processmod runsmod subrunmod vgmod dcommon gutils tree dashboard-context-menu dashboard-tests) (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " license GPL, Copyright (C) Matt Welland 2012-2017 |
︙ | ︙ |
Modified tree.scm from [70a5af29b9] to [e71588529d].
︙ | ︙ | |||
14 15 16 17 18 19 20 | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ;;====================================================================== | < < < < < < < < < < > > > > > > > > > > > > > > > > > > < > | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ;;====================================================================== (declare (unit tree)) (declare (uses mtargs)) (declare (uses mtver)) (declare (uses launchmod)) ;; (declare (uses megatest-version)) (declare (uses gutils)) (declare (uses dbmod)) (declare (uses servermod)) ;; (declare (uses synchash)) (declare (uses dcommon)) (module tree * (import scheme chicken.base chicken.string chicken.file.posix ) (import format srfi-13 (prefix iup iup:) canvas-draw sqlite3 srfi-1 regex regex-case srfi-69 (prefix sqlite3 sqlite3:)) (import mtver launchmod dbmod servermod gutils) ;; (include "megatest-version.scm") ;; (include "common_records.scm") (include "db_records.scm") (include "key_records.scm") ;;====================================================================== |
︙ | ︙ | |||
160 161 162 163 164 165 166 | (if run-id (begin (dboard:data-curr-run-id-set! data run-id) (dashboard:update-run-summary-tab))) ;; (print "path: " (tree:node->path obj id) " run-id: " run-id) )))) |# | > > | 168 169 170 171 172 173 174 175 176 | (if run-id (begin (dboard:data-curr-run-id-set! data run-id) (dashboard:update-run-summary-tab))) ;; (print "path: " (tree:node->path obj id) " run-id: " run-id) )))) |# ) |