#pragma once
#include "errors.h"
#include <sstream>

namespace java
{
enum class constant_type_t : uint8_t
{
    j_hole = 0, // HACK: this is a hole in the array, because java is crazy
    j_string_data = 1,
    j_int = 3,
    j_float = 4,
    j_long = 5,
    j_double = 6,
    j_class = 7,
    j_string = 8,
    j_fieldref = 9,
    j_methodref = 10,
    j_interface_methodref = 11,
    j_nameandtype = 12
    // FIXME: missing some constant types, see https://docs.oracle.com/javase/specs/jvms/se7/html/jvms-4.html#jvms-4.4
};

struct ref_type_t
{
    /**
        * Class reference:
        * an index within the constant pool to a UTF-8 string containing
        * the fully qualified class name (in internal format)
        * Used for j_class, j_fieldref, j_methodref and j_interface_methodref
        */
    uint16_t class_idx;
    // used for j_fieldref, j_methodref and j_interface_methodref
    uint16_t name_and_type_idx;
};

struct name_and_type_t
{
    uint16_t name_index;
    uint16_t descriptor_index;
};

class constant
{
public:
    constant_type_t type = constant_type_t::j_hole;

    constant(util::membuffer &buf)
    {
        buf.read(type);

        // load data depending on type
        switch (type)
        {
        case constant_type_t::j_float:
            buf.read_be(data.int_data);
            break;
        case constant_type_t::j_int:
            buf.read_be(data.int_data); // same as float data really
            break;
        case constant_type_t::j_double:
            buf.read_be(data.long_data);
            break;
        case constant_type_t::j_long:
            buf.read_be(data.long_data); // same as double
            break;
        case constant_type_t::j_class:
            buf.read_be(data.ref_type.class_idx);
            break;
        case constant_type_t::j_fieldref:
        case constant_type_t::j_methodref:
        case constant_type_t::j_interface_methodref:
            buf.read_be(data.ref_type.class_idx);
            buf.read_be(data.ref_type.name_and_type_idx);
            break;
        case constant_type_t::j_string:
            buf.read_be(data.index);
            break;
        case constant_type_t::j_string_data:
            // HACK HACK: for now, we call these UTF-8 and do no further processing.
            // Later, we should do some decoding. It's really modified UTF-8
            // * U+0000 is represented as 0xC0,0x80 invalid character
            // * any single zero byte ends the string
            // * characters above U+10000 are encoded like in CESU-8
            buf.read_jstr(str_data);
            break;
        case constant_type_t::j_nameandtype:
            buf.read_be(data.name_and_type.name_index);
            buf.read_be(data.name_and_type.descriptor_index);
            break;
        default:
            // invalid constant type!
            throw new classfile_exception();
        }
    }
    constant(int)
    {
    }

    std::string toString()
    {
        std::ostringstream ss;
        switch (type)
        {
        case constant_type_t::j_hole:
            ss << "Fake legacy entry";
            break;
        case constant_type_t::j_float:
            ss << "Float: " << data.float_data;
            break;
        case constant_type_t::j_double:
            ss << "Double: " << data.double_data;
            break;
        case constant_type_t::j_int:
            ss << "Int: " << data.int_data;
            break;
        case constant_type_t::j_long:
            ss << "Long: " << data.long_data;
            break;
        case constant_type_t::j_string_data:
            ss << "StrData: " << str_data;
            break;
        case constant_type_t::j_string:
            ss << "Str: " << data.index;
            break;
        case constant_type_t::j_fieldref:
            ss << "FieldRef: " << data.ref_type.class_idx << " " << data.ref_type.name_and_type_idx;
            break;
        case constant_type_t::j_methodref:
            ss << "MethodRef: " << data.ref_type.class_idx << " " << data.ref_type.name_and_type_idx;
            break;
        case constant_type_t::j_interface_methodref:
            ss << "IfMethodRef: " << data.ref_type.class_idx << " " << data.ref_type.name_and_type_idx;
            break;
        case constant_type_t::j_class:
            ss << "Class: " << data.ref_type.class_idx;
            break;
        case constant_type_t::j_nameandtype:
            ss << "NameAndType: " << data.name_and_type.name_index << " "
               << data.name_and_type.descriptor_index;
            break;
        default:
            ss << "Invalid entry (" << int(type) << ")";
            break;
        }
        return ss.str();
    }

    std::string str_data; /** String data in 'modified utf-8'.*/

    // store everything here.
    union
    {
        int32_t int_data;
        int64_t long_data;
        float float_data;
        double double_data;
        uint16_t index;
        ref_type_t ref_type;
        name_and_type_t name_and_type;
    } data = {0};
};

/**
 * A helper class that represents the custom container used in Java class file for storage of
 * constants
 */
class constant_pool
{
public:
    /**
     * Create a pool of constants
     */
    constant_pool()
    {
    }
    /**
     * Load a java constant pool
     */
    void load(util::membuffer &buf)
    {
        // FIXME: @SANITY this should check for the end of buffer.
        uint16_t length = 0;
        buf.read_be(length);
        length--;
        const constant *last_constant = nullptr;
        while (length)
        {
            const constant &cnst = constant(buf);
            constants.push_back(cnst);
            last_constant = &constants[constants.size() - 1];
            if (last_constant->type == constant_type_t::j_double ||
                last_constant->type == constant_type_t::j_long)
            {
                // push in a fake constant to preserve indexing
                constants.push_back(constant(0));
                length -= 2;
            }
            else
            {
                length--;
            }
        }
    }
    typedef std::vector<java::constant> container_type;
    /**
     * Access constants based on jar file index numbers (index of the first element is 1)
     */
    java::constant &operator[](std::size_t constant_index)
    {
        if (constant_index == 0 || constant_index > constants.size())
        {
            throw new classfile_exception();
        }
        return constants[constant_index - 1];
    }
    ;
    container_type::const_iterator begin() const
    {
        return constants.begin();
    }
    ;
    container_type::const_iterator end() const
    {
        return constants.end();
    }

private:
    container_type constants;
};
}