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

diff --git a/ocaml/guestfs.mli b/ocaml/guestfs.mli
index ba75036..e3cee18 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,141 @@ 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) *)
+
+val read_lines : t -> string -> string array
+(** read file as lines *)
+
+val aug_init : t -> string -> int -> unit
+(** create a new Augeas handle *)
+
+val aug_close : t -> unit
+(** close the current Augeas handle *)
+
+val aug_defvar : t -> string -> string option -> int
+(** define an Augeas variable *)
+
+val aug_defnode : t -> string -> string -> string -> int * bool
+(** define an Augeas node *)
+
+val aug_get : t -> string -> string
+(** look up the value of an Augeas path *)
+
+val aug_set : t -> string -> string -> unit
+(** set Augeas path to value *)
+
+val aug_insert : t -> string -> string -> bool -> unit
+(** insert a sibling Augeas node *)
+
+val aug_rm : t -> string -> int
+(** remove an Augeas path *)
+
+val aug_mv : t -> string -> string -> unit
+(** move Augeas node *)
+
+val aug_match : t -> string -> string array
+(** return Augeas nodes which match path *)
+
+val aug_save : t -> unit
+(** write all pending Augeas changes to disk *)
+
+val aug_load : t -> unit
+(** load files into the tree *)
+
+val aug_ls : t -> string -> string array
+(** list Augeas nodes under a path *)
+
+val rm : t -> string -> unit
+(** remove a file *)
+
+val rmdir : t -> string -> unit
+(** remove a directory *)
+
+val rm_rf : t -> string -> unit
+(** remove a file or directory recursively *)
+
+val mkdir : t -> string -> unit
+(** create a directory *)
+
+val mkdir_p : t -> string -> unit
+(** create a directory and parents *)
+
+val chmod : t -> int -> string -> unit
+(** change file mode *)
+
+val chown : t -> int -> int -> string -> unit
+(** change file owner and group *)
+
+val exists : t -> string -> bool
+(** test if file or directory exists *)
+
+val is_file : t -> string -> bool
+(** test if file exists *)
+
+val is_dir : t -> string -> bool
+(** test if file exists *)
+
+val pvcreate : t -> string -> unit
+(** create an LVM physical volume *)
+
+val vgcreate : t -> string -> string array -> unit
+(** create an LVM volume group *)
+
+val lvcreate : t -> string -> string -> int -> unit
+(** create an LVM volume group *)
+
+val mkfs : t -> string -> string -> unit
+(** make a filesystem *)
+
+val sfdisk : t -> string -> int -> int -> int -> string array -> unit
+(** create partitions on a block device *)
+
+val write_file : t -> string -> string -> int -> unit
+(** create a file *)
+
+val umount : t -> string -> unit
+(** unmount a filesystem *)
+
+val mounts : t -> string array
+(** show mounted filesystems *)
+
+val umount_all : t -> unit
+(** unmount all filesystems *)
+
+val lvm_remove_all : t -> unit
+(** remove all LVM LVs, VGs and PVs *)
+
+val file : t -> string -> string
+(** determine file type *)
+