ocaml/guestfs.ml

   1 (* libguestfs generated file
   2  * WARNING: THIS FILE IS GENERATED BY 'src/generator.ml'.
   3  * ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.
   4  *
   5  * Copyright (C) 2009 Red Hat Inc.
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  20  *)
  21
  22 type t
  23 exception Error of string
  24 external create : unit -> t = "ocaml_guestfs_create"
  25 external close : t -> unit = "ocaml_guestfs_close"
  26
  27 let () =
  28   Callback.register_exception "ocaml_guestfs_error" (Error "")
  29
  30 type lvm_pv = {
  31   pv_name : string;
  32   pv_uuid : string;
  33   pv_fmt : string;
  34   pv_size : int64;
  35   dev_size : int64;
  36   pv_free : int64;
  37   pv_used : int64;
  38   pv_attr : string;
  39   pv_pe_count : int64;
  40   pv_pe_alloc_count : int64;
  41   pv_tags : string;
  42   pe_start : int64;
  43   pv_mda_count : int64;
  44   pv_mda_free : int64;
  45 }
  46
  47 type lvm_vg = {
  48   vg_name : string;
  49   vg_uuid : string;
  50   vg_fmt : string;
  51   vg_attr : string;
  52   vg_size : int64;
  53   vg_free : int64;
  54   vg_sysid : string;
  55   vg_extent_size : int64;
  56   vg_extent_count : int64;
  57   vg_free_count : int64;
  58   max_lv : int64;
  59   max_pv : int64;
  60   pv_count : int64;
  61   lv_count : int64;
  62   snap_count : int64;
  63   vg_seqno : int64;
  64   vg_tags : string;
  65   vg_mda_count : int64;
  66   vg_mda_free : int64;
  67 }
  68
  69 type lvm_lv = {
  70   lv_name : string;
  71   lv_uuid : string;
  72   lv_attr : string;
  73   lv_major : int64;
  74   lv_minor : int64;
  75   lv_kernel_major : int64;
  76   lv_kernel_minor : int64;
  77   lv_size : int64;
  78   seg_count : int64;
  79   origin : string;
  80   snap_percent : float option;
  81   copy_percent : float option;
  82   move_pv : string;
  83   lv_tags : string;
  84   mirror_log : string;
  85   modules : string;
  86 }
  87
  88 type stat = {
  89   dev : int64;
  90   ino : int64;
  91   mode : int64;
  92   nlink : int64;
  93   uid : int64;
  94   gid : int64;
  95   rdev : int64;
  96   size : int64;
  97   blksize : int64;
  98   blocks : int64;
  99   atime : int64;
 100   mtime : int64;
 101   ctime : int64;
 102 }
 103
 104 type statvfs = {
 105   bsize : int64;
 106   frsize : int64;
 107   blocks : int64;
 108   bfree : int64;
 109   bavail : int64;
 110   files : int64;
 111   ffree : int64;
 112   favail : int64;
 113   fsid : int64;
 114   flag : int64;
 115   namemax : int64;
 116 }
 117
 118 external test0 : t -> string -> string option -> string array -> bool -> int -> string -> string -> unit = "ocaml_guestfs_test0_byte" "ocaml_guestfs_test0"
 119 external test0rint : t -> string -> int = "ocaml_guestfs_test0rint"
 120 external test0rinterr : t -> int = "ocaml_guestfs_test0rinterr"
 121 external test0rint64 : t -> string -> int64 = "ocaml_guestfs_test0rint64"
 122 external test0rint64err : t -> int64 = "ocaml_guestfs_test0rint64err"
 123 external test0rbool : t -> string -> bool = "ocaml_guestfs_test0rbool"
 124 external test0rboolerr : t -> bool = "ocaml_guestfs_test0rboolerr"
 125 external test0rconststring : t -> string -> string = "ocaml_guestfs_test0rconststring"
 126 external test0rconststringerr : t -> string = "ocaml_guestfs_test0rconststringerr"
 127 external test0rstring : t -> string -> string = "ocaml_guestfs_test0rstring"
 128 external test0rstringerr : t -> string = "ocaml_guestfs_test0rstringerr"
 129 external test0rstringlist : t -> string -> string array = "ocaml_guestfs_test0rstringlist"
 130 external test0rstringlisterr : t -> string array = "ocaml_guestfs_test0rstringlisterr"
 131 external test0rintbool : t -> string -> int * bool = "ocaml_guestfs_test0rintbool"
 132 external test0rintboolerr : t -> int * bool = "ocaml_guestfs_test0rintboolerr"
 133 external test0rpvlist : t -> string -> lvm_pv array = "ocaml_guestfs_test0rpvlist"
 134 external test0rpvlisterr : t -> lvm_pv array = "ocaml_guestfs_test0rpvlisterr"
 135 external test0rvglist : t -> string -> lvm_vg array = "ocaml_guestfs_test0rvglist"
 136 external test0rvglisterr : t -> lvm_vg array = "ocaml_guestfs_test0rvglisterr"
 137 external test0rlvlist : t -> string -> lvm_lv array = "ocaml_guestfs_test0rlvlist"
 138 external test0rlvlisterr : t -> lvm_lv array = "ocaml_guestfs_test0rlvlisterr"
 139 external test0rstat : t -> string -> stat = "ocaml_guestfs_test0rstat"
 140 external test0rstaterr : t -> stat = "ocaml_guestfs_test0rstaterr"
 141 external test0rstatvfs : t -> string -> statvfs = "ocaml_guestfs_test0rstatvfs"
 142 external test0rstatvfserr : t -> statvfs = "ocaml_guestfs_test0rstatvfserr"
 143 external test0rhashtable : t -> string -> (string * string) list = "ocaml_guestfs_test0rhashtable"
 144 external test0rhashtableerr : t -> (string * string) list = "ocaml_guestfs_test0rhashtableerr"
 145 external launch : t -> unit = "ocaml_guestfs_launch"
 146 external wait_ready : t -> unit = "ocaml_guestfs_wait_ready"
 147 external kill_subprocess : t -> unit = "ocaml_guestfs_kill_subprocess"
 148 external add_drive : t -> string -> unit = "ocaml_guestfs_add_drive"
 149 external add_cdrom : t -> string -> unit = "ocaml_guestfs_add_cdrom"
 150 external add_drive_ro : t -> string -> unit = "ocaml_guestfs_add_drive_ro"
 151 external config : t -> string -> string option -> unit = "ocaml_guestfs_config"
 152 external set_qemu : t -> string -> unit = "ocaml_guestfs_set_qemu"
 153 external get_qemu : t -> string = "ocaml_guestfs_get_qemu"
 154 external set_path : t -> string -> unit = "ocaml_guestfs_set_path"
 155 external get_path : t -> string = "ocaml_guestfs_get_path"
 156 external set_append : t -> string -> unit = "ocaml_guestfs_set_append"
 157 external get_append : t -> string = "ocaml_guestfs_get_append"
 158 external set_autosync : t -> bool -> unit = "ocaml_guestfs_set_autosync"
 159 external get_autosync : t -> bool = "ocaml_guestfs_get_autosync"
 160 external set_verbose : t -> bool -> unit = "ocaml_guestfs_set_verbose"
 161 external get_verbose : t -> bool = "ocaml_guestfs_get_verbose"
 162 external is_ready : t -> bool = "ocaml_guestfs_is_ready"
 163 external is_config : t -> bool = "ocaml_guestfs_is_config"
 164 external is_launching : t -> bool = "ocaml_guestfs_is_launching"
 165 external is_busy : t -> bool = "ocaml_guestfs_is_busy"
 166 external get_state : t -> int = "ocaml_guestfs_get_state"
 167 external set_busy : t -> unit = "ocaml_guestfs_set_busy"
 168 external set_ready : t -> unit = "ocaml_guestfs_set_ready"
 169 external end_busy : t -> unit = "ocaml_guestfs_end_busy"
 170 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
 171 external sync : t -> unit = "ocaml_guestfs_sync"
 172 external touch : t -> string -> unit = "ocaml_guestfs_touch"
 173 external cat : t -> string -> string = "ocaml_guestfs_cat"
 174 external ll : t -> string -> string = "ocaml_guestfs_ll"
 175 external ls : t -> string -> string array = "ocaml_guestfs_ls"
 176 external list_devices : t -> string array = "ocaml_guestfs_list_devices"
 177 external list_partitions : t -> string array = "ocaml_guestfs_list_partitions"
 178 external pvs : t -> string array = "ocaml_guestfs_pvs"
 179 external vgs : t -> string array = "ocaml_guestfs_vgs"
 180 external lvs : t -> string array = "ocaml_guestfs_lvs"
 181 external pvs_full : t -> lvm_pv array = "ocaml_guestfs_pvs_full"
 182 external vgs_full : t -> lvm_vg array = "ocaml_guestfs_vgs_full"
 183 external lvs_full : t -> lvm_lv array = "ocaml_guestfs_lvs_full"
 184 external read_lines : t -> string -> string array = "ocaml_guestfs_read_lines"
 185 external aug_init : t -> string -> int -> unit = "ocaml_guestfs_aug_init"
 186 external aug_close : t -> unit = "ocaml_guestfs_aug_close"
 187 external aug_defvar : t -> string -> string option -> int = "ocaml_guestfs_aug_defvar"
 188 external aug_defnode : t -> string -> string -> string -> int * bool = "ocaml_guestfs_aug_defnode"
 189 external aug_get : t -> string -> string = "ocaml_guestfs_aug_get"
 190 external aug_set : t -> string -> string -> unit = "ocaml_guestfs_aug_set"
 191 external aug_insert : t -> string -> string -> bool -> unit = "ocaml_guestfs_aug_insert"
 192 external aug_rm : t -> string -> int = "ocaml_guestfs_aug_rm"
 193 external aug_mv : t -> string -> string -> unit = "ocaml_guestfs_aug_mv"
 194 external aug_match : t -> string -> string array = "ocaml_guestfs_aug_match"
 195 external aug_save : t -> unit = "ocaml_guestfs_aug_save"
 196 external aug_load : t -> unit = "ocaml_guestfs_aug_load"
 197 external aug_ls : t -> string -> string array = "ocaml_guestfs_aug_ls"
 198 external rm : t -> string -> unit = "ocaml_guestfs_rm"
 199 external rmdir : t -> string -> unit = "ocaml_guestfs_rmdir"
 200 external rm_rf : t -> string -> unit = "ocaml_guestfs_rm_rf"
 201 external mkdir : t -> string -> unit = "ocaml_guestfs_mkdir"
 202 external mkdir_p : t -> string -> unit = "ocaml_guestfs_mkdir_p"
 203 external chmod : t -> int -> string -> unit = "ocaml_guestfs_chmod"
 204 external chown : t -> int -> int -> string -> unit = "ocaml_guestfs_chown"
 205 external exists : t -> string -> bool = "ocaml_guestfs_exists"
 206 external is_file : t -> string -> bool = "ocaml_guestfs_is_file"
 207 external is_dir : t -> string -> bool = "ocaml_guestfs_is_dir"
 208 external pvcreate : t -> string -> unit = "ocaml_guestfs_pvcreate"
 209 external vgcreate : t -> string -> string array -> unit = "ocaml_guestfs_vgcreate"
 210 external lvcreate : t -> string -> string -> int -> unit = "ocaml_guestfs_lvcreate"
 211 external mkfs : t -> string -> string -> unit = "ocaml_guestfs_mkfs"
 212 external sfdisk : t -> string -> int -> int -> int -> string array -> unit = "ocaml_guestfs_sfdisk_byte" "ocaml_guestfs_sfdisk"
 213 external write_file : t -> string -> string -> int -> unit = "ocaml_guestfs_write_file"
 214 external umount : t -> string -> unit = "ocaml_guestfs_umount"
 215 external mounts : t -> string array = "ocaml_guestfs_mounts"
 216 external umount_all : t -> unit = "ocaml_guestfs_umount_all"
 217 external lvm_remove_all : t -> unit = "ocaml_guestfs_lvm_remove_all"
 218 external file : t -> string -> string = "ocaml_guestfs_file"
 219 external command : t -> string array -> string = "ocaml_guestfs_command"
 220 external command_lines : t -> string array -> string array = "ocaml_guestfs_command_lines"
 221 external stat : t -> string -> stat = "ocaml_guestfs_stat"
 222 external lstat : t -> string -> stat = "ocaml_guestfs_lstat"
 223 external statvfs : t -> string -> statvfs = "ocaml_guestfs_statvfs"
 224 external tune2fs_l : t -> string -> (string * string) list = "ocaml_guestfs_tune2fs_l"
 225 external blockdev_setro : t -> string -> unit = "ocaml_guestfs_blockdev_setro"
 226 external blockdev_setrw : t -> string -> unit = "ocaml_guestfs_blockdev_setrw"
 227 external blockdev_getro : t -> string -> bool = "ocaml_guestfs_blockdev_getro"
 228 external blockdev_getss : t -> string -> int = "ocaml_guestfs_blockdev_getss"
 229 external blockdev_getbsz : t -> string -> int = "ocaml_guestfs_blockdev_getbsz"
 230 external blockdev_setbsz : t -> string -> int -> unit = "ocaml_guestfs_blockdev_setbsz"
 231 external blockdev_getsz : t -> string -> int64 = "ocaml_guestfs_blockdev_getsz"
 232 external blockdev_getsize64 : t -> string -> int64 = "ocaml_guestfs_blockdev_getsize64"
 233 external blockdev_flushbufs : t -> string -> unit = "ocaml_guestfs_blockdev_flushbufs"
 234 external blockdev_rereadpt : t -> string -> unit = "ocaml_guestfs_blockdev_rereadpt"
 235 external upload : t -> string -> string -> unit = "ocaml_guestfs_upload"
 236 external download : t -> string -> string -> unit = "ocaml_guestfs_download"
 237 external checksum : t -> string -> string -> string = "ocaml_guestfs_checksum"
 238 external tar_in : t -> string -> string -> unit = "ocaml_guestfs_tar_in"
 239 external tar_out : t -> string -> string -> unit = "ocaml_guestfs_tar_out"
 240 external tgz_in : t -> string -> string -> unit = "ocaml_guestfs_tgz_in"
 241 external tgz_out : t -> string -> string -> unit = "ocaml_guestfs_tgz_out"
 242 external mount_ro : t -> string -> string -> unit = "ocaml_guestfs_mount_ro"
 243 external mount_options : t -> string -> string -> string -> unit = "ocaml_guestfs_mount_options"
 244 external mount_vfs : t -> string -> string -> string -> string -> unit = "ocaml_guestfs_mount_vfs"
 245 external debug : t -> string -> string array -> string = "ocaml_guestfs_debug"
 246 external lvremove : t -> string -> unit = "ocaml_guestfs_lvremove"
 247 external vgremove : t -> string -> unit = "ocaml_guestfs_vgremove"
 248 external pvremove : t -> string -> unit = "ocaml_guestfs_pvremove"
 249 external set_e2label : t -> string -> string -> unit = "ocaml_guestfs_set_e2label"
 250 external get_e2label : t -> string -> string = "ocaml_guestfs_get_e2label"
 251 external set_e2uuid : t -> string -> string -> unit = "ocaml_guestfs_set_e2uuid"
 252 external get_e2uuid : t -> string -> string = "ocaml_guestfs_get_e2uuid"
 253 external fsck : t -> string -> string -> int = "ocaml_guestfs_fsck"
 254 external zero : t -> string -> unit = "ocaml_guestfs_zero"
 255 external grub_install : t -> string -> string -> unit = "ocaml_guestfs_grub_install"
 256 external cp : t -> string -> string -> unit = "ocaml_guestfs_cp"
 257 external cp_a : t -> string -> string -> unit = "ocaml_guestfs_cp_a"
 258 external mv : t -> string -> string -> unit = "ocaml_guestfs_mv"
 259 external drop_caches : t -> int -> unit = "ocaml_guestfs_drop_caches"
 260 external dmesg : t -> string = "ocaml_guestfs_dmesg"
 261 external ping_daemon : t -> unit = "ocaml_guestfs_ping_daemon"
 262 external equal : t -> string -> string -> bool = "ocaml_guestfs_equal"
 263 external strings : t -> string -> string array = "ocaml_guestfs_strings"
 264 external strings_e : t -> string -> string -> string array = "ocaml_guestfs_strings_e"
 265 external hexdump : t -> string -> string = "ocaml_guestfs_hexdump"
 266 external zerofree : t -> string -> unit = "ocaml_guestfs_zerofree"
 267 external pvresize : t -> string -> unit = "ocaml_guestfs_pvresize"
 268 external sfdisk_N : t -> string -> int -> int -> int -> int -> string -> unit = "ocaml_guestfs_sfdisk_N_byte" "ocaml_guestfs_sfdisk_N"
 269 external sfdisk_l : t -> string -> string = "ocaml_guestfs_sfdisk_l"
 270 external sfdisk_kernel_geometry : t -> string -> string = "ocaml_guestfs_sfdisk_kernel_geometry"
 271 external sfdisk_disk_geometry : t -> string -> string = "ocaml_guestfs_sfdisk_disk_geometry"
 272 external vg_activate_all : t -> bool -> unit = "ocaml_guestfs_vg_activate_all"
 273 external vg_activate : t -> bool -> string array -> unit = "ocaml_guestfs_vg_activate"
 274 external lvresize : t -> string -> int -> unit = "ocaml_guestfs_lvresize"
 275 external resize2fs : t -> string -> unit = "ocaml_guestfs_resize2fs"
 276 external find : t -> string -> string array = "ocaml_guestfs_find"
 277 external e2fsck_f : t -> string -> unit = "ocaml_guestfs_e2fsck_f"
 278 external sleep : t -> int -> unit = "ocaml_guestfs_sleep"
 279 external ntfs_3g_probe : t -> bool -> string -> int = "ocaml_guestfs_ntfs_3g_probe"
 280 external sh : t -> string -> string = "ocaml_guestfs_sh"
 281 external sh_lines : t -> string -> string array = "ocaml_guestfs_sh_lines"
 282 external glob_expand : t -> string -> string array = "ocaml_guestfs_glob_expand"