61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
-
+
|
;;======================================================================
;; S E R V E R U T I L I T I E S
;;======================================================================
;; Get the transport
(define (server:get-transport area-dat)
(if (megatest:area-transport area-dat)
(megatest-area-transport area-dat)
(megatest:area-transport area-dat)
(let ((ttype (string->symbol
(or (args:get-arg "-transport")
(configf:lookup (megatest:area-configdat area-dat) "server" "transport")
"rpc"))))
(megatest:area-transport-set! area-dat ttype)
ttype)))
|