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; |