package index
A platform-agnostic multi-level index for OCaml
Install
Dune Dependency
Authors
Maintainers
Sources
index-1.4.0.tbz
sha256=8cd859751eb01b578402ec7de3d67fc0b92106381df9704331da81c25041ad8f
sha512=212d674b50b091f8fd3ad0e793e06c555bd012669ff6eb2fe0774469a64f008c1957795203a3b5e08a583e66aa34f2e11f02def7f818bd54c1bf3ad07b71c3ec
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