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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
library std;
use std.textio.all;
package log_pkg is
type t_level is (TRACE, DEBUG, INFO, WARN, ERROR);
type t_config is record
level : t_level;
show_level : boolean;
time_unit : time;
show_sim_time : boolean;
prefix : string(1 to 32);
separator : string(1 to 3);
end record;
type t_logger is protected
procedure set_config(c : t_config);
procedure trace(msg : string);
procedure debug(msg : string);
procedure info(msg : string);
procedure warn(msg : string);
procedure error(msg : string);
end protected;
function config(
level : t_level := INFO;
time_unit : time := ns;
prefix : string(1 to 32) := (others => nul);
separator : string(1 to 3) := ": " & nul;
show_level : boolean := true;
show_sim_time : boolean := true
) return t_config;
end log_pkg;
use work.log_pkg.all;
package log is
shared variable logger : t_logger;
procedure set_config(cfg : t_config);
procedure trace(msg : string);
procedure debug(msg : string);
procedure info(msg : string);
procedure warn(msg : string);
procedure error(msg : string);
end package;
package body log_pkg is
type t_logger is protected body
variable cfg : t_config := config;
procedure set_config(c : t_config) is begin cfg := c; end procedure;
procedure log(lvl : t_level; msg : string) is
constant MAX_TIME_LEN : positive := 32;
variable time : string(1 to MAX_TIME_LEN);
variable time_line : line;
procedure trim_time(t : inout string) is
begin
for i in t'reverse_range loop
if t(i) = ' ' then time(i) := nul; else return; end if;
end loop;
end procedure;
begin
if lvl < cfg.level then return; end if;
if cfg.show_sim_time then
write(time_line, now, left, MAX_TIME_LEN, cfg.time_unit);
time := time_line.all;
trim_time(time);
end if;
write(output, t_level'image(lvl) & cfg.separator & time & cfg.separator & msg & LF);
end procedure;
procedure trace(msg : string) is begin log(TRACE, msg); end procedure;
procedure debug(msg : string) is begin log(DEBUG, msg); end procedure;
procedure info(msg : string) is begin log(INFO, msg); end procedure;
procedure warn(msg : string) is begin log(WARN, msg); end procedure;
procedure error(msg : string) is begin log(ERROR, msg); end procedure;
procedure set_level(l : t_level) is
begin
cfg.level := l;
end procedure;
end protected body;
function config(
level : t_level := INFO;
time_unit : time := ns;
prefix : string(1 to 32) := (others => nul);
separator : string(1 to 3) := ": " & nul;
show_level : boolean := true;
show_sim_time : boolean := true
) return t_config is
variable cfg : t_config;
begin
cfg.level := level;
cfg.show_level := show_level;
cfg.time_unit := time_unit;
cfg.show_sim_time := show_sim_time;
cfg.prefix := prefix;
cfg.separator := separator;
return cfg;
end function;
end package body;
package body log is
procedure trace(msg : string) is begin logger.trace(msg); end procedure;
procedure debug(msg : string) is begin logger.debug(msg); end procedure;
procedure info(msg : string) is begin logger.info(msg); end procedure;
procedure warn(msg : string) is begin logger.warn(msg); end procedure;
procedure error(msg : string) is begin logger.error(msg); end procedure;
procedure set_config(cfg : t_config) is begin logger.set_config(cfg); end procedure;
end package body;
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
library work;
use work.log_pkg;
use work.log;
entity test2 is
end entity;
architecture tb of test2 is
begin
main : process is
variable l : log_pkg.t_logger;
begin
wait for 7.5 ns;
log.set_config(log_pkg.config(log_pkg.TRACE));
log.trace("TRACE");
log.debug("DEBUG");
log.info("INFO");
log.warn("WARN");
log.error("ERROR" & LF);
l.set_config(log_pkg.config(log_pkg.TRACE));
l.trace("TRACE");
l.debug("DEBUG");
l.info("INFO");
l.warn("WARN");
l.error("ERROR");
std.env.finish;
end process;
end architecture;
|
