blob: 4981eb1ed9f69e656b182f10ce13611488158b2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
|
(* libguestfs generated file
* WARNING: THIS FILE IS GENERATED BY 'src/generator.ml'.
* ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.
*
* Copyright (C) 2009 Red Hat Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*)
(** For API documentation you should refer to the C API
in the guestfs(3) manual page. The OCaml API uses almost
exactly the same calls. *)
type t
(** A [guestfs_h] handle. *)
exception Error of string
(** This exception is raised when there is an error. *)
val create : unit -> t
val close : t -> unit
(** Handles are closed by the garbage collector when they become
unreferenced, but callers can also call this in order to
provide predictable cleanup. *)
type lvm_pv = {
pv_name : string;
pv_uuid : string;
pv_fmt : string;
pv_size : int64;
dev_size : int64;
pv_free : int64;
pv_used : int64;
pv_attr : string;
pv_pe_count : int64;
pv_pe_alloc_count : int64;
pv_tags : string;
pe_start : int64;
pv_mda_count : int64;
pv_mda_free : int64;
}
type lvm_vg = {
vg_name : string;
vg_uuid : string;
vg_fmt : string;
vg_attr : string;
vg_size : int64;
vg_free : int64;
vg_sysid : string;
vg_extent_size : int64;
vg_extent_count : int64;
vg_free_count : int64;
max_lv : int64;
max_pv : int64;
pv_count : int64;
lv_count : int64;
snap_count : int64;
vg_seqno : int64;
vg_tags : string;
vg_mda_count : int64;
vg_mda_free : int64;
}
type lvm_lv = {
lv_name : string;
lv_uuid : string;
lv_attr : string;
lv_major : int64;
lv_minor : int64;
lv_kernel_major : int64;
lv_kernel_minor : int64;
lv_size : int64;
seg_count : int64;
origin : string;
snap_percent : float option;
copy_percent : float option;
move_pv : string;
lv_tags : string;
mirror_log : string;
modules : string;
}
val launch : t -> unit
(** launch the qemu subprocess *)
val wait_ready : t -> unit
(** wait until the qemu subprocess launches *)
val kill_subprocess : t -> unit
(** kill the qemu subprocess *)
val add_drive : t -> string -> unit
(** add an image to examine or modify *)
val add_cdrom : t -> string -> unit
(** add a CD-ROM disk image to examine *)
val config : t -> string -> string option -> unit
(** add qemu parameters *)
val set_path : t -> string -> unit
(** set the search path *)
val get_path : t -> string
(** get the search path *)
val set_autosync : t -> bool -> unit
(** set autosync mode *)
val get_autosync : t -> bool
(** get autosync mode *)
val set_verbose : t -> bool -> unit
(** set verbose mode *)
val get_verbose : t -> bool
(** get verbose mode *)
val mount : t -> string -> string -> unit
(** mount a guest disk at a position in the filesystem *)
val sync : t -> unit
(** sync disks, writes are flushed through to the disk image *)
val touch : t -> string -> unit
(** update file timestamps or create a new file *)
val cat : t -> string -> string
(** list the contents of a file *)
val ll : t -> string -> string
(** list the files in a directory (long format) *)
val ls : t -> string -> string array
(** list the files in a directory *)
val list_devices : t -> string array
(** list the block devices *)
val list_partitions : t -> string array
(** list the partitions *)
val pvs : t -> string array
(** list the LVM physical volumes (PVs) *)
val vgs : t -> string array
(** list the LVM volume groups (VGs) *)
val lvs : t -> string array
(** list the LVM logical volumes (LVs) *)
val pvs_full : t -> lvm_pv array
(** list the LVM physical volumes (PVs) *)
val vgs_full : t -> lvm_vg array
(** list the LVM volume groups (VGs) *)
val lvs_full : t -> lvm_lv array
(** list the LVM logical volumes (LVs) *)
val read_lines : t -> string -> string array
(** read file as lines *)
val aug_init : t -> string -> int -> unit
(** create a new Augeas handle *)
val aug_close : t -> unit
(** close the current Augeas handle *)
val aug_defvar : t -> string -> string option -> int
(** define an Augeas variable *)
val aug_defnode : t -> string -> string -> string -> int * bool
(** define an Augeas node *)
val aug_get : t -> string -> string
(** look up the value of an Augeas path *)
val aug_set : t -> string -> string -> unit
(** set Augeas path to value *)
val aug_insert : t -> string -> string -> bool -> unit
(** insert a sibling Augeas node *)
val aug_rm : t -> string -> int
(** remove an Augeas path *)
val aug_mv : t -> string -> string -> unit
(** move Augeas node *)
val aug_match : t -> string -> string array
(** return Augeas nodes which match path *)
val aug_save : t -> unit
(** write all pending Augeas changes to disk *)
val aug_load : t -> unit
(** load files into the tree *)
val aug_ls : t -> string -> string array
(** list Augeas nodes under a path *)
|
