1with Alog.Log_Request;
2with Alog.Facilities.File_Descriptor;
3
4use Alog;
5
6--  Alog file descriptor facility example.
7procedure Facility_Example1 is
8   Facility : Facilities.File_Descriptor.Instance;
9begin
10   --  Enable writing of loglevels.
11   Facility.Toggle_Write_Loglevel (State => True);
12
13   --  Use '/tmp/alog.log' as logfile, overwrite existing file.
14   Facility.Set_Logfile (Path   => "/tmp/alog.log",
15                         Append => False);
16
17   --  Let the facility process a log request with loglevel 'Warning'.
18   Facility.Process
19     (Request => Log_Request.Create
20        (Level   => Warning,
21         Message => "This is a testmessage from Alog FD facility"));
22
23   --  Teardown the facility.
24   Facility.Teardown;
25end Facility_Example1;
26