50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
((zmq) (zmq:client-connect iface port))
(else
(debug:print 0 *default-log-port* "ERROR: transport " (remote-transport *runremote*) " not supported (5)")
(exit))))
(define (client:setup run-id #!key (remaining-tries 10) (failed-connects 0))
(case (server:get-transport)
((rpc) (let ((res (rpc-transport:client-setup run-id remaining-tries: remaining-tries failed-connects: failed-connects)))
(remote-conndat-set! *runremote* runremote-server-dat)
res))
((http)(client:setup-http run-id remaining-tries: remaining-tries failed-connects: failed-connects))
(else
(debug:print 0 *default-log-port* "ERROR: transport " (remote-transport *runremote*) " not supported (6)")
(exit)))) ;; (client:setup-rpc run-id))))
;; (define (client:login-no-auto-setup server-info run-id)
|
|
|
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
((zmq) (zmq:client-connect iface port))
(else
(debug:print 0 *default-log-port* "ERROR: transport " (remote-transport *runremote*) " not supported (5)")
(exit))))
(define (client:setup run-id #!key (remaining-tries 10) (failed-connects 0))
(case (server:get-transport)
((rpc) (let ((res (client:setup-rpc run-id remaining-tries: remaining-tries)))
(remote-conndat-set! *runremote* res)
res))
((http)(client:setup-http run-id remaining-tries: remaining-tries failed-connects: failed-connects))
(else
(debug:print 0 *default-log-port* "ERROR: transport " (remote-transport *runremote*) " not supported (6)")
(exit)))) ;; (client:setup-rpc run-id))))
;; (define (client:login-no-auto-setup server-info run-id)
|