@@ -30,12 +30,25 @@ ;; (use sparse-vectors) (require-library mutils) +(declare (uses mtargs)) +(import (prefix mtargs args:)) +(declare (uses mtconfigf)) +(import (prefix mtconfigf configf:)) +(declare (uses ducttape-lib)) +(import ducttape-lib) + +;; invoke the imports +(declare (uses mtargs.import)) +(declare (uses mtconfigf.import)) +(declare (uses ducttape-lib.import)) + (declare (uses commonmod)) (import commonmod) + (declare (uses rmtmod)) (import rmtmod) (declare (uses dbmod)) (import dbmod) (declare (uses runsmod)) @@ -42,37 +55,19 @@ (import runsmod) (declare (uses testsmod)) (import testsmod) (declare (uses megamod)) (import megamod) -(declare (uses mtargs)) -(import (prefix mtargs args:)) -(declare (uses mtconfigf)) -(import (prefix mtconfigf configf:)) -(declare (uses ducttape-lib)) -(import ducttape-lib) ;; invoke the imports (declare (uses commonmod.import)) (declare (uses testsmod.import)) (declare (uses rmtmod.import)) (declare (uses runsmod.import)) (declare (uses megamod.import)) -(declare (uses mtargs.import)) -(declare (uses mtconfigf.import)) -(declare (uses ducttape-lib.import)) - (configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*) -;; (declare (uses tdb)) -;; (declare (uses mt)) -;; (declare (uses api)) -;; (declare (uses tasks)) ;; only used for debugging. -;; (declare (uses env)) -;; (declare (uses diff-report)) -;; (declare (uses ftail)) -;; (import ftail) (define *db* #f) ;; this is only for the repl, do not use in general!!!! (define *default-log-port* (current-error-port)) (include "common_records.scm") @@ -80,11 +75,11 @@ (include "db_records.scm") (include "run_records.scm") ;; (include "megatest-fossil-hash.scm") ;; included in megamod (define getenv get-environment-variable) -(configf:add-eval-string "(import megamod)(import commonmod)") +(configf:add-eval-string "(import megamod commonmod (prefix mtconfigf configf:)(prefix mtargs args:))") (define *usage-log-file* #f) ;; put path to file for logging usage in this var in the ~/.megatestrc file (define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file ;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file