X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fguestfs.mli;h=846332cac14859fb4c615398858a8342f86d8109;hb=ab6f429a5a5ba084bdc948c0c21b2dceeae6298d;hp=6c763631ace94b4305a0e6ae66c1d708e30212b0;hpb=ef499de8946cf4b8120ef7917b2e5d7f9115041f;p=libguestfs.git

diff --git a/ocaml/guestfs.mli b/ocaml/guestfs.mli
index 6c76363..846332c 100644
--- a/ocaml/guestfs.mli
+++ b/ocaml/guestfs.mli
@@ -142,6 +142,12 @@ val add_cdrom : t -> string -> unit
 val config : t -> string -> string option -> unit
 (** add qemu parameters *)
 
+val set_qemu : t -> string -> unit
+(** set the qemu binary *)
+
+val get_qemu : t -> string
+(** get the qemu binary *)
+
 val set_path : t -> string -> unit
 (** set the search path *)
 
@@ -175,6 +181,12 @@ val is_busy : t -> bool
 val get_state : t -> int
 (** get the current state *)
 
+val set_busy : t -> unit
+(** set state to busy *)
+
+val set_ready : t -> unit
+(** set state to ready *)
+
 val mount : t -> string -> string -> unit
 (** mount a guest disk at a position in the filesystem *)
 
@@ -370,3 +382,36 @@ val blockdev_flushbufs : t -> string -> unit
 val blockdev_rereadpt : t -> string -> unit
 (** reread partition table *)
 
+val upload : t -> string -> string -> unit
+(** upload a file from the local machine *)
+
+val download : t -> string -> string -> unit
+(** download a file to the local machine *)
+
+val checksum : t -> string -> string -> string
+(** compute MD5, SHAx or CRC checksum of file *)
+
+val tar_in : t -> string -> string -> unit
+(** unpack tarfile to directory *)
+
+val tar_out : t -> string -> string -> unit
+(** pack directory into tarfile *)
+
+val tgz_in : t -> string -> string -> unit
+(** unpack compressed tarball to directory *)
+
+val tgz_out : t -> string -> string -> unit
+(** pack directory into compressed tarball *)
+
+val mount_ro : t -> string -> string -> unit
+(** mount a guest disk, read-only *)
+
+val mount_options : t -> string -> string -> string -> unit
+(** mount a guest disk with mount options *)
+
+val mount_vfs : t -> string -> string -> string -> string -> unit
+(** mount a guest disk with mount options and vfstype *)
+
+val debug : t -> string -> string array -> string
+(** debugging and internals *)
+