#include "extract_mmo.hpp"
//    extract_mmo.cpp - a simple, hierarchical, tokenizer
//
//    Copyright © 2013 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 <algorithm>

#include "../io/extract.hpp"

#include "../mmo/extract_enums.hpp"

#include "mmo.hpp"

#include "../poison.hpp"


// TODO also pass an io::LineSpan around.
namespace tmwa
{
bool impl_extract(XString str, GlobalReg *var)
{
    return extract(str,
            record<','>(&var->str, &var->value));
}

bool impl_extract(XString str, Item *it)
{
    XString ignored;
    XString corruption_hack_amount;
    bool rv = extract(str,
            record<',', 11>(
                &ignored,
                &it->nameid,
                &corruption_hack_amount,
                &it->equip,
                &ignored,
                &ignored,
                &ignored,
                &ignored,
                &ignored,
                &ignored,
                &ignored,
                &ignored));
    if (rv)
    {
        if (corruption_hack_amount == "-1"_s)
            it->amount = 0;
        else
            rv = extract(corruption_hack_amount, &it->amount);
    }
    return rv;
}

bool impl_extract(XString str, MapName *m)
{
    XString::iterator it = std::find(str.begin(), str.end(), '.');
    str = str.xislice_h(it);
    VString<15> tmp;
    bool rv = extract(str, &tmp);
    *m = tmp;
    return rv;
}

bool impl_extract(XString str, CharName *out)
{
    VString<23> tmp;
    if (extract(str, &tmp))
    {
        *out = CharName(tmp);
        return true;
    }
    return false;
}

bool impl_extract(XString str, NpcEvent *ev)
{
    XString mid;
    return extract(str, record<':'>(&ev->npc, &mid, &ev->label)) && !mid;
}

bool impl_extract(XString str, Point *p)
{
    return extract(str, record<','>(&p->map_, &p->x, &p->y));
}
} // namespace tmwa