Method operator_dispatcher

ogsr_engine/Luabind/src/class_rep.cpp:377–425

int luabind::detail::class_rep::operator_dispatcher(lua_State* L)
{
	for (int i = 0; i < 2; ++i)
	{
		if (is_class_object(L, 1 + i))
		{
            int nargs = lua_gettop(L);

            lua_pushvalue(L, lua_upvalueindex(1));
			lua_gettable(L, 1 + i);

			if (lua_isnil(L, -1))
			{
				lua_pop(L, 1);
				continue;
			}

			lua_insert(L, 1); // move the function to the bottom

            nargs = lua_toboolean(L, lua_upvalueindex(2)) ? 1 : nargs;

            if (lua_toboolean(L, lua_upvalueindex(2))) // remove trailing nil
                lua_remove(L, 3);

            lua_call(L, nargs, 1);
            return 1;
		}
	}

	object_rep* obj = static_cast<object_rep*>(lua_touserdata(L, 1));
	class_rep* crep = obj->crep();

	//Дефолтный __tostring
	auto ptr = lua_tostring(L, lua_upvalueindex(1));
	if (ptr && std::strcmp(ptr, "__tostring") == 0)
	{
		lua_pop(L, lua_gettop(L));
		lua_pushstring(L, crep->name());
		return 1;
	}

	lua_pop(L, lua_gettop(L));
	string512 err_str;
	xr_sprintf(err_str, "! No such operator [%s] defined in class [%s]", ptr, crep->name());
	lua_pushstring(L, err_str);
	lua_error(L);

	return 0;
}

// this is called as metamethod __call on the class_rep.
int luabind::detail::class_rep::constructor_dispatcher(lua_State* L)