X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=f45533bb0a13828e54351b00f874f578caff331d;hb=bb07a7f858da5d07c57360e62c0ddfd24ce6be45;hp=f0344ac77d3f0ae959a8e384f4e6838d8fe150d5;hpb=6bcbe54b5785cb8c911ccf4b724ae6abfdf53ce4;p=libguestfs.git

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index f0344ac..f45533b 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -127,6 +127,11 @@ external set_autosync : t -> bool -> unit = "ocaml_guestfs_set_autosync"
 external get_autosync : t -> bool = "ocaml_guestfs_get_autosync"
 external set_verbose : t -> bool -> unit = "ocaml_guestfs_set_verbose"
 external get_verbose : t -> bool = "ocaml_guestfs_get_verbose"
+external is_ready : t -> bool = "ocaml_guestfs_is_ready"
+external is_config : t -> bool = "ocaml_guestfs_is_config"
+external is_launching : t -> bool = "ocaml_guestfs_is_launching"
+external is_busy : t -> bool = "ocaml_guestfs_is_busy"
+external get_state : t -> int = "ocaml_guestfs_get_state"
 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
 external sync : t -> unit = "ocaml_guestfs_sync"
 external touch : t -> string -> unit = "ocaml_guestfs_touch"
@@ -181,3 +186,16 @@ external command_lines : t -> string array -> string array = "ocaml_guestfs_comm
 external stat : t -> string -> stat = "ocaml_guestfs_stat"
 external lstat : t -> string -> stat = "ocaml_guestfs_lstat"
 external statvfs : t -> string -> statvfs = "ocaml_guestfs_statvfs"
+external tune2fs_l : t -> string -> (string * string) list = "ocaml_guestfs_tune2fs_l"
+external blockdev_setro : t -> string -> unit = "ocaml_guestfs_blockdev_setro"
+external blockdev_setrw : t -> string -> unit = "ocaml_guestfs_blockdev_setrw"
+external blockdev_getro : t -> string -> bool = "ocaml_guestfs_blockdev_getro"
+external blockdev_getss : t -> string -> int = "ocaml_guestfs_blockdev_getss"
+external blockdev_getbsz : t -> string -> int = "ocaml_guestfs_blockdev_getbsz"
+external blockdev_setbsz : t -> string -> int -> unit = "ocaml_guestfs_blockdev_setbsz"
+external blockdev_getsz : t -> string -> int64 = "ocaml_guestfs_blockdev_getsz"
+external blockdev_getsize64 : t -> string -> int64 = "ocaml_guestfs_blockdev_getsize64"
+external blockdev_flushbufs : t -> string -> unit = "ocaml_guestfs_blockdev_flushbufs"
+external blockdev_rereadpt : t -> string -> unit = "ocaml_guestfs_blockdev_rereadpt"
+external upload : t -> string -> string -> unit = "ocaml_guestfs_upload"
+external download : t -> string -> string -> unit = "ocaml_guestfs_download"