32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(import (prefix sqlite3 sqlite3:))
;; (declare (uses common))
;; (declare (uses margs))
;; (declare (uses keys))
;; (declare (uses items))
;; (declare (uses db))
;; (declare (uses configf))
|
<
|
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
(import (prefix sqlite3 sqlite3:))
;; (declare (uses common))
;; (declare (uses margs))
;; (declare (uses keys))
;; (declare (uses items))
;; (declare (uses db))
;; (declare (uses process))
;; (declare (uses launch))
;; (declare (uses runs))
;; (declare (uses dashboard-tests))
;; (declare (uses dashboard-guimonitor))
;; (declare (uses tree))
;; (declare (uses dcommon))
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-fossil-hash.scm")
(include "vg_records.scm")
(configf:add-eval-string "(import megamod)")
(define help (conc
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
version " megatest-version "
license GPL, Copyright (C) Matt Welland 2012-2017
Usage: dashboard [options]
|
>
>
|
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-fossil-hash.scm")
(include "vg_records.scm")
(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)
(configf:add-eval-string "(import megamod)")
(define help (conc
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
version " megatest-version "
license GPL, Copyright (C) Matt Welland 2012-2017
Usage: dashboard [options]
|
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
"-rh5.11" ;; fix to allow running on rh5.11
)
args:arg-hash
0))
;; (set! *functions* dbmod#*functions*)
;; (set! apimod#*functions* dbmod#*functions*)
;; (set! configfmod#*functions* dbmod#*functions*)
|
<
|
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
"-rh5.11" ;; fix to allow running on rh5.11
)
args:arg-hash
0))
;; (set! *functions* dbmod#*functions*)
;; (set! apimod#*functions* dbmod#*functions*)
(include "migrate-fix.scm")
;; check for MT_* environment variables and exit if found
(if (not (args:get-arg "-test"))
(begin
(display "Checking for MT_ vars: ")
|