/
MessageListPkg.vhd
140 lines (128 loc) · 5.03 KB
/
MessageListPkg.vhd
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
--
-- File Name: MessageListPkg.vhd
-- Design Unit Name: MessageListPkg
-- Revision: STANDARD VERSION
--
-- Maintainer: Jim Lewis email: jim@synthworks.com
-- Contributor(s):
-- Jim Lewis SynthWorks
--
--
-- Package Defines
-- Data structure for multi-line message
--
-- Developed for:
-- SynthWorks Design Inc.
-- VHDL Training Classes
-- 11898 SW 128th Ave. Tigard, Or 97223
-- http://www.SynthWorks.com
--
-- Revision History:
-- Date Version Description
-- 07/2021 2021.07 Initial revision.
-- Written as a replacement for protected types (MessagePkg)
-- to simplify usage in new data structure.
--
-- This file is part of OSVVM.
--
-- Copyright (c) 2021 by SynthWorks Design Inc.
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
-- https://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
--
library ieee ;
use std.textio.all ;
package MessageListPkg is
type MessageStructType ;
type MessageStructPtrType is access MessageStructType ;
type MessageStructType is record
Name : line ;
NextPtr : MessageStructPtrType ;
end record MessageStructType ;
procedure SetMessage (variable Message : inout MessageStructPtrType; Name : String) ;
procedure WriteMessage (variable buf : inout line; variable Message : inout MessageStructPtrType; prefix : string := "") ;
procedure WriteMessage (file f : text; variable Message : inout MessageStructPtrType; prefix : string := "") ;
procedure GetMessageCount (variable Message : inout MessageStructPtrType; variable Count : out integer) ;
procedure DeallocateMessage (variable Message : inout MessageStructPtrType) ;
end package MessageListPkg ;
--- ///////////////////////////////////////////////////////////////////////////
--- ///////////////////////////////////////////////////////////////////////////
--- ///////////////////////////////////////////////////////////////////////////
package body MessageListPkg is
------------------------------------------------------------
procedure SetMessage (variable Message : inout MessageStructPtrType; Name : String) is
------------------------------------------------------------
variable M : MessageStructPtrType ;
begin
if Message = NULL then
Message := new MessageStructType ;
Message.Name := new string'(Name) ;
Message.NextPtr := NULL ;
else
M := Message ;
while M.NextPtr /= NULL loop
M := M.NextPtr ;
end loop ;
M.NextPtr := new MessageStructType ;
M := M.NextPtr ;
M.Name := new string'(Name) ;
M.NextPtr := NULL ;
end if ;
end procedure SetMessage ;
------------------------------------------------------------
procedure WriteMessage (variable buf : inout line; variable Message : inout MessageStructPtrType; prefix : string := "") is
------------------------------------------------------------
variable M : MessageStructPtrType ;
begin
M := Message ;
while M /= NULL loop
write(buf, prefix & M.Name.all & LF) ;
M := M.NextPtr ;
end loop ;
end procedure WriteMessage ;
------------------------------------------------------------
procedure WriteMessage (file f : text; variable Message : inout MessageStructPtrType; prefix : string := "") is
------------------------------------------------------------
variable M : MessageStructPtrType ;
variable buf : line ;
begin
M := Message ;
while M /= NULL loop
write(buf, prefix & M.Name.all) ;
writeline(f, buf) ;
M := M.NextPtr ;
end loop ;
end procedure WriteMessage ;
------------------------------------------------------------
procedure GetMessageCount (variable Message : inout MessageStructPtrType; variable Count : out integer) is
------------------------------------------------------------
variable M : MessageStructPtrType ;
begin
Count := 0 ;
M := Message ;
while M /= NULL loop
Count := Count + 1 ;
M := M.NextPtr ;
end loop ;
end procedure GetMessageCount ;
------------------------------------------------------------
procedure DeallocateMessage (variable Message : inout MessageStructPtrType) is
------------------------------------------------------------
variable OldM : MessageStructPtrType ;
begin
while Message /= NULL loop
OldM := Message ;
Message := Message.NextPtr ;
deallocate(OldM) ;
end loop ;
end procedure DeallocateMessage ;
end package body MessageListPkg ;