23 lines
747 B
OCaml
23 lines
747 B
OCaml
|
(** MirageOS Unix implementation of the [OS] module *)
|
||
|
|
|
||
|
|
module Lifecycle : sig
|
||
|
|
val await_shutdown_request :
|
||
|
|
?can_poweroff:bool ->
|
||
|
|
?can_reboot:bool ->
|
||
|
|
unit -> [`Poweroff | `Reboot] Lwt.t
|
||
|
|
(** [await_shutdown_request ()] is thread that resolves when the domain is
|
||
|
|
asked to shut down. The optional [poweroff] (default:[true]) and
|
||
|
|
[reboot] (default:[false]) arguments can be used to indicate which
|
||
|
|
features the caller wants to advertise (however, you can still get a
|
||
|
|
request for a mode you didn't claim to support). *)
|
||
|
|
end
|
||
|
|
|
||
|
|
module Main : sig
|
||
|
|
val run : unit Lwt.t -> unit
|
||
|
|
end
|
||
|
|
|
||
|
|
module Time : sig
|
||
|
|
val sleep_ns : int64 -> unit Lwt.t
|
||
|
|
(** [sleep_ns d] Block the current thread for [n] nanoseconds. *)
|
||
|
|
end
|