sig
  type t
  val start : Dtools.Init.t
  val stop : Dtools.Init.t
  val make :
    ?name:string ->
    ?depends:Dtools.Init.t list ->
    ?triggers:Dtools.Init.t list ->
    ?after:Dtools.Init.t list ->
    ?before:Dtools.Init.t list -> (unit -> unit) -> Dtools.Init.t
  val at_start :
    ?name:string ->
    ?depends:Dtools.Init.t list ->
    ?triggers:Dtools.Init.t list ->
    ?after:Dtools.Init.t list ->
    ?before:Dtools.Init.t list -> (unit -> unit) -> Dtools.Init.t
  val at_stop :
    ?name:string ->
    ?depends:Dtools.Init.t list ->
    ?triggers:Dtools.Init.t list ->
    ?after:Dtools.Init.t list ->
    ?before:Dtools.Init.t list -> (unit -> unit) -> Dtools.Init.t
  val exec : Dtools.Init.t -> unit
  exception Root_prohibited of [ `Both | `Group | `User ]
  val init : ?prohibit_root:bool -> (unit -> unit) -> unit
  exception StartError of exn
  exception StopError of exn
  val conf : Dtools.Conf.ut
  val conf_daemon : bool Dtools.Conf.t
  val conf_daemon_pidfile : bool Dtools.Conf.t
  val conf_daemon_pidfile_path : string Dtools.Conf.t
  val conf_concurrent : bool Dtools.Conf.t
  val conf_trace : bool Dtools.Conf.t
  val conf_catch_exn : bool Dtools.Conf.t
  val args : (string list * Stdlib.Arg.spec * string) list
end