Algol 68 Genie

a68g-environ.h

You can download the current version of Algol 68 Genie and its documentation here.
   1 //! @file a68g-environ.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-2023 J. Marcel van der Veer .
   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 .
  21 
  22 #if !defined (__A68G_ENVIRON_H__)
  23 #define __A68G_ENVIRON_H__
  24 
  25 // Standard environ.
  26 
  27 static char *bold_prelude_start[] = {
  28   "BEGIN MODE DOUBLE = LONG REAL,",
  29   "           QUAD = LONG LONG REAL;",
  30   "      start: commence:",
  31   "      BEGIN",
  32   NO_TEXT
  33 };
  34 
  35 static char *bold_postlude[] = {
  36   "      END;",
  37   "      stop: abort: halt: SKIP",
  38   "END",
  39   NO_TEXT
  40 };
  41 
  42 static char *quote_prelude_start[] = {
  43   "'BEGIN' 'MODE' 'DOUBLE' = 'LONG' 'REAL',",
  44   "               'QUAD' = 'LONG' 'LONG' 'REAL';",
  45   "        START: COMMENCE:",
  46   "        'BEGIN'",
  47   NO_TEXT
  48 };
  49 
  50 static char *quote_postlude[] = {
  51   "     'END';",
  52   "     STOP: ABORT: HALT: 'SKIP'",
  53   "'END'",
  54   NO_TEXT
  55 };
  56 
  57 #endif