254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
;;======================================================================
;; given a mtutil param, return the old megatest equivalent
;;
(define (param-translate param)
(or (alist-ref (string->symbol param)
'((-tag-expr . "-tagexpr")
(-mode-patt . "--modepatt")
(-run-name . "-runname")
(-test-patt . "-testpatt")
(-msg . "-m")
(-new . "-set-state-status")))
param))
(define (val->alist val)
|
|
|
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
;;======================================================================
;; given a mtutil param, return the old megatest equivalent
;;
(define (param-translate param)
(or (alist-ref (string->symbol param)
'((-tag-expr . "-tagexpr")
(-mode-patt . "-modepatt")
(-run-name . "-runname")
(-test-patt . "-testpatt")
(-msg . "-m")
(-new . "-set-state-status")))
param))
(define (val->alist val)
|