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