27
28
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
83
84
85
86
|
http-client srfi-18 extras format)
;; Added for csv stuff - will be removed
;;
(use sparse-vectors)
(declare (uses mtargs))
(import (prefix mtargs args:))
(declare (uses ducttape-lib))
(import ducttape-lib)
(declare (uses pkts))
(import pkts)
(declare (uses ulex))
(import ulex)
(declare (uses cookie))
(import cookie)
(declare (uses stml2))
(import stml2)
(declare (uses mutils))
(import mutils)
;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))
(declare (uses ducttape-lib.import))
(declare (uses pkts.import))
(declare (uses ulex.import))
(declare (uses cookie.import))
(declare (uses stml2.import))
(declare (uses mutils.import))
(declare (uses commonmod))
(import commonmod)
(declare (uses rmtmod))
(import rmtmod)
(declare (uses dbmod))
(import dbmod)
(declare (uses runsmod))
(import runsmod)
(declare (uses testsmod))
(import testsmod)
(declare (uses megamod))
(import megamod)
;; invoke the imports
(declare (uses commonmod.import))
(declare (uses testsmod.import))
(declare (uses rmtmod.import))
|
<
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
|
|
|
|
<
|
>
>
>
>
>
>
|
>
>
>
>
>
>
|
|
>
|
>
>
>
>
>
|
>
>
<
|
|
|
|
<
>
|
|
|
|
|
|
<
|
|
|
|
|
|
|
<
|
<
>
|
27
28
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
http-client srfi-18 extras format)
;; Added for csv stuff - will be removed
;;
(use sparse-vectors)
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses stml2))
(declare (uses pkts))
(declare (uses ulex))
(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))
(import cookie)
(import stml2)
(import pkts)
(import ulex)
;; order matters?
(declare (uses commonmod))
(declare (uses itemsmod))
(declare (uses apimod))
(declare (uses cookie))
(declare (uses keysmod))
(declare (uses odsmod))
(declare (uses dbmod))
(declare (uses servermod))
(declare (uses ducttape-lib))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses rmtmod))
(declare (uses subrunmod))
(declare (uses mtmod))
(declare (uses runsmod))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses megamod))
(import commonmod)
(import itemsmod)
(import keysmod)
(import pgdbmod)
(import tasksmod)
(import odsmod)
(import dbmod)
(import servermod)
(import apimod)
(import ducttape-lib)
(import mutils)
(import rmtmod)
(import testsmod)
(import subrunmod)
(import mtmod)
(import runsmod)
(import megamod)
;; NOTE: Order is important!
;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))
(declare (uses cookie.import))
(declare (uses stml2.import))
(declare (uses pkts.import))
(declare (uses ulex.import))
;; invoke the imports
(declare (uses commonmod.import))
(declare (uses itemsmod.import))
(declare (uses keysmod.import))
(declare (uses pgdbmod.import))
(declare (uses tasksmod.import))
(declare (uses odsmod.import))
(declare (uses dbmod.import))
(declare (uses servermod.import))
(declare (uses apimod.import))
(declare (uses ducttape-lib.import))
(declare (uses mutils.import))
(declare (uses rmtmod.import))
(declare (uses subrunmod.import))
(declare (uses mtmod.import))
(declare (uses testsmod.import))
(declare (uses runsmod.import))
(declare (uses megamod.import))
(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))
(include "common_records.scm")
|