X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fguestfs.mli;h=d1970ededc4590aa363a50826ada069945c42416;hb=45f3a8981723079a5a020ab9438593531b1d8368;hp=ba750368ff50d30e2ad93dc7206b8fcf95e0c09b;hpb=4144e2106cc70ad8f1e081b57da09f9c1e276812;p=libguestfs.git

diff --git a/ocaml/guestfs.mli b/ocaml/guestfs.mli
index ba75036..d1970ed 100644
--- a/ocaml/guestfs.mli
+++ b/ocaml/guestfs.mli
@@ -36,21 +36,6 @@ val close : t -> unit
     unreferenced, but callers can also call this in order to
     provide predictable cleanup. *)
 
-val launch : t -> unit
-val wait_ready : t -> unit
-val kill_subprocess : t -> unit
-
-val add_drive : t -> string -> unit
-val add_cdrom : t -> string -> unit
-val config : t -> string -> string option -> unit
-
-val set_path : t -> string option -> unit
-val get_path : t -> string
-val set_autosync : t -> bool -> unit
-val get_autosync : t -> bool
-val set_verbose : t -> bool -> unit
-val get_verbose : t -> bool
-
 type lvm_pv = {
   pv_name : string;
   pv_uuid : string;
@@ -109,35 +94,44 @@ type lvm_lv = {
   modules : string;
 }
 
-val cat : t -> string -> string
-(** list the contents of a file *)
+val launch : t -> unit
+(** launch the qemu subprocess *)
 
-val list_devices : t -> string list
-(** list the block devices *)
+val wait_ready : t -> unit
+(** wait until the qemu subprocess launches *)
 
-val list_partitions : t -> string list
-(** list the partitions *)
+val kill_subprocess : t -> unit
+(** kill the qemu subprocess *)
 
-val ll : t -> string -> string
-(** list the files in a directory (long format) *)
+val add_drive : t -> string -> unit
+(** add an image to examine or modify *)
 
-val ls : t -> string -> string list
-(** list the files in a directory *)
+val add_cdrom : t -> string -> unit
+(** add a CD-ROM disk image to examine *)
 
-val lvs : t -> string list
-(** list the LVM logical volumes (LVs) *)
+val config : t -> string -> string option -> unit
+(** add qemu parameters *)
 
-val lvs_full : t -> lvm_lv list
-(** list the LVM logical volumes (LVs) *)
+val set_path : t -> string -> unit
+(** set the search path *)
 
-val mount : t -> string -> string -> unit
-(** mount a guest disk at a position in the filesystem *)
+val get_path : t -> string
+(** get the search path *)
 
-val pvs : t -> string list
-(** list the LVM physical volumes (PVs) *)
+val set_autosync : t -> bool -> unit
+(** set autosync mode *)
 
-val pvs_full : t -> lvm_pv list
-(** list the LVM physical volumes (PVs) *)
+val get_autosync : t -> bool
+(** get autosync mode *)
+
+val set_verbose : t -> bool -> unit
+(** set verbose mode *)
+
+val get_verbose : t -> bool
+(** get verbose mode *)
+
+val mount : t -> string -> string -> unit
+(** mount a guest disk at a position in the filesystem *)
 
 val sync : t -> unit
 (** sync disks, writes are flushed through to the disk image *)
@@ -145,9 +139,36 @@ val sync : t -> unit
 val touch : t -> string -> unit
 (** update file timestamps or create a new file *)
 
-val vgs : t -> string list
+val cat : t -> string -> string
+(** list the contents of a file *)
+
+val ll : t -> string -> string
+(** list the files in a directory (long format) *)
+
+val ls : t -> string -> string array
+(** list the files in a directory *)
+
+val list_devices : t -> string array
+(** list the block devices *)
+
+val list_partitions : t -> string array
+(** list the partitions *)
+
+val pvs : t -> string array
+(** list the LVM physical volumes (PVs) *)
+
+val vgs : t -> string array
 (** list the LVM volume groups (VGs) *)
 
-val vgs_full : t -> lvm_vg list
+val lvs : t -> string array
+(** list the LVM logical volumes (LVs) *)
+
+val pvs_full : t -> lvm_pv array
+(** list the LVM physical volumes (PVs) *)
+
+val vgs_full : t -> lvm_vg array
 (** list the LVM volume groups (VGs) *)
 
+val lvs_full : t -> lvm_lv array
+(** list the LVM logical volumes (LVs) *)
+