package Alog.Facilities is
package BS_Path is new Generic_Bounded_Length (Max_Path_Length);
type Instance is abstract tagged limited private;
function Get_Timestamp
| ( | Facility | : Class; |
| Time | : Ada.Calendar.Time := Ada.Calendar.Clock) return String; |
procedure Toggle_Write_Timestamp
| ( | Facility | : in out Class; |
| State | : Boolean); |
procedure Toggle_UTC_Timestamp
| ( | Facility | : in out Class; |
| State | : Boolean); |
function Is_Write_Timestamp
| ( | Facility | : Class) return Boolean; |
function Is_UTC_Timestamp
| ( | Facility | : Class) return Boolean; |
procedure Toggle_Write_Loglevel
| ( | Facility | : in out Class; |
| State | : Boolean); |
function Is_Write_Loglevel
| ( | Facility | : Class) return Boolean; |
procedure Toggle_Write_Source
| ( | Facility | : in out Class; |
| State | : Boolean); |
function Is_Write_Source
| ( | Facility | : Class) return Boolean; |
procedure Setup
| ( | Facility | : in out Instance) is null; |
procedure Teardown
| ( | Facility | : in out Instance) is null; |