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 //! @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
