401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
|
(or (args:get-arg "-state")(args:get-arg ":state")))
(define (common:args-get-status)
(or (args:get-arg "-status")(args:get-arg ":status")))
(define (common:args-get-testpatt)
(let* ((args-testpatt (or (args:get-arg "-testpatt")
(args:get-arg "-runtests")))
(testpatt (or (and (equal? args-testpatt "%")
(getenv "TESTPATT"))
args-testpatt)))
testpatt))
(define (common:args-get-runname)
(or (args:get-arg "-runname")
|
|
>
|
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
|
(or (args:get-arg "-state")(args:get-arg ":state")))
(define (common:args-get-status)
(or (args:get-arg "-status")(args:get-arg ":status")))
(define (common:args-get-testpatt)
(let* ((args-testpatt (or (args:get-arg "-testpatt")
(args:get-arg "-runtests")
"%"))
(testpatt (or (and (equal? args-testpatt "%")
(getenv "TESTPATT"))
args-testpatt)))
testpatt))
(define (common:args-get-runname)
(or (args:get-arg "-runname")
|