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

websocket-server -> websocket-local-server

This commit is contained in:
Tony Garnock-Jones 2014-01-13 19:33:48 -05:00
parent 154c0664a3
commit 67e9483d0e
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
minimart/drivers/websocket.rkt
View File

@ -11,7 +11,7 @@
(require net/ssl-tcp-unit)
(provide (struct-out websocket-remote-client)
(struct-out websocket-server)
(struct-out websocket-local-server)
(struct-out websocket-ssl-options)
(struct-out websocket-message)
spawn-websocket-driver)
@ -20,7 +20,7 @@
;; Protocol messages
(struct websocket-remote-client (id) #:prefab)
(struct websocket-server (port ssl-options) #:prefab)
(struct websocket-local-server (port ssl-options) #:prefab)
(struct websocket-ssl-options (cert-file key-file) #:prefab)
(struct websocket-message (from to body) #:prefab)
@ -28,7 +28,7 @@
;; Driver
(define (spawn-websocket-driver)
(spawn-demand-matcher (websocket-message ? (websocket-server ? ?) ?)
(spawn-demand-matcher (websocket-message ? (websocket-local-server ? ?) ?)
#:demand-level 1
#:supply-level 2
(match-lambda
@ -71,7 +71,7 @@
ssl-tcp@)
(define (spawn-websocket-listener server-addr)
(match-define (websocket-server port ssl-options) server-addr)
(match-define (websocket-local-server port ssl-options) server-addr)
(define ch (make-channel))
(define shutdown-procedure (ws-serve #:port port
#:tcp@ (if ssl-options

4
minimart/examples/ws-hello-ssl.rkt
View File

@ -6,8 +6,8 @@
(spawn-websocket-driver)
(define any-client (websocket-remote-client ?))
(define server-id (websocket-server 8081 (websocket-ssl-options "server-cert.pem"
"private-key.pem")))
(define server-id (websocket-local-server 8081 (websocket-ssl-options "server-cert.pem"
"private-key.pem")))
(spawn-demand-matcher (websocket-message any-client server-id ?)
#:demand-is-subscription? #f

2
minimart/examples/ws-hello.rkt
View File

@ -6,7 +6,7 @@
(spawn-websocket-driver)
(define any-client (websocket-remote-client ?))
(define server-id (websocket-server 8081 #f))
(define server-id (websocket-local-server 8081 #f))
(spawn-demand-matcher (websocket-message any-client server-id ?)
#:demand-is-subscription? #f