package index
A platform-agnostic multi-level index for OCaml
Install
Dune Dependency
Authors
Maintainers
Sources
index-1.5.0.tbz
sha256=2e311cd0bad5b831ac4cebacc83d319b0bca7d5b713ef42dca2bcc064cda34e0
sha512=02d9bfe68daba9c857455244708bf7f25aac50a02a3c14b35cc499dd2a0ccfe5fa47016aea783efadc652bd922c6d4216eac8188400617e98ddc3eb98b9c16c3
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