X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=2544b16bc6b71d3afbf1a2101dbb202633e0f3f4;hp=ab958b70a49fe84882c037c38519de0a31f9d45b;hb=e8ecc08f663b44f3d79517affe52f137858dfe00;hpb=0faa5dde7b992ba11bb88f77b3424676c7c492e4

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index ab958b7..2544b16 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -125,6 +125,8 @@ external set_qemu : t -> string -> unit = "ocaml_guestfs_set_qemu"
 external get_qemu : t -> string = "ocaml_guestfs_get_qemu"
 external set_path : t -> string -> unit = "ocaml_guestfs_set_path"
 external get_path : t -> string = "ocaml_guestfs_get_path"
+external set_append : t -> string -> unit = "ocaml_guestfs_set_append"
+external get_append : t -> string = "ocaml_guestfs_get_append"
 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"
@@ -136,6 +138,7 @@ external is_busy : t -> bool = "ocaml_guestfs_is_busy"
 external get_state : t -> int = "ocaml_guestfs_get_state"
 external set_busy : t -> unit = "ocaml_guestfs_set_busy"
 external set_ready : t -> unit = "ocaml_guestfs_set_ready"
+external end_busy : t -> unit = "ocaml_guestfs_end_busy"
 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
 external sync : t -> unit = "ocaml_guestfs_sync"
 external touch : t -> string -> unit = "ocaml_guestfs_touch"