1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
#ifndef ARCHETYPE_STATEMENT
#define ARCHETYPE_STATEMENT
#include "glk/archetype/expression.h"
#include "glk/archetype/linked_list.h"
namespace Glk {
namespace Archetype {
enum StatementKind {
COMPOUND, ST_EXPR, ST_IF, ST_CASE, ST_FOR, ST_WHILE, ST_BREAK, ST_CREATE,
ST_DESTROY, ST_WRITE, ST_WRITES, ST_STOP, CONT_SEQ, END_SEQ
};
struct StatementType;
typedef StatementType *StatementPtr;
struct StmtCompound {
ListType statements;
};
struct StmtExpr {
ExprTree expression;
};
struct StmtIf {
ExprTree condition;
StatementPtr then_branch;
StatementPtr else_branch;
};
struct StmtCase {
ExprTree test_expr;
ListType cases;
};
struct StmtCreate {
int archetype;
ExprTree new_name;
};
struct StmtDestroy {
ExprTree victim;
};
struct StmtLoop {
ExprTree selection;
StatementPtr action;
};
struct StmtWrite {
ListType print_list;
};
union StatementTypeData {
StmtCompound _compound;
StmtExpr _expr;
StmtIf _if;
StmtCase _case;
StmtCreate _create;
StmtDestroy _destroy;
StmtLoop _loop;
StmtWrite _write;
};
struct StatementType {
StatementKind _kind;
StatementTypeData _data;
StatementType() : _kind(COMPOUND) {
_data._compound.statements = nullptr;
}
};
struct CasePairType {
ExprTree value;
StatementPtr action;
};
typedef CasePairType *CasePairPtr;
} // End of namespace Archetype
} // End of namespace Glk
#endif
|
