Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -32,11 +32,11 @@
keysmod.scm launchmod.scm odsmod.scm processmod.scm runconfigmod.scm \
runsmod.scm servermod.scm subrunmod.scm tasksmod.scm testsmod.scm \
pkts.scm mtargs.scm mtconfigf.scm ducttape-lib.scm ulex.scm \
stml2.scm cookie.scm megamod.scm mutils.scm
-GMSRCFILES = dcommonmod.scm vgmod.scm treemod.scm
+GMSRCFILES = dcommonmod.scm vgmod.scm treemod.scm gutilsmod.scm
# Eggs to install (straightforward ones)
EGGS=matchable readline apropos base64 regex-literals format \
regex-case test coops trace csv dot-locking posix-utils posix-extras \
@@ -44,11 +44,11 @@
http-client spiffy uri-common intarweb spiffy-request-vars \
spiffy-directory-listing ssax sxml-serializer sxml-modifications iup \
canvas-draw sqlite3
GUISRCF = dashboard-context-menu.scm dashboard-tests.scm \
-dashboard-guimonitor.scm gutils.scm dcommon.scm tree.scm vg.scm
+dashboard-guimonitor.scm dcommon.scm tree.scm vg.scm
OFILES = $(SRCFILES:%.scm=%.o)
GOFILES = $(GUISRCF:%.scm=%.o)
MOFILES = $(addprefix mofiles/,$(MSRCFILES:%.scm=%.o))
@@ -66,11 +66,11 @@
# csc -I ducttape -J -c ducttape-lib.scm -o mofiles/ducttape-lib.o
mofiles/%.o %.import.scm : %.scm
@[ -e mofiles ] && mkdir -p mofiles
csc $(CSCOPTS) -I $* -J -c $< -o mofiles/$*.o
- touch $*.import.scm # ensure it is touched after the .o is made
+ @touch $*.import.scm # ensure it is touched after the .o is made
# a.import.o : a.import.scm a.o
# csc -unit a.import -c a.import.scm -o $*.o
ADTLSCR=mt_laststep mt_runstep mt_ezstep
@@ -107,12 +107,12 @@
csc dashboard.scm $(CSCOPTS) $(MOFILES) $(MOIMPFILES) $(GMOFILES) $(GMOIMPFILES) -o dboard
ndboard : newdashboard.scm $(GOFILES)
csc $(CSCOPTS) $(GOFILES) newdashboard.scm -o ndboard
-mtut: $(MOFILES) megatest-fossil-hash.scm mtut.scm
- csc $(CSCOPTS) $(MOFILES) mtut.scm -o mtut
+mtut: $(MOFILES) $(MOIMPFILES) megatest-fossil-hash.scm mtut.scm
+ csc $(CSCOPTS) $(MOFILES) $(MOIMPFILES) mtut.scm -o mtut
TCMTOBJS=
tcmt : $(TCMTOBJS) $(MOFILES) tcmt.scm
csc $(CSCOPTS) $(MOFILES) $(TCMTOBJS) tcmt.scm -o tcmt
@@ -146,36 +146,40 @@
#======================================================================
tests.o db.o launch.o runs.o dashboard-tests.o dashboard-context-menu.o dashboard-guimonitor.o \
dashboard-main.o monitor.o archive.o : db_records.scm migrate-fix.scm
-tests.o runs.o dashboard.o dashboard-tests.o dashboard-context-menu.o dashboard-main.o : run_records.scm
+tests.o runs.o dashboard-tests.o dashboard-context-menu.o dashboard-main.o : run_records.scm
db.o ezsteps.o keys.o launch.o megatest.o monitor.o runs-for-ref.o runs.o tests.o : key_records.scm
tests.o tasks.o dashboard-tasks.o : task_records.scm
runs.o : test_records.scm
common_records.scm : altdb.scm
-vg.o dashboard.o : vg_records.scm mofiles/dcommonmod.o
+vg.o : vg_records.scm mofiles/dcommonmod.o
-dcommon.o : run_records.scm migrate-fix.scm mofiles/stml2.o
+mofiles/dcommonmod.o : run_records.scm migrate-fix.scm mofiles/stml2.o \
+ mofiles/gutilsmod.o
mofiles/stml2.o : mofiles/cookie.o
# special include based modules
mofiles/pkts.o : pkts/pkts.scm
mofiles/mtargs.o : mtargs/mtargs.scm
mofiles/mtconfigf.o : mtconfigf/mtconfigf.scm
mofiles/ulex.o : ulex/ulex.scm
mofiles/mutils.o : mutils/mutils.scm
+mofiles/cookie.o : stml2/cookie.scm
+mofiles/stml2.o : stml2/stml2.scm
# for the modularized stuff
-mofiles/commonmod.o : megatest-fossil-hash.scm mofiles/stml2.o mofiles/mtargs.o mofiles/pkts.o mofiles/mtconfigf.o
+mofiles/commonmod.o : megatest-fossil-hash.scm mofiles/stml2.o \
+ mofiles/mtargs.o mofiles/pkts.o mofiles/mtconfigf.o
mofiles/dbmod.o : mofiles/commonmod.o mofiles/keysmod.o \
mofiles/tasksmod.o mofiles/odsmod.o
mofiles/commonmod.o : mofiles/processmod.o
mofiles/rmtmod.o : mofiles/dbmod.o mofiles/commonmod.o \
mofiles/apimod.o mofiles/ulex.o
@@ -481,12 +485,12 @@
fi
if csi -ne '(use postgresql)';then \
echo "(use postgresql)(hash-table-set! *available-db* 'postgresql #t)" >> altdb.scm;\
fi
-portlogger-example : portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o megatest-version.o mt.o ods.o portlogger.o process.o rmt.o rpc-transport.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o
- csc $(CSCOPTS) portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o megatest-version.o mt.o ods.o portlogger.o process.o rmt.o rpc-transport.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o
+portlogger-example : portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o megatest-version.o mt.o ods.o portlogger.o process.o rmt.o rpc-transport.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o
+ csc $(CSCOPTS) portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o megatest-version.o mt.o ods.o portlogger.o process.o rmt.o rpc-transport.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o
# create a pdf dot graphviz diagram from notations in rmt.scm
rmt.pdf : rmt.scm
grep ';;DOT' rmt.scm | sed -e 's/.*;;DOT //' > rmt.dot;dot -Tpdf rmt.dot -o rmt.pdf
Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -32,51 +32,45 @@
)
(import (prefix sqlite3 sqlite3:))
(declare (uses mtargs))
(import (prefix mtargs args:))
-
+(declare (uses mtconfigf))
+(import (prefix mtconfigf configf:))
(declare (uses ducttape-lib))
(import ducttape-lib)
-(declare (uses mtconfigf))
-(import (prefix mtconfigf configf:))
-
;; invoke the imports - ORDER IS IMPORTANT!
(declare (uses mtargs.import))
(declare (uses ducttape-lib.import))
(declare (uses mtconfigf.import))
+(declare (uses gutilsmod))
+(import gutilsmod)
(declare (uses megamod))
(import megamod)
-
(declare (uses commonmod))
(import commonmod)
-
(declare (uses rmtmod))
(import rmtmod)
-
(declare (uses runsmod))
(import runsmod)
-
(declare (uses dbmod))
(import dbmod)
-
(declare (uses testsmod))
(import testsmod)
-
(declare (uses dcommonmod))
(import dcommonmod)
-
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "vg_records.scm")
;; invoke the imports - ORDER IS IMPORTANT!
+(declare (uses gutilsmod.import))
(declare (uses commonmod.import))
(declare (uses testsmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses megamod.import))
Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -26,12 +26,10 @@
(use regex typed-records matchable)
(declare (unit dcommon))
(declare (uses megatest-version))
-(declare (uses gutils))
-(declare (uses db))
(declare (uses commonmod))
(import commonmod)
;; (declare (uses synchash))
Index: dcommonmod.scm
==================================================================
--- dcommonmod.scm
+++ dcommonmod.scm
@@ -21,10 +21,12 @@
(declare (unit dcommonmod))
(declare (uses commonmod))
(declare (uses testsmod))
(declare (uses megamod))
(declare (uses mtargs))
+(declare (uses mtconfigf))
+(declare (uses gutilsmod))
(module dcommonmod
*
(import scheme chicken data-structures extras)
@@ -79,12 +81,12 @@
udp
uri-common
z3
)
-(use (prefix mtconfigf configf:))
-
+(import (prefix mtconfigf configf:))
+(import gutilsmod)
(import commonmod)
(import testsmod)
(import megamod)
(import canvas-draw)
(import canvas-draw-iup)
@@ -107,8 +109,8 @@
(include "dashboard-tests-inc.scm")
(include "vg-inc.scm")
(include "tree-inc.scm")
(include "dashboard-context-menu-inc.scm")
(include "ezsteps-inc.scm")
-(include "gutils-inc.scm")
+;; (include "gutils-inc.scm")
)
DELETED gutils.scm
Index: gutils.scm
==================================================================
--- gutils.scm
+++ /dev/null
@@ -1,27 +0,0 @@
-;;======================================================================
-;; Copyright 2006-2012, Matthew Welland.
-;;
-;; This file is part of Megatest.
-;;
-;; Megatest is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Megatest is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; 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 .
-;;
-;;======================================================================
-
-(require-library iup)
-(import (prefix iup iup:))
-(use canvas-draw)
-
-(use srfi-1 regex regex-case srfi-69)
-(declare (unit gutils))
-
ADDED gutilsmod.scm
Index: gutilsmod.scm
==================================================================
--- /dev/null
+++ gutilsmod.scm
@@ -0,0 +1,33 @@
+;;======================================================================
+;; Copyright 2006-2012, Matthew Welland.
+;;
+;; This file is part of Megatest.
+;;
+;; Megatest is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Megatest is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; 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 .
+;;
+;;======================================================================
+
+(require-library iup)
+(import (prefix iup iup:))
+(use canvas-draw)
+
+(use srfi-1 regex regex-case srfi-69)
+(declare (unit gutilsmod))
+
+(module gutilsmod
+ *
+
+(import scheme chicken data-structures extras srfi-1)
+(include "gutils-inc.scm")
+)
Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -31,24 +31,23 @@
;; (declare (uses megatest-version))
;; (declare (uses margs))
(declare (uses mtconfigf))
(import (prefix mtconfigf configf:))
-
(declare (uses stml2))
(import stml2)
+(declare (uses ducttape-lib))
+(import ducttape-lib)
+(declare (uses mtconfigf.import))
(declare (uses commonmod))
(declare (uses megamod))
(import commonmod)
(import megamod)
;; (declare (uses rmt))
-(declare (uses ducttape-lib))
-(import ducttape-lib)
-
;; (include "megatest-fossil-hash.scm") ;; comes from megamod
;; stuff for the mapper and checker functions
;;
(define *target-mappers* (make-hash-table))
Index: stml2/stml2.scm
==================================================================
--- stml2/stml2.scm
+++ stml2/stml2.scm
@@ -9,12 +9,10 @@
;; stml is a list of html strings
;; (declare (unit stml))
-(include "cookie.scm")
-
(module stml2
*
(import chicken scheme data-structures extras srfi-13 ports posix srfi-69 files srfi-1)