2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2016-12-01 21:27:53 +04:00
|
|
|
(** A global thread that resumes the first time {!exit} is called
|
|
|
|
anywhere in the program. Called by the main to wait for any other
|
|
|
|
thread in the system to call {!exit}. *)
|
|
|
|
val termination_thread: int Lwt.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2016-12-01 21:27:53 +04:00
|
|
|
(** Awakens the {!termination_thread} with the given return value, and
|
|
|
|
raises an exception that cannot be caught, except by a
|
|
|
|
catch-all. Should only be called once. *)
|
|
|
|
val exit: int -> 'a
|