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

wip: zlib

Browse source
This commit is contained in:
Simon Cruanes 2019-11-18 18:42:43 -06:00
parent c2fb67615d
commit 8131c07425
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/zlib/Tiny_httpd_zlib.ml
View file

@ -60,7 +60,7 @@ let encode_deflate_stream_ (is:S.byte_stream) : S.byte_stream =
BS.close is BS.close is
in in
let bs_consume n = let bs_consume n =
write_offset := n + !write_offset write_offset := n + !write_offset
in in
let bs_fill_buf () = let bs_fill_buf () =
S._debug (fun k->k "deflate.fill buf"); S._debug (fun k->k "deflate.fill buf");
@ -127,9 +127,6 @@ let cb_decode_compressed_stream (req:unit S.Request.t) : _ option =
let req' = S.Request.set_header req "Transfer-Encoding" "chunked" in let req' = S.Request.set_header req "Transfer-Encoding" "chunked" in
Some (req', decode_gzip_stream_) Some (req', decode_gzip_stream_)
*) *)
| Some "deflate" ->
let req' = S.Request.set_header req "Transfer-Encoding" "chunked" in
Some (req', mk_decode_deflate_stream_ ())
| Some s when has_deflate s -> | Some s when has_deflate s ->
begin match Scanf.sscanf s "deflate; %s" (fun s -> s) with begin match Scanf.sscanf s "deflate; %s" (fun s -> s) with
| tr' -> | tr' ->