mirror of
https://github.com/EQEmu/Server.git
synced 2026-06-10 19:10:25 +00:00
Swapped luabind for non-boost fork
https://github.com/decimad/luabind-deboostified
This commit is contained in:
Adam Martin
+110
-104
@@ -4,133 +4,139 @@
|
||||
|
||||
#define LUABIND_BUILDING
|
||||
|
||||
#include <luabind/detail/object.hpp>
|
||||
#include <luabind/make_function.hpp>
|
||||
#include <luabind/detail/conversion_policies/conversion_policies.hpp>
|
||||
#include <luabind/detail/object.hpp>
|
||||
|
||||
namespace luabind { namespace detail {
|
||||
namespace luabind {
|
||||
namespace detail {
|
||||
|
||||
namespace
|
||||
{
|
||||
namespace {
|
||||
|
||||
int function_destroy(lua_State* L)
|
||||
{
|
||||
function_object* fn = *(function_object**)lua_touserdata(L, 1);
|
||||
delete fn;
|
||||
return 0;
|
||||
}
|
||||
int function_destroy(lua_State* L)
|
||||
{
|
||||
function_object* fn = *(function_object**)lua_touserdata(L, 1);
|
||||
delete fn;
|
||||
return 0;
|
||||
}
|
||||
|
||||
void push_function_metatable(lua_State* L)
|
||||
{
|
||||
lua_pushstring(L, "luabind.function");
|
||||
lua_rawget(L, LUA_REGISTRYINDEX);
|
||||
void push_function_metatable(lua_State* L)
|
||||
{
|
||||
lua_pushstring(L, "luabind.function");
|
||||
lua_rawget(L, LUA_REGISTRYINDEX);
|
||||
|
||||
if (lua_istable(L, -1))
|
||||
return;
|
||||
if(lua_istable(L, -1))
|
||||
return;
|
||||
|
||||
lua_pop(L, 1);
|
||||
lua_pop(L, 1);
|
||||
|
||||
lua_newtable(L);
|
||||
lua_newtable(L);
|
||||
|
||||
lua_pushstring(L, "__gc");
|
||||
lua_pushcclosure(L, &function_destroy, 0);
|
||||
lua_rawset(L, -3);
|
||||
lua_pushstring(L, "__gc");
|
||||
lua_pushcclosure(L, &function_destroy, 0);
|
||||
lua_rawset(L, -3);
|
||||
|
||||
lua_pushstring(L, "luabind.function");
|
||||
lua_pushvalue(L, -2);
|
||||
lua_rawset(L, LUA_REGISTRYINDEX);
|
||||
}
|
||||
lua_pushstring(L, "luabind.function");
|
||||
lua_pushvalue(L, -2);
|
||||
lua_rawset(L, LUA_REGISTRYINDEX);
|
||||
}
|
||||
|
||||
// A pointer to this is used as a tag value to identify functions exported
|
||||
// by luabind.
|
||||
int function_tag = 0;
|
||||
// A pointer to this is used as a tag value to identify functions exported
|
||||
// by luabind.
|
||||
int function_tag = 0;
|
||||
|
||||
} // namespace unnamed
|
||||
} // namespace unnamed
|
||||
|
||||
LUABIND_API bool is_luabind_function(lua_State* L, int index)
|
||||
{
|
||||
if (!lua_getupvalue(L, index, 2))
|
||||
return false;
|
||||
bool result = lua_touserdata(L, -1) == &function_tag;
|
||||
lua_pop(L, 1);
|
||||
return result;
|
||||
}
|
||||
LUABIND_API bool is_luabind_function(lua_State* L, int index)
|
||||
{
|
||||
if(!lua_getupvalue(L, index, 2))
|
||||
return false;
|
||||
bool result = lua_touserdata(L, -1) == &function_tag;
|
||||
lua_pop(L, 1);
|
||||
return result;
|
||||
}
|
||||
|
||||
namespace
|
||||
{
|
||||
namespace
|
||||
{
|
||||
|
||||
inline bool is_luabind_function(object const& obj)
|
||||
{
|
||||
obj.push(obj.interpreter());
|
||||
bool result = detail::is_luabind_function(obj.interpreter(), -1);
|
||||
lua_pop(obj.interpreter(), 1);
|
||||
return result;
|
||||
}
|
||||
inline bool is_luabind_function(object const& obj)
|
||||
{
|
||||
obj.push(obj.interpreter());
|
||||
bool result = detail::is_luabind_function(obj.interpreter(), -1);
|
||||
lua_pop(obj.interpreter(), 1);
|
||||
return result;
|
||||
}
|
||||
|
||||
} // namespace unnamed
|
||||
} // namespace unnamed
|
||||
|
||||
LUABIND_API void add_overload(
|
||||
object const& context, char const* name, object const& fn)
|
||||
{
|
||||
function_object* f = *touserdata<function_object*>(getupvalue(fn, 1));
|
||||
f->name = name;
|
||||
LUABIND_API void add_overload(
|
||||
object const& context, char const* name, object const& fn)
|
||||
{
|
||||
function_object* f = *touserdata<function_object*>(std::get<1>(getupvalue(fn, 1)));
|
||||
f->name = name;
|
||||
|
||||
if (object overloads = context[name])
|
||||
{
|
||||
if (is_luabind_function(overloads) && is_luabind_function(fn))
|
||||
{
|
||||
f->next = *touserdata<function_object*>(getupvalue(overloads, 1));
|
||||
f->keepalive = overloads;
|
||||
}
|
||||
}
|
||||
if(object overloads = context[name])
|
||||
{
|
||||
if(is_luabind_function(overloads) && is_luabind_function(fn))
|
||||
{
|
||||
f->next = *touserdata<function_object*>(std::get<1>(getupvalue(overloads, 1)));
|
||||
f->keepalive = overloads;
|
||||
}
|
||||
}
|
||||
|
||||
context[name] = fn;
|
||||
}
|
||||
context[name] = fn;
|
||||
}
|
||||
|
||||
LUABIND_API object make_function_aux(lua_State* L, function_object* impl)
|
||||
{
|
||||
void* storage = lua_newuserdata(L, sizeof(function_object*));
|
||||
push_function_metatable(L);
|
||||
*(function_object**)storage = impl;
|
||||
lua_setmetatable(L, -2);
|
||||
LUABIND_API object make_function_aux(lua_State* L, function_object* impl)
|
||||
{
|
||||
void* storage = lua_newuserdata(L, sizeof(function_object*));
|
||||
push_function_metatable(L);
|
||||
*(function_object**)storage = impl;
|
||||
lua_setmetatable(L, -2);
|
||||
|
||||
lua_pushlightuserdata(L, &function_tag);
|
||||
lua_pushcclosure(L, impl->entry, 2);
|
||||
stack_pop pop(L, 1);
|
||||
lua_pushlightuserdata(L, &function_tag);
|
||||
lua_pushcclosure(L, impl->entry, 2);
|
||||
stack_pop pop(L, 1);
|
||||
|
||||
return object(from_stack(L, -1));
|
||||
}
|
||||
return object(from_stack(L, -1));
|
||||
}
|
||||
|
||||
void invoke_context::format_error(
|
||||
lua_State* L, function_object const* overloads) const
|
||||
{
|
||||
char const* function_name =
|
||||
overloads->name.empty() ? "<unknown>" : overloads->name.c_str();
|
||||
void invoke_context::format_error(
|
||||
lua_State* L, function_object const* overloads) const
|
||||
{
|
||||
char const* function_name =
|
||||
overloads->name.empty() ? "<unknown>" : overloads->name.c_str();
|
||||
|
||||
if (candidate_index == 0)
|
||||
{
|
||||
lua_pushstring(L, "No matching overload found, candidates:\n");
|
||||
int count = 0;
|
||||
for (function_object const* f = overloads; f != 0; f = f->next)
|
||||
{
|
||||
if (count != 0)
|
||||
lua_pushstring(L, "\n");
|
||||
f->format_signature(L, function_name);
|
||||
++count;
|
||||
}
|
||||
lua_concat(L, count * 2);
|
||||
}
|
||||
else
|
||||
{
|
||||
// Ambiguous
|
||||
lua_pushstring(L, "Ambiguous, candidates:\n");
|
||||
for (int i = 0; i < candidate_index; ++i)
|
||||
{
|
||||
if (i != 0)
|
||||
lua_pushstring(L, "\n");
|
||||
candidates[i]->format_signature(L, function_name);
|
||||
}
|
||||
lua_concat(L, candidate_index * 2);
|
||||
}
|
||||
}
|
||||
if(candidate_index == 0)
|
||||
{
|
||||
int stacksize = lua_gettop(L);
|
||||
lua_pushstring(L, "No matching overload found, candidates:\n");
|
||||
int count = 0;
|
||||
for(function_object const* f = overloads; f != 0; f = f->next)
|
||||
{
|
||||
if(count != 0)
|
||||
lua_pushstring(L, "\n");
|
||||
f->format_signature(L, function_name);
|
||||
++count;
|
||||
}
|
||||
lua_concat(L, lua_gettop(L) - stacksize);
|
||||
}
|
||||
else
|
||||
{
|
||||
// Ambiguous
|
||||
int stacksize = lua_gettop(L);
|
||||
lua_pushstring(L, "Ambiguous, candidates:\n");
|
||||
for(int i = 0; i < candidate_index; ++i)
|
||||
{
|
||||
if(i != 0)
|
||||
lua_pushstring(L, "\n");
|
||||
candidates[i]->format_signature(L, function_name);
|
||||
}
|
||||
lua_concat(L, lua_gettop(L) - stacksize);
|
||||
}
|
||||
}
|
||||
|
||||
}} // namespace luabind::detail
|
||||
} // namespace detail
|
||||
} // namespace luabind
|
||||
|
||||
|
||||
Reference in New Issue
Block a user