X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=027f0e9c74f6188434fa2d0365f645d293d34785;hp=a48b5264816d7c53e63301fc8a27deb53ee46377;hb=f68b3ac861ae607a333211c775dded82ae2b2c4a;hpb=0574eab8bc7d8e72db862ec36815835938a5fdf1

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index a48b526..027f0e9 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -167,6 +167,8 @@ 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 set_memsize : t -> int -> unit = "ocaml_guestfs_set_memsize"
+external get_memsize : t -> int = "ocaml_guestfs_get_memsize"
 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
 external sync : t -> unit = "ocaml_guestfs_sync"
 external touch : t -> string -> unit = "ocaml_guestfs_touch"
@@ -284,3 +286,18 @@ 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"
+external df : t -> string = "ocaml_guestfs_df"
+external df_h : t -> string = "ocaml_guestfs_df_h"
+external du : t -> string -> int64 = "ocaml_guestfs_du"
+external initrd_list : t -> string -> string array = "ocaml_guestfs_initrd_list"
+external mount_loop : t -> string -> string -> unit = "ocaml_guestfs_mount_loop"
+external mkswap : t -> string -> unit = "ocaml_guestfs_mkswap"
+external mkswap_L : t -> string -> string -> unit = "ocaml_guestfs_mkswap_L"
+external mkswap_U : t -> string -> string -> unit = "ocaml_guestfs_mkswap_U"