X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=c631024b81934f23b48a875d44db310afb712dea;hb=19a1382fc9317ab88cdbf1dde76a8015868af51d;hp=d218b3e32d5bc8a8ccd06d4c6601fec9c6fdc556;hpb=c41fe04a652437c920acb0e820762c53bf44a139;p=libguestfs.git

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index d218b3e..c631024 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -147,6 +147,7 @@ external wait_ready : t -> unit = "ocaml_guestfs_wait_ready"
 external kill_subprocess : t -> unit = "ocaml_guestfs_kill_subprocess"
 external add_drive : t -> string -> unit = "ocaml_guestfs_add_drive"
 external add_cdrom : t -> string -> unit = "ocaml_guestfs_add_cdrom"
+external add_drive_ro : t -> string -> unit = "ocaml_guestfs_add_drive_ro"
 external config : t -> string -> string option -> unit = "ocaml_guestfs_config"
 external set_qemu : t -> string -> unit = "ocaml_guestfs_set_qemu"
 external get_qemu : t -> string = "ocaml_guestfs_get_qemu"
@@ -274,3 +275,19 @@ external lvresize : t -> string -> int -> unit = "ocaml_guestfs_lvresize"
 external resize2fs : t -> string -> unit = "ocaml_guestfs_resize2fs"
 external find : t -> string -> string array = "ocaml_guestfs_find"
 external e2fsck_f : t -> string -> unit = "ocaml_guestfs_e2fsck_f"
+external sleep : t -> int -> unit = "ocaml_guestfs_sleep"
+external ntfs_3g_probe : t -> bool -> string -> int = "ocaml_guestfs_ntfs_3g_probe"
+external sh : t -> string -> string = "ocaml_guestfs_sh"
+external sh_lines : t -> string -> string array = "ocaml_guestfs_sh_lines"
+external glob_expand : t -> string -> string array = "ocaml_guestfs_glob_expand"
+external scrub_device : t -> string -> unit = "ocaml_guestfs_scrub_device"
+external scrub_file : t -> string -> unit = "ocaml_guestfs_scrub_file"
+external scrub_freespace : t -> string -> unit = "ocaml_guestfs_scrub_freespace"
+external mkdtemp : t -> string -> string = "ocaml_guestfs_mkdtemp"
+external wc_l : t -> string -> int = "ocaml_guestfs_wc_l"
+external wc_w : t -> string -> int = "ocaml_guestfs_wc_w"
+external wc_c : t -> string -> int = "ocaml_guestfs_wc_c"
+external head : t -> string -> string array = "ocaml_guestfs_head"
+external head_n : t -> int -> string -> string array = "ocaml_guestfs_head_n"
+external tail : t -> string -> string array = "ocaml_guestfs_tail"
+external tail_n : t -> int -> string -> string array = "ocaml_guestfs_tail_n"