truelight@9387: /* $Id$ */
truelight@9387: 
truelight@9424: /** @file squirrel_helper.hpp declarations and parts of the implementation of the class for convert code */
truelight@9387: 
truelight@9424: #ifndef SQUIRREL_HELPER_HPP
truelight@9424: #define SQUIRREL_HELPER_HPP
truelight@9424: 
truelight@9424: #include <squirrel.h>
truelight@9387: 
truelight@9387: /**
truelight@9510:  * The Squirrel convert routines
truelight@9387:  */
truelight@9510: namespace SQConvert {
truelight@9510: 
truelight@9510: 	template <bool Y> struct YesT {
truelight@9510: 		static const bool Yes = Y;
truelight@9510: 		static const bool No = !Y;
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * Helper class to recognize if the given type is void. Usage: 'IsVoidT<T>::Yes'
truelight@9510: 	 */
truelight@9510: 	template <typename T> struct IsVoidT : YesT<false> {};
truelight@9510: 	template <> struct IsVoidT<void> : YesT<true> {};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * Helper class to recognize if the function/method return type is void.
truelight@9510: 	 */
truelight@9510: 	template <typename Tfunc> struct HasVoidReturnT;
truelight@9510: 	/* functions */
truelight@9510: 	template <typename Tretval> struct HasVoidReturnT<Tretval (*)()> : IsVoidT<Tretval> {};
truelight@9510: 	template <typename Tretval, typename Targ1> struct HasVoidReturnT<Tretval (*)(Targ1)> : IsVoidT<Tretval> {};
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2> struct HasVoidReturnT<Tretval (*)(Targ1, Targ2)> : IsVoidT<Tretval> {};
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2, typename Targ3> struct HasVoidReturnT<Tretval (*)(Targ1, Targ2, Targ3)> : IsVoidT<Tretval> {};
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2, typename Targ3, typename Targ4> struct HasVoidReturnT<Tretval (*)(Targ1, Targ2, Targ3, Targ4)> : IsVoidT<Tretval> {};
truelight@9510: 	/* methods */
truelight@9510: 	template <class Tcls, typename Tretval> struct HasVoidReturnT<Tretval (Tcls::*)()> : IsVoidT<Tretval> {};
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1> struct HasVoidReturnT<Tretval (Tcls::*)(Targ1)> : IsVoidT<Tretval> {};
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2> struct HasVoidReturnT<Tretval (Tcls::*)(Targ1, Targ2)> : IsVoidT<Tretval> {};
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2, typename Targ3> struct HasVoidReturnT<Tretval (Tcls::*)(Targ1, Targ2, Targ3)> : IsVoidT<Tretval> {};
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2, typename Targ3, typename Targ4> struct HasVoidReturnT<Tretval (Tcls::*)(Targ1, Targ2, Targ3, Targ4)> : IsVoidT<Tretval> {};
truelight@9510: 
truelight@9510: 
truelight@9387: 	/**
truelight@9387: 	 * Special class to make it possible for the compiler to pick the correct GetParam().
truelight@9387: 	 */
truelight@9387: 	template <typename T> class ForceType { };
truelight@9387: 
truelight@9387: 	/**
truelight@9387: 	 * To return a value to squirrel, we call this function. It converts to the right format.
truelight@9387: 	 */
truelight@9387: 	template <typename T> static int Return(HSQUIRRELVM vm, T t);
truelight@9387: 
truelight@9510: 	template <> inline int Return<uint8> (HSQUIRRELVM vm, uint8 res)  { sq_pushinteger(vm, (int32)res); return 1; }
truelight@9510: 	template <> inline int Return<uint16>(HSQUIRRELVM vm, uint16 res) { sq_pushinteger(vm, (int32)res); return 1; }
truelight@9510: 	template <> inline int Return<uint32>(HSQUIRRELVM vm, uint32 res) { sq_pushinteger(vm, (int32)res); return 1; }
truelight@9510: 	template <> inline int Return<int8>  (HSQUIRRELVM vm, int8 res)   { sq_pushinteger(vm, res); return 1; }
truelight@9510: 	template <> inline int Return<int16> (HSQUIRRELVM vm, int16 res)  { sq_pushinteger(vm, res); return 1; }
truelight@9510: 	template <> inline int Return<int32> (HSQUIRRELVM vm, int32 res)  { sq_pushinteger(vm, res); return 1; }
truelight@9510: 	template <> inline int Return<bool>  (HSQUIRRELVM vm, bool res)   { sq_pushbool   (vm, res); return 1; }
truelight@9510: 	template <> inline int Return<char *>(HSQUIRRELVM vm, char *res)  { if (res == NULL) sq_pushnull(vm); else sq_pushstring (vm, OTTD2FS(res), strlen(res)); free(res); return 1; }
truelight@9510: 
truelight@9387: 	/**
truelight@9387: 	 * To get a param from squirrel, we call this function. It converts to the right format.
truelight@9387: 	 */
truelight@9387: 	template <typename T> static T GetParam(ForceType<T>, HSQUIRRELVM vm, int index);
truelight@9387: 
truelight@9510: 	template <> inline uint8       GetParam(ForceType<uint8>       , HSQUIRRELVM vm, int index) { SQInteger     tmp; sq_getinteger(vm, index, &tmp); return tmp; }
truelight@9510: 	template <> inline uint16      GetParam(ForceType<uint16>      , HSQUIRRELVM vm, int index) { SQInteger     tmp; sq_getinteger(vm, index, &tmp); return tmp; }
truelight@9510: 	template <> inline uint32      GetParam(ForceType<uint32>      , HSQUIRRELVM vm, int index) { SQInteger     tmp; sq_getinteger(vm, index, &tmp); return tmp; }
truelight@9510: 	template <> inline int8        GetParam(ForceType<int8>        , HSQUIRRELVM vm, int index) { SQInteger     tmp; sq_getinteger(vm, index, &tmp); return tmp; }
truelight@9510: 	template <> inline int16       GetParam(ForceType<int16>       , HSQUIRRELVM vm, int index) { SQInteger     tmp; sq_getinteger(vm, index, &tmp); return tmp; }
truelight@9510: 	template <> inline int32       GetParam(ForceType<int32>       , HSQUIRRELVM vm, int index) { SQInteger     tmp; sq_getinteger(vm, index, &tmp); return tmp; }
truelight@9510: 	template <> inline bool        GetParam(ForceType<bool>        , HSQUIRRELVM vm, int index) { SQBool        tmp; sq_getbool   (vm, index, &tmp); return tmp != 0; }
truelight@9510: 	template <> inline const char *GetParam(ForceType<const char *>, HSQUIRRELVM vm, int index) { const SQChar *tmp; sq_getstring (vm, index, &tmp); return FS2OTTD(tmp); }
truelight@9387: 
truelight@9387: 	/**
truelight@9510: 	* Helper class to recognize the function type (retval type, args) and use the proper specialization
truelight@9510: 	* for SQ callback. The partial specializations for the second arg (Tis_void_retval) are not possible
truelight@9510: 	* on the function. Therefore the class is used instead.
truelight@9510: 	*/
truelight@9510: 	template <typename Tfunc, bool Tis_void_retval = HasVoidReturnT<Tfunc>::Yes> struct HelperT;
truelight@9490: 
truelight@9490: 	/**
truelight@9510: 	 * The real C++ caller for function with return value and 0 params.
truelight@9437: 	 */
truelight@9510: 	template <typename Tretval>
truelight@9510: 	struct HelperT<Tretval (*)(), false> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (*func)());
truelight@9510: 		}
truelight@9510: 	};
truelight@9437: 
truelight@9437: 	/**
truelight@9490: 	 * The real C++ caller for function with no return value and 0 params.
truelight@9490: 	 */
truelight@9510: 	template <typename Tretval>
truelight@9510: 	struct HelperT<Tretval (*)(), true> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(*func)();
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9490: 
truelight@9490: 	/**
truelight@9510: 	 * The real C++ caller for method with return value and 0 params.
truelight@9387: 	 */
truelight@9510: 	template <class Tcls, typename Tretval>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(), false> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (instance->*func)());
truelight@9510: 		}
truelight@9510: 	};
truelight@9387: 
truelight@9387: 	/**
truelight@9510: 	 * The real C++ caller for method with no return value and 0 params.
truelight@9490: 	 */
truelight@9510: 	template <class Tcls, typename Tretval>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(), true> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(instance->*func)();
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * The real C++ caller for function with return value and 1 param.
truelight@9510: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1), false> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * The real C++ caller for function with no return value and 1 param.
truelight@9510: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1), true> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * The real C++ caller for method with return value and 1 param.
truelight@9510: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1), false> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9490: 
truelight@9490: 	/**
truelight@9490: 	 * The real C++ caller for method with no return value and 1 param.
truelight@9437: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1), true> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9490: 
truelight@9490: 	/**
truelight@9510: 	 * The real C++ caller for function with return value and 2 params.
truelight@9387: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1, Targ2), false> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1, Targ2), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9387: 
truelight@9387: 	/**
truelight@9510: 	 * The real C++ caller for function with no return value and 2 params.
truelight@9490: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1, Targ2), true> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1, Targ2), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * The real C++ caller for method with return value and 2 params.
truelight@9510: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1, Targ2), false> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1, Targ2), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9490: 
truelight@9490: 	/**
truelight@9490: 	 * The real C++ caller for method with no return value and 2 params.
truelight@9437: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1, Targ2), true> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1, Targ2), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9490: 
truelight@9490: 	/**
truelight@9510: 	 * The real C++ caller for function with return value and 3 params.
truelight@9490: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2, typename Targ3>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1, Targ2, Targ3), false> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1, Targ2, Targ3), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9437: 
truelight@9437: 	/**
truelight@9490: 	 * The real C++ caller for function with no return value and 3 params.
truelight@9490: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2, typename Targ3>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1, Targ2, Targ3), true> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1, Targ2, Targ3), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9490: 
truelight@9490: 	/**
truelight@9510: 	 * The real C++ caller for method with return value and 3 params.
truelight@9480: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2, typename Targ3>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1, Targ2, Targ3), false> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1, Targ2, Targ3), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9480: 
truelight@9480: 	/**
truelight@9510: 	 * The real C++ caller for method with no return value and 3 params.
truelight@9490: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2, typename Targ3>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1, Targ2, Targ3), true> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1, Targ2, Targ3), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * The real C++ caller for function with return value and 4 params.
truelight@9510: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2, typename Targ3, typename Targ4>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1, Targ2, Targ3, Targ4), false> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1, Targ2, Targ3, Targ4), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4),
truelight@9510: 				GetParam(ForceType<Targ4>(), vm, 5)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * The real C++ caller for function with no return value and 4 params.
truelight@9510: 	 */
truelight@9510: 	template <typename Tretval, typename Targ1, typename Targ2, typename Targ3, typename Targ4>
truelight@9510: 	struct HelperT<Tretval (*)(Targ1, Targ2, Targ3, Targ4), true> {
truelight@9510: 		static int SQCall(void *instance, Tretval (*func)(Targ1, Targ2, Targ3, Targ4), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4),
truelight@9510: 				GetParam(ForceType<Targ4>(), vm, 5)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9510: 
truelight@9510: 	/**
truelight@9510: 	 * The real C++ caller for method with return value and 4 params.
truelight@9510: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2, typename Targ3, typename Targ4>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1, Targ2, Targ3, Targ4), false> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1, Targ2, Targ3, Targ4), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			return Return(vm, (instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4),
truelight@9510: 				GetParam(ForceType<Targ4>(), vm, 5)
truelight@9510: 			));
truelight@9510: 		}
truelight@9510: 	};
truelight@9490: 
truelight@9490: 	/**
truelight@9490: 	 * The real C++ caller for method with no return value and 4 params.
truelight@9480: 	 */
truelight@9510: 	template <class Tcls, typename Tretval, typename Targ1, typename Targ2, typename Targ3, typename Targ4>
truelight@9510: 	struct HelperT<Tretval (Tcls::*)(Targ1, Targ2, Targ3, Targ4), true> {
truelight@9510: 		static int SQCall(Tcls *instance, Tretval (Tcls::*func)(Targ1, Targ2, Targ3, Targ4), HSQUIRRELVM vm)
truelight@9510: 		{
truelight@9510: 			(instance->*func)(
truelight@9510: 				GetParam(ForceType<Targ1>(), vm, 2),
truelight@9510: 				GetParam(ForceType<Targ2>(), vm, 3),
truelight@9510: 				GetParam(ForceType<Targ3>(), vm, 4),
truelight@9510: 				GetParam(ForceType<Targ4>(), vm, 5)
truelight@9510: 			);
truelight@9510: 			return 0;
truelight@9510: 		}
truelight@9510: 	};
truelight@9480: 
truelight@9490: 
truelight@9490: 	/**
truelight@9387: 	 * A general template for all callback functions from Squirrel.
truelight@9387: 	 *  In here the function_proc is recovered, and the SQCall is called that
truelight@9387: 	 *  can handle this exact amount of params.
truelight@9387: 	 */
truelight@9510: 	template <typename Tcls, typename Tmethod>
truelight@9510: 	inline SQInteger DefSQCallback(HSQUIRRELVM vm)
truelight@9387: 	{
truelight@9387: 		/* Find the amount of params we got */
truelight@9387: 		int nparam = sq_gettop(vm);
truelight@9387: 		SQUserPointer ptr = NULL;
truelight@9387: 		SQUserPointer instance = NULL;
truelight@9387: 
truelight@9387: 		/* Get the 'real' instance of this class */
truelight@9387: 		sq_getinstanceup(vm, 1, &instance, 0);
truelight@9387: 		/* Get the real function pointer */
truelight@9387: 		sq_getuserdata(vm, nparam, &ptr, 0);
truelight@9510: 		/* Delegate it to a template that can handle this specific function */
truelight@9510: 		return HelperT<Tmethod>::SQCall((Tcls *)instance, *(Tmethod *)ptr, vm);
truelight@9387: 	}
truelight@9510: 
truelight@9510: }; // namespace SQConvert
truelight@9387: 
truelight@9424: #endif /* SQUIRREL_HELPER_HPP */