X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=0ea77c700eccf5283a7c89042fd7c2a6d9cc0941;hp=6477e95b7411d0b0614c56f83ace9d1e8339f8f6;hb=ef499de8946cf4b8120ef7917b2e5d7f9115041f;hpb=ad1d84a142169baaed293de71fb9430178d9f999

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index 6477e95..0ea77c7 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -127,6 +127,11 @@ external set_autosync : t -> bool -> unit = "ocaml_guestfs_set_autosync"
 external get_autosync : t -> bool = "ocaml_guestfs_get_autosync"
 external set_verbose : t -> bool -> unit = "ocaml_guestfs_set_verbose"
 external get_verbose : t -> bool = "ocaml_guestfs_get_verbose"
+external is_ready : t -> bool = "ocaml_guestfs_is_ready"
+external is_config : t -> bool = "ocaml_guestfs_is_config"
+external is_launching : t -> bool = "ocaml_guestfs_is_launching"
+external is_busy : t -> bool = "ocaml_guestfs_is_busy"
+external get_state : t -> int = "ocaml_guestfs_get_state"
 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
 external sync : t -> unit = "ocaml_guestfs_sync"
 external touch : t -> string -> unit = "ocaml_guestfs_touch"