mirror of
https://github.com/EQEmu/Server.git
synced 2026-06-11 11:48:37 +00:00
Swapped luabind for non-boost fork
https://github.com/decimad/luabind-deboostified
This commit is contained in:
Adam Martin
+150
-150
@@ -27,182 +27,182 @@
|
||||
#include <luabind/scope.hpp>
|
||||
#include <luabind/detail/debug.hpp>
|
||||
#include <luabind/detail/stack_utils.hpp>
|
||||
#include <luabind/lua502.hpp>
|
||||
#include <cassert>
|
||||
|
||||
namespace luabind { namespace detail {
|
||||
|
||||
registration::registration()
|
||||
: m_next(0)
|
||||
{
|
||||
}
|
||||
|
||||
registration::~registration()
|
||||
{
|
||||
delete m_next;
|
||||
}
|
||||
|
||||
} // namespace detail
|
||||
|
||||
scope::scope()
|
||||
: m_chain(0)
|
||||
{
|
||||
}
|
||||
|
||||
scope::scope(std::auto_ptr<detail::registration> reg)
|
||||
: m_chain(reg.release())
|
||||
{
|
||||
}
|
||||
|
||||
scope::scope(scope const& other)
|
||||
: m_chain(other.m_chain)
|
||||
{
|
||||
const_cast<scope&>(other).m_chain = 0;
|
||||
}
|
||||
|
||||
scope& scope::operator=(scope const& other_)
|
||||
{
|
||||
delete m_chain;
|
||||
m_chain = other_.m_chain;
|
||||
const_cast<scope&>(other_).m_chain = 0;
|
||||
return *this;
|
||||
}
|
||||
|
||||
scope::~scope()
|
||||
{
|
||||
delete m_chain;
|
||||
}
|
||||
|
||||
scope& scope::operator,(scope s)
|
||||
{
|
||||
if (!m_chain)
|
||||
{
|
||||
m_chain = s.m_chain;
|
||||
s.m_chain = 0;
|
||||
return *this;
|
||||
}
|
||||
|
||||
for (detail::registration* c = m_chain;; c = c->m_next)
|
||||
{
|
||||
if (!c->m_next)
|
||||
{
|
||||
c->m_next = s.m_chain;
|
||||
s.m_chain = 0;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
return *this;
|
||||
}
|
||||
|
||||
void scope::register_(lua_State* L) const
|
||||
{
|
||||
for (detail::registration* r = m_chain; r != 0; r = r->m_next)
|
||||
{
|
||||
LUABIND_CHECK_STACK(L);
|
||||
r->register_(L);
|
||||
}
|
||||
}
|
||||
|
||||
} // namespace luabind
|
||||
#if LUA_VERSION_NUM < 502
|
||||
# define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
|
||||
#endif
|
||||
|
||||
namespace luabind {
|
||||
namespace detail {
|
||||
|
||||
namespace {
|
||||
registration::registration()
|
||||
: m_next(0)
|
||||
{
|
||||
}
|
||||
|
||||
struct lua_pop_stack
|
||||
{
|
||||
lua_pop_stack(lua_State* L)
|
||||
: m_state(L)
|
||||
{
|
||||
}
|
||||
registration::~registration()
|
||||
{
|
||||
delete m_next;
|
||||
}
|
||||
|
||||
~lua_pop_stack()
|
||||
{
|
||||
lua_pop(m_state, 1);
|
||||
}
|
||||
} // namespace detail
|
||||
|
||||
lua_State* m_state;
|
||||
};
|
||||
scope::scope()
|
||||
: m_chain(0)
|
||||
{
|
||||
}
|
||||
|
||||
} // namespace unnamed
|
||||
|
||||
module_::module_(lua_State* L, char const* name = 0)
|
||||
: m_state(L)
|
||||
, m_name(name)
|
||||
{
|
||||
}
|
||||
scope::scope(std::unique_ptr<detail::registration> reg)
|
||||
: m_chain(reg.release())
|
||||
{
|
||||
}
|
||||
|
||||
void module_::operator[](scope s)
|
||||
{
|
||||
if (m_name)
|
||||
{
|
||||
lua_getglobal(m_state, m_name);
|
||||
scope::scope(scope const& other)
|
||||
: m_chain(other.m_chain)
|
||||
{
|
||||
const_cast<scope&>(other).m_chain = 0;
|
||||
}
|
||||
|
||||
if (!lua_istable(m_state, -1))
|
||||
{
|
||||
lua_pop(m_state, 1);
|
||||
scope& scope::operator=(scope const& other_)
|
||||
{
|
||||
delete m_chain;
|
||||
m_chain = other_.m_chain;
|
||||
const_cast<scope&>(other_).m_chain = 0;
|
||||
return *this;
|
||||
}
|
||||
|
||||
lua_newtable(m_state);
|
||||
lua_pushvalue(m_state, -1);
|
||||
lua_setglobal(m_state, m_name);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lua_pushglobaltable(m_state);
|
||||
}
|
||||
scope::~scope()
|
||||
{
|
||||
delete m_chain;
|
||||
}
|
||||
|
||||
lua_pop_stack guard(m_state);
|
||||
scope& scope::operator,(scope s)
|
||||
{
|
||||
if(!m_chain)
|
||||
{
|
||||
m_chain = s.m_chain;
|
||||
s.m_chain = 0;
|
||||
return *this;
|
||||
}
|
||||
|
||||
s.register_(m_state);
|
||||
}
|
||||
for(detail::registration* c = m_chain;; c = c->m_next)
|
||||
{
|
||||
if(!c->m_next)
|
||||
{
|
||||
c->m_next = s.m_chain;
|
||||
s.m_chain = 0;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
struct namespace_::registration_ : detail::registration
|
||||
{
|
||||
registration_(char const* name)
|
||||
: m_name(name)
|
||||
{
|
||||
}
|
||||
return *this;
|
||||
}
|
||||
|
||||
void register_(lua_State* L) const
|
||||
{
|
||||
void scope::register_(lua_State* L) const
|
||||
{
|
||||
for(detail::registration* r = m_chain; r != 0; r = r->m_next)
|
||||
{
|
||||
LUABIND_CHECK_STACK(L);
|
||||
assert(lua_gettop(L) >= 1);
|
||||
r->register_(L);
|
||||
}
|
||||
}
|
||||
|
||||
lua_pushstring(L, m_name);
|
||||
lua_gettable(L, -2);
|
||||
namespace {
|
||||
|
||||
struct lua_pop_stack
|
||||
{
|
||||
lua_pop_stack(lua_State* L)
|
||||
: m_state(L)
|
||||
{
|
||||
}
|
||||
|
||||
~lua_pop_stack()
|
||||
{
|
||||
lua_pop(m_state, 1);
|
||||
}
|
||||
|
||||
lua_State* m_state;
|
||||
};
|
||||
|
||||
} // namespace unnamed
|
||||
|
||||
module_::module_(lua_State* L, char const* name = 0)
|
||||
: m_state(L)
|
||||
, m_name(name)
|
||||
{
|
||||
}
|
||||
|
||||
void module_::operator[](scope s)
|
||||
{
|
||||
if(m_name)
|
||||
{
|
||||
lua_getglobal(m_state, m_name);
|
||||
|
||||
if(!lua_istable(m_state, -1))
|
||||
{
|
||||
lua_pop(m_state, 1);
|
||||
|
||||
lua_newtable(m_state);
|
||||
lua_pushvalue(m_state, -1);
|
||||
lua_setglobal(m_state, m_name);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lua_pushglobaltable(m_state);
|
||||
}
|
||||
|
||||
lua_pop_stack guard(m_state);
|
||||
|
||||
s.register_(m_state);
|
||||
}
|
||||
|
||||
struct namespace_::registration_ : detail::registration
|
||||
{
|
||||
registration_(char const* name)
|
||||
: m_name(name)
|
||||
{
|
||||
}
|
||||
|
||||
void register_(lua_State* L) const
|
||||
{
|
||||
LUABIND_CHECK_STACK(L);
|
||||
assert(lua_gettop(L) >= 1);
|
||||
|
||||
lua_pushstring(L, m_name);
|
||||
lua_gettable(L, -2);
|
||||
|
||||
detail::stack_pop p(L, 1); // pops the table on exit
|
||||
|
||||
if (!lua_istable(L, -1))
|
||||
{
|
||||
lua_pop(L, 1);
|
||||
if(!lua_istable(L, -1))
|
||||
{
|
||||
lua_pop(L, 1);
|
||||
|
||||
lua_newtable(L);
|
||||
lua_pushstring(L, m_name);
|
||||
lua_pushvalue(L, -2);
|
||||
lua_settable(L, -4);
|
||||
}
|
||||
lua_newtable(L);
|
||||
lua_pushstring(L, m_name);
|
||||
lua_pushvalue(L, -2);
|
||||
lua_settable(L, -4);
|
||||
}
|
||||
|
||||
m_scope.register_(L);
|
||||
}
|
||||
m_scope.register_(L);
|
||||
}
|
||||
|
||||
char const* m_name;
|
||||
scope m_scope;
|
||||
};
|
||||
char const* m_name;
|
||||
scope m_scope;
|
||||
};
|
||||
|
||||
namespace_::namespace_(char const* name)
|
||||
: scope(std::auto_ptr<detail::registration>(
|
||||
m_registration = new registration_(name)))
|
||||
{
|
||||
}
|
||||
namespace_::namespace_(char const* name)
|
||||
: scope(std::unique_ptr<detail::registration>(
|
||||
m_registration = new registration_(name)))
|
||||
{
|
||||
}
|
||||
|
||||
namespace_& namespace_::operator[](scope s)
|
||||
{
|
||||
m_registration->m_scope.operator,(s);
|
||||
return *this;
|
||||
}
|
||||
namespace_& namespace_::operator[](scope s)
|
||||
{
|
||||
m_registration->m_scope.operator,(s);
|
||||
return *this;
|
||||
}
|
||||
|
||||
} // namespace luabind
|
||||
|
||||
|
||||
Reference in New Issue
Block a user