;;======================================================================
;; Copyright 2019, Matthew Welland.
;;
;; This file is part of Megatest.
;;
;; Megatest is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; Megatest is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; 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 dcommonmod))
(declare (uses commonmod))
(declare (uses testsmod))
(declare (uses megamod))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses gutilsmod))
(declare (uses subrunmod))
(declare (uses runsmod))
(declare (uses rmtmod))
(declare (uses dbmod))
(declare (uses servermod))
(module dcommonmod
*
(import scheme chicken.bitwise chicken.pathname chicken.process-context.posix chicken.condition chicken.sort chicken.process chicken.pretty-print chicken.base chicken.string chicken.time chicken.file.posix chicken.process-context)
(import (prefix sqlite3 sqlite3:)
typed-records srfi-18 srfi-69 chicken.format chicken.port srfi-1
matchable (prefix iup iup:)
canvas-draw
;; blindly copied from megamod
(prefix base64 base64:)
(prefix dbi dbi:)
;; (prefix nanomsg nmsg:)
(prefix sqlite3 sqlite3:)
call-with-environment-variables
;;csv
;;csv-xml
;;data-structures
directory-utils
dot-locking
;;extras
chicken.file
chicken.random
fmt
chicken.format
hostinfo
http-client
intarweb
chicken.irregex
matchable
md5
message-digest
pathname-expand
pkts
chicken.port
;; queue
regex
regex-case
s11n
sparse-vectors
spiffy
spiffy-directory-listing
spiffy-request-vars
sql-de-lite
srfi-1
srfi-4
srfi-13
srfi-18
srfi-69
stack
stml2
;;tcp
typed-records
;;udp
uri-common
z3
)
(import (prefix mtconfigf configf:))
(import gutilsmod)
(import commonmod)
(import servermod)
(import testsmod)
(import megamod)
(import subrunmod)
(import runsmod)
(import rmtmod)
(import dbmod)
(import canvas-draw)
(import canvas-draw-iup)
(import (prefix iup iup:))
(import (prefix mtargs args:))
(define *tim* (iup:timer))
;; (use (prefix ulex ulex:))
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "test_records.scm")
(include "vg_records.scm")
(include "dashboard-tests-inc.scm")
(include "dcommon-inc.scm")
(include "vg-inc.scm")
(include "tree-inc.scm")
(include "dashboard-context-menu-inc.scm")
(include "ezsteps-inc.scm")
;;;; (include "gutils-inc.scm")
)