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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
#include "quest.hpp"
// ast/quest.cpp - Structure of tmwa questdb
//
// Copyright © 2015 Ed Pasek <pasekei@gmail.com>
//
// This file is part of The Mana World (Athena server)
//
// 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 3 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, see <http://www.gnu.org/licenses/>.
#include "../io/extract.hpp"
#include "../io/line.hpp"
#include "../mmo/extract_enums.hpp"
#include "../poison.hpp"
namespace tmwa
{
namespace ast
{
namespace quest
{
using io::respan;
static
void skip_comma_space(io::LineCharReader& lr)
{
io::LineChar c;
if (lr.get(c) && c.ch() == ',')
{
lr.adv();
while (lr.get(c) && c.ch() == ' ')
{
lr.adv();
}
}
}
static
Option<Spanned<RString>> lex_nonscript(io::LineCharReader& lr, bool first)
{
io::LineChar c;
if (first)
{
while (lr.get(c) && c.ch() == '\n')
{
lr.adv();
}
}
if (!lr.get(c))
{
return None;
}
io::LineSpan span;
MString accum;
accum += c.ch();
span.begin = c;
span.end = c;
lr.adv();
if (c.ch() != '/')
first = false;
if (first && lr.get(c) && c.ch() == '/')
{
accum += c.ch();
span.end = c;
lr.adv();
while (lr.get(c) && c.ch() != '\n')
{
accum += c.ch();
span.end = c;
lr.adv();
}
return Some(respan(span, RString(accum)));
}
while (lr.get(c) && c.ch() != ',' && c.ch() != '\n')
{
accum += c.ch();
span.end = c;
lr.adv();
}
skip_comma_space(lr);
return Some(respan(span, RString(accum)));
}
#define SPAN_EXTRACT(bitexpr, var) ({ auto bit = bitexpr; if (!extract(bit.data, &var.data)) return Err(bit.span.error_str("failed to extract "_s #var)); var.span = bit.span; })
#define EOL_ERROR(lr) ({ io::LineChar c; lr.get(c) ? Err(c.error_str("unexpected EOL"_s)) : Err("unexpected EOF before unexpected EOL"_s); })
Option<Result<QuestOrComment>> parse_quest(io::LineCharReader& lr)
{
Spanned<RString> first = TRY_UNWRAP(lex_nonscript(lr, true), return None);
if (first.data.startswith("//"_s))
{
Comment comment;
comment.comment = first.data;
QuestOrComment rv = std::move(comment);
rv.span = first.span;
return Some(Ok(std::move(rv)));
}
Quest quest;
SPAN_EXTRACT(first, quest.questid);
SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), quest.quest_var);
SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), quest.quest_vr);
SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), quest.quest_shift);
SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), quest.quest_mask);
QuestOrComment rv = std::move(quest);
rv.span.begin = quest.questid.span.begin;
rv.span.end = quest.quest_mask.span.end;
return Some(Ok(std::move(rv)));
}
} // namespace quest
} // namespace ast
} // namespace tmwa
|
