From 0dca5bfbe35a6175bf5da97359903ca58c6d140e Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 9 May 2019 11:16:29 +0100 Subject: [PATCH] Allow specification of host/port/scope in server-chat-client.rkt --- syndicate/examples/server-chat-client.rkt | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/syndicate/examples/server-chat-client.rkt b/syndicate/examples/server-chat-client.rkt index 12bdddc..0341eb5 100644 --- a/syndicate/examples/server-chat-client.rkt +++ b/syndicate/examples/server-chat-client.rkt @@ -7,11 +7,22 @@ (assertion-struct Present (name)) (message-struct Says (who what)) +(define host (make-parameter "localhost")) +(define port (make-parameter 8001)) +(define scope (make-parameter "broker")) + +(module+ main + (require racket/cmdline) + (command-line #:once-each + ["--host" hostname "Server hostname" (host hostname)] + ["--port" portnum "Server port number" (port (string->number portnum))] + ["--scope" scopename "Server scope" (scope scopename)])) + (spawn #:name 'main (field [username (symbol->string (strong-gensym 'chatter-))]) (define root-facet (current-facet)) - (define url (standard-localhost-server/tcp)) + (define url (server-tcp-connection (host) (port) (scope))) (during (server-connected url) (on-start (log-info "Connected to server.")) (on-stop (log-info "Disconnected from server."))