@@ -23,14 +23,15 @@ (require-library iup) (import (prefix iup iup:)) (use canvas-draw) (import canvas-draw-iup) -(use ducttape-lib) +;; (use ducttape-lib) (use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records sparse-vectors srfi-18 - (prefix mtconfigf configf:)) + #;(prefix mtconfigf configf:) + ) (import (prefix sqlite3 sqlite3:)) ;; (declare (uses common)) ;; (declare (uses margs)) ;; (declare (uses keys)) @@ -62,10 +63,15 @@ (declare (uses dbmod)) (import dbmod) (declare (uses dcommonmod)) (import dcommonmod) +(declare (uses mtargs)) +(import (prefix mtargs args:)) +(declare (uses ducttape-lib)) +(import ducttape-lib) + (include "common_records.scm") (include "db_records.scm") (include "run_records.scm") (include "task_records.scm") @@ -76,10 +82,12 @@ (declare (uses commonmod.import)) (declare (uses rmtmod.import)) (declare (uses runsmod.import)) (declare (uses megamod.import)) (declare (uses dcommonmod.import)) +(declare (uses mtargs.import)) +(declare (uses ducttape-lib.import)) (configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*) (configf:add-eval-string "(import megamod)(import commonmod)")