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

Command-line control of nickname in server-chat-client

This commit is contained in:
Tony Garnock-Jones 2019-06-11 18:34:25 +01:00
parent 052be5c58e
commit be0dc5413b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,6 +10,7 @@
(define host (make-parameter "localhost"))
(define port (make-parameter 8001))
(define scope (make-parameter "chat"))
(define initial-username (make-parameter (symbol->string (strong-gensym 'chatter-))))
(file-stream-buffer-mode (current-output-port) 'line)
@ -18,10 +19,11 @@
(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)]))
["--scope" scopename "Server scope" (scope scopename)]
["--nick" nick "User nickname" (initial-username nick)]))
(spawn #:name 'main
(field [username (symbol->string (strong-gensym 'chatter-))])
(field [username (initial-username)])
(define root-facet (current-facet))
(define url (server-tcp-connection (host) (port) (scope)))