Function ToObject

MonaServer/sources/Script.h:366–641

	template<typename Type>
	static Type* ToObject(lua_State *pState,bool& isConst,int index=-1,bool withLogs=false) {
		if(lua_getmetatable(pState,index)==0) {
			if(!withLogs) return NULL;
			SCRIPT_BEGIN(pState)
				SCRIPT_ERROR("'this' argument not present or has no metatable, call method with ':' colon operator")
			SCRIPT_END
			return NULL;
		}

		// already deleted?
		lua_getfield(pState,-1,"|this");
		Type* pThis = (Type*)lua_touserdata(pState, -1);
		if (!pThis) {
			bool isDeleted(lua_isnumber(pState, -1) ? true : false);
			lua_pop(pState,2);
			if(!withLogs) return NULL;
			SCRIPT_BEGIN(pState)
				if (isDeleted)
					SCRIPT_ERROR(typeid(Type).name()," object deleted")
				else
					SCRIPT_ERROR(typeid(Type).name()," argument not present, call method with ':' colon operator")
			SCRIPT_END
			return NULL;
		}
		lua_pop(pState,1);
	
		// check type
		lua_getfield(pState,-1,"|type");
		if (lua_touserdata(pState, -1) != &typeid(Type)) {
			if(withLogs) {
				SCRIPT_BEGIN(pState)
					SCRIPT_ERROR("Cast error, type ",lua_touserdata(pState, -1)," doesn't match ",&typeid(Type), " of ",typeid(Type).name()," type")
				SCRIPT_END
			}
			lua_pop(pState,2);
			return NULL;
		}
		lua_pop(pState,1);
		
		// isConst?
		lua_getfield(pState,-1,"|const");
		isConst = lua_toboolean(pState,-1) ? true : 0;

		lua_pop(pState,2);

		return pThis;
	}

	
	template<typename Type>
	static void AddComparator(lua_State *pState) {
		lua_getmetatable(pState, -1);

		lua_pushlightuserdata(pState, (void*)&typeid(Type));
		lua_gettable(pState, LUA_REGISTRYINDEX);
		if (!lua_istable(pState, -1)) {
			lua_pop(pState, 1);
			lua_newtable(pState);