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
|
#include "scriptparser.hpp"
#include "errorhandler.hpp"
#include "scanner.hpp"
#include "skipparser.hpp"
namespace Compiler
{
ScriptParser::ScriptParser(ErrorHandler& errorHandler, const Context& context, Locals& locals, bool end)
: Parser(errorHandler, context)
, mOutput(locals)
, mLineParser(errorHandler, context, locals, mOutput.getLiterals(), mOutput.getCode())
, mControlParser(errorHandler, context, locals, mOutput.getLiterals())
, mEnd(end)
{
}
Interpreter::Program ScriptParser::getProgram() const
{
return mOutput.getProgram();
}
bool ScriptParser::parseName(const std::string& name, const TokenLoc& loc, Scanner& scanner)
{
mLineParser.reset();
if (mLineParser.parseName(name, loc, scanner))
scanner.scan(mLineParser);
return true;
}
bool ScriptParser::parseKeyword(int keyword, const TokenLoc& loc, Scanner& scanner)
{
if (keyword == Scanner::K_while || keyword == Scanner::K_if || keyword == Scanner::K_elseif)
{
mControlParser.reset();
if (mControlParser.parseKeyword(keyword, loc, scanner))
scanner.scan(mControlParser);
mControlParser.appendCode(mOutput.getCode());
return true;
}
/// \todo add an option to disable this nonsense
if (keyword == Scanner::K_endif)
{
// surplus endif
getErrorHandler().warning("endif without matching if/elseif", loc);
SkipParser skip(getErrorHandler(), getContext());
scanner.scan(skip);
return true;
}
if (keyword == Scanner::K_end && mEnd)
{
return false;
}
mLineParser.reset();
if (mLineParser.parseKeyword(keyword, loc, scanner))
scanner.scan(mLineParser);
return true;
}
bool ScriptParser::parseSpecial(int code, const TokenLoc& loc, Scanner& scanner)
{
if (code == Scanner::S_newline) // empty line
return true;
if (code == Scanner::S_open) /// \todo Option to switch this off
{
scanner.putbackSpecial(code, loc);
return parseKeyword(Scanner::K_if, loc, scanner);
}
mLineParser.reset();
if (mLineParser.parseSpecial(code, loc, scanner))
scanner.scan(mLineParser);
return true;
}
void ScriptParser::parseEOF(Scanner& scanner)
{
if (mEnd)
Parser::parseEOF(scanner);
}
void ScriptParser::reset()
{
mLineParser.reset();
mOutput.clear();
}
}
|
