Source file `DLL.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
(* 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.DLL.t Ctypes.ptr

let open_ filename =
  let lib = Ctypes.(addr (make C.Types.DLL.t)) in
  let result = C.Functions.DLL.open_ (Ctypes.ocaml_string_start filename) lib in
  if result then
    None
  else
    Some lib

let close =
  C.Functions.DLL.close

let sym lib name =
  let address = Ctypes.(allocate (ptr void) null) in
  let result =
    C.Functions.DLL.sym lib (Ctypes.ocaml_string_start name) address in
  if result then
    None
  else
    Some (Ctypes.(raw_address_of_ptr (!@ address)))

let error =
  C.Functions.DLL.error