Source file syscalls.ml

external pread : Unix.file_descr -> int64 -> bytes -> int -> int -> int
  = "caml_index_pread"

let pread ~fd ~fd_offset ~buffer ~buffer_offset ~length =
  pread fd fd_offset buffer buffer_offset length

external pwrite : Unix.file_descr -> int64 -> bytes -> int -> int -> int
  = "caml_index_pwrite"

let pwrite ~fd ~fd_offset ~buffer ~buffer_offset ~length =
  pwrite fd fd_offset buffer buffer_offset length