Source file `syscalls.ml`

1
2
3
4
5
6
7
8
9
10
11
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