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

add IO.Out_channel.of_buffer

Browse source
This commit is contained in:
Simon Cruanes 2023-07-18 13:57:12 -04:00
parent 355cc4d004
commit 29de702c55
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tiny_httpd_io.ml
View file

@ -79,6 +79,11 @@ module Out_channel = struct
close_out oc);
}
(** [of_buffer buf] is an output channel that writes directly into [buf].
[flush] and [close] have no effect. *)
let of_buffer (buf : Buffer.t) : t =
{ output = Buffer.add_subbytes buf; flush = ignore; close = ignore }
(** Output the buffer slice into this channel *)
let[@inline] output (self : t) buf i len : unit = self.output buf i len