1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
with Alog.Policy_DB;
with Alog.Logger;
use Alog;
-- Alog source loglevel policy example.
procedure Policy_Example1 is
Log : Logger.Instance (Init => True);
begin
-- Set default loglevel to 'Info'.
Policy_DB.Set_Default_Loglevel (Level => Info);
-- Set source specific loglevel for all 'Example' sources to 'Debug'.
Policy_DB.Set_Loglevel (Identifier => "Example.*",
Level => Debug);
-- This message will be logged because it matches a source specific
-- loglevel (Example.*).
if Policy_DB.Accept_Src (Identifier => "Example.Source1",
Level => Debug)
then
Log.Log_Message (Source => "Example.Source1",
Level => Debug,
Msg => "This is a testmessage");
end if;
-- This message will not be logged because of the configured default 'Info'
-- loglevel. There's no configured source loglevel for 'Source2'.
if Policy_DB.Accept_Src (Identifier => "Source2",
Level => Debug)
then
Log.Log_Message (Source => "Source2",
Level => Debug,
Msg => "This will not be logged");
end if;
-- No source specified, will not be logged because of the default 'Info'
-- loglevel.
if Policy_DB.Accept_Src (Level => Debug) then
Log.Log_Message (Level => Debug,
Msg => "This will not be logged");
end if;
end Policy_Example1;
|
