/*
===========================================================================
Copyright (C) 2015 the OpenMoHAA team

This file is part of OpenMoHAA source code.

OpenMoHAA source code 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 2 of the License,
or (at your option) any later version.

OpenMoHAA source code 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 OpenMoHAA source code; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
===========================================================================
*/

// configurator.cpp: Config class for INI files.

#include "configurator.h"

CLASS_DECLARATION(Class, Configurator, NULL) {
    {NULL, NULL}
};

Configurator::Configurator(const char *filename)
{
    Parse(filename);
}

Configurator::Configurator()
{
    m_bNoWrite   = false;
    m_bNeedWrite = false;
}

Configurator::~Configurator()
{
    Close();
}

size_t Configurator::GetLine(char *dest, const char *data, size_t size)
{
    const char *p = data;
    size_t      i = 0;

    while (*p == '\n') {
        p++;
    }

    if (p >= data + size) {
        return 0;
    }

    while (*p && *p != '\n' && i < size) {
        dest[i++] = *p++;
    }

    if (i < size) {
        dest[i++] = '\n';
    }

    dest[i] = 0;

    return p - data;
}

void Configurator::RemoveSection(configSection_t *section)
{
    configKey_t *key;
    int          i;

    for (i = 0; i < section->key.NumObjects(); i++) {
        key = section->key[i];
        RemoveKey(section, key);
    }

    m_reverseSections.RemoveObject(section);
    m_sections.remove(section->name);
}

void Configurator::RemoveKey(configSection_t *section, configKey_t *key)
{
    section->key.RemoveObject(key);
    delete key;
}

configSection_t *Configurator::CreateSection(const char *section)
{
    configSection_t *s = &m_sections.addKeyValue(section);

    if (s->key.NumObjects()) {
        RemoveSection(s);
        s = &m_sections.addKeyValue(section);
    } else {
        m_reverseSections.AddObject(s);
    }

    s->name = section;
    return s;
}

int Configurator::GetKeyArray(char *key)
{
    int    count;
    size_t len;
    int    arrayindex = -1;
    char  *p1, *p2;

    len = strlen(key) + 1;
    p1  = new char[len];
    p2  = new char[len];

    count = sscanf(key, "%[^[] [%[^]]", p1, p2);
    if (count == 2) {
        // Check for an array [num]
        strcpy(key, p1);
        arrayindex = atoi(p2);
        if (arrayindex < 0 || arrayindex > MAX_CONFIGURATOR_ARRAY_SIZE) {
            arrayindex = -2;
        }
    }

    delete[] p1;
    delete[] p2;

    return arrayindex;
}

int Configurator::GetKeyArray(str& key)
{
    int    count;
    size_t len;
    int    arrayindex = -1;
    str    arrayval;
    char  *p1, *p2;

    len = key.length() + 1;
    p1  = new char[len];
    p2  = new char[len];

    count = sscanf(key, "%[^[] [%[^]]", p1, p2);
    if (count == 2) {
        // Check for an array [num]
        arrayval   = p2;
        arrayindex = atoi(arrayval.c_str());

        key = p1;

        if (arrayindex < 0 || arrayindex > MAX_CONFIGURATOR_ARRAY_SIZE) {
            arrayindex = -2;
        }
    }

    delete[] p1;
    delete[] p2;

    return arrayindex;
}

configKey_t *Configurator::CreateKey(configSection_t *section, const char *key, unsigned int *index)
{
    configKey_t *k;
    str          keyname;
    int          arrayindex;

    if (index) {
        *index = 0;
    }

    keyname = key;

    arrayindex = GetKeyArray(keyname);
    if (arrayindex == -2) {
        return NULL;
    } else if (arrayindex >= 0) {
        if (index) {
            *index = arrayindex;
        }
    }

    k = FindKey(section, keyname);
    if (k) {
        if (arrayindex == -1 || !k->value.NumObjects()) {
            RemoveKey(section, k);
            k = NULL;
        }
    }

    if (!k) {
        k = new configKey_t;
        section->key.AddObject(k);
        k->name         = keyname;
        k->m_bArray     = arrayindex != -1;
        k->m_bNeedWrite = false;
    }

    if (arrayindex >= k->value.MaxObjects()) {
        k->value.Resize((arrayindex + 1) * 2);
    }

    return k;
}

configSection_t *Configurator::FindSection(const char *section)
{
    configSection_t *s = m_sections.findKeyValue(section);
    return s;
}

configKey_t *Configurator::FindKey(configSection_t *section, const char *key)
{
    configKey_t *k;
    int          i;

    for (i = 0; i < section->key.NumObjects(); i++) {
        k = section->key[i];
        if (!k->name.icmp(key)) {
            return k;
        }
    }

    return NULL;
}

int Configurator::CutLine(char *data)
{
    char *p = data;
    while (*p == '\n') {
        *p++ = 0;
    }
    while (*p && *p != '\n') {
        *p++ = 0;
    }
    return p - data;
}

bool Configurator::SetupLine(char *line, int& lineno, size_t& len, size_t& last)
{
    lineno++;
    len = (int)strlen(line) - 1;
    if (len <= 0) {
        return false;
    }

    if (line[len] != '\n') {
        last = 0;
        glbs.DPrintf("Configurator::SetupLine: input line too long in %s (line %d)\n", m_filename.c_str(), lineno);
        return false;
    }

    while ((len >= 0) && ((line[len] == '\n') || (isspace(line[len])))) {
        line[len] = 0;
        len--;
    }
    if (line[len] == '\\') {
        last = len;
        return false;
    } else {
        last = 0;
    }

    return true;
}

void Configurator::WriteData(char **data, size_t *size)
{
    configSection_t *section;
    configKey_t     *key;
    configValue_t   *val;
    str              value;
    char            *oldData     = *data;
    char            *currentData = *data;
    size_t           currentSize = *size;
    size_t           len, tlen = 0;
    int              i, j, k;
    size_t           offset, offset2;
    bool             bFound;

    for (i = 1; i <= m_reverseSections.NumObjects(); i++) {
        section = m_reverseSections.ObjectAt(i);

        if (!FindData(LINE_SECTION, section->name, NULL, &offset, currentData, currentSize)) {
            oldData = currentData;

            len = (offset ? 2 : 0) + 1 + section->name.length() + 1; // \n\n + [ + section + ]
            currentSize += len;
            currentData = new char[currentSize + 1];
            strncpy(currentData, oldData, offset);
            Com_sprintf(
                currentData + offset, currentSize + 1 - offset, offset ? "\n\n[%s]" : "[%s]", section->name.c_str()
            );
            Q_strncpyz(currentData + offset + len, oldData + offset, currentSize + 1 - offset - len);

            if (currentData != oldData) {
                delete[] oldData;
            }
        }

        for (j = 0; j < section->key.NumObjects(); j++) {
            key = section->key[j];
            if (!key->m_bNeedWrite) {
                continue;
            }

            if (key->m_bArray) {
                for (k = 0; k < key->value.NumObjects(); k++) {
                    val = &key->value[k];
                    if (!val->m_bNeedWrite) {
                        continue;
                    }
                    value = val->value;

                    bFound = FindData(
                        LINE_VALUE, section->name, key->name + "[" + k + "]", &offset, currentData, currentSize
                    );
                    {
                        int digits, l;

                        oldData = currentData;

                        l      = k;
                        digits = 0;
                        if (!l) {
                            l = 1;
                        }
                        while (l) {
                            l /= 10;
                            digits++;
                        }

                        if (bFound) {
                            len = CutLine(currentData + offset);
                            currentSize -= len;
                            offset2 = offset + len;
                        } else {
                            offset2 = offset;
                        }

                        len = 1 + key->name.length() + 1 + digits + 1 + 1
                            + value.length(); // \n + name + [ + digits + ] + = + value
                        currentSize += len;
                        currentData = new char[currentSize + 1];
                        strncpy(currentData, oldData, offset);
                        Com_sprintf(
                            currentData + offset,
                            currentSize + 1 - offset,
                            "\n%s[%d]=%s",
                            key->name.c_str(),
                            k,
                            value.c_str()
                        );
                        Q_strncpyz(currentData + offset + len, oldData + offset2, currentSize + 1 - offset - len);

                        if (currentData != oldData) {
                            delete[] oldData;
                        }
                    }
                }
            } else {
                val = &key->value[0];
                if (!val->m_bNeedWrite) {
                    continue;
                }
                value = val->value;

                bFound = FindData(LINE_VALUE, section->name, key->name, &offset, currentData, currentSize);
                {
                    oldData = currentData;

                    if (bFound) {
                        len = CutLine(currentData + offset);
                        currentSize -= len;
                        offset2 = offset + len;
                    } else {
                        offset2 = offset;
                    }

                    len = 1 + key->name.length() + 1 + value.length(); // \n + name + = + value
                    currentSize += len;
                    currentData = new char[currentSize + 1];
                    strncpy(currentData, oldData, offset);
                    Com_sprintf(
                        currentData + offset, currentSize + 1 - offset "\n%s=%s", key->name.c_str(), value.c_str()
                    );
                    Q_strncpyz(currentData + offset + len, oldData + offset2, currentSize + 1 - offset - len);

                    if (currentData != oldData) {
                        delete[] oldData;
                    }
                }
            }
        }
    }

    if (currentData[currentSize - 1] != '\n') {
        currentData[currentSize] = '\n';
        currentSize++;
    }

    *data = currentData;
    *size = currentSize;
}

void Configurator::WriteData2(char **data, size_t *size)
{
    configSection_t *section;
    configKey_t     *key;
    configValue_t   *val;
    str              value;
    char            *oldData     = *data;
    char            *currentData = *data;
    size_t           currentSize = *size;
    char            *p           = currentData;
    size_t           tlen        = 0;
    int              i, j, k;

    for (i = 1; i <= m_reverseSections.NumObjects(); i++) {
        section = m_reverseSections.ObjectAt(i);

        if (i == 1) {
            tlen += 1 + section->name.length() + 1 + 1; // [ + name + ] + \n
        } else {
            tlen += 1 + 1 + section->name.length() + 1 + 1; // \n + [ name + ] + \n
        }

        if (tlen > currentSize) {
            oldData = currentData;

            currentSize = tlen + 1024;
            currentData = new char[currentSize];
            p           = currentData + (p - oldData);
            Q_strncpyz(currentData, oldData, currentSize);

            delete[] oldData;
        }

        if (i == 1) {
            p += Com_sprintf(p, currentSize - (p - currentData), "[%s]\n", section->name.c_str());
        } else {
            p += Com_sprintf(p, currentSize - (p - currentData), "\n[%s]\n", section->name.c_str());
        }

        for (j = 0; j < section->key.NumObjects(); j++) {
            key = section->key[j];
            if (!key->m_bNeedWrite) {
                continue;
            }

            if (key->m_bArray) {
                for (k = 0; k < key->value.NumObjects(); k++) {
                    val = &key->value[k];
                    if (!val->m_bNeedWrite) {
                        continue;
                    }
                    value = val->value;

                    {
                        int digits, l;

                        l      = k;
                        digits = 0;
                        if (!l) {
                            l = 1;
                        }
                        while (l) {
                            l /= 10;
                            digits++;
                        }

                        tlen += key->name.length() + 1 + digits + 1 + 1 + value.length()
                              + 1; // name + [ + digits + ] + = + value + \n
                        if (tlen > currentSize) {
                            oldData = currentData;

                            currentSize = tlen + 1024;
                            currentData = new char[currentSize];
                            p           = currentData + (p - oldData);
                            strcpy(currentData, oldData);

                            delete[] oldData;
                        }

                        p += Com_sprintf(
                            p, currentSize - (p - currentData), "%s[%d]=%s\n", key->name.c_str(), k, value.c_str()
                        );
                    }
                }
            } else {
                val = &key->value[0];
                if (!val->m_bNeedWrite) {
                    continue;
                }
                value = val->value;

                tlen += key->name.length() + 1 + value.length() + 1; // name + = + value + \n
                if (tlen > currentSize) {
                    oldData = currentData;

                    currentSize = tlen + 1024;
                    currentData = new char[currentSize];
                    p           = currentData + (p - oldData);
                    strcpy(currentData, oldData);

                    delete[] oldData;
                }

                p += Com_sprintf(p, currentSize - (p - currentData), "%s=%s\n", key->name.c_str(), value.c_str());
            }
        }
    }

    *data = currentData;
    *size = tlen;
}

bool Configurator::FindData(int type, const char *s, const char *k, size_t *offset, const char *data, size_t size)
{
    static char line[MAX_STRING_TOKENS + 1];
    static char section[MAX_STRING_TOKENS + 1];
    static char key[MAX_STRING_TOKENS + 1];
    static char val[MAX_STRING_TOKENS + 1];

    size_t last = 0;
    size_t len;
    size_t olen   = 0;
    size_t tlen   = 0;
    int    lineno = 0;
    int    arrayindex;

    bool bFoundSection = false;

    *offset = 0;

    while ((olen = GetLine(line + last, data + tlen, MAX_STRING_TOKENS - last)) != 0) {
        tlen += olen;
        if (!SetupLine(line + last, lineno, len, last)) {
            continue;
        }

        switch (ParseLine(line, section, key, val)) {
        case LINE_SECTION:
            if (bFoundSection) {
                // Return the last line of the section to append
                *offset = tlen - olen;
                return false;
            }

            if (!Q_stricmp(s, section)) {
                bFoundSection = true;

                if (type == LINE_SECTION) {
                    *offset = tlen;
                    return true;
                }
            }
            break;

        case LINE_VALUE:
            arrayindex = GetKeyArray(key);
            if (arrayindex >= 0) {
                Com_sprintf(key, sizeof(key), "%s[%d]", key, arrayindex);
            }

            if (type == LINE_VALUE && bFoundSection && !Q_stricmp(k, key)) {
                *offset = tlen - olen;
                return true;
            }
            break;

        default:
            break;
        }
    }

    *offset = tlen;
    return false;
}

void Configurator::ParseData(const char *data, size_t size)
{
    static char line[MAX_STRING_TOKENS + 1];
    static char section[MAX_STRING_TOKENS + 1];
    static char key[MAX_STRING_TOKENS + 1];
    static char val[MAX_STRING_TOKENS + 1];

    size_t       last = 0;
    size_t       len;
    size_t       tlen   = 0;
    int          lineno = 0;
    unsigned int index  = 0;

    configSection_t *current;
    configKey_t     *k;
    configValue_t    v;

    while ((len = GetLine(line + last, data + tlen, MAX_STRING_TOKENS - last)) != 0) {
        tlen += len;
        if (!SetupLine(line + last, lineno, len, last)) {
            continue;
        }

        switch (ParseLine(line, section, key, val)) {
        case LINE_EMPTY:
        case LINE_COMMENT:
            break;

        case LINE_SECTION:
            current = CreateSection(section);
            break;

        case LINE_VALUE:
            k = CreateKey(current, key, &index);
            if (!k) {
                glbs.DPrintf("Configurator::ParseData: Could not create key:\n");
                goto __error;
            }
            v.m_bNeedWrite = false;
            v.value        = val;
            k->value.AddObjectAt(index + 1, v);
            break;

        case LINE_ERROR:
            glbs.DPrintf("Configurator::ParseData: syntax error:\n");

        __error:
            glbs.DPrintf("(%s, %d):", m_filename.c_str(), lineno);
            glbs.DPrintf("%s\n", line);
            break;

        default:
            break;
        }
    }
}

int Configurator::ParseLine(char *line, char *section, char *key, char *value)
{
    size_t len;
    int    result;

    len = strlen(line);

    if (len < 1) {
        result = LINE_EMPTY;
    } else if (line[0] == ';') {
        result = LINE_COMMENT;
    } else if (line[0] == '[' && line[len - 1] == ']') {
        sscanf(line, "[%[^]]", section);
        strcpy(section, strstrip(section));
        strlwc(section);

        result = LINE_SECTION;
    } else if ((sscanf(line, "%[^=] = \"%[^\"]\"", key, value)) == 2
               || (sscanf(line, "%[^=] = %[^;]", key, value)) == 2) {
        strcpy(key, strstrip(key));
        strlwc(key);
        strcpy(value, strstrip(value));

        // sscanf cannot handle empty "" values
        if (!strcmp(value, "\"\"")) {
            value = "";
        }

        result = LINE_VALUE;
    } else if ((sscanf(line, "%[^=] = %[;]", key, value)) == 2 || (sscanf(line, "%[^=] %[=]", key, value)) == 2) {
        strcpy(key, strstrip(key));
        strlwc(key);
        value[0] = 0;

        result = LINE_VALUE;
    } else {
        result = LINE_ERROR;
    }

    return result;
}

str Configurator::GetValue(const char *section, const char *key, str defaultValue, int index)
{
    configKey_t  *k = GetKey(section, key, index);
    configValue_t val;

    if (!k) {
        return defaultValue;
    }

    if (index < 0) {
        index = 0;
    }

    if (k->m_bNeedWrite) {
        val.m_bNeedWrite = true;
        val.value        = defaultValue;
        k->value.AddObjectAt(index + 1, val);
    }

    return k->value[index].value;
}

configKey_t *Configurator::GetKey(const char *section, const char *key, int index)
{
    configSection_t *s;
    configKey_t     *k;

    bool bArray = index >= 0;
    if (index < 0) {
        index = 0;
    }

    s = FindSection(section);
    if (!s) {
        if (m_bNoWrite) {
            return NULL;
        }

        s               = CreateSection(section);
        s->m_bNeedWrite = true;
        m_bNeedWrite    = true;
    }

    k = FindKey(s, key);
    if (!k) {
        if (m_bNoWrite) {
            return NULL;
        }

        str keyname;
        if (bArray) {
            keyname = str(key) + "[" + str(index) + "]";
        } else {
            keyname = key;
        }
        k               = CreateKey(s, keyname, NULL);
        k->m_bNeedWrite = true;
        m_bNeedWrite    = true;
    } else if (index >= k->value.NumObjects()) {
        k->m_bNeedWrite = true;
        m_bNeedWrite    = true;
    }

    return k;
}

//======================================
// Configurator::GetString
//======================================
str Configurator::GetString(const char *section, const char *key, str defaultValue, int index)
{
    str value = GetValue(section, key, defaultValue, index);
    return value;
}

//======================================
// Configurator::GetInteger
//======================================
int Configurator::GetInteger(const char *section, const char *key, int defaultValue, int index)
{
    str value = GetValue(section, key, defaultValue, index);
    return atoi(value.c_str());
}

//======================================
// Configurator::GetFloat
//======================================
float Configurator::GetFloat(const char *section, const char *key, float defaultValue, int index)
{
    str value = GetValue(section, key, defaultValue, index);
    return atof(value.c_str());
}

//======================================
// Configurator::SetString
//======================================
void Configurator::SetString(const char *section, const char *key, str value, int index)
{
    configKey_t  *k = GetKey(section, key, index);
    configValue_t v;

    if (!k) {
        return;
    }

    if (index < 0) {
        index = 0;
    }

    if (index >= k->value.NumObjects() || k->value[index].value != value) {
        m_bNeedWrite    = true;
        v.m_bNeedWrite  = true;
        v.value         = value;
        k->m_bNeedWrite = true;
        k->value.AddObjectAt(index + 1, v);
    }
}

//======================================
// Configurator::SetInteger
//======================================
void Configurator::SetInteger(const char *section, const char *key, int value, int index)
{
    return SetString(section, key, value, index);
}

//======================================
// Configurator::SetFloat
//======================================
void Configurator::SetFloat(const char *section, const char *key, float value, int index)
{
    return SetString(section, key, value, index);
}

//======================================
// Configurator::SetWrite
//======================================
void Configurator::SetWrite(bool bWrite)
{
    m_bNoWrite = !bWrite;
}

//======================================
// Configurator::Parse
//======================================
void Configurator::Parse(const char *filename)
{
    FILE  *file;
    size_t size;
    char  *buffer;

    m_bNoWrite   = false;
    m_bNeedWrite = false;

    this->m_filename = filename;

    file = fopen(filename, "r");
    if (!file) {
        return;
    }

    fseek(file, 0, SEEK_END);
    size = ftell(file);
    rewind(file);

    buffer       = new char[size + 1];
    size         = fread(buffer, 1, size, file);
    buffer[size] = 0;

    fclose(file);

    ParseData(buffer, size);
}

//======================================
// Configurator::Close
//======================================
void Configurator::Close(void)
{
    FILE  *file;
    char  *buffer;
    int    i;
    size_t size;

    if (!m_filename.length() || !m_bNeedWrite) {
        goto _cleanup;
    }

    file = fopen(m_filename.c_str(), "r+");
    if (!file) {
        file = fopen(m_filename.c_str(), "w+");
        if (!file) {
            return;
        }
        file = freopen(m_filename.c_str(), "r+", file);
        if (!file) {
            return;
        }
    }

    fseek(file, 0, SEEK_END);
    size = ftell(file);
    rewind(file);

    buffer       = new char[size + 1];
    size         = fread(buffer, 1, size, file);
    buffer[size] = 0;

    glbs.DPrintf("Configurator::Close: Writing data to %s...\n", m_filename.c_str());
    WriteData(&buffer, &size);
    glbs.DPrintf("Configurator::Close: Done.\n");
    file = freopen(m_filename.c_str(), "w+", file);
    fwrite(buffer, size, 1, file);
    fclose(file);

    m_filename = "";

    delete[] buffer;

_cleanup:
    for (i = m_reverseSections.NumObjects(); i > 0; i--) {
        RemoveSection(m_reverseSections.ObjectAt(i));
    }
}

void test_config(void)
{
    Configurator config("test.ini");
    str          value;

    value = config.GetString("section1", "testvar1", "100");
    glbs.DPrintf("value = %s\n", value.c_str());
    value = config.GetString("section1", "testarray1", "100", 0);
    glbs.DPrintf("array1 = %s\n", value.c_str());
    value = config.GetString("section1", "testarray1", "100", 1);
    glbs.DPrintf("array2 = %s\n", value.c_str());
    value = config.GetString("section1", "testarray1", "100", 2);
    glbs.DPrintf("array3 = %s\n", value.c_str());

    value = config.GetString("section1", "testforcewrite", "500");
    glbs.DPrintf("testforcewrite = %s\n", value.c_str());

    value = config.GetString("section2", "testforcewrite2", "500");
    glbs.DPrintf("testforcewrite2 = %s\n", value.c_str());

    //for( int i = 0; i < 2048; i++ )
    //{
    //	value = config.GetString( "section1", "testforcewrite5", "2048", i );
    //}

    config.SetString("section1", "testforcewrite5", "newstring", 2048);

    config.Close();
}