Generated code for drop-caches 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_autosync : t -> bool -> unit = "ocaml_guestfs_set_autosync"
129 external get_autosync : t -> bool = "ocaml_guestfs_get_autosync"
130 external set_verbose : t -> bool -> unit = "ocaml_guestfs_set_verbose"
131 external get_verbose : t -> bool = "ocaml_guestfs_get_verbose"
132 external is_ready : t -> bool = "ocaml_guestfs_is_ready"
133 external is_config : t -> bool = "ocaml_guestfs_is_config"
134 external is_launching : t -> bool = "ocaml_guestfs_is_launching"
135 external is_busy : t -> bool = "ocaml_guestfs_is_busy"
136 external get_state : t -> int = "ocaml_guestfs_get_state"
137 external set_busy : t -> unit = "ocaml_guestfs_set_busy"
138 external set_ready : t -> unit = "ocaml_guestfs_set_ready"
139 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
140 external sync : t -> unit = "ocaml_guestfs_sync"
141 external touch : t -> string -> unit = "ocaml_guestfs_touch"
142 external cat : t -> string -> string = "ocaml_guestfs_cat"
143 external ll : t -> string -> string = "ocaml_guestfs_ll"
144 external ls : t -> string -> string array = "ocaml_guestfs_ls"
145 external list_devices : t -> string array = "ocaml_guestfs_list_devices"
146 external list_partitions : t -> string array = "ocaml_guestfs_list_partitions"
147 external pvs : t -> string array = "ocaml_guestfs_pvs"
148 external vgs : t -> string array = "ocaml_guestfs_vgs"
149 external lvs : t -> string array = "ocaml_guestfs_lvs"
150 external pvs_full : t -> lvm_pv array = "ocaml_guestfs_pvs_full"
151 external vgs_full : t -> lvm_vg array = "ocaml_guestfs_vgs_full"
152 external lvs_full : t -> lvm_lv array = "ocaml_guestfs_lvs_full"
153 external read_lines : t -> string -> string array = "ocaml_guestfs_read_lines"
154 external aug_init : t -> string -> int -> unit = "ocaml_guestfs_aug_init"
155 external aug_close : t -> unit = "ocaml_guestfs_aug_close"
156 external aug_defvar : t -> string -> string option -> int = "ocaml_guestfs_aug_defvar"
157 external aug_defnode : t -> string -> string -> string -> int * bool = "ocaml_guestfs_aug_defnode"
158 external aug_get : t -> string -> string = "ocaml_guestfs_aug_get"
159 external aug_set : t -> string -> string -> unit = "ocaml_guestfs_aug_set"
160 external aug_insert : t -> string -> string -> bool -> unit = "ocaml_guestfs_aug_insert"
161 external aug_rm : t -> string -> int = "ocaml_guestfs_aug_rm"
162 external aug_mv : t -> string -> string -> unit = "ocaml_guestfs_aug_mv"
163 external aug_match : t -> string -> string array = "ocaml_guestfs_aug_match"
164 external aug_save : t -> unit = "ocaml_guestfs_aug_save"
165 external aug_load : t -> unit = "ocaml_guestfs_aug_load"
166 external aug_ls : t -> string -> string array = "ocaml_guestfs_aug_ls"
167 external rm : t -> string -> unit = "ocaml_guestfs_rm"
168 external rmdir : t -> string -> unit = "ocaml_guestfs_rmdir"
169 external rm_rf : t -> string -> unit = "ocaml_guestfs_rm_rf"
170 external mkdir : t -> string -> unit = "ocaml_guestfs_mkdir"
171 external mkdir_p : t -> string -> unit = "ocaml_guestfs_mkdir_p"
172 external chmod : t -> int -> string -> unit = "ocaml_guestfs_chmod"
173 external chown : t -> int -> int -> string -> unit = "ocaml_guestfs_chown"
174 external exists : t -> string -> bool = "ocaml_guestfs_exists"
175 external is_file : t -> string -> bool = "ocaml_guestfs_is_file"
176 external is_dir : t -> string -> bool = "ocaml_guestfs_is_dir"
177 external pvcreate : t -> string -> unit = "ocaml_guestfs_pvcreate"
178 external vgcreate : t -> string -> string array -> unit = "ocaml_guestfs_vgcreate"
179 external lvcreate : t -> string -> string -> int -> unit = "ocaml_guestfs_lvcreate"
180 external mkfs : t -> string -> string -> unit = "ocaml_guestfs_mkfs"
181 external sfdisk : t -> string -> int -> int -> int -> string array -> unit = "ocaml_guestfs_sfdisk_byte" "ocaml_guestfs_sfdisk"
182 external write_file : t -> string -> string -> int -> unit = "ocaml_guestfs_write_file"
183 external umount : t -> string -> unit = "ocaml_guestfs_umount"
184 external mounts : t -> string array = "ocaml_guestfs_mounts"
185 external umount_all : t -> unit = "ocaml_guestfs_umount_all"
186 external lvm_remove_all : t -> unit = "ocaml_guestfs_lvm_remove_all"
187 external file : t -> string -> string = "ocaml_guestfs_file"
188 external command : t -> string array -> string = "ocaml_guestfs_command"
189 external command_lines : t -> string array -> string array = "ocaml_guestfs_command_lines"
190 external stat : t -> string -> stat = "ocaml_guestfs_stat"
191 external lstat : t -> string -> stat = "ocaml_guestfs_lstat"
192 external statvfs : t -> string -> statvfs = "ocaml_guestfs_statvfs"
193 external tune2fs_l : t -> string -> (string * string) list = "ocaml_guestfs_tune2fs_l"
194 external blockdev_setro : t -> string -> unit = "ocaml_guestfs_blockdev_setro"
195 external blockdev_setrw : t -> string -> unit = "ocaml_guestfs_blockdev_setrw"
196 external blockdev_getro : t -> string -> bool = "ocaml_guestfs_blockdev_getro"
197 external blockdev_getss : t -> string -> int = "ocaml_guestfs_blockdev_getss"
198 external blockdev_getbsz : t -> string -> int = "ocaml_guestfs_blockdev_getbsz"
199 external blockdev_setbsz : t -> string -> int -> unit = "ocaml_guestfs_blockdev_setbsz"
200 external blockdev_getsz : t -> string -> int64 = "ocaml_guestfs_blockdev_getsz"
201 external blockdev_getsize64 : t -> string -> int64 = "ocaml_guestfs_blockdev_getsize64"
202 external blockdev_flushbufs : t -> string -> unit = "ocaml_guestfs_blockdev_flushbufs"
203 external blockdev_rereadpt : t -> string -> unit = "ocaml_guestfs_blockdev_rereadpt"
204 external upload : t -> string -> string -> unit = "ocaml_guestfs_upload"
205 external download : t -> string -> string -> unit = "ocaml_guestfs_download"
206 external checksum : t -> string -> string -> string = "ocaml_guestfs_checksum"
207 external tar_in : t -> string -> string -> unit = "ocaml_guestfs_tar_in"
208 external tar_out : t -> string -> string -> unit = "ocaml_guestfs_tar_out"
209 external tgz_in : t -> string -> string -> unit = "ocaml_guestfs_tgz_in"
210 external tgz_out : t -> string -> string -> unit = "ocaml_guestfs_tgz_out"
211 external mount_ro : t -> string -> string -> unit = "ocaml_guestfs_mount_ro"
212 external mount_options : t -> string -> string -> string -> unit = "ocaml_guestfs_mount_options"
213 external mount_vfs : t -> string -> string -> string -> string -> unit = "ocaml_guestfs_mount_vfs"
214 external debug : t -> string -> string array -> string = "ocaml_guestfs_debug"
215 external lvremove : t -> string -> unit = "ocaml_guestfs_lvremove"
216 external vgremove : t -> string -> unit = "ocaml_guestfs_vgremove"
217 external pvremove : t -> string -> unit = "ocaml_guestfs_pvremove"
218 external set_e2label : t -> string -> string -> unit = "ocaml_guestfs_set_e2label"
219 external get_e2label : t -> string -> string = "ocaml_guestfs_get_e2label"
220 external set_e2uuid : t -> string -> string -> unit = "ocaml_guestfs_set_e2uuid"
221 external get_e2uuid : t -> string -> string = "ocaml_guestfs_get_e2uuid"
222 external fsck : t -> string -> string -> int = "ocaml_guestfs_fsck"
223 external zero : t -> string -> unit = "ocaml_guestfs_zero"
224 external grub_install : t -> string -> string -> unit = "ocaml_guestfs_grub_install"
225 external cp : t -> string -> string -> unit = "ocaml_guestfs_cp"
226 external cp_a : t -> string -> string -> unit = "ocaml_guestfs_cp_a"
227 external mv : t -> string -> string -> unit = "ocaml_guestfs_mv"
228 external drop_caches : t -> int -> unit = "ocaml_guestfs_drop_caches"