Item AST

1 files changed, 160 insertions, 0 deletions

diff --git a/src/ast/item.cpp b/src/ast/item.cpp
new file mode 100644
index 0000000..99417d8
--- /dev/null
+++ b/src/ast/item.cpp
@@ -0,0 +1,160 @@
+#include "item.hpp"
+//    ast/item.cpp - Structure of itemdb
+//
+//    Copyright © 2014 Ben Longbons <b.r.longbons@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 "../compat/memory.hpp"
+
+#include "../io/extract.hpp"
+#include "../io/line.hpp"
+
+#include "../mmo/extract_enums.hpp"
+
+#include "../poison.hpp"
+
+
+namespace tmwa
+{
+namespace ast
+{
+namespace item
+{
+    using io::respan;
+
+    // separate file because virtual
+    ItemOrComment::~ItemOrComment() {}
+
+    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)));
+    }
+
+    static
+    Result<ast::script::ScriptBody> lex_script(io::LineCharReader& lr)
+    {
+        ast::script::ScriptOptions opt;
+        opt.implicit_start = true;
+        opt.implicit_end = true;
+        opt.one_line = true;
+        auto rv = ast::script::parse_script_body(lr, opt);
+        if (rv.get_success().is_some())
+        {
+            skip_comma_space(lr);
+        }
+        return rv;
+    }
+
+#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); })
+    Result<std::unique_ptr<ItemOrComment>> parse_item(io::LineCharReader& lr)
+    {
+        std::unique_ptr<ItemOrComment> rv = nullptr;
+        Spanned<RString> first = TRY_UNWRAP(lex_nonscript(lr, true), return Ok(std::move(rv)));
+        if (first.data.startswith("//"_s))
+        {
+            Comment comment;
+            comment.span = first.span;
+            comment.comment = first.data;
+            rv = make_unique<Comment>(std::move(comment));
+            return Ok(std::move(rv));
+        }
+        Item item;
+        SPAN_EXTRACT(first, item.id);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.name);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.jname);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.type);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.buy_price);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.sell_price);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.weight);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.atk);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.def);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.range);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.magic_bonus);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.slot_unused);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.gender);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.loc);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.wlv);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.elv);
+        SPAN_EXTRACT(TRY_UNWRAP(lex_nonscript(lr, false), return EOL_ERROR(lr)), item.view);
+        item.use_script = TRY(lex_script(lr));
+        item.equip_script = TRY(lex_script(lr));
+        item.span.begin = item.id.span.begin;
+        item.span.end = item.equip_script.span.end;
+        rv = make_unique<Item>(std::move(item));
+        return Ok(std::move(rv));
+    }
+} // namespace item
+} // namespace ast
+} // namespace tmwa