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
35
[@@@alert "-unstable"]
open Eio.Std
open Types
type _ Effect.t +=
| Await_readable : Unix.file_descr -> unit Effect.t
| Await_writable : Unix.file_descr -> unit Effect.t
| Get_monotonic_clock : Eio.Time.Mono.ty r Effect.t
| Pipe : Switch.t -> (source_ty r * sink_ty r) Effect.t
let await_readable fd = Effect.perform (Await_readable fd)
let await_writable fd = Effect.perform (Await_writable fd)
let pipe sw = Effect.perform (Pipe sw)
module Rcfd = Rcfd
module Fork_action = Fork_action
module Thread_pool = Thread_pool
external eio_readlinkat : Unix.file_descr -> string -> Cstruct.t -> int = "eio_unix_readlinkat"
let read_link_unix fd path =
match fd with
| None -> Unix.readlink path
| Some fd ->
let rec aux size =
let buf = Cstruct.create_unsafe size in
let len = eio_readlinkat fd path buf in
if len < size then Cstruct.to_string ~len buf
else aux (size * 4)
in
aux 1024
let read_link fd path = Fd.use_exn_opt "readlink" fd (fun fd -> read_link_unix fd path)