summaryrefslogtreecommitdiffstats
path: root/generator
diff options
context:
space:
mode:
authorRichard W.M. Jones <rjones@redhat.com>2010-10-04 20:34:36 +0100
committerRichard W.M. Jones <rjones@redhat.com>2010-10-04 20:34:36 +0100
commit6fbbcdd64c1983efeadb846958865373df962078 (patch)
tree2773c78a62272973c57862b132f7a798ddb766d1 /generator
parent63bfcdbdd81b81e6a8e2157de36f9e1638801570 (diff)
downloadlibguestfs-6fbbcdd64c1983efeadb846958865373df962078.tar.gz
libguestfs-6fbbcdd64c1983efeadb846958865373df962078.tar.xz
libguestfs-6fbbcdd64c1983efeadb846958865373df962078.zip
ocaml: Add g#ocaml_handle method.
Diffstat (limited to 'generator')
-rw-r--r--generator/generator_ocaml.ml4
1 files changed, 4 insertions, 0 deletions
diff --git a/generator/generator_ocaml.ml b/generator/generator_ocaml.ml
index 3bdba68f..6cb843aa 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 (