package index
A platform-agnostic multi-level index for OCaml
Install
Dune Dependency
Authors
Maintainers
Sources
index-1.6.0.tbz
sha256=5e0c1f6cbd6e485cbbf2344c8f76de8a7869155355ae6edd5550c88da0661594
sha512=613fa206d1124b34259421f4ea978ce4e9404d78af3a687c1e406d88a5d481bd51465fafae58da9eb3e6a0b5408118b8a7dfe1fbb05ce8fed4b8b0a572beb99b
doc/src/index.unix/syscalls.ml.html
Source file syscalls.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35open! Import external pread_int : Unix.file_descr -> int -> bytes -> int -> int -> int = "caml_index_pread_int" external pread_int64 : Unix.file_descr -> int64 -> bytes -> int -> int -> int = "caml_index_pread_int64" let pread : fd:_ -> fd_offset:int63 -> _ = match Int63.is_immediate with | True -> fun ~fd ~fd_offset ~buffer ~buffer_offset ~length -> pread_int fd fd_offset buffer buffer_offset length | False -> fun ~fd ~fd_offset ~buffer ~buffer_offset ~length -> pread_int64 fd (Int63.Boxed.to_int64 fd_offset) buffer buffer_offset length external pwrite_int : Unix.file_descr -> int -> bytes -> int -> int -> int = "caml_index_pwrite_int" external pwrite_int64 : Unix.file_descr -> int64 -> bytes -> int -> int -> int = "caml_index_pwrite_int64" let pwrite : fd:_ -> fd_offset:int63 -> _ = match Int63.is_immediate with | True -> fun ~fd ~fd_offset ~buffer ~buffer_offset ~length -> pwrite_int fd fd_offset buffer buffer_offset length | False -> fun ~fd ~fd_offset ~buffer ~buffer_offset ~length -> pwrite_int64 fd (Int63.Boxed.to_int64 fd_offset) buffer buffer_offset length