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;