Megatest

;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;======================================================================

(declare (unit runsmod))


(declare (unit mtmod))
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses launchmod))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses mtmod))
(declare (uses pgdbmod))
(declare (uses rmtmod))
(declare (uses servermod))
(declare (uses stml2))
(declare (uses subrunmod))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses itemsmod))

(module runsmod
	*
	
(import scheme chicken data-structures extras ports files)

(import
  (prefix base64 base64:)
(use (prefix base64 base64:)
  (prefix mtargs args:)
  (prefix mtconfigf configf:)
  (prefix sqlite3 sqlite3:)
  call-with-environment-variables
     (prefix sqlite3 sqlite3:)
     call-with-environment-variables
  commonmod
  csv
     csv
  dbmod
  directory-utils
  format
     directory-utils
     format
  itemsmod
  matchable
  message-digest
  md5
     matchable
     message-digest
     md5
  mtmod
  pgdbmod
  ports
  posix
  regex
     ports
     posix
     regex
  rmtmod
  servermod
  srfi-1
  srfi-1
  srfi-13
  srfi-18
  srfi-18
  srfi-69
     srfi-1
     srfi-1
     srfi-13
     srfi-18
     srfi-18
     srfi-69
  srfi-69
  stml2
  subrunmod
  tasksmod
  testsmod
  typed-records
  z3
  )
     typed-records
     z3)

(import commonmod)
(import dbmod)
(import itemsmod)
(import mtmod)
(import pgdbmod)
(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))
(import rmtmod)
(import servermod)
(import stml2)
(import subrunmod)
(import tasksmod)
(import testsmod)

;; (use (prefix ulex ulex:))
(include "run_records.scm")
(include "db_records.scm")
(include "test_records.scm")
(include "key_records.scm")