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

Rearrange chat-simplified-internals2.rkt

This commit is contained in:
Tony Garnock-Jones 2017-03-14 18:06:02 -04:00
parent 66667d9fe6
commit 689d410bda
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
racket/syndicate/examples/actor/chat-simplified-internals2.rkt
View File

@ -35,13 +35,12 @@
(spawn #:name 'chat-server
(during/spawn (tcp-connection $id (tcp-listener 5999))
(assert (tcp-accepted id))
(define me (gensym 'user)) ;; a random user name
(assert (present me))
(let ((me (gensym 'user)))
(assert (present me))
(on (message (tcp-in id $line))
(send! (speak me line))))
(during (present $user)
(on-start (send! (tcp-out id (~a user " arrived"))))
(on-stop (send! (tcp-out id (~a user " left")))))
(on (message (speak $user $text))
(send! (tcp-out id (~a user " says '" text "'"))))
(on (message (tcp-in id $line))
(send! (speak me line)))))
(on-stop (send! (tcp-out id (~a user " left"))))
(on (message (speak user $text))
(send! (tcp-out id (~a user " says '" text "'")))))))