prelude.c
1 //! @file prelude.c
2 //! @author J. Marcel van der Veer
3
4 //! @section Copyright
5 //!
6 //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
7 //! Copyright 2001-2025 J. Marcel van der Veer [algol68g@xs4all.nl].
8
9 //! @section License
10 //!
11 //! This program is free software; you can redistribute it and/or modify it
12 //! under the terms of the GNU General Public License as published by the
13 //! Free Software Foundation; either version 3 of the License, or
14 //! (at your option) any later version.
15 //!
16 //! This program is distributed in the hope that it will be useful, but
17 //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
18 //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
19 //! more details. You should have received a copy of the GNU General Public
20 //! License along with this program. If not, see [http://www.gnu.org/licenses/].
21
22 //! @section Synopsis
23 //!
24 //! Standard prelude definitions.
25
26 #include "a68g.h"
27 #include "a68g-prelude.h"
28 #include "a68g-prelude-mathlib.h"
29 #include "a68g-prelude-gsl.h"
30 #include "a68g-transput.h"
31 #include "a68g-mp.h"
32 #include "a68g-parser.h"
33 #include "a68g-double.h"
34
35 #define A68_STD A68_TRUE
36 #define A68_EXT A68_FALSE
37
38 //! @brief Standard_environ_proc_name.
39
40 char *standard_environ_proc_name (GPROC f)
41 {
42 for (TAG_T *i = IDENTIFIERS (A68_STANDENV); i != NO_TAG; FORWARD (i)) {
43 if (PROCEDURE (i) == f) {
44 return NSYMBOL (NODE (i));
45 }
46 }
47 return NO_TEXT;
48 }
49
50 //! @brief Enter tag in standenv symbol table.
51
52 void add_a68_standenv (BOOL_T portable, int a, NODE_T * n, char *c, MOID_T * m, int p, GPROC * q)
53 {
54 #define INSERT_TAG(l, n) {\
55 NEXT (n) = *(l);\
56 *(l) = (n);\
57 }
58 TAG_T *new_one = new_tag ();
59 PROCEDURE_LEVEL (INFO (n)) = 0;
60 USE (new_one) = A68_FALSE;
61 HEAP (new_one) = HEAP_SYMBOL;
62 TAG_TABLE (new_one) = A68_STANDENV;
63 NODE (new_one) = n;
64 VALUE (new_one) = (c != NO_TEXT ? TEXT (add_token (&A68 (top_token), c)) : NO_TEXT);
65 PRIO (new_one) = p;
66 PROCEDURE (new_one) = q;
67 A68_STANDENV_PROC (new_one) = (BOOL_T) (q != NO_GPROC);
68 UNIT (new_one) = NULL;
69 PORTABLE (new_one) = portable;
70 MOID (new_one) = m;
71 NEXT (new_one) = NO_TAG;
72 if (a == IDENTIFIER) {
73 INSERT_TAG (&IDENTIFIERS (A68_STANDENV), new_one);
74 } else if (a == OP_SYMBOL) {
75 INSERT_TAG (&OPERATORS (A68_STANDENV), new_one);
76 } else if (a == PRIO_SYMBOL) {
77 INSERT_TAG (&PRIO (A68_STANDENV), new_one);
78 } else if (a == INDICANT) {
79 INSERT_TAG (&INDICANTS (A68_STANDENV), new_one);
80 } else if (a == LABEL) {
81 INSERT_TAG (&LABELS (A68_STANDENV), new_one);
82 }
83 #undef INSERT_TAG
84 }
85
86 //! @brief Compose PROC moid from arguments - first result, than arguments.
87
88 MOID_T *a68_proc (MOID_T * m, ...)
89 {
90 va_list attribute;
91 va_start (attribute, m);
92 PACK_T *p = NO_PACK, *q = NO_PACK;
93 MOID_T *y;
94 while ((y = va_arg (attribute, MOID_T *)) != NO_MOID) {
95 PACK_T *new_one = new_pack ();
96 MOID (new_one) = y;
97 TEXT (new_one) = NO_TEXT;
98 NEXT (new_one) = NO_PACK;
99 if (q != NO_PACK) {
100 NEXT (q) = new_one;
101 } else {
102 p = new_one;
103 }
104 q = new_one;
105 }
106 va_end (attribute);
107 return add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, count_pack_members (p), NO_NODE, m, p);
108 }
109
110 //! @brief Enter an identifier in standenv.
111
112 void a68_idf (BOOL_T portable, char *n, MOID_T * m, GPROC * q)
113 {
114 add_a68_standenv (portable, IDENTIFIER, some_node (TEXT (add_token (&A68 (top_token), n))), NO_TEXT, m, 0, q);
115 }
116
117 void a68_id2 (BOOL_T portable, char *n1, char *n2, MOID_T * m, GPROC * q)
118 {
119 add_a68_standenv (portable, IDENTIFIER, some_node (TEXT (add_token (&A68 (top_token), n1))), NO_TEXT, m, 0, q);
120 add_a68_standenv (A68_EXT, IDENTIFIER, some_node (TEXT (add_token (&A68 (top_token), n2))), NO_TEXT, m, 0, q);
121 }
122
123 //! @brief Enter a moid in standenv.
124
125 void a68_mode (int p, char *t, MOID_T ** m)
126 {
127 (*m) = add_mode (&TOP_MOID (&A68_JOB), STANDARD, p, some_node (TEXT (find_keyword (A68 (top_keyword), t))), NO_MOID, NO_PACK);
128 }
129
130 //! @brief Enter a priority in standenv.
131
132 void a68_prio (char *p, int b)
133 {
134 add_a68_standenv (A68_TRUE, PRIO_SYMBOL, some_node (TEXT (add_token (&A68 (top_token), p))), NO_TEXT, NO_MOID, b, NO_GPROC);
135 }
136
137 //! @brief Enter operator in standenv.
138
139 void a68_op (BOOL_T portable, char *n, MOID_T * m, GPROC * q)
140 {
141 add_a68_standenv (portable, OP_SYMBOL, some_node (TEXT (add_token (&A68 (top_token), n))), NO_TEXT, m, 0, q);
142 }
143
144 //! @brief Enter standard modes in standenv.
145
146 void stand_moids (void)
147 {
148 // Primitive A68 moids.
149 a68_mode (0, "VOID", &M_VOID);
150 // Standard precision.
151 a68_mode (0, "INT", &M_INT);
152 a68_mode (0, "REAL", &M_REAL);
153 a68_mode (0, "COMPLEX", &M_COMPLEX);
154 a68_mode (0, "COMPL", &M_COMPL);
155 a68_mode (0, "BITS", &M_BITS);
156 a68_mode (0, "BYTES", &M_BYTES);
157 // Multiple precision.
158 a68_mode (1, "INT", &M_LONG_INT);
159 a68_mode (1, "REAL", &M_LONG_REAL);
160 a68_mode (1, "COMPLEX", &M_LONG_COMPLEX);
161 a68_mode (1, "COMPL", &M_LONG_COMPL);
162 a68_mode (1, "BITS", &M_LONG_BITS);
163 a68_mode (1, "BYTES", &M_LONG_BYTES);
164 a68_mode (2, "REAL", &M_LONG_LONG_REAL);
165 a68_mode (2, "INT", &M_LONG_LONG_INT);
166 a68_mode (2, "COMPLEX", &M_LONG_LONG_COMPLEX);
167 a68_mode (2, "COMPL", &M_LONG_LONG_COMPL);
168 #if (A68_LEVEL < 3)
169 a68_mode (2, "BITS", &M_LONG_LONG_BITS);
170 #endif
171 // Other.
172 a68_mode (0, "BOOL", &M_BOOL);
173 a68_mode (0, "CHAR", &M_CHAR);
174 a68_mode (0, "STRING", &M_STRING);
175 a68_mode (0, "FILE", &M_FILE);
176 a68_mode (0, "CHANNEL", &M_CHANNEL);
177 a68_mode (0, "PIPE", &M_PIPE);
178 a68_mode (0, "FORMAT", &M_FORMAT);
179 a68_mode (0, "SEMA", &M_SEMA);
180 a68_mode (0, "SOUND", &M_SOUND);
181 PORTABLE (M_PIPE) = A68_FALSE;
182 HAS_ROWS (M_SOUND) = A68_TRUE;
183 PORTABLE (M_SOUND) = A68_FALSE;
184 // ROWS.
185 M_ROWS = add_mode (&TOP_MOID (&A68_JOB), ROWS_SYMBOL, 0, NO_NODE, NO_MOID, NO_PACK);
186 // REFs.
187 M_REF_INT = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_INT, NO_PACK);
188 M_REF_REAL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_REAL, NO_PACK);
189 M_REF_COMPLEX = M_REF_COMPL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_COMPLEX, NO_PACK);
190 M_REF_BITS = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_BITS, NO_PACK);
191 M_REF_BYTES = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_BYTES, NO_PACK);
192 M_REF_FORMAT = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_FORMAT, NO_PACK);
193 M_REF_PIPE = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_PIPE, NO_PACK);
194 // Multiple precision.
195 M_REF_LONG_INT = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_INT, NO_PACK);
196 M_REF_LONG_REAL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_REAL, NO_PACK);
197 M_REF_LONG_COMPLEX = M_REF_LONG_COMPL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_COMPLEX, NO_PACK);
198 M_REF_LONG_BITS = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_BITS, NO_PACK);
199 M_REF_LONG_LONG_INT = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_INT, NO_PACK);
200 M_REF_LONG_LONG_REAL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_REAL, NO_PACK);
201 M_REF_LONG_LONG_COMPLEX = M_REF_LONG_LONG_COMPL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_COMPLEX, NO_PACK);
202 #if (A68_LEVEL < 3)
203 M_REF_LONG_LONG_BITS = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_BITS, NO_PACK);
204 #endif
205 M_REF_LONG_BYTES = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_BYTES, NO_PACK);
206 // Other.
207 M_REF_BOOL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_BOOL, NO_PACK);
208 M_REF_CHAR = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_CHAR, NO_PACK);
209 M_REF_FILE = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_FILE, NO_PACK);
210 M_REF_REF_FILE = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_REF_FILE, NO_PACK);
211 M_REF_SOUND = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_SOUND, NO_PACK);
212 // [] INT.
213 M_ROW_INT = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_INT, NO_PACK);
214 HAS_ROWS (M_ROW_INT) = A68_TRUE;
215 SLICE (M_ROW_INT) = M_INT;
216 M_REF_ROW_INT = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_INT, NO_PACK);
217 NAME (M_REF_ROW_INT) = M_REF_INT;
218 // [] REAL.
219 M_ROW_REAL = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_REAL, NO_PACK);
220 HAS_ROWS (M_ROW_REAL) = A68_TRUE;
221 SLICE (M_ROW_REAL) = M_REAL;
222 M_REF_ROW_REAL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_REAL, NO_PACK);
223 NAME (M_REF_ROW_REAL) = M_REF_REAL;
224 // [,] REAL.
225 M_ROW_ROW_REAL = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 2, NO_NODE, M_REAL, NO_PACK);
226 HAS_ROWS (M_ROW_ROW_REAL) = A68_TRUE;
227 SLICE (M_ROW_ROW_REAL) = M_ROW_REAL;
228 M_REF_ROW_ROW_REAL = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_ROW_REAL, NO_PACK);
229 NAME (M_REF_ROW_ROW_REAL) = M_REF_ROW_REAL;
230 // [] COMPLEX.
231 M_ROW_COMPLEX = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_COMPLEX, NO_PACK);
232 HAS_ROWS (M_ROW_COMPLEX) = A68_TRUE;
233 SLICE (M_ROW_COMPLEX) = M_COMPLEX;
234 M_REF_ROW_COMPLEX = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_COMPLEX, NO_PACK);
235 NAME (M_REF_ROW_COMPLEX) = M_REF_COMPLEX;
236 // [,] COMPLEX.
237 M_ROW_ROW_COMPLEX = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 2, NO_NODE, M_COMPLEX, NO_PACK);
238 HAS_ROWS (M_ROW_ROW_COMPLEX) = A68_TRUE;
239 SLICE (M_ROW_ROW_COMPLEX) = M_ROW_COMPLEX;
240 M_REF_ROW_ROW_COMPLEX = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_ROW_COMPLEX, NO_PACK);
241 NAME (M_REF_ROW_ROW_COMPLEX) = M_REF_ROW_COMPLEX;
242 // [] BOOL.
243 M_ROW_BOOL = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_BOOL, NO_PACK);
244 HAS_ROWS (M_ROW_BOOL) = A68_TRUE;
245 SLICE (M_ROW_BOOL) = M_BOOL;
246 // FLEX [] BOOL.
247 MOID_T *m = add_mode (&TOP_MOID (&A68_JOB), FLEX_SYMBOL, 0, NO_NODE, M_ROW_BOOL, NO_PACK);
248 HAS_ROWS (m) = A68_TRUE;
249 M_FLEX_ROW_BOOL = m;
250 // [] BITS.
251 M_ROW_BITS = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_BITS, NO_PACK);
252 HAS_ROWS (M_ROW_BITS) = A68_TRUE;
253 SLICE (M_ROW_BITS) = M_BITS;
254 // [] LONG BITS.
255 M_ROW_LONG_BITS = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_LONG_BITS, NO_PACK);
256 HAS_ROWS (M_ROW_LONG_BITS) = A68_TRUE;
257 SLICE (M_ROW_LONG_BITS) = M_LONG_BITS;
258 // [] CHAR.
259 M_ROW_CHAR = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_CHAR, NO_PACK);
260 HAS_ROWS (M_ROW_CHAR) = A68_TRUE;
261 SLICE (M_ROW_CHAR) = M_CHAR;
262 // [][] CHAR.
263 M_ROW_ROW_CHAR = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_ROW_CHAR, NO_PACK);
264 HAS_ROWS (M_ROW_ROW_CHAR) = A68_TRUE;
265 SLICE (M_ROW_ROW_CHAR) = M_ROW_CHAR;
266 // MODE STRING = FLEX [] CHAR.
267 m = add_mode (&TOP_MOID (&A68_JOB), FLEX_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK);
268 HAS_ROWS (m) = A68_TRUE;
269 M_FLEX_ROW_CHAR = m;
270 EQUIVALENT (M_STRING) = m;
271 // REF [] CHAR.
272 M_REF_ROW_CHAR = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK);
273 NAME (M_REF_ROW_CHAR) = M_REF_CHAR;
274 // PROC [] CHAR.
275 M_PROC_ROW_CHAR = add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK);
276 // REF STRING = REF FLEX [] CHAR.
277 M_REF_STRING = add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, EQUIVALENT (M_STRING), NO_PACK);
278 NAME (M_REF_STRING) = M_REF_CHAR;
279 DEFLEXED (M_REF_STRING) = M_REF_ROW_CHAR;
280 // [] STRING.
281 M_ROW_STRING = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_STRING, NO_PACK);
282 HAS_ROWS (M_ROW_STRING) = A68_TRUE;
283 SLICE (M_ROW_STRING) = M_STRING;
284 DEFLEXED (M_ROW_STRING) = M_ROW_ROW_CHAR;
285 // PROC STRING.
286 M_PROC_STRING = add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, 0, NO_NODE, M_STRING, NO_PACK);
287 DEFLEXED (M_PROC_STRING) = M_PROC_ROW_CHAR;
288 // COMPLEX.
289 PACK_T *z = NO_PACK;
290 (void) add_mode_to_pack (&z, M_REAL, TEXT (add_token (&A68 (top_token), "im")), NO_NODE);
291 (void) add_mode_to_pack (&z, M_REAL, TEXT (add_token (&A68 (top_token), "re")), NO_NODE);
292 m = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
293 EQUIVALENT (M_COMPLEX) = EQUIVALENT (M_COMPL) = m;
294 z = NO_PACK;
295 (void) add_mode_to_pack (&z, M_REF_REAL, TEXT (add_token (&A68 (top_token), "im")), NO_NODE);
296 (void) add_mode_to_pack (&z, M_REF_REAL, TEXT (add_token (&A68 (top_token), "re")), NO_NODE);
297 m = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
298 NAME (M_REF_COMPLEX) = NAME (M_REF_COMPL) = m;
299 // LONG COMPLEX.
300 z = NO_PACK;
301 (void) add_mode_to_pack (&z, M_LONG_REAL, TEXT (add_token (&A68 (top_token), "im")), NO_NODE);
302 (void) add_mode_to_pack (&z, M_LONG_REAL, TEXT (add_token (&A68 (top_token), "re")), NO_NODE);
303 m = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
304 EQUIVALENT (M_LONG_COMPLEX) = EQUIVALENT (M_LONG_COMPL) = m;
305 z = NO_PACK;
306 (void) add_mode_to_pack (&z, M_REF_LONG_REAL, TEXT (add_token (&A68 (top_token), "im")), NO_NODE);
307 (void) add_mode_to_pack (&z, M_REF_LONG_REAL, TEXT (add_token (&A68 (top_token), "re")), NO_NODE);
308 m = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
309 NAME (M_REF_LONG_COMPLEX) = NAME (M_REF_LONG_COMPL) = m;
310 // LONG_LONG COMPLEX.
311 z = NO_PACK;
312 (void) add_mode_to_pack (&z, M_LONG_LONG_REAL, TEXT (add_token (&A68 (top_token), "im")), NO_NODE);
313 (void) add_mode_to_pack (&z, M_LONG_LONG_REAL, TEXT (add_token (&A68 (top_token), "re")), NO_NODE);
314 m = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
315 EQUIVALENT (M_LONG_LONG_COMPLEX) = EQUIVALENT (M_LONG_LONG_COMPL) = m;
316 z = NO_PACK;
317 (void) add_mode_to_pack (&z, M_REF_LONG_LONG_REAL, TEXT (add_token (&A68 (top_token), "im")), NO_NODE);
318 (void) add_mode_to_pack (&z, M_REF_LONG_LONG_REAL, TEXT (add_token (&A68 (top_token), "re")), NO_NODE);
319 m = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
320 NAME (M_REF_LONG_LONG_COMPLEX) = NAME (M_REF_LONG_LONG_COMPL) = m;
321 // NUMBER.
322 z = NO_PACK;
323 (void) add_mode_to_pack (&z, M_INT, NO_TEXT, NO_NODE);
324 (void) add_mode_to_pack (&z, M_LONG_INT, NO_TEXT, NO_NODE);
325 (void) add_mode_to_pack (&z, M_LONG_LONG_INT, NO_TEXT, NO_NODE);
326 (void) add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE);
327 (void) add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE);
328 (void) add_mode_to_pack (&z, M_LONG_LONG_REAL, NO_TEXT, NO_NODE);
329 M_NUMBER = add_mode (&TOP_MOID (&A68_JOB), UNION_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
330 // HEX_NUMBER.
331 z = NO_PACK;
332 (void) add_mode_to_pack (&z, M_BOOL, NO_TEXT, NO_NODE);
333 (void) add_mode_to_pack (&z, M_CHAR, NO_TEXT, NO_NODE);
334 (void) add_mode_to_pack (&z, M_INT, NO_TEXT, NO_NODE);
335 (void) add_mode_to_pack (&z, M_LONG_INT, NO_TEXT, NO_NODE);
336 (void) add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE);
337 (void) add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE);
338 (void) add_mode_to_pack (&z, M_BITS, NO_TEXT, NO_NODE);
339 (void) add_mode_to_pack (&z, M_LONG_BITS, NO_TEXT, NO_NODE);
340 M_HEX_NUMBER = add_mode (&TOP_MOID (&A68_JOB), UNION_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
341 // SEMA.
342 z = NO_PACK;
343 (void) add_mode_to_pack (&z, M_REF_INT, NO_TEXT, NO_NODE);
344 EQUIVALENT (M_SEMA) = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
345 // PROC VOID.
346 z = NO_PACK;
347 M_PROC_VOID = add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_VOID, z);
348 // PROC (REAL) REAL.
349 z = NO_PACK;
350 (void) add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE);
351 M_PROC_REAL_REAL = add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_REAL, z);
352 // PROC (LONG_REAL) LONG_REAL.
353 z = NO_PACK;
354 (void) add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE);
355 M_PROC_LONG_REAL_LONG_REAL = add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_LONG_REAL, z);
356 // IO: PROC (REF FILE) BOOL.
357 z = NO_PACK;
358 (void) add_mode_to_pack (&z, M_REF_FILE, NO_TEXT, NO_NODE);
359 M_PROC_REF_FILE_BOOL = add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_BOOL, z);
360 // IO: PROC (REF FILE) VOID.
361 z = NO_PACK;
362 (void) add_mode_to_pack (&z, M_REF_FILE, NO_TEXT, NO_NODE);
363 M_PROC_REF_FILE_VOID = add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_VOID, z);
364 // IO: SIMPLIN and SIMPLOUT.
365 M_SIMPLIN = add_mode (&TOP_MOID (&A68_JOB), IN_TYPE_MODE, 0, NO_NODE, NO_MOID, NO_PACK);
366 M_ROW_SIMPLIN = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_SIMPLIN, NO_PACK);
367 SLICE (M_ROW_SIMPLIN) = M_SIMPLIN;
368 M_SIMPLOUT = add_mode (&TOP_MOID (&A68_JOB), OUT_TYPE_MODE, 0, NO_NODE, NO_MOID, NO_PACK);
369 M_ROW_SIMPLOUT = add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_SIMPLOUT, NO_PACK);
370 SLICE (M_ROW_SIMPLOUT) = M_SIMPLOUT;
371 // PIPE.
372 z = NO_PACK;
373 (void) add_mode_to_pack (&z, M_INT, TEXT (add_token (&A68 (top_token), "pid")), NO_NODE);
374 (void) add_mode_to_pack (&z, M_REF_FILE, TEXT (add_token (&A68 (top_token), "write")), NO_NODE);
375 (void) add_mode_to_pack (&z, M_REF_FILE, TEXT (add_token (&A68 (top_token), "read")), NO_NODE);
376 EQUIVALENT (M_PIPE) = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
377 z = NO_PACK;
378 (void) add_mode_to_pack (&z, M_REF_INT, TEXT (add_token (&A68 (top_token), "pid")), NO_NODE);
379 (void) add_mode_to_pack (&z, M_REF_REF_FILE, TEXT (add_token (&A68 (top_token), "write")), NO_NODE);
380 (void) add_mode_to_pack (&z, M_REF_REF_FILE, TEXT (add_token (&A68 (top_token), "read")), NO_NODE);
381 NAME (M_REF_PIPE) = add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
382 }
383
384 //! @brief Set up standenv - general RR but not transput.
385
386 void stand_prelude (void)
387 {
388 // Identifiers.
389 a68_idf (A68_STD, "intlengths", M_INT, genie_int_lengths);
390 a68_idf (A68_STD, "intshorths", M_INT, genie_int_shorths);
391 a68_idf (A68_STD, "infinity", M_REAL, genie_infinity_real);
392 a68_idf (A68_STD, "minusinfinity", M_REAL, genie_minus_infinity_real);
393 a68_idf (A68_STD, "inf", M_REAL, genie_infinity_real);
394 a68_idf (A68_STD, "mininf", M_REAL, genie_minus_infinity_real);
395 a68_idf (A68_STD, "maxint", M_INT, genie_max_int);
396 a68_idf (A68_STD, "mpradix", M_INT, genie_mp_radix);
397 a68_idf (A68_STD, "maxreal", M_REAL, genie_max_real);
398 a68_idf (A68_STD, "minreal", M_REAL, genie_min_real);
399 a68_idf (A68_STD, "smallreal", M_REAL, genie_small_real);
400 a68_idf (A68_STD, "reallengths", M_INT, genie_real_lengths);
401 a68_idf (A68_STD, "realshorths", M_INT, genie_real_shorths);
402 a68_idf (A68_STD, "compllengths", M_INT, genie_complex_lengths);
403 a68_idf (A68_STD, "complshorths", M_INT, genie_complex_shorths);
404 a68_idf (A68_STD, "bitslengths", M_INT, genie_bits_lengths);
405 a68_idf (A68_STD, "bitsshorths", M_INT, genie_bits_shorths);
406 a68_idf (A68_STD, "bitswidth", M_INT, genie_bits_width);
407 a68_idf (A68_STD, "longbitswidth", M_INT, genie_long_bits_width);
408 a68_idf (A68_STD, "maxbits", M_BITS, genie_max_bits);
409 a68_idf (A68_STD, "byteslengths", M_INT, genie_bytes_lengths);
410 a68_idf (A68_STD, "bytesshorths", M_INT, genie_bytes_shorths);
411 a68_idf (A68_STD, "byteswidth", M_INT, genie_bytes_width);
412 a68_idf (A68_STD, "maxabschar", M_INT, genie_max_abs_char);
413 a68_idf (A68_STD, "pi", M_REAL, genie_pi);
414 a68_id2 (A68_STD, "longlongpi", "qpi", M_LONG_LONG_REAL, genie_pi_mp);
415 a68_idf (A68_STD, "intwidth", M_INT, genie_int_width);
416 a68_idf (A68_STD, "realwidth", M_INT, genie_real_width);
417 a68_idf (A68_STD, "expwidth", M_INT, genie_exp_width);
418 a68_idf (A68_STD, "longintwidth", M_INT, genie_long_int_width);
419 a68_idf (A68_STD, "longlongintwidth", M_INT, genie_long_mp_int_width);
420 a68_idf (A68_STD, "longrealwidth", M_INT, genie_long_real_width);
421 a68_idf (A68_STD, "longlongrealwidth", M_INT, genie_long_mp_real_width);
422 a68_idf (A68_STD, "longexpwidth", M_INT, genie_long_exp_width);
423 a68_idf (A68_STD, "longlongexpwidth", M_INT, genie_long_mp_exp_width);
424 a68_idf (A68_STD, "longlongmaxint", M_LONG_LONG_INT, genie_long_mp_max_int);
425 a68_idf (A68_STD, "longlongsmallreal", M_LONG_LONG_REAL, genie_long_mp_small_real);
426 a68_idf (A68_STD, "longlongmaxreal", M_LONG_LONG_REAL, genie_long_mp_max_real);
427 a68_idf (A68_STD, "longlongminreal", M_LONG_LONG_REAL, genie_long_mp_min_real);
428 a68_idf (A68_STD, "longlonginfinity", M_LONG_LONG_REAL, genie_infinity_mp);
429 a68_idf (A68_STD, "longlongminusinfinity", M_LONG_LONG_REAL, genie_minus_infinity_mp);
430 a68_idf (A68_STD, "longlonginf", M_LONG_LONG_REAL, genie_infinity_mp);
431 a68_idf (A68_STD, "longlongmininf", M_LONG_LONG_REAL, genie_minus_infinity_mp);
432 a68_idf (A68_STD, "longbyteswidth", M_INT, genie_long_bytes_width);
433 a68_idf (A68_EXT, "seconds", M_REAL, genie_cputime);
434 a68_idf (A68_EXT, "clock", M_REAL, genie_cputime);
435 a68_idf (A68_EXT, "cputime", M_REAL, genie_cputime);
436 MOID_T *m = a68_proc (M_VOID, A68_MCACHE (proc_void), NO_MOID);
437 a68_idf (A68_EXT, "blocks", A68_MCACHE (proc_int), genie_block);
438 a68_idf (A68_EXT, "collections", A68_MCACHE (proc_int), genie_garbage_collections);
439 a68_idf (A68_EXT, "collectseconds", A68_MCACHE (proc_real), genie_garbage_seconds);
440 a68_idf (A68_EXT, "garbage", A68_MCACHE (proc_int), genie_garbage_freed);
441 a68_idf (A68_EXT, "garbagecollections", A68_MCACHE (proc_int), genie_garbage_collections);
442 a68_idf (A68_EXT, "garbagefreed", A68_MCACHE (proc_int), genie_garbage_freed);
443 a68_idf (A68_EXT, "garbagerefused", A68_MCACHE (proc_int), genie_garbage_refused);
444 a68_idf (A68_EXT, "garbageseconds", A68_MCACHE (proc_real), genie_garbage_seconds);
445 a68_idf (A68_EXT, "ongcevent", m, genie_on_gc_event);
446 a68_idf (A68_EXT, "sweeps", A68_MCACHE (proc_int), genie_garbage_collections);
447 a68_idf (A68_EXT, "sweepsrefused", A68_MCACHE (proc_int), genie_garbage_refused);
448 a68_idf (A68_EXT, "stackpointer", M_INT, genie_stack_pointer);
449 a68_idf (A68_EXT, "systemstackpointer", M_INT, genie_system_stack_pointer);
450 a68_idf (A68_EXT, "systemstacksize", M_INT, genie_system_stack_size);
451 a68_idf (A68_EXT, "actualstacksize", M_INT, genie_stack_pointer);
452 a68_idf (A68_EXT, "heappointer", M_INT, genie_system_heap_pointer);
453 a68_idf (A68_EXT, "systemheappointer", M_INT, genie_system_heap_pointer);
454 a68_idf (A68_EXT, "gcheap", A68_MCACHE (proc_void), genie_gc_heap);
455 a68_idf (A68_EXT, "sweepheap", A68_MCACHE (proc_void), genie_gc_heap);
456 a68_idf (A68_EXT, "preemptivegc", A68_MCACHE (proc_void), genie_preemptive_gc_heap);
457 a68_idf (A68_EXT, "preemptivesweep", A68_MCACHE (proc_void), genie_preemptive_gc_heap);
458 a68_idf (A68_EXT, "preemptivesweepheap", A68_MCACHE (proc_void), genie_preemptive_gc_heap);
459 a68_idf (A68_EXT, "backtrace", A68_MCACHE (proc_void), genie_backtrace);
460 a68_idf (A68_EXT, "break", A68_MCACHE (proc_void), genie_break);
461 a68_idf (A68_EXT, "debug", A68_MCACHE (proc_void), genie_debug);
462 a68_idf (A68_EXT, "monitor", A68_MCACHE (proc_void), genie_debug);
463 m = a68_proc (M_VOID, M_STRING, NO_MOID);
464 a68_idf (A68_EXT, "abend", m, genie_abend);
465 m = a68_proc (M_STRING, M_STRING, NO_MOID);
466 a68_idf (A68_EXT, "evaluate", m, genie_evaluate);
467 m = a68_proc (M_INT, M_STRING, NO_MOID);
468 a68_idf (A68_EXT, "system", m, genie_system);
469 m = A68_MCACHE (proc_int_int);
470 a68_idf (A68_EXT, "sleep", m, genie_sleep);
471 // Machine environ parameters.
472 a68_idf (A68_EXT, "i32mach", A68_MCACHE (proc_int_int), genie_i32mach);
473 a68_idf (A68_EXT, "r64mach", A68_MCACHE (proc_int_real), genie_i32mach);
474 #if (A68_LEVEL >= 3)
475 m = a68_proc (M_LONG_INT, M_INT, NO_MOID);
476 a68_idf (A68_EXT, "i64mach", m, genie_i64mach);
477 m = a68_proc (M_LONG_REAL, M_INT, NO_MOID);
478 a68_idf (A68_EXT, "r128mach", m, genie_r128mach);
479 #endif
480 // BITS procedures.
481 m = a68_proc (M_BITS, M_ROW_BOOL, NO_MOID);
482 a68_idf (A68_STD, "bitspack", m, genie_bits_pack);
483 // RNG procedures.
484 m = a68_proc (M_VOID, M_INT, NO_MOID);
485 a68_idf (A68_STD, "firstrandom", m, genie_first_random);
486 m = A68_MCACHE (proc_real);
487 a68_idf (A68_STD, "nextrandom", m, genie_next_random);
488 a68_idf (A68_STD, "random", m, genie_next_random);
489 a68_idf (A68_STD, "rnd", m, genie_next_rnd);
490 m = a68_proc (M_LONG_LONG_REAL, NO_MOID);
491 a68_idf (A68_STD, "longlongnextrandom", m, genie_long_next_random);
492 a68_idf (A68_STD, "longlongrandom", m, genie_long_next_random);
493 // Priorities.
494 a68_prio ("+:=", 1);
495 a68_prio ("-:=", 1);
496 a68_prio ("*:=", 1);
497 a68_prio ("/:=", 1);
498 a68_prio ("%:=", 1);
499 a68_prio ("%*:=", 1);
500 a68_prio ("+=:", 1);
501 a68_prio ("PLUSAB", 1);
502 a68_prio ("MINUSAB", 1);
503 a68_prio ("TIMESAB", 1);
504 a68_prio ("DIVAB", 1);
505 a68_prio ("OVERAB", 1);
506 a68_prio ("MODAB", 1);
507 a68_prio ("PLUSTO", 1);
508 a68_prio ("OR", 2);
509 a68_prio ("AND", 3);
510 a68_prio ("&", 3);
511 a68_prio ("XOR", 3);
512 a68_prio ("=", 4);
513 a68_prio ("/=", 4);
514 a68_prio ("~=", 4);
515 a68_prio ("^=", 4);
516 a68_prio ("<", 5);
517 a68_prio ("<=", 5);
518 a68_prio (">", 5);
519 a68_prio (">=", 5);
520 a68_prio ("EQ", 4);
521 a68_prio ("NE", 4);
522 a68_prio ("LT", 5);
523 a68_prio ("LE", 5);
524 a68_prio ("GT", 5);
525 a68_prio ("GE", 5);
526 a68_prio ("+", 6);
527 a68_prio ("-", 6);
528 a68_prio ("*", 7);
529 a68_prio ("/", 7);
530 a68_prio ("OVER", 7);
531 a68_prio ("%", 7);
532 a68_prio ("MOD", 7);
533 a68_prio ("%*", 7);
534 a68_prio ("ELEM", 7);
535 a68_prio ("SET", 7);
536 a68_prio ("CLEAR", 7);
537 a68_prio ("**", 8);
538 a68_prio ("SHL", 8);
539 a68_prio ("SHR", 8);
540 a68_prio ("ROL", 8);
541 a68_prio ("ROR", 8);
542 a68_prio ("UP", 8);
543 a68_prio ("DOWN", 8);
544 a68_prio ("^", 8);
545 a68_prio ("ELEMS", 8);
546 a68_prio ("LWB", 8);
547 a68_prio ("UPB", 8);
548 a68_prio ("SORT", 8);
549 a68_prio ("I", 9);
550 a68_prio ("+*", 9);
551 // INT ops.
552 m = a68_proc (M_INT, M_INT, NO_MOID);
553 a68_op (A68_STD, "+", m, genie_idle);
554 a68_op (A68_STD, "-", m, genie_minus_int);
555 a68_op (A68_STD, "ABS", m, genie_abs_int);
556 a68_op (A68_STD, "SIGN", m, genie_sign_int);
557 m = a68_proc (M_BOOL, M_INT, NO_MOID);
558 a68_op (A68_STD, "ODD", m, genie_odd_int);
559 m = a68_proc (M_BOOL, M_INT, M_INT, NO_MOID);
560 a68_op (A68_STD, "=", m, genie_eq_int);
561 a68_op (A68_STD, "/=", m, genie_ne_int);
562 a68_op (A68_STD, "~=", m, genie_ne_int);
563 a68_op (A68_STD, "^=", m, genie_ne_int);
564 a68_op (A68_STD, "<", m, genie_lt_int);
565 a68_op (A68_STD, "<=", m, genie_le_int);
566 a68_op (A68_STD, ">", m, genie_gt_int);
567 a68_op (A68_STD, ">=", m, genie_ge_int);
568 a68_op (A68_STD, "EQ", m, genie_eq_int);
569 a68_op (A68_STD, "NE", m, genie_ne_int);
570 a68_op (A68_STD, "LT", m, genie_lt_int);
571 a68_op (A68_STD, "LE", m, genie_le_int);
572 a68_op (A68_STD, "GT", m, genie_gt_int);
573 a68_op (A68_STD, "GE", m, genie_ge_int);
574 m = a68_proc (M_INT, M_INT, M_INT, NO_MOID);
575 a68_op (A68_STD, "+", m, genie_add_int);
576 a68_op (A68_STD, "-", m, genie_sub_int);
577 a68_op (A68_STD, "*", m, genie_mul_int);
578 a68_op (A68_STD, "OVER", m, genie_over_int);
579 a68_op (A68_STD, "%", m, genie_over_int);
580 a68_op (A68_STD, "MOD", m, genie_mod_int);
581 a68_op (A68_STD, "%*", m, genie_mod_int);
582 a68_op (A68_STD, "**", m, genie_pow_int);
583 a68_op (A68_STD, "UP", m, genie_pow_int);
584 a68_op (A68_STD, "^", m, genie_pow_int);
585 m = a68_proc (M_REAL, M_INT, M_INT, NO_MOID);
586 a68_op (A68_STD, "/", m, genie_div_int);
587 m = a68_proc (M_REF_INT, M_REF_INT, M_INT, NO_MOID);
588 a68_op (A68_STD, "+:=", m, genie_plusab_int);
589 a68_op (A68_STD, "-:=", m, genie_minusab_int);
590 a68_op (A68_STD, "*:=", m, genie_timesab_int);
591 a68_op (A68_STD, "%:=", m, genie_overab_int);
592 a68_op (A68_STD, "%*:=", m, genie_modab_int);
593 a68_op (A68_STD, "PLUSAB", m, genie_plusab_int);
594 a68_op (A68_STD, "MINUSAB", m, genie_minusab_int);
595 a68_op (A68_STD, "TIMESAB", m, genie_timesab_int);
596 a68_op (A68_STD, "OVERAB", m, genie_overab_int);
597 a68_op (A68_STD, "MODAB", m, genie_modab_int);
598 // REAL ops.
599 m = A68_MCACHE (proc_real_real);
600 a68_op (A68_STD, "+", m, genie_idle);
601 a68_op (A68_STD, "-", m, genie_minus_real);
602 a68_op (A68_STD, "ABS", m, genie_abs_real);
603 m = a68_proc (M_INT, M_REAL, NO_MOID);
604 a68_op (A68_STD, "SIGN", m, genie_sign_real);
605 a68_op (A68_STD, "ROUND", m, genie_round_real);
606 a68_op (A68_STD, "ENTIER", m, genie_entier_real);
607 m = a68_proc (M_BOOL, M_REAL, M_REAL, NO_MOID);
608 a68_op (A68_STD, "=", m, genie_eq_real);
609 a68_op (A68_STD, "/=", m, genie_ne_real);
610 a68_op (A68_STD, "~=", m, genie_ne_real);
611 a68_op (A68_STD, "^=", m, genie_ne_real);
612 a68_op (A68_STD, "<", m, genie_lt_real);
613 a68_op (A68_STD, "<=", m, genie_le_real);
614 a68_op (A68_STD, ">", m, genie_gt_real);
615 a68_op (A68_STD, ">=", m, genie_ge_real);
616 a68_op (A68_STD, "EQ", m, genie_eq_real);
617 a68_op (A68_STD, "NE", m, genie_ne_real);
618 a68_op (A68_STD, "LT", m, genie_lt_real);
619 a68_op (A68_STD, "LE", m, genie_le_real);
620 a68_op (A68_STD, "GT", m, genie_gt_real);
621 a68_op (A68_STD, "GE", m, genie_ge_real);
622 m = A68_MCACHE (proc_real_real_real);
623 a68_op (A68_STD, "+", m, genie_add_real);
624 a68_op (A68_STD, "-", m, genie_sub_real);
625 a68_op (A68_STD, "*", m, genie_mul_real);
626 a68_op (A68_STD, "/", m, genie_div_real);
627 a68_op (A68_STD, "**", m, genie_pow_real);
628 a68_op (A68_STD, "UP", m, genie_pow_real);
629 a68_op (A68_STD, "^", m, genie_pow_real);
630 m = a68_proc (M_REAL, M_REAL, M_INT, NO_MOID);
631 a68_op (A68_STD, "**", m, genie_pow_real_int);
632 a68_op (A68_STD, "UP", m, genie_pow_real_int);
633 a68_op (A68_STD, "^", m, genie_pow_real_int);
634 m = a68_proc (M_REF_REAL, M_REF_REAL, M_REAL, NO_MOID);
635 a68_op (A68_STD, "+:=", m, genie_plusab_real);
636 a68_op (A68_STD, "-:=", m, genie_minusab_real);
637 a68_op (A68_STD, "*:=", m, genie_timesab_real);
638 a68_op (A68_STD, "/:=", m, genie_divab_real);
639 a68_op (A68_STD, "PLUSAB", m, genie_plusab_real);
640 a68_op (A68_STD, "MINUSAB", m, genie_minusab_real);
641 a68_op (A68_STD, "TIMESAB", m, genie_timesab_real);
642 a68_op (A68_STD, "DIVAB", m, genie_divab_real);
643 // Procedures
644 m = A68_MCACHE (proc_real_real);
645 a68_id2 (A68_EXT, "arccosdg", "acosdg", m, genie_acosdg_real);
646 a68_id2 (A68_EXT, "arccosh", "acosh", m, genie_acosh_real);
647 a68_id2 (A68_EXT, "arccot", "acot", m, genie_acot_real);
648 a68_id2 (A68_EXT, "arccotdg", "acotdg", m, genie_acotdg_real);
649 a68_id2 (A68_EXT, "arccsc", "acsc", m, genie_acsc_real);
650 a68_id2 (A68_EXT, "arccscdg", "acscdg", m, genie_acscdg_real);
651 a68_id2 (A68_EXT, "arcsec", "asec", m, genie_asec_real);
652 a68_id2 (A68_EXT, "arcsecdg", "asecdg", m, genie_asecdg_real);
653 a68_id2 (A68_EXT, "arcsindg", "asindg", m, genie_asindg_real);
654 a68_id2 (A68_EXT, "arcsinh", "asinh", m, genie_asinh_real);
655 a68_id2 (A68_EXT, "arctandg", "atandg", m, genie_atandg_real);
656 a68_id2 (A68_EXT, "arctanh", "atanh", m, genie_atanh_real);
657 a68_id2 (A68_STD, "arccos", "acos", m, genie_acos_real);
658 a68_id2 (A68_STD, "arcsin", "asin", m, genie_asin_real);
659 a68_id2 (A68_STD, "arctan", "atan", m, genie_atan_real);
660 a68_idf (A68_EXT, "cas", m, genie_cas_real);
661 a68_idf (A68_EXT, "cbrt", m, genie_curt_real);
662 a68_idf (A68_EXT, "cosdg", m, genie_cosdg_real);
663 a68_idf (A68_EXT, "cosh", m, genie_cosh_real);
664 a68_idf (A68_EXT, "cospi", m, genie_cospi_real);
665 a68_idf (A68_EXT, "cotdg", m, genie_cotdg_real);
666 a68_idf (A68_EXT, "cot", m, genie_cot_real);
667 a68_idf (A68_EXT, "cotpi", m, genie_cotpi_real);
668 a68_idf (A68_EXT, "cscdg", m, genie_cscdg_real);
669 a68_idf (A68_EXT, "csc", m, genie_csc_real);
670 a68_idf (A68_EXT, "curt", m, genie_curt_real);
671 a68_idf (A68_EXT, "erfc", m, genie_erfc_real);
672 a68_idf (A68_EXT, "erf", m, genie_erf_real);
673 a68_idf (A68_EXT, "gamma", m, genie_gamma_real);
674 a68_idf (A68_EXT, "inverfc", m, genie_inverfc_real);
675 a68_idf (A68_EXT, "inverf", m, genie_inverf_real);
676 a68_idf (A68_EXT, "inverseerfc", m, genie_inverfc_real);
677 a68_idf (A68_EXT, "inverseerf", m, genie_inverf_real);
678 a68_idf (A68_EXT, "ln1p", m, genie_ln1p_real);
679 a68_idf (A68_EXT, "lngamma", m, genie_ln_gamma_real);
680 a68_idf (A68_EXT, "secdg", m, genie_secdg_real);
681 a68_idf (A68_EXT, "sec", m, genie_sec_real);
682 a68_idf (A68_EXT, "sindg", m, genie_sindg_real);
683 a68_idf (A68_EXT, "sinh", m, genie_sinh_real);
684 a68_idf (A68_EXT, "sinpi", m, genie_sinpi_real);
685 a68_idf (A68_EXT, "tandg", m, genie_tandg_real);
686 a68_idf (A68_EXT, "tanh", m, genie_tanh_real);
687 a68_idf (A68_EXT, "tanpi", m, genie_tanpi_real);
688 a68_idf (A68_STD, "cos", m, genie_cos_real);
689 a68_idf (A68_STD, "exp", m, genie_exp_real);
690 a68_idf (A68_STD, "ln", m, genie_ln_real);
691 a68_idf (A68_STD, "log", m, genie_log_real);
692 a68_idf (A68_STD, "sin", m, genie_sin_real);
693 a68_idf (A68_STD, "sqrt", m, genie_sqrt_real);
694 a68_idf (A68_STD, "tan", m, genie_tan_real);
695 // Miscellaneous.
696 a68_id2 (A68_EXT, "arctan2", "atan2", A68_MCACHE (proc_real_real_real), genie_atan2_real);
697 a68_id2 (A68_EXT, "arctan2dg", "atan2dg", A68_MCACHE (proc_real_real_real), genie_atan2dg_real);
698 a68_idf (A68_EXT, "beta", A68_MCACHE (proc_real_real_real), genie_beta_real);
699 a68_idf (A68_EXT, "betainc", A68_MCACHE (proc_real_real_real_real), genie_beta_inc_cf_real);
700 a68_idf (A68_EXT, "choose", A68_MCACHE (proc_int_int_real), genie_choose_real);
701 a68_idf (A68_EXT, "fact", A68_MCACHE (proc_int_real), genie_fact_real);
702 a68_idf (A68_EXT, "gammainc", A68_MCACHE (proc_real_real_real), genie_gamma_inc_h_real);
703 a68_idf (A68_EXT, "gammaincf", A68_MCACHE (proc_real_real_real), genie_gamma_inc_f_real);
704 a68_idf (A68_EXT, "gammaincg", A68_MCACHE (proc_real_real_real_real_real), genie_gamma_inc_g_real);
705 a68_idf (A68_EXT, "gammaincgf", A68_MCACHE (proc_real_real_real), genie_gamma_inc_gf_real);
706 a68_idf (A68_EXT, "lje126", A68_MCACHE (proc_real_real_real_real), genie_lj_e_12_6);
707 a68_idf (A68_EXT, "ljf126", A68_MCACHE (proc_real_real_real_real), genie_lj_f_12_6);
708 a68_idf (A68_EXT, "lnbeta", A68_MCACHE (proc_real_real_real), genie_ln_beta_real);
709 a68_idf (A68_EXT, "lnchoose", A68_MCACHE (proc_int_int_real), genie_ln_choose_real);
710 a68_idf (A68_EXT, "lnfact", A68_MCACHE (proc_int_real), genie_ln_fact_real);
711 // COMPLEX ops.
712 m = a68_proc (M_COMPLEX, M_REAL, M_REAL, NO_MOID);
713 a68_op (A68_STD, "I", m, genie_i_complex);
714 a68_op (A68_STD, "+*", m, genie_i_complex);
715 m = a68_proc (M_COMPLEX, M_INT, M_INT, NO_MOID);
716 a68_op (A68_STD, "I", m, genie_i_int_complex);
717 a68_op (A68_STD, "+*", m, genie_i_int_complex);
718 m = a68_proc (M_REAL, M_COMPLEX, NO_MOID);
719 a68_op (A68_STD, "RE", m, genie_re_complex);
720 a68_op (A68_STD, "IM", m, genie_im_complex);
721 a68_op (A68_STD, "ABS", m, genie_abs_complex);
722 a68_op (A68_STD, "ARG", m, genie_arg_complex);
723 m = A68_MCACHE (proc_complex_complex);
724 a68_op (A68_STD, "+", m, genie_idle);
725 a68_op (A68_STD, "-", m, genie_minus_complex);
726 a68_op (A68_STD, "CONJ", m, genie_conj_complex);
727 m = a68_proc (M_BOOL, M_COMPLEX, M_COMPLEX, NO_MOID);
728 a68_op (A68_STD, "=", m, genie_eq_complex);
729 a68_op (A68_STD, "/=", m, genie_ne_complex);
730 a68_op (A68_STD, "~=", m, genie_ne_complex);
731 a68_op (A68_STD, "^=", m, genie_ne_complex);
732 a68_op (A68_STD, "EQ", m, genie_eq_complex);
733 a68_op (A68_STD, "NE", m, genie_ne_complex);
734 m = a68_proc (M_COMPLEX, M_COMPLEX, M_COMPLEX, NO_MOID);
735 a68_op (A68_STD, "+", m, genie_add_complex);
736 a68_op (A68_STD, "-", m, genie_sub_complex);
737 a68_op (A68_STD, "*", m, genie_mul_complex);
738 a68_op (A68_STD, "/", m, genie_div_complex);
739 m = a68_proc (M_COMPLEX, M_COMPLEX, M_INT, NO_MOID);
740 a68_op (A68_STD, "**", m, genie_pow_complex_int);
741 a68_op (A68_STD, "UP", m, genie_pow_complex_int);
742 a68_op (A68_STD, "^", m, genie_pow_complex_int);
743 m = a68_proc (M_REF_COMPLEX, M_REF_COMPLEX, M_COMPLEX, NO_MOID);
744 a68_op (A68_STD, "+:=", m, genie_plusab_complex);
745 a68_op (A68_STD, "-:=", m, genie_minusab_complex);
746 a68_op (A68_STD, "*:=", m, genie_timesab_complex);
747 a68_op (A68_STD, "/:=", m, genie_divab_complex);
748 a68_op (A68_STD, "PLUSAB", m, genie_plusab_complex);
749 a68_op (A68_STD, "MINUSAB", m, genie_minusab_complex);
750 a68_op (A68_STD, "TIMESAB", m, genie_timesab_complex);
751 a68_op (A68_STD, "DIVAB", m, genie_divab_complex);
752 m = A68_MCACHE (proc_complex_complex);
753 a68_id2 (A68_EXT, "complexarccosh", "cacosh", m, genie_acosh_complex);
754 a68_id2 (A68_EXT, "complexarccos", "cacos", m, genie_acos_complex);
755 a68_id2 (A68_EXT, "complexarcsinh", "casinh", m, genie_asinh_complex);
756 a68_id2 (A68_EXT, "complexarcsin", "casin", m, genie_asin_complex);
757 a68_id2 (A68_EXT, "complexarctanh", "catanh", m, genie_atanh_complex);
758 a68_id2 (A68_EXT, "complexarctan", "catan", m, genie_atan_complex);
759 a68_id2 (A68_EXT, "complexcosh", "ccosh", m, genie_cosh_complex);
760 a68_id2 (A68_EXT, "complexcos", "ccos", m, genie_cos_complex);
761 a68_id2 (A68_EXT, "complexexp", "cexp", m, genie_exp_complex);
762 a68_id2 (A68_EXT, "complexln", "cln", m, genie_ln_complex);
763 a68_id2 (A68_EXT, "complexsinh", "csinh", m, genie_sinh_complex);
764 a68_id2 (A68_EXT, "complexsin", "csin", m, genie_sin_complex);
765 a68_id2 (A68_EXT, "complexsqrt", "csqrt", m, genie_sqrt_complex);
766 a68_id2 (A68_EXT, "complextanh", "ctanh", m, genie_tanh_complex);
767 a68_id2 (A68_EXT, "complextan", "ctan", m, genie_tan_complex);
768 // BOOL ops.
769 m = a68_proc (M_BOOL, M_BOOL, NO_MOID);
770 a68_op (A68_STD, "NOT", m, genie_not_bool);
771 a68_op (A68_STD, "~", m, genie_not_bool);
772 m = a68_proc (M_INT, M_BOOL, NO_MOID);
773 a68_op (A68_STD, "ABS", m, genie_abs_bool);
774 m = a68_proc (M_BOOL, M_BOOL, M_BOOL, NO_MOID);
775 a68_op (A68_STD, "OR", m, genie_or_bool);
776 a68_op (A68_STD, "AND", m, genie_and_bool);
777 a68_op (A68_STD, "&", m, genie_and_bool);
778 a68_op (A68_EXT, "XOR", m, genie_xor_bool);
779 a68_op (A68_STD, "=", m, genie_eq_bool);
780 a68_op (A68_STD, "/=", m, genie_ne_bool);
781 a68_op (A68_STD, "~=", m, genie_ne_bool);
782 a68_op (A68_STD, "^=", m, genie_ne_bool);
783 a68_op (A68_STD, "EQ", m, genie_eq_bool);
784 a68_op (A68_STD, "NE", m, genie_ne_bool);
785 // CHAR ops.
786 m = a68_proc (M_BOOL, M_CHAR, M_CHAR, NO_MOID);
787 a68_op (A68_STD, "=", m, genie_eq_char);
788 a68_op (A68_STD, "/=", m, genie_ne_char);
789 a68_op (A68_STD, "~=", m, genie_ne_char);
790 a68_op (A68_STD, "^=", m, genie_ne_char);
791 a68_op (A68_STD, "<", m, genie_lt_char);
792 a68_op (A68_STD, "<=", m, genie_le_char);
793 a68_op (A68_STD, ">", m, genie_gt_char);
794 a68_op (A68_STD, ">=", m, genie_ge_char);
795 a68_op (A68_STD, "EQ", m, genie_eq_char);
796 a68_op (A68_STD, "NE", m, genie_ne_char);
797 a68_op (A68_STD, "LT", m, genie_lt_char);
798 a68_op (A68_STD, "LE", m, genie_le_char);
799 a68_op (A68_STD, "GT", m, genie_gt_char);
800 a68_op (A68_STD, "GE", m, genie_ge_char);
801 m = a68_proc (M_INT, M_CHAR, NO_MOID);
802 a68_op (A68_STD, "ABS", m, genie_abs_char);
803 m = a68_proc (M_CHAR, M_INT, NO_MOID);
804 a68_op (A68_STD, "REPR", m, genie_repr_char);
805 m = a68_proc (M_BOOL, M_CHAR, NO_MOID);
806 a68_idf (A68_EXT, "isalnum", m, genie_is_alnum);
807 a68_idf (A68_EXT, "isalpha", m, genie_is_alpha);
808 a68_idf (A68_EXT, "iscntrl", m, genie_is_cntrl);
809 a68_idf (A68_EXT, "isdigit", m, genie_is_digit);
810 a68_idf (A68_EXT, "isgraph", m, genie_is_graph);
811 a68_idf (A68_EXT, "islower", m, genie_is_lower);
812 a68_idf (A68_EXT, "isprint", m, genie_is_print);
813 a68_idf (A68_EXT, "ispunct", m, genie_is_punct);
814 a68_idf (A68_EXT, "isspace", m, genie_is_space);
815 a68_idf (A68_EXT, "isupper", m, genie_is_upper);
816 a68_idf (A68_EXT, "isxdigit", m, genie_is_xdigit);
817 m = a68_proc (M_CHAR, M_CHAR, NO_MOID);
818 a68_idf (A68_EXT, "tolower", m, genie_to_lower);
819 a68_idf (A68_EXT, "toupper", m, genie_to_upper);
820 // BITS ops.
821 m = a68_proc (M_INT, M_BITS, NO_MOID);
822 a68_op (A68_STD, "ABS", m, genie_abs_bits);
823 m = a68_proc (M_BITS, M_INT, NO_MOID);
824 a68_op (A68_STD, "BIN", m, genie_bin_int);
825 m = a68_proc (M_BITS, M_BITS, NO_MOID);
826 a68_op (A68_STD, "NOT", m, genie_not_bits);
827 a68_op (A68_STD, "~", m, genie_not_bits);
828 m = a68_proc (M_BOOL, M_BITS, M_BITS, NO_MOID);
829 a68_op (A68_STD, "=", m, genie_eq_bits);
830 a68_op (A68_STD, "/=", m, genie_ne_bits);
831 a68_op (A68_STD, "~=", m, genie_ne_bits);
832 a68_op (A68_STD, "^=", m, genie_ne_bits);
833 a68_op (A68_STD, "<=", m, genie_le_bits);
834 a68_op (A68_STD, ">=", m, genie_ge_bits);
835 a68_op (A68_STD, "EQ", m, genie_eq_bits);
836 a68_op (A68_STD, "NE", m, genie_ne_bits);
837 a68_op (A68_STD, "LE", m, genie_le_bits);
838 a68_op (A68_STD, "GE", m, genie_ge_bits);
839 #if (A68_LEVEL >= 3)
840 a68_op (A68_EXT, "<", m, genie_lt_bits);
841 a68_op (A68_EXT, ">", m, genie_gt_bits);
842 a68_op (A68_EXT, "LT", m, genie_lt_bits);
843 a68_op (A68_EXT, "GT", m, genie_gt_bits);
844 #endif
845 m = a68_proc (M_BITS, M_BITS, M_BITS, NO_MOID);
846 a68_op (A68_STD, "AND", m, genie_and_bits);
847 a68_op (A68_STD, "&", m, genie_and_bits);
848 a68_op (A68_STD, "OR", m, genie_or_bits);
849 a68_op (A68_EXT, "XOR", m, genie_xor_bits);
850 a68_op (A68_EXT, "+", m, genie_add_bits);
851 a68_op (A68_EXT, "-", m, genie_sub_bits);
852 a68_op (A68_EXT, "*", m, genie_times_bits);
853 a68_op (A68_EXT, "OVER", m, genie_over_bits);
854 a68_op (A68_EXT, "MOD", m, genie_over_bits);
855 m = a68_proc (M_BITS, M_BITS, M_INT, NO_MOID);
856 a68_op (A68_STD, "SHL", m, genie_shl_bits);
857 a68_op (A68_STD, "UP", m, genie_shl_bits);
858 a68_op (A68_STD, "SHR", m, genie_shr_bits);
859 a68_op (A68_STD, "DOWN", m, genie_shr_bits);
860 a68_op (A68_EXT, "ROL", m, genie_rol_bits);
861 a68_op (A68_EXT, "ROR", m, genie_ror_bits);
862 m = a68_proc (M_BOOL, M_INT, M_BITS, NO_MOID);
863 a68_op (A68_STD, "ELEM", m, genie_elem_bits);
864 m = a68_proc (M_BITS, M_INT, M_BITS, NO_MOID);
865 a68_op (A68_STD, "SET", m, genie_set_bits);
866 a68_op (A68_STD, "CLEAR", m, genie_clear_bits);
867 // LONG LONG INT in software
868 m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
869 a68_op (A68_STD, "+", m, genie_idle);
870 a68_op (A68_STD, "-", m, genie_minus_mp);
871 a68_op (A68_STD, "ABS", m, genie_abs_mp);
872 m = a68_proc (M_INT, M_LONG_LONG_INT, NO_MOID);
873 a68_op (A68_STD, "SIGN", m, genie_sign_mp);
874 m = a68_proc (M_BOOL, M_LONG_LONG_INT, NO_MOID);
875 a68_op (A68_STD, "ODD", m, genie_odd_mp);
876 m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_REAL, NO_MOID);
877 a68_op (A68_STD, "ENTIER", m, genie_entier_mp);
878 a68_op (A68_STD, "ROUND", m, genie_round_mp);
879 m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
880 a68_op (A68_STD, "+", m, genie_add_mp_int);
881 a68_op (A68_STD, "-", m, genie_sub_mp_int);
882 a68_op (A68_STD, "*", m, genie_mul_mp_int);
883 a68_op (A68_STD, "OVER", m, genie_over_mp);
884 a68_op (A68_STD, "%", m, genie_over_mp);
885 a68_op (A68_STD, "MOD", m, genie_mod_mp);
886 a68_op (A68_STD, "%*", m, genie_mod_mp);
887 m = a68_proc (M_REF_LONG_LONG_INT, M_REF_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
888 a68_op (A68_STD, "+:=", m, genie_plusab_mp_int);
889 a68_op (A68_STD, "-:=", m, genie_minusab_mp_int);
890 a68_op (A68_STD, "*:=", m, genie_timesab_mp_int);
891 a68_op (A68_STD, "%:=", m, genie_overab_mp);
892 a68_op (A68_STD, "%*:=", m, genie_modab_mp);
893 a68_op (A68_STD, "PLUSAB", m, genie_plusab_mp_int);
894 a68_op (A68_STD, "MINUSAB", m, genie_minusab_mp_int);
895 a68_op (A68_STD, "TIMESAB", m, genie_timesab_mp_int);
896 a68_op (A68_STD, "OVERAB", m, genie_overab_mp);
897 a68_op (A68_STD, "MODAB", m, genie_modab_mp);
898 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
899 a68_op (A68_STD, "/", m, genie_div_mp);
900 m = a68_proc (M_BOOL, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
901 a68_op (A68_STD, "EQ", m, genie_eq_mp);
902 a68_op (A68_STD, "NE", m, genie_ne_mp);
903 a68_op (A68_STD, "GE", m, genie_ge_mp);
904 a68_op (A68_STD, "GT", m, genie_gt_mp);
905 a68_op (A68_STD, "LE", m, genie_le_mp);
906 a68_op (A68_STD, "LT", m, genie_lt_mp);
907 a68_op (A68_STD, "=", m, genie_eq_mp);
908 a68_op (A68_STD, ">=", m, genie_ge_mp);
909 a68_op (A68_STD, ">", m, genie_gt_mp);
910 a68_op (A68_STD, "<=", m, genie_le_mp);
911 a68_op (A68_STD, "<", m, genie_lt_mp);
912 a68_op (A68_STD, "/=", m, genie_ne_mp);
913 a68_op (A68_STD, "^=", m, genie_ne_mp);
914 a68_op (A68_STD, "~=", m, genie_ne_mp);
915 m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, M_INT, NO_MOID);
916 a68_op (A68_STD, "**", m, genie_pow_mp_int_int);
917 a68_op (A68_STD, "^", m, genie_pow_mp_int_int);
918 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
919 a68_op (A68_STD, "I", m, genie_idle);
920 a68_op (A68_STD, "+*", m, genie_idle);
921 // LONG LONG REAL in software
922 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
923 a68_op (A68_STD, "ABS", m, genie_abs_mp);
924 a68_op (A68_STD, "+", m, genie_idle);
925 a68_op (A68_STD, "-", m, genie_minus_mp);
926 m = a68_proc (M_INT, M_LONG_LONG_REAL, NO_MOID);
927 a68_op (A68_STD, "SIGN", m, genie_sign_mp);
928 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
929 a68_id2 (A68_EXT, "longlongarccosdg", "qacosdg", m, genie_acosdg_mp);
930 a68_id2 (A68_EXT, "longlongarccosh", "qacosh", m, genie_acosh_mp);
931 a68_id2 (A68_EXT, "longlongarccotdg", "qacotdg", m, genie_acotdg_mp);
932 a68_id2 (A68_EXT, "longlongarccot", "qacot", m, genie_acot_mp);
933 a68_id2 (A68_EXT, "longlongarccscdg", "qacscdg", m, genie_acscdg_mp);
934 a68_id2 (A68_EXT, "longlongarccsc", "qacsc", m, genie_acsc_mp);
935 a68_id2 (A68_EXT, "longlongarcsecdg", "qasecdg", m, genie_asecdg_mp);
936 a68_id2 (A68_EXT, "longlongarcsec", "qasec", m, genie_asec_mp);
937 a68_id2 (A68_EXT, "longlongarcsindg", "qasindg", m, genie_asindg_mp);
938 a68_id2 (A68_EXT, "longlongarcsinh", "qasinh", m, genie_asinh_mp);
939 a68_id2 (A68_EXT, "longlongarctandg", "qatandg", m, genie_atandg_mp);
940 a68_id2 (A68_EXT, "longlongarctanh", "qatanh", m, genie_atanh_mp);
941 a68_id2 (A68_EXT, "longlongcas", "qcas", m, genie_cas_mp);
942 a68_id2 (A68_EXT, "longlongcbrt", "qcbrt", m, genie_curt_mp);
943 a68_id2 (A68_EXT, "longlongcosdg", "qcosdg", m, genie_cosdg_mp);
944 a68_id2 (A68_EXT, "longlongcosh", "qcosh", m, genie_cosh_mp);
945 a68_id2 (A68_EXT, "longlongcospi", "qcospi", m, genie_cospi_mp);
946 a68_id2 (A68_EXT, "longlongcotdg", "qcotdg", m, genie_cotdg_mp);
947 a68_id2 (A68_EXT, "longlongcotpi", "qcotpi", m, genie_cotpi_mp);
948 a68_id2 (A68_EXT, "longlongcot", "qcot", m, genie_cot_mp);
949 a68_id2 (A68_EXT, "longlongcscdg", "qcscdg", m, genie_cscdg_mp);
950 a68_id2 (A68_EXT, "longlongcsc", "qcsc", m, genie_csc_mp);
951 a68_id2 (A68_EXT, "longlongcurt", "qcurt", m, genie_curt_mp);
952 a68_id2 (A68_EXT, "longlongerfc", "qerfc", m, genie_erfc_mp);
953 a68_id2 (A68_EXT, "longlongerf", "qerf", m, genie_erf_mp);
954 a68_id2 (A68_EXT, "longlonggamma", "qgamma", m, genie_gamma_mp);
955 a68_id2 (A68_EXT, "longlonginverfc", "qinverfc", m, genie_inverfc_mp);
956 a68_id2 (A68_EXT, "longlonginverf", "qinverf", m, genie_inverf_mp);
957 a68_id2 (A68_EXT, "longlonglngamma", "qlngamma", m, genie_lngamma_mp);
958 a68_id2 (A68_EXT, "longlongsecdg", "qsecdg", m, genie_secdg_mp);
959 a68_id2 (A68_EXT, "longlongsec", "qsec", m, genie_sec_mp);
960 a68_id2 (A68_EXT, "longlongsindg", "qsindg", m, genie_sindg_mp);
961 a68_id2 (A68_EXT, "longlongsinh", "qsinh", m, genie_sinh_mp);
962 a68_id2 (A68_EXT, "longlongsinpi", "qsinpi", m, genie_sinpi_mp);
963 a68_id2 (A68_EXT, "longlongtandg", "qtandg", m, genie_tandg_mp);
964 a68_id2 (A68_EXT, "longlongtanh", "qtanh", m, genie_tanh_mp);
965 a68_id2 (A68_EXT, "longlongtanpi", "qtanpi", m, genie_tanpi_mp);
966 a68_id2 (A68_STD, "longlongarccos", "qacos", m, genie_acos_mp);
967 a68_id2 (A68_STD, "longlongarcsin", "qasin", m, genie_asin_mp);
968 a68_id2 (A68_STD, "longlongarctan", "qatan", m, genie_atan_mp);
969 a68_id2 (A68_STD, "longlongcos", "qcos", m, genie_cos_mp);
970 a68_id2 (A68_STD, "longlongexp", "qexp", m, genie_exp_mp);
971 a68_id2 (A68_STD, "longlongln", "qln", m, genie_ln_mp);
972 a68_id2 (A68_STD, "longlonglog", "qlog", m, genie_log_mp);
973 a68_id2 (A68_STD, "longlongsin", "qsin", m, genie_sin_mp);
974 a68_id2 (A68_STD, "longlongsqrt", "qsqrt", m, genie_sqrt_mp);
975 a68_id2 (A68_STD, "longlongtan", "qtan", m, genie_tan_mp);
976 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
977 a68_id2 (A68_EXT, "longlongarctan2dg", "qatan2dg", m, genie_atan2dg_mp);
978 a68_id2 (A68_EXT, "longlongarctan2", "qatan2", m, genie_atan2_mp);
979 a68_id2 (A68_EXT, "longlongbeta", "qbeta", m, genie_beta_mp);
980 a68_id2 (A68_EXT, "longlonggammaincf", "qgammaincf", m, genie_gamma_inc_f_mp);
981 a68_id2 (A68_EXT, "longlonggammaincgf", "qgammaincgf", m, genie_gamma_inc_gf_mp);
982 a68_id2 (A68_EXT, "longlonggammainc", "qgammainc", m, genie_gamma_inc_h_mp);
983 a68_id2 (A68_EXT, "longlonglnbeta", "qlnbeta", m, genie_lnbeta_mp);
984 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
985 a68_id2 (A68_EXT, "longlongbetainc", "qbetainc", m, genie_beta_inc_mp);
986 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
987 a68_id2 (A68_EXT, "longlonggammaincg", "qgammaincg", m, genie_gamma_inc_g_mp);
988 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
989 a68_op (A68_STD, "+", m, genie_add_mp);
990 a68_op (A68_STD, "-", m, genie_sub_mp);
991 a68_op (A68_STD, "*", m, genie_mul_mp);
992 a68_op (A68_STD, "/", m, genie_div_mp);
993 a68_op (A68_STD, "**", m, genie_pow_mp);
994 a68_op (A68_STD, "UP", m, genie_pow_mp);
995 a68_op (A68_STD, "^", m, genie_pow_mp);
996 m = a68_proc (M_REF_LONG_LONG_REAL, M_REF_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
997 a68_op (A68_STD, "+:=", m, genie_plusab_mp);
998 a68_op (A68_STD, "-:=", m, genie_minusab_mp);
999 a68_op (A68_STD, "*:=", m, genie_timesab_mp);
1000 a68_op (A68_STD, "/:=", m, genie_divab_mp);
1001 a68_op (A68_STD, "PLUSAB", m, genie_plusab_mp);
1002 a68_op (A68_STD, "MINUSAB", m, genie_minusab_mp);
1003 a68_op (A68_STD, "TIMESAB", m, genie_timesab_mp);
1004 a68_op (A68_STD, "DIVAB", m, genie_divab_mp);
1005 m = a68_proc (M_BOOL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1006 a68_op (A68_STD, "=", m, genie_eq_mp);
1007 a68_op (A68_STD, "EQ", m, genie_eq_mp);
1008 a68_op (A68_STD, "/=", m, genie_ne_mp);
1009 a68_op (A68_STD, "~=", m, genie_ne_mp);
1010 a68_op (A68_STD, "^=", m, genie_ne_mp);
1011 a68_op (A68_STD, "NE", m, genie_ne_mp);
1012 a68_op (A68_STD, "<", m, genie_lt_mp);
1013 a68_op (A68_STD, "LT", m, genie_lt_mp);
1014 a68_op (A68_STD, "<=", m, genie_le_mp);
1015 a68_op (A68_STD, "LE", m, genie_le_mp);
1016 a68_op (A68_STD, ">", m, genie_gt_mp);
1017 a68_op (A68_STD, "GT", m, genie_gt_mp);
1018 a68_op (A68_STD, ">=", m, genie_ge_mp);
1019 a68_op (A68_STD, "GE", m, genie_ge_mp);
1020 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_INT, NO_MOID);
1021 a68_op (A68_STD, "**", m, genie_pow_mp_int);
1022 a68_op (A68_STD, "UP", m, genie_pow_mp_int);
1023 a68_op (A68_STD, "^", m, genie_pow_mp_int);
1024 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1025 a68_op (A68_STD, "I", m, genie_idle);
1026 a68_op (A68_STD, "+*", m, genie_idle);
1027 // LONG LONG COMPLEX in software
1028 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_COMPLEX, NO_MOID);
1029 a68_op (A68_STD, "RE", m, genie_re_mp_complex);
1030 a68_op (A68_STD, "IM", m, genie_im_mp_complex);
1031 a68_op (A68_STD, "ARG", m, genie_arg_mp_complex);
1032 a68_op (A68_STD, "ABS", m, genie_abs_mp_complex);
1033 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1034 a68_op (A68_STD, "+", m, genie_idle);
1035 a68_op (A68_STD, "-", m, genie_minus_mp_complex);
1036 a68_op (A68_STD, "CONJ", m, genie_conj_mp_complex);
1037 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1038 a68_op (A68_STD, "+", m, genie_add_mp_complex);
1039 a68_op (A68_STD, "-", m, genie_sub_mp_complex);
1040 a68_op (A68_STD, "*", m, genie_mul_mp_complex);
1041 a68_op (A68_STD, "/", m, genie_div_mp_complex);
1042 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, M_INT, NO_MOID);
1043 a68_op (A68_STD, "**", m, genie_pow_mp_complex_int);
1044 a68_op (A68_STD, "UP", m, genie_pow_mp_complex_int);
1045 a68_op (A68_STD, "^", m, genie_pow_mp_complex_int);
1046 m = a68_proc (M_BOOL, M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1047 a68_op (A68_STD, "=", m, genie_eq_mp_complex);
1048 a68_op (A68_STD, "EQ", m, genie_eq_mp_complex);
1049 a68_op (A68_STD, "/=", m, genie_ne_mp_complex);
1050 a68_op (A68_STD, "~=", m, genie_ne_mp_complex);
1051 a68_op (A68_STD, "^=", m, genie_ne_mp_complex);
1052 a68_op (A68_STD, "NE", m, genie_ne_mp_complex);
1053 m = a68_proc (M_REF_LONG_LONG_COMPLEX, M_REF_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1054 a68_op (A68_STD, "+:=", m, genie_plusab_mp_complex);
1055 a68_op (A68_STD, "-:=", m, genie_minusab_mp_complex);
1056 a68_op (A68_STD, "*:=", m, genie_timesab_mp_complex);
1057 a68_op (A68_STD, "/:=", m, genie_divab_mp_complex);
1058 a68_op (A68_STD, "PLUSAB", m, genie_plusab_mp_complex);
1059 a68_op (A68_STD, "MINUSAB", m, genie_minusab_mp_complex);
1060 a68_op (A68_STD, "TIMESAB", m, genie_timesab_mp_complex);
1061 a68_op (A68_STD, "DIVAB", m, genie_divab_mp_complex);
1062 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1063 a68_id2 (A68_EXT, "longlongcomplexarccosh", "qcacosh", m, genie_acosh_mp_complex);
1064 a68_id2 (A68_EXT, "longlongcomplexarccos", "qcacos", m, genie_acos_mp_complex);
1065 a68_id2 (A68_EXT, "longlongcomplexarcsinh", "qcasinh", m, genie_asinh_mp_complex);
1066 a68_id2 (A68_EXT, "longlongcomplexarcsin", "qcasin", m, genie_asin_mp_complex);
1067 a68_id2 (A68_EXT, "longlongcomplexarctanh", "qcatanh", m, genie_atanh_mp_complex);
1068 a68_id2 (A68_EXT, "longlongcomplexarctan", "qcatan", m, genie_atan_mp_complex);
1069 a68_id2 (A68_EXT, "longlongcomplexcosh", "qccosh", m, genie_cosh_mp_complex);
1070 a68_id2 (A68_EXT, "longlongcomplexcos", "qccos", m, genie_cos_mp_complex);
1071 a68_id2 (A68_EXT, "longlongcomplexexp", "qcexp", m, genie_exp_mp_complex);
1072 a68_id2 (A68_EXT, "longlongcomplexln", "qcln", m, genie_ln_mp_complex);
1073 a68_id2 (A68_EXT, "longlongcomplexsinh", "qcsinh", m, genie_sinh_mp_complex);
1074 a68_id2 (A68_EXT, "longlongcomplexsin", "qcsin", m, genie_sin_mp_complex);
1075 a68_id2 (A68_EXT, "longlongcomplexsqrt", "qcsqrt", m, genie_sqrt_mp_complex);
1076 a68_id2 (A68_EXT, "longlongcomplextanh", "qctanh", m, genie_tanh_mp_complex);
1077 a68_id2 (A68_EXT, "longlongcomplextan", "qctan", m, genie_tan_mp_complex);
1078 // BYTES ops.
1079 m = a68_proc (M_BYTES, M_STRING, NO_MOID);
1080 a68_idf (A68_STD, "bytespack", m, genie_bytespack);
1081 m = a68_proc (M_CHAR, M_INT, M_BYTES, NO_MOID);
1082 a68_op (A68_STD, "ELEM", m, genie_elem_bytes);
1083 m = a68_proc (M_BYTES, M_BYTES, M_BYTES, NO_MOID);
1084 a68_op (A68_STD, "+", m, genie_add_bytes);
1085 m = a68_proc (M_REF_BYTES, M_REF_BYTES, M_BYTES, NO_MOID);
1086 a68_op (A68_STD, "+:=", m, genie_plusab_bytes);
1087 a68_op (A68_STD, "PLUSAB", m, genie_plusab_bytes);
1088 m = a68_proc (M_REF_BYTES, M_BYTES, M_REF_BYTES, NO_MOID);
1089 a68_op (A68_STD, "+=:", m, genie_plusto_bytes);
1090 a68_op (A68_STD, "PLUSTO", m, genie_plusto_bytes);
1091 m = a68_proc (M_BOOL, M_BYTES, M_BYTES, NO_MOID);
1092 a68_op (A68_STD, "=", m, genie_eq_bytes);
1093 a68_op (A68_STD, "/=", m, genie_ne_bytes);
1094 a68_op (A68_STD, "~=", m, genie_ne_bytes);
1095 a68_op (A68_STD, "^=", m, genie_ne_bytes);
1096 a68_op (A68_STD, "<", m, genie_lt_bytes);
1097 a68_op (A68_STD, "<=", m, genie_le_bytes);
1098 a68_op (A68_STD, ">", m, genie_gt_bytes);
1099 a68_op (A68_STD, ">=", m, genie_ge_bytes);
1100 a68_op (A68_STD, "EQ", m, genie_eq_bytes);
1101 a68_op (A68_STD, "NE", m, genie_ne_bytes);
1102 a68_op (A68_STD, "LT", m, genie_lt_bytes);
1103 a68_op (A68_STD, "LE", m, genie_le_bytes);
1104 a68_op (A68_STD, "GT", m, genie_gt_bytes);
1105 a68_op (A68_STD, "GE", m, genie_ge_bytes);
1106 // LONG BYTES ops.
1107 m = a68_proc (M_LONG_BYTES, M_BYTES, NO_MOID);
1108 a68_op (A68_STD, "LENG", m, genie_leng_bytes);
1109 m = a68_proc (M_BYTES, M_LONG_BYTES, NO_MOID);
1110 a68_idf (A68_STD, "SHORTEN", m, genie_shorten_bytes);
1111 m = a68_proc (M_LONG_BYTES, M_STRING, NO_MOID);
1112 a68_idf (A68_STD, "longbytespack", m, genie_long_bytespack);
1113 m = a68_proc (M_CHAR, M_INT, M_LONG_BYTES, NO_MOID);
1114 a68_op (A68_STD, "ELEM", m, genie_elem_long_bytes);
1115 m = a68_proc (M_LONG_BYTES, M_LONG_BYTES, M_LONG_BYTES, NO_MOID);
1116 a68_op (A68_STD, "+", m, genie_add_long_bytes);
1117 m = a68_proc (M_REF_LONG_BYTES, M_REF_LONG_BYTES, M_LONG_BYTES, NO_MOID);
1118 a68_op (A68_STD, "+:=", m, genie_plusab_long_bytes);
1119 a68_op (A68_STD, "PLUSAB", m, genie_plusab_long_bytes);
1120 m = a68_proc (M_REF_LONG_BYTES, M_LONG_BYTES, M_REF_LONG_BYTES, NO_MOID);
1121 a68_op (A68_STD, "+=:", m, genie_plusto_long_bytes);
1122 a68_op (A68_STD, "PLUSTO", m, genie_plusto_long_bytes);
1123 m = a68_proc (M_BOOL, M_LONG_BYTES, M_LONG_BYTES, NO_MOID);
1124 a68_op (A68_STD, "=", m, genie_eq_long_bytes);
1125 a68_op (A68_STD, "/=", m, genie_ne_long_bytes);
1126 a68_op (A68_STD, "~=", m, genie_ne_long_bytes);
1127 a68_op (A68_STD, "^=", m, genie_ne_long_bytes);
1128 a68_op (A68_STD, "<", m, genie_lt_long_bytes);
1129 a68_op (A68_STD, "<=", m, genie_le_long_bytes);
1130 a68_op (A68_STD, ">", m, genie_gt_long_bytes);
1131 a68_op (A68_STD, ">=", m, genie_ge_long_bytes);
1132 a68_op (A68_STD, "EQ", m, genie_eq_long_bytes);
1133 a68_op (A68_STD, "NE", m, genie_ne_long_bytes);
1134 a68_op (A68_STD, "LT", m, genie_lt_long_bytes);
1135 a68_op (A68_STD, "LE", m, genie_le_long_bytes);
1136 a68_op (A68_STD, "GT", m, genie_gt_long_bytes);
1137 a68_op (A68_STD, "GE", m, genie_ge_long_bytes);
1138 // STRING ops.
1139 m = a68_proc (M_BOOL, M_STRING, M_STRING, NO_MOID);
1140 a68_op (A68_STD, "=", m, genie_eq_string);
1141 a68_op (A68_STD, "/=", m, genie_ne_string);
1142 a68_op (A68_STD, "~=", m, genie_ne_string);
1143 a68_op (A68_STD, "^=", m, genie_ne_string);
1144 a68_op (A68_STD, "<", m, genie_lt_string);
1145 a68_op (A68_STD, "<=", m, genie_le_string);
1146 a68_op (A68_STD, ">=", m, genie_ge_string);
1147 a68_op (A68_STD, ">", m, genie_gt_string);
1148 a68_op (A68_STD, "EQ", m, genie_eq_string);
1149 a68_op (A68_STD, "NE", m, genie_ne_string);
1150 a68_op (A68_STD, "LT", m, genie_lt_string);
1151 a68_op (A68_STD, "LE", m, genie_le_string);
1152 a68_op (A68_STD, "GE", m, genie_ge_string);
1153 a68_op (A68_STD, "GT", m, genie_gt_string);
1154 m = a68_proc (M_STRING, M_CHAR, M_CHAR, NO_MOID);
1155 a68_op (A68_STD, "+", m, genie_add_char);
1156 m = a68_proc (M_STRING, M_STRING, M_STRING, NO_MOID);
1157 a68_op (A68_STD, "+", m, genie_add_string);
1158 m = a68_proc (M_REF_STRING, M_REF_STRING, M_STRING, NO_MOID);
1159 a68_op (A68_STD, "+:=", m, genie_plusab_string);
1160 a68_op (A68_STD, "PLUSAB", m, genie_plusab_string);
1161 m = a68_proc (M_REF_STRING, M_REF_STRING, M_INT, NO_MOID);
1162 a68_op (A68_STD, "*:=", m, genie_timesab_string);
1163 a68_op (A68_STD, "TIMESAB", m, genie_timesab_string);
1164 m = a68_proc (M_REF_STRING, M_STRING, M_REF_STRING, NO_MOID);
1165 a68_op (A68_STD, "+=:", m, genie_plusto_string);
1166 a68_op (A68_STD, "PLUSTO", m, genie_plusto_string);
1167 m = a68_proc (M_STRING, M_STRING, M_INT, NO_MOID);
1168 a68_op (A68_STD, "*", m, genie_times_string_int);
1169 m = a68_proc (M_STRING, M_INT, M_STRING, NO_MOID);
1170 a68_op (A68_STD, "*", m, genie_times_int_string);
1171 m = a68_proc (M_STRING, M_INT, M_CHAR, NO_MOID);
1172 a68_op (A68_STD, "*", m, genie_times_int_char);
1173 m = a68_proc (M_STRING, M_CHAR, M_INT, NO_MOID);
1174 a68_op (A68_STD, "*", m, genie_times_char_int);
1175 m = a68_proc (M_CHAR, M_INT, M_ROW_CHAR, NO_MOID);
1176 a68_op (A68_STD, "ELEM", m, genie_elem_string);
1177 m = a68_proc (M_STRING, M_STRING, NO_MOID);
1178 a68_idf (A68_EXT, "realpath", m, genie_realpath);
1179 // SEMA ops.
1180 #if defined (BUILD_PARALLEL_CLAUSE)
1181 m = a68_proc (M_SEMA, M_INT, NO_MOID);
1182 a68_op (A68_STD, "LEVEL", m, genie_level_sema_int);
1183 m = a68_proc (M_INT, M_SEMA, NO_MOID);
1184 a68_op (A68_STD, "LEVEL", m, genie_level_int_sema);
1185 m = a68_proc (M_VOID, M_SEMA, NO_MOID);
1186 a68_op (A68_STD, "UP", m, genie_up_sema);
1187 a68_op (A68_STD, "DOWN", m, genie_down_sema);
1188 #else
1189 m = a68_proc (M_SEMA, M_INT, NO_MOID);
1190 a68_op (A68_STD, "LEVEL", m, genie_unimplemented);
1191 m = a68_proc (M_INT, M_SEMA, NO_MOID);
1192 a68_op (A68_STD, "LEVEL", m, genie_unimplemented);
1193 m = a68_proc (M_VOID, M_SEMA, NO_MOID);
1194 a68_op (A68_STD, "UP", m, genie_unimplemented);
1195 a68_op (A68_STD, "DOWN", m, genie_unimplemented);
1196 #endif
1197 // ROWS ops.
1198 m = a68_proc (M_INT, M_ROWS, NO_MOID);
1199 a68_op (A68_EXT, "ELEMS", m, genie_monad_elems);
1200 a68_op (A68_STD, "LWB", m, genie_monad_lwb);
1201 a68_op (A68_STD, "UPB", m, genie_monad_upb);
1202 m = a68_proc (M_INT, M_INT, M_ROWS, NO_MOID);
1203 a68_op (A68_EXT, "ELEMS", m, genie_dyad_elems);
1204 a68_op (A68_STD, "LWB", m, genie_dyad_lwb);
1205 a68_op (A68_STD, "UPB", m, genie_dyad_upb);
1206 m = a68_proc (M_ROW_STRING, M_ROW_STRING, NO_MOID);
1207 a68_op (A68_EXT, "SORT", m, genie_sort_row_string);
1208 // Some "terminators" to handle the mapping of very short or very long modes.
1209 // This allows you to write SHORT REAL z = SHORTEN pi while everything is
1210 // silently mapped onto REAL.
1211 m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
1212 a68_op (A68_STD, "LENG", m, genie_idle);
1213 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1214 a68_op (A68_STD, "LENG", m, genie_idle);
1215 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1216 a68_op (A68_STD, "LENG", m, genie_idle);
1217 m = a68_proc (M_INT, M_INT, NO_MOID);
1218 a68_op (A68_STD, "SHORTEN", m, genie_idle);
1219 m = a68_proc (M_REAL, M_REAL, NO_MOID);
1220 a68_op (A68_STD, "SHORTEN", m, genie_idle);
1221 m = a68_proc (M_COMPLEX, M_COMPLEX, NO_MOID);
1222 a68_op (A68_STD, "SHORTEN", m, genie_idle);
1223 m = a68_proc (M_BITS, M_BITS, NO_MOID);
1224 a68_op (A68_STD, "SHORTEN", m, genie_idle);
1225 // SOUND/RIFF procs.
1226 m = a68_proc (M_SOUND, M_INT, M_INT, M_INT, M_INT, NO_MOID);
1227 a68_idf (A68_EXT, "newsound", m, genie_new_sound);
1228 m = a68_proc (M_INT, M_SOUND, M_INT, M_INT, NO_MOID);
1229 a68_idf (A68_EXT, "getsound", m, genie_get_sound);
1230 m = a68_proc (M_VOID, M_SOUND, M_INT, M_INT, M_INT, NO_MOID);
1231 a68_idf (A68_EXT, "setsound", m, genie_set_sound);
1232 m = a68_proc (M_INT, M_SOUND, NO_MOID);
1233 a68_op (A68_EXT, "RESOLUTION", m, genie_sound_resolution);
1234 a68_op (A68_EXT, "CHANNELS", m, genie_sound_channels);
1235 a68_op (A68_EXT, "RATE", m, genie_sound_rate);
1236 a68_op (A68_EXT, "SAMPLES", m, genie_sound_samples);
1237 }
1238
1239 //! @brief Set up standenv - transput.
1240
1241 void stand_mp_level_2 (void)
1242 {
1243 #if (A68_LEVEL <= 2)
1244 a68_id2 (A68_STD, "longpi", "dpi", M_LONG_REAL, genie_pi_mp);
1245 a68_idf (A68_STD, "longmaxbits", M_LONG_BITS, genie_long_max_bits);
1246 a68_idf (A68_STD, "longmaxint", M_LONG_INT, genie_long_max_int);
1247 a68_idf (A68_STD, "longsmallreal", M_LONG_REAL, genie_long_small_real);
1248 a68_idf (A68_STD, "longmaxreal", M_LONG_REAL, genie_long_max_real);
1249 a68_idf (A68_STD, "longminreal", M_LONG_REAL, genie_long_min_real);
1250 a68_idf (A68_STD, "longinfinity", M_LONG_REAL, genie_infinity_mp);
1251 a68_idf (A68_STD, "longminusinfinity", M_LONG_REAL, genie_minus_infinity_mp);
1252 a68_idf (A68_STD, "longinf", M_LONG_REAL, genie_infinity_mp);
1253 a68_idf (A68_STD, "longmininf", M_LONG_REAL, genie_minus_infinity_mp);
1254 // LONG INT in software
1255 MOID_T *m = a68_proc (M_LONG_INT, M_LONG_INT, NO_MOID);
1256 a68_op (A68_STD, "+", m, genie_idle);
1257 a68_op (A68_STD, "-", m, genie_minus_mp);
1258 a68_op (A68_STD, "ABS", m, genie_abs_mp);
1259 m = a68_proc (M_LONG_INT, M_INT, NO_MOID);
1260 a68_op (A68_STD, "LENG", m, genie_lengthen_int_to_mp);
1261 m = a68_proc (M_INT, M_LONG_INT, NO_MOID);
1262 a68_op (A68_STD, "SHORTEN", m, genie_shorten_mp_to_int);
1263 a68_op (A68_STD, "SIGN", m, genie_sign_mp);
1264 m = a68_proc (M_LONG_LONG_REAL, M_LONG_REAL, NO_MOID);
1265 a68_op (A68_STD, "LENG", m, genie_lengthen_mp_to_long_mp);
1266 m = a68_proc (M_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1267 a68_op (A68_STD, "SHORTEN", m, genie_shorten_long_mp_to_mp);
1268 m = a68_proc (M_LONG_LONG_INT, M_LONG_INT, NO_MOID);
1269 a68_op (A68_STD, "LENG", m, genie_lengthen_mp_to_long_mp);
1270 m = a68_proc (M_LONG_INT, M_LONG_LONG_INT, NO_MOID);
1271 a68_op (A68_STD, "SHORTEN", m, genie_shorten_long_mp_to_mp);
1272 m = a68_proc (M_BOOL, M_LONG_INT, NO_MOID);
1273 a68_op (A68_STD, "ODD", m, genie_odd_mp);
1274 m = a68_proc (M_LONG_INT, M_LONG_REAL, NO_MOID);
1275 a68_op (A68_STD, "ENTIER", m, genie_entier_mp);
1276 a68_op (A68_STD, "ROUND", m, genie_round_mp);
1277 m = a68_proc (M_LONG_INT, M_LONG_INT, M_LONG_INT, NO_MOID);
1278 a68_op (A68_STD, "+", m, genie_add_mp_int);
1279 a68_op (A68_STD, "-", m, genie_sub_mp_int);
1280 a68_op (A68_STD, "*", m, genie_mul_mp_int);
1281 a68_op (A68_STD, "OVER", m, genie_over_mp);
1282 a68_op (A68_STD, "%", m, genie_over_mp);
1283 a68_op (A68_STD, "MOD", m, genie_mod_mp);
1284 a68_op (A68_STD, "%*", m, genie_mod_mp);
1285 m = a68_proc (M_REF_LONG_INT, M_REF_LONG_INT, M_LONG_INT, NO_MOID);
1286 a68_op (A68_STD, "+:=", m, genie_plusab_mp_int);
1287 a68_op (A68_STD, "-:=", m, genie_minusab_mp_int);
1288 a68_op (A68_STD, "*:=", m, genie_timesab_mp_int);
1289 a68_op (A68_STD, "%:=", m, genie_overab_mp);
1290 a68_op (A68_STD, "%*:=", m, genie_modab_mp);
1291 a68_op (A68_STD, "PLUSAB", m, genie_plusab_mp_int);
1292 a68_op (A68_STD, "MINUSAB", m, genie_minusab_mp_int);
1293 a68_op (A68_STD, "TIMESAB", m, genie_timesab_mp_int);
1294 a68_op (A68_STD, "OVERAB", m, genie_overab_mp);
1295 a68_op (A68_STD, "MODAB", m, genie_modab_mp);
1296 m = a68_proc (M_BOOL, M_LONG_INT, M_LONG_INT, NO_MOID);
1297 a68_op (A68_STD, "=", m, genie_eq_mp);
1298 a68_op (A68_STD, "EQ", m, genie_eq_mp);
1299 a68_op (A68_STD, "/=", m, genie_ne_mp);
1300 a68_op (A68_STD, "~=", m, genie_ne_mp);
1301 a68_op (A68_STD, "^=", m, genie_ne_mp);
1302 a68_op (A68_STD, "NE", m, genie_ne_mp);
1303 a68_op (A68_STD, "<", m, genie_lt_mp);
1304 a68_op (A68_STD, "LT", m, genie_lt_mp);
1305 a68_op (A68_STD, "<=", m, genie_le_mp);
1306 a68_op (A68_STD, "LE", m, genie_le_mp);
1307 a68_op (A68_STD, ">", m, genie_gt_mp);
1308 a68_op (A68_STD, "GT", m, genie_gt_mp);
1309 a68_op (A68_STD, ">=", m, genie_ge_mp);
1310 a68_op (A68_STD, "GE", m, genie_ge_mp);
1311 m = a68_proc (M_LONG_REAL, M_LONG_INT, M_LONG_INT, NO_MOID);
1312 a68_op (A68_STD, "/", m, genie_div_mp);
1313 m = a68_proc (M_LONG_INT, M_LONG_INT, M_INT, NO_MOID);
1314 a68_op (A68_STD, "**", m, genie_pow_mp_int_int);
1315 a68_op (A68_STD, "^", m, genie_pow_mp_int_int);
1316 m = a68_proc (M_LONG_COMPLEX, M_LONG_INT, M_LONG_INT, NO_MOID);
1317 a68_op (A68_STD, "I", m, genie_idle);
1318 a68_op (A68_STD, "+*", m, genie_idle);
1319 m = a68_proc (M_LONG_REAL, M_REAL, NO_MOID);
1320 a68_op (A68_STD, "LENG", m, genie_lengthen_real_to_mp);
1321 m = a68_proc (M_REAL, M_LONG_REAL, NO_MOID);
1322 a68_op (A68_STD, "SHORTEN", m, genie_shorten_mp_to_real);
1323 // LONG REAL in software
1324 m = a68_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
1325 a68_op (A68_STD, "+", m, genie_idle);
1326 a68_op (A68_STD, "-", m, genie_minus_mp);
1327 a68_op (A68_STD, "ABS", m, genie_abs_mp);
1328 m = a68_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
1329 a68_id2 (A68_EXT, "longarccosdg", "dacosdg", m, genie_acosdg_mp);
1330 a68_id2 (A68_EXT, "longarccosh", "dacosh", m, genie_acosh_mp);
1331 a68_id2 (A68_EXT, "longarccot", "dacot", m, genie_acot_mp);
1332 a68_id2 (A68_EXT, "longarccotdg", "dacotdg", m, genie_acosdg_mp);
1333 a68_id2 (A68_EXT, "longarccsc", "dacsc", m, genie_acsc_mp);
1334 a68_id2 (A68_EXT, "longarccscdg", "dacscdg", m, genie_acscdg_mp);
1335 a68_id2 (A68_EXT, "longarcsec", "dasec", m, genie_asec_mp);
1336 a68_id2 (A68_EXT, "longarcsecdg", "dasecdg", m, genie_asecdg_mp);
1337 a68_id2 (A68_EXT, "longarcsindg", "dasindg", m, genie_asindg_mp);
1338 a68_id2 (A68_EXT, "longarcsinh", "dasinh", m, genie_asinh_mp);
1339 a68_id2 (A68_EXT, "longarctandg", "datandg", m, genie_atandg_mp);
1340 a68_id2 (A68_EXT, "longarctanh", "datanh", m, genie_atanh_mp);
1341 a68_id2 (A68_EXT, "longcas", "dcas", m, genie_cas_mp);
1342 a68_id2 (A68_EXT, "longcbrt", "dcbrt", m, genie_curt_mp);
1343 a68_id2 (A68_EXT, "longcosdg", "dcosdg", m, genie_cosdg_mp);
1344 a68_id2 (A68_EXT, "longcosh", "dcosh", m, genie_cosh_mp);
1345 a68_id2 (A68_EXT, "longcospi", "dcospi", m, genie_cospi_mp);
1346 a68_id2 (A68_EXT, "longcot", "dcot", m, genie_cot_mp);
1347 a68_id2 (A68_EXT, "longcotdg", "dcotdg", m, genie_cotdg_mp);
1348 a68_id2 (A68_EXT, "longcotpi", "dcotpi", m, genie_cotpi_mp);
1349 a68_id2 (A68_EXT, "longcsc", "dcsc", m, genie_csc_mp);
1350 a68_id2 (A68_EXT, "longcscdg", "dcscdg", m, genie_cscdg_mp);
1351 a68_id2 (A68_EXT, "longcurt", "dcurt", m, genie_curt_mp);
1352 a68_id2 (A68_EXT, "longerfc", "derfc", m, genie_erfc_mp);
1353 a68_id2 (A68_EXT, "longerf", "derf", m, genie_erf_mp);
1354 a68_id2 (A68_EXT, "longgamma", "dgamma", m, genie_gamma_mp);
1355 a68_id2 (A68_EXT, "longinverfc", "dinverfc", m, genie_inverfc_mp);
1356 a68_id2 (A68_EXT, "longinverf", "dinverf", m, genie_inverf_mp);
1357 a68_id2 (A68_EXT, "longlngamma", "dlngamma", m, genie_lngamma_mp);
1358 a68_id2 (A68_EXT, "longsecdg", "dsecdg", m, genie_secdg_mp);
1359 a68_id2 (A68_EXT, "longsec", "dsec", m, genie_sec_mp);
1360 a68_id2 (A68_EXT, "longsindg", "dsindg", m, genie_sindg_mp);
1361 a68_id2 (A68_EXT, "longsinh", "dsinh", m, genie_sinh_mp);
1362 a68_id2 (A68_EXT, "longsinpi", "dsinpi", m, genie_sinpi_mp);
1363 a68_id2 (A68_EXT, "longtandg", "dtandg", m, genie_tandg_mp);
1364 a68_id2 (A68_EXT, "longtanh", "dtanh", m, genie_tanh_mp);
1365 a68_id2 (A68_EXT, "longtanpi", "dtanpi", m, genie_tanpi_mp);
1366 // RR.
1367 a68_id2 (A68_STD, "longarccos", "dacos", m, genie_acos_mp);
1368 a68_id2 (A68_STD, "longarcsin", "dasin", m, genie_asin_mp);
1369 a68_id2 (A68_STD, "longarctan", "datan", m, genie_atan_mp);
1370 a68_id2 (A68_STD, "longcos", "dcos", m, genie_cos_mp);
1371 a68_id2 (A68_STD, "longexp", "dexp", m, genie_exp_mp);
1372 a68_id2 (A68_STD, "longln", "dln", m, genie_ln_mp);
1373 a68_id2 (A68_STD, "longlog", "dlog", m, genie_log_mp);
1374 a68_id2 (A68_STD, "longsin", "dsin", m, genie_sin_mp);
1375 a68_id2 (A68_STD, "longsqrt", "dsqrt", m, genie_sqrt_mp);
1376 a68_id2 (A68_STD, "longtan", "dtan", m, genie_tan_mp);
1377 m = a68_proc (M_LONG_REAL, NO_MOID);
1378 a68_idf (A68_STD, "longnextrandom", m, genie_long_next_random);
1379 a68_idf (A68_STD, "longrandom", m, genie_long_next_random);
1380 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1381 a68_id2 (A68_EXT, "longarctan2", "datan2", m, genie_atan2_mp);
1382 a68_id2 (A68_EXT, "longarctan2dg", "datan2dg", m, genie_atan2dg_mp);
1383 a68_id2 (A68_EXT, "longbeta", "dbeta", m, genie_beta_mp);
1384 a68_id2 (A68_EXT, "longgammainc", "dgammainc", m, genie_gamma_inc_h_mp);
1385 a68_id2 (A68_EXT, "longgammaincf", "dgammaincf", m, genie_gamma_inc_f_mp);
1386 a68_id2 (A68_EXT, "longgammaincgf", "dgammaincgf", m, genie_gamma_inc_gf_mp);
1387 a68_id2 (A68_EXT, "longlnbeta", "dlnbeta", m, genie_lnbeta_mp);
1388 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1389 a68_id2 (A68_EXT, "longbetainc", "dbetainc", m, genie_beta_inc_mp);
1390 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1391 a68_id2 (A68_EXT, "longgammaincg", "dgammaincg", m, genie_gamma_inc_g_mp);
1392 m = a68_proc (M_INT, M_LONG_REAL, NO_MOID);
1393 a68_op (A68_STD, "SIGN", m, genie_sign_mp);
1394 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1395 a68_op (A68_STD, "+", m, genie_add_mp);
1396 a68_op (A68_STD, "-", m, genie_sub_mp);
1397 a68_op (A68_STD, "*", m, genie_mul_mp);
1398 a68_op (A68_STD, "/", m, genie_div_mp);
1399 a68_op (A68_STD, "**", m, genie_pow_mp);
1400 a68_op (A68_STD, "UP", m, genie_pow_mp);
1401 a68_op (A68_STD, "^", m, genie_pow_mp);
1402 m = a68_proc (M_REF_LONG_REAL, M_REF_LONG_REAL, M_LONG_REAL, NO_MOID);
1403 a68_op (A68_STD, "+:=", m, genie_plusab_mp);
1404 a68_op (A68_STD, "-:=", m, genie_minusab_mp);
1405 a68_op (A68_STD, "*:=", m, genie_timesab_mp);
1406 a68_op (A68_STD, "/:=", m, genie_divab_mp);
1407 a68_op (A68_STD, "PLUSAB", m, genie_plusab_mp);
1408 a68_op (A68_STD, "MINUSAB", m, genie_minusab_mp);
1409 a68_op (A68_STD, "TIMESAB", m, genie_timesab_mp);
1410 a68_op (A68_STD, "DIVAB", m, genie_divab_mp);
1411 m = a68_proc (M_BOOL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1412 a68_op (A68_STD, "=", m, genie_eq_mp);
1413 a68_op (A68_STD, "EQ", m, genie_eq_mp);
1414 a68_op (A68_STD, "/=", m, genie_ne_mp);
1415 a68_op (A68_STD, "~=", m, genie_ne_mp);
1416 a68_op (A68_STD, "^=", m, genie_ne_mp);
1417 a68_op (A68_STD, "NE", m, genie_ne_mp);
1418 a68_op (A68_STD, "<", m, genie_lt_mp);
1419 a68_op (A68_STD, "LT", m, genie_lt_mp);
1420 a68_op (A68_STD, "<=", m, genie_le_mp);
1421 a68_op (A68_STD, "LE", m, genie_le_mp);
1422 a68_op (A68_STD, ">", m, genie_gt_mp);
1423 a68_op (A68_STD, "GT", m, genie_gt_mp);
1424 a68_op (A68_STD, ">=", m, genie_ge_mp);
1425 a68_op (A68_STD, "GE", m, genie_ge_mp);
1426 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_INT, NO_MOID);
1427 a68_op (A68_STD, "**", m, genie_pow_mp_int);
1428 a68_op (A68_STD, "UP", m, genie_pow_mp_int);
1429 a68_op (A68_STD, "^", m, genie_pow_mp_int);
1430 m = a68_proc (M_LONG_COMPLEX, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1431 a68_op (A68_STD, "I", m, genie_idle);
1432 a68_op (A68_STD, "+*", m, genie_idle);
1433 // LONG COMPLEX in software
1434 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1435 a68_op (A68_STD, "LENG", m, genie_lengthen_mp_complex_to_long_mp_complex);
1436 m = a68_proc (M_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1437 a68_op (A68_STD, "SHORTEN", m, genie_shorten_long_mp_complex_to_mp_complex);
1438 m = a68_proc (M_LONG_COMPLEX, M_COMPLEX, NO_MOID);
1439 a68_op (A68_STD, "LENG", m, genie_lengthen_complex_to_mp_complex);
1440 m = a68_proc (M_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1441 a68_op (A68_STD, "SHORTEN", m, genie_shorten_mp_complex_to_complex);
1442 m = a68_proc (M_LONG_REAL, M_LONG_COMPLEX, NO_MOID);
1443 a68_op (A68_STD, "RE", m, genie_re_mp_complex);
1444 a68_op (A68_STD, "IM", m, genie_im_mp_complex);
1445 a68_op (A68_STD, "ARG", m, genie_arg_mp_complex);
1446 a68_op (A68_STD, "ABS", m, genie_abs_mp_complex);
1447 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1448 a68_op (A68_STD, "+", m, genie_idle);
1449 a68_op (A68_STD, "-", m, genie_minus_mp_complex);
1450 a68_op (A68_STD, "CONJ", m, genie_conj_mp_complex);
1451 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1452 a68_op (A68_STD, "+", m, genie_add_mp_complex);
1453 a68_op (A68_STD, "-", m, genie_sub_mp_complex);
1454 a68_op (A68_STD, "*", m, genie_mul_mp_complex);
1455 a68_op (A68_STD, "/", m, genie_div_mp_complex);
1456 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_INT, NO_MOID);
1457 a68_op (A68_STD, "**", m, genie_pow_mp_complex_int);
1458 a68_op (A68_STD, "UP", m, genie_pow_mp_complex_int);
1459 a68_op (A68_STD, "^", m, genie_pow_mp_complex_int);
1460 m = a68_proc (M_BOOL, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1461 a68_op (A68_STD, "=", m, genie_eq_mp_complex);
1462 a68_op (A68_STD, "EQ", m, genie_eq_mp_complex);
1463 a68_op (A68_STD, "/=", m, genie_ne_mp_complex);
1464 a68_op (A68_STD, "~=", m, genie_ne_mp_complex);
1465 a68_op (A68_STD, "^=", m, genie_ne_mp_complex);
1466 a68_op (A68_STD, "NE", m, genie_ne_mp_complex);
1467 m = a68_proc (M_REF_LONG_COMPLEX, M_REF_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1468 a68_op (A68_STD, "+:=", m, genie_plusab_mp_complex);
1469 a68_op (A68_STD, "-:=", m, genie_minusab_mp_complex);
1470 a68_op (A68_STD, "*:=", m, genie_timesab_mp_complex);
1471 a68_op (A68_STD, "/:=", m, genie_divab_mp_complex);
1472 a68_op (A68_STD, "PLUSAB", m, genie_plusab_mp_complex);
1473 a68_op (A68_STD, "MINUSAB", m, genie_minusab_mp_complex);
1474 a68_op (A68_STD, "TIMESAB", m, genie_timesab_mp_complex);
1475 a68_op (A68_STD, "DIVAB", m, genie_divab_mp_complex);
1476 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1477 a68_id2 (A68_EXT, "longcomplexarccos", "dcacos", m, genie_acos_mp_complex);
1478 a68_id2 (A68_EXT, "longcomplexarccosh", "dcacosh", m, genie_acosh_mp_complex);
1479 a68_id2 (A68_EXT, "longcomplexarcsin", "dcasin", m, genie_asin_mp_complex);
1480 a68_id2 (A68_EXT, "longcomplexarcsinh", "dcasinh", m, genie_asinh_mp_complex);
1481 a68_id2 (A68_EXT, "longcomplexarctan", "dcatan", m, genie_atan_mp_complex);
1482 a68_id2 (A68_EXT, "longcomplexarctanh", "dcatanh", m, genie_atanh_mp_complex);
1483 a68_id2 (A68_EXT, "longcomplexcos", "dccos", m, genie_cos_mp_complex);
1484 a68_id2 (A68_EXT, "longcomplexcosh", "dccosh", m, genie_cosh_mp_complex);
1485 a68_id2 (A68_EXT, "longcomplexexp", "dcexp", m, genie_exp_mp_complex);
1486 a68_id2 (A68_EXT, "longcomplexln", "dcln", m, genie_ln_mp_complex);
1487 a68_id2 (A68_EXT, "longcomplexsin", "dcsin", m, genie_sin_mp_complex);
1488 a68_id2 (A68_EXT, "longcomplexsinh", "dcsin", m, genie_sinh_mp_complex);
1489 a68_id2 (A68_EXT, "longcomplexsqrt", "dcsqrt", m, genie_sqrt_mp_complex);
1490 a68_id2 (A68_EXT, "longcomplextan", "dctan", m, genie_tan_mp_complex);
1491 a68_id2 (A68_EXT, "longcomplextanh", "dctanh", m, genie_tanh_mp_complex);
1492
1493 // LONG BITS in software
1494 m = a68_proc (M_LONG_BITS, M_ROW_BOOL, NO_MOID);
1495 a68_idf (A68_STD, "longbitspack", m, genie_long_bits_pack);
1496 m = a68_proc (M_LONG_INT, M_LONG_BITS, NO_MOID);
1497 a68_op (A68_STD, "ABS", m, genie_idle);
1498 m = a68_proc (M_LONG_BITS, M_LONG_INT, NO_MOID);
1499 a68_op (A68_STD, "BIN", m, genie_bin_mp);
1500 m = a68_proc (M_BITS, M_LONG_BITS, NO_MOID);
1501 a68_op (A68_STD, "SHORTEN", m, genie_shorten_mp_to_bits);
1502 m = a68_proc (M_LONG_BITS, M_BITS, NO_MOID);
1503 a68_op (A68_STD, "LENG", m, genie_lengthen_unt_to_mp);
1504 m = a68_proc (M_LONG_BITS, M_LONG_BITS, NO_MOID);
1505 a68_op (A68_STD, "NOT", m, genie_not_mp);
1506 a68_op (A68_STD, "~", m, genie_not_mp);
1507 m = a68_proc (M_BOOL, M_LONG_BITS, M_LONG_BITS, NO_MOID);
1508 a68_op (A68_STD, "=", m, genie_eq_mp);
1509 a68_op (A68_STD, "EQ", m, genie_eq_mp);
1510 a68_op (A68_STD, "/=", m, genie_ne_mp);
1511 a68_op (A68_STD, "~=", m, genie_ne_mp);
1512 a68_op (A68_STD, "^=", m, genie_ne_mp);
1513 a68_op (A68_STD, "NE", m, genie_ne_mp);
1514 a68_op (A68_STD, "<=", m, genie_le_long_bits);
1515 a68_op (A68_STD, "LE", m, genie_le_long_bits);
1516 a68_op (A68_STD, ">=", m, genie_ge_long_bits);
1517 a68_op (A68_STD, "GE", m, genie_ge_long_bits);
1518 m = a68_proc (M_LONG_BITS, M_LONG_BITS, M_LONG_BITS, NO_MOID);
1519 a68_op (A68_STD, "AND", m, genie_and_mp);
1520 a68_op (A68_STD, "&", m, genie_and_mp);
1521 a68_op (A68_STD, "OR", m, genie_or_mp);
1522 a68_op (A68_EXT, "XOR", m, genie_xor_mp);
1523 m = a68_proc (M_LONG_BITS, M_LONG_BITS, M_INT, NO_MOID);
1524 a68_op (A68_STD, "SHL", m, genie_shl_mp);
1525 a68_op (A68_STD, "UP", m, genie_shl_mp);
1526 a68_op (A68_STD, "SHR", m, genie_shr_mp);
1527 a68_op (A68_STD, "DOWN", m, genie_shr_mp);
1528 m = a68_proc (M_BOOL, M_INT, M_LONG_BITS, NO_MOID);
1529 a68_op (A68_STD, "ELEM", m, genie_elem_long_bits);
1530 m = a68_proc (M_LONG_BITS, M_INT, M_LONG_BITS, NO_MOID);
1531 a68_op (A68_STD, "SET", m, genie_set_long_bits);
1532 a68_op (A68_STD, "CLEAR", m, genie_clear_long_bits);
1533 #endif
1534 }
1535
1536 void stand_mp_level_3 (void)
1537 {
1538 #if (A68_LEVEL >= 3)
1539 a68_id2 (A68_STD, "longpi", "dpi", M_LONG_REAL, genie_pi_double);
1540 a68_idf (A68_STD, "longmaxbits", M_LONG_BITS, genie_double_max_bits);
1541 a68_idf (A68_STD, "longmaxint", M_LONG_INT, genie_double_max_int);
1542 a68_idf (A68_STD, "longsmallreal", M_LONG_REAL, genie_double_small_real);
1543 a68_idf (A68_STD, "longmaxreal", M_LONG_REAL, genie_double_max_real);
1544 a68_idf (A68_STD, "longminreal", M_LONG_REAL, genie_double_min_real);
1545 a68_idf (A68_STD, "longinfinity", M_LONG_REAL, genie_infinity_double);
1546 a68_idf (A68_STD, "longminusinfinity", M_LONG_REAL, genie_minus_infinity_double);
1547 a68_idf (A68_STD, "longinf", M_LONG_REAL, genie_infinity_double);
1548 a68_idf (A68_STD, "longmininf", M_LONG_REAL, genie_minus_infinity_double);
1549 // LONG INT as 128 bit
1550 MOID_T *m = a68_proc (M_LONG_INT, M_LONG_INT, NO_MOID);
1551 a68_op (A68_STD, "+", m, genie_idle);
1552 a68_op (A68_STD, "-", m, genie_minus_double_int);
1553 a68_op (A68_STD, "ABS", m, genie_abs_double_int);
1554 m = a68_proc (M_LONG_INT, M_INT, NO_MOID);
1555 a68_op (A68_STD, "LENG", m, genie_lengthen_int_to_double_int);
1556 m = a68_proc (M_LONG_LONG_INT, M_LONG_INT, NO_MOID);
1557 a68_op (A68_STD, "LENG", m, genie_lengthen_double_int_to_mp);
1558 m = a68_proc (M_INT, M_LONG_INT, NO_MOID);
1559 a68_op (A68_STD, "SHORTEN", m, genie_shorten_long_int_to_int);
1560 a68_op (A68_STD, "SIGN", m, genie_sign_double_int);
1561 m = a68_proc (M_BOOL, M_LONG_INT, NO_MOID);
1562 a68_op (A68_STD, "ODD", m, genie_odd_double_int);
1563 m = a68_proc (M_LONG_INT, M_LONG_REAL, NO_MOID);
1564 a68_op (A68_STD, "ENTIER", m, genie_entier_double);
1565 a68_op (A68_STD, "ROUND", m, genie_round_double);
1566 m = a68_proc (M_LONG_INT, M_LONG_INT, M_LONG_INT, NO_MOID);
1567 a68_op (A68_STD, "+", m, genie_add_double_int);
1568 a68_op (A68_STD, "-", m, genie_sub_double_int);
1569 a68_op (A68_STD, "*", m, genie_mul_double_int);
1570 a68_op (A68_STD, "OVER", m, genie_over_double_int);
1571 a68_op (A68_STD, "%", m, genie_over_double_int);
1572 a68_op (A68_STD, "MOD", m, genie_mod_double_int);
1573 a68_op (A68_STD, "%*", m, genie_mod_double_int);
1574 m = a68_proc (M_LONG_INT, M_LONG_INT, M_INT, NO_MOID);
1575 a68_op (A68_STD, "**", m, genie_pow_double_int_int);
1576 a68_op (A68_STD, "^", m, genie_pow_double_int_int);
1577 m = a68_proc (M_REF_LONG_INT, M_REF_LONG_INT, M_LONG_INT, NO_MOID);
1578 a68_op (A68_STD, "+:=", m, genie_plusab_double_int);
1579 a68_op (A68_STD, "-:=", m, genie_minusab_double_int);
1580 a68_op (A68_STD, "*:=", m, genie_timesab_double_int);
1581 a68_op (A68_STD, "%:=", m, genie_overab_double_int);
1582 a68_op (A68_STD, "%*:=", m, genie_modab_double_int);
1583 a68_op (A68_STD, "PLUSAB", m, genie_plusab_double_int);
1584 a68_op (A68_STD, "MINUSAB", m, genie_minusab_double_int);
1585 a68_op (A68_STD, "TIMESAB", m, genie_timesab_double_int);
1586 a68_op (A68_STD, "OVERAB", m, genie_overab_double_int);
1587 a68_op (A68_STD, "MODAB", m, genie_modab_double_int);
1588 m = a68_proc (M_LONG_REAL, M_LONG_INT, M_LONG_INT, NO_MOID);
1589 a68_op (A68_STD, "/", m, genie_div_double_int);
1590 m = a68_proc (M_BOOL, M_LONG_INT, M_LONG_INT, NO_MOID);
1591 a68_op (A68_STD, "=", m, genie_eq_double_int);
1592 a68_op (A68_STD, "EQ", m, genie_eq_double_int);
1593 a68_op (A68_STD, "/=", m, genie_ne_double_int);
1594 a68_op (A68_STD, "~=", m, genie_ne_double_int);
1595 a68_op (A68_STD, "^=", m, genie_ne_double_int);
1596 a68_op (A68_STD, "NE", m, genie_ne_double_int);
1597 a68_op (A68_STD, "<", m, genie_lt_double_int);
1598 a68_op (A68_STD, "LT", m, genie_lt_double_int);
1599 a68_op (A68_STD, "<=", m, genie_le_double_int);
1600 a68_op (A68_STD, "LE", m, genie_le_double_int);
1601 a68_op (A68_STD, ">", m, genie_gt_double_int);
1602 a68_op (A68_STD, "GT", m, genie_gt_double_int);
1603 a68_op (A68_STD, ">=", m, genie_ge_double_int);
1604 a68_op (A68_STD, "GE", m, genie_ge_double_int);
1605 // LONG REAL as 128 bit
1606 m = a68_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
1607 a68_op (A68_STD, "+", m, genie_idle);
1608 a68_op (A68_STD, "-", m, genie_minus_double);
1609 a68_op (A68_STD, "ABS", m, genie_abs_double);
1610 m = a68_proc (M_INT, M_LONG_REAL, NO_MOID);
1611 a68_op (A68_STD, "SIGN", m, genie_sign_double);
1612 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1613 a68_op (A68_STD, "+", m, genie_add_double);
1614 a68_op (A68_STD, "-", m, genie_sub_double);
1615 a68_op (A68_STD, "*", m, genie_mul_double);
1616 a68_op (A68_STD, "/", m, genie_over_double);
1617 a68_op (A68_STD, "**", m, genie_pow_double);
1618 a68_op (A68_STD, "UP", m, genie_pow_double);
1619 a68_op (A68_STD, "^", m, genie_pow_double);
1620 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_INT, NO_MOID);
1621 a68_op (A68_STD, "**", m, genie_pow_double_int);
1622 a68_op (A68_STD, "UP", m, genie_pow_double_int);
1623 a68_op (A68_STD, "^", m, genie_pow_double_int);
1624 m = a68_proc (M_LONG_REAL, M_REAL, NO_MOID);
1625 a68_op (A68_STD, "LENG", m, genie_lengthen_real_to_double);
1626 m = a68_proc (M_REAL, M_LONG_REAL, NO_MOID);
1627 a68_op (A68_STD, "SHORTEN", m, genie_shorten_double_to_real);
1628 m = a68_proc (M_LONG_LONG_REAL, M_LONG_REAL, NO_MOID);
1629 a68_op (A68_STD, "LENG", m, genie_lengthen_double_to_mp);
1630 m = a68_proc (M_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1631 a68_op (A68_STD, "SHORTEN", m, genie_shorten_mp_to_double);
1632 m = a68_proc (M_LONG_INT, M_LONG_LONG_INT, NO_MOID);
1633 a68_op (A68_STD, "SHORTEN", m, genie_shorten_mp_to_double_int);
1634 m = a68_proc (M_REF_LONG_REAL, M_REF_LONG_REAL, M_LONG_REAL, NO_MOID);
1635 a68_op (A68_STD, "+:=", m, genie_plusab_double);
1636 a68_op (A68_STD, "-:=", m, genie_minusab_double);
1637 a68_op (A68_STD, "*:=", m, genie_timesab_double);
1638 a68_op (A68_STD, "/:=", m, genie_divab_double);
1639 a68_op (A68_STD, "PLUSAB", m, genie_plusab_double);
1640 a68_op (A68_STD, "MINUSAB", m, genie_minusab_double);
1641 a68_op (A68_STD, "TIMESAB", m, genie_timesab_double);
1642 a68_op (A68_STD, "DIVAB", m, genie_divab_double);
1643 m = a68_proc (M_BOOL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1644 a68_op (A68_STD, "=", m, genie_eq_double);
1645 a68_op (A68_STD, "EQ", m, genie_eq_double);
1646 a68_op (A68_STD, "/=", m, genie_ne_double);
1647 a68_op (A68_STD, "~=", m, genie_ne_double);
1648 a68_op (A68_STD, "^=", m, genie_ne_double);
1649 a68_op (A68_STD, "NE", m, genie_ne_double);
1650 a68_op (A68_STD, "<", m, genie_lt_double);
1651 a68_op (A68_STD, "LT", m, genie_lt_double);
1652 a68_op (A68_STD, "<=", m, genie_le_double);
1653 a68_op (A68_STD, "LE", m, genie_le_double);
1654 a68_op (A68_STD, ">", m, genie_gt_double);
1655 a68_op (A68_STD, "GT", m, genie_gt_double);
1656 a68_op (A68_STD, ">=", m, genie_ge_double);
1657 a68_op (A68_STD, "GE", m, genie_ge_double);
1658 m = a68_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
1659 a68_id2 (A68_EXT, "longarccosdg", "dacosdg", m, genie_acosdg_double);
1660 a68_id2 (A68_EXT, "longarccosh", "dacosh", m, genie_acosh_double);
1661 a68_id2 (A68_EXT, "longarccotdg", "dacotdg", m, genie_acotdg_double);
1662 a68_id2 (A68_EXT, "longarccot", "dacot", m, genie_acot_double);
1663 a68_id2 (A68_EXT, "longarccsc", "dacsc", m, genie_acsc_double);
1664 a68_id2 (A68_EXT, "longarccscdg", "dacscdg", m, genie_acscdg_double);
1665 a68_id2 (A68_EXT, "longarcsecdg", "dasecdg", m, genie_asecdg_double);
1666 a68_id2 (A68_EXT, "longarcsindg", "dasindg", m, genie_asindg_double);
1667 a68_id2 (A68_EXT, "longarcsinh", "dasinh", m, genie_asinh_double);
1668 a68_id2 (A68_EXT, "longarctandg", "datandg", m, genie_atandg_double);
1669 a68_id2 (A68_EXT, "longarctanh", "datanh", m, genie_atanh_double);
1670 a68_id2 (A68_EXT, "longcbrt", "dcbrt", m, genie_curt_double);
1671 a68_id2 (A68_EXT, "longcosdg", "dcosdg", m, genie_cosdg_double);
1672 a68_id2 (A68_EXT, "longcosh", "dcosh", m, genie_cosh_double);
1673 a68_id2 (A68_EXT, "longcospi", "dcospi", m, genie_cospi_double);
1674 a68_id2 (A68_EXT, "longcotdg", "dcotdg", m, genie_cotdg_double);
1675 a68_id2 (A68_EXT, "longcot", "dcot", m, genie_cot_double);
1676 a68_id2 (A68_EXT, "longcotpi", "dcotpi", m, genie_cotpi_double);
1677 a68_id2 (A68_EXT, "longcsc", "dcsc", m, genie_csc_double);
1678 a68_id2 (A68_EXT, "longcscdg", "dcscdg", m, genie_cscdg_double);
1679 a68_id2 (A68_EXT, "longcurt", "dcurt", m, genie_curt_double);
1680 a68_id2 (A68_EXT, "longerfc", "derfc", m, genie_erfc_double);
1681 a68_id2 (A68_EXT, "longerf", "derf", m, genie_erf_double);
1682 a68_id2 (A68_EXT, "longinverfc", "dinverfc", m, genie_inverfc_double);
1683 a68_id2 (A68_EXT, "longinverf", "dinverf", m, genie_inverf_double);
1684 a68_id2 (A68_EXT, "longgamma", "dgamma", m, genie_gamma_double);
1685 a68_id2 (A68_EXT, "longlngamma", "dlngamma", m, genie_lngamma_double);
1686 a68_id2 (A68_EXT, "longsec", "dsec", m, genie_sec_double);
1687 a68_id2 (A68_EXT, "longsecdg", "dsecdg", m, genie_secdg_double);
1688 a68_id2 (A68_EXT, "longsindg", "dsindg", m, genie_sindg_double);
1689 a68_id2 (A68_EXT, "longsinh", "dsinh", m, genie_sinh_double);
1690 a68_id2 (A68_EXT, "longsinpi", "dsinpi", m, genie_sinpi_double);
1691 a68_id2 (A68_EXT, "longtandg", "dtandg", m, genie_tandg_double);
1692 a68_id2 (A68_EXT, "longtanh", "dtanh", m, genie_tanh_double);
1693 a68_id2 (A68_EXT, "longtanpi", "dtanpi", m, genie_tanpi_double);
1694 a68_id2 (A68_STD, "longarccos", "dacos", m, genie_acos_double);
1695 a68_id2 (A68_STD, "longarcsin", "dasin", m, genie_asin_double);
1696 a68_id2 (A68_STD, "longarctan", "datan", m, genie_atan_double);
1697 a68_id2 (A68_EXT, "longcas", "dcas", m, genie_cas_double);
1698 a68_id2 (A68_STD, "longcos", "dcos", m, genie_cos_double);
1699 a68_id2 (A68_STD, "longexp", "dexp", m, genie_exp_double);
1700 a68_id2 (A68_STD, "longln", "dln", m, genie_ln_double);
1701 a68_id2 (A68_STD, "longlog", "dlog", m, genie_log_double);
1702 a68_id2 (A68_STD, "longsin", "dsin", m, genie_sin_double);
1703 a68_id2 (A68_STD, "longsqrt", "dsqrt", m, genie_sqrt_double);
1704 a68_id2 (A68_STD, "longtan", "dtan", m, genie_tan_double);
1705 m = a68_proc (M_LONG_REAL, NO_MOID);
1706 a68_idf (A68_STD, "longnextrandom", m, genie_next_random_double);
1707 a68_idf (A68_STD, "longrandom", m, genie_next_random_double);
1708 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1709 a68_id2 (A68_EXT, "longarctan2dg", "datan2dg", m, genie_atan2dg_double);
1710 a68_id2 (A68_EXT, "longarctan2", "datan2", m, genie_atan2_double);
1711 a68_id2 (A68_EXT, "longbeta", "dbeta", m, genie_beta_double);
1712 a68_id2 (A68_EXT, "longgammaincgf", "dgammaincgf", m, genie_gamma_inc_gf_double);
1713 a68_id2 (A68_EXT, "longgammaincf", "dgammaincf", m, genie_gamma_inc_f_double);
1714 a68_id2 (A68_EXT, "longgammainc", "dgammainc", m, genie_gamma_inc_h_double);
1715 a68_id2 (A68_EXT, "longlnbeta", "dlnbeta", m, genie_ln_beta_double);
1716 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1717 a68_id2 (A68_EXT, "longbetainc", "dbetainc", m, genie_beta_inc_cf_double);
1718 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1719 a68_id2 (A68_EXT, "longgammaincg", "dgammaincg", m, genie_gamma_inc_g_double);
1720 // LONG BITS as 128 bit
1721 m = a68_proc (M_LONG_BITS, M_ROW_BOOL, NO_MOID);
1722 a68_idf (A68_STD, "longbitspack", m, genie_double_bits_pack);
1723 m = a68_proc (M_BITS, M_LONG_BITS, NO_MOID);
1724 a68_op (A68_STD, "SHORTEN", m, genie_shorten_double_bits_to_bits);
1725 m = a68_proc (M_LONG_BITS, M_BITS, NO_MOID);
1726 a68_op (A68_STD, "LENG", m, genie_lengthen_bits_to_double_bits);
1727 m = a68_proc (M_LONG_INT, M_LONG_BITS, NO_MOID);
1728 a68_op (A68_STD, "ABS", m, genie_idle);
1729 m = a68_proc (M_LONG_BITS, M_LONG_INT, NO_MOID);
1730 a68_op (A68_STD, "BIN", m, genie_bin_double_int);
1731 m = a68_proc (M_LONG_BITS, M_LONG_BITS, NO_MOID);
1732 a68_op (A68_STD, "NOT", m, genie_not_double_bits);
1733 a68_op (A68_STD, "~", m, genie_not_double_bits);
1734 m = a68_proc (M_LONG_BITS, M_LONG_BITS, M_LONG_BITS, NO_MOID);
1735 a68_op (A68_STD, "AND", m, genie_and_double_bits);
1736 a68_op (A68_STD, "&", m, genie_and_double_bits);
1737 a68_op (A68_STD, "OR", m, genie_or_double_bits);
1738 a68_op (A68_EXT, "XOR", m, genie_xor_double_bits);
1739 a68_op (A68_EXT, "+", m, genie_add_double_bits);
1740 a68_op (A68_EXT, "-", m, genie_sub_double_bits);
1741 a68_op (A68_EXT, "*", m, genie_times_double_bits);
1742 a68_op (A68_EXT, "OVER", m, genie_over_double_bits);
1743 a68_op (A68_EXT, "MOD", m, genie_over_double_bits);
1744 m = a68_proc (M_BOOL, M_LONG_BITS, M_LONG_BITS, NO_MOID);
1745 a68_op (A68_STD, "=", m, genie_eq_double_bits);
1746 a68_op (A68_STD, "/=", m, genie_ne_double_bits);
1747 a68_op (A68_STD, "~=", m, genie_ne_double_bits);
1748 a68_op (A68_STD, "^=", m, genie_ne_double_bits);
1749 a68_op (A68_STD, "<=", m, genie_le_double_bits);
1750 a68_op (A68_STD, ">=", m, genie_ge_double_bits);
1751 a68_op (A68_STD, "EQ", m, genie_eq_double_bits);
1752 a68_op (A68_STD, "NE", m, genie_ne_double_bits);
1753 a68_op (A68_STD, "LE", m, genie_le_double_bits);
1754 a68_op (A68_STD, "GE", m, genie_ge_double_bits);
1755 a68_op (A68_EXT, "<", m, genie_lt_double_bits);
1756 a68_op (A68_EXT, ">", m, genie_gt_double_bits);
1757 a68_op (A68_EXT, "LT", m, genie_lt_double_bits);
1758 a68_op (A68_EXT, "GT", m, genie_gt_double_bits);
1759 m = a68_proc (M_BOOL, M_INT, M_LONG_BITS, NO_MOID);
1760 a68_op (A68_STD, "ELEM", m, genie_elem_double_bits);
1761 m = a68_proc (M_LONG_BITS, M_INT, M_LONG_BITS, NO_MOID);
1762 a68_op (A68_STD, "SET", m, genie_set_double_bits);
1763 a68_op (A68_STD, "CLEAR", m, genie_clear_double_bits);
1764 m = a68_proc (M_LONG_BITS, M_LONG_BITS, M_INT, NO_MOID);
1765 a68_op (A68_STD, "SHL", m, genie_shl_double_bits);
1766 a68_op (A68_STD, "UP", m, genie_shl_double_bits);
1767 a68_op (A68_STD, "SHR", m, genie_shr_double_bits);
1768 a68_op (A68_STD, "DOWN", m, genie_shr_double_bits);
1769 a68_op (A68_EXT, "ROL", m, genie_rol_double_bits);
1770 a68_op (A68_EXT, "ROR", m, genie_ror_double_bits);
1771 // LONG COMPLEX as 2 x 128 bit.
1772 m = a68_proc (M_LONG_COMPLEX, M_COMPLEX, NO_MOID);
1773 a68_op (A68_STD, "LENG", m, genie_lengthen_complex_to_double_compl);
1774 m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1775 a68_op (A68_STD, "LENG", m, genie_lengthen_double_compl_to_long_mp_complex);
1776 m = a68_proc (M_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1777 a68_op (A68_STD, "SHORTEN", m, genie_shorten_double_compl_to_complex);
1778 m = a68_proc (M_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
1779 a68_op (A68_STD, "SHORTEN", m, genie_shorten_long_mp_complex_to_double_compl);
1780 m = a68_proc (M_LONG_COMPLEX, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1781 a68_op (A68_STD, "I", m, genie_i_double_compl);
1782 a68_op (A68_STD, "+*", m, genie_i_double_compl);
1783 m = a68_proc (M_LONG_COMPLEX, M_LONG_INT, M_LONG_INT, NO_MOID);
1784 a68_op (A68_STD, "I", m, genie_i_int_double_compl);
1785 a68_op (A68_STD, "+*", m, genie_i_int_double_compl);
1786 m = a68_proc (M_LONG_REAL, M_LONG_COMPLEX, NO_MOID);
1787 a68_op (A68_STD, "RE", m, genie_re_double_compl);
1788 a68_op (A68_STD, "IM", m, genie_im_double_compl);
1789 a68_op (A68_STD, "ABS", m, genie_abs_double_compl);
1790 a68_op (A68_STD, "ARG", m, genie_arg_double_compl);
1791 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1792 a68_op (A68_STD, "+", m, genie_idle);
1793 a68_op (A68_STD, "-", m, genie_minus_double_compl);
1794 a68_op (A68_STD, "CONJ", m, genie_conj_double_compl);
1795 m = a68_proc (M_BOOL, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1796 a68_op (A68_STD, "=", m, genie_eq_double_compl);
1797 a68_op (A68_STD, "/=", m, genie_ne_double_compl);
1798 a68_op (A68_STD, "~=", m, genie_ne_double_compl);
1799 a68_op (A68_STD, "^=", m, genie_ne_double_compl);
1800 a68_op (A68_STD, "EQ", m, genie_eq_double_compl);
1801 a68_op (A68_STD, "NE", m, genie_ne_double_compl);
1802 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1803 a68_op (A68_STD, "+", m, genie_add_double_compl);
1804 a68_op (A68_STD, "-", m, genie_sub_double_compl);
1805 a68_op (A68_STD, "*", m, genie_mul_double_compl);
1806 a68_op (A68_STD, "/", m, genie_div_double_compl);
1807 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_INT, NO_MOID);
1808 a68_op (A68_STD, "**", m, genie_pow_double_compl_int);
1809 a68_op (A68_STD, "UP", m, genie_pow_double_compl_int);
1810 a68_op (A68_STD, "^", m, genie_pow_double_compl_int);
1811 m = a68_proc (M_REF_LONG_COMPLEX, M_REF_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1812 a68_op (A68_STD, "+:=", m, genie_plusab_double_compl);
1813 a68_op (A68_STD, "-:=", m, genie_minusab_double_compl);
1814 a68_op (A68_STD, "*:=", m, genie_timesab_double_compl);
1815 a68_op (A68_STD, "/:=", m, genie_divab_double_compl);
1816 a68_op (A68_STD, "PLUSAB", m, genie_plusab_double_compl);
1817 a68_op (A68_STD, "MINUSAB", m, genie_minusab_double_compl);
1818 a68_op (A68_STD, "TIMESAB", m, genie_timesab_double_compl);
1819 a68_op (A68_STD, "DIVAB", m, genie_divab_double_compl);
1820 m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
1821 a68_id2 (A68_EXT, "longcomplexarccosh", "dcacosh", m, genie_acosh_double_compl);
1822 a68_id2 (A68_EXT, "longcomplexarccos", "dcacos", m, genie_acos_double_compl);
1823 a68_id2 (A68_EXT, "longcomplexarcsinh", "dcasinh", m, genie_asinh_double_compl);
1824 a68_id2 (A68_EXT, "longcomplexarcsin", "dcasin", m, genie_asin_double_compl);
1825 a68_id2 (A68_EXT, "longcomplexarctanh", "dcatanh", m, genie_atanh_double_compl);
1826 a68_id2 (A68_EXT, "longcomplexarctan", "dcatan", m, genie_atan_double_compl);
1827 a68_id2 (A68_EXT, "longcomplexatanh", "dcatanh", m, genie_atanh_double_compl);
1828 a68_id2 (A68_EXT, "longcomplexcosh", "dccosh", m, genie_cosh_double_compl);
1829 a68_id2 (A68_EXT, "longcomplexcos", "dccos", m, genie_cos_double_compl);
1830 a68_id2 (A68_EXT, "longcomplexexp", "dcexp", m, genie_exp_double_compl);
1831 a68_id2 (A68_EXT, "longcomplexln", "dcln", m, genie_ln_double_compl);
1832 a68_id2 (A68_EXT, "longcomplexsinh", "dcsinh", m, genie_sinh_double_compl);
1833 a68_id2 (A68_EXT, "longcomplexsin", "dcsin", m, genie_sin_double_compl);
1834 a68_id2 (A68_EXT, "longcomplexsqrt", "dcsqrt", m, genie_sqrt_double_compl);
1835 a68_id2 (A68_EXT, "longcomplextanh", "dctanh", m, genie_tanh_double_compl);
1836 a68_id2 (A68_EXT, "longcomplextan", "dctan", m, genie_tan_double_compl);
1837
1838 #if defined (HAVE_GNU_MPFR)
1839 m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
1840 a68_id2 (A68_EXT, "mpfrlonggammainc", "mpfrdgammainc", m, genie_gamma_inc_double_mpfr);
1841 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1842 a68_id2 (A68_STD, "mpfrlonglongbeta", "mpfrqbeta", m, genie_beta_mpfr);
1843 a68_id2 (A68_STD, "mpfrlonglonggammainc", "mpfrqgammainc", m, genie_gamma_inc_mpfr);
1844 a68_id2 (A68_STD, "mpfrlonglonglnbeta", "mpfrqlnbeta", m, genie_ln_beta_mpfr);
1845 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1846 a68_id2 (A68_STD, "mpfrlonglongbetainc", "mpfrqbetainc", m, genie_beta_inc_mpfr);
1847 m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
1848 a68_id2 (A68_EXT, "mpfrlonglongerfc", "mpfrqerfc", m, genie_mpfr_erfc_mp);
1849 a68_id2 (A68_EXT, "mpfrlonglongerf", "mpfrqerf", m, genie_mpfr_erf_mp);
1850 a68_id2 (A68_EXT, "mpfrlonglonggamma", "mpfrqgamma", m, genie_gamma_mpfr);
1851 a68_id2 (A68_EXT, "mpfrlonglonginverfc", "mpfrqinverfc", m, genie_mpfr_inverfc_mp);
1852 a68_id2 (A68_EXT, "mpfrlonglonginverf", "mpfrqinverf", m, genie_mpfr_inverf_mp);
1853 a68_id2 (A68_EXT, "mpfrlonglonglngamma", "mpfrqlngamma", m, genie_lngamma_mpfr);
1854 a68_idf (A68_EXT, "mpfrmp", m, genie_mpfr_mp);
1855 #endif
1856 #endif
1857 }
1858
1859 void stand_transput (void)
1860 {
1861 a68_idf (A68_EXT, "blankcharacter", M_CHAR, genie_blank_char);
1862 a68_idf (A68_EXT, "formfeedcharacter", M_CHAR, genie_formfeed_char);
1863 a68_idf (A68_EXT, "formfeedchar", M_CHAR, genie_formfeed_char);
1864 a68_idf (A68_EXT, "newlinecharacter", M_CHAR, genie_newline_char);
1865 a68_idf (A68_EXT, "newlinechar", M_CHAR, genie_newline_char);
1866 a68_idf (A68_EXT, "nullcharacter", M_CHAR, genie_null_char);
1867 a68_idf (A68_EXT, "tabcharacter", M_CHAR, genie_tab_char);
1868 a68_idf (A68_EXT, "tabchar", M_CHAR, genie_tab_char);
1869 a68_idf (A68_STD, "blankchar", M_CHAR, genie_blank_char);
1870 a68_idf (A68_STD, "blank", M_CHAR, genie_blank_char);
1871 a68_idf (A68_STD, "errorchar", M_CHAR, genie_error_char);
1872 a68_idf (A68_STD, "expchar", M_CHAR, genie_exp_char);
1873 a68_idf (A68_STD, "flip", M_CHAR, genie_flip_char);
1874 a68_idf (A68_STD, "flop", M_CHAR, genie_flop_char);
1875 a68_idf (A68_STD, "nullchar", M_CHAR, genie_null_char);
1876 MOID_T *m = a68_proc (M_STRING, M_HEX_NUMBER, M_INT, M_INT, NO_MOID);
1877 a68_idf (A68_STD, "bits", m, genie_bits);
1878 m = a68_proc (M_STRING, M_NUMBER, M_INT, NO_MOID);
1879 a68_idf (A68_STD, "whole", m, genie_whole);
1880 m = a68_proc (M_STRING, M_NUMBER, M_INT, M_INT, NO_MOID);
1881 a68_idf (A68_STD, "fixed", m, genie_fixed);
1882 m = a68_proc (M_STRING, M_NUMBER, M_INT, M_INT, M_INT, NO_MOID);
1883 a68_idf (A68_STD, "float", m, genie_float);
1884 m = a68_proc (M_STRING, M_NUMBER, M_INT, M_INT, M_INT, M_INT, NO_MOID);
1885 a68_idf (A68_STD, "real", m, genie_real);
1886 a68_idf (A68_STD, "standin", M_REF_FILE, genie_stand_in);
1887 a68_idf (A68_STD, "standout", M_REF_FILE, genie_stand_out);
1888 a68_idf (A68_STD, "standback", M_REF_FILE, genie_stand_back);
1889 a68_idf (A68_EXT, "standerror", M_REF_FILE, genie_stand_error);
1890 a68_idf (A68_STD, "standinchannel", M_CHANNEL, genie_stand_in_channel);
1891 a68_idf (A68_STD, "standoutchannel", M_CHANNEL, genie_stand_out_channel);
1892 a68_idf (A68_EXT, "standdrawchannel", M_CHANNEL, genie_stand_draw_channel);
1893 a68_idf (A68_STD, "standbackchannel", M_CHANNEL, genie_stand_back_channel);
1894 a68_idf (A68_EXT, "standerrorchannel", M_CHANNEL, genie_stand_error_channel);
1895 m = a68_proc (M_VOID, M_REF_FILE, M_STRING, NO_MOID);
1896 a68_idf (A68_STD, "maketerm", m, genie_make_term);
1897 m = a68_proc (M_BOOL, M_CHAR, M_REF_INT, M_STRING, NO_MOID);
1898 a68_idf (A68_STD, "charinstring", m, genie_char_in_string);
1899 a68_idf (A68_EXT, "lastcharinstring", m, genie_last_char_in_string);
1900 m = a68_proc (M_BOOL, M_STRING, M_REF_INT, M_STRING, NO_MOID);
1901 a68_idf (A68_EXT, "stringinstring", m, genie_string_in_string);
1902 m = a68_proc (M_STRING, M_REF_FILE, NO_MOID);
1903 a68_idf (A68_EXT, "idf", m, genie_idf);
1904 a68_idf (A68_EXT, "term", m, genie_term);
1905 m = a68_proc (M_STRING, NO_MOID);
1906 a68_idf (A68_EXT, "programidf", m, genie_program_idf);
1907 // Event routines.
1908 m = a68_proc (M_VOID, M_REF_FILE, M_PROC_REF_FILE_BOOL, NO_MOID);
1909 a68_idf (A68_STD, "onfileend", m, genie_on_file_end);
1910 a68_idf (A68_STD, "onpageend", m, genie_on_page_end);
1911 a68_idf (A68_STD, "onlineend", m, genie_on_line_end);
1912 a68_idf (A68_STD, "onlogicalfileend", m, genie_on_file_end);
1913 a68_idf (A68_STD, "onphysicalfileend", m, genie_on_file_end);
1914 a68_idf (A68_STD, "onformatend", m, genie_on_format_end);
1915 a68_idf (A68_STD, "onformaterror", m, genie_on_format_error);
1916 a68_idf (A68_STD, "onvalueerror", m, genie_on_value_error);
1917 a68_idf (A68_STD, "onopenerror", m, genie_on_open_error);
1918 a68_idf (A68_EXT, "ontransputerror", m, genie_on_transput_error);
1919 // Enquiries on files.
1920 a68_idf (A68_EXT, "drawpossible", M_PROC_REF_FILE_BOOL, genie_draw_possible);
1921 a68_idf (A68_EXT, "endoffile", M_PROC_REF_FILE_BOOL, genie_eof);
1922 a68_idf (A68_EXT, "endofline", M_PROC_REF_FILE_BOOL, genie_eoln);
1923 a68_idf (A68_EXT, "eof", M_PROC_REF_FILE_BOOL, genie_eof);
1924 a68_idf (A68_EXT, "eoln", M_PROC_REF_FILE_BOOL, genie_eoln);
1925 a68_idf (A68_EXT, "rewindpossible", M_PROC_REF_FILE_BOOL, genie_reset_possible);
1926 a68_idf (A68_STD, "binpossible", M_PROC_REF_FILE_BOOL, genie_bin_possible);
1927 a68_idf (A68_STD, "compressible", M_PROC_REF_FILE_BOOL, genie_compressible);
1928 a68_idf (A68_STD, "getpossible", M_PROC_REF_FILE_BOOL, genie_get_possible);
1929 a68_idf (A68_STD, "putpossible", M_PROC_REF_FILE_BOOL, genie_put_possible);
1930 a68_idf (A68_STD, "reidfpossible", M_PROC_REF_FILE_BOOL, genie_reidf_possible);
1931 a68_idf (A68_STD, "resetpossible", M_PROC_REF_FILE_BOOL, genie_reset_possible);
1932 a68_idf (A68_STD, "setpossible", M_PROC_REF_FILE_BOOL, genie_set_possible);
1933 // Handling of files.
1934 m = a68_proc (M_INT, M_REF_FILE, M_STRING, M_CHANNEL, NO_MOID);
1935 a68_idf (A68_STD, "open", m, genie_open);
1936 a68_idf (A68_STD, "establish", m, genie_establish);
1937 m = a68_proc (M_VOID, M_REF_FILE, M_REF_STRING, NO_MOID);
1938 a68_idf (A68_STD, "associate", m, genie_associate);
1939 m = a68_proc (M_INT, M_REF_FILE, M_CHANNEL, NO_MOID);
1940 a68_idf (A68_EXT, "rewind", M_PROC_REF_FILE_VOID, genie_reset);
1941 a68_idf (A68_STD, "backspace", M_PROC_REF_FILE_VOID, genie_backspace);
1942 a68_idf (A68_STD, "close", M_PROC_REF_FILE_VOID, genie_close);
1943 a68_idf (A68_STD, "create", m, genie_create);
1944 a68_idf (A68_STD, "erase", M_PROC_REF_FILE_VOID, genie_erase);
1945 a68_idf (A68_STD, "lock", M_PROC_REF_FILE_VOID, genie_lock);
1946 a68_idf (A68_STD, "newline", M_PROC_REF_FILE_VOID, genie_new_line);
1947 a68_idf (A68_STD, "newpage", M_PROC_REF_FILE_VOID, genie_new_page);
1948 a68_idf (A68_STD, "reset", M_PROC_REF_FILE_VOID, genie_reset);
1949 a68_idf (A68_STD, "scratch", M_PROC_REF_FILE_VOID, genie_erase);
1950 a68_idf (A68_STD, "space", M_PROC_REF_FILE_VOID, genie_space);
1951 m = a68_proc (M_INT, M_REF_FILE, M_INT, NO_MOID);
1952 a68_idf (A68_STD, "set", m, genie_set);
1953 a68_idf (A68_STD, "seek", m, genie_set);
1954 m = a68_proc (M_VOID, M_ROW_SIMPLIN, NO_MOID);
1955 a68_idf (A68_STD, "read", m, genie_read);
1956 a68_idf (A68_STD, "readbin", m, genie_read_bin);
1957 a68_idf (A68_STD, "readf", m, genie_read_format);
1958 m = a68_proc (M_VOID, M_ROW_SIMPLOUT, NO_MOID);
1959 a68_idf (A68_STD, "printbin", m, genie_write_bin);
1960 a68_idf (A68_STD, "printf", m, genie_write_format);
1961 a68_idf (A68_STD, "print", m, genie_write);
1962 a68_idf (A68_STD, "writebin", m, genie_write_bin);
1963 a68_idf (A68_STD, "writef", m, genie_write_format);
1964 a68_idf (A68_STD, "write", m, genie_write);
1965 m = a68_proc (M_VOID, M_REF_FILE, M_ROW_SIMPLIN, NO_MOID);
1966 a68_idf (A68_STD, "get", m, genie_read_file);
1967 a68_idf (A68_STD, "getf", m, genie_read_file_format);
1968 a68_idf (A68_STD, "getbin", m, genie_read_bin_file);
1969 m = a68_proc (M_VOID, M_REF_FILE, M_ROW_SIMPLOUT, NO_MOID);
1970 a68_idf (A68_STD, "put", m, genie_write_file);
1971 a68_idf (A68_STD, "putf", m, genie_write_file_format);
1972 a68_idf (A68_STD, "putbin", m, genie_write_bin_file);
1973 m = a68_proc (M_VOID, M_REF_STRING, M_ROW_SIMPLIN, NO_MOID);
1974 a68_idf (A68_EXT, "gets", m, genie_get_text);
1975 a68_idf (A68_EXT, "getsf", m, genie_getf_text);
1976 m = a68_proc (M_VOID, M_REF_STRING, M_ROW_SIMPLOUT, NO_MOID);
1977 a68_idf (A68_EXT, "puts", m, genie_put_text);
1978 a68_idf (A68_EXT, "putsf", m, genie_putf_text);
1979 m = a68_proc (M_REF_STRING, M_REF_STRING, M_ROW_SIMPLOUT, NO_MOID);
1980 a68_idf (A68_EXT, "string", m, genie_string);
1981 a68_idf (A68_EXT, "stringf", m, genie_stringf);
1982 A68C_DEFIO (bits, bits, BITS);
1983 A68C_DEFIO (bool, bool, BOOL);
1984 A68C_DEFIO (char, char, CHAR);
1985 A68C_DEFIO (compl, complex, COMPLEX);
1986 A68C_DEFIO (complex, complex, COMPLEX);
1987 A68C_DEFIO (double, long_real, LONG_REAL);
1988 A68C_DEFIO (int, int, INT);
1989 A68C_DEFIO (longbits, long_bits, LONG_BITS);
1990 A68C_DEFIO (longcomplex, mp_complex, LONG_COMPLEX);
1991 A68C_DEFIO (longcompl, mp_complex, LONG_COMPLEX);
1992 A68C_DEFIO (longint, long_int, LONG_INT);
1993 A68C_DEFIO (longlongcomplex, long_mp_complex, LONG_LONG_COMPLEX);
1994 A68C_DEFIO (longlongcompl, long_mp_complex, LONG_LONG_COMPLEX);
1995 A68C_DEFIO (longlongint, long_mp_int, LONG_LONG_INT);
1996 A68C_DEFIO (longlongreal, long_mp_real, LONG_LONG_REAL);
1997 A68C_DEFIO (longreal, long_real, LONG_REAL);
1998 A68C_DEFIO (quad, long_mp_real, LONG_LONG_REAL);
1999 A68C_DEFIO (real, real, REAL);
2000 A68C_DEFIO (string, string, STRING);
2001 a68_idf (A68_EXT, "readline", M_PROC_STRING, genie_read_line);
2002 }
2003
2004 //! @brief Set up standenv - extensions.
2005
2006 void stand_extensions (void)
2007 {
2008 // UNIX things.
2009 MOID_T *m = A68_MCACHE (proc_int);
2010 a68_idf (A68_EXT, "rows", m, genie_rows);
2011 a68_idf (A68_EXT, "columns", m, genie_columns);
2012 a68_idf (A68_EXT, "argc", m, genie_argc);
2013 a68_idf (A68_EXT, "a68gargc", m, genie_a68g_argc);
2014 a68_idf (A68_EXT, "errno", m, genie_errno);
2015 a68_idf (A68_EXT, "fork", m, genie_fork);
2016 m = a68_proc (M_STRING, NO_MOID);
2017 a68_idf (A68_EXT, "getpwd", m, genie_pwd);
2018 m = a68_proc (M_INT, M_STRING, NO_MOID);
2019 a68_idf (A68_EXT, "setpwd", m, genie_cd);
2020 m = a68_proc (M_BOOL, M_STRING, NO_MOID);
2021 a68_idf (A68_EXT, "fileisdirectory", m, genie_file_is_directory);
2022 a68_idf (A68_EXT, "fileisblockdevice", m, genie_file_is_block_device);
2023 a68_idf (A68_EXT, "fileischardevice", m, genie_file_is_char_device);
2024 a68_idf (A68_EXT, "fileisregular", m, genie_file_is_regular);
2025 #if defined (S_ISFIFO)
2026 a68_idf (A68_EXT, "fileisfifo", m, genie_file_is_fifo);
2027 #endif
2028 #if defined (S_ISLNK)
2029 a68_idf (A68_EXT, "fileislink", m, genie_file_is_link);
2030 #endif
2031 m = a68_proc (M_BITS, M_STRING, NO_MOID);
2032 a68_idf (A68_EXT, "filemode", m, genie_file_mode);
2033 m = a68_proc (M_STRING, M_INT, NO_MOID);
2034 a68_idf (A68_EXT, "argv", m, genie_argv);
2035 a68_idf (A68_EXT, "a68gargv", m, genie_a68g_argv);
2036 a68_idf (A68_EXT, "reseterrno", A68_MCACHE (proc_void), genie_reset_errno);
2037 m = a68_proc (M_STRING, M_INT, NO_MOID);
2038 a68_idf (A68_EXT, "strerror", m, genie_strerror);
2039 m = a68_proc (M_INT, M_STRING, M_ROW_STRING, M_ROW_STRING, NO_MOID);
2040 a68_idf (A68_EXT, "exec", m, genie_exec);
2041 a68_idf (A68_EXT, "execve", m, genie_exec);
2042 m = a68_proc (M_PIPE, NO_MOID);
2043 a68_idf (A68_EXT, "createpipe", m, genie_create_pipe);
2044 m = a68_proc (M_INT, M_STRING, M_ROW_STRING, M_ROW_STRING, NO_MOID);
2045 a68_idf (A68_EXT, "execsub", m, genie_exec_sub);
2046 a68_idf (A68_EXT, "execvechild", m, genie_exec_sub);
2047 m = a68_proc (M_PIPE, M_STRING, M_ROW_STRING, M_ROW_STRING, NO_MOID);
2048 a68_idf (A68_EXT, "execsubpipeline", m, genie_exec_sub_pipeline);
2049 a68_idf (A68_EXT, "execvechildpipe", m, genie_exec_sub_pipeline);
2050 m = a68_proc (M_INT, M_STRING, M_ROW_STRING, M_ROW_STRING, M_REF_STRING, NO_MOID);
2051 a68_idf (A68_EXT, "execsuboutput", m, genie_exec_sub_output);
2052 a68_idf (A68_EXT, "execveoutput", m, genie_exec_sub_output);
2053 m = a68_proc (M_STRING, M_STRING, NO_MOID);
2054 a68_idf (A68_EXT, "getenv", m, genie_getenv);
2055 m = a68_proc (M_VOID, M_INT, NO_MOID);
2056 a68_idf (A68_EXT, "waitpid", m, genie_waitpid);
2057 m = a68_proc (M_ROW_INT, NO_MOID);
2058 a68_idf (A68_EXT, "utctime", m, genie_utctime);
2059 a68_idf (A68_EXT, "localtime", m, genie_localtime);
2060 m = a68_proc (M_INT, M_STRING, M_STRING, M_REF_INT, M_REF_INT, NO_MOID);
2061 a68_idf (A68_EXT, "grepinstring", m, genie_grep_in_string);
2062 a68_idf (A68_EXT, "grepinsubstring", m, genie_grep_in_substring);
2063 m = a68_proc (M_INT, M_STRING, M_STRING, M_REF_STRING, NO_MOID);
2064 a68_idf (A68_EXT, "subinstring", m, genie_sub_in_string);
2065 #if defined (HAVE_DIRENT_H)
2066 m = a68_proc (M_ROW_STRING, M_STRING, NO_MOID);
2067 a68_idf (A68_EXT, "getdirectory", m, genie_directory);
2068 #endif
2069 #if defined (HAVE_CURL)
2070 m = a68_proc (M_INT, M_REF_STRING, M_STRING, M_STRING, M_INT, NO_MOID);
2071 a68_idf (A68_EXT, "httpcontent", m, genie_http_content);
2072 a68_idf (A68_EXT, "httpscontent", m, genie_https_content);
2073 #endif
2074 }
2075
2076 #if defined (HAVE_GNU_PLOTUTILS)
2077
2078 void stand_plot (void)
2079 {
2080 // Drawing.
2081 MOID_T *m = a68_proc (M_BOOL, M_REF_FILE, M_STRING, M_STRING, NO_MOID);
2082 a68_idf (A68_EXT, "drawdevice", m, genie_make_device);
2083 a68_idf (A68_EXT, "makedevice", m, genie_make_device);
2084 m = a68_proc (M_REAL, M_REF_FILE, NO_MOID);
2085 a68_idf (A68_EXT, "drawaspect", m, genie_draw_aspect);
2086 m = a68_proc (M_VOID, M_REF_FILE, NO_MOID);
2087 a68_idf (A68_EXT, "drawclear", m, genie_draw_clear);
2088 a68_idf (A68_EXT, "drawerase", m, genie_draw_clear);
2089 a68_idf (A68_EXT, "drawflush", m, genie_draw_show);
2090 a68_idf (A68_EXT, "drawshow", m, genie_draw_show);
2091 m = a68_proc (M_VOID, M_REF_FILE, M_INT, NO_MOID);
2092 a68_idf (A68_EXT, "drawfillstyle", m, genie_draw_fillstyle);
2093 m = a68_proc (M_STRING, M_INT, NO_MOID);
2094 a68_idf (A68_EXT, "drawgetcolourname", m, genie_draw_get_colour_name);
2095 a68_idf (A68_EXT, "drawgetcolorname", m, genie_draw_get_colour_name);
2096 m = a68_proc (M_VOID, M_REF_FILE, M_REAL, M_REAL, M_REAL, NO_MOID);
2097 a68_idf (A68_EXT, "drawcolor", m, genie_draw_colour);
2098 a68_idf (A68_EXT, "drawcolour", m, genie_draw_colour);
2099 a68_idf (A68_EXT, "drawbackgroundcolor", m, genie_draw_background_colour);
2100 a68_idf (A68_EXT, "drawbackgroundcolour", m, genie_draw_background_colour);
2101 a68_idf (A68_EXT, "drawcircle", m, genie_draw_circle);
2102 a68_idf (A68_EXT, "drawball", m, genie_draw_atom);
2103 a68_idf (A68_EXT, "drawstar", m, genie_draw_star);
2104 m = a68_proc (M_VOID, M_REF_FILE, M_REAL, M_REAL, NO_MOID);
2105 a68_idf (A68_EXT, "drawpoint", m, genie_draw_point);
2106 a68_idf (A68_EXT, "drawline", m, genie_draw_line);
2107 a68_idf (A68_EXT, "drawmove", m, genie_draw_move);
2108 a68_idf (A68_EXT, "drawrect", m, genie_draw_rect);
2109 m = a68_proc (M_VOID, M_REF_FILE, M_CHAR, M_CHAR, M_ROW_CHAR, NO_MOID);
2110 a68_idf (A68_EXT, "drawtext", m, genie_draw_text);
2111 m = a68_proc (M_VOID, M_REF_FILE, M_ROW_CHAR, NO_MOID);
2112 a68_idf (A68_EXT, "drawlinestyle", m, genie_draw_linestyle);
2113 a68_idf (A68_EXT, "drawfontname", m, genie_draw_fontname);
2114 m = a68_proc (M_VOID, M_REF_FILE, M_REAL, NO_MOID);
2115 a68_idf (A68_EXT, "drawlinewidth", m, genie_draw_linewidth);
2116 m = a68_proc (M_VOID, M_REF_FILE, M_INT, NO_MOID);
2117 a68_idf (A68_EXT, "drawfontsize", m, genie_draw_fontsize);
2118 a68_idf (A68_EXT, "drawtextangle", m, genie_draw_textangle);
2119 m = a68_proc (M_VOID, M_REF_FILE, M_STRING, NO_MOID);
2120 a68_idf (A68_EXT, "drawcolorname", m, genie_draw_colour_name);
2121 a68_idf (A68_EXT, "drawcolourname", m, genie_draw_colour_name);
2122 a68_idf (A68_EXT, "drawbackgroundcolorname", m, genie_draw_background_colour_name);
2123 a68_idf (A68_EXT, "drawbackgroundcolourname", m, genie_draw_background_colour_name);
2124 }
2125
2126 #endif
2127
2128 #if defined (HAVE_CURSES)
2129
2130 void stand_curses (void)
2131 {
2132 a68_idf (A68_EXT, "cursesstart", A68_MCACHE (proc_void), genie_curses_start);
2133 a68_idf (A68_EXT, "cursesend", A68_MCACHE (proc_void), genie_curses_end);
2134 a68_idf (A68_EXT, "cursesclear", A68_MCACHE (proc_void), genie_curses_clear);
2135 a68_idf (A68_EXT, "cursesrefresh", A68_MCACHE (proc_void), genie_curses_refresh);
2136 a68_idf (A68_EXT, "cursesgreen", A68_MCACHE (proc_void), genie_curses_green);
2137 a68_idf (A68_EXT, "cursescyan", A68_MCACHE (proc_void), genie_curses_cyan);
2138 a68_idf (A68_EXT, "cursesred", A68_MCACHE (proc_void), genie_curses_red);
2139 a68_idf (A68_EXT, "cursesyellow", A68_MCACHE (proc_void), genie_curses_yellow);
2140 a68_idf (A68_EXT, "cursesmagenta", A68_MCACHE (proc_void), genie_curses_magenta);
2141 a68_idf (A68_EXT, "cursesblue", A68_MCACHE (proc_void), genie_curses_blue);
2142 a68_idf (A68_EXT, "curseswhite", A68_MCACHE (proc_void), genie_curses_white);
2143 a68_idf (A68_EXT, "cursesgreeninverse", A68_MCACHE (proc_void), genie_curses_green_inverse);
2144 a68_idf (A68_EXT, "cursescyaninverse", A68_MCACHE (proc_void), genie_curses_cyan_inverse);
2145 a68_idf (A68_EXT, "cursesredinverse", A68_MCACHE (proc_void), genie_curses_red_inverse);
2146 a68_idf (A68_EXT, "cursesyellowinverse", A68_MCACHE (proc_void), genie_curses_yellow_inverse);
2147 a68_idf (A68_EXT, "cursesmagentainverse", A68_MCACHE (proc_void), genie_curses_magenta_inverse);
2148 a68_idf (A68_EXT, "cursesblueinverse", A68_MCACHE (proc_void), genie_curses_blue_inverse);
2149 a68_idf (A68_EXT, "curseswhiteinverse", A68_MCACHE (proc_void), genie_curses_white_inverse);
2150 MOID_T *m = A68_MCACHE (proc_char);
2151 a68_idf (A68_EXT, "cursesgetchar", m, genie_curses_getchar);
2152 m = a68_proc (M_VOID, M_CHAR, NO_MOID);
2153 a68_idf (A68_EXT, "cursesputchar", m, genie_curses_putchar);
2154 m = a68_proc (M_VOID, M_INT, M_INT, NO_MOID);
2155 a68_idf (A68_EXT, "cursesmove", m, genie_curses_move);
2156 m = A68_MCACHE (proc_int);
2157 a68_idf (A68_EXT, "curseslines", m, genie_curses_lines);
2158 a68_idf (A68_EXT, "cursescolumns", m, genie_curses_columns);
2159 m = a68_proc (M_BOOL, M_CHAR, NO_MOID);
2160 a68_idf (A68_EXT, "cursesdelchar", m, genie_curses_del_char);
2161 }
2162
2163 #endif
2164
2165 #if defined (HAVE_POSTGRESQL)
2166
2167 void stand_postgresql (void)
2168 {
2169 MOID_T *m = a68_proc (M_INT, M_REF_FILE, M_STRING, M_REF_STRING, NO_MOID);
2170 a68_idf (A68_EXT, "pqconnectdb", m, genie_pq_connectdb);
2171 m = a68_proc (M_INT, M_REF_FILE, NO_MOID);
2172 a68_idf (A68_EXT, "pqfinish", m, genie_pq_finish);
2173 a68_idf (A68_EXT, "pqreset", m, genie_pq_reset);
2174 m = a68_proc (M_INT, M_REF_FILE, M_STRING, NO_MOID);
2175 a68_idf (A68_EXT, "pqparameterstatus", m, genie_pq_parameterstatus);
2176 a68_idf (A68_EXT, "pqexec", m, genie_pq_exec);
2177 a68_idf (A68_EXT, "pqfnumber", m, genie_pq_fnumber);
2178 m = a68_proc (M_INT, M_REF_FILE, NO_MOID);
2179 a68_idf (A68_EXT, "pqntuples", m, genie_pq_ntuples);
2180 a68_idf (A68_EXT, "pqnfields", m, genie_pq_nfields);
2181 a68_idf (A68_EXT, "pqcmdstatus", m, genie_pq_cmdstatus);
2182 a68_idf (A68_EXT, "pqcmdtuples", m, genie_pq_cmdtuples);
2183 a68_idf (A68_EXT, "pqerrormessage", m, genie_pq_errormessage);
2184 a68_idf (A68_EXT, "pqresulterrormessage", m, genie_pq_resulterrormessage);
2185 a68_idf (A68_EXT, "pqdb", m, genie_pq_db);
2186 a68_idf (A68_EXT, "pquser", m, genie_pq_user);
2187 a68_idf (A68_EXT, "pqpass", m, genie_pq_pass);
2188 a68_idf (A68_EXT, "pqhost", m, genie_pq_host);
2189 a68_idf (A68_EXT, "pqport", m, genie_pq_port);
2190 a68_idf (A68_EXT, "pqtty", m, genie_pq_tty);
2191 a68_idf (A68_EXT, "pqoptions", m, genie_pq_options);
2192 a68_idf (A68_EXT, "pqprotocolversion", m, genie_pq_protocolversion);
2193 a68_idf (A68_EXT, "pqserverversion", m, genie_pq_serverversion);
2194 a68_idf (A68_EXT, "pqsocket", m, genie_pq_socket);
2195 a68_idf (A68_EXT, "pqbackendpid", m, genie_pq_backendpid);
2196 m = a68_proc (M_INT, M_REF_FILE, M_INT, NO_MOID);
2197 a68_idf (A68_EXT, "pqfname", m, genie_pq_fname);
2198 a68_idf (A68_EXT, "pqfformat", m, genie_pq_fformat);
2199 m = a68_proc (M_INT, M_REF_FILE, M_INT, M_INT, NO_MOID);
2200 a68_idf (A68_EXT, "pqgetvalue", m, genie_pq_getvalue);
2201 a68_idf (A68_EXT, "pqgetisnull", m, genie_pq_getisnull);
2202 }
2203
2204 #endif
2205
2206 #if defined (BUILD_LINUX) && defined (HAVE_EXECINFO_H)
2207 void stand_linux (void)
2208 {
2209 a68_idf (A68_EXT, "sigsegv", A68_MCACHE (proc_void), genie_sigsegv);
2210 }
2211 #endif
2212
2213 //! @brief Build the standard environ symbol table.
2214
2215 void make_standard_environ (void)
2216 {
2217 stand_moids ();
2218 A68_MCACHE (proc_bool) = a68_proc (M_BOOL, NO_MOID);
2219 A68_MCACHE (proc_char) = a68_proc (M_CHAR, NO_MOID);
2220 A68_MCACHE (proc_complex_complex) = a68_proc (M_COMPLEX, M_COMPLEX, NO_MOID);
2221 A68_MCACHE (proc_int) = a68_proc (M_INT, NO_MOID);
2222 A68_MCACHE (proc_int_int) = a68_proc (M_INT, M_INT, NO_MOID);
2223 A68_MCACHE (proc_int_int_real) = a68_proc (M_REAL, M_INT, M_INT, NO_MOID);
2224 A68_MCACHE (proc_int_real) = a68_proc (M_REAL, M_INT, NO_MOID);
2225 A68_MCACHE (proc_int_real_real) = a68_proc (M_REAL, M_INT, M_REAL, NO_MOID);
2226 A68_MCACHE (proc_int_real_real_real) = a68_proc (M_REAL, M_INT, M_REAL, M_REAL, NO_MOID);
2227 A68_MCACHE (proc_real) = a68_proc (M_REAL, NO_MOID);
2228 A68_MCACHE (proc_real_int_real) = a68_proc (M_REAL, M_REAL, M_INT, NO_MOID);
2229 A68_MCACHE (proc_real_real_int_real) = a68_proc (M_REAL, M_REAL, M_REAL, M_INT, NO_MOID);
2230 A68_MCACHE (proc_real_real) = M_PROC_REAL_REAL;
2231 A68_MCACHE (proc_real_real_real) = a68_proc (M_REAL, M_REAL, M_REAL, NO_MOID);
2232 A68_MCACHE (proc_real_real_real_int) = a68_proc (M_INT, M_REAL, M_REAL, M_REAL, NO_MOID);
2233 A68_MCACHE (proc_real_real_real_real) = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID);
2234 A68_MCACHE (proc_real_real_real_real_real) = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID);
2235 A68_MCACHE (proc_real_real_real_real_real_real) = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID);
2236 A68_MCACHE (proc_real_ref_real_ref_int_void) = a68_proc (M_VOID, M_REAL, M_REF_REAL, M_REF_INT, NO_MOID);
2237 A68_MCACHE (proc_void) = a68_proc (M_VOID, NO_MOID);
2238 stand_prelude ();
2239 stand_mp_level_2 ();
2240 stand_mp_level_3 ();
2241 stand_transput ();
2242 stand_extensions ();
2243 #if (A68_LEVEL <= 2)
2244 stand_longlong_bits ();
2245 #endif
2246 #if defined (BUILD_LINUX)
2247 stand_linux ();
2248 #endif
2249 #if defined (HAVE_GSL)
2250 stand_gsl ();
2251 #endif
2252 #if defined (HAVE_MATHLIB)
2253 stand_mathlib ();
2254 #endif
2255 #if defined (HAVE_GNU_PLOTUTILS)
2256 stand_plot ();
2257 #endif
2258 #if defined (HAVE_CURSES)
2259 stand_curses ();
2260 #endif
2261 #if defined (HAVE_POSTGRESQL)
2262 stand_postgresql ();
2263 #endif
2264 }
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|