X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=58f99dc20ebc9df5e260adf172d63354d5b19a2a;hp=648786114fafa84fdb9d78d6ebff635f9d329ccf;hb=70c2ffc39677a9f5eb6b2230cb9ca2606b2fd966;hpb=e7eca50046e9a69dac27c0bee832af0a3014e02c

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index 6487861..58f99dc 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -124,3 +124,24 @@ external aug_mv : t -> string -> string -> unit = "ocaml_guestfs_aug_mv"
 external aug_match : t -> string -> string array = "ocaml_guestfs_aug_match"
 external aug_save : t -> unit = "ocaml_guestfs_aug_save"
 external aug_load : t -> unit = "ocaml_guestfs_aug_load"
+external aug_ls : t -> string -> string array = "ocaml_guestfs_aug_ls"
+external rm : t -> string -> unit = "ocaml_guestfs_rm"
+external rmdir : t -> string -> unit = "ocaml_guestfs_rmdir"
+external rm_rf : t -> string -> unit = "ocaml_guestfs_rm_rf"
+external mkdir : t -> string -> unit = "ocaml_guestfs_mkdir"
+external mkdir_p : t -> string -> unit = "ocaml_guestfs_mkdir_p"
+external chmod : t -> int -> string -> unit = "ocaml_guestfs_chmod"
+external chown : t -> int -> int -> string -> unit = "ocaml_guestfs_chown"
+external exists : t -> string -> bool = "ocaml_guestfs_exists"
+external is_file : t -> string -> bool = "ocaml_guestfs_is_file"
+external is_dir : t -> string -> bool = "ocaml_guestfs_is_dir"
+external pvcreate : t -> string -> unit = "ocaml_guestfs_pvcreate"
+external vgcreate : t -> string -> string array -> unit = "ocaml_guestfs_vgcreate"
+external lvcreate : t -> string -> string -> int -> unit = "ocaml_guestfs_lvcreate"
+external mkfs : t -> string -> string -> unit = "ocaml_guestfs_mkfs"
+external sfdisk : t -> string -> int -> int -> int -> string array -> unit = "ocaml_guestfs_sfdisk_byte" "ocaml_guestfs_sfdisk"
+external write_file : t -> string -> string -> int -> unit = "ocaml_guestfs_write_file"
+external umount : t -> string -> unit = "ocaml_guestfs_umount"
+external mounts : t -> string array = "ocaml_guestfs_mounts"
+external umount_all : t -> unit = "ocaml_guestfs_umount_all"
+external lvm_remove_all : t -> unit = "ocaml_guestfs_lvm_remove_all"