blob: cef89438903c2e0ea6b11989a2306d6c60ba0668 (
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
|
(* 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 list
(** list the files in a directory *)
val list_devices : t -> string list
(** list the block devices *)
val list_partitions : t -> string list
(** list the partitions *)
val pvs : t -> string list
(** list the LVM physical volumes (PVs) *)
val vgs : t -> string list
(** list the LVM volume groups (VGs) *)
val lvs : t -> string list
(** list the LVM logical volumes (LVs) *)
val pvs_full : t -> lvm_pv list
(** list the LVM physical volumes (PVs) *)
val vgs_full : t -> lvm_vg list
(** list the LVM volume groups (VGs) *)
val lvs_full : t -> lvm_lv list
(** list the LVM logical volumes (LVs) *)
|
