Module Async_unix__.Syscall
module Syscall_result = Core.Unix.Syscall_result
val syscall : (unit -> 'a) -> ('a, exn) Core.Result.t
syscall f
repeatedly callsf
until it returns or raises an exception that isn'tUnix_error (EINTR, _, _)
.
val syscall_result : 'a -> ('a -> 'b Syscall_result.t) -> 'b Syscall_result.t
syscall_result a f
repeatedly callsf a
until it returns a result that is notSyscall_result.create_error EINTR
.
val syscall_result2 : 'a -> 'b -> ('a -> 'b -> 'c Syscall_result.t) -> 'c Syscall_result.t