/*
    by korenkonder
    GitHub/GitLab: korenkonder
*/

#include "texture.hpp"
#include "../f2/struct.hpp"
#include "../io/path.hpp"
#include "../io/stream.hpp"
#include "../hash.hpp"
#include "../sort.hpp"
#include "../str_utils.hpp"

static void texture_database_classic_read_inner(texture_database* tex_db, stream& s);
static void texture_database_classic_write_inner(texture_database* tex_db, stream& s);
static void texture_database_modern_read_inner(texture_database* tex_db, stream& s, uint32_t header_length);
static void texture_database_modern_write_inner(texture_database* tex_db, stream& s);
static int64_t texture_database_strings_get_string_offset(std::vector<std::string>& vec,
    std::vector<int64_t>& vec_off, std::string& str);
static void texture_database_strings_push_back_check(std::vector<std::string>& vec, std::string& str);

texture_database::texture_database() : ready(), modern(), is_x() {

}

texture_database::~texture_database() {

}

void texture_database::read(const char* path, bool modern) {
    if (!path)
        return;

    if (!modern) {
        char* path_bin = str_utils_add(path, ".bin");
        if (path_check_file_exists(path_bin)) {
            stream s;
            s.open(path_bin, "rb");
            if (s.io.stream) {
                uint8_t* data = force_malloc_s(uint8_t, s.length);
                s.read(data, s.length);
                stream s_bin;
                s_bin.open(data, s.length);
                texture_database_classic_read_inner(this, s_bin);
                free(data);
            }
        }
        free(path_bin);
    }
    else {
        char* path_txi = str_utils_add(path, ".txi");
        if (path_check_file_exists(path_txi)) {
            f2_struct st;
            st.read(path_txi);
            if (st.header.signature == reverse_endianness_uint32_t('MTXI')) {
                stream s_mtxi;
                s_mtxi.open(st.data);
                s_mtxi.is_big_endian = st.header.use_big_endian;
                texture_database_modern_read_inner(this, s_mtxi, st.header.length);
            }
        }
        free(path_txi);
    }
}

void texture_database::read(const wchar_t* path, bool modern) {
    if (!path)
        return;

    if (!modern) {
        wchar_t* path_bin = str_utils_add(path, L".bin");
        if (path_check_file_exists(path_bin)) {
            stream s;
            s.open(path_bin, L"rb");
            if (s.io.stream) {
                uint8_t* data = force_malloc_s(uint8_t, s.length);
                s.read(data, s.length);
                stream s_bin;
                s_bin.open(data, s.length);
                texture_database_classic_read_inner(this, s_bin);
                free(data);
            }
        }
        free(path_bin);
    }
    else {
        wchar_t* path_txi = str_utils_add(path, L".txi");
        if (path_check_file_exists(path_txi)) {
            f2_struct st;
            st.read(path_txi);
            if (st.header.signature == reverse_endianness_uint32_t('MTXI')) {
                stream s_mtxi;
                s_mtxi.open(st.data);
                s_mtxi.is_big_endian = st.header.use_big_endian;
                texture_database_modern_read_inner(this, s_mtxi, st.header.length);
            }
        }
        free(path_txi);
    }
}

void texture_database::read(const void* data, size_t size, bool modern) {
    if (!data || !size)
        return;

    if (!modern) {
        stream s;
        s.open(data, size);
        texture_database_classic_read_inner(this, s);
    }
    else {
        f2_struct st;
        st.read(data, size);
        if (st.header.signature == reverse_endianness_uint32_t('MTXI')) {
            stream s_mtxi;
            s_mtxi.open(st.data);
            s_mtxi.is_big_endian = st.header.use_big_endian;
            texture_database_modern_read_inner(this, s_mtxi, st.header.length);
        }
    }
}

void texture_database::write(const char* path) {
    if (!path || !ready)
        return;

    if (!modern) {
        char* path_bin = str_utils_add(path, ".bin");
        stream s;
        s.open(path_bin, "wb");
        if (s.io.stream)
            texture_database_classic_write_inner(this, s);
        free(path_bin);
    }
    else {
        char* path_txi = str_utils_add(path, ".txi");
        stream s;
        s.open(path_txi, "wb");
        if (s.io.stream)
            texture_database_modern_write_inner(this, s);
        free(path_txi);
    }
}

void texture_database::write(const wchar_t* path) {
    if (!path || !ready)
        return;

    if (!modern) {
        wchar_t* path_bin = str_utils_add(path, L".bin");
        stream s;
        s.open(path_bin, L"wb");
        if (s.io.stream)
            texture_database_classic_write_inner(this, s);
        free(path_bin);
    }
    else {
        wchar_t* path_txi = str_utils_add(path, L".txi");
        stream s;
        s.open(path_txi, L"wb");
        if (s.io.stream)
            texture_database_modern_write_inner(this, s);
        free(path_txi);
    }
}

void texture_database::write(void** data, size_t* size) {
    if (!data || !size || !ready)
        return;

    stream s;
    s.open();
    if (!modern)
        texture_database_classic_write_inner(this, s);
    else
        texture_database_modern_write_inner(this, s);
    s.align_write(0x10);
    s.copy(data, size);
}

void texture_database::merge_mdata(texture_database* base_tex_db,
    texture_database* mdata_tex_db) {
    if (!base_tex_db || !mdata_tex_db
        || !base_tex_db->ready || !mdata_tex_db->ready)
        return;

    if (this != base_tex_db)
        texture = base_tex_db->texture;

    for (texture_info& i : mdata_tex_db->texture) {
        uint32_t id = i.id;

        texture_info* info = 0;
        for (texture_info& j : texture)
            if (id == j.id) {
                info = &j;
                break;
            }

        if (info)
            *info = i;
        else
            texture.push_back(i);
    }

    if (this != base_tex_db) {
        ready = true;
        modern = base_tex_db->modern;
        is_x = base_tex_db->is_x;
    }
}

void texture_database::split_mdata(texture_database* base_tex_db,
    texture_database* mdata_tex_db) {
    if (!base_tex_db || !mdata_tex_db
        || !ready || !mdata_tex_db->ready)
        return;

}

uint32_t texture_database::get_texture_id(const char* name) {
    if (!name)
        return -1;

    uint32_t name_hash = hash_utf8_murmurhash(name);

    for (texture_info& i : texture)
        if (name_hash == i.name_hash)
            return i.id;
    return -1;
}

const char* texture_database::get_texture_name(uint32_t id) {
    if (id == -1)
        return 0;

    for (texture_info& i : texture)
        if (id == i.id)
            return i.name.c_str();
    return 0;
}

bool texture_database::load_file(void* data, const char* path, const char* file, uint32_t hash) {
    size_t file_len = utf8_length(file);

    const char* t = strrchr(file, '.');
    if (t)
        file_len = t - file;

    std::string s = path + std::string(file, file_len);

    texture_database* tex_db = (texture_database*)data;
    tex_db->read(s.c_str(), tex_db->modern);

    return tex_db->ready;
}

texture_info::texture_info() : name_hash(hash_murmurhash_empty), id((uint32_t)-1) {

}

texture_info::~texture_info() {

}

static void texture_database_classic_read_inner(texture_database* tex_db, stream& s) {
    uint32_t textures_count = s.read_uint32_t();
    uint32_t textures_offset = s.read_uint32_t();

    tex_db->texture.resize(textures_count);

    s.position_push(textures_offset, SEEK_SET);
    for (uint32_t i = 0; i < textures_count; i++) {
        texture_info& info = tex_db->texture[i];
        info.id = s.read_uint32_t();
        info.name = s.read_string_null_terminated_offset(s.read_uint32_t());
        info.name_hash = hash_string_murmurhash(&info.name);
    }
    s.position_pop();

    tex_db->is_x = false;
    tex_db->modern = false;
    tex_db->ready = true;
}

static void texture_database_classic_write_inner(texture_database* tex_db, stream& s) {
    s.write_uint32_t(0x90669066);
    s.write_uint32_t(0x90669066);
    s.write_uint32_t(0x90669066);
    s.write_uint32_t(0x90669066);
    s.write_uint32_t(0x90669066);
    s.write_uint32_t(0x90669066);
    s.write_uint32_t(0x90669066);
    s.write_uint32_t(0x90669066);
    s.align_write(0x20);

    uint32_t textures_count = (uint32_t)tex_db->texture.size();

    std::vector<int64_t> string_offsets;
    string_offsets.reserve(textures_count);

    for (texture_info& i : tex_db->texture) {
        string_offsets.push_back(s.get_position());
        s.write_string_null_terminated(i.name);
    }
    s.align_write(0x20);

    int64_t textures_offset = s.get_position();
    if (string_offsets.size()) {
        size_t off_idx = 0;
        for (texture_info& i : tex_db->texture) {
            s.write_uint32_t(i.id);
            s.write_uint32_t((uint32_t)string_offsets[off_idx++]);
        }
    }
    s.align_write(0x20);

    s.position_push(0x00, SEEK_SET);
    s.write_uint32_t(textures_count);
    s.write_uint32_t((uint32_t)textures_offset);
    s.position_pop();
}

static void texture_database_modern_read_inner(texture_database* tex_db, stream& s, uint32_t header_length) {
    bool is_x = true;

    s.set_position(0x04, SEEK_SET);
    is_x &= s.read_uint32_t_reverse_endianness() == 0;

    s.set_position(0x00, SEEK_SET);

    uint32_t textures_count = s.read_uint32_t_reverse_endianness();
    int64_t textures_offset = s.read_offset(header_length, is_x);

    tex_db->texture.resize(textures_count);

    s.position_push(textures_offset, SEEK_SET);
    if (!is_x)
        for (uint32_t i = 0; i < textures_count; i++) {
            texture_info& info = tex_db->texture[i];
            info.id = s.read_uint32_t_reverse_endianness();
            info.name = s.read_string_null_terminated_offset(s.read_offset_f2(header_length));
            info.name_hash = hash_string_murmurhash(&info.name);
        }
    else
        for (uint32_t i = 0; i < textures_count; i++) {
            texture_info& info = tex_db->texture[i];
            info.id = s.read_uint32_t_reverse_endianness();
            info.name = s.read_string_null_terminated_offset(s.read_offset_x());
            info.name_hash = hash_string_murmurhash(&info.name);
        }
    s.position_pop();

    tex_db->is_x = is_x;
    tex_db->modern = true;
    tex_db->ready = true;
}

static void texture_database_modern_write_inner(texture_database* tex_db, stream& s) {
    stream s_mtxi;
    s_mtxi.open();
    uint32_t off;
    enrs e;
    enrs_entry ee;
    pof pof;

    bool is_x = tex_db->is_x;

    uint32_t textures_count = (uint32_t)tex_db->texture.size();

    if (!is_x) {
        ee = { 0, 2, 8, textures_count };
        ee.append(0, 9, ENRS_DWORD);
        e.vec.push_back(ee);
        off = 8;
        off = align_val(off, 0x10);

        ee = { off, 2, 8, textures_count };
        ee.append(0, 2, ENRS_DWORD);
        e.vec.push_back(ee);
        off = (uint32_t)(textures_count * 16ULL);
    }
    else {
        textures_count++;
        ee = { 0, 2, 16, textures_count };
        ee.append(0, 1, ENRS_DWORD);
        ee.append(4, 1, ENRS_QWORD);
        e.vec.push_back(ee);
        off = (uint32_t)(textures_count * 16ULL);
        textures_count--;
    }

    s_mtxi.write_int32_t(0);
    s_mtxi.write_offset(0, 0x20, is_x);
    s_mtxi.align_write(0x10);

    int64_t textures_offset = s_mtxi.get_position();
    s_mtxi.write(textures_count * (is_x ? 0x10ULL : 0x08ULL));
    s_mtxi.align_write(0x10);

    std::vector<std::string> strings;
    std::vector<int64_t> string_offsets;

    strings.reserve(textures_count);

    for (texture_info& i : tex_db->texture)
        texture_database_strings_push_back_check(strings, i.name);

    quicksort_string(strings.data(), strings.size());
    string_offsets.reserve(strings.size());
    for (std::string& i : strings) {
        string_offsets.push_back(s_mtxi.get_position());
        s_mtxi.write_string_null_terminated(i);
    }
    s_mtxi.align_write(0x10);

    s_mtxi.position_push(0x00, SEEK_SET);
    s_mtxi.write_uint32_t(textures_count);
    io_write_offset_pof_add(s_mtxi, textures_offset, 0x20, is_x, &pof);
    s_mtxi.align_write(0x10);

    if (!is_x)
        for (texture_info& i : tex_db->texture) {
            s_mtxi.write_uint32_t(i.id);
            int64_t offset = texture_database_strings_get_string_offset(strings,
                string_offsets, i.name);
            io_write_offset_f2_pof_add(s_mtxi, offset, 0x20, &pof);
        }
    else
        for (texture_info& i : tex_db->texture) {
            s_mtxi.write_uint32_t(i.id);
            int64_t offset = texture_database_strings_get_string_offset(strings,
                string_offsets, i.name);
            io_write_offset_x_pof_add(s_mtxi, offset, &pof);
        }
    s_mtxi.position_pop();

    f2_struct st;
    s_mtxi.align_write(0x10);
    s_mtxi.copy(st.data);
    s_mtxi.close();

    st.enrs = e;
    st.pof = pof;

    st.header.signature = reverse_endianness_uint32_t('MTXI');
    st.header.length = 0x20;
    st.header.use_big_endian = false;
    st.header.use_section_size = true;

    st.write(s, true, tex_db->is_x);
}

inline static int64_t texture_database_strings_get_string_offset(std::vector<std::string>& vec,
    std::vector<int64_t>& vec_off, std::string& str) {
    for (std::string& i : vec)
        if (str == i)
            return vec_off[&i - vec.data()];
    return 0;
}

inline static void texture_database_strings_push_back_check(std::vector<std::string>& vec, std::string& str) {
    for (std::string& i : vec)
        if (str == i)
            return;

    vec.push_back(str);
}