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
|
(declare (uses configfmod))
(declare (uses debugprint))
(declare (uses rmtmod))
(declare (uses megatestmod))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses tasksmod))
(declare (uses dcommon))
(declare (uses gutils))
(declare (uses db))
(declare (uses rmt))
(declare (uses ezsteps))
(declare (uses subrun))
(use format fmt)
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
(use srfi-1 posix regex regex-case srfi-69)
(use (prefix sqlite3 sqlite3:))
(import commonmod
configfmod
rmtmod
debugprint
megatestmod
dbmod
dbfile
tasksmod
)
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
;;======================================================================
|
>
>
>
>
>
>
|
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
|
(declare (uses configfmod))
(declare (uses debugprint))
(declare (uses rmtmod))
(declare (uses megatestmod))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses dcommon))
(declare (uses gutils))
(declare (uses db))
(declare (uses rmt))
(declare (uses ezsteps))
(declare (uses subrun))
(declare (uses runsmod))
(declare (uses subrunmod))
(use format fmt)
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
(use srfi-1 posix regex regex-case srfi-69)
(use (prefix sqlite3 sqlite3:))
(import commonmod
configfmod
rmtmod
debugprint
megatestmod
dbmod
dbfile
tasksmod
testsmod
runsmod
subrunmod
)
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
;;======================================================================
|