Overview
| Comment: | wip - client api does not abort due to api mismatch, but does not work either |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62-rpc |
| Files: | files | file ages | folders |
| SHA1: |
c913299f5d3f7a958f47160cd3c734a7 |
| User & Date: | bjbarcla on 2016-12-05 22:08:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-06
| ||
| 16:59 | got client to start server in rpc mode check-in: 090fbdd4c6 user: bjbarcla tags: v1.62-rpc | |
|
2016-12-05
| ||
| 22:08 | wip - client api does not abort due to api mismatch, but does not work either check-in: c913299f5d user: bjbarcla tags: v1.62-rpc | |
| 21:57 | rpc server starts now check-in: 0b9de1bde2 user: bjbarcla tags: v1.62-rpc | |
Changes
Modified client.scm from [60f2284e51] to [e8cb4a6c94].
| ︙ | ︙ | |||
50 51 52 53 54 55 56 |
((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)
| | | | 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)
|
| ︙ | ︙ |