56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
(client:setup areapath)
#f))))
;;======================================================================
(define *send-receive-mutex* (make-mutex)) ;; should have separate mutex per run-id
(define *alldat* (rmtmod:create-alldat *toppath*))
(define (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f))
(if (equal? (configf:lookup *configdat* "setup" "newapi") "yes")
(rmtmod:send-receive *alldat* cmd rid params)
|
|
>
>
>
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
(client:setup areapath)
#f))))
;;======================================================================
(define *send-receive-mutex* (make-mutex)) ;; should have separate mutex per run-id
(define *alldat* #f)
(define (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f))
(if (equal? (configf:lookup *configdat* "setup" "newapi") "yes")
(begin
(if (not *alldat*) ;; add wait here if *toppath* is not set
(set! *alldat* (rmtmod:create-alldat *toppath*)))
(rmtmod:send-receive *alldat* cmd rid params))
(rmt:send-receive-orig cmd rid params attemptnum: 1 area-dat: #f)))
;; RA => e.g. usage (rmt:send-receive 'get-var #f (list varname))
;;
(define (rmt:send-receive-orig 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))
|