`sig
type 'rw t
type pool_state = Inactive | Building | Running | Degraded | Inaccessible
type pool_build_flags = New | Repair | Resize
type pool_delete_flags = Normal | Zeroed
type pool_info = {
state : Libvirt.Pool.pool_state;
capacity : int64;
allocation : int64;
available : int64;
}
val lookup_by_name : 'a Libvirt.Connect.t -> string -> 'a Libvirt.Pool.t
val lookup_by_uuid :
'a Libvirt.Connect.t -> Libvirt.uuid -> 'a Libvirt.Pool.t
val lookup_by_uuid_string :
'a Libvirt.Connect.t -> string -> 'a Libvirt.Pool.t
val create_xml :
[> `W ] Libvirt.Connect.t -> Libvirt.xml -> Libvirt.rw Libvirt.Pool.t
val define_xml :
[> `W ] Libvirt.Connect.t -> Libvirt.xml -> Libvirt.rw Libvirt.Pool.t
val build : [> `W ] Libvirt.Pool.t -> Libvirt.Pool.pool_build_flags -> unit
val undefine : [> `W ] Libvirt.Pool.t -> unit
val create : [> `W ] Libvirt.Pool.t -> unit
val destroy : [> `W ] Libvirt.Pool.t -> unit
val delete : [> `W ] Libvirt.Pool.t -> unit
val free : [> `R ] Libvirt.Pool.t -> unit
val refresh : [ `R ] Libvirt.Pool.t -> unit
val get_name : [ `R ] Libvirt.Pool.t -> string
val get_uuid : [ `R ] Libvirt.Pool.t -> Libvirt.uuid
val get_uuid_string : [ `R ] Libvirt.Pool.t -> string
val get_info : [ `R ] Libvirt.Pool.t -> Libvirt.Pool.pool_info
val get_xml_desc : [ `R ] Libvirt.Pool.t -> Libvirt.xml
val get_autostart : [ `R ] Libvirt.Pool.t -> bool
val set_autostart : [> `W ] Libvirt.Pool.t -> bool -> unit
val num_of_volumes : [ `R ] Libvirt.Pool.t -> int
val list_volumes : [ `R ] Libvirt.Pool.t -> int -> string array
external const : [> `R ] Libvirt.Pool.t -> Libvirt.ro Libvirt.Pool.t
= "%identity"
end`