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