#include <qse/cmn/xma.h>
#include <qse/cmn/mem.h>
#include <qse/si/sio.h>

#define R(f) \
	do { \
		qse_printf (QSE_T("== %s ==\n"), QSE_T(#f)); \
		if (f() == -1) return -1; \
	} while (0)

static int test1 ()
{
	void* ptr[100];

	qse_xma_t* xma = qse_xma_open (QSE_MMGR_GETDFL(), 0, 100000L);
	if (xma == QSE_NULL) 
	{
		qse_printf (QSE_T("cannot open xma\n"));
		return -1;
	}

	ptr[0] = qse_xma_alloc (xma, 5000);
	ptr[1] = qse_xma_alloc (xma, 1000);
	ptr[2] = qse_xma_alloc (xma, 3000);
	ptr[3] = qse_xma_alloc (xma, 1000);
	/*qse_xma_dump (xma, qse_printf);
	qse_xma_free (xma, ptr[0]);
	qse_xma_free (xma, ptr[2]);
	qse_xma_free (xma, ptr[3]); */

	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	qse_xma_realloc (xma, ptr[0], 500);
	qse_xma_realloc (xma, ptr[3], 500);
	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);

	qse_xma_close (xma);
	return 0;
}

static int test2 ()
{
	void* ptr[100];

	qse_xma_t* xma = qse_xma_open (QSE_MMGR_GETDFL(), 0, 100000L);
	if (xma == QSE_NULL) 
	{
		qse_printf (QSE_T("cannot open xma\n"));
		return -1;
	}

	ptr[0] = qse_xma_alloc (xma, 5000);
	ptr[1] = qse_xma_alloc (xma, 1000);
	ptr[2] = qse_xma_alloc (xma, 3000);
	ptr[3] = qse_xma_alloc (xma, 1000);
	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	qse_xma_free (xma, ptr[0]);
	qse_xma_free (xma, ptr[2]);

	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	qse_xma_realloc (xma, ptr[1], 500);
	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);

	qse_xma_close (xma);
	return 0;
}

static int test3 ()
{
	void* ptr[100];

	qse_xma_t* xma = qse_xma_open (QSE_MMGR_GETDFL(), 0, 100000L);
	if (xma == QSE_NULL) 
	{
		qse_printf (QSE_T("cannot open xma\n"));
		return -1;
	}

	ptr[0] = qse_xma_alloc (xma, 5000);
	ptr[1] = qse_xma_alloc (xma, 1000);
	ptr[2] = qse_xma_alloc (xma, 3000);
	ptr[3] = qse_xma_alloc (xma, 1000);
	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	qse_xma_free (xma, ptr[0]);
	qse_xma_free (xma, ptr[2]);

	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	ptr[1] = qse_xma_realloc (xma, ptr[1], 3000);
	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	qse_xma_free (xma, ptr[1]);
	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);

	qse_xma_close (xma);
	return 0;
}

static int test4 ()
{
	int i;
	void* ptr[100];

	qse_xma_t* xma = qse_xma_open (QSE_MMGR_GETDFL(), 0, 2000000L);
	if (xma == QSE_NULL) 
	{
		qse_printf (QSE_T("cannot open xma\n"));
		return -1;
	}

	for (i = 0; i < 100; i++)
	{
		int sz = (i + 1) * 10;
		/*int sz = 10240;*/
		ptr[i] = qse_xma_alloc (xma, sz);
		if (ptr[i] == QSE_NULL) 
		{
			qse_printf (QSE_T("failed to alloc %d\n"), sz);
			break;
		}
	}

	for (--i; i > 0; i-= 3)
	{
		if (i >= 0) qse_xma_free (xma, ptr[i]);
	}

/*
	qse_xma_free (xma, ptr[0]);
	qse_xma_free (xma, ptr[1]);
	qse_xma_free (xma, ptr[2]);
*/

	{
		void* x, * y;

		qse_xma_alloc (xma, 5000);
		qse_xma_alloc (xma, 1000);
		x = qse_xma_alloc (xma, 10);
		y = qse_xma_alloc (xma, 40);

		if (x) qse_xma_free (xma, x);
		if (y) qse_xma_free (xma, y);
		x = qse_xma_alloc (xma, 10);
		y = qse_xma_alloc (xma, 40);
	}
	qse_xma_dump (xma, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);

	qse_xma_close (xma);
	return 0;
}

static void* xma_alloc (qse_mmgr_t* mmgr, qse_size_t size)
{
	return qse_xma_alloc (mmgr->ctx, size);
}

static void* xma_realloc (qse_mmgr_t* mmgr, void* ptr, qse_size_t size)
{
	return qse_xma_realloc (mmgr->ctx, ptr, size);
}

static void xma_free (qse_mmgr_t* mmgr, void* ptr)
{
	qse_xma_free (mmgr->ctx, ptr);
}

static int test5 ()
{
	void* ptr[100];
	qse_mmgr_t xmammgr = 
	{
		xma_alloc,
		xma_realloc,
		xma_free,
		QSE_NULL
	};

	qse_xma_t* xma1, * xma2, * xma3;

	xma1 = qse_xma_open (QSE_MMGR_GETDFL(), 0, 2000000L);
	if (xma1 == QSE_NULL) 
	{
		qse_printf (QSE_T("cannot open outer xma\n"));
		return -1;
	}

	xmammgr.ctx = xma1;

	xma2 = qse_xma_open (&xmammgr, 0, 500000L);
	if (xma1 == QSE_NULL) 
	{
		qse_printf (QSE_T("cannot open inner xma\n"));
		return -1;
	}

	xma3 = qse_xma_open (&xmammgr, 0, 500000L);
	if (xma1 == QSE_NULL) 
	{
		qse_printf (QSE_T("cannot open inner xma\n"));
		return -1;
	}

	qse_xma_alloc (xma2, 10345);
	qse_xma_alloc (xma3, 200301);
	qse_xma_alloc (xma2, 20000);
	ptr[0] = qse_xma_alloc (xma3, 40031);
	qse_xma_alloc (xma3, 8);
	qse_xma_realloc (xma3, ptr[0], 40000);

	qse_xma_dump (xma3, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	qse_xma_dump (xma2, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);
	qse_xma_dump (xma1, (qse_xma_dumper_t)qse_fprintf, QSE_STDOUT);

	qse_xma_close (xma3);
	qse_xma_close (xma2);
	qse_xma_close (xma1);

	return 0;
}

int main ()
{
	qse_open_stdsios ();
	R (test1);
	R (test2);
	R (test3);
	R (test4);
	R (test5);
	qse_close_stdsios ();
	return 0;
}