···11-(* See the end of the file for the license *)
22-external stub_write : Unix.file_descr -> Cstruct.t -> int = "eio_windows_cstruct_write"
33-44-let rec write fd buf =
55- if Cstruct.length buf > 0 then begin
66- let n = stub_write fd buf in
77- write fd @@ Cstruct.shift buf n
88- end
99-1010-let writev fd bufs = List.iter (write fd) bufs
1111-1212-external read : Unix.file_descr -> Cstruct.t -> int = "eio_windows_cstruct_read"
1313-1414-(* From mirage/ocaml-cstruct
1515-Copyright (c) 2012 Anil Madhavapeddy <anil@recoil.org>
1616-Copyright (c) 2012 Pierre Chambart
1717-Copyright (c) Christiano F. Haesbaert <haesbaert@haesbaert.org>
1818-Copyright (c) Citrix Inc
1919-Copyright (c) David Sheets <sheets@alum.mit.edu>
2020-Copyright (c) Drup <drupyog@zoho.com>
2121-Copyright (c) Hannes Mehnert <hannes@mehnert.org>
2222-Copyright (c) Jeremy Yallop <yallop@gmail.com>
2323-Copyright (c) Mindy Preston <meetup@yomimono.org>
2424-Copyright (c) Nicolas Ojeda Bar <n.oje.bar@gmail.com>
2525-Copyright (c) Richard Mortier <mort@cantab.net>
2626-Copyright (c) Rudi Grinberg <rudi.grinberg@gmail.com>
2727-Copyright (c) Thomas Gazagnaire <thomas@gazagnaire.com>
2828-Copyright (c) Thomas Leonard <talex5@gmail.com>
2929-Copyright (c) Vincent Bernardoff <vb@luminar.eu.org>
3030-Copyright (c) pqwy <david@numm.org>
3131-3232-Permission to use, copy, modify, and distribute this software for any
3333-purpose with or without fee is hereby granted, provided that the above
3434-copyright notice and this permission notice appear in all copies.
3535-3636-THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3737-WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3838-MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3939-ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
4040-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
4141-ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
4242-OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. *)