simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

debug in websocket

Browse source
This commit is contained in:
Simon Cruanes 2024-04-02 14:10:16 -04:00
parent 8dd86993d7
commit 4b845bf019
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/ws/tiny_httpd_ws.ml
View file

@ -314,10 +314,11 @@ module Reader = struct
n n
| Begin -> | Begin ->
read_frame_header self; read_frame_header self;
(*Log.debug (fun k -> Log.debug (fun k ->
k "websocket: read frame of type=%s payload_len=%d" k "websocket: read frame of type=%s payload_len=%d"
(Frame_type.show self.header.ty) (Frame_type.show self.header.ty)
self.header.payload_len);*) self.header.payload_len);
(match self.header.ty with (match self.header.ty with
| 0 -> | 0 ->
(* continuation *) (* continuation *)
@ -332,10 +333,12 @@ module Reader = struct
); );
read_rec self buf i len read_rec self buf i len
| 1 -> | 1 ->
(* text *)
self.state <- self.state <-
Reading_frame { remaining_bytes = self.header.payload_len }; Reading_frame { remaining_bytes = self.header.payload_len };
read_rec self buf i len read_rec self buf i len
| 2 -> | 2 ->
(* binary *)
self.state <- self.state <-
Reading_frame { remaining_bytes = self.header.payload_len }; Reading_frame { remaining_bytes = self.header.payload_len };
read_rec self buf i len read_rec self buf i len
@ -351,7 +354,7 @@ module Reader = struct
); );
0 0
| 9 -> | 9 ->
(* pong, just ignore *) (* ping, reply *)
skip_body self; skip_body self;
Writer.send_pong self.writer; Writer.send_pong self.writer;
read_rec self buf i len read_rec self buf i len