Add the test0* functions, used to test language bindings.
[libguestfs.git] / 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 config : t -> string -> string option -> unit = "ocaml_guestfs_config"
151 external set_qemu : t -> string -> unit = "ocaml_guestfs_set_qemu"
152 external get_qemu : t -> string = "ocaml_guestfs_get_qemu"
153 external set_path : t -> string -> unit = "ocaml_guestfs_set_path"
154 external get_path : t -> string = "ocaml_guestfs_get_path"
155 external set_append : t -> string -> unit = "ocaml_guestfs_set_append"
156 external get_append : t -> string = "ocaml_guestfs_get_append"
157 external set_autosync : t -> bool -> unit = "ocaml_guestfs_set_autosync"
158 external get_autosync : t -> bool = "ocaml_guestfs_get_autosync"
159 external set_verbose : t -> bool -> unit = "ocaml_guestfs_set_verbose"
160 external get_verbose : t -> bool = "ocaml_guestfs_get_verbose"
161 external is_ready : t -> bool = "ocaml_guestfs_is_ready"
162 external is_config : t -> bool = "ocaml_guestfs_is_config"
163 external is_launching : t -> bool = "ocaml_guestfs_is_launching"
164 external is_busy : t -> bool = "ocaml_guestfs_is_busy"
165 external get_state : t -> int = "ocaml_guestfs_get_state"
166 external set_busy : t -> unit = "ocaml_guestfs_set_busy"
167 external set_ready : t -> unit = "ocaml_guestfs_set_ready"
168 external end_busy : t -> unit = "ocaml_guestfs_end_busy"
169 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
170 external sync : t -> unit = "ocaml_guestfs_sync"
171 external touch : t -> string -> unit = "ocaml_guestfs_touch"
172 external cat : t -> string -> string = "ocaml_guestfs_cat"
173 external ll : t -> string -> string = "ocaml_guestfs_ll"
174 external ls : t -> string -> string array = "ocaml_guestfs_ls"
175 external list_devices : t -> string array = "ocaml_guestfs_list_devices"
176 external list_partitions : t -> string array = "ocaml_guestfs_list_partitions"
177 external pvs : t -> string array = "ocaml_guestfs_pvs"
178 external vgs : t -> string array = "ocaml_guestfs_vgs"
179 external lvs : t -> string array = "ocaml_guestfs_lvs"
180 external pvs_full : t -> lvm_pv array = "ocaml_guestfs_pvs_full"
181 external vgs_full : t -> lvm_vg array = "ocaml_guestfs_vgs_full"
182 external lvs_full : t -> lvm_lv array = "ocaml_guestfs_lvs_full"
183 external read_lines : t -> string -> string array = "ocaml_guestfs_read_lines"
184 external aug_init : t -> string -> int -> unit = "ocaml_guestfs_aug_init"
185 external aug_close : t -> unit = "ocaml_guestfs_aug_close"
186 external aug_defvar : t -> string -> string option -> int = "ocaml_guestfs_aug_defvar"
187 external aug_defnode : t -> string -> string -> string -> int * bool = "ocaml_guestfs_aug_defnode"
188 external aug_get : t -> string -> string = "ocaml_guestfs_aug_get"
189 external aug_set : t -> string -> string -> unit = "ocaml_guestfs_aug_set"
190 external aug_insert : t -> string -> string -> bool -> unit = "ocaml_guestfs_aug_insert"
191 external aug_rm : t -> string -> int = "ocaml_guestfs_aug_rm"
192 external aug_mv : t -> string -> string -> unit = "ocaml_guestfs_aug_mv"
193 external aug_match : t -> string -> string array = "ocaml_guestfs_aug_match"
194 external aug_save : t -> unit = "ocaml_guestfs_aug_save"
195 external aug_load : t -> unit = "ocaml_guestfs_aug_load"
196 external aug_ls : t -> string -> string array = "ocaml_guestfs_aug_ls"
197 external rm : t -> string -> unit = "ocaml_guestfs_rm"
198 external rmdir : t -> string -> unit = "ocaml_guestfs_rmdir"
199 external rm_rf : t -> string -> unit = "ocaml_guestfs_rm_rf"
200 external mkdir : t -> string -> unit = "ocaml_guestfs_mkdir"
201 external mkdir_p : t -> string -> unit = "ocaml_guestfs_mkdir_p"
202 external chmod : t -> int -> string -> unit = "ocaml_guestfs_chmod"
203 external chown : t -> int -> int -> string -> unit = "ocaml_guestfs_chown"
204 external exists : t -> string -> bool = "ocaml_guestfs_exists"
205 external is_file : t -> string -> bool = "ocaml_guestfs_is_file"
206 external is_dir : t -> string -> bool = "ocaml_guestfs_is_dir"
207 external pvcreate : t -> string -> unit = "ocaml_guestfs_pvcreate"
208 external vgcreate : t -> string -> string array -> unit = "ocaml_guestfs_vgcreate"
209 external lvcreate : t -> string -> string -> int -> unit = "ocaml_guestfs_lvcreate"
210 external mkfs : t -> string -> string -> unit = "ocaml_guestfs_mkfs"
211 external sfdisk : t -> string -> int -> int -> int -> string array -> unit = "ocaml_guestfs_sfdisk_byte" "ocaml_guestfs_sfdisk"
212 external write_file : t -> string -> string -> int -> unit = "ocaml_guestfs_write_file"
213 external umount : t -> string -> unit = "ocaml_guestfs_umount"
214 external mounts : t -> string array = "ocaml_guestfs_mounts"
215 external umount_all : t -> unit = "ocaml_guestfs_umount_all"
216 external lvm_remove_all : t -> unit = "ocaml_guestfs_lvm_remove_all"
217 external file : t -> string -> string = "ocaml_guestfs_file"
218 external command : t -> string array -> string = "ocaml_guestfs_command"
219 external command_lines : t -> string array -> string array = "ocaml_guestfs_command_lines"
220 external stat : t -> string -> stat = "ocaml_guestfs_stat"
221 external lstat : t -> string -> stat = "ocaml_guestfs_lstat"
222 external statvfs : t -> string -> statvfs = "ocaml_guestfs_statvfs"
223 external tune2fs_l : t -> string -> (string * string) list = "ocaml_guestfs_tune2fs_l"
224 external blockdev_setro : t -> string -> unit = "ocaml_guestfs_blockdev_setro"
225 external blockdev_setrw : t -> string -> unit = "ocaml_guestfs_blockdev_setrw"
226 external blockdev_getro : t -> string -> bool = "ocaml_guestfs_blockdev_getro"
227 external blockdev_getss : t -> string -> int = "ocaml_guestfs_blockdev_getss"
228 external blockdev_getbsz : t -> string -> int = "ocaml_guestfs_blockdev_getbsz"
229 external blockdev_setbsz : t -> string -> int -> unit = "ocaml_guestfs_blockdev_setbsz"
230 external blockdev_getsz : t -> string -> int64 = "ocaml_guestfs_blockdev_getsz"
231 external blockdev_getsize64 : t -> string -> int64 = "ocaml_guestfs_blockdev_getsize64"
232 external blockdev_flushbufs : t -> string -> unit = "ocaml_guestfs_blockdev_flushbufs"
233 external blockdev_rereadpt : t -> string -> unit = "ocaml_guestfs_blockdev_rereadpt"
234 external upload : t -> string -> string -> unit = "ocaml_guestfs_upload"
235 external download : t -> string -> string -> unit = "ocaml_guestfs_download"
236 external checksum : t -> string -> string -> string = "ocaml_guestfs_checksum"
237 external tar_in : t -> string -> string -> unit = "ocaml_guestfs_tar_in"
238 external tar_out : t -> string -> string -> unit = "ocaml_guestfs_tar_out"
239 external tgz_in : t -> string -> string -> unit = "ocaml_guestfs_tgz_in"
240 external tgz_out : t -> string -> string -> unit = "ocaml_guestfs_tgz_out"
241 external mount_ro : t -> string -> string -> unit = "ocaml_guestfs_mount_ro"
242 external mount_options : t -> string -> string -> string -> unit = "ocaml_guestfs_mount_options"
243 external mount_vfs : t -> string -> string -> string -> string -> unit = "ocaml_guestfs_mount_vfs"
244 external debug : t -> string -> string array -> string = "ocaml_guestfs_debug"
245 external lvremove : t -> string -> unit = "ocaml_guestfs_lvremove"
246 external vgremove : t -> string -> unit = "ocaml_guestfs_vgremove"
247 external pvremove : t -> string -> unit = "ocaml_guestfs_pvremove"
248 external set_e2label : t -> string -> string -> unit = "ocaml_guestfs_set_e2label"
249 external get_e2label : t -> string -> string = "ocaml_guestfs_get_e2label"
250 external set_e2uuid : t -> string -> string -> unit = "ocaml_guestfs_set_e2uuid"
251 external get_e2uuid : t -> string -> string = "ocaml_guestfs_get_e2uuid"
252 external fsck : t -> string -> string -> int = "ocaml_guestfs_fsck"
253 external zero : t -> string -> unit = "ocaml_guestfs_zero"
254 external grub_install : t -> string -> string -> unit = "ocaml_guestfs_grub_install"
255 external cp : t -> string -> string -> unit = "ocaml_guestfs_cp"
256 external cp_a : t -> string -> string -> unit = "ocaml_guestfs_cp_a"
257 external mv : t -> string -> string -> unit = "ocaml_guestfs_mv"
258 external drop_caches : t -> int -> unit = "ocaml_guestfs_drop_caches"
259 external dmesg : t -> string = "ocaml_guestfs_dmesg"
260 external ping_daemon : t -> unit = "ocaml_guestfs_ping_daemon"
261 external equal : t -> string -> string -> bool = "ocaml_guestfs_equal"
262 external strings : t -> string -> string array = "ocaml_guestfs_strings"
263 external strings_e : t -> string -> string -> string array = "ocaml_guestfs_strings_e"
264 external hexdump : t -> string -> string = "ocaml_guestfs_hexdump"
265 external zerofree : t -> string -> unit = "ocaml_guestfs_zerofree"
266 external pvresize : t -> string -> unit = "ocaml_guestfs_pvresize"
267 external sfdisk_N : t -> string -> int -> int -> int -> int -> string -> unit = "ocaml_guestfs_sfdisk_N_byte" "ocaml_guestfs_sfdisk_N"
268 external sfdisk_l : t -> string -> string = "ocaml_guestfs_sfdisk_l"
269 external sfdisk_kernel_geometry : t -> string -> string = "ocaml_guestfs_sfdisk_kernel_geometry"
270 external sfdisk_disk_geometry : t -> string -> string = "ocaml_guestfs_sfdisk_disk_geometry"
271 external vg_activate_all : t -> bool -> unit = "ocaml_guestfs_vg_activate_all"
272 external vg_activate : t -> bool -> string array -> unit = "ocaml_guestfs_vg_activate"
273 external lvresize : t -> string -> int -> unit = "ocaml_guestfs_lvresize"
274 external resize2fs : t -> string -> unit = "ocaml_guestfs_resize2fs"
275 external find : t -> string -> string array = "ocaml_guestfs_find"
276 external e2fsck_f : t -> string -> unit = "ocaml_guestfs_e2fsck_f"