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
|
(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)
(declare (uses megamod))
(import megamod)
(declare (uses commonmod))
(import commonmod)
(declare (uses rmtmod))
(import rmtmod)
(declare (uses runsmod))
(import runsmod)
(declare (uses dbmod))
(import dbmod)
(declare (uses testsmod))
(import testsmod)
(declare (uses dcommonmod))
(import dcommonmod)
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "vg_records.scm")
;; invoke the imports - ORDER IS IMPORTANT!
(declare (uses gutilsmod.import))
(declare (uses commonmod.import))
(declare (uses testsmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses megamod.import))
(declare (uses dcommonmod.import))
|
<
<
<
<
<
<
>
>
>
>
>
>
|
>
|
|
|
>
>
|
|
>
>
>
>
>
|
|
>
>
>
>
>
>
>
>
>
>
>
|
>
|
>
>
>
|
|
|
>
>
|
<
<
<
<
<
<
<
<
|
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
|
(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 tasksmod))
(declare (uses dcommonmod))
(declare (uses tasksmod))
(import gutilsmod)
(import megamod)
(import commonmod)
(import rmtmod)
(import runsmod)
(import dbmod)
(import testsmod)
(import tasksmod)
(import dcommonmod)
;; invoke the imports - ORDER IS IMPORTANT!
(declare (uses commonmod.import))
(declare (uses odsmod.import))
(declare (uses pgdbmod.import))
(declare (uses tasksmod.import))
(declare (uses gutilsmod.import))
(declare (uses keysmod.import))
(declare (uses dbmod.import))
(declare (uses itemsmod.import))
(declare (uses dbmod.import))
(declare (uses servermod.import))
(declare (uses apimod.import))
(declare (uses rmtmod.import))
(declare (uses testsmod.import))
(declare (uses subrunmod.import))
(declare (uses mtmod.import))
(declare (uses runsmod.import))
(declare (uses megamod.import))
(declare (uses dcommonmod.import))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "vg_records.scm")
(mtconfigf#set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)
(mtconfigf#add-eval-string "(import megamod commonmod (prefix mtargs args:))")
(define help (conc
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
|