syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Allow specification of host/port/scope in server-chat-client.rkt

This commit is contained in:
Tony Garnock-Jones 2019-05-09 11:16:29 +01:00
parent 88ec80487d
commit 0dca5bfbe3
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
syndicate/examples/server-chat-client.rkt
View File

@ -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."))