[INCLUDE] - w!ini(beta)

/*
*
* --- w!ini ---
* Por Willian Luigi
*
*
*   - Functions:
*
*       i_create    (filename[])    - Cria um arquivo.
*       i_open      (filename[], t) - Abre um arquivo para leitura(t = 0), ou escrita(t = 1).
*       i_read      (tag[], str[])  - Lê o valor de uma tag e inseri na str.
*       i_readBool  (tag[])         - Lê o valor de uma tag e retorna o bool.
*       i_readFloat (tag[])         - Lê o valor de uma tag e retorna o float.
*       i_readInt   (tag[])         - Lê o valor de uma tag e retorna o int.
*       i_write     (tag[], val[])  - Escreve uma tag e um valor string.
*       i_writeFloat(tag[], val[])  - Escreve uma tag e um valor float.
*       i_writeInt  (tag[], val[])  - Escreve uma tag e um valor int.
*       i_writeBool (tag[], val[])  - Escreve uma tag e um valor bool.
*       i_save      ()              - Salva e fecha o arquivo aberto.
*
*/
#if defined _wini_included
#endinput
#endif
#define _wini_included
#pragma library wini

#define i_exist(%0)     fexist(%0)
#define INI             stock
#define read            (0)
#define write           (1)

#define i_writeFloat(%0,%1) \
        i_write(%0,#%1)
#define i_writeInt(%0,%1) \
        i_write(%0,#%1)
#define i_writeBool(%0,%1) \
        i_write(%0,%1?("true"):("false"))
#define i_readFloat(%0) \
        floatstr(_utils_r(%0))
#define i_readInt(%0) \
        strval(_utils_r(%0))
#define i_readBool(%0) \
        bool:(!strcmp(_utils_r(%0), "true"))

INI __PWOKFDAOCNODDIQIOEOHVPWURV[5000];
INI File:_@file_name;

INI i_create (file[])
{
    if (!i_exist(file))
    {
        fclose(fopen(file, io_write));
    }
}
INI i_open (file[], writting = 0)
{
    if (i_exist(file))
    {
        if (_@file_name)
            fclose(_@file_name);

        _@file_name = fopen(file, io_read);

        if (_@file_name)
        {
            new _@tmp[128];
            __PWOKFDAOCNODDIQIOEOHVPWURV[0] = '\0';

            while (fread(_@file_name, _@tmp))
            {
                strcat(__PWOKFDAOCNODDIQIOEOHVPWURV, _@tmp);
            }
            fclose(_@file_name);

            if (writting)
                _@file_name = fopen(file, io_write);
        }
    }
}
INI i_save ()
{
    if (_@file_name)
    {
        fwrite(_@file_name, __PWOKFDAOCNODDIQIOEOHVPWURV);

        fclose(_@file_name);
    }
}
INI i_write (tag[], val[])
{
    if (_@file_name)
    {
        if (!__PWOKFDAOCNODDIQIOEOHVPWURV[0])
        {
            format(__PWOKFDAOCNODDIQIOEOHVPWURV, sizeof(__PWOKFDAOCNODDIQIOEOHVPWURV), "%s=%s\r\n", tag, val);
        }
        else
        {
            new _@i = strfind(__PWOKFDAOCNODDIQIOEOHVPWURV, tag);

            if (_@i != -1)
            {
                strdel(__PWOKFDAOCNODDIQIOEOHVPWURV[_@i], 1 + strlen(tag), strfind(__PWOKFDAOCNODDIQIOEOHVPWURV[_@i], "\r\n"));
                strins(__PWOKFDAOCNODDIQIOEOHVPWURV, val, _@i + 1 + strlen(tag));
            }
            else
            {
                format(__PWOKFDAOCNODDIQIOEOHVPWURV, sizeof(__PWOKFDAOCNODDIQIOEOHVPWURV), "%s%s=%s\r\n", __PWOKFDAOCNODDIQIOEOHVPWURV, tag, val);
            }
        }
    }
}
INI i_read (tag[], str[])
{
    if (_@file_name)
    {
        new _@i = strfind(__PWOKFDAOCNODDIQIOEOHVPWURV, tag);

        if (_@i != -1)
        {
            new _@len = strfind(__PWOKFDAOCNODDIQIOEOHVPWURV[_@i], "\r\n");
            //strmid((str[0] = '\0', str), __PWOKFDAOCNODDIQIOEOHVPWURV[_@i], 1 + strlen(tag), strfind(__PWOKFDAOCNODDIQIOEOHVPWURV[_@i], "\r\n"), strfind(__PWOKFDAOCNODDIQIOEOHVPWURV[_@i], "\r\n") - 1 + strlen(tag));
            strmid((str[0] = '\0', str), __PWOKFDAOCNODDIQIOEOHVPWURV[_@i], 1 + strlen(tag), _@len, _@len - 1 + strlen(tag));
        }
    }
}
INI _utils_r(tag[])
{
    new _@task[20];
    i_read(tag, _@task);

    return _@task;
}