#include <check.h>

#include <stdlib.h>

#include <stdio.h>

#include "check_check.h"

#include "../src/fpcrtl.h"

typedef struct __TResourceList

{

    Integer count;

    string255 files[500 + 1];

} TResourceList;

string255 t = STRINIT("test");

string255 Pathz[1] =

{ STRINIT("../../") };

int ptCurrTheme = 0;

string255 cThemeCFGFilename = STRINIT("theme.cfg");

const string255 __str79 = STRINIT("object");

string255 c1 = STRINIT("=");

string255 c2 = STRINIT("\x2c");

string255 c3 = STRINIT("\x2f");

static string255 make_string(const char* str)

{

    string255 s;

    s.len = strlen(str);

    memcpy(s.str, str, s.len + 1);

    return s;

}

TResourceList readThemeCfg_0()

{

    TResourceList readthemecfg_result;

    string255 s;

    string255 key;

    TextFile f;

    Integer i;

    TResourceList res;

    s = _strconcat(_strappend(Pathz[ptCurrTheme], '\x2f'), cThemeCFGFilename);

    //umisc_log(s);

    fpcrtl_assign(f, s);

    FileMode = 0;

    fpcrtl_reset(f);

    res.count = 0;

    while (!(fpcrtl_eof(f)))

    {

        fpcrtl_readLnS(f, s);

        if ((fpcrtl_Length(s)) == (0))

        {

            continue;

        }

        if ((s.s[1]) == ('\x3b'))

        {

            continue;

        }

        i = fpcrtl_pos('\x3d', s);

        key = fpcrtl_trim(fpcrtl_copy(s, 1, i - 1));

        fpcrtl_delete(s, 1, i);

        if (_strcompare(key, __str79))

        {

            i = fpcrtl_pos('\x2c', s);

            res.files[res.count] = _strconcat(

                    _strappend(Pathz[ptCurrTheme], '\x2f'),

                    fpcrtl_trim(fpcrtl_copy(s, 1, i - 1)));

            ++res.count;

            //umisc_log(fpcrtl_trim(fpcrtl_copy(s, 1, i - 1)));

        }

    }

    fpcrtl_close(f);

    readthemecfg_result = res;

    return readthemecfg_result;

}

START_TEST(test_readthemecfg)

    {

        int i;

        TResourceList result;

        printf("-----Entering test readthemecfg-----\n");

        result = readThemeCfg_0();

        for (i = 0; i < result.count; i++)

        {

            printf("%s\n", result.files[i].str);

        }

        printf("-----Leaving test readthemecfg-----\n");

    }END_TEST

Suite* fileio_suite(void)

{

    Suite *s = suite_create("fileio");

    TCase *tc_core = tcase_create("Core");

    tcase_add_test(tc_core, test_readthemecfg);

    suite_add_tcase(s, tc_core);

    return s;

}