mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-11 16:51:29 +00:00
124 lines
3.0 KiB
C++
124 lines
3.0 KiB
C++
// Copyright Daniel Wallin 2008. Use, modification and distribution is
|
|
// subject to the Boost Software License, Version 1.0. (See accompanying
|
|
// file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
|
|
|
|
#ifndef LUABIND_MAKE_FUNCTION_081014_HPP
|
|
# define LUABIND_MAKE_FUNCTION_081014_HPP
|
|
|
|
# include <luabind/config.hpp>
|
|
# include <luabind/object.hpp>
|
|
# include <luabind/detail/call.hpp>
|
|
# include <luabind/detail/compute_score.hpp>
|
|
# include <luabind/detail/deduce_signature.hpp>
|
|
# include <luabind/detail/format_signature.hpp>
|
|
|
|
namespace luabind {
|
|
|
|
namespace detail
|
|
{
|
|
# ifndef LUABIND_NO_EXCEPTIONS
|
|
LUABIND_API void handle_exception_aux(lua_State* L);
|
|
# endif
|
|
|
|
// MSVC complains about member being sensitive to alignment (C4121)
|
|
// when F is a pointer to member of a class with virtual bases.
|
|
# ifdef BOOST_MSVC
|
|
# pragma pack(push)
|
|
# pragma pack(16)
|
|
# endif
|
|
|
|
template <class F, class Signature, class Policies>
|
|
struct function_object_impl : function_object
|
|
{
|
|
function_object_impl(F f, Policies const& policies)
|
|
: function_object(&entry_point)
|
|
, f(f)
|
|
, policies(policies)
|
|
{}
|
|
|
|
int call(lua_State* L, invoke_context& ctx) const
|
|
{
|
|
return invoke(L, *this, ctx, f, Signature(), policies);
|
|
}
|
|
|
|
void format_signature(lua_State* L, char const* function) const
|
|
{
|
|
detail::format_signature(L, function, Signature());
|
|
}
|
|
|
|
static int entry_point(lua_State* L)
|
|
{
|
|
function_object_impl const* impl =
|
|
*(function_object_impl const**)lua_touserdata(L, lua_upvalueindex(1));
|
|
|
|
invoke_context ctx;
|
|
|
|
int results = 0;
|
|
|
|
# ifndef LUABIND_NO_EXCEPTIONS
|
|
bool exception_caught = false;
|
|
|
|
try
|
|
{
|
|
results = invoke(
|
|
L, *impl, ctx, impl->f, Signature(), impl->policies);
|
|
}
|
|
catch (...)
|
|
{
|
|
exception_caught = true;
|
|
handle_exception_aux(L);
|
|
}
|
|
|
|
if (exception_caught)
|
|
lua_error(L);
|
|
# else
|
|
results = invoke(L, *impl, ctx, impl->f, Signature(), impl->policies);
|
|
# endif
|
|
|
|
if (!ctx)
|
|
{
|
|
ctx.format_error(L, impl);
|
|
lua_error(L);
|
|
}
|
|
|
|
return results;
|
|
}
|
|
|
|
F f;
|
|
Policies policies;
|
|
};
|
|
|
|
# ifdef BOOST_MSVC
|
|
# pragma pack(pop)
|
|
# endif
|
|
|
|
LUABIND_API object make_function_aux(
|
|
lua_State* L, function_object* impl
|
|
);
|
|
|
|
LUABIND_API void add_overload(object const&, char const*, object const&);
|
|
|
|
} // namespace detail
|
|
|
|
template <class F, class Signature, class Policies>
|
|
object make_function(lua_State* L, F f, Signature, Policies)
|
|
{
|
|
return detail::make_function_aux(
|
|
L
|
|
, new detail::function_object_impl<F, Signature, Policies>(
|
|
f, Policies()
|
|
)
|
|
);
|
|
}
|
|
|
|
template <class F>
|
|
object make_function(lua_State* L, F f)
|
|
{
|
|
return make_function(L, detail::deduce_signature(f), detail::null_type());
|
|
}
|
|
|
|
} // namespace luabind
|
|
|
|
#endif // LUABIND_MAKE_FUNCTION_081014_HPP
|
|
|