@@ -132,8 +132,10 @@ external interface_close : handle -> unit = "stub_xc_interface_close"
* interface_open and interface_close or with_intf although mixing both
* is possible *)
val with_intf : (handle -> 'a) -> 'a
+
(** [get_handle] returns the global handle used by [with_intf] *)
val get_handle: unit -> handle option
+
(** [close handle] closes the handle maintained by [with_intf]. This
* should only be closed before process exit. It must not be called from
* a function called directly or indirectly by with_intf as this
Signed-off-by: Edwin Török <edvin.torok@citrix.com> --- tools/ocaml/libs/xc/xenctrl.mli | 2 ++ 1 file changed, 2 insertions(+)