package Alog.Active_Logger is
type Instance (Init : Boolean) is tagged limited private;
type Handle is access all Instance;
procedure Set_Recipient
| ( | Facility | : in out Instance; |
| Name | : String; | |
| : String); |
procedure Set_Server
| ( | Facility | : in out Instance; |
| Name | : String); |
procedure Set_Header
| ( | Facility | : in out Instance; |
| Header | : String); |
function Get_Header
| ( | Facility | : Instance) return String; |