diff options
| author | David Thompson <dthompson2@worcester.edu> | 2016-03-25 10:57:20 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-03-25 10:57:20 -0400 |
| commit | ccecc46b64a24c6e9ec01c9e5d3a9fcb2295fcf0 (patch) | |
| tree | 7feb6269f4d496607b265a6a5f7bd795631acd81 /web/socket/utils.scm | |
| parent | ad05624ca326bc462c6007f421df92837cd4d8d9 (diff) | |
client: Keep track of socket state.
* web/socket/client.scm (<websocket>)[state]: New field.
(websocket-state, set-websocket-state!): New field accessors.
(websocket-connecting?, websocket-open?, websocket-closing?,
websocket-closed?): New procedures.
(handshake): Set socket to 'open' state after successful handshake.
(make-websocket): Set socket to 'connecting' state initially.
(close-websocket): Set socket to 'closing' before sending close frame,
and then to 'closed' underlying TCP socket is closed.
Diffstat (limited to 'web/socket/utils.scm')
0 files changed, 0 insertions, 0 deletions