From: Richard W.M. Jones <rjones@redhat.com>
Date: Mon, 4 Oct 2010 19:34:36 +0000 (+0100)
Subject: ocaml: Add g#ocaml_handle method.
X-Git-Tag: 1.5.22~16
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=6fbbcdd64c1983efeadb846958865373df962078;hp=63bfcdbdd81b81e6a8e2157de36f9e1638801570

ocaml: Add g#ocaml_handle method.
---

diff --git a/generator/generator_ocaml.ml b/generator/generator_ocaml.ml
index 3bdba68..6cb843a 100644
--- a/generator/generator_ocaml.ml
+++ b/generator/generator_ocaml.ml
@@ -106,6 +106,8 @@ val clear_progress_callback : t -> unit
     object is garbage collected, or explicitly by calling the [g#close ()]
     method.
 
+    You can get the {!Guestfs.t} handle by calling [g#ocaml_handle].
+
     Note that methods that take no parameters (except the implicit handle)
     get an extra unit [()] parameter.  This is so you can create a
     closure from the method easily.  For example [g#get_verbose ()]
@@ -115,6 +117,7 @@ class guestfs : unit -> object
   method close : unit -> unit
   method set_progress_callback : progress_cb -> unit
   method clear_progress_callback : unit -> unit
+  method ocaml_handle : t
 ";
 
   List.iter (
@@ -174,6 +177,7 @@ class guestfs () =
     method close () = close g
     method set_progress_callback = set_progress_callback g
     method clear_progress_callback () = clear_progress_callback g
+    method ocaml_handle = g
 ";
 
   List.iter (