#include "ScriptSystem_Font.h"

namespace BlueCore
{

//------------------------------------------------------------------------------
static weak_ptr<FontManager> gFontManager;

//------------------------------------------------------------------------------
static SQInteger _font_releasehook(SQUserPointer p, SQInteger size)
{
	Font *font = (Font *)p;

	if (font)
		font->removeReference();

	return 1;
}

//------------------------------------------------------------------------------
static SQInteger _font_constructor(HSQUIRRELVM vm)
{
	SQInteger argc = sq_gettop(vm);

	Font *font = 0;

	if (argc < 3)
	{
		if (gFontManager.valid())
			font = gFontManager->getDefaultFont();
	}
	else
	{
		const SQChar *name = 0;
		SQInteger size = 1;
		SQBool hinting = SQFalse;

		sq_getstring(vm, 2, &name);
		sq_getinteger(vm, 3, &size);
		if (argc > 3)
			sq_getbool(vm, 4, &hinting);

		if (gFontManager.valid())
		{
			font = gFontManager->loadFont(name, size, hinting == SQTrue);
			if (font)
				font->addReference();
		}
	}

	sq_setinstanceup(vm, 1, (void *)font );
	sq_setreleasehook(vm, 1, _font_releasehook);

	return 0;
}

//------------------------------------------------------------------------------
static SQInteger _font_print(HSQUIRRELVM vm)
{
	int argc = sq_gettop(vm);

	if (argc < 4)
		return 0;

	const Font *font = 0;
	sq_getinstanceup(vm, 1, ( void ** ) &font, 0);

	if (font)
	{
		SQFloat x, y;
		const char *text;
		SQInteger halign = 0, valign = 0;

		sq_getfloat(vm, 2, &x);
		sq_getfloat(vm, 3, &y);
		sq_getstring(vm, 4, &text);

		if (argc > 4)
		{
			sq_getinteger(vm, 5, &halign);
		}

		if (argc > 5)
		{
			sq_getinteger(vm, 6, &valign);
		}

		font->print( (float)x, (float)y, text, halign, valign);
	}

	return 0;
}

//------------------------------------------------------------------------------
void setupScriptSystem_Font(ScriptSystem* scriptsystem, FontManager* fontmanager)
{
	if (scriptsystem && fontmanager)
	{
		HSQUIRRELVM vm = scriptsystem->getVM();

		gFontManager = fontmanager;

		sq_pushroottable(vm);

		// push class
		sq_pushstring(vm, "Font", -1);

		if (SQ_SUCCEEDED(sq_newclass(vm, SQFalse) ) )
		{
			// register constructor
			sq_pushstring(vm, "constructor", -1);
			sq_newclosure(vm, _font_constructor, 0);
			sq_newslot(vm, -3, false);

			sq_pushstring(vm, "print", -1);
			sq_newclosure(vm, _font_print, 0);
			sq_newslot(vm, -3, false);

			// create class
			sq_newslot(vm, -3, false);
		}

		sq_poptop(vm);
	}
}
}