sig
module Defined :
sig
type t = [ `Added | `Unknown of int | `Updated ]
val to_string : Libvirt.Event.Defined.t -> string
end
module Undefined :
sig
type t = [ `Removed | `Unknown of int ]
val to_string : Libvirt.Event.Undefined.t -> string
end
module Started :
sig
type t =
[ `Booted
| `FromSnapshot
| `Migrated
| `Restored
| `Unknown of int
| `Wakeup ]
val to_string : Libvirt.Event.Started.t -> string
end
module Suspended :
sig
type t =
[ `APIError
| `FromSnapshot
| `IOError
| `Migrated
| `Paused
| `Restored
| `Unknown of int
| `Watchdog ]
val to_string : Libvirt.Event.Suspended.t -> string
end
module Resumed :
sig
type t = [ `FromSnapshot | `Migrated | `Unknown of int | `Unpaused ]
val to_string : Libvirt.Event.Resumed.t -> string
end
module Stopped :
sig
type t =
[ `Crashed
| `Destroyed
| `Failed
| `FromSnapshot
| `Migrated
| `Saved
| `Shutdown
| `Unknown of int ]
val to_string : Libvirt.Event.Stopped.t -> string
end
module PM_suspended :
sig
type t = [ `Disk | `Memory | `Unknown of int ]
val to_string : Libvirt.Event.PM_suspended.t -> string
end
module Lifecycle :
sig
type t =
[ `Defined of Libvirt.Event.Defined.t
| `PMSuspended of Libvirt.Event.PM_suspended.t
| `Resumed of Libvirt.Event.Resumed.t
| `Shutdown
| `Started of Libvirt.Event.Started.t
| `Stopped of Libvirt.Event.Stopped.t
| `Suspended of Libvirt.Event.Suspended.t
| `Undefined of Libvirt.Event.Undefined.t
| `Unknown of int ]
val to_string : Libvirt.Event.Lifecycle.t -> string
end
module Reboot :
sig type t = unit val to_string : Libvirt.Event.Reboot.t -> string end
module Rtc_change :
sig
type t = int64
val to_string : Libvirt.Event.Rtc_change.t -> string
end
module Watchdog :
sig
type t =
[ `Debug
| `None
| `Pause
| `Poweroff
| `Reset
| `Shutdown
| `Unknown of int ]
val to_string : Libvirt.Event.Watchdog.t -> string
end
module Io_error :
sig
type action = [ `None | `Pause | `Report | `Unknown of int ]
type t = {
src_path : string option;
dev_alias : string option;
action : Libvirt.Event.Io_error.action;
reason : string option;
}
val to_string : Libvirt.Event.Io_error.t -> string
end
module Graphics_address :
sig
type family = [ `Ipv4 | `Ipv6 | `Unix | `Unknown of int ]
type t = {
family : Libvirt.Event.Graphics_address.family;
node : string option;
service : string option;
}
val to_string : Libvirt.Event.Graphics_address.t -> string
end
module Graphics_subject :
sig
type identity = { ty : string option; name : string option; }
type t = Libvirt.Event.Graphics_subject.identity list
val to_string : Libvirt.Event.Graphics_subject.t -> string
end
module Graphics :
sig
type phase = [ `Connect | `Disconnect | `Initialize | `Unknown of int ]
type t = {
phase : Libvirt.Event.Graphics.phase;
local : Libvirt.Event.Graphics_address.t;
remote : Libvirt.Event.Graphics_address.t;
auth_scheme : string option;
subject : Libvirt.Event.Graphics_subject.t;
}
val to_string : Libvirt.Event.Graphics.t -> string
end
module Control_error :
sig
type t = unit
val to_string : Libvirt.Event.Control_error.t -> string
end
module Block_job :
sig
type ty = [ `Commit | `Copy | `KnownUnknown | `Pull | `Unknown of int ]
type status =
[ `Cancelled | `Completed | `Failed | `Ready | `Unknown of int ]
type t = {
disk : string option;
ty : Libvirt.Event.Block_job.ty;
status : Libvirt.Event.Block_job.status;
}
val to_string : Libvirt.Event.Block_job.t -> string
end
module Disk_change :
sig
type reason = [ `MissingOnStart | `Unknown of int ]
type t = {
old_src_path : string option;
new_src_path : string option;
dev_alias : string option;
reason : Libvirt.Event.Disk_change.reason;
}
val to_string : Libvirt.Event.Disk_change.t -> string
end
module Tray_change :
sig
type reason = [ `Close | `Open | `Unknown of int ]
type t = {
dev_alias : string option;
reason : Libvirt.Event.Tray_change.reason;
}
val to_string : Libvirt.Event.Tray_change.t -> string
end
module PM_wakeup :
sig
type reason = [ `Unknown of int ]
type t = Libvirt.Event.PM_wakeup.reason
val to_string : Libvirt.Event.PM_wakeup.t -> string
end
module PM_suspend :
sig
type reason = [ `Unknown of int ]
type t = Libvirt.Event.PM_suspend.reason
val to_string : Libvirt.Event.PM_suspend.t -> string
end
module Balloon_change :
sig
type t = int64
val to_string : Libvirt.Event.Balloon_change.t -> string
end
module PM_suspend_disk :
sig
type reason = [ `Unknown of int ]
type t = Libvirt.Event.PM_suspend_disk.reason
val to_string : Libvirt.Event.PM_suspend_disk.t -> string
end
module Device_removed :
sig
type t = string
val to_string : Libvirt.Event.Device_removed.t -> string
end
type callback =
Lifecycle of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Lifecycle.t -> unit)
| Reboot of ([ `R ] Libvirt.Domain.t -> Libvirt.Event.Reboot.t -> unit)
| RtcChange of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Rtc_change.t -> unit)
| Watchdog of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Watchdog.t -> unit)
| IOError of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Io_error.t -> unit)
| Graphics of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Graphics.t -> unit)
| IOErrorReason of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Io_error.t -> unit)
| ControlError of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Control_error.t -> unit)
| BlockJob of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Block_job.t -> unit)
| DiskChange of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Disk_change.t -> unit)
| TrayChange of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Tray_change.t -> unit)
| PMWakeUp of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.PM_wakeup.t -> unit)
| PMSuspend of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.PM_suspend.t -> unit)
| BalloonChange of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Balloon_change.t -> unit)
| PMSuspendDisk of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.PM_suspend_disk.t -> unit)
| DeviceRemoved of
([ `R ] Libvirt.Domain.t -> Libvirt.Event.Device_removed.t -> unit)
val register_default_impl : unit -> unit
val run_default_impl : unit -> unit
type callback_id
val register_any :
'a Libvirt.Connect.t ->
?dom:'a Libvirt.Domain.t ->
Libvirt.Event.callback -> Libvirt.Event.callback_id
val deregister_any :
'a Libvirt.Connect.t -> Libvirt.Event.callback_id -> unit
type timer_id
val add_timeout :
'a Libvirt.Connect.t -> int -> (unit -> unit) -> Libvirt.Event.timer_id
val remove_timeout : 'a Libvirt.Connect.t -> Libvirt.Event.timer_id -> unit
end