X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=fa2e34187b9567cd0d1743a519940573da31eff5;hp=fba005f65ade614000c4099ff72bc54c80219609;hb=5365ebd501850ea10d9a5b28fc6480ea34dbe16d;hpb=01c26253a12ed1e6b1199f8c85f049a7fc4aef28;ds=sidebyside

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index fba005f..fa2e341 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -125,3 +125,26 @@ 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"
+external file : t -> string -> string = "ocaml_guestfs_file"
+external command : t -> string array -> string = "ocaml_guestfs_command"
+external command_lines : t -> string array -> string array = "ocaml_guestfs_command_lines"