Index: Makefile ================================================================== --- Makefile +++ Makefile @@ -28,11 +28,11 @@ PREFIX=$(PWD) CSCOPTS= INSTALL=install SRCFILES = launch.scm runconfig.scm \ server.scm configf.scm keys.scm \ - process.scm runs.scm genexample.scm \ + process.scm runs.scm \ tdb.scm mt.scm \ ezsteps.scm api.scm \ subrun.scm archive.scm env.scm \ diff-report.scm @@ -43,11 +43,11 @@ tcp-transportmod.scm rmtmod.scm portlogger.scm apimod.scm \ configfmod.scm processmod.scm servermod.scm megatestmod.scm \ stml2.scm fsmod.scm cpumod.scm mtmod.scm odsmod.scm \ pkts.scm testsmod.scm pgdb.scm cookie.scm launchmod.scm \ subrunmod.scm runsmod.scm tasksmod.scm archivemod.scm \ - ezstepsmod.scm mtbody.scm envmod.scm + ezstepsmod.scm mtbody.scm envmod.scm genexample.scm transport-mode.scm : transport-mode.scm.template cp transport-mode.scm.template transport-mode.scm dashboard-transport-mode.scm : dashboard-transport-mode.scm.template @@ -56,11 +56,11 @@ mtest : transport-mode.scm dboard : dashboard-transport-mode.scm # dbmod.import.o is just a hack here -mofiles/mtbody.o : mofiles/launchmod.o readline-fix.scm mofiles/envmod.o +mofiles/mtbody.o : mofiles/launchmod.o readline-fix.scm mofiles/envmod.o mofiles/genexample.o process.o : mofiles/processmod.o mofiles/configfmod.o : mofiles/processmod.o mofiles/processmod.o : mofiles/commonmod.o mofiles/servermod.o : mofiles/commonmod.o mofiles/rmtmod.o : mofiles/mtmod.o mofiles/apimod.o Index: commonmod.scm ================================================================== --- commonmod.scm +++ commonmod.scm @@ -79,10 +79,12 @@ common:get-fields common:get-normalized-cpu-load common:unix-ping common:get-normalized-cpu-load + common:raw-get-remote-host-load + common:to-alist ;; globals *common:badly-ended-states* *common:dont-roll-up-states* *common:ended-states* Index: genexample.scm ================================================================== --- genexample.scm +++ genexample.scm @@ -23,17 +23,38 @@ (declare (uses debugprint)) ;; (declare (uses common)) (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses rmtmod)) +(declare (uses testsmod)) +(declare (uses dbfile)) +(declare (uses tasksmod)) (use posix regex matchable) -(import (prefix mtargs args:) + +(module genexample + * + +(import scheme + chicken + + data-structures + extras + srfi-1 + srfi-13 + srfi-69 + posix + regex + matchable + (prefix mtargs args:) commonmod configfmod + testsmod rmtmod - debugprint) + debugprint + tasksmod + dbfile) ;; (include "db_records.scm") (define genexample:example-logpro #<