[COD] Parse INI Files

enum E_FILE
{
    linhasValor[100],
    linhasKeys[100],
    totalLinhasArquivo
}

new G_ARQUIVO[100][E_FILE];

#define OnParseFile(%0) forward %0(); public %0()
#define key(%0)     getValueKey(#0)

INI_ParseFile(file[])
{
    static
        File:streamArquivo,
        encontrarChave ;

    streamArquivo = fopen(file, io_read);

    while(fread(streamArquivo, G_ARQUIVO[++G_ARQUIVO[E_FILE:2]][E_FILE:0])
    {
        encontrarChave = strfind(G_ARQUIVO[G_ARQUIVO[E_FILE:2][E_FILE:0], "=");
        if(-1 != encontrarChave)
        {
            strmid(G_ARQUIVO[G_ARQUIVO[E_FILE:2][E_FILE:1], G_ARQUIVO[G_ARQUIVO[E_FILE:2][E_FILE:0], 0, encontrarChave);
            G_ARQUIVO[G_ARQUIVO[E_FILE:2][E_FILE:0] = EOS;
        }
    }
    return fclose(streamArquivo), CallLocalFunction(file, #s ,#\1);
}


getValueKey(tag[])
{
    for(new i ; i != G_ARQUIVO[E_FILE:2]; ++i)
    {
        if(!strcmp(G_ARQUIVO[G_ARQUIVO[E_FILE:2][E_FILE:1], tag, true)) return G_ARQUIVO[G_ARQUIVO[E_FILE:2][E_FILE:0];
    }
    return true;
}

// exemplo:

main()
{
    INI_ParseFile("teste.ini");
}

OnParseFile(teste.ini)
{
    printf("Valor de VALOR_KEY é %s", key(VALOR_KEY));
    //key(VALOR_KEY)
    return true;
}

//
// Por Bruno da Silva
// Feito em 5 Minutos
// Brevemente atualizado
/