Branch data Line data Source code
1 : : /* do not edit automatically generated by mc from FifoQueue. */
2 : : /* FifoQueue.mod provides a simple fifo queue.
3 : :
4 : : Copyright (C) 2001-2024 Free Software Foundation, Inc.
5 : : Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
6 : :
7 : : This file is part of GNU Modula-2.
8 : :
9 : : GNU Modula-2 is free software; you can redistribute it and/or modify
10 : : it under the terms of the GNU General Public License as published by
11 : : the Free Software Foundation; either version 3, or (at your option)
12 : : any later version.
13 : :
14 : : GNU Modula-2 is distributed in the hope that it will be useful, but
15 : : WITHOUT ANY WARRANTY; without even the implied warranty of
16 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 : : General Public License for more details.
18 : :
19 : : You should have received a copy of the GNU General Public License
20 : : along with GNU Modula-2; see the file COPYING3. If not see
21 : : <http://www.gnu.org/licenses/>. */
22 : :
23 : : #include "config.h"
24 : : #include "system.h"
25 : : #include <stdbool.h>
26 : : # if !defined (PROC_D)
27 : : # define PROC_D
28 : : typedef void (*PROC_t) (void);
29 : : typedef struct { PROC_t proc; } PROC;
30 : : # endif
31 : :
32 : : #define _FifoQueue_C
33 : :
34 : : #include "GFifoQueue.h"
35 : : # include "GLists.h"
36 : :
37 : : typedef struct FifoQueue_Fifo_r FifoQueue_Fifo;
38 : :
39 : : struct FifoQueue_Fifo_r {
40 : : Lists_List Queue;
41 : : unsigned int Out;
42 : : };
43 : :
44 : : static FifoQueue_Fifo const_;
45 : : static FifoQueue_Fifo subrange;
46 : : static FifoQueue_Fifo enumeration;
47 : : static FifoQueue_Fifo constructor;
48 : :
49 : : /*
50 : : PutEnumerationIntoFifoQueue - places an enumeration symbol, c,
51 : : into a fifo queue.
52 : : */
53 : :
54 : : extern "C" void FifoQueue_PutEnumerationIntoFifoQueue (unsigned int c);
55 : :
56 : : /*
57 : : GetEnumerationFromFifoQueue - retrieves an enumeration symbol,
58 : : c, from a fifo queue.
59 : : */
60 : :
61 : : extern "C" void FifoQueue_GetEnumerationFromFifoQueue (unsigned int *c);
62 : :
63 : : /*
64 : : PutSubrangeIntoFifoQueue - places a subrange symbol into a fifo
65 : : queue.
66 : : */
67 : :
68 : : extern "C" void FifoQueue_PutSubrangeIntoFifoQueue (unsigned int c);
69 : :
70 : : /*
71 : : GetSubrangeFromFifoQueue - retrieves a subrange symbol from a
72 : : fifo queue.
73 : : */
74 : :
75 : : extern "C" void FifoQueue_GetSubrangeFromFifoQueue (unsigned int *c);
76 : :
77 : : /*
78 : : PutConstIntoFifoQueue - places a constant symbol
79 : : into a fifo queue.
80 : : */
81 : :
82 : : extern "C" void FifoQueue_PutConstIntoFifoQueue (unsigned int c);
83 : :
84 : : /*
85 : : GetConstFromFifoQueue - retrieves a const symbol
86 : : from a fifo queue.
87 : : */
88 : :
89 : : extern "C" void FifoQueue_GetConstFromFifoQueue (unsigned int *c);
90 : :
91 : : /*
92 : : PutConstructorIntoFifoQueue - places a constructor symbol
93 : : into a fifo queue.
94 : : */
95 : :
96 : : extern "C" void FifoQueue_PutConstructorIntoFifoQueue (unsigned int c);
97 : :
98 : : /*
99 : : GetConstructorFromFifoQueue - retrieves a constructor symbol
100 : : from a fifo queue.
101 : : */
102 : :
103 : : extern "C" void FifoQueue_GetConstructorFromFifoQueue (unsigned int *c);
104 : :
105 : : /*
106 : : PutInto - places a CARDINAL number, c, into a fifo queue.
107 : : */
108 : :
109 : : static void PutInto (FifoQueue_Fifo *f, unsigned int c);
110 : :
111 : : /*
112 : : GetFrom - retrieves a CARDINAL number, c, from a fifo queue.
113 : : */
114 : :
115 : : static void GetFrom (FifoQueue_Fifo *f, unsigned int *c);
116 : :
117 : : /*
118 : : Init - initialize the fifo queue.
119 : : */
120 : :
121 : : static void Init (FifoQueue_Fifo *f);
122 : :
123 : :
124 : : /*
125 : : PutInto - places a CARDINAL number, c, into a fifo queue.
126 : : */
127 : :
128 : 208014 : static void PutInto (FifoQueue_Fifo *f, unsigned int c)
129 : : {
130 : 0 : Lists_PutItemIntoList ((*f).Queue, c);
131 : 0 : }
132 : :
133 : :
134 : : /*
135 : : GetFrom - retrieves a CARDINAL number, c, from a fifo queue.
136 : : */
137 : :
138 : 207972 : static void GetFrom (FifoQueue_Fifo *f, unsigned int *c)
139 : : {
140 : 207972 : (*f).Out += 1;
141 : 207972 : (*c) = static_cast<unsigned int> (Lists_GetItemFromList ((*f).Queue, (*f).Out));
142 : 207972 : }
143 : :
144 : :
145 : : /*
146 : : Init - initialize the fifo queue.
147 : : */
148 : :
149 : 56928 : static void Init (FifoQueue_Fifo *f)
150 : : {
151 : 0 : Lists_InitList (&(*f).Queue);
152 : 56928 : (*f).Out = 0;
153 : 0 : }
154 : :
155 : :
156 : : /*
157 : : PutEnumerationIntoFifoQueue - places an enumeration symbol, c,
158 : : into a fifo queue.
159 : : */
160 : :
161 : 22728 : extern "C" void FifoQueue_PutEnumerationIntoFifoQueue (unsigned int c)
162 : : {
163 : 22728 : PutInto (&enumeration, c);
164 : 22728 : }
165 : :
166 : :
167 : : /*
168 : : GetEnumerationFromFifoQueue - retrieves an enumeration symbol,
169 : : c, from a fifo queue.
170 : : */
171 : :
172 : 22704 : extern "C" void FifoQueue_GetEnumerationFromFifoQueue (unsigned int *c)
173 : : {
174 : 22704 : GetFrom (&enumeration, c);
175 : 22704 : }
176 : :
177 : :
178 : : /*
179 : : PutSubrangeIntoFifoQueue - places a subrange symbol into a fifo
180 : : queue.
181 : : */
182 : :
183 : 163876 : extern "C" void FifoQueue_PutSubrangeIntoFifoQueue (unsigned int c)
184 : : {
185 : 163876 : PutInto (&subrange, c);
186 : 163876 : }
187 : :
188 : :
189 : : /*
190 : : GetSubrangeFromFifoQueue - retrieves a subrange symbol from a
191 : : fifo queue.
192 : : */
193 : :
194 : 163864 : extern "C" void FifoQueue_GetSubrangeFromFifoQueue (unsigned int *c)
195 : : {
196 : 163864 : GetFrom (&subrange, c);
197 : 163864 : }
198 : :
199 : :
200 : : /*
201 : : PutConstIntoFifoQueue - places a constant symbol
202 : : into a fifo queue.
203 : : */
204 : :
205 : 120 : extern "C" void FifoQueue_PutConstIntoFifoQueue (unsigned int c)
206 : : {
207 : 120 : PutInto (&const_, c);
208 : 120 : }
209 : :
210 : :
211 : : /*
212 : : GetConstFromFifoQueue - retrieves a const symbol
213 : : from a fifo queue.
214 : : */
215 : :
216 : 120 : extern "C" void FifoQueue_GetConstFromFifoQueue (unsigned int *c)
217 : : {
218 : 120 : GetFrom (&const_, c);
219 : 120 : }
220 : :
221 : :
222 : : /*
223 : : PutConstructorIntoFifoQueue - places a constructor symbol
224 : : into a fifo queue.
225 : : */
226 : :
227 : 21290 : extern "C" void FifoQueue_PutConstructorIntoFifoQueue (unsigned int c)
228 : : {
229 : 21290 : PutInto (&constructor, c);
230 : 21290 : }
231 : :
232 : :
233 : : /*
234 : : GetConstructorFromFifoQueue - retrieves a constructor symbol
235 : : from a fifo queue.
236 : : */
237 : :
238 : 21284 : extern "C" void FifoQueue_GetConstructorFromFifoQueue (unsigned int *c)
239 : : {
240 : 21284 : GetFrom (&constructor, c);
241 : 21284 : }
242 : :
243 : 14232 : extern "C" void _M2_FifoQueue_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
244 : : {
245 : 14232 : Init (&const_);
246 : 14232 : Init (&enumeration);
247 : 14232 : Init (&subrange);
248 : 14232 : Init (&constructor);
249 : 14232 : }
250 : :
251 : 0 : extern "C" void _M2_FifoQueue_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
252 : : {
253 : 0 : }
|
