a68g-defines.h

     
   1  //! @file a68g-defines.h
   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-2024 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  //! General macro definitions.
  25  
  26  #if !defined (__A68G_DEFINES_H__)
  27  #define __A68G_DEFINES_H__
  28  
  29  // Constants
  30  
  31  #define KILOBYTE ((unt) 1024)
  32  #define MEGABYTE (KILOBYTE * KILOBYTE)
  33  #define GIGABYTE (KILOBYTE * MEGABYTE)
  34  
  35  #define A68_TRUE ((BOOL_T) 1)
  36  #define A68_FALSE ((BOOL_T) 0)
  37  
  38  #define BACKSLASH_CHAR '\\'
  39  #define BLANK_CHAR ' '
  40  #define CR_CHAR '\r'
  41  #define EOF_CHAR (EOF)
  42  #define ERROR_CHAR '*'
  43  #define ESCAPE_CHAR '\033'
  44  #define EXPONENT_CHAR 'e'
  45  #define FLIP_CHAR 'T'
  46  #define FLOP_CHAR 'F'
  47  #define FORMFEED_CHAR '\f'
  48  #define NEWLINE_CHAR '\n'
  49  #define NULL_CHAR '\0'
  50  #define POINT_CHAR '.'
  51  #define QUOTE_CHAR '"'
  52  #define RADIX_CHAR 'r'
  53  #define TAB_CHAR '\t'
  54  
  55  // File extensions
  56  #define BINARY_EXTENSION ".o"
  57  #define PLUGIN_EXTENSION ".so"
  58  #define LISTING_EXTENSION ".l"
  59  #define OBJECT_EXTENSION ".c"
  60  #define PRETTY_EXTENSION ".f"
  61  #define SCRIPT_EXTENSION ""
  62  
  63  // Static options for GCC.
  64  // 
  65  // -fno-stack-protector is needed for Ubuntu etcetera that enforce -fstack-protector-strong 
  66  // which may give an undefined reference to `__stack_chk_fail_local'.
  67  // 
  68  // -Wno-parentheses-equality is needed for OpenBSD.  
  69  
  70  #define A68_GCC_OPTIONS "-DA68_OPTIMISE -ggdb -fno-stack-protector -Wno-parentheses-equality"
  71  
  72  // Formats
  73  #define DIGIT_BLANK ((unt) 0x2)
  74  #define DIGIT_NORMAL ((unt) 0x1)
  75  #define INSERTION_BLANK ((unt) 0x20)
  76  #define INSERTION_NORMAL ((unt) 0x10)
  77  
  78  #define MAX_RESTART 256
  79  
  80  #define A68_DIR ".a68g"
  81  #define A68_HISTORY_FILE ".a68g.edit.hist"
  82  #define A68_NO_FILE ((FILE_T) -1)
  83  #define A68_PROTECTION (S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH)  // -rw-r--r--
  84  #define A68_READ_ACCESS (O_RDONLY)
  85  #define A68_WRITE_ACCESS (O_WRONLY | O_CREAT | O_TRUNC)
  86  #define BUFFER_SIZE (KILOBYTE)
  87  #define DEFAULT_WIDTH (-1)
  88  
  89  #define EMBEDDED_FORMAT A68_TRUE
  90  #define EVEN(k) ((k) % 2 == 0)
  91  #define HIDDEN_TEMP_FILE_NAME ".a68g.tmp"
  92  #define INTERRUPT_INTERVAL 5
  93  #define ITEM_NOT_USED (-1)
  94  #define MAX_ERRORS 5
  95  #define MAX_PRIORITY 9
  96  #define MAX_TERM_HEIGTH 24
  97  #define MAX_TERM_WIDTH (BUFFER_SIZE / 2)
  98  #define MIN_MEM_SIZE (128 * KILOBYTE)
  99  #define MOID_ERROR_WIDTH 80
 100  #define MOID_WIDTH 80
 101  #define MONADS "%^&+-~!?"
 102  #define NEWLINE_STRING "\n"
 103  #define NOMADS "></=*"
 104  #define NOT_EMBEDDED_FORMAT A68_FALSE
 105  #define NOT_PRINTED 1
 106  #define OVER_2G(n) ((REAL_T) (n) > (REAL_T) (2 * GIGABYTE)) 
 107  #define PRIMAL_SCOPE 0
 108  #define SKIP_PATTERN A68_FALSE
 109  #define SMALL_BUFFER_SIZE 128
 110  #define SNPRINTF_SIZE ((size_t) (BUFFER_SIZE - 1))
 111  #define TRANSPUT_BUFFER_SIZE BUFFER_SIZE
 112  #define WANT_PATTERN A68_TRUE
 113  
 114  // Macros
 115  
 116  #define _SKIP_ { (void) 0;}
 117  
 118  #define BUFCLR(z) {a68_bufset ((z), 0, BUFFER_SIZE + 1);}
 119  
 120  #define ABS(n) ((n) >= 0 ? (n) : -(n))
 121  
 122  #define MAX(u, v) (((u) > (v) ? (u) : (v)))
 123  #define MAXIMISE(u, v) ((u) = MAX (u, v))
 124  
 125  #define MIN(u, v) (((u) < (v) ? (u) : (v)))
 126  #define MINIMISE(u, v) ((u) = MIN (u, v))
 127  
 128  #define COPY(d, s, n) {\
 129    int _m_k = (n); BYTE_T *_m_u = (BYTE_T *) (d), *_m_v = (BYTE_T *) (s);\
 130    while (_m_k--) {*_m_u++ = *_m_v++;}}
 131  
 132  #define COPY_ALIGNED(d, s, n) {\
 133    int _m_k = (n); A68_ALIGN_T *_m_u = (A68_ALIGN_T *) (d), *_m_v = (A68_ALIGN_T *) (s);\
 134    while (_m_k > 0) {*_m_u++ = *_m_v++; _m_k -= A68_ALIGNMENT;}}
 135  
 136  #define MOVE(d, s, n) {\
 137    int _m_k = (int) (n); BYTE_T *_m_d = (BYTE_T *) (d), *_m_s = (BYTE_T *) (s);\
 138    if (_m_s < _m_d) {\
 139      _m_d += _m_k; _m_s += _m_k;\
 140      while (_m_k--) {*(--_m_d) = *(--_m_s);}\
 141    } else {\
 142      while (_m_k--) {*(_m_d++) = *(_m_s++);}\
 143    }}
 144  
 145  #define FILL(d, s, n) {\
 146     int _m_k = (n); BYTE_T *_m_u = (BYTE_T *) (d), _m_v = (BYTE_T) (s);\
 147     while (_m_k--) {*_m_u++ = _m_v;}}
 148  
 149  #define FILL_ALIGNED(d, s, n) {\
 150     int _m_k = (n); A68_ALIGN_T *_m_u = (A68_ALIGN_T *) (d), _m_v = (A68_ALIGN_T) (s);\
 151     while (_m_k > 0) {*_m_u++ = _m_v; _m_k -= A68_ALIGNMENT;}}
 152  
 153  #define ABEND(p, reason, info) {\
 154    if (p) {\
 155      abend ((char *) reason, (char *) info, __FILE__, __LINE__);\
 156    }}
 157  
 158  #if defined (HAVE_CURSES)
 159  #define ASSERT(f) {\
 160    if (!(f)) {\
 161      if (A68 (curses_mode) == A68_TRUE) {\
 162        (void) attrset (A_NORMAL);\
 163        (void) endwin ();\
 164        A68 (curses_mode) = A68_FALSE;\
 165      }\
 166      ABEND (A68_TRUE, ERROR_ASSERTION, __func__)\
 167    }}
 168  #else
 169  #define ASSERT(f) {\
 170    ABEND((!(f)), ERROR_ASSERTION, __func__)\
 171    }
 172  #endif
 173  
 174  // Some macros to overcome the ambiguity in having signed or unt char 
 175  // on various systems. PDP-11s and IBM 370s are still haunting us with this.
 176  
 177  #define IS_ALNUM(c) isalnum ((unt char) (c))
 178  #define IS_ALPHA(c) isalpha ((unt char) (c))
 179  #define IS_CNTRL(c) iscntrl ((unt char) (c))
 180  #define IS_DIGIT(c) isdigit ((unt char) (c))
 181  #define IS_GRAPH(c) isgraph ((unt char) (c))
 182  #define IS_LOWER(c) islower ((unt char) (c))
 183  #define IS_PRINT(c) isprint ((unt char) (c))
 184  #define IS_PUNCT(c) ispunct ((unt char) (c))
 185  #define IS_SPACE(c) isspace ((unt char) (c))
 186  #define IS_UPPER(c) isupper ((unt char) (c))
 187  #define IS_XDIGIT(c) isxdigit ((unt char) (c))
 188  #define TO_LOWER(c) (char) tolower ((unt char) (c))
 189  #define TO_UCHAR(c) ((c) >= 0 ? (int) (c) : (int) (UCHAR_MAX + (int) (c) + 1))
 190  #define TO_UPPER(c) (char) toupper ((unt char) (c))
 191  
 192  // Macro's for fat A68 pointers
 193  
 194  #define ADDRESS(z) (&(((IS_IN_HEAP (z) || IS_IN_COMMON (z)) ? REF_POINTER (z) : A68_STACK)[REF_OFFSET (z)]))
 195  #define ARRAY_ADDRESS(z) (&(REF_POINTER (z)[REF_OFFSET (z)]))
 196  #define DEREF(mode, expr) ((mode *) ADDRESS (expr))
 197  #define FILE_DEREF(p) DEREF (A68_FILE, (p))
 198  #define HEAP_ADDRESS(n) ((BYTE_T *) & (A68_HEAP[n]))
 199  #define IS_IN_FRAME(z) (STATUS (z) & IN_FRAME_MASK)
 200  #define IS_IN_HEAP(z) (STATUS (z) & IN_HEAP_MASK)
 201  #define IS_IN_COMMON(z) (STATUS (z) & IN_COMMON_MASK)
 202  #define IS_IN_STACK(z) (STATUS (z) & IN_STACK_MASK)
 203  #define IS_NIL(p) ((BOOL_T) ((STATUS (&(p)) & NIL_MASK) != 0))
 204  #define LOCAL_ADDRESS(z) (& A68_STACK[REF_OFFSET (z)])
 205  #define REF_HANDLE(z) (HANDLE (z))
 206  #define REF_OFFSET(z) (OFFSET (z))
 207  #define REF_POINTER(z) (POINTER (REF_HANDLE (z)))
 208  #define REF_SCOPE(z) (SCOPE (z))
 209  #define STACK_ADDRESS(n) ((BYTE_T *) &(A68_STACK[(n)]))
 210  #define STACK_OFFSET(n) (STACK_ADDRESS (A68_SP + (int) (n)))
 211  #define STACK_TOP (STACK_ADDRESS (A68_SP))
 212  
 213  // Miscellaneous macros
 214  
 215  #define IN_PRELUDE(p) (LINE_NUMBER (p) <= 0)
 216  #define EOL(c) ((c) == NEWLINE_CHAR || (c) == NULL_CHAR)
 217  
 218  #define BACKWARD(p) (p = PREVIOUS (p))
 219  #define DEFLEX(p) (DEFLEXED (p) != NO_MOID ? DEFLEXED(p) : (p))
 220  #define FORWARD(p) ((p) = NEXT (p))
 221  #define PM(m) (moid_to_string (m, 132, NO_NODE))
 222  #define SIGN(n) ((n) == 0 ? 0 : ((n) > 0 ? 1 : -1))
 223  #define WIS(p) where_in_source (A68_STDOUT, (p))
 224  #define WRITE(f, s) io_write_string ((f), (s));
 225  #define WRITELN(f, s) {WRITE ((f), "\n"); WRITE ((f), (s));}
 226  
 227  // Access macros
 228  
 229  #define A(p) ((p)->a)
 230  #define A68_STANDENV_PROC(p) ((p)->a68_standenv_proc)
 231  #define ACTION(p) ((p)->action)
 232  #define ACTIVE(p) ((p)->active)
 233  #define ADDR(p) ((p)->addr)
 234  #define ANNOTATION(p) ((p)->annotation)
 235  #define ANONYMOUS(p) ((p)->anonymous)
 236  #define APPLICATIONS(p) ((p)->applications)
 237  #define AP_INCREMENT(p) ((p)->ap_increment)
 238  #define ARGSIZE(p) ((p)->argsize)
 239  #define ARRAY(p) ((p)->array)
 240  #define ATTRIBUTE(p) ((p)->attribute)
 241  #define B(p) ((p)->b)
 242  #define BEGIN(p) ((p)->begin)
 243  #define BIN(p) ((p)->bin)
 244  #define BITS_PER_SAMPLE(p) ((p)->bits_per_sample)
 245  #define BLUE(p) ((p)->blue)
 246  #define BODY(p) ((p)->body)
 247  #define BSTATE(p) ((p)->bstate)
 248  #define BYTES(p) ((p)->bytes)
 249  #define CAST(p) ((p)->cast)
 250  #define CAT(p) ((p)->cat)
 251  #define CHANNEL(p) ((p)->channel)
 252  #define CHAR_IN_LINE(p) ((p)->char_in_line)
 253  #define CHAR_MOOD(p) ((p)->char_mood)
 254  #define CMD(p) ((p)->cmd)
 255  #define CMD_ROW(p) ((p)->cmd_row)
 256  #define CODE(p) ((p)->code)
 257  #define CODEX(p) ((p)->codex)
 258  #define COLLECT(p) ((p)->collect)
 259  #define COMPILED(p) ((p)->compiled)
 260  #define COMPILE_NAME(p) ((p)->compile_name)
 261  #define COMPILE_NODE(p) ((p)->compile_node)
 262  #define COMPRESS(p) ((p)->compress)
 263  #define CONNECTION(p) ((p)->connection)
 264  #define CONSTANT(p) ((p)->constant)
 265  #define COUNT(p) ((p)->count)
 266  #define CROSS_REFERENCE_SAFE(p) ((p)->cross_reference_safe)
 267  #define CUR_PTR(p) ((p)->cur_ptr)
 268  #define DATA(p) ((p)->data)
 269  #define DATA_SIZE(p) ((p)->data_size)
 270  #define DATE(p) ((p)->date)
 271  #define DEF(p) ((p)->def)
 272  #define DEFLEXED(p) ((p)->deflexed_mode)
 273  #define DERIVATE(p) ((p)->derivate)
 274  #define DEVICE(p) ((p)->device)
 275  #define DEVICE_HANDLE(p) ((p)->device_handle)
 276  #define DEVICE_MADE(p) ((p)->device_made)
 277  #define DEVICE_OPENED(p) ((p)->device_opened)
 278  #define DIAGNOSTICS(p) ((p)->diagnostics)
 279  #define DIGITS(p) ((p)->digits)
 280  #define DIGITS_COMPL(p) ((p)->digits_compl)
 281  #define DIM(p) ((p)->dim)
 282  #define DISPLAY(p) ((p)->display)
 283  #define DRAW(p) ((p)->draw)
 284  #define DRAW_MOOD(p) ((p)->draw_mood)
 285  #define DUMP(p) ((p)->dump)
 286  #define DYNAMIC_LINK(p) ((p)->dynamic_link)
 287  #define DYNAMIC_SCOPE(p) ((p)->dynamic_scope)
 288  #define D_NAME(p) ((p)->d_name)
 289  #define ELEM_SIZE(p) ((p)->elem_size)
 290  #define END(p) ((p)->end)
 291  #define END_OF_FILE(p) ((p)->end_of_file)
 292  #define ENVIRON(p) ((p)->fp_environ)
 293  #define EQUIVALENT(p) ((p)->equivalent_mode)
 294  #define EQUIVALENT_MODE(p) ((p)->equivalent_mode)
 295  #define ERROR_COUNT(p) ((p)->error_count)
 296  #define RENDEZ_VOUS(p) ((p)->rendez_vous)
 297  #define EXPR(p) ((p)->expr)
 298  #define F(p) ((p)->f)
 299  #define FACTOR(p) ((p)->factor)
 300  #define FD(p) ((p)->fd)
 301  #define FIELD_OFFSET(p) ((p)->field_offset)
 302  #define FILENAME(p) ((p)->filename)
 303  #define FILES(p) ((p)->files)
 304  #define FILE_BINARY_NAME(p) (FILES (p).binary.name)
 305  #define FILE_BINARY_OPENED(p) (FILES (p).binary.opened)
 306  #define FILE_BINARY_WRITEMOOD(p) (FILES (p).binary.writemood)
 307  #define FILE_DIAGS_FD(p) (FILES (p).diags.fd)
 308  #define FILE_DIAGS_NAME(p) (FILES (p).diags.name)
 309  #define FILE_DIAGS_OPENED(p) (FILES (p).diags.opened)
 310  #define FILE_DIAGS_WRITEMOOD(p) (FILES (p).diags.writemood)
 311  #define FILE_END_MENDED(p) ((p)->file_end_mended)
 312  #define FILE_ENTRY(p) ((p)->file_entry)
 313  #define FILE_GENERIC_NAME(p) (FILES (p).generic_name)
 314  #define FILE_INITIAL_NAME(p) (FILES (p).initial_name)
 315  #define FILE_PLUGIN_NAME(p) (FILES (p).plugin.name)
 316  #define FILE_PLUGIN_OPENED(p) (FILES (p).plugin.opened)
 317  #define FILE_PLUGIN_WRITEMOOD(p) (FILES (p).plugin.writemood)
 318  #define FILE_LISTING_FD(p) (FILES (p).listing.fd)
 319  #define FILE_LISTING_NAME(p) (FILES (p).listing.name)
 320  #define FILE_LISTING_OPENED(p) (FILES (p).listing.opened)
 321  #define FILE_LISTING_WRITEMOOD(p) (FILES (p).listing.writemood)
 322  #define FILE_OBJECT_FD(p) (FILES (p).object.fd)
 323  #define FILE_OBJECT_NAME(p) (FILES (p).object.name)
 324  #define FILE_OBJECT_OPENED(p) (FILES (p).object.opened)
 325  #define FILE_OBJECT_WRITEMOOD(p) (FILES (p).object.writemood)
 326  #define FILE_PATH(p) (FILES (p).path)
 327  #define FILE_PRETTY_FD(p) (FILES (p).pretty.fd)
 328  #define FILE_PRETTY_NAME(p) (FILES (p).pretty.name)
 329  #define FILE_PRETTY_OPENED(p) (FILES (p).pretty.opened)
 330  #define FILE_PRETTY_WRITEMOOD(p) (FILES (p).pretty.writemood)
 331  #define FILE_SCRIPT_NAME(p) (FILES (p).script.name)
 332  #define FILE_SCRIPT_OPENED(p) (FILES (p).script.opened)
 333  #define FILE_SCRIPT_WRITEMOOD(p) (FILES (p).script.writemood)
 334  #define FILE_SOURCE_FD(p) (FILES (p).source.fd)
 335  #define FILE_SOURCE_NAME(p) (FILES (p).source.name)
 336  #define FILE_SOURCE_OPENED(p) (FILES (p).source.opened)
 337  #define FILE_SOURCE_WRITEMOOD(p) (FILES (p).source.writemood)
 338  #define FIND(p) ((p)->find)
 339  #define FORMAT(p) ((p)->format)
 340  #define FORMAT_END_MENDED(p) ((p)->format_end_mended)
 341  #define FORMAT_ERROR_MENDED(p) ((p)->format_error_mended)
 342  #define FRAME(p) ((p)->frame)
 343  #define FRAME_LEVEL(p) ((p)->frame_level)
 344  #define FRAME_NO(p) ((p)->frame_no)
 345  #define FRAME_POINTER(p) ((p)->frame_pointer)
 346  #define FUNCTION(p) ((p)->function)
 347  #define G(p) ((p)->g)
 348  #define GINFO(p) ((p)->genie)
 349  #define GET(p) ((p)->get)
 350  #define GLOBAL_PROP(p) ((p)->global_prop)
 351  #define GPARENT(p) (PARENT (GINFO (p)))
 352  #define GREEN(p) ((p)->green)
 353  #define H(p) ((p)->h)
 354  #define HANDLE(p) ((p)->handle)
 355  #define HAS_ROWS(p) ((p)->has_rows)
 356  #define HEAP(p) ((p)->heap)
 357  #define HEAP_POINTER(p) ((p)->heap_pointer)
 358  // #define H_ADDR(p) ((p)->h_addr) only available with __USE_MISC allowing ancient features (4.3BSD and SysV). 
 359  #define H_ADDR(p) ((p)->h_addr_list[0]) 
 360  #define H_LENGTH(p) ((p)->h_length)
 361  #define ID(p) ((p)->id)
 362  #define IDENTIFICATION(p) ((p)->identification)
 363  #define IDENTIFIERS(p) ((p)->identifiers)
 364  #define IDF(p) ((p)->idf)
 365  #define IM(z) (VALUE (&(z)[1]))
 366  #define IN(p) ((p)->in)
 367  #define INDEX(p) ((p)->index)
 368  #define INDICANTS(p) ((p)->indicants)
 369  #define INFO(p) ((p)->info)
 370  #define INITIALISE_ANON(p) ((p)->initialise_anon)
 371  #define INITIALISE_FRAME(p) ((p)->initialise_frame)
 372  #define INI_PTR(p) ((p)->ini_ptr)
 373  #define INS_MODE(p) ((p)->ins_mode)
 374  #define IN_CMD(p) ((p)->in_cmd)
 375  #define IN_FORBIDDEN(p) ((p)->in_forbidden)
 376  #define IN_PREFIX(p) ((p)->in_prefix)
 377  #define IN_PROC(p) ((p)->in_proc)
 378  #define IN_TEXT(p) ((p)->in_text)
 379  #define IS_COMPILED(p) ((p)->is_compiled)
 380  #define IS_OPEN(p) ((p)->is_open)
 381  #define IS_TMP(p) ((p)->is_tmp)
 382  #define JUMP_STAT(p) ((p)->jump_stat)
 383  #define JUMP_TO(p) ((p)->jump_to)
 384  #define K(q) ((q)->k)
 385  #define LABELS(p) ((p)->labels)
 386  #define LAST(p) ((p)->last)
 387  #define LAST_LINE(p) ((p)->last_line)
 388  #define LESS(p) ((p)->less)
 389  #define LEVEL(p) ((p)->level)
 390  #define LEX_LEVEL(p) (LEVEL (TABLE (p)))
 391  #define LINBUF(p) ((p)->linbuf)
 392  #define LINE(p) ((p)->line)
 393  #define LINE_APPLIED(p) ((p)->line_applied)
 394  #define LINE_DEFINED(p) ((p)->line_defined)
 395  #define LINE_END_MENDED(p) ((p)->line_end_mended)
 396  #define LINE_NUMBER(p) (NUMBER (LINE (INFO (p))))
 397  #define LINSIZ(p) ((p)->linsiz)
 398  #define LIST(p) ((p)->list)
 399  #define ln(x) (log (x))
 400  #define LOCALE(p) ((p)->locale)
 401  #define LOC_ASSIGNED(p) ((p)->loc_assigned)
 402  #define LOWER_BOUND(p) ((p)->lower_bound)
 403  #define LWB(p) ((p)->lower_bound)
 404  #define MARKER(p) ((p)->marker)
 405  #define MATCH(p) ((p)->match)
 406  #define MODIFIED(p) ((p)->modified)
 407  #define MOID(p) ((p)->type)
 408  #define MORE(p) ((p)->more)
 409  #define MSGS(p) ((p)->msgs)
 410  #define MULTIPLE(p) ((p)->multiple_mode)
 411  #define MULTIPLE_MODE(p) ((p)->multiple_mode)
 412  #define M_EO(p) ((p)->m_eo)
 413  #define M_MATCH(p) ((p)->match)
 414  #define M_SO(p) ((p)->m_so)
 415  #define NAME(p) ((p)->name)
 416  #define NEED_DNS(p) ((p)->need_dns)
 417  #define NEGATE(p) ((p)->negate)
 418  #define NEST(p) ((p)->nest)
 419  #define NEW_FILE(p) ((p)->new_file)
 420  #define NEXT(p) ((p)->next)
 421  #define NEXT_NEXT(p) (NEXT (NEXT (p)))
 422  #define NEXT_NEXT_NEXT(p) (NEXT (NEXT_NEXT (p)))
 423  #define NEXT_SUB(p) (NEXT (SUB (p)))
 424  #define NF(p) ((p)->nf)
 425  #define NODE(p) ((p)->node)
 426  #define NODE_DEFINED(p) ((p)->node_defined)
 427  #define NODE_PACK(p) ((p)->pack)
 428  #define NON_LOCAL(p) ((p)->non_local)
 429  #define NCHAR_IN_LINE(p) (CHAR_IN_LINE (INFO (p)))
 430  #define NPRAGMENT(p) (PRAGMENT (INFO (p)))
 431  #define NPRAGMENT_TYPE(p) (PRAGMENT_TYPE (INFO (p)))
 432  #define NSYMBOL(p) (SYMBOL (INFO (p)))
 433  #define NUM(p) ((p)->num)
 434  #define NUMBER(p) ((p)->number)
 435  #define NUM_CHANNELS(p) ((p)->num_channels)
 436  #define NUM_MATCH(p) ((p)->num_match)
 437  #define NUM_SAMPLES(p) ((p)->num_samples)
 438  #define OFFSET(p) ((p)->offset)
 439  #define OPENED(p) ((p)->opened)
 440  #define OPEN_ERROR_MENDED(p) ((p)->open_error_mended)
 441  #define OPEN_EXCLUSIVE(p) ((p)->open_exclusive)
 442  #define OPER(p) ((p)->oper)
 443  #define OPERATORS(p) ((p)->operators)
 444  #define OPTIONS(p) ((p)->options)
 445  #define OPTION_BACKTRACE(p) (OPTIONS (p).backtrace)
 446  #define OPTION_BRACKETS(p) (OPTIONS (p).brackets)
 447  #define OPTION_CHECK_ONLY(p) (OPTIONS (p).check_only)
 448  #define OPTION_CLOCK(p) (OPTIONS (p).clock)
 449  #define OPTION_COMPILE(p) (OPTIONS (p).compile)
 450  #define OPTION_COMPILE_CHECK(p) (OPTIONS (p).compile_check)
 451  #define OPTION_CROSS_REFERENCE(p) (OPTIONS (p).cross_reference)
 452  #define OPTION_DEBUG(p) (OPTIONS (p).debug)
 453  #define OPTION_FOLD(p) (OPTIONS (p).fold)
 454  #define OPTION_INDENT(p) (OPTIONS (p).indent)
 455  #define OPTION_KEEP(p) (OPTIONS (p).keep)
 456  #define OPTION_LICENSE(p) (OPTIONS (p).license)
 457  #define OPTION_LIST(p) (OPTIONS (p).list)
 458  #define OPTION_LOCAL(p) (OPTIONS (p).local)
 459  #define OPTION_MOID_LISTING(p) (OPTIONS (p).moid_listing)
 460  #define OPTION_NODEMASK(p) (OPTIONS (p).nodemask)
 461  #define OPTION_NO_WARNINGS(p) (OPTIONS (p).no_warnings)
 462  #define OPTION_OBJECT_LISTING(p) (OPTIONS (p).object_listing)
 463  #define OPTION_OPT_LEVEL(p) (OPTIONS (p).opt_level)
 464  #define OPTION_PORTCHECK(p) (OPTIONS (p).portcheck)
 465  #define OPTION_PRAGMAT_SEMA(p) (OPTIONS (p).pragmat_sema)
 466  #define OPTION_PRETTY(p) (OPTIONS (p).pretty)
 467  #define OPTION_QUIET(p) (OPTIONS (p).quiet)
 468  #define OPTION_REDUCTIONS(p) (OPTIONS (p).reductions)
 469  #define OPTION_REGRESSION_TEST(p) (OPTIONS (p).regression_test)
 470  #define OPTION_RERUN(p) (OPTIONS (p).rerun)
 471  #define OPTION_RUN(p) (OPTIONS (p).run)
 472  #define OPTION_RUN_SCRIPT(p) (OPTIONS (p).run_script)
 473  #define OPTION_SOURCE_LISTING(p) (OPTIONS (p).source_listing)
 474  #define OPTION_STANDARD_PRELUDE_LISTING(p) (OPTIONS (p).standard_prelude_listing)
 475  #define OPTION_STATISTICS_LISTING(p) (OPTIONS (p).statistics_listing)
 476  #define OPTION_STRICT(p) (OPTIONS (p).strict)
 477  #define OPTION_STROPPING(p) (OPTIONS (p).stropping)
 478  #define OPTION_TIME_LIMIT(p) (OPTIONS (p).time_limit)
 479  #define OPTION_TRACE(p) (OPTIONS (p).trace)
 480  #define OPTION_TREE_LISTING(p) (OPTIONS (p).tree_listing)
 481  #define OPTION_UNUSED(p) (OPTIONS (p).unused)
 482  #define OPTION_VERBOSE(p) (OPTIONS (p).verbose)
 483  #define OPTION_VERSION(p) (OPTIONS (p).version)
 484  #define OUT(p) ((p)->out)
 485  #define OUTER(p) ((p)->outer)
 486  #define P(q) ((q)->p)
 487  #define PACK(p) ((p)->pack)
 488  #define PAGE_END_MENDED(p) ((p)->page_end_mended)
 489  #define A68_PAGE_SIZE(p) ((p)->page_size)
 490  #define PARAMETERS(p) ((p)->parameters)
 491  #define PARAMETER_LEVEL(p) ((p)->parameter_level)
 492  #define GSL_PARAMS(p) ((p)->params)
 493  #define PARENT(p) ((p)->parent)
 494  #define PARTIAL_LOCALE(p) ((p)->partial_locale)
 495  #define PARTIAL_PROC(p) ((p)->partial_proc)
 496  #define PATTERN(p) ((p)->pattern)
 497  #define PERM(p) ((p)->perm)
 498  #define PERMS(p) ((p)->perms)
 499  #define IDF_ROW(p) ((p)->idf_row)
 500  #define PHASE(p) ((p)->phase)
 501  #define PLOTTER(p) ((p)->plotter)
 502  #define PLOTTER_PARAMS(p) ((p)->plotter_params)
 503  #define POINTER(p) ((p)->pointer)
 504  #define PORTABLE(p) ((p)->portable)
 505  #define POS(p) ((p)->pos)
 506  #define PRAGMENT(p) ((p)->pragment)
 507  #define PRAGMENT_TYPE(p) ((p)->pragment_type)
 508  #define PRECMD(p) ((p)->precmd)
 509  #define PREVIOUS(p) ((p)->previous)
 510  #define PRINT_STATUS(p) ((p)->print_status)
 511  #define PRIO(p) ((p)->priority)
 512  #define PROCEDURE(p) ((p)->procedure)
 513  #define PROCEDURE_LEVEL(p) ((p)->procedure_level)
 514  #define PROCESSED(p) ((p)->processed)
 515  #define PROC_FRAME(p) ((p)->proc_frame)
 516  #define PROC_OPS(p) ((p)->proc_ops)
 517  #define GPROP(p) (GINFO (p)->propagator)
 518  #define PROP(p) ((p)->propagator)
 519  #define PS(p) ((p)->ps)
 520  #define PUT(p) ((p)->put)
 521  #define P_PROTO(p) ((p)->p_proto)
 522  #define R(p) ((p)->r)
 523  #define RE(z) (VALUE (&(z)[0]))
 524  #define READ_MOOD(p) ((p)->read_mood)
 525  #define RED(p) ((p)->red)
 526  #define REPL(p) ((p)->repl)
 527  #define RESERVED(p) ((p)->reserved)
 528  #define RESET(p) ((p)->reset)
 529  #define RESULT(p) ((p)->result)
 530  #define RE_NSUB(p) ((p)->re_nsub)
 531  #define RLIM_CUR(p) ((p)->rlim_cur)
 532  #define RLIM_MAX(p) ((p)->rlim_max)
 533  #define RM_EO(p) ((p)->rm_eo)
 534  #define RM_SO(p) ((p)->rm_so)
 535  #define ROWED(p) ((p)->rowed)
 536  #define S(p) ((p)->s)
 537  #define SAMPLE_RATE(p) ((p)->sample_rate)
 538  #define SCAN_STATE_C(p) ((p)->scan_state.save_c)
 539  #define SCAN_STATE_L(p) ((p)->scan_state.save_l)
 540  #define SCAN_STATE_S(p) ((p)->scan_state.save_s)
 541  #define SCALE_ROW(p) ((p)->scale_row)
 542  #define SCAN(p) ((p)->scan)
 543  #define SCAN_ERROR(c, u, v, txt) if (c) {scan_error (u, v, txt);}
 544  #define SCAN_WARNING(c, u, v, txt) if (c) {scan_warning (u, v, txt);}
 545  #define SCOPE(p) ((p)->scope)
 546  #define SCOPE_ASSIGNED(p) ((p)->scope_assigned)
 547  #define SEARCH(p) ((p)->search)
 548  #define SELECT(p) ((p)->select)
 549  #define SEQUENCE(p) ((p)->sequence)
 550  #define SET(p) ((p)->set)
 551  #define SHIFT(p) ((p)->shift)
 552  #define SHORT_ID(p) ((p)->short_id)
 553  #define SIN_ADDR(p) ((p)->sin_addr)
 554  #define SIN_FAMILY(p) ((p)->sin_family)
 555  #define SIN_PORT(p) ((p)->sin_port)
 556  #define SIZE(p) ((p)->size)
 557  #define SIZE1(p) ((p)->size1)
 558  #define SIZE2(p) ((p)->size2)
 559  #define SIZE_COMPL(p) ((p)->size_compl)
 560  #define SLICE(p) ((p)->slice)
 561  #define SLICE_OFFSET(p) ((p)->slice_offset)
 562  #define SO(p) ((p)->so)
 563  #define SORT(p) ((p)->sort)
 564  #define SOURCE(p) ((p)->source)
 565  #define SOURCE_SCAN(p) ((p)->source_scan)
 566  #define SPAN(p) ((p)->span)
 567  #define STACK(p) ((p)->stack)
 568  #define STACK_POINTER(p) ((p)->stack_pointer)
 569  #define STACK_USED(p) ((p)->stack_used)
 570  #define STANDENV_MOID(p) ((p)->standenv_moid)
 571  #define START(p) ((p)->start)
 572  #define STATIC_LINK(p) ((p)->static_link)
 573  #define STATUS(p) ((p)->status)
 574  #define STATUS_IM(z) (STATUS (&(z)[1]))
 575  #define STATUS_RE(z) (STATUS (&(z)[0]))
 576  #define STR(p) ((p)->str)
 577  #define STREAM(p) ((p)->stream)
 578  #define STRING(p) ((p)->string)
 579  #define STRPOS(p) ((p)->strpos)
 580  #define ST_MODE(p) ((p)->st_mode)
 581  #define ST_MTIME(p) ((p)->st_mtime)
 582  #define SUB(p) ((p)->sub)
 583  #define SUBSET(p) ((p)->subset)
 584  #define SUB_MOID(p) (SUB (MOID (p)))
 585  #define SUB_NEXT(p) (SUB (NEXT (p)))
 586  #define SUB_SUB(p) (SUB (SUB (p)))
 587  #define SWAP(p) ((p)->swap)
 588  #define SYMBOL(p) ((p)->symbol)
 589  #define SYNC(p) ((p)->sync)
 590  #define SYNC_INDEX(p) ((p)->sync_index)
 591  #define SYNC_LINE(p) ((p)->sync_line)
 592  #define S_PORT(p) ((p)->s_port)
 593  #define TABLE(p) ((p)->symbol_table)
 594  #define TABS(p) ((p)->tabs)
 595  #define TAG_LEX_LEVEL(p) (LEVEL (TAG_TABLE (p)))
 596  #define TAG_TABLE(p) ((p)->symbol_table)
 597  #define TAX(p) ((p)->tag)
 598  #define TERM(p) ((p)->term)
 599  #define TERMINATOR(p) ((p)->terminator)
 600  #define TEXT(p) ((p)->text)
 601  #define THREAD_ID(p) ((p)->thread_id)
 602  #define THREAD_STACK_OFFSET(p) ((p)->thread_stack_offset)
 603  #define TMP_FILE(p) ((p)->tmp_file)
 604  #define TMP_TEXT(p) ((p)->tmp_text)
 605  #define TM_HOUR(p) ((p)->tm_hour)
 606  #define TM_ISDST(p) ((p)->tm_isdst)
 607  #define TM_MDAY(p) ((p)->tm_mday)
 608  #define TM_MIN(p) ((p)->tm_min)
 609  #define TM_MON(p) ((p)->tm_mon)
 610  #define TM_SEC(p) ((p)->tm_sec)
 611  #define TM_WDAY(p) ((p)->tm_wday)
 612  #define TM_YEAR(p) ((p)->tm_year)
 613  #define TOF(p) ((p)->tof)
 614  #define TOP_LINE(p) ((p)->top_line)
 615  #define TOP_MOID(p) ((p)->top_moid)
 616  #define TOP_NODE(p) ((p)->top_node)
 617  #define TOP_REFINEMENT(p) ((p)->top_refinement)
 618  #define TRANS(p) ((p)->trans)
 619  #define TRANSIENT(p) ((p)->transient)
 620  #define TRANSPUT_BUFFER(p) ((p)->transput_buffer)
 621  #define TRANSPUT_ERROR_MENDED(p) ((p)->transput_error_mended)
 622  #define TREE_LISTING_SAFE(p) ((p)->tree_listing_safe)
 623  #define TRIM(p) ((p)->trim)
 624  #define TUPLE(p) ((p)->tuple)
 625  #define TV_SEC(p) ((p)->tv_sec)
 626  #define TV_USEC(p) ((p)->tv_usec)
 627  #define UNDO(p) ((p)->undo)
 628  #define UNDO_LINE(p) ((p)->undo_line)
 629  #define UNION_OFFSET (SIZE_ALIGNED (A68_UNION))
 630  #define UNIT(p) ((p)->unit)
 631  #define UPB(p) ((p)->upper_bound)
 632  #define UPPER_BOUND(p) ((p)->upper_bound)
 633  #define USE(p) ((p)->use)
 634  #define VAL(p) ((p)->val)
 635  #define VALUE(p) ((p)->value)
 636  #define VALUE_ERROR_MENDED(p) ((p)->value_error_mended)
 637  #define WARNING_COUNT(p) ((p)->warning_count)
 638  #define WHERE(p) ((p)->where)
 639  #define IS_FLEXETY_ROW(m) (IS_FLEX (m) || IS_ROW (m) || m == M_STRING)
 640  #define IS_COERCION(p) ((p)->is_coercion)
 641  #define IS_FLEX(m) IS ((m), FLEX_SYMBOL)
 642  #define IS_LITERALLY(p, s) (strcmp (NSYMBOL (p), s) == 0)
 643  #define IS_NEW_LEXICAL_LEVEL(p) ((p)->is_new_lexical_level)
 644  #define ISNT(p, s) (! IS (p, s))
 645  #define IS(p, s) (ATTRIBUTE (p) == (s))
 646  #define IS_REF_FLEX(m) (IS (m, REF_SYMBOL) && IS (SUB (m), FLEX_SYMBOL))
 647  #define IS_REF(m) IS ((m), REF_SYMBOL)
 648  #define IS_ROW(m) IS ((m), ROW_SYMBOL)
 649  #define IS_STRUCT(m) IS ((m), STRUCT_SYMBOL)
 650  #define IS_UNION(m) IS ((m), UNION_SYMBOL)
 651  #define WINDOW_X_SIZE(p) ((p)->window_x_size)
 652  #define WINDOW_Y_SIZE(p) ((p)->window_y_size)
 653  #define WRITE_MOOD(p) ((p)->write_mood)
 654  #define X(p) ((p)->x)
 655  #define X_COORD(p) ((p)->x_coord)
 656  #define Y(p) ((p)->y)
 657  #define YOUNGEST_ENVIRON(p) ((p)->youngest_environ)
 658  #define Y_COORD(p) ((p)->y_coord)
 659  
 660  #endif
     


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