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
|
(declare (uses mtargs))
(declare (uses mtconfigf))
(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))
(declare (uses apimod))
;; (declare (uses commonmod))
(declare (uses cookie))
(import apimod)
;; (import commonmod)
(import cookie)
(import dbmod)
(import ducttape-lib)
(import megamod)
(import mutils)
(import pgdbmod)
(import pkts)
(import rmtmod)
(import runsmod)
(import stml2)
(import testsmod)
(import ulex)
;; invoke the imports
(declare (uses apimod.import))
;; (declare (uses commonmod.import))
(declare (uses cookie.import))
(declare (uses dbmod))
(declare (uses ducttape-lib.import))
(declare (uses megamod.import))
(declare (uses mutils.import))
(declare (uses pkts.import))
(declare (uses pgdbmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses stml2.import))
(declare (uses tasksmod.import))
(declare (uses testsmod.import))
(declare (uses ulex.import))
;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))
|
>
>
|
|
|
|
|
|
>
>
>
|
>
>
>
|
>
|
|
>
<
<
<
<
|
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
|
(declare (uses mtargs))
(declare (uses mtconfigf))
(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))
;; order maters
(declare (uses commonmod))
(declare (uses apimod))
(declare (uses cookie))
(declare (uses keysmod))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses megamod))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses stml2))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses ulex))
(import commonmod)
(import keysmod)
(import dbmod)
(import apimod)
(import cookie)
(import ducttape-lib)
(import megamod)
(import mutils)
(import pgdbmod)
(import pkts)
(import rmtmod)
(import runsmod)
(import stml2)
(import testsmod)
(import ulex)
;; NOTE: Order is important!
;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))
;; invoke the imports
(declare (uses commonmod.import))
(declare (uses keysmod.import))
(declare (uses dbmod.import))
(declare (uses apimod.import))
(declare (uses cookie.import))
(declare (uses ducttape-lib.import))
(declare (uses megamod.import))
(declare (uses mutils.import))
(declare (uses pkts.import))
(declare (uses pgdbmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses stml2.import))
(declare (uses tasksmod.import))
(declare (uses testsmod.import))
(declare (uses ulex.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")
|