Source file `rwlock.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
(* This file is part of Luv, released under the MIT license. See LICENSE.md for
   details, or visit https://github.com/aantron/luv/blob/master/LICENSE.md. *)



type t = C.Types.Rwlock.t Ctypes.ptr

let init () =
  let rwlock = Ctypes.addr (Ctypes.make C.Types.Rwlock.t) in
  C.Functions.Rwlock.init rwlock
  |> Error.to_result rwlock

let destroy =
  C.Functions.Rwlock.destroy

let rdlock =
  C.Blocking.Rwlock.rdlock

let tryrdlock rwlock =
  C.Functions.Rwlock.tryrdlock rwlock
  |> Error.to_result ()

let rdunlock =
  C.Functions.Rwlock.rdunlock

let wrlock =
  C.Blocking.Rwlock.wrlock

let trywrlock rwlock =
  C.Functions.Rwlock.trywrlock rwlock
  |> Error.to_result ()

let wrunlock =
  C.Functions.Rwlock.wrunlock