syndicate-lang
/
racket-ssh-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More utility prefab messages.

This commit is contained in:
Tony Garnock-Jones 2011-10-24 18:34:08 -04:00
parent 67a00406d0
commit 125e19f41a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
conversation.rkt
View File

@ -22,6 +22,10 @@
;; Generic utility messages
(struct-out credit)
(struct-out rpc-request)
(struct-out rpc-reply)
(struct-out rpc-error)
)
(struct arrived (who) #:prefab) ;; someone arrived
@ -30,6 +34,10 @@
(struct credit (who amount) #:prefab) ;; give someone an amount of credit
(struct rpc-request (reply-to id body) #:prefab)
(struct rpc-reply (id body) #:prefab)
(struct rpc-error (id reason) #:prefab)
(struct room (name ch))
(struct room-state (name ch members) #:transparent)