package Alog.Tasked_Logger is
type Facility_Update_Handle is not null access procedure (Facility_Handle : Facilities.Handle);
type Handle is access all Instance;
Init: Boolean := False)
entry Attach_Facility
( | Facility | : Facilities.Handle); |
entry Attach_Default_Facility;
entry Detach_Default_Facility;
entry Update
( | Name | : String; |
Process | : Facility_Update_Handle); |
entry Iterate
( | Process | : Facility_Update_Handle); |
entry Attach_Transform
( | Transform | : Transforms.Handle); |
entry Log_Message
( | Source | : String := ""; |
Level | : Log_Level; | |
Msg | : String; | |
Caller | : Ada.Task_Identification.Task_Id := Ada.Task_Identification.Null_Task_Id); |
entry Clear;
entry Get_Last_Exception
( | Occurrence | : out Ada.Exceptions.Exception_Occurrence; |
Caller | : Ada.Task_Identification.Task_Id := Ada.Task_Identification.Null_Task_Id); |
entry Shutdown;