@@ -20,32 +20,33 @@ (declare (unit rmtmod)) (declare (uses debugprint)) (declare (uses commonmod)) (declare (uses dbfile)) ;; needed for records - -;; (declare (uses apimod)) -;; (declare (uses apimod.import)) -;; (declare (uses ulex)) - -;; (include "ulex/ulex.scm") +(declare (uses dbmod)) +(declare (uses mtmod)) +(declare (uses tcp-transportmod)) (module rmtmod * -(import scheme chicken data-structures extras matchable srfi-69) +(import scheme chicken data-structures extras matchable srfi-1 srfi-69) (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18) -(import commonmod dbfile debugprint) ;; (prefix commonmod cmod:)) -;; (import apimod) -;; (import (prefix ulex ulex:)) +(import commonmod + tcp-transportmod + dbfile + dbmod + debugprint + mtmod) (include "db_records.scm") (defstruct alldat (areapath #f) (ulexdat #f) ) + ;; hold the send-receive proc in this parameter (define rmtmod:send-receive #f) ;; (make-parameter #f)) ;;======================================================================