Algol 68 Genie
Navigation
‣ Home ‣ About Marcel ‣ Privacy and cookies
Algol 68 Genie
‣ The Algol 68 Genie project ‣ Downloads and tutorials
Vintage Fortran
‣ Vintage Fortran project
Blog
‣ Eighty years of freedom 1945-2025 ‣ Thermodynamics ex machina ‣ Wireless headsets, HiFi and Linux ‣ Snoopy calendar 1969-2025 ‣ Wonderful WiFi World ‣ …

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

Deze website is gearchiveerd door de KB, nationale bibliotheek.

This website is archived by the National Library of the Netherlands.

© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)