// $Id: JSInterface_IGUIObject.cpp,v 1.5 2004/07/12 15:52:53 philip Exp $

#include "precompiled.h"

#include "JSInterface_IGUIObject.h"
#include "JSInterface_GUITypes.h"

JSClass JSI_IGUIObject::JSI_class = {
	"GUIObject", JSCLASS_HAS_PRIVATE,
	JS_PropertyStub, JS_PropertyStub,
	JSI_IGUIObject::getProperty, JSI_IGUIObject::setProperty,
	JS_EnumerateStub, JS_ResolveStub,
	JS_ConvertStub, JS_FinalizeStub,
	NULL, NULL, NULL, NULL 
};

JSPropertySpec JSI_IGUIObject::JSI_props[] = 
{
	{ 0 }
};

JSFunctionSpec JSI_IGUIObject::JSI_methods[] = 
{
	{ "toString", JSI_IGUIObject::toString, 0, 0, 0 },
	{ "getByName", JSI_IGUIObject::getByName, 1, 0, 0 },
	{ 0 }
};

JSBool JSI_IGUIObject::getProperty(JSContext* cx, JSObject* obj, jsval id, jsval* vp)
{
	CStr propName = JS_GetStringBytes(JS_ValueToString(cx, id));

	// Skip some things which are known to be functions rather than properties.
	// ("constructor" *must* be here, else it'll try to GetSettingType before
	// the private IGUIObject* has been set (and thus crash). The others are
	// just for efficiency.)
	if (propName == (CStr)"constructor" ||
		propName == (CStr)"toString"    ||
		propName == (CStr)"getByName"
	   )
		return JS_TRUE;

	IGUIObject* e = (IGUIObject*)JS_GetPrivate(cx, obj);

	// Handle the "parent" property specially
	if (propName == (CStr)"parent")
	{
		IGUIObject* parent = e->GetParent();
		if (parent)
		{
			// If the object isn't parentless, return a new object
			JSObject* entity = JS_NewObject(cx, &JSI_IGUIObject::JSI_class, NULL, NULL);
			JS_SetPrivate(cx, entity, parent);
			*vp = OBJECT_TO_JSVAL(entity);
		}
		else
		{
			// Return null if there's no parent
			*vp = JSVAL_NULL;
		}
		return JS_TRUE;
	}
	// Also handle "name" specially
	else if (propName == (CStr)"name")
	{
		*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, e->GetName()));
		return JS_TRUE;
	}
	else
	{
		EGUISettingType Type;
		if (e->GetSettingType(propName, Type) != PS_OK)
		{
			// Possibly a function, but they should have been individually
			// handled above, so complain about it
			JS_ReportError(cx, "Invalid GUIObject property '%s'", propName.c_str());
			return JS_FALSE;
		}

		// (All the cases are in {...} to avoid scoping problems)
		switch (Type)
		{
		case GUIST_bool:
			{
				bool value;
				GUI<bool>::GetSetting(e, propName, value);
				*vp = value ? JSVAL_TRUE : JSVAL_FALSE;
				break;
			}

		case GUIST_int:
			{
				int value;
				GUI<int>::GetSetting(e, propName, value);
				*vp = INT_TO_JSVAL(value);
				break;
			}

		case GUIST_float:
			{
				float value;
				GUI<float>::GetSetting(e, propName, value);
				// Create a garbage-collectable double
				*vp = DOUBLE_TO_JSVAL(JS_NewDouble(cx, value) );
				break;
			}

		case GUIST_CColor:
			{
				CColor colour;
				GUI<CColor>::GetSetting(e, propName, colour);
				JSObject* obj = JS_NewObject(cx, &JSI_GUIColor::JSI_class, NULL, NULL);

				// Attempt to minimise ugliness through macrosity
				#define P(x) jsval x = DOUBLE_TO_JSVAL(JS_NewDouble(cx, colour.x)); JS_SetProperty(cx, obj, #x, &x)
					P(r);
					P(g);
					P(b);
					P(a);
				#undef P

				*vp = OBJECT_TO_JSVAL(obj);
				break;
			}

		case GUIST_CClientArea:
			{
				CClientArea area;
				GUI<CClientArea>::GetSetting(e, propName, area);
				JSObject* obj = JS_NewObject(cx, &JSI_GUISize::JSI_class, NULL, NULL);
				#define P(x, y, z) jsval z = INT_TO_JSVAL(area.x.y); JS_SetProperty(cx, obj, #z, &z)
					P(pixel,	left,	left);
					P(pixel,	top,	top);
					P(pixel,	right,	right);
					P(pixel,	bottom,	bottom);
					P(percent,	left,	rleft);
					P(percent,	top,	rtop);
					P(percent,	right,	rright);
					P(percent,	bottom,	rbottom);
				#undef P
				*vp = OBJECT_TO_JSVAL(obj);
				break;
			}

		case GUIST_CGUIString:
			{
				CGUIString value;
				GUI<CGUIString>::GetSetting(e, propName, value);
				// Create a garbage-collectable copy of the string
				*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, value.GetRawString().c_str() ));
				break;
			}

		case GUIST_CStr:
			{
				CStr value;
				GUI<CStr>::GetSetting(e, propName, value);
				// Create a garbage-collectable copy of the string
				*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, value.c_str() ));
				break;
			}

		default:
			JS_ReportError(cx, "Setting '%s' uses an unimplemented type", propName.c_str());
			assert(! "This shouldn't happen");
			return JS_FALSE;
		}

		return JS_TRUE;
	}

	// Automatically falls through to methods
	return JS_TRUE;
}

JSBool JSI_IGUIObject::setProperty(JSContext* cx, JSObject* obj, jsval id, jsval* vp)
{
	IGUIObject* e = (IGUIObject*)JS_GetPrivate(cx, obj);
	CStr propName = g_ScriptingHost.ValueToString(id);
	if (propName == (CStr)"name")
	{
		CStr propValue = JS_GetStringBytes(JS_ValueToString(cx, *vp));
		e->SetName(propValue);
	}
	else
	{
		EGUISettingType Type;
		if (e->GetSettingType(propName, Type) != PS_OK)
		{
			JS_ReportError(cx, "Invalid setting '%s'", propName.c_str());
			return JS_TRUE;
		}

		try
		{
			switch (Type)
			{

			case GUIST_CStr:
			case GUIST_CGUIString:
				e->SetSetting(propName, JS_GetStringBytes(JS_ValueToString(cx, *vp)) );
				break;

			case GUIST_int:
				{
					int32 value;
					if (JS_ValueToInt32(cx, *vp, &value) == JS_TRUE)
						GUI<int>::SetSetting(e, propName, value);
					else
					{
						JS_ReportError(cx, "Cannot convert value to int");
						return JS_FALSE;
					}
					break;
				}

			case GUIST_float:
				{
					jsdouble value;
					if (JS_ValueToNumber(cx, *vp, &value) == JS_TRUE)
						GUI<float>::SetSetting(e, propName, (float)value);
					else
					{
						JS_ReportError(cx, "Cannot convert value to float");
						return JS_FALSE;
					}
					break;
				}

			case GUIST_bool:
				{
					JSBool value;
					if (JS_ValueToBoolean(cx, *vp, &value) == JS_TRUE)
						GUI<bool>::SetSetting(e, propName, value||0); // ||0 to avoid int-to-bool compiler warnings
					else
					{
						JS_ReportError(cx, "Cannot convert value to bool");
						return JS_FALSE;
					}
					break;
				}

			case GUIST_CClientArea:
				{
					if (JSVAL_IS_STRING(*vp))
					{
						e->SetSetting(propName, JS_GetStringBytes(JS_ValueToString(cx, *vp)) );
					}
					else if (JSVAL_IS_OBJECT(*vp) && JS_GetClass(JSVAL_TO_OBJECT(*vp)) == &JSI_GUISize::JSI_class)
					{
						CClientArea area;
						GUI<CClientArea>::GetSetting(e, propName, area);

						JSObject* obj = JSVAL_TO_OBJECT(*vp);
						jsval t; int32 s;
						#define PROP(x) JS_GetProperty(cx, obj, #x, &t); \
										JS_ValueToInt32(cx, t, &s); \
										area.pixel.x = s
						PROP(left); PROP(top); PROP(right); PROP(bottom);
						#undef PROP

						GUI<CClientArea>::SetSetting(e, propName, area);
					}
					else
					{
						JS_ReportError(cx, "Size only accepts strings or GUISize objects");
						return JS_FALSE;
					}
					break;
				}

			case GUIST_CColor:
				{
					if (JSVAL_IS_STRING(*vp))
					{
						e->SetSetting(propName, JS_GetStringBytes(JS_ValueToString(cx, *vp)) );
					}
					else if (JSVAL_IS_OBJECT(*vp) && JS_GetClass(JSVAL_TO_OBJECT(*vp)) == &JSI_GUIColor::JSI_class)
					{
						CColor colour;
						JSObject* obj = JSVAL_TO_OBJECT(*vp);
						jsval t; double s;
						#define PROP(x) JS_GetProperty(cx, obj, #x, &t); \
										JS_ValueToNumber(cx, t, &s); \
										colour.x = (float)s
						PROP(r); PROP(g); PROP(b); PROP(a);
						#undef PROP

						GUI<CColor>::SetSetting(e, propName, colour);
					}
					else
					{
						JS_ReportError(cx, "Color only accepts strings or GUIColor objects");
						return JS_FALSE;
					}
					break;
				}

			default:
				JS_ReportError(cx, "Setting '%s' uses an unimplemented type", propName.c_str());
				break;
			}
		}

		// Catch failed calls to SetSetting (the string and templated versions)
		catch (PS_RESULT)
		{
			JS_ReportError(cx, "Invalid value for setting '%s'", propName.c_str());
			return JS_FALSE;
		}
	}
	return JS_TRUE;
}


JSBool JSI_IGUIObject::construct(JSContext* cx, JSObject* obj, unsigned int argc, jsval* argv, jsval* rval)
{
	if (argc == 0)
	{
		JS_ReportError(cx, "GUIObject has no default constructor");
		return JS_FALSE;
	}

	assert(argc == 1);

	// Store the IGUIObject in the JS object's 'private' area
	IGUIObject* guiObject = (IGUIObject*)JSVAL_TO_PRIVATE(argv[0]);
	JS_SetPrivate(cx, obj, guiObject);

	return JS_TRUE;
}


JSBool JSI_IGUIObject::getByName(JSContext* cx, JSObject* obj, unsigned int argc, jsval* argv, jsval* rval)
{
	assert(argc == 1);

	CStr objectName = JS_GetStringBytes(JS_ValueToString(cx, argv[0]));

	IGUIObject* guiObject = g_GUI.FindObjectByName(objectName);

	if (!guiObject)
	{
		// Not found - return null
		*rval = JSVAL_NULL;
		return JS_TRUE;
	}

	JSObject* entity = JS_NewObject(cx, &JSI_IGUIObject::JSI_class, NULL, NULL);
	JS_SetPrivate(cx, entity, guiObject);
	*rval = OBJECT_TO_JSVAL(entity);
	return JS_TRUE;
}


void JSI_IGUIObject::init()
{
	g_ScriptingHost.DefineCustomObjectType(&JSI_class, construct, 1, JSI_props, JSI_methods, NULL, NULL);
}

JSBool JSI_IGUIObject::toString(JSContext* cx, JSObject* obj, uintN argc, jsval* argv, jsval* rval)
{
	IGUIObject* e = (IGUIObject*)JS_GetPrivate( cx, obj );

	char buffer[256];
	snprintf(buffer, 256, "[GUIObject: %s]", (const TCHAR*)e->GetName());
	buffer[255] = 0;
	*rval = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, buffer));
	return JS_TRUE;
}