mirror of
https://github.com/EQEmu/Server.git
synced 2026-02-05 22:43:51 +00:00
225 lines
6.6 KiB
C++
225 lines
6.6 KiB
C++
// Copyright (c) 2003 Daniel Wallin and Arvid Norberg
|
|
|
|
// Permission is hereby granted, free of charge, to any person obtaining a
|
|
// copy of this software and associated documentation files (the "Software"),
|
|
// to deal in the Software without restriction, including without limitation
|
|
// the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
// and/or sell copies of the Software, and to permit persons to whom the
|
|
// Software is furnished to do so, subject to the following conditions:
|
|
|
|
// The above copyright notice and this permission notice shall be included
|
|
// in all copies or substantial portions of the Software.
|
|
|
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
|
|
// ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
|
|
// TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
|
|
// PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
|
|
// SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
|
|
// ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
|
|
// ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
|
|
// OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|
|
#ifndef LUABIND_OBJECT_PROXY_HPP_INCLUDED
|
|
#define LUABIND_OBJECT_PROXY_HPP_INCLUDED
|
|
|
|
#include <boost/optional.hpp>
|
|
|
|
#include <luabind/config.hpp>
|
|
#include <luabind/detail/policy.hpp>
|
|
#include <luabind/error.hpp>
|
|
#include <luabind/detail/convert_to_lua.hpp>
|
|
#include <luabind/detail/debug.hpp>
|
|
#include <luabind/detail/stack_utils.hpp>
|
|
|
|
#include <boost/mpl/apply_wrap.hpp>
|
|
|
|
namespace luabind
|
|
{
|
|
|
|
namespace detail
|
|
{
|
|
|
|
namespace mpl = boost::mpl;
|
|
|
|
template<class T, class Obj, class Policies>
|
|
inline T object_cast_impl(const Obj& obj, const Policies&)
|
|
{
|
|
if (obj.lua_state() == 0)
|
|
{
|
|
#ifndef LUABIND_NO_EXCEPTIONS
|
|
throw cast_failed(0, typeid(T));
|
|
#else
|
|
lua_State* L = obj.lua_state();
|
|
cast_failed_callback_fun e = get_cast_failed_callback();
|
|
if (e) e(L, typeid(T));
|
|
|
|
assert(0 && "object_cast failed. If you want to handle this error use luabind::set_error_callback()");
|
|
std::terminate();
|
|
#endif
|
|
}
|
|
|
|
LUABIND_CHECK_STACK(obj.lua_state());
|
|
|
|
typedef typename detail::find_conversion_policy<0, Policies>::type converter_policy;
|
|
typename mpl::apply_wrap2<converter_policy,T,lua_to_cpp>::type converter;
|
|
|
|
obj.pushvalue();
|
|
|
|
lua_State* L = obj.lua_state();
|
|
detail::stack_pop p(L, 1);
|
|
|
|
#ifndef LUABIND_NO_ERROR_CHECKING
|
|
|
|
if (converter.match(L, LUABIND_DECORATE_TYPE(T), -1) < 0)
|
|
{
|
|
#ifndef LUABIND_NO_EXCEPTIONS
|
|
throw cast_failed(L, typeid(T));
|
|
#else
|
|
cast_failed_callback_fun e = get_cast_failed_callback();
|
|
if (e) e(L, typeid(T));
|
|
|
|
assert(0 && "object_cast failed. If you want to handle this error use luabind::set_error_callback()");
|
|
std::terminate();
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
return converter.apply(L, LUABIND_DECORATE_TYPE(T), -1);
|
|
}
|
|
|
|
template<class T, class Obj, class Policies>
|
|
boost::optional<T> object_cast_nothrow_impl(const Obj& obj, const Policies&)
|
|
{
|
|
typedef typename detail::find_conversion_policy<0, Policies>::type converter_policy;
|
|
typename mpl::apply_wrap2<converter_policy,T,lua_to_cpp>::type converter;
|
|
|
|
if (obj.lua_state() == 0) return boost::optional<T>();
|
|
LUABIND_CHECK_STACK(obj.lua_state());
|
|
|
|
obj.pushvalue();
|
|
|
|
lua_State* L = obj.lua_state();
|
|
detail::stack_pop p(L, 1);
|
|
|
|
#ifndef LUABIND_NO_ERROR_CHECKING
|
|
|
|
if (converter.match(L, LUABIND_DECORATE_TYPE(T), -1) < 0)
|
|
return boost::optional<T>();
|
|
#endif
|
|
|
|
return boost::optional<T>(converter.apply(L, LUABIND_DECORATE_TYPE(T), -1));
|
|
}
|
|
}
|
|
|
|
template<class T>
|
|
T object_cast(const object& obj)
|
|
{ return detail::object_cast_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
T object_cast(const object& obj, const Policies& p)
|
|
{ return detail::object_cast_impl<T>(obj, p); }
|
|
|
|
template<class T>
|
|
boost::optional<T> object_cast_nothrow(const object& obj)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
boost::optional<T> object_cast_nothrow(const object& obj, const Policies& p)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, p); }
|
|
|
|
|
|
template<class T>
|
|
T object_cast(const detail::proxy_object& obj)
|
|
{ return detail::object_cast_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
T object_cast(const detail::proxy_object& obj, const Policies& p)
|
|
{ return detail::object_cast_impl<T>(obj, p); }
|
|
|
|
template<class T>
|
|
boost::optional<T> object_cast_nothrow(const detail::proxy_object& obj)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
boost::optional<T> object_cast_nothrow(const detail::proxy_object& obj, const Policies& p)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, p); }
|
|
|
|
|
|
template<class T>
|
|
T object_cast(const detail::proxy_raw_object& obj)
|
|
{ return detail::object_cast_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
T object_cast(const detail::proxy_raw_object& obj, const Policies& p)
|
|
{ return detail::object_cast_impl<T>(obj, p); }
|
|
|
|
template<class T>
|
|
boost::optional<T> object_cast_nothrow(const detail::proxy_raw_object& obj)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
boost::optional<T> object_cast_nothrow(const detail::proxy_raw_object& obj, const Policies& p)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, p); }
|
|
|
|
|
|
template<class T>
|
|
T object_cast(const detail::proxy_array_object& obj)
|
|
{ return detail::object_cast_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
T object_cast(const detail::proxy_array_object& obj, const Policies& p)
|
|
{ return detail::object_cast_impl<T>(obj, p); }
|
|
|
|
template<class T>
|
|
boost::optional<T> object_cast_nothrow(const detail::proxy_array_object& obj)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, detail::null_type()); }
|
|
|
|
template<class T, class Policies>
|
|
boost::optional<T> object_cast_nothrow(const detail::proxy_array_object& obj, const Policies& p)
|
|
{ return detail::object_cast_nothrow_impl<T>(obj, p); }
|
|
|
|
|
|
|
|
|
|
inline object get_globals(lua_State* L)
|
|
{
|
|
lua_pushvalue(L, LUA_GLOBALSINDEX);
|
|
detail::lua_reference ref;
|
|
ref.set(L);
|
|
return object(L, ref, true/*object::reference()*/);
|
|
}
|
|
|
|
inline object get_registry(lua_State* L)
|
|
{
|
|
lua_pushvalue(L, LUA_REGISTRYINDEX);
|
|
detail::lua_reference ref;
|
|
ref.set(L);
|
|
return object(L, ref, true/*object::reference()*/);
|
|
}
|
|
|
|
inline object newtable(lua_State* L)
|
|
{
|
|
lua_newtable(L);
|
|
detail::lua_reference ref;
|
|
ref.set(L);
|
|
return object(L, ref, true/*object::reference()*/);
|
|
}
|
|
}
|
|
|
|
/*
|
|
|
|
struct A
|
|
{
|
|
};
|
|
|
|
object f = class_<A>();
|
|
|
|
A* ptr = object_cast<A*>(f(), adopt(_1));
|
|
|
|
delete ptr;
|
|
|
|
*/
|
|
|
|
#endif // LUABIND_OBJECT_PROXY_HPP_INCLUDED
|