Algol 68 Genie

a68g-environ.h

     
   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-2026 J. Marcel van der Veer [algol68g@algol68genie.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 and postlude.
  25  
  26  #if !defined (__A68G_ENVIRON_H__)
  27  #define __A68G_ENVIRON_H__
  28  
  29  // Standard environ.
  30  
  31  static char *bold_prelude_start[] = {
  32    "BEGIN MODE ZAHL = LONG INT,",
  33    "           DOUBLE = LONG REAL,",
  34    "           QUAD = LONG LONG REAL;",
  35    "      start: commence:",
  36    "      BEGIN",
  37    NO_TEXT
  38  };
  39  
  40  static char *bold_postlude[] = {
  41    "      END;",
  42    "      stop: abort: halt: SKIP",
  43    "END",
  44    NO_TEXT
  45  };
  46  
  47  static char *quote_prelude_start[] = {
  48    "'BEGIN' 'MODE' 'ZAHL' = 'LONG' 'INT',",
  49    "               'DOUBLE' = 'LONG' 'REAL',",
  50    "               'QUAD' = 'LONG' 'LONG' 'REAL';",
  51    "        START: COMMENCE:",
  52    "        'BEGIN'",
  53    NO_TEXT
  54  };
  55  
  56  static char *quote_postlude[] = {
  57    "     'END';",
  58    "     STOP: ABORT: HALT: 'SKIP'",
  59    "'END'",
  60    NO_TEXT
  61  };
  62  
  63  #endif