#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;
}