/* Standard prelude definitions. Copyright (C) 2001-2023 J. Marcel van der Veer. Copyright (C) 2025 Jose E. Marchesi. Original implementation by J. Marcel van der Veer. Adapted for GCC by Jose E. Marchesi. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . */ #include "config.h" #include "system.h" #include "coretypes.h" #include "a68.h" #define A68_STD true #define A68_EXT false /* ALGOL68C type procs. */ #define A68C_DEFIO(name, mode) \ do \ { \ m = a68_proc (MODE (mode), M_REF_FILE, NO_MOID); \ a68_idf (A68_EXT, "get" #name, m); \ m = a68_proc (M_VOID, M_REF_FILE, MODE (mode), NO_MOID); \ a68_idf (A68_EXT, "put" #name, m); \ m = a68_proc (MODE (mode), NO_MOID); \ a68_idf (A68_EXT, "read" #name, m); \ m = a68_proc (M_VOID, MODE (mode), NO_MOID); \ a68_idf (A68_EXT, "print" #name, m); \ } \ while (0) /* Enter tag in standenv symbol table. */ static void add_a68_standenv (bool portable, int a, NODE_T* n, char *c, MOID_T *m, int p, LOWERER_T l = NO_LOWERER) { #define INSERT_TAG(l, n) \ do { \ NEXT (n) = *(l); \ *(l) = (n); \ } while (0) TAG_T *new_one = a68_new_tag (); PROCEDURE_LEVEL (INFO (n)) = 0; USE (new_one) = false; HEAP (new_one) = HEAP_SYMBOL; TAG_TABLE (new_one) = A68_STANDENV; NODE (new_one) = n; if (c != NO_TEXT) VALUE (new_one) = TEXT (a68_add_token (&A68 (top_token), c)); else VALUE (new_one) = NO_TEXT; PRIO (new_one) = p; TAX_TREE_DECL (new_one) = NULL; LOWERER (new_one) = l; UNIT (new_one) = NULL; PORTABLE (new_one) = portable; MOID (new_one) = m; NEXT (new_one) = NO_TAG; if (a == IDENTIFIER) INSERT_TAG (&IDENTIFIERS (A68_STANDENV), new_one); else if (a == OP_SYMBOL) INSERT_TAG (&OPERATORS (A68_STANDENV), new_one); else if (a == PRIO_SYMBOL) INSERT_TAG (&PRIO (A68_STANDENV), new_one); else if (a == INDICANT) INSERT_TAG (&INDICANTS (A68_STANDENV), new_one); else if (a == LABEL) INSERT_TAG (&LABELS (A68_STANDENV), new_one); #undef INSERT_TAG } /* Compose PROC moid from arguments - first result, than arguments. */ static MOID_T * a68_proc (MOID_T *m, ...) { PACK_T *p = NO_PACK, *q = NO_PACK; MOID_T *y; va_list attribute; va_start (attribute, m); while ((y = va_arg (attribute, MOID_T *)) != NO_MOID) { PACK_T *new_one = a68_new_pack (); MOID (new_one) = y; TEXT (new_one) = NO_TEXT; NEXT (new_one) = NO_PACK; if (q != NO_PACK) NEXT (q) = new_one; else p = new_one; q = new_one; } va_end (attribute); return a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, a68_count_pack_members (p), NO_NODE, m, p); } /* Enter an identifier in standenv. */ static void a68_idf (bool portable, const char *n, MOID_T *m, LOWERER_T l = NO_LOWERER) { add_a68_standenv (portable, IDENTIFIER, a68_some_node (TEXT (a68_add_token (&A68 (top_token), n))), NO_TEXT, m, 0, l); } /* Enter a moid in standenv. */ static void a68_mode (int p, const char *t, MOID_T **m) { (*m) = a68_add_mode (&TOP_MOID (&A68_JOB), STANDARD, p, a68_some_node (TEXT (a68_find_keyword (A68 (top_keyword), t))), NO_MOID, NO_PACK); } /* Enter a priority in standenv. */ static void a68_prio (const char *p, int b) { add_a68_standenv (true, PRIO_SYMBOL, a68_some_node (TEXT (a68_add_token (&A68 (top_token), p))), NO_TEXT, NO_MOID, b, NO_LOWERER); } /* Enter operator in standenv. */ static void a68_op (bool portable, const char *n, MOID_T *m, LOWERER_T l = NO_LOWERER) { add_a68_standenv (portable, OP_SYMBOL, a68_some_node (TEXT (a68_add_token (&A68 (top_token), n))), NO_TEXT, m, 0, l); } /* Enter standard modes in standenv. */ static void stand_moids (void) { /* Primitive A68 moids. */ a68_mode (0, "VOID", &M_VOID); /* Standard precision. */ a68_mode (0, "INT", &M_INT); a68_mode (0, "REAL", &M_REAL); a68_mode (0, "COMPL", &M_COMPLEX); a68_mode (0, "BITS", &M_BITS); a68_mode (0, "BYTES", &M_BYTES); /* Multiple precision. */ a68_mode (-2, "INT", &M_SHORT_SHORT_INT); a68_mode (-2, "BITS", &M_SHORT_SHORT_BITS); a68_mode (-1, "INT", &M_SHORT_INT); a68_mode (-1, "BITS", &M_SHORT_BITS); a68_mode (1, "INT", &M_LONG_INT); a68_mode (1, "REAL", &M_LONG_REAL); a68_mode (1, "COMPL", &M_LONG_COMPLEX); a68_mode (1, "BITS", &M_LONG_BITS); a68_mode (1, "BYTES", &M_LONG_BYTES); a68_mode (2, "REAL", &M_LONG_LONG_REAL); a68_mode (2, "INT", &M_LONG_LONG_INT); a68_mode (2, "BITS", &M_LONG_LONG_BITS); a68_mode (2, "COMPL", &M_LONG_LONG_COMPLEX); /* Other. */ a68_mode (0, "BOOL", &M_BOOL); a68_mode (0, "CHAR", &M_CHAR); a68_mode (0, "STRING", &M_STRING); a68_mode (0, "FILE", &M_FILE); a68_mode (0, "CHANNEL", &M_CHANNEL); a68_mode (0, "SEMA", &M_SEMA); /* Rows. */ M_ROWS = a68_add_mode (&TOP_MOID (&A68_JOB), ROWS_SYMBOL, 0, NO_NODE, NO_MOID, NO_PACK); /* REFs. */ M_REF_INT = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_INT, NO_PACK); M_REF_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_REAL, NO_PACK); M_REF_COMPLEX = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_COMPLEX, NO_PACK); M_REF_BITS = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_BITS, NO_PACK); M_REF_BYTES = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_BYTES, NO_PACK); /* Multiple precision. */ M_REF_LONG_INT = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_INT, NO_PACK); M_REF_LONG_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_REAL, NO_PACK); M_REF_LONG_COMPLEX = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_COMPLEX, NO_PACK); M_REF_LONG_LONG_INT = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_INT, NO_PACK); M_REF_LONG_LONG_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_REAL, NO_PACK); M_REF_LONG_LONG_COMPLEX = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_COMPLEX, NO_PACK); M_REF_LONG_BITS = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_BITS, NO_PACK); M_REF_LONG_LONG_BITS = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_BITS, NO_PACK); M_REF_LONG_BYTES = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_BYTES, NO_PACK); M_REF_SHORT_INT = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_SHORT_INT, NO_PACK); M_REF_SHORT_SHORT_INT = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_SHORT_SHORT_INT, NO_PACK ); M_REF_SHORT_BITS = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_SHORT_BITS, NO_PACK); M_REF_SHORT_SHORT_BITS = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_SHORT_SHORT_BITS, NO_PACK); /* Other. */ M_REF_BOOL = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_BOOL, NO_PACK); M_REF_CHAR = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_CHAR, NO_PACK); M_REF_FILE = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_FILE, NO_PACK); M_REF_REF_FILE = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_REF_FILE, NO_PACK); /* [] INT. */ M_ROW_INT = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_INT, NO_PACK); HAS_ROWS (M_ROW_INT) = true; SLICE (M_ROW_INT) = M_INT; M_REF_ROW_INT = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_INT, NO_PACK); NAME (M_REF_ROW_INT) = M_REF_INT; /* [] REAL. */ M_ROW_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_REAL, NO_PACK); HAS_ROWS (M_ROW_REAL) = true; SLICE (M_ROW_REAL) = M_REAL; M_REF_ROW_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_REAL, NO_PACK); NAME (M_REF_ROW_REAL) = M_REF_REAL; /* [,] REAL. */ M_ROW_ROW_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 2, NO_NODE, M_REAL, NO_PACK); HAS_ROWS (M_ROW_ROW_REAL) = true; SLICE (M_ROW_ROW_REAL) = M_ROW_REAL; M_REF_ROW_ROW_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_ROW_REAL, NO_PACK); NAME (M_REF_ROW_ROW_REAL) = M_REF_ROW_REAL; /* [] COMPLEX. */ M_ROW_COMPLEX = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_COMPLEX, NO_PACK); HAS_ROWS (M_ROW_COMPLEX) = true; SLICE (M_ROW_COMPLEX) = M_COMPLEX; M_REF_ROW_COMPLEX = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_COMPLEX, NO_PACK); NAME (M_REF_ROW_COMPLEX) = M_REF_COMPLEX; /* [,] COMPLEX. */ M_ROW_ROW_COMPLEX = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 2, NO_NODE, M_COMPLEX, NO_PACK); HAS_ROWS (M_ROW_ROW_COMPLEX) = true; SLICE (M_ROW_ROW_COMPLEX) = M_ROW_COMPLEX; M_REF_ROW_ROW_COMPLEX = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_ROW_COMPLEX, NO_PACK); NAME (M_REF_ROW_ROW_COMPLEX) = M_REF_ROW_COMPLEX; /* [] BOOL. */ M_ROW_BOOL = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_BOOL, NO_PACK); HAS_ROWS (M_ROW_BOOL) = true; SLICE (M_ROW_BOOL) = M_BOOL; /* FLEX [] BOOL. */ MOID_T *m = a68_add_mode (&TOP_MOID (&A68_JOB), FLEX_SYMBOL, 0, NO_NODE, M_ROW_BOOL, NO_PACK); HAS_ROWS (m) = true; M_FLEX_ROW_BOOL = m; /* [] BITS. */ M_ROW_BITS = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_BITS, NO_PACK); HAS_ROWS (M_ROW_BITS) = true; SLICE (M_ROW_BITS) = M_BITS; /* [] CHAR. */ M_ROW_CHAR = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_CHAR, NO_PACK); HAS_ROWS (M_ROW_CHAR) = true; SLICE (M_ROW_CHAR) = M_CHAR; /* [][] CHAR. */ M_ROW_ROW_CHAR = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_ROW_CHAR, NO_PACK); HAS_ROWS (M_ROW_ROW_CHAR) = true; SLICE (M_ROW_ROW_CHAR) = M_ROW_CHAR; /* MODE STRING = FLEX [] CHAR. */ m = a68_add_mode (&TOP_MOID (&A68_JOB), FLEX_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK); HAS_ROWS (m) = true; M_FLEX_ROW_CHAR = m; EQUIVALENT (M_STRING) = m; /* REF [] CHAR. */ M_REF_ROW_CHAR = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK); NAME (M_REF_ROW_CHAR) = M_REF_CHAR; /* PROC [] CHAR. */ M_PROC_ROW_CHAR = a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK); /* REF STRING = REF FLEX [] CHAR. */ M_REF_STRING = a68_add_mode (&TOP_MOID (&A68_JOB), REF_SYMBOL, 0, NO_NODE, EQUIVALENT (M_STRING), NO_PACK); NAME (M_REF_STRING) = M_REF_CHAR; DEFLEXED (M_REF_STRING) = M_REF_ROW_CHAR; /* [] STRING. */ M_ROW_STRING = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_STRING, NO_PACK); HAS_ROWS (M_ROW_STRING) = true; SLICE (M_ROW_STRING) = M_STRING; DEFLEXED (M_ROW_STRING) = M_ROW_ROW_CHAR; /* PROC STRING. */ M_PROC_STRING = a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, 0, NO_NODE, M_STRING, NO_PACK); DEFLEXED (M_PROC_STRING) = M_PROC_ROW_CHAR; /* COMPLEX. */ PACK_T *z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REAL, TEXT (a68_add_token (&A68 (top_token), "im")), NO_NODE); (void) a68_add_mode_to_pack (&z, M_REAL, TEXT (a68_add_token (&A68 (top_token), "re")), NO_NODE); m = a68_add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); EQUIVALENT (M_COMPLEX) = m; z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REF_REAL, TEXT (a68_add_token (&A68 (top_token), "im")), NO_NODE); (void) a68_add_mode_to_pack (&z, M_REF_REAL, TEXT (a68_add_token (&A68 (top_token), "re")), NO_NODE); m = a68_add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); NAME (M_REF_COMPLEX) = m; /* LONG COMPLEX. */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "im")), NO_NODE); (void) a68_add_mode_to_pack (&z, M_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "re")), NO_NODE); m = a68_add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); EQUIVALENT (M_LONG_COMPLEX) = m; z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REF_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "im")), NO_NODE); (void) a68_add_mode_to_pack (&z, M_REF_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "re")), NO_NODE); m = a68_add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); NAME (M_REF_LONG_COMPLEX) = m; /* LONG_LONG COMPLEX. */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_LONG_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "im")), NO_NODE); (void) a68_add_mode_to_pack (&z, M_LONG_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "re")), NO_NODE); m = a68_add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); EQUIVALENT (M_LONG_LONG_COMPLEX) = m; z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REF_LONG_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "im")), NO_NODE); (void) a68_add_mode_to_pack (&z, M_REF_LONG_LONG_REAL, TEXT (a68_add_token (&A68 (top_token), "re")), NO_NODE); m = a68_add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); NAME (M_REF_LONG_LONG_COMPLEX) = m; /* SEMA. */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REF_INT, NO_TEXT, NO_NODE); EQUIVALENT (M_SEMA) = a68_add_mode (&TOP_MOID (&A68_JOB), STRUCT_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); /* PROC VOID. */ z = NO_PACK; M_PROC_VOID = a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, a68_count_pack_members (z), NO_NODE, M_VOID, z); /* PROC (REAL) REAL. */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE); M_PROC_REAL_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, a68_count_pack_members (z), NO_NODE, M_REAL, z); /* PROC (LONG_REAL) LONG_REAL. */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE); M_PROC_LONG_REAL_LONG_REAL = a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, a68_count_pack_members (z), NO_NODE, M_LONG_REAL, z); /* IO: PROC (REF FILE) BOOL. */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REF_FILE, NO_TEXT, NO_NODE); M_PROC_REF_FILE_BOOL = a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, a68_count_pack_members (z), NO_NODE, M_BOOL, z); /* IO: PROC (REF FILE) VOID. */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_REF_FILE, NO_TEXT, NO_NODE); M_PROC_REF_FILE_VOID = a68_add_mode (&TOP_MOID (&A68_JOB), PROC_SYMBOL, a68_count_pack_members (z), NO_NODE, M_VOID, z); /* IO: SIMPLIN and SIMPLOUT. */ M_SIMPLIN = a68_add_mode (&TOP_MOID (&A68_JOB), IN_TYPE_MODE, 0, NO_NODE, NO_MOID, NO_PACK); M_ROW_SIMPLIN = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_SIMPLIN, NO_PACK); SLICE (M_ROW_SIMPLIN) = M_SIMPLIN; M_SIMPLOUT = a68_add_mode (&TOP_MOID (&A68_JOB), OUT_TYPE_MODE, 0, NO_NODE, NO_MOID, NO_PACK); M_ROW_SIMPLOUT = a68_add_mode (&TOP_MOID (&A68_JOB), ROW_SYMBOL, 1, NO_NODE, M_SIMPLOUT, NO_PACK); SLICE (M_ROW_SIMPLOUT) = M_SIMPLOUT; } /* Set up standenv - general RR but not transput. */ static void stand_prelude (void) { /* Identifiers. */ a68_idf (A68_STD, "intlengths", M_INT, a68_lower_intlengths); a68_idf (A68_STD, "intshorths", M_INT, a68_lower_intshorths); a68_idf (A68_STD, "maxint", M_INT, a68_lower_maxint); a68_idf (A68_STD, "longmaxint", M_LONG_INT, a68_lower_maxint); a68_idf (A68_STD, "longlongmaxint", M_LONG_LONG_INT, a68_lower_maxint); a68_idf (A68_STD, "shortmaxint", M_SHORT_INT, a68_lower_maxint); a68_idf (A68_STD, "shortshortmaxint", M_SHORT_SHORT_INT, a68_lower_maxint); a68_idf (A68_STD, "maxreal", M_REAL, a68_lower_maxreal); a68_idf (A68_STD, "longmaxreal", M_LONG_REAL, a68_lower_maxreal); a68_idf (A68_STD, "longlongmaxreal", M_LONG_LONG_REAL, a68_lower_maxreal); a68_idf (A68_STD, "smallreal", M_REAL, a68_lower_smallreal); a68_idf (A68_STD, "longsmallreal", M_LONG_REAL, a68_lower_smallreal); a68_idf (A68_STD, "longlongsmallreal", M_LONG_LONG_REAL, a68_lower_smallreal); a68_idf (A68_STD, "reallengths", M_INT, a68_lower_reallengths); a68_idf (A68_STD, "realshorths", M_INT, a68_lower_realshorths); a68_idf (A68_STD, "bitslengths", M_INT, a68_lower_bitslengths); a68_idf (A68_STD, "bitsshorths", M_INT, a68_lower_bitsshorths); a68_idf (A68_STD, "bitswidth", M_INT, a68_lower_bitswidth); a68_idf (A68_STD, "longbitswidth", M_INT, a68_lower_longbitswidth); a68_idf (A68_STD, "longlongbitswidth", M_INT, a68_lower_longlongbitswidth); a68_idf (A68_STD, "shortbitswidth", M_INT, a68_lower_shortbitswidth); a68_idf (A68_STD, "shortshortbitswidth", M_INT, a68_lower_shortshortbitswidth); a68_idf (A68_STD, "maxbits", M_BITS, a68_lower_maxbits); a68_idf (A68_STD, "longmaxbits", M_LONG_BITS, a68_lower_maxbits); a68_idf (A68_STD, "longlongmaxbits", M_LONG_LONG_BITS, a68_lower_maxbits); a68_idf (A68_STD, "maxabschar", M_INT, a68_lower_maxabschar); a68_idf (A68_STD, "intwidth", M_INT, a68_lower_intwidth); a68_idf (A68_STD, "longintwidth", M_INT, a68_lower_longintwidth); a68_idf (A68_STD, "longlongintwidth", M_INT, a68_lower_longlongintwidth); a68_idf (A68_STD, "shortintwidth", M_INT, a68_lower_shortintwidth); a68_idf (A68_STD, "shortshortintwidth", M_INT, a68_lower_shortshortintwidth); a68_idf (A68_STD, "realwidth", M_INT, a68_lower_realwidth); a68_idf (A68_STD, "longrealwidth", M_INT, a68_lower_longrealwidth); a68_idf (A68_STD, "longlongrealwidth", M_INT, a68_lower_longlongrealwidth); a68_idf (A68_STD, "expwidth", M_INT, a68_lower_expwidth); a68_idf (A68_STD, "longexpwidth", M_INT, a68_lower_longexpwidth); a68_idf (A68_STD, "longlongexpwidth", M_INT, a68_lower_longlongexpwidth); a68_idf (A68_STD, "pi", M_REAL, a68_lower_pi); a68_idf (A68_STD, "longpi", M_LONG_REAL, a68_lower_pi); a68_idf (A68_STD, "longlongpi", M_LONG_LONG_REAL, a68_lower_pi); a68_idf (A68_STD, "compllengths", M_INT); a68_idf (A68_STD, "complshorths", M_INT); a68_idf (A68_STD, "byteslengths", M_INT); a68_idf (A68_STD, "bytesshorths", M_INT); a68_idf (A68_STD, "byteswidth", M_INT); a68_idf (A68_STD, "longbyteswidth", M_INT); a68_idf (A68_STD, "flip", M_CHAR, a68_lower_flip); a68_idf (A68_STD, "flop", M_CHAR, a68_lower_flop); a68_idf (A68_STD, "errorchar", M_CHAR, a68_lower_errorchar); a68_idf (A68_STD, "nullcharacter", M_CHAR, a68_lower_nullcharacter); a68_idf (A68_STD, "blank", M_CHAR, a68_lower_blank); /* BITS procedures. */ MOID_T *m = a68_proc (M_BITS, M_ROW_BOOL, NO_MOID); a68_idf (A68_STD, "bitspack", m); /* SHORT BITS procedures. */ m = a68_proc (M_SHORT_BITS, M_ROW_BOOL, NO_MOID); a68_idf (A68_STD, "shortbitspack", m); /* SHORT SHORT BITS procedures. */ m = a68_proc (M_SHORT_SHORT_BITS, M_ROW_BOOL, NO_MOID); a68_idf (A68_STD, "shortshortbitspack", m); /* LONG BITS procedures. */ m = a68_proc (M_LONG_BITS, M_ROW_BOOL, NO_MOID); a68_idf (A68_STD, "longbitspack", m); /* LONG LONG BITS procedures. */ m = a68_proc (M_LONG_LONG_BITS, M_ROW_BOOL, NO_MOID); a68_idf (A68_STD, "longlongbitspack", m); /* RNG procedures. */ m = a68_proc (M_VOID, M_INT, NO_MOID); a68_idf (A68_STD, "firstrandom", m); /* REAL procedures. */ m = A68_MCACHE (proc_real); a68_idf (A68_STD, "nextrandom", m); a68_idf (A68_STD, "random", m, a68_lower_random); a68_idf (A68_STD, "rnd", m); m = A68_MCACHE (proc_real_real); a68_idf (A68_STD, "arccos", m, a68_lower_acos); a68_idf (A68_STD, "arcsin", m, a68_lower_asin); a68_idf (A68_STD, "arctan", m, a68_lower_atan); a68_idf (A68_STD, "cos", m, a68_lower_cos); a68_idf (A68_STD, "exp", m, a68_lower_exp); a68_idf (A68_STD, "ln", m, a68_lower_ln); a68_idf (A68_STD, "sin", m, a68_lower_sin); a68_idf (A68_STD, "sqrt", m, a68_lower_sqrt); a68_idf (A68_STD, "tan", m, a68_lower_tan); /* LONG REAL procedures. */ m = a68_proc (M_LONG_REAL, NO_MOID); a68_idf (A68_STD, "longnextrandom", m); a68_idf (A68_STD, "longrandom", m, a68_lower_longrandom); m = a68_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID); a68_idf (A68_STD, "longarccos", m, a68_lower_long_acos); a68_idf (A68_STD, "longarcsin", m, a68_lower_long_asin); a68_idf (A68_STD, "longarctan", m, a68_lower_long_atan); a68_idf (A68_STD, "longcos", m, a68_lower_long_cos); a68_idf (A68_STD, "longexp", m, a68_lower_long_exp); a68_idf (A68_STD, "longln", m, a68_lower_long_ln); a68_idf (A68_STD, "longsin", m, a68_lower_long_sin); a68_idf (A68_STD, "longsqrt", m, a68_lower_long_sqrt); a68_idf (A68_STD, "longtan", m, a68_lower_long_tan); /* LONG LONG REAL procedures. */ m = a68_proc (M_LONG_LONG_REAL, NO_MOID); a68_idf (A68_STD, "longlongnextrandom", m); a68_idf (A68_STD, "longlongrandom", m, a68_lower_longlongrandom); m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_idf (A68_STD, "longlongarccos", m, a68_lower_long_long_acos); a68_idf (A68_STD, "longlongarcsin", m, a68_lower_long_long_asin); a68_idf (A68_STD, "longlongarctan", m, a68_lower_long_long_atan); a68_idf (A68_STD, "longlongcos", m, a68_lower_long_long_cos); a68_idf (A68_STD, "longlongexp", m, a68_lower_long_long_exp); a68_idf (A68_STD, "longlongln", m, a68_lower_long_long_ln); a68_idf (A68_STD, "longlongsin", m, a68_lower_long_long_sin); a68_idf (A68_STD, "longlongsqrt", m, a68_lower_long_long_sqrt); a68_idf (A68_STD, "longlongtan", m, a68_lower_long_long_tan); /* Priorities. */ a68_prio ("+:=", 1); a68_prio ("-:=", 1); a68_prio ("*:=", 1); a68_prio ("/:=", 1); a68_prio ("%:=", 1); a68_prio ("%*:=", 1); a68_prio ("+=:", 1); a68_prio ("PLUSAB", 1); a68_prio ("MINUSAB", 1); a68_prio ("TIMESAB", 1); a68_prio ("DIVAB", 1); a68_prio ("OVERAB", 1); a68_prio ("MODAB", 1); a68_prio ("PLUSTO", 1); a68_prio ("OR", 2); a68_prio ("AND", 3); a68_prio ("XOR", 3); a68_prio ("=", 4); a68_prio ("/=", 4); a68_prio ("<", 5); a68_prio ("<=", 5); a68_prio (">", 5); a68_prio (">=", 5); a68_prio ("EQ", 4); a68_prio ("NE", 4); a68_prio ("LT", 5); a68_prio ("LE", 5); a68_prio ("GT", 5); a68_prio ("GE", 5); a68_prio ("+", 6); a68_prio ("-", 6); a68_prio ("*", 7); a68_prio ("/", 7); a68_prio ("OVER", 7); a68_prio ("%", 7); a68_prio ("MOD", 7); a68_prio ("%*", 7); a68_prio ("ELEM", 7); a68_prio ("**", 8); a68_prio ("SHL", 8); a68_prio ("SHR", 8); a68_prio ("UP", 8); a68_prio ("DOWN", 8); a68_prio ("^", 8); a68_prio ("LWB", 8); a68_prio ("UPB", 8); a68_prio ("I", 9); a68_prio ("+*", 9); /* BOOL operators. */ m = a68_proc (M_BOOL, M_BOOL, NO_MOID); a68_op (A68_STD, "NOT", m, a68_lower_not2); a68_op (A68_STD, "~", m, a68_lower_not2); m = a68_proc (M_INT, M_BOOL, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_boolabs2); m = a68_proc (M_BOOL, M_BOOL, M_BOOL, NO_MOID); a68_op (A68_STD, "OR", m, a68_lower_or3); a68_op (A68_STD, "AND", m, a68_lower_and3); a68_op (A68_STD, "=", m, a68_lower_bool_eq3); a68_op (A68_STD, "/=", m, a68_lower_bool_ne3); a68_op (A68_STD, "EQ", m, a68_lower_bool_eq3); a68_op (A68_STD, "NE", m, a68_lower_bool_ne3); /* CHAR operators. */ m = a68_proc (M_BOOL, M_CHAR, M_CHAR, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_char_eq3); a68_op (A68_STD, "/=", m, a68_lower_char_ne3); a68_op (A68_STD, "<", m, a68_lower_char_lt3); a68_op (A68_STD, "<=", m, a68_lower_char_le3); a68_op (A68_STD, ">", m, a68_lower_char_gt3); a68_op (A68_STD, ">=", m, a68_lower_char_ge3); a68_op (A68_STD, "EQ", m, a68_lower_char_eq3); a68_op (A68_STD, "NE", m, a68_lower_char_ne3); a68_op (A68_STD, "LT", m, a68_lower_char_lt3); a68_op (A68_STD, "LE", m, a68_lower_char_le3); a68_op (A68_STD, "GT", m, a68_lower_char_gt3); a68_op (A68_STD, "GE", m, a68_lower_char_ge3); m = a68_proc (M_INT, M_CHAR, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_charabs2); m = a68_proc (M_CHAR, M_INT, NO_MOID); a68_op (A68_STD, "REPR", m, a68_lower_repr2); /* STRING operators. */ m = a68_proc (M_BOOL, M_STRING, M_STRING, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_string_eq3); a68_op (A68_STD, "/=", m, a68_lower_string_ne3); a68_op (A68_STD, "<", m, a68_lower_string_lt3); a68_op (A68_STD, "<=", m, a68_lower_string_le3); a68_op (A68_STD, ">=", m, a68_lower_string_ge3); a68_op (A68_STD, ">", m, a68_lower_string_gt3); a68_op (A68_STD, "EQ", m, a68_lower_string_eq3); a68_op (A68_STD, "NE", m, a68_lower_string_ne3); a68_op (A68_STD, "LT", m, a68_lower_string_lt3); a68_op (A68_STD, "LE", m, a68_lower_string_le3); a68_op (A68_STD, "GE", m, a68_lower_string_ge3); a68_op (A68_STD, "GT", m, a68_lower_string_gt3); m = a68_proc (M_STRING, M_CHAR, M_CHAR, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_char_plus3); m = a68_proc (M_STRING, M_STRING, M_STRING, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_string_plus3); m = a68_proc (M_REF_STRING, M_REF_STRING, M_STRING, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_string_plusab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_string_plusab3); m = a68_proc (M_REF_STRING, M_REF_STRING, M_INT, NO_MOID); a68_op (A68_STD, "*:=", m, a68_lower_string_multab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_string_multab3); m = a68_proc (M_REF_STRING, M_STRING, M_REF_STRING, NO_MOID); a68_op (A68_STD, "+=:", m, a68_lower_string_plusto3); a68_op (A68_STD, "PLUSTO", m, a68_lower_string_plusto3); m = a68_proc (M_STRING, M_STRING, M_INT, NO_MOID); a68_op (A68_STD, "*", m, a68_lower_string_mult3); m = a68_proc (M_STRING, M_INT, M_STRING, NO_MOID); a68_op (A68_STD, "*", m, a68_lower_string_mult3); m = a68_proc (M_STRING, M_INT, M_CHAR, NO_MOID); a68_op (A68_STD, "*", m, a68_lower_char_mult3); m = a68_proc (M_STRING, M_CHAR, M_INT, NO_MOID); a68_op (A68_STD, "*", m, a68_lower_char_mult3); /* SHORT SHORT INT operators. */ m = a68_proc (M_SHORT_SHORT_INT, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); a68_op (A68_STD, "ABS", m, a68_lower_intabs2); m = a68_proc (M_INT, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "SIGN", m, a68_lower_sign2); m = a68_proc (M_SHORT_INT, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_lengint2); m = a68_proc (M_BOOL, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "ODD", m, a68_lower_odd2); m = a68_proc (M_SHORT_SHORT_INT, M_SHORT_SHORT_INT, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_plus_int); a68_op (A68_STD, "-", m, a68_lower_minus_int); a68_op (A68_STD, "*", m, a68_lower_mult_int); a68_op (A68_STD, "OVER", m, a68_lower_over3); a68_op (A68_STD, "%", m, a68_lower_over3); a68_op (A68_STD, "MOD", m, a68_lower_mod3); a68_op (A68_STD, "%*", m, a68_lower_mod3); m = a68_proc (M_REF_SHORT_SHORT_INT, M_REF_SHORT_SHORT_INT, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "%:=", m, a68_lower_overab3); a68_op (A68_STD, "%*:=", m, a68_lower_modab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "OVERAB", m, a68_lower_overab3); a68_op (A68_STD, "MODAB", m, a68_lower_modab3); m = a68_proc (M_BOOL, M_SHORT_SHORT_INT, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "EQ", m, a68_lower_int_eq3); a68_op (A68_STD, "NE", m, a68_lower_int_ne3); a68_op (A68_STD, "GE", m, a68_lower_int_ge3); a68_op (A68_STD, "GT", m, a68_lower_int_gt3); a68_op (A68_STD, "LE", m, a68_lower_int_le3); a68_op (A68_STD, "LT", m, a68_lower_int_lt3); a68_op (A68_STD, "=", m, a68_lower_int_eq3); a68_op (A68_STD, ">=", m, a68_lower_int_ge3); a68_op (A68_STD, ">", m, a68_lower_int_gt3); a68_op (A68_STD, "<=", m, a68_lower_int_le3); a68_op (A68_STD, "<", m, a68_lower_int_lt3); a68_op (A68_STD, "/=", m, a68_lower_int_ne3); m = a68_proc (M_SHORT_SHORT_INT, M_SHORT_SHORT_INT, M_INT, NO_MOID); a68_op (A68_STD, "**", m, a68_lower_pow_int); a68_op (A68_STD, "^", m, a68_lower_pow_int); /* SHORT INT operators. */ m = a68_proc (M_SHORT_INT, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); a68_op (A68_STD, "ABS", m, a68_lower_intabs2); m = a68_proc (M_SHORT_SHORT_INT, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_shortenint2); m = a68_proc (M_INT, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_lengint2); a68_op (A68_STD, "SIGN", m, a68_lower_sign2); m = a68_proc (M_BOOL, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "ODD", m, a68_lower_odd2); m = a68_proc (M_SHORT_INT, M_SHORT_INT, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_plus_int); a68_op (A68_STD, "-", m, a68_lower_minus_int); a68_op (A68_STD, "*", m, a68_lower_mult_int); a68_op (A68_STD, "OVER", m, a68_lower_over3); a68_op (A68_STD, "%", m, a68_lower_over3); a68_op (A68_STD, "MOD", m, a68_lower_mod3); a68_op (A68_STD, "%*", m, a68_lower_mod3); m = a68_proc (M_REF_SHORT_INT, M_REF_SHORT_INT, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "%:=", m, a68_lower_overab3); a68_op (A68_STD, "%*:=", m, a68_lower_modab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "OVERAB", m, a68_lower_overab3); a68_op (A68_STD, "MODAB", m, a68_lower_modab3); m = a68_proc (M_BOOL, M_SHORT_INT, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_int_eq3); a68_op (A68_STD, "EQ", m, a68_lower_int_eq3); a68_op (A68_STD, "/=", m, a68_lower_int_ne3); a68_op (A68_STD, "NE", m, a68_lower_int_ne3); a68_op (A68_STD, "<", m, a68_lower_int_lt3); a68_op (A68_STD, "LT", m, a68_lower_int_lt3); a68_op (A68_STD, "<=", m, a68_lower_int_le3); a68_op (A68_STD, "LE", m, a68_lower_int_le3); a68_op (A68_STD, ">", m, a68_lower_int_gt3); a68_op (A68_STD, "GT", m, a68_lower_int_gt3); a68_op (A68_STD, ">=", m, a68_lower_int_ge3); a68_op (A68_STD, "GE", m, a68_lower_int_ge3); m = a68_proc (M_SHORT_INT, M_SHORT_INT, M_INT, NO_MOID); a68_op (A68_STD, "**", m, a68_lower_pow_int); a68_op (A68_STD, "^", m, a68_lower_pow_int); /* INT operators. */ m = a68_proc (M_INT, M_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); a68_op (A68_STD, "ABS", m, a68_lower_intabs2); a68_op (A68_STD, "SIGN", m, a68_lower_sign2); m = a68_proc (M_SHORT_INT, M_INT, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_shortenint2); m = a68_proc (M_LONG_INT, M_INT, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_lengint2); m = a68_proc (M_BOOL, M_INT, NO_MOID); a68_op (A68_STD, "ODD", m, a68_lower_odd2); m = a68_proc (M_BOOL, M_INT, M_INT, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_int_eq3); a68_op (A68_STD, "/=", m, a68_lower_int_ne3); a68_op (A68_STD, "<", m, a68_lower_int_lt3); a68_op (A68_STD, "<=", m, a68_lower_int_le3); a68_op (A68_STD, ">", m, a68_lower_int_gt3); a68_op (A68_STD, ">=", m, a68_lower_int_ge3); a68_op (A68_STD, "EQ", m, a68_lower_int_eq3); a68_op (A68_STD, "NE", m, a68_lower_int_ne3); a68_op (A68_STD, "LT", m, a68_lower_int_lt3); a68_op (A68_STD, "LE", m, a68_lower_int_le3); a68_op (A68_STD, "GT", m, a68_lower_int_gt3); a68_op (A68_STD, "GE", m, a68_lower_int_ge3); m = a68_proc (M_INT, M_INT, M_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_plus_int); a68_op (A68_STD, "-", m, a68_lower_minus_int); a68_op (A68_STD, "*", m, a68_lower_mult_int); a68_op (A68_STD, "OVER", m, a68_lower_over3); a68_op (A68_STD, "%", m, a68_lower_over3); a68_op (A68_STD, "MOD", m, a68_lower_mod3); a68_op (A68_STD, "%*", m, a68_lower_mod3); a68_op (A68_STD, "**", m, a68_lower_pow_int); a68_op (A68_STD, "^", m, a68_lower_pow_int); m = a68_proc (M_REAL, M_INT, M_INT, NO_MOID); a68_op (A68_STD, "/", m, a68_lower_rdiv3); m = a68_proc (M_REF_INT, M_REF_INT, M_INT, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "%:=", m, a68_lower_overab3); a68_op (A68_STD, "%*:=", m, a68_lower_modab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "OVERAB", m, a68_lower_overab3); a68_op (A68_STD, "MODAB", m, a68_lower_modab3); /* LONG INT operators */ m = a68_proc (M_LONG_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); a68_op (A68_STD, "ABS", m, a68_lower_intabs2); m = a68_proc (M_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_shortenint2); a68_op (A68_STD, "SIGN", m, a68_lower_sign2); m = a68_proc (M_LONG_LONG_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_lengint2); m = a68_proc (M_BOOL, M_LONG_INT, NO_MOID); a68_op (A68_STD, "ODD", m, a68_lower_odd2); m = a68_proc (M_LONG_INT, M_LONG_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_plus_int); a68_op (A68_STD, "-", m, a68_lower_minus_int); a68_op (A68_STD, "*", m, a68_lower_mult_int); a68_op (A68_STD, "OVER", m, a68_lower_over3); a68_op (A68_STD, "%", m, a68_lower_over3); a68_op (A68_STD, "MOD", m, a68_lower_mod3); a68_op (A68_STD, "%*", m, a68_lower_mod3); m = a68_proc (M_REF_LONG_INT, M_REF_LONG_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "%:=", m, a68_lower_overab3); a68_op (A68_STD, "%*:=", m, a68_lower_modab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "OVERAB", m, a68_lower_overab3); a68_op (A68_STD, "MODAB", m, a68_lower_modab3); m = a68_proc (M_BOOL, M_LONG_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_int_eq3); a68_op (A68_STD, "EQ", m, a68_lower_int_eq3); a68_op (A68_STD, "/=", m, a68_lower_int_ne3); a68_op (A68_STD, "NE", m, a68_lower_int_ne3); a68_op (A68_STD, "<", m, a68_lower_int_lt3); a68_op (A68_STD, "LT", m, a68_lower_int_lt3); a68_op (A68_STD, "<=", m, a68_lower_int_le3); a68_op (A68_STD, "LE", m, a68_lower_int_le3); a68_op (A68_STD, ">", m, a68_lower_int_gt3); a68_op (A68_STD, "GT", m, a68_lower_int_gt3); a68_op (A68_STD, ">=", m, a68_lower_int_ge3); a68_op (A68_STD, "GE", m, a68_lower_int_ge3); m = a68_proc (M_LONG_REAL, M_LONG_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "/", m, a68_lower_rdiv3); m = a68_proc (M_LONG_INT, M_LONG_INT, M_INT, NO_MOID); a68_op (A68_STD, "**", m, a68_lower_pow_int); a68_op (A68_STD, "^", m, a68_lower_pow_int); /* LONG LONG INT operators. */ m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); a68_op (A68_STD, "ABS", m, a68_lower_intabs2); m = a68_proc (M_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "SIGN", m, a68_lower_sign2); m = a68_proc (M_LONG_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_shortenint2); m = a68_proc (M_BOOL, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "ODD", m, a68_lower_odd2); m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_plus_int); a68_op (A68_STD, "-", m, a68_lower_minus_int); a68_op (A68_STD, "*", m, a68_lower_mult_int); a68_op (A68_STD, "OVER", m, a68_lower_over3); a68_op (A68_STD, "%", m, a68_lower_over3); a68_op (A68_STD, "MOD", m, a68_lower_mod3); a68_op (A68_STD, "%*", m, a68_lower_mod3); m = a68_proc (M_REF_LONG_LONG_INT, M_REF_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "%:=", m, a68_lower_overab3); a68_op (A68_STD, "%*:=", m, a68_lower_modab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "OVERAB", m, a68_lower_overab3); a68_op (A68_STD, "MODAB", m, a68_lower_modab3); m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "/", m, a68_lower_rdiv3); m = a68_proc (M_BOOL, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "EQ", m, a68_lower_int_eq3); a68_op (A68_STD, "NE", m, a68_lower_int_ne3); a68_op (A68_STD, "GE", m, a68_lower_int_ge3); a68_op (A68_STD, "GT", m, a68_lower_int_gt3); a68_op (A68_STD, "LE", m, a68_lower_int_le3); a68_op (A68_STD, "LT", m, a68_lower_int_lt3); a68_op (A68_STD, "=", m, a68_lower_int_eq3); a68_op (A68_STD, ">=", m, a68_lower_int_ge3); a68_op (A68_STD, ">", m, a68_lower_int_gt3); a68_op (A68_STD, "<=", m, a68_lower_int_le3); a68_op (A68_STD, "<", m, a68_lower_int_lt3); a68_op (A68_STD, "/=", m, a68_lower_int_ne3); m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, M_INT, NO_MOID); a68_op (A68_STD, "**", m, a68_lower_pow_int); a68_op (A68_STD, "^", m, a68_lower_pow_int); /* SHORT SHORT BITS operators */ m = a68_proc (M_BOOL, M_SHORT_SHORT_BITS, M_SHORT_SHORT_BITS, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_bit_eq3); a68_op (A68_STD, "EQ", m, a68_lower_bit_eq3); a68_op (A68_STD, "/=", m, a68_lower_bit_ne3); a68_op (A68_STD, "NE", m, a68_lower_bit_ne3); a68_op (A68_STD, "<=", m, a68_lower_bit_le3); a68_op (A68_STD, "LE", m, a68_lower_bit_le3); a68_op (A68_STD, ">=", m, a68_lower_bit_ge3); a68_op (A68_STD, "GE", m, a68_lower_bit_ge3); m = a68_proc (M_SHORT_SHORT_BITS, M_SHORT_SHORT_BITS, NO_MOID); a68_op (A68_STD, "NOT", m, a68_lower_bitnot2); a68_op (A68_STD, "~", m, a68_lower_bitnot2); m = a68_proc (M_SHORT_SHORT_BITS, M_SHORT_SHORT_BITS, M_SHORT_SHORT_BITS, NO_MOID); a68_op (A68_STD, "AND", m, a68_lower_bitand3); a68_op (A68_STD, "OR", m, a68_lower_bitior3); m = a68_proc (M_SHORT_SHORT_BITS, M_SHORT_SHORT_BITS, M_INT, NO_MOID); a68_op (A68_STD, "SHL", m, a68_lower_shl3); a68_op (A68_STD, "UP", m, a68_lower_shl3); a68_op (A68_STD, "SHR", m, a68_lower_shr3); a68_op (A68_STD, "DOWN", m, a68_lower_shr3); m = a68_proc (M_BOOL, M_INT, M_SHORT_SHORT_BITS, NO_MOID); a68_op (A68_STD, "ELEM", m, a68_lower_bitelem3); m = a68_proc (M_SHORT_SHORT_BITS, M_SHORT_SHORT_INT, NO_MOID); a68_op (A68_STD, "BIN", m, a68_lower_bin2); m = a68_proc (M_SHORT_SHORT_INT, M_SHORT_SHORT_BITS, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_bitabs2); m = a68_proc (M_SHORT_BITS, M_SHORT_SHORT_BITS, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_bitleng2); /* SHORT BITS operatos. */ m = a68_proc (M_SHORT_INT, M_SHORT_BITS, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_bitabs2); m = a68_proc (M_SHORT_BITS, M_SHORT_INT, NO_MOID); a68_op (A68_STD, "BIN", m, a68_lower_bin2); m = a68_proc (M_SHORT_BITS, M_SHORT_BITS, NO_MOID); a68_op (A68_STD, "NOT", m, a68_lower_bitnot2); a68_op (A68_STD, "~", m, a68_lower_bitnot2); m = a68_proc (M_BOOL, M_SHORT_BITS, M_SHORT_BITS, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_bit_eq3); a68_op (A68_STD, "EQ", m, a68_lower_bit_eq3); a68_op (A68_STD, "/=", m, a68_lower_bit_ne3); a68_op (A68_STD, "NE", m, a68_lower_bit_ne3); a68_op (A68_STD, "<=", m, a68_lower_bit_le3); a68_op (A68_STD, "LE", m, a68_lower_bit_le3); a68_op (A68_STD, ">=", m, a68_lower_bit_ge3); a68_op (A68_STD, "GE", m, a68_lower_bit_ge3); m = a68_proc (M_SHORT_BITS, M_SHORT_BITS, M_SHORT_BITS, NO_MOID); a68_op (A68_STD, "AND", m, a68_lower_bitand3); a68_op (A68_STD, "OR", m, a68_lower_bitior3); m = a68_proc (M_SHORT_BITS, M_SHORT_BITS, M_INT, NO_MOID); a68_op (A68_STD, "SHL", m, a68_lower_shl3); a68_op (A68_STD, "UP", m, a68_lower_shl3); a68_op (A68_STD, "SHR", m, a68_lower_shr3); a68_op (A68_STD, "DOWN", m, a68_lower_shr3); m = a68_proc (M_BOOL, M_INT, M_SHORT_BITS, NO_MOID); a68_op (A68_STD, "ELEM", m, a68_lower_bitelem3); m = a68_proc (M_SHORT_SHORT_BITS, M_SHORT_BITS, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_bitshorten2); m = a68_proc (M_BITS, M_SHORT_BITS, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_bitleng2); /* BITS operators. */ m = a68_proc (M_INT, M_BITS, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_bitabs2); m = a68_proc (M_BITS, M_INT, NO_MOID); a68_op (A68_STD, "BIN", m, a68_lower_bin2); m = a68_proc (M_BITS, M_BITS, NO_MOID); a68_op (A68_STD, "NOT", m, a68_lower_bitnot2); a68_op (A68_STD, "~", m, a68_lower_bitnot2); m = a68_proc (M_BOOL, M_BITS, M_BITS, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_bit_eq3); a68_op (A68_STD, "/=", m, a68_lower_bit_ne3); a68_op (A68_STD, "<=", m, a68_lower_bit_le3); a68_op (A68_STD, ">=", m, a68_lower_bit_ge3); a68_op (A68_STD, "EQ", m, a68_lower_bit_eq3); a68_op (A68_STD, "NE", m, a68_lower_bit_ne3); a68_op (A68_STD, "LE", m, a68_lower_bit_le3); a68_op (A68_STD, "GE", m, a68_lower_bit_ge3); m = a68_proc (M_BITS, M_BITS, M_BITS, NO_MOID); a68_op (A68_STD, "AND", m, a68_lower_bitand3); a68_op (A68_STD, "OR", m, a68_lower_bitior3); m = a68_proc (M_BITS, M_BITS, M_INT, NO_MOID); a68_op (A68_STD, "SHL", m, a68_lower_shl3); a68_op (A68_STD, "UP", m, a68_lower_shl3); a68_op (A68_STD, "SHR", m, a68_lower_shr3); a68_op (A68_STD, "DOWN", m, a68_lower_shr3); m = a68_proc (M_BOOL, M_INT, M_BITS, NO_MOID); a68_op (A68_STD, "ELEM", m, a68_lower_bitelem3); m = a68_proc (M_LONG_BITS, M_BITS, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_bitleng2); m = a68_proc (M_SHORT_BITS, M_BITS, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_bitshorten2); /* LONG BITS operatos. */ m = a68_proc (M_LONG_INT, M_LONG_BITS, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_bitabs2); m = a68_proc (M_LONG_BITS, M_LONG_INT, NO_MOID); a68_op (A68_STD, "BIN", m, a68_lower_bin2); m = a68_proc (M_LONG_BITS, M_LONG_BITS, NO_MOID); a68_op (A68_STD, "NOT", m, a68_lower_bitnot2); a68_op (A68_STD, "~", m, a68_lower_bitnot2); m = a68_proc (M_BOOL, M_LONG_BITS, M_LONG_BITS, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_bit_eq3); a68_op (A68_STD, "EQ", m, a68_lower_bit_eq3); a68_op (A68_STD, "/=", m, a68_lower_bit_ne3); a68_op (A68_STD, "NE", m, a68_lower_bit_ne3); a68_op (A68_STD, "<=", m, a68_lower_bit_le3); a68_op (A68_STD, "LE", m, a68_lower_bit_le3); a68_op (A68_STD, ">=", m, a68_lower_bit_ge3); a68_op (A68_STD, "GE", m, a68_lower_bit_ge3); m = a68_proc (M_LONG_BITS, M_LONG_BITS, M_LONG_BITS, NO_MOID); a68_op (A68_STD, "AND", m, a68_lower_bitand3); a68_op (A68_STD, "OR", m, a68_lower_bitior3); m = a68_proc (M_LONG_BITS, M_LONG_BITS, M_INT, NO_MOID); a68_op (A68_STD, "SHL", m, a68_lower_shl3); a68_op (A68_STD, "UP", m, a68_lower_shl3); a68_op (A68_STD, "SHR", m, a68_lower_shr3); a68_op (A68_STD, "DOWN", m, a68_lower_shr3); m = a68_proc (M_BOOL, M_INT, M_LONG_BITS, NO_MOID); a68_op (A68_STD, "ELEM", m, a68_lower_bitelem3); m = a68_proc (M_BITS, M_LONG_BITS, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_bitshorten2); m = a68_proc (M_LONG_LONG_BITS, M_LONG_BITS, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_bitleng2); /* LONG LONG BITS operators */ m = a68_proc (M_BOOL, M_LONG_LONG_BITS, M_LONG_LONG_BITS, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_bit_eq3); a68_op (A68_STD, "EQ", m, a68_lower_bit_eq3); a68_op (A68_STD, "/=", m, a68_lower_bit_ne3); a68_op (A68_STD, "NE", m, a68_lower_bit_ne3); a68_op (A68_STD, "<=", m, a68_lower_bit_le3); a68_op (A68_STD, "LE", m, a68_lower_bit_le3); a68_op (A68_STD, ">=", m, a68_lower_bit_ge3); a68_op (A68_STD, "GE", m, a68_lower_bit_ge3); m = a68_proc (M_LONG_LONG_BITS, M_LONG_LONG_BITS, NO_MOID); a68_op (A68_STD, "NOT", m, a68_lower_bitnot2); a68_op (A68_STD, "~", m, a68_lower_bitnot2); m = a68_proc (M_LONG_LONG_BITS, M_LONG_LONG_BITS, M_LONG_LONG_BITS, NO_MOID); a68_op (A68_STD, "AND", m, a68_lower_bitand3); a68_op (A68_STD, "OR", m, a68_lower_bitior3); m = a68_proc (M_LONG_LONG_BITS, M_LONG_LONG_BITS, M_INT, NO_MOID); a68_op (A68_STD, "SHL", m, a68_lower_shl3); a68_op (A68_STD, "UP", m, a68_lower_shl3); a68_op (A68_STD, "SHR", m, a68_lower_shr3); a68_op (A68_STD, "DOWN", m, a68_lower_shr3); m = a68_proc (M_BOOL, M_INT, M_LONG_LONG_BITS, NO_MOID); a68_op (A68_STD, "ELEM", m, a68_lower_bitelem3); m = a68_proc (M_LONG_LONG_BITS, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "BIN", m, a68_lower_bin2); m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_BITS, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_bitabs2); m = a68_proc (M_LONG_BITS, M_LONG_LONG_BITS, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_bitshorten2); /* REAL operators. */ m = A68_MCACHE (proc_real_real); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); a68_op (A68_STD, "ABS", m, a68_lower_realabs2); m = a68_proc (M_INT, M_REAL, NO_MOID); a68_op (A68_STD, "SIGN", m, a68_lower_realsign2); a68_op (A68_STD, "ROUND", m, a68_lower_round2); a68_op (A68_STD, "ENTIER", m, a68_lower_entier2); m = a68_proc (M_BOOL, M_REAL, M_REAL, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_real_eq3); a68_op (A68_STD, "/=", m, a68_lower_real_ne3); a68_op (A68_STD, "<", m, a68_lower_real_lt3); a68_op (A68_STD, "<=", m, a68_lower_real_le3); a68_op (A68_STD, ">", m, a68_lower_real_gt3); a68_op (A68_STD, ">=", m, a68_lower_real_ge3); a68_op (A68_STD, "EQ", m, a68_lower_real_eq3); a68_op (A68_STD, "NE", m, a68_lower_real_ne3); a68_op (A68_STD, "LT", m, a68_lower_real_lt3); a68_op (A68_STD, "LE", m, a68_lower_real_le3); a68_op (A68_STD, "GT", m, a68_lower_real_gt3); a68_op (A68_STD, "GE", m, a68_lower_real_ge3); m = A68_MCACHE (proc_real_real_real); a68_op (A68_STD, "+", m, a68_lower_plus_real); a68_op (A68_STD, "-", m, a68_lower_minus_real); a68_op (A68_STD, "*", m, a68_lower_mult_real); a68_op (A68_STD, "/", m, a68_lower_div3); a68_op (A68_STD, "**", m, a68_lower_pow_real); a68_op (A68_STD, "^", m, a68_lower_pow_real); m = a68_proc (M_REAL, M_REAL, M_INT, NO_MOID); a68_op (A68_STD, "**", m, a68_lower_pow_real); a68_op (A68_STD, "^", m, a68_lower_pow_real); m = a68_proc (M_REF_REAL, M_REF_REAL, M_REAL, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "/:=", m, a68_lower_divab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "DIVAB", m, a68_lower_divab3); m = a68_proc (M_LONG_REAL, M_REAL, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_lengreal2); /* LONG REAL operators */ m = a68_proc (M_LONG_LONG_REAL, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "LENG", m, a68_lower_lengreal2); m = a68_proc (M_REAL, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_shortenreal2); m = a68_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); a68_op (A68_STD, "ABS", m, a68_lower_realabs2); m = a68_proc (M_INT, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "SIGN", m, a68_lower_realsign2); m = a68_proc (M_LONG_INT, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "ENTIER", m, a68_lower_entier2); a68_op (A68_STD, "ROUND", m, a68_lower_round2); m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_plus_real); a68_op (A68_STD, "-", m, a68_lower_minus_real); a68_op (A68_STD, "*", m, a68_lower_mult_real); a68_op (A68_STD, "/", m, a68_lower_div3); a68_op (A68_STD, "**", m, a68_lower_pow_real); a68_op (A68_STD, "^", m, a68_lower_pow_real); m = a68_proc (M_REF_LONG_REAL, M_REF_LONG_REAL, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "/:=", m, a68_lower_divab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "DIVAB", m, a68_lower_divab3); m = a68_proc (M_BOOL, M_LONG_REAL, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_real_eq3); a68_op (A68_STD, "EQ", m, a68_lower_real_eq3); a68_op (A68_STD, "/=", m, a68_lower_real_ne3); a68_op (A68_STD, "NE", m, a68_lower_real_ne3); a68_op (A68_STD, "<", m, a68_lower_real_lt3); a68_op (A68_STD, "LT", m, a68_lower_real_lt3); a68_op (A68_STD, "<=", m, a68_lower_real_le3); a68_op (A68_STD, "LE", m, a68_lower_real_le3); a68_op (A68_STD, ">", m, a68_lower_real_gt3); a68_op (A68_STD, "GT", m, a68_lower_real_gt3); a68_op (A68_STD, ">=", m, a68_lower_real_ge3); a68_op (A68_STD, "GE", m, a68_lower_real_ge3); m = a68_proc (M_LONG_REAL, M_LONG_REAL, M_INT, NO_MOID); a68_op (A68_STD, "**", m, a68_lower_pow_real); a68_op (A68_STD, "^", m, a68_lower_pow_real); /* LONG LONG REAL operators. */ m = a68_proc (M_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "SHORTEN", m, a68_lower_shortenreal2); m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "ABS", m, a68_lower_realabs2); a68_op (A68_STD, "+", m, a68_lower_confirm2); a68_op (A68_STD, "-", m, a68_lower_negate2); m = a68_proc (M_INT, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "SIGN", m, a68_lower_realsign2); m = a68_proc (M_LONG_LONG_INT, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "ENTIER", m, a68_lower_entier2); a68_op (A68_STD, "ROUND", m, a68_lower_round2); m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "+", m, a68_lower_plus_real); a68_op (A68_STD, "-", m, a68_lower_minus_real); a68_op (A68_STD, "*", m, a68_lower_mult_real); a68_op (A68_STD, "/", m, a68_lower_div3); a68_op (A68_STD, "**", m, a68_lower_pow_real); a68_op (A68_STD, "^", m, a68_lower_pow_real); m = a68_proc (M_REF_LONG_LONG_REAL, M_REF_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "+:=", m, a68_lower_plusab3); a68_op (A68_STD, "-:=", m, a68_lower_minusab3); a68_op (A68_STD, "*:=", m, a68_lower_multab3); a68_op (A68_STD, "/:=", m, a68_lower_divab3); a68_op (A68_STD, "PLUSAB", m, a68_lower_plusab3); a68_op (A68_STD, "MINUSAB", m, a68_lower_minusab3); a68_op (A68_STD, "TIMESAB", m, a68_lower_multab3); a68_op (A68_STD, "DIVAB", m, a68_lower_divab3); m = a68_proc (M_BOOL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "=", m, a68_lower_real_eq3); a68_op (A68_STD, "EQ", m, a68_lower_real_eq3); a68_op (A68_STD, "/=", m, a68_lower_real_ne3); a68_op (A68_STD, "NE", m, a68_lower_real_ne3); a68_op (A68_STD, "<", m, a68_lower_real_lt3); a68_op (A68_STD, "LT", m, a68_lower_real_lt3); a68_op (A68_STD, "<=", m, a68_lower_real_le3); a68_op (A68_STD, "LE", m, a68_lower_real_le3); a68_op (A68_STD, ">", m, a68_lower_real_gt3); a68_op (A68_STD, "GT", m, a68_lower_real_gt3); a68_op (A68_STD, ">=", m, a68_lower_real_ge3); a68_op (A68_STD, "GE", m, a68_lower_real_ge3); m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_INT, NO_MOID); a68_op (A68_STD, "**", m, a68_lower_pow_real); a68_op (A68_STD, "^", m, a68_lower_pow_real); /* ROWS operators. */ m = a68_proc (M_INT, M_ROWS, NO_MOID); a68_op (A68_STD, "LWB", m, a68_lower_lwb2); a68_op (A68_STD, "UPB", m, a68_lower_upb2); m = a68_proc (M_INT, M_INT, M_ROWS, NO_MOID); a68_op (A68_STD, "LWB", m, a68_lower_lwb3); a68_op (A68_STD, "UPB", m, a68_lower_upb3); /* BYTES operators. */ m = a68_proc (M_BYTES, M_STRING, NO_MOID); a68_idf (A68_STD, "bytespack", m); m = a68_proc (M_CHAR, M_INT, M_BYTES, NO_MOID); a68_op (A68_STD, "ELEM", m); m = a68_proc (M_BYTES, M_BYTES, M_BYTES, NO_MOID); a68_op (A68_STD, "+", m); m = a68_proc (M_REF_BYTES, M_REF_BYTES, M_BYTES, NO_MOID); a68_op (A68_STD, "+:=", m); a68_op (A68_STD, "PLUSAB", m); m = a68_proc (M_BOOL, M_BYTES, M_BYTES, NO_MOID); a68_op (A68_STD, "=", m); a68_op (A68_STD, "/=", m); a68_op (A68_STD, "<", m); a68_op (A68_STD, "<=", m); a68_op (A68_STD, ">", m); a68_op (A68_STD, ">=", m); a68_op (A68_STD, "EQ", m); a68_op (A68_STD, "NE", m); a68_op (A68_STD, "LT", m); a68_op (A68_STD, "LE", m); a68_op (A68_STD, "GT", m); a68_op (A68_STD, "GE", m); /* LONG BYTES operators. */ m = a68_proc (M_LONG_BYTES, M_BYTES, NO_MOID); a68_op (A68_STD, "LENG", m); m = a68_proc (M_BYTES, M_LONG_BYTES, NO_MOID); a68_idf (A68_STD, "SHORTEN", m); m = a68_proc (M_LONG_BYTES, M_STRING, NO_MOID); a68_idf (A68_STD, "longbytespack", m); m = a68_proc (M_CHAR, M_INT, M_LONG_BYTES, NO_MOID); a68_op (A68_STD, "ELEM", m); m = a68_proc (M_LONG_BYTES, M_LONG_BYTES, M_LONG_BYTES, NO_MOID); a68_op (A68_STD, "+", m); m = a68_proc (M_REF_LONG_BYTES, M_REF_LONG_BYTES, M_LONG_BYTES, NO_MOID); a68_op (A68_STD, "+:=", m); a68_op (A68_STD, "PLUSAB", m); m = a68_proc (M_BOOL, M_LONG_BYTES, M_LONG_BYTES, NO_MOID); a68_op (A68_STD, "=", m); a68_op (A68_STD, "/=", m); a68_op (A68_STD, "<", m); a68_op (A68_STD, "<=", m); a68_op (A68_STD, ">", m); a68_op (A68_STD, ">=", m); a68_op (A68_STD, "EQ", m); a68_op (A68_STD, "NE", m); a68_op (A68_STD, "LT", m); a68_op (A68_STD, "LE", m); a68_op (A68_STD, "GT", m); a68_op (A68_STD, "GE", m); /* COMPLEX operators. */ m = a68_proc (M_COMPLEX, M_REAL, M_REAL, NO_MOID); a68_op (A68_STD, "I", m, a68_lower_reali); a68_op (A68_STD, "+*", m, a68_lower_reali); m = a68_proc (M_COMPLEX, M_INT, M_INT, NO_MOID); a68_op (A68_STD, "I", m, a68_lower_inti); a68_op (A68_STD, "+*", m, a68_lower_inti); m = a68_proc (M_REAL, M_COMPLEX, NO_MOID); a68_op (A68_STD, "RE", m, a68_lower_re2); a68_op (A68_STD, "IM", m, a68_lower_im2); a68_op (A68_STD, "ABS", m); a68_op (A68_STD, "ARG", m); m = A68_MCACHE (proc_complex_complex); a68_op (A68_STD, "+", m); a68_op (A68_STD, "-", m); a68_op (A68_STD, "CONJ", m, a68_lower_conj2); m = a68_proc (M_BOOL, M_COMPLEX, M_COMPLEX, NO_MOID); a68_op (A68_STD, "=", m); a68_op (A68_STD, "/=", m); a68_op (A68_STD, "EQ", m); a68_op (A68_STD, "NE", m); m = a68_proc (M_COMPLEX, M_COMPLEX, M_COMPLEX, NO_MOID); a68_op (A68_STD, "+", m); a68_op (A68_STD, "-", m); a68_op (A68_STD, "*", m); a68_op (A68_STD, "/", m); m = a68_proc (M_COMPLEX, M_COMPLEX, M_INT, NO_MOID); a68_op (A68_STD, "**", m); a68_op (A68_STD, "UP", m); a68_op (A68_STD, "^", m); m = a68_proc (M_REF_COMPLEX, M_REF_COMPLEX, M_COMPLEX, NO_MOID); a68_op (A68_STD, "+:=", m); a68_op (A68_STD, "-:=", m); a68_op (A68_STD, "*:=", m); a68_op (A68_STD, "/:=", m); a68_op (A68_STD, "PLUSAB", m); a68_op (A68_STD, "MINUSAB", m); a68_op (A68_STD, "TIMESAB", m); a68_op (A68_STD, "DIVAB", m); m = a68_proc (M_COMPLEX, M_COMPLEX, NO_MOID); a68_op (A68_STD, "SHORTEN", m); /* LONG COMPLEX operators */ m = a68_proc (M_LONG_COMPLEX, M_LONG_INT, M_LONG_INT, NO_MOID); a68_op (A68_STD, "I", m, a68_lower_longinti); a68_op (A68_STD, "+*", m, a68_lower_longinti); m = a68_proc (M_LONG_COMPLEX, M_LONG_REAL, M_LONG_REAL, NO_MOID); a68_op (A68_STD, "I", m, a68_lower_longreali); a68_op (A68_STD, "+*", m, a68_lower_longreali); m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "LENG", m); m = a68_proc (M_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "SHORTEN", m); m = a68_proc (M_LONG_COMPLEX, M_COMPLEX, NO_MOID); a68_op (A68_STD, "LENG", m); m = a68_proc (M_COMPLEX, M_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "SHORTEN", m); m = a68_proc (M_LONG_REAL, M_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "RE", m, a68_lower_re2); a68_op (A68_STD, "IM", m, a68_lower_im2); a68_op (A68_STD, "ARG", m); a68_op (A68_STD, "ABS", m); m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "+", m); a68_op (A68_STD, "-", m); a68_op (A68_STD, "CONJ", m, a68_lower_conj2); m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "+", m); a68_op (A68_STD, "-", m); a68_op (A68_STD, "*", m); a68_op (A68_STD, "/", m); m = a68_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_INT, NO_MOID); a68_op (A68_STD, "**", m); a68_op (A68_STD, "UP", m); a68_op (A68_STD, "^", m); m = a68_proc (M_BOOL, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "=", m); a68_op (A68_STD, "EQ", m); a68_op (A68_STD, "/=", m); a68_op (A68_STD, "NE", m); m = a68_proc (M_REF_LONG_COMPLEX, M_REF_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "+:=", m); a68_op (A68_STD, "-:=", m); a68_op (A68_STD, "*:=", m); a68_op (A68_STD, "/:=", m); a68_op (A68_STD, "PLUSAB", m); a68_op (A68_STD, "MINUSAB", m); a68_op (A68_STD, "TIMESAB", m); a68_op (A68_STD, "DIVAB", m); /* LONG LONG COMPLEX operators. */ m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID); a68_op (A68_STD, "I", m, a68_lower_longlonginti); a68_op (A68_STD, "+*", m, a68_lower_longlonginti); m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_op (A68_STD, "I", m, a68_lower_longlongreali); a68_op (A68_STD, "+*", m, a68_lower_longlongreali); m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "RE", m, a68_lower_re2); a68_op (A68_STD, "IM", m, a68_lower_im2); a68_op (A68_STD, "ARG", m); a68_op (A68_STD, "ABS", m); m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "+", m); a68_op (A68_STD, "-", m); a68_op (A68_STD, "CONJ", m, a68_lower_conj2); m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "+", m); a68_op (A68_STD, "-", m); a68_op (A68_STD, "*", m); a68_op (A68_STD, "/", m); m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, M_INT, NO_MOID); a68_op (A68_STD, "**", m); a68_op (A68_STD, "UP", m); a68_op (A68_STD, "^", m); m = a68_proc (M_BOOL, M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "=", m); a68_op (A68_STD, "EQ", m); a68_op (A68_STD, "/=", m); a68_op (A68_STD, "NE", m); m = a68_proc (M_REF_LONG_LONG_COMPLEX, M_REF_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "+:=", m); a68_op (A68_STD, "-:=", m); a68_op (A68_STD, "*:=", m); a68_op (A68_STD, "/:=", m); a68_op (A68_STD, "PLUSAB", m); a68_op (A68_STD, "MINUSAB", m); a68_op (A68_STD, "TIMESAB", m); a68_op (A68_STD, "DIVAB", m); m = a68_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID); a68_op (A68_STD, "LENG", m); /* SEMA operators. */ m = a68_proc (M_SEMA, M_INT, NO_MOID); a68_op (A68_STD, "LEVEL", m); m = a68_proc (M_INT, M_SEMA, NO_MOID); a68_op (A68_STD, "LEVEL", m); m = a68_proc (M_VOID, M_SEMA, NO_MOID); a68_op (A68_STD, "UP", m); a68_op (A68_STD, "DOWN", m); } /* GNU extensions for the standenv. */ static void gnu_prelude (void) { MOID_T *m = NO_MOID; /* Priorities. */ a68_prio ("ELEMS", 8); /* Identifiers. */ a68_idf (A68_EXT, "infinity", M_REAL, a68_lower_infinity); a68_idf (A68_EXT, "minusinfinity", M_REAL, a68_lower_minusinfinity); a68_idf (A68_EXT, "longlonginfinity", M_LONG_LONG_REAL); a68_idf (A68_EXT, "longlongminusinfinity", M_LONG_LONG_REAL); a68_idf (A68_EXT, "longinfinity", M_LONG_REAL); a68_idf (A68_EXT, "longminusinfinity", M_LONG_REAL); a68_idf (A68_EXT, "minint", M_INT, a68_lower_minint); a68_idf (A68_EXT, "longminint", M_LONG_INT, a68_lower_minint); a68_idf (A68_EXT, "longlongminint", M_LONG_LONG_INT, a68_lower_minint); a68_idf (A68_EXT, "shortminint", M_SHORT_INT, a68_lower_minint); a68_idf (A68_EXT, "shortshortminint", M_SHORT_SHORT_INT, a68_lower_minint); a68_idf (A68_EXT, "minreal", M_REAL, a68_lower_minreal); a68_idf (A68_EXT, "longminreal", M_LONG_REAL, a68_lower_minreal); a68_idf (A68_EXT, "longlongminreal", M_LONG_LONG_REAL, a68_lower_minreal); a68_idf (A68_EXT, "eofchar", M_CHAR, a68_lower_eofchar); a68_idf (A68_EXT, "replacementchar", M_CHAR, a68_lower_replacementchar); /* REAL procedures. */ m = A68_MCACHE (proc_real_real); a68_idf (A68_EXT, "log", m, a68_lower_log); /* LONG REAL procedures. */ m = a68_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID); a68_idf (A68_EXT, "longlog", m, a68_lower_long_log); /* LONG LONG REAL procedures. */ m = a68_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID); a68_idf (A68_EXT, "longlonglog", m, a68_lower_long_long_log); /* BOOL operators. */ m = a68_proc (M_BOOL, M_BOOL, M_BOOL, NO_MOID); a68_op (A68_EXT, "XOR", m, a68_lower_xor3); /* SHORT SHORT BITS operators. */ m = a68_proc (M_SHORT_SHORT_BITS, M_SHORT_SHORT_BITS, M_SHORT_SHORT_BITS, NO_MOID); a68_op (A68_EXT, "XOR", m, a68_lower_bitxor3); /* SHORT BITS operators. */ m = a68_proc (M_SHORT_BITS, M_SHORT_BITS, M_SHORT_BITS, NO_MOID); a68_op (A68_EXT, "XOR", m, a68_lower_bitxor3); /* BITS operators. */ m = a68_proc (M_BITS, M_BITS, M_BITS, NO_MOID); a68_op (A68_EXT, "XOR", m, a68_lower_bitxor3); /* LONG BITS operators. */ m = a68_proc (M_LONG_BITS, M_LONG_BITS, M_LONG_BITS, NO_MOID); a68_op (A68_EXT, "XOR", m, a68_lower_bitxor3); /* LONG LONG BITS operators. */ m = a68_proc (M_LONG_LONG_BITS, M_LONG_LONG_BITS, M_LONG_LONG_BITS, NO_MOID); a68_op (A68_EXT, "XOR", m, a68_lower_bitxor3); /* ROWS operators. */ m = a68_proc (M_INT, M_ROWS, NO_MOID); a68_op (A68_EXT, "ELEMS", m, a68_lower_elems2); m = a68_proc (M_INT, M_INT, M_ROWS, NO_MOID); a68_op (A68_EXT, "ELEMS", m, a68_lower_elems3); } /* POSIX prelude. */ static void posix_prelude (void) { MOID_T *m = NO_MOID; /* Environment variables. */ m = a68_proc (M_STRING, M_STRING, NO_MOID); a68_idf (A68_EXT, "getenv", m, a68_lower_posixgetenv); /* Exit status handling. */ m = a68_proc (M_VOID, M_INT, NO_MOID); a68_idf (A68_EXT, "setexitstatus", m, a68_lower_setexitstatus); /* Argument handling. */ m = A68_MCACHE (proc_int); a68_idf (A68_EXT, "argc", m, a68_lower_posixargc); m = a68_proc (M_STRING, M_INT, NO_MOID); a68_idf (A68_EXT, "argv", m, a68_lower_posixargv); /* Error procedures. */ m = A68_MCACHE (proc_int); a68_idf (A68_EXT, "errno", m, a68_lower_posixerrno); m = a68_proc (M_VOID, M_STRING, NO_MOID); a68_idf (A68_EXT, "perror", m, a68_lower_posixperror); m = a68_proc (M_STRING, M_INT, NO_MOID); a68_idf (A68_EXT, "strerror", m, a68_lower_posixstrerror); /* I/O identifiers. */ a68_idf (A68_EXT, "stdin", M_INT, a68_lower_posixstdinfiledes); a68_idf (A68_EXT, "stdout", M_INT, a68_lower_posixstdoutfiledes); a68_idf (A68_EXT, "stderr", M_INT, a68_lower_posixstderrfiledes); a68_idf (A68_EXT, "fileodefault", M_BITS, a68_lower_posixfileodefault); a68_idf (A68_EXT, "fileordwr", M_BITS, a68_lower_posixfileordwr); a68_idf (A68_EXT, "fileordonly", M_BITS, a68_lower_posixfileordonly); a68_idf (A68_EXT, "fileowronly", M_BITS, a68_lower_posixfileowronly); a68_idf (A68_EXT, "fileotrunc", M_BITS, a68_lower_posixfileotrunc); /* Opening and closing files. */ m = a68_proc (M_INT, M_STRING, M_BITS, NO_MOID); a68_idf (A68_EXT, "fopen", m, a68_lower_posixfopen); a68_idf (A68_EXT, "fcreate", m, a68_lower_posixfcreate); m = A68_MCACHE (proc_int_int); a68_idf (A68_EXT, "fclose", m, a68_lower_posixfclose); /* Getting properties of files. */ m = a68_proc (M_LONG_LONG_INT, M_INT, NO_MOID); a68_idf (A68_EXT, "fsize", m, a68_lower_posixfsize); m = a68_proc (M_LONG_LONG_INT, M_INT, M_LONG_LONG_INT, M_INT, NO_MOID); a68_idf (A68_EXT, "lseek", m, a68_lower_posixlseek); a68_idf (A68_EXT, "seekcur", M_INT, a68_lower_posixseekcur); a68_idf (A68_EXT, "seekend", M_INT, a68_lower_posixseekend); a68_idf (A68_EXT, "seekset", M_INT, a68_lower_posixseekset); /* Sockets. */ m = a68_proc (M_INT, M_STRING, M_INT, NO_MOID); a68_idf (A68_EXT, "fconnect", m, a68_lower_posixfconnect); /* String and character output. */ m = a68_proc (M_CHAR, M_CHAR, NO_MOID); a68_idf (A68_EXT, "putchar", m, a68_lower_posixputchar); m = a68_proc (M_VOID, M_STRING, NO_MOID); a68_idf (A68_EXT, "puts", m, a68_lower_posixputs); m = a68_proc (M_CHAR, M_INT, M_CHAR, NO_MOID); a68_idf (A68_EXT, "fputc", m, a68_lower_posixfputc); m = a68_proc (M_INT, M_INT, M_STRING, NO_MOID); a68_idf (A68_EXT, "fputs", m, a68_lower_posixfputs); /* String and character input. */ m = A68_MCACHE (proc_char); a68_idf (A68_EXT, "getchar", m, a68_lower_posixgetchar); m = a68_proc (M_CHAR, M_INT, NO_MOID); a68_idf (A68_EXT, "fgetc", m, a68_lower_posixfgetc); m = a68_proc (M_REF_STRING, M_INT, NO_MOID); a68_idf (A68_EXT, "gets", m, a68_lower_posixgets); m = a68_proc (M_REF_STRING, M_INT, M_INT, NO_MOID); a68_idf (A68_EXT, "fgets", m, a68_lower_posixfgets); } /* Transput. */ static void stand_transput (void) { PACK_T *z = NO_PACK; MOID_T *m = NO_MOID; /* Modes. */ /* NUMBER */ z = NO_PACK; (void) a68_add_mode_to_pack (&z, M_INT, NO_TEXT, NO_NODE); (void) a68_add_mode_to_pack (&z, M_LONG_INT, NO_TEXT, NO_NODE); (void) a68_add_mode_to_pack (&z, M_LONG_LONG_INT, NO_TEXT, NO_NODE); (void) a68_add_mode_to_pack (&z, M_SHORT_INT, NO_TEXT, NO_NODE); (void) a68_add_mode_to_pack (&z, M_SHORT_SHORT_INT, NO_TEXT, NO_NODE); (void) a68_add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE); (void) a68_add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE); (void) a68_add_mode_to_pack (&z, M_LONG_LONG_REAL, NO_TEXT, NO_NODE); M_NUMBER = a68_add_mode (&TOP_MOID (&A68_JOB), UNION_SYMBOL, a68_count_pack_members (z), NO_NODE, NO_MOID, z); /* Layout procedures. */ /* Conversion procedures. */ m = a68_proc (M_STRING, M_NUMBER, M_INT, NO_MOID); a68_idf (A68_STD, "whole", m); } /* Build the standard environ symbol table. */ void a68_make_standard_environ (void) { stand_moids (); A68_MCACHE (proc_bool) = a68_proc (M_BOOL, NO_MOID); A68_MCACHE (proc_char) = a68_proc (M_CHAR, NO_MOID); A68_MCACHE (proc_complex_complex) = a68_proc (M_COMPLEX, M_COMPLEX, NO_MOID); A68_MCACHE (proc_int) = a68_proc (M_INT, NO_MOID); A68_MCACHE (proc_int_int) = a68_proc (M_INT, M_INT, NO_MOID); A68_MCACHE (proc_int_int_real) = a68_proc (M_REAL, M_INT, M_INT, NO_MOID); A68_MCACHE (proc_int_real) = a68_proc (M_REAL, M_INT, NO_MOID); A68_MCACHE (proc_int_real_real) = a68_proc (M_REAL, M_INT, M_REAL, NO_MOID); A68_MCACHE (proc_int_real_real_real) = a68_proc (M_REAL, M_INT, M_REAL, M_REAL, NO_MOID); A68_MCACHE (proc_real) = a68_proc (M_REAL, NO_MOID); A68_MCACHE (proc_real_int_real) = a68_proc (M_REAL, M_REAL, M_INT, NO_MOID); A68_MCACHE (proc_real_real_int_real) = a68_proc (M_REAL, M_REAL, M_REAL, M_INT, NO_MOID); A68_MCACHE (proc_real_real) = M_PROC_REAL_REAL; A68_MCACHE (proc_real_real_real) = a68_proc (M_REAL, M_REAL, M_REAL, NO_MOID); A68_MCACHE (proc_real_real_real_int) = a68_proc (M_INT, M_REAL, M_REAL, M_REAL, NO_MOID); A68_MCACHE (proc_real_real_real_real) = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID); A68_MCACHE (proc_real_real_real_real_real) = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID); 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); A68_MCACHE (proc_real_ref_real_ref_int_void) = a68_proc (M_VOID, M_REAL, M_REF_REAL, M_REF_INT, NO_MOID); A68_MCACHE (proc_void) = a68_proc (M_VOID, NO_MOID); stand_prelude (); if (!OPTION_STRICT (&A68_JOB)) { gnu_prelude (); posix_prelude (); } stand_transput (); }