package dlm

You can search for identifiers within the package.

in-package search v0.2.0

Libdlm bindings

Install

Dune Dependency

github.com Readme Changelog LGPL-2.1-only WITH OCaml-LGPL-linking-exception License Edit opam file Versions (3)

Authors

E

Edwin Török

Maintainers

X

xen-api@list.xensource.com

Sources

v0.3.1.tar.gz

sha256=35dbd516b5e0bb47f480503d4a6f68ad85423a6dbbfe06d85ac38fc5ff03edc5

md5=b9828082d6d4dbf9f2960f711e7e2e44

doc/src/dlm.bindings/bindings.ml.html

Source file `bindings.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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
(*
 * Copyright (C) Citrix Systems Inc.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published
 * by the Free Software Foundation; version 2.1 only. with the special
 * exception on linking described in file LICENSE.md.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *)

open Ctypes
module Types = Bindings_structs_lib.Bindings_structs.Make(Generated_types)
module Make(F: Cstubs.FOREIGN) = struct
  open F
  open PosixTypes

  external unix_error_of_errno : int -> Unix.error = "unix_error_of_code"
  type dlm_lshandle_t = unit ptr
  let dlm_lshandle_t : dlm_lshandle_t typ = ptr void
  let dlm_lshandle_t_opt : dlm_lshandle_t option typ = ptr_opt void

  (* always use [ptr_opt ...] to check for NULL return values,
     and take [ptr ...] as arguments to ensure non-NULL *)

  let dlm_create_lockspace = foreign "dlm_create_lockspace"
      (string @-> mode_t @-> returning dlm_lshandle_t_opt)
  (*  let dlm_new_lockspace = foreign "dlm_new_lockspace"
        (string @-> mode_t @-> uint32_t @-> returning dlm_lshandle_t)*)
  let dlm_open_lockspace = foreign "dlm_open_lockspace"
      (string @-> returning dlm_lshandle_t_opt)
  let dlm_ls_pthread_init = foreign "dlm_ls_pthread_init"
      (dlm_lshandle_t @-> returning int)

  let dlm_release_lockspace = foreign "dlm_release_lockspace"
      (string @-> dlm_lshandle_t @-> int @-> returning int)
  let dlm_close_lockspace = foreign "dlm_close_lockspace"
      (dlm_lshandle_t @-> returning int)

  let mode = uint32_t
  let flags = uint32_t
  let dlm_lksb = ptr Types.Dlm_lksb.t

  let ast_cb = ptr_opt void (* TODO: callback *)
  let bast_cb = ptr_opt void (* TODO: callback *)

  let dlm_ls_lockx = foreign "dlm_ls_lockx"
      (dlm_lshandle_t @-> mode @-> dlm_lksb @-> flags @-> string @-> uint @->
       uint32_t @-> ast_cb @-> ptr_opt void @-> bast_cb @->
       ptr_opt uint64_t @-> ptr_opt uint64_t @-> returning int)

  let dlm_ls_unlock_wait = foreign "dlm_ls_unlock_wait"
      (dlm_lshandle_t @-> uint32_t @-> uint32_t @-> dlm_lksb @-> returning int)
end