#include "Internal.h"

#include <string>
#include <sstream>
#include <vector>
#include <cstdio>
#include <map>
#include <set>
using namespace std;

#include "VersionInfo.h"
#include "MemAccess.h"
#include "Types.h"
#include "Error.h"
#include "modules/Kitchen.h"
#include "ModuleFactory.h"
#include "Core.h"
using namespace DFHack;

#include "DataDefs.h"
#include "df/world.h"
#include "df/ui.h"
#include "df/item_type.h"
#include "df/plant_raw.h"

using namespace df::enums;
using df::global::world;
using df::global::ui;

// Special values used by "seedwatch" plugin to store seed limits
const df::enums::item_type::item_type SEEDLIMIT_ITEMTYPE = df::enums::item_type::BAR;
const int16_t SEEDLIMIT_ITEMSUBTYPE = 0;
const int16_t SEEDLIMIT_MAX = 400; // Maximum permitted seed limit
const df::kitchen_exc_type SEEDLIMIT_EXCTYPE = df::kitchen_exc_type(4);

void Kitchen::debug_print(color_ostream &out)
{
    out.print("Kitchen Exclusions\n");
    for(std::size_t i = 0; i < size(); ++i)
    {
        out.print("%2zu: IT:%2i IS:%i MT:%3i MI:%2i ET:%i %s\n",
                       i,
                       ui->kitchen.item_types[i],
                       ui->kitchen.item_subtypes[i],
                       ui->kitchen.mat_types[i],
                       ui->kitchen.mat_indices[i],
                       ui->kitchen.exc_types[i],
                       (ui->kitchen.mat_types[i] >= 419 && ui->kitchen.mat_types[i] <= 618) ? world->raws.plants.all[ui->kitchen.mat_indices[i]]->id.c_str() : "n/a"
        );
    }
    out.print("\n");
}

void Kitchen::allowPlantSeedCookery(int32_t plant_id)
{
    df::plant_raw *type = world->raws.plants.all[plant_id];

    removeExclusion(df::kitchen_exc_type::Cook, item_type::SEEDS, -1,
        type->material_defs.type[plant_material_def::seed],
        type->material_defs.idx[plant_material_def::seed]);

    removeExclusion(df::kitchen_exc_type::Cook, item_type::PLANT, -1,
        type->material_defs.type[plant_material_def::basic_mat],
        type->material_defs.idx[plant_material_def::basic_mat]);
}

void Kitchen::denyPlantSeedCookery(int32_t plant_id)
{
    df::plant_raw *type = world->raws.plants.all[plant_id];

    addExclusion(df::kitchen_exc_type::Cook, item_type::SEEDS, -1,
        type->material_defs.type[plant_material_def::seed],
        type->material_defs.idx[plant_material_def::seed]);

    addExclusion(df::kitchen_exc_type::Cook, item_type::PLANT, -1,
        type->material_defs.type[plant_material_def::basic_mat],
        type->material_defs.idx[plant_material_def::basic_mat]);
}

void Kitchen::fillWatchMap(std::map<int32_t, int16_t>& watchMap)
{
    watchMap.clear();
    for (std::size_t i = 0; i < size(); ++i)
    {
        if (ui->kitchen.item_subtypes[i] == SEEDLIMIT_ITEMTYPE &&
            ui->kitchen.item_subtypes[i] == SEEDLIMIT_ITEMSUBTYPE &&
            ui->kitchen.exc_types[i] == SEEDLIMIT_EXCTYPE)
        {
            watchMap[ui->kitchen.mat_indices[i]] = ui->kitchen.mat_types[i];
        }
    }
}

int Kitchen::findLimit(int32_t plant_id)
{
    for (size_t i = 0; i < size(); ++i)
    {
        if (ui->kitchen.item_types[i] == SEEDLIMIT_ITEMTYPE &&
            ui->kitchen.item_subtypes[i] == SEEDLIMIT_ITEMSUBTYPE &&
            ui->kitchen.mat_indices[i] == plant_id &&
            ui->kitchen.exc_types[i] == SEEDLIMIT_EXCTYPE)
        {
            return int(i);
        }
    }
    return -1;
}

bool Kitchen::removeLimit(int32_t plant_id)
{
    int i = findLimit(plant_id);
    if (i < 0)
        return false;

    ui->kitchen.item_types.erase(ui->kitchen.item_types.begin() + i);
    ui->kitchen.item_subtypes.erase(ui->kitchen.item_subtypes.begin() + i);
    ui->kitchen.mat_types.erase(ui->kitchen.mat_types.begin() + i);
    ui->kitchen.mat_indices.erase(ui->kitchen.mat_indices.begin() + i);
    ui->kitchen.exc_types.erase(ui->kitchen.exc_types.begin() + i);
    return true;
}

bool Kitchen::setLimit(int32_t plant_id, int16_t limit)
{
    if (limit > SEEDLIMIT_MAX)
        limit = SEEDLIMIT_MAX;

    int i = findLimit(plant_id);
    if (i < 0)
    {
        ui->kitchen.item_types.push_back(SEEDLIMIT_ITEMTYPE);
        ui->kitchen.item_subtypes.push_back(SEEDLIMIT_ITEMSUBTYPE);
        ui->kitchen.mat_types.push_back(limit);
        ui->kitchen.mat_indices.push_back(plant_id);
        ui->kitchen.exc_types.push_back(SEEDLIMIT_EXCTYPE);
    }
    else
    {
        ui->kitchen.mat_types[i] = limit;
    }
    return true;
}

void Kitchen::clearLimits()
{
    for (size_t i = 0; i < size(); ++i)
    {
        if (ui->kitchen.item_types[i] == SEEDLIMIT_ITEMTYPE &&
            ui->kitchen.item_subtypes[i] == SEEDLIMIT_ITEMSUBTYPE &&
            ui->kitchen.exc_types[i] == SEEDLIMIT_EXCTYPE)
        {
            removeLimit(ui->kitchen.mat_indices[i]);
            --i;
        }
    }
}

size_t Kitchen::size()
{
    return ui->kitchen.item_types.size();
}

int Kitchen::findExclusion(df::kitchen_exc_type type,
    df::item_type item_type, int16_t item_subtype,
    int16_t mat_type, int32_t mat_index)
{
    for (size_t i = 0; i < size(); i++)
    {
        if (ui->kitchen.item_types[i] == item_type &&
            ui->kitchen.item_subtypes[i] == item_subtype &&
            ui->kitchen.mat_types[i] == mat_type &&
            ui->kitchen.mat_indices[i] == mat_index &&
            ui->kitchen.exc_types[i] == type)
        {
            return int(i);
        }
    }
    return -1;
}

bool Kitchen::addExclusion(df::kitchen_exc_type type,
    df::item_type item_type, int16_t item_subtype,
    int16_t mat_type, int32_t mat_index)
{
    if (findExclusion(type, item_type, item_subtype, mat_type, mat_index) >= 0)
        return false;

    ui->kitchen.item_types.push_back(item_type);
    ui->kitchen.item_subtypes.push_back(item_subtype);
    ui->kitchen.mat_types.push_back(mat_type);
    ui->kitchen.mat_indices.push_back(mat_index);
    ui->kitchen.exc_types.push_back(type);
    return true;
}

bool Kitchen::removeExclusion(df::kitchen_exc_type type,
    df::item_type item_type, int16_t item_subtype,
    int16_t mat_type, int32_t mat_index)
{
    int i = findExclusion(type, item_type, item_subtype, mat_type, mat_index);
    if (i < 0)
        return false;

    ui->kitchen.item_types.erase(ui->kitchen.item_types.begin() + i);
    ui->kitchen.item_subtypes.erase(ui->kitchen.item_subtypes.begin() + i);
    ui->kitchen.mat_types.erase(ui->kitchen.mat_types.begin() + i);
    ui->kitchen.mat_indices.erase(ui->kitchen.mat_indices.begin() + i);
    ui->kitchen.exc_types.erase(ui->kitchen.exc_types.begin() + i);
    return true;
}