mirror of
https://github.com/EQEmu/Server.git
synced 2026-06-11 07:38:36 +00:00
Revert "Build System Updated"
This commit is contained in:
Alex
GitHub
+258
-249
@@ -22,307 +22,316 @@
|
||||
|
||||
#define LUABIND_BUILDING
|
||||
|
||||
#include <boost/foreach.hpp>
|
||||
|
||||
#include <luabind/lua_include.hpp>
|
||||
|
||||
#include <luabind/config.hpp>
|
||||
#include <luabind/class.hpp>
|
||||
#include <luabind/nil.hpp>
|
||||
#include <luabind/detail/debug.hpp>
|
||||
|
||||
#include <cstring>
|
||||
#include <iostream>
|
||||
|
||||
namespace luabind {
|
||||
namespace detail {
|
||||
namespace luabind
|
||||
{
|
||||
LUABIND_API detail::nil_type nil;
|
||||
}
|
||||
|
||||
namespace luabind { namespace detail {
|
||||
|
||||
|
||||
namespace
|
||||
{
|
||||
struct cast_entry
|
||||
{
|
||||
cast_entry(class_id src, class_id target, cast_function cast)
|
||||
: src(src)
|
||||
, target(target)
|
||||
, cast(cast)
|
||||
{}
|
||||
namespace
|
||||
{
|
||||
struct cast_entry
|
||||
{
|
||||
cast_entry(class_id src, class_id target, cast_function cast)
|
||||
: src(src)
|
||||
, target(target)
|
||||
, cast(cast)
|
||||
{}
|
||||
|
||||
class_id src;
|
||||
class_id target;
|
||||
cast_function cast;
|
||||
};
|
||||
class_id src;
|
||||
class_id target;
|
||||
cast_function cast;
|
||||
};
|
||||
|
||||
} // namespace unnamed
|
||||
} // namespace unnamed
|
||||
|
||||
struct class_registration : registration
|
||||
{
|
||||
class_registration(char const* name);
|
||||
struct class_registration : registration
|
||||
{
|
||||
class_registration(char const* name);
|
||||
|
||||
void register_(lua_State* L) const;
|
||||
void register_(lua_State* L) const;
|
||||
|
||||
const char* m_name;
|
||||
const char* m_name;
|
||||
|
||||
mutable std::map<const char*, int, detail::ltstr> m_static_constants;
|
||||
mutable std::map<const char*, int, detail::ltstr> m_static_constants;
|
||||
|
||||
using base_desc = std::pair<type_id, cast_function>;
|
||||
mutable std::vector<base_desc> m_bases;
|
||||
typedef std::pair<type_id, cast_function> base_desc;
|
||||
mutable std::vector<base_desc> m_bases;
|
||||
|
||||
type_id m_type;
|
||||
class_id m_id;
|
||||
class_id m_wrapper_id;
|
||||
type_id m_wrapper_type;
|
||||
std::vector<cast_entry> m_casts;
|
||||
type_id m_type;
|
||||
class_id m_id;
|
||||
class_id m_wrapper_id;
|
||||
type_id m_wrapper_type;
|
||||
std::vector<cast_entry> m_casts;
|
||||
|
||||
scope m_scope;
|
||||
scope m_members;
|
||||
scope m_default_members;
|
||||
};
|
||||
scope m_scope;
|
||||
scope m_members;
|
||||
scope m_default_members;
|
||||
};
|
||||
|
||||
class_registration::class_registration(char const* name)
|
||||
{
|
||||
m_name = name;
|
||||
}
|
||||
class_registration::class_registration(char const* name)
|
||||
{
|
||||
m_name = name;
|
||||
}
|
||||
|
||||
void class_registration::register_(lua_State* L) const
|
||||
{
|
||||
LUABIND_CHECK_STACK(L);
|
||||
void class_registration::register_(lua_State* L) const
|
||||
{
|
||||
LUABIND_CHECK_STACK(L);
|
||||
|
||||
assert(lua_type(L, -1) == LUA_TTABLE);
|
||||
assert(lua_type(L, -1) == LUA_TTABLE);
|
||||
|
||||
lua_pushstring(L, m_name);
|
||||
lua_pushstring(L, m_name);
|
||||
|
||||
detail::class_rep* crep;
|
||||
detail::class_rep* crep;
|
||||
|
||||
detail::class_registry* r = detail::class_registry::get_registry(L);
|
||||
// create a class_rep structure for this class.
|
||||
// allocate it within lua to let lua collect it on
|
||||
// lua_close(). This is better than allocating it
|
||||
// as a static, since it will then be destructed
|
||||
// when the program exits instead.
|
||||
// warning: we assume that lua will not
|
||||
// move the userdata memory.
|
||||
lua_newuserdata(L, sizeof(detail::class_rep));
|
||||
crep = reinterpret_cast<detail::class_rep*>(lua_touserdata(L, -1));
|
||||
detail::class_registry* r = detail::class_registry::get_registry(L);
|
||||
// create a class_rep structure for this class.
|
||||
// allocate it within lua to let lua collect it on
|
||||
// lua_close(). This is better than allocating it
|
||||
// as a static, since it will then be destructed
|
||||
// when the program exits instead.
|
||||
// warning: we assume that lua will not
|
||||
// move the userdata memory.
|
||||
lua_newuserdata(L, sizeof(detail::class_rep));
|
||||
crep = reinterpret_cast<detail::class_rep*>(lua_touserdata(L, -1));
|
||||
|
||||
new(crep) detail::class_rep(
|
||||
m_type
|
||||
, m_name
|
||||
, L
|
||||
);
|
||||
new(crep) detail::class_rep(
|
||||
m_type
|
||||
, m_name
|
||||
, L
|
||||
);
|
||||
|
||||
// register this new type in the class registry
|
||||
r->add_class(m_type, crep);
|
||||
// register this new type in the class registry
|
||||
r->add_class(m_type, crep);
|
||||
|
||||
lua_pushstring(L, "__luabind_class_map");
|
||||
lua_rawget(L, LUA_REGISTRYINDEX);
|
||||
class_map& classes = *static_cast<class_map*>(
|
||||
lua_touserdata(L, -1));
|
||||
lua_pop(L, 1);
|
||||
lua_pushstring(L, "__luabind_class_map");
|
||||
lua_rawget(L, LUA_REGISTRYINDEX);
|
||||
class_map& classes = *static_cast<class_map*>(
|
||||
lua_touserdata(L, -1));
|
||||
lua_pop(L, 1);
|
||||
|
||||
classes.put(m_id, crep);
|
||||
classes.put(m_id, crep);
|
||||
|
||||
bool const has_wrapper = m_wrapper_id != registered_class<null_type>::id;
|
||||
bool const has_wrapper = m_wrapper_id != registered_class<null_type>::id;
|
||||
|
||||
if(has_wrapper)
|
||||
classes.put(m_wrapper_id, crep);
|
||||
if (has_wrapper)
|
||||
classes.put(m_wrapper_id, crep);
|
||||
|
||||
crep->m_static_constants.swap(m_static_constants);
|
||||
crep->m_static_constants.swap(m_static_constants);
|
||||
|
||||
detail::class_registry* registry = detail::class_registry::get_registry(L);
|
||||
detail::class_registry* registry = detail::class_registry::get_registry(L);
|
||||
|
||||
crep->get_default_table(L);
|
||||
m_scope.register_(L);
|
||||
m_default_members.register_(L);
|
||||
lua_pop(L, 1);
|
||||
crep->get_default_table(L);
|
||||
m_scope.register_(L);
|
||||
m_default_members.register_(L);
|
||||
lua_pop(L, 1);
|
||||
|
||||
crep->get_table(L);
|
||||
m_members.register_(L);
|
||||
lua_pop(L, 1);
|
||||
|
||||
lua_pushstring(L, "__luabind_cast_graph");
|
||||
lua_gettable(L, LUA_REGISTRYINDEX);
|
||||
cast_graph* const casts = static_cast<cast_graph*>(
|
||||
lua_touserdata(L, -1));
|
||||
lua_pop(L, 1);
|
||||
|
||||
lua_pushstring(L, "__luabind_class_id_map");
|
||||
lua_gettable(L, LUA_REGISTRYINDEX);
|
||||
class_id_map* const class_ids = static_cast<class_id_map*>(
|
||||
lua_touserdata(L, -1));
|
||||
lua_pop(L, 1);
|
||||
|
||||
class_ids->put(m_id, m_type);
|
||||
|
||||
if (has_wrapper)
|
||||
class_ids->put(m_wrapper_id, m_wrapper_type);
|
||||
|
||||
BOOST_FOREACH(cast_entry const& e, m_casts)
|
||||
{
|
||||
casts->insert(e.src, e.target, e.cast);
|
||||
}
|
||||
|
||||
for (std::vector<base_desc>::iterator i = m_bases.begin();
|
||||
i != m_bases.end(); ++i)
|
||||
{
|
||||
LUABIND_CHECK_STACK(L);
|
||||
|
||||
// the baseclass' class_rep structure
|
||||
detail::class_rep* bcrep = registry->find_class(i->first);
|
||||
|
||||
detail::class_rep::base_info base;
|
||||
base.pointer_offset = 0;
|
||||
base.base = bcrep;
|
||||
|
||||
crep->add_base_class(base);
|
||||
|
||||
// copy base class table
|
||||
crep->get_table(L);
|
||||
m_members.register_(L);
|
||||
lua_pop(L, 1);
|
||||
bcrep->get_table(L);
|
||||
lua_pushnil(L);
|
||||
|
||||
lua_pushstring(L, "__luabind_cast_graph");
|
||||
lua_gettable(L, LUA_REGISTRYINDEX);
|
||||
cast_graph* const casts = static_cast<cast_graph*>(lua_touserdata(L, -1));
|
||||
lua_pop(L, 1);
|
||||
while (lua_next(L, -2))
|
||||
{
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_gettable(L, -5);
|
||||
|
||||
lua_pushstring(L, "__luabind_class_id_map");
|
||||
lua_gettable(L, LUA_REGISTRYINDEX);
|
||||
class_id_map* const class_ids = static_cast<class_id_map*>(lua_touserdata(L, -1));
|
||||
lua_pop(L, 1);
|
||||
if (!lua_isnil(L, -1))
|
||||
{
|
||||
lua_pop(L, 2);
|
||||
continue;
|
||||
}
|
||||
|
||||
class_ids->put(m_id, m_type);
|
||||
lua_pop(L, 1);
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_insert(L, -2);
|
||||
|
||||
if(has_wrapper) {
|
||||
class_ids->put(m_wrapper_id, m_wrapper_type);
|
||||
}
|
||||
lua_settable(L, -5);
|
||||
}
|
||||
lua_pop(L, 2);
|
||||
|
||||
for(auto const& e : m_casts) {
|
||||
casts->insert(e.src, e.target, e.cast);
|
||||
}
|
||||
// copy base class detaults table
|
||||
crep->get_default_table(L);
|
||||
bcrep->get_default_table(L);
|
||||
lua_pushnil(L);
|
||||
|
||||
for(const auto& base_pair : m_bases) {
|
||||
LUABIND_CHECK_STACK(L);
|
||||
while (lua_next(L, -2))
|
||||
{
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_gettable(L, -5);
|
||||
|
||||
// the baseclass' class_rep structure
|
||||
detail::class_rep* bcrep = registry->find_class(base_pair.first);
|
||||
if (!lua_isnil(L, -1))
|
||||
{
|
||||
lua_pop(L, 2);
|
||||
continue;
|
||||
}
|
||||
|
||||
detail::class_rep::base_info base;
|
||||
base.pointer_offset = 0;
|
||||
base.base = bcrep;
|
||||
lua_pop(L, 1);
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_insert(L, -2);
|
||||
|
||||
crep->add_base_class(base);
|
||||
lua_settable(L, -5);
|
||||
}
|
||||
lua_pop(L, 2);
|
||||
|
||||
// copy base class table
|
||||
crep->get_table(L);
|
||||
bcrep->get_table(L);
|
||||
lua_pushnil(L);
|
||||
|
||||
while(lua_next(L, -2))
|
||||
{
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_gettable(L, -5);
|
||||
|
||||
if(!lua_isnil(L, -1))
|
||||
{
|
||||
lua_pop(L, 2);
|
||||
continue;
|
||||
}
|
||||
|
||||
lua_pop(L, 1);
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_insert(L, -2);
|
||||
|
||||
lua_settable(L, -5);
|
||||
}
|
||||
lua_pop(L, 2);
|
||||
|
||||
// copy base class detaults table
|
||||
crep->get_default_table(L);
|
||||
bcrep->get_default_table(L);
|
||||
lua_pushnil(L);
|
||||
|
||||
while(lua_next(L, -2))
|
||||
{
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_gettable(L, -5);
|
||||
|
||||
if(!lua_isnil(L, -1))
|
||||
{
|
||||
lua_pop(L, 2);
|
||||
continue;
|
||||
}
|
||||
|
||||
lua_pop(L, 1);
|
||||
lua_pushvalue(L, -2); // copy key
|
||||
lua_insert(L, -2);
|
||||
|
||||
lua_settable(L, -5);
|
||||
}
|
||||
lua_pop(L, 2);
|
||||
|
||||
}
|
||||
|
||||
lua_settable(L, -3);
|
||||
}
|
||||
|
||||
// -- interface ---------------------------------------------------------
|
||||
lua_settable(L, -3);
|
||||
}
|
||||
|
||||
// -- interface ---------------------------------------------------------
|
||||
|
||||
class_base::class_base(char const* name)
|
||||
: scope(std::unique_ptr<registration>(
|
||||
m_registration = new class_registration(name))
|
||||
)
|
||||
{
|
||||
}
|
||||
class_base::class_base(char const* name)
|
||||
: scope(std::auto_ptr<registration>(
|
||||
m_registration = new class_registration(name))
|
||||
)
|
||||
{
|
||||
}
|
||||
|
||||
void class_base::init(
|
||||
type_id const& type_id_, class_id id
|
||||
, type_id const& wrapper_type, class_id wrapper_id)
|
||||
{
|
||||
m_registration->m_type = type_id_;
|
||||
m_registration->m_id = id;
|
||||
m_registration->m_wrapper_type = wrapper_type;
|
||||
m_registration->m_wrapper_id = wrapper_id;
|
||||
}
|
||||
void class_base::init(
|
||||
type_id const& type_id_, class_id id
|
||||
, type_id const& wrapper_type, class_id wrapper_id)
|
||||
{
|
||||
m_registration->m_type = type_id_;
|
||||
m_registration->m_id = id;
|
||||
m_registration->m_wrapper_type = wrapper_type;
|
||||
m_registration->m_wrapper_id = wrapper_id;
|
||||
}
|
||||
|
||||
void class_base::add_base(type_id const& base, cast_function cast)
|
||||
{
|
||||
m_registration->m_bases.push_back(std::make_pair(base, cast));
|
||||
}
|
||||
|
||||
void class_base::add_member(registration* member)
|
||||
{
|
||||
std::unique_ptr<registration> ptr(member);
|
||||
m_registration->m_members.operator,(scope(std::move(ptr)));
|
||||
}
|
||||
|
||||
void class_base::add_default_member(registration* member)
|
||||
{
|
||||
std::unique_ptr<registration> ptr(member);
|
||||
m_registration->m_default_members.operator,(scope(std::move(ptr)));
|
||||
}
|
||||
|
||||
const char* class_base::name() const
|
||||
{
|
||||
return m_registration->m_name;
|
||||
}
|
||||
|
||||
void class_base::add_static_constant(const char* name, int val)
|
||||
{
|
||||
m_registration->m_static_constants[name] = val;
|
||||
}
|
||||
|
||||
void class_base::add_inner_scope(scope& s)
|
||||
{
|
||||
m_registration->m_scope.operator,(s);
|
||||
}
|
||||
|
||||
void class_base::add_cast(
|
||||
class_id src, class_id target, cast_function cast)
|
||||
{
|
||||
m_registration->m_casts.push_back(cast_entry(src, target, cast));
|
||||
}
|
||||
|
||||
void add_custom_name(type_id const& i, std::string& s)
|
||||
{
|
||||
s += " [";
|
||||
s += i.name();
|
||||
s += "]";
|
||||
}
|
||||
|
||||
std::string get_class_name(lua_State* L, type_id const& i)
|
||||
{
|
||||
std::string ret;
|
||||
|
||||
assert(L);
|
||||
|
||||
class_registry* r = class_registry::get_registry(L);
|
||||
class_rep* crep = r->find_class(i);
|
||||
|
||||
if(crep == 0)
|
||||
{
|
||||
ret = "custom";
|
||||
add_custom_name(i, ret);
|
||||
} else
|
||||
{
|
||||
/* TODO reimplement this?
|
||||
if (i == crep->holder_type())
|
||||
{
|
||||
ret += "smart_ptr<";
|
||||
ret += crep->name();
|
||||
ret += ">";
|
||||
}
|
||||
else if (i == crep->const_holder_type())
|
||||
{
|
||||
ret += "smart_ptr<const ";
|
||||
ret += crep->name();
|
||||
ret += ">";
|
||||
}
|
||||
else*/
|
||||
{
|
||||
ret += crep->name();
|
||||
}
|
||||
}
|
||||
return ret;
|
||||
}
|
||||
void class_base::add_base(type_id const& base, cast_function cast)
|
||||
{
|
||||
m_registration->m_bases.push_back(std::make_pair(base, cast));
|
||||
}
|
||||
|
||||
void class_base::add_member(registration* member)
|
||||
{
|
||||
std::auto_ptr<registration> ptr(member);
|
||||
m_registration->m_members.operator,(scope(ptr));
|
||||
}
|
||||
} // namespace luabind::detail
|
||||
|
||||
void class_base::add_default_member(registration* member)
|
||||
{
|
||||
std::auto_ptr<registration> ptr(member);
|
||||
m_registration->m_default_members.operator,(scope(ptr));
|
||||
}
|
||||
|
||||
const char* class_base::name() const
|
||||
{
|
||||
return m_registration->m_name;
|
||||
}
|
||||
|
||||
void class_base::add_static_constant(const char* name, int val)
|
||||
{
|
||||
m_registration->m_static_constants[name] = val;
|
||||
}
|
||||
|
||||
void class_base::add_inner_scope(scope& s)
|
||||
{
|
||||
m_registration->m_scope.operator,(s);
|
||||
}
|
||||
|
||||
void class_base::add_cast(
|
||||
class_id src, class_id target, cast_function cast)
|
||||
{
|
||||
m_registration->m_casts.push_back(cast_entry(src, target, cast));
|
||||
}
|
||||
|
||||
void add_custom_name(type_id const& i, std::string& s)
|
||||
{
|
||||
s += " [";
|
||||
s += i.name();
|
||||
s += "]";
|
||||
}
|
||||
|
||||
std::string get_class_name(lua_State* L, type_id const& i)
|
||||
{
|
||||
std::string ret;
|
||||
|
||||
assert(L);
|
||||
|
||||
class_registry* r = class_registry::get_registry(L);
|
||||
class_rep* crep = r->find_class(i);
|
||||
|
||||
if (crep == 0)
|
||||
{
|
||||
ret = "custom";
|
||||
add_custom_name(i, ret);
|
||||
}
|
||||
else
|
||||
{
|
||||
/* TODO reimplement this?
|
||||
if (i == crep->holder_type())
|
||||
{
|
||||
ret += "smart_ptr<";
|
||||
ret += crep->name();
|
||||
ret += ">";
|
||||
}
|
||||
else if (i == crep->const_holder_type())
|
||||
{
|
||||
ret += "smart_ptr<const ";
|
||||
ret += crep->name();
|
||||
ret += ">";
|
||||
}
|
||||
else*/
|
||||
{
|
||||
ret += crep->name();
|
||||
}
|
||||
}
|
||||
return ret;
|
||||
}
|
||||
|
||||
}} // namespace luabind::detail
|
||||
|
||||
|
||||
Reference in New Issue
Block a user