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

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index 99d5903..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"
@@ -229,3 +232,6 @@ external drop_caches : t -> int -> unit = "ocaml_guestfs_drop_caches"
 external dmesg : t -> string = "ocaml_guestfs_dmesg"
 external ping_daemon : t -> unit = "ocaml_guestfs_ping_daemon"
 external equal : t -> string -> string -> bool = "ocaml_guestfs_equal"
+external strings : t -> string -> string array = "ocaml_guestfs_strings"
+external strings_e : t -> string -> string -> string array = "ocaml_guestfs_strings_e"
+external hexdump : t -> string -> string = "ocaml_guestfs_hexdump"