|
|
@ -11,16 +11,16 @@
|
|
|
|
send-message receive-message
|
|
|
|
send-message receive-message
|
|
|
|
|
|
|
|
|
|
|
|
; low level API
|
|
|
|
; low level API
|
|
|
|
send-frame read-frame read-frame-payload
|
|
|
|
;; send-frame read-frame read-frame-payload
|
|
|
|
receive-fragments valid-utf8?
|
|
|
|
;; receive-fragments valid-utf8?
|
|
|
|
control-frame? upgrade-to-websocket
|
|
|
|
;; control-frame? upgrade-to-websocket
|
|
|
|
current-websocket unmask close-websocket
|
|
|
|
;; current-websocket unmask close-websocket
|
|
|
|
process-fragments
|
|
|
|
;; process-fragments
|
|
|
|
|
|
|
|
|
|
|
|
; fragment
|
|
|
|
;; ; fragment
|
|
|
|
make-fragment fragment? fragment-payload fragment-length
|
|
|
|
;; make-fragment fragment? fragment-payload fragment-length
|
|
|
|
fragment-masked? fragment-masking-key fragment-last?
|
|
|
|
;; fragment-masked? fragment-masking-key fragment-last?
|
|
|
|
fragment-optype
|
|
|
|
;; fragment-optype
|
|
|
|
)
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
(import chicken scheme data-structures extras ports posix foreign)
|
|
|
|
(import chicken scheme data-structures extras ports posix foreign)
|
|
|
|