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

Merge branch 'c-cube:master' into client-ip

Browse source
This commit is contained in:
Stéphane Lavergne 2023-08-08 15:32:23 -04:00 • committed by GitHub
commit 0a111c8cdb
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/writer.ml
View file

@ -4,10 +4,10 @@ let serve_zeroes server : unit =
H.add_route_handler server H.(Route.(exact "zeroes" @/ int @/ return)) H.add_route_handler server H.(Route.(exact "zeroes" @/ int @/ return))
@@ fun n _req -> @@ fun n _req ->
(* stream [n] zeroes *) (* stream [n] zeroes *)
let write (oc : H.IO.Out_channel.t) : unit = let write (oc : H.IO.Output.t) : unit =
let buf = Bytes.make 1 '0' in let buf = Bytes.make 1 '0' in
for _i = 1 to n do for _i = 1 to n do
H.IO.Out_channel.output oc buf 0 1 H.IO.Output.output oc buf 0 1
done done
in in
let writer = H.IO.Writer.make ~write () in let writer = H.IO.Writer.make ~write () in
@ -24,7 +24,7 @@ let serve_file server : unit =
Fun.protect ~finally:(fun () -> close_in_noerr ic) @@ fun () -> Fun.protect ~finally:(fun () -> close_in_noerr ic) @@ fun () ->
while while
let n = input ic buf 0 (Bytes.length buf) in let n = input ic buf 0 (Bytes.length buf) in
if n > 0 then H.IO.Out_channel.output oc buf 0 n; if n > 0 then H.IO.Output.output oc buf 0 n;
n > 0 n > 0
do do
() ()