17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
-
-
+
+
|
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;;======================================================================
(declare (unit keysmod))
(declare (uses mtargs))
(declare (uses debugprint))
(declare (uses configfmod))
(declare (uses commonmod))
;; (declare (uses configfmod))
;; (declare (uses commonmod))
(module keysmod
*
(import scheme
chicken.base
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
-
+
|
srfi-13
srfi-69
stack
typed-records
z3
configfmod
commonmod
;; commonmod
)
;;======================================================================
;; Run keys, these are used to hierarchially organise tests and run areas
;;======================================================================
;; (use sqlite3 srfi-1 posix regex regex-case srfi-69)
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
119
120
121
122
123
124
125
126
127
|
-
-
-
-
-
-
-
-
-
-
-
+
-
-
|
(targtweaked (if (> numkeys numtarg)
(append targlist (make-list (- numkeys numtarg) ""))
targlist)))
(map (lambda (key targ)
(list key targ))
keys targtweaked)))
;;======================================================================
;; config file related routines
;;======================================================================
(define keys:config-get-fields common:get-fields)
(define (keys:make-key/field-string confdat)
(let ((fields (configf:get-section confdat "fields")))
(string-join
(map (lambda (field)(conc (car field) " " (cadr field)))
fields)
",")))
)
|