git.annexia.org
/
libguestfs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
63bfcdb
)
ocaml: Add g#ocaml_handle method.
author
Richard W.M. Jones
<rjones@redhat.com>
Mon, 4 Oct 2010 19:34:36 +0000
(20:34 +0100)
committer
Richard W.M. Jones
<rjones@redhat.com>
Mon, 4 Oct 2010 19:34:36 +0000
(20:34 +0100)
generator/generator_ocaml.ml
patch
|
blob
|
history
diff --git
a/generator/generator_ocaml.ml
b/generator/generator_ocaml.ml
index
3bdba68
..
6cb843a
100644
(file)
--- 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.
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 ()]
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 close : unit -> unit
method set_progress_callback : progress_cb -> unit
method clear_progress_callback : unit -> unit
+ method ocaml_handle : t
";
List.iter (
";
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 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 (
";
List.iter (