24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
matchable regex posix (srfi 18) extras ;; tcp
(prefix nanomsg nmsg:)
(prefix sqlite3 sqlite3:)
(prefix dbi dbi:)
)
(declare (unit common))
;; (declare (uses commonmod))
;; (import commonmod)
(import pkts)
(include "common_records.scm")
;; (require-library margs)
;; (include "margs.scm")
|
|
|
>
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
matchable regex posix (srfi 18) extras ;; tcp
(prefix nanomsg nmsg:)
(prefix sqlite3 sqlite3:)
(prefix dbi dbi:)
)
(declare (unit common))
(declare (uses commonmod))
(import (prefix commonmod cmod:))
(import pkts)
(include "common_records.scm")
;; (require-library margs)
;; (include "margs.scm")
|
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
|
(if val val default)))
(define (assoc/default key lst . default)
(let ((res (assoc key lst)))
(if res (cadr res)(if (null? default) #f (car default)))))
(define (common:get-testsuite-name)
(or (configf:lookup *configdat* "setup" "area-name") ;; megatest is a flexible tool, testsuite is too limiting a description.
(configf:lookup *configdat* "setup" "testsuite" )
(getenv "MT_TESTSUITE_NAME")
(if (string? *toppath* )
(pathname-file *toppath*)
#f))) ;; (pathname-file (current-directory)))))
;; safe getting of toppath
(define (common:get-toppath areapath)
(or *toppath*
(if areapath
(begin
(set! *toppath* areapath)
|
<
<
<
|
<
<
|
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
|
(if val val default)))
(define (assoc/default key lst . default)
(let ((res (assoc key lst)))
(if res (cadr res)(if (null? default) #f (car default)))))
(define (common:get-testsuite-name)
(cmod:get-testsuite-name *toppath* *configdat*))
;; safe getting of toppath
(define (common:get-toppath areapath)
(or *toppath*
(if areapath
(begin
(set! *toppath* areapath)
|