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-2023 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 #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