72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
cinfo
(if (server:check-if-running areapath)
(client:setup areapath)
#f))))
(define (create-remote-record)
(let ((rr (make-remote)))
(remote-hh-dat-set! rr (common:get-homehost)) ;
(remote-server-info-set! rr (if *toppath* (server:check-if-running *toppath*) #f))
(remote-transport-set! rr *transport-type*)
(remote-server-timeout-set! rr (server:expiration-timeout))
rr))
|
>
>
>
>
|
|
|
|
|
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
cinfo
(if (server:check-if-running areapath)
(client:setup areapath)
#f))))
(define (create-remote-record)
(let ((rr (make-remote)))
(rmt:init-remote rr)
rr))
(define (rmt:init-remote rr)
(remote-hh-dat-set! rr (common:get-homehost)) ;
(remote-server-info-set! rr (if *toppath* (server:check-if-running *toppath*) #f))
(remote-transport-set! rr *transport-type*)
(remote-server-timeout-set! rr (server:expiration-timeout))
rr)
;; RA => e.g. usage (rmt:send-receive 'get-var #f (list varname))
;;
(define (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f)) ;; start attemptnum at 1 so the modulo below works as expected
#;(common:telemetry-log (conc "rmt:"(->string cmd))
payload: `((rid . ,rid)
|