29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
(use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records
sparse-vectors srfi-18
#;(prefix mtconfigf configf:)
)
(import (prefix sqlite3 sqlite3:))
(declare (uses mtargs))
(import (prefix mtargs args:))
(import pkts)
(import ulex)
(import cookie)
(import stml2)
(import (prefix mtconfigf configf:))
(import gutilsmod)
(import megamod)
(import commonmod)
(import rmtmod)
(declare (uses runsmod))
(import runsmod)
(declare (uses dbmod))
(import dbmod)
(declare (uses testsmod))
(import testsmod)
(declare (uses dcommonmod))
|
<
<
<
<
<
<
>
>
>
>
>
>
<
<
<
|
|
|
|
>
>
>
>
>
|
|
>
<
|
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
(use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records
sparse-vectors srfi-18
#;(prefix mtconfigf configf:)
)
(import (prefix sqlite3 sqlite3:))
(declare (uses mtargs))
(declare (uses pkts))
(declare (uses ulex))
(declare (uses cookie))
(declare (uses stml2))
(declare (uses mtconfigf))
(declare (uses ducttape-lib))
(import (prefix mtargs args:))
(import pkts)
(import ulex)
(import cookie)
(import stml2)
(import (prefix mtconfigf configf:))
(import ducttape-lib)
;; invoke the imports - ORDER IS IMPORTANT!
(declare (uses mtargs.import))
(declare (uses pkts.import))
(declare (uses ulex.import))
(declare (uses cookie.import))
(declare (uses stml2.import))
(declare (uses ducttape-lib.import))
(declare (uses mtconfigf.import))
(declare (uses gutilsmod))
(declare (uses megamod))
(declare (uses commonmod))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses dbmod))
(declare (uses testsmod))
(declare (uses dcommonmod))
(import gutilsmod)
(import megamod)
(import commonmod)
(import rmtmod)
(import runsmod)
(import dbmod)
(import testsmod)
(import dcommonmod)
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "vg_records.scm")
|