1060 lines
34 KiB
C++
1060 lines
34 KiB
C++
|
|
#include "world.hpp"
|
|
#include "idalloc.hpp"
|
|
#include "animqueue.hpp"
|
|
#include "gui.hpp"
|
|
#include "traceback.hpp"
|
|
#include "print.hpp"
|
|
#include <iostream>
|
|
|
|
void World::store_global_pointer(lua_State *L, World *v) {
|
|
lua_pushstring(L, "world");
|
|
lua_pushlightuserdata(L, v);
|
|
lua_rawset(L, LUA_REGISTRYINDEX);
|
|
}
|
|
|
|
World *World::fetch_global_pointer(lua_State *L) {
|
|
lua_pushstring(L, "world");
|
|
lua_rawget(L, LUA_REGISTRYINDEX);
|
|
World *result = (World *)lua_touserdata(L, -1);
|
|
if (result == nullptr) {
|
|
luaL_error(L, "No world pointer stored.");
|
|
}
|
|
lua_pop(L, 1);
|
|
return result;
|
|
}
|
|
|
|
World::~World() {
|
|
}
|
|
|
|
World::World(util::WorldType wt) {
|
|
// Master world model by default.
|
|
world_type_ = wt;
|
|
|
|
// Initialize the ID allocator in master mode.
|
|
if (wt == util::WORLD_TYPE_MASTER || wt == util::WORLD_TYPE_STANDALONE) {
|
|
id_global_pool_.init_master();
|
|
} else {
|
|
id_global_pool_.init_synch();
|
|
}
|
|
|
|
// Prepare to manipulate the lua state.
|
|
LuaVar world, globtab;
|
|
LuaStack LS(state(), world, globtab);
|
|
|
|
// Put the world pointer into the lua registry.
|
|
World::store_global_pointer(state(), this);
|
|
|
|
// Clear the global GUI pointer.
|
|
Gui::store_global_pointer(state(), nullptr);
|
|
|
|
// Set the tabletype of the registry.
|
|
LS.settabletype(LuaRegistry, LUA_TT_REGISTRY);
|
|
|
|
// Set the tabletype of the global environment.
|
|
LS.getglobaltable(globtab);
|
|
LS.settabletype(globtab, LUA_TT_GLOBALENV);
|
|
|
|
// Create the tangibles table in the registry.
|
|
LS.rawset(LuaRegistry, "tangibles", LuaNewTable);
|
|
|
|
// Create the globaldb in the registry.
|
|
LS.rawset(LuaRegistry, "globaldb", LuaNewTable);
|
|
|
|
// Initialize the SourceDB. At this stage, the sourcedb is
|
|
// empty, so it's just populating the lua builtins.
|
|
source_db_.init(state());
|
|
source_db_.rebuild();
|
|
|
|
LS.result();
|
|
assert (stack_is_clear());
|
|
}
|
|
|
|
Tangible::Tangible(World *w, int64_t id) : world_(w), anim_queue_(w->world_type_), id_player_pool_(&w->id_global_pool_) {
|
|
plane_item_.set_id(id);
|
|
plane_item_.track(&w->plane_map_);
|
|
}
|
|
|
|
void Tangible::update_plane_item() {
|
|
const AnimStep &aqback = anim_queue_.back();
|
|
plane_item_.set_pos(aqback.plane(), aqback.xyz().x, aqback.xyz().y, aqback.xyz().z);
|
|
}
|
|
|
|
void Tangible::serialize(StreamBuffer *sb) {
|
|
anim_queue_.serialize(sb);
|
|
id_player_pool_.serialize(sb);
|
|
}
|
|
|
|
void Tangible::deserialize(StreamBuffer *sb) {
|
|
anim_queue_.deserialize(sb);
|
|
id_player_pool_.deserialize(sb);
|
|
update_plane_item();
|
|
}
|
|
|
|
|
|
Tangible *World::tangible_get(int64_t id) {
|
|
auto iter = tangibles_.find(id);
|
|
if (iter == tangibles_.end()) {
|
|
return nullptr;
|
|
} else {
|
|
return iter->second.get();
|
|
}
|
|
}
|
|
|
|
const Tangible *World::tangible_get(int64_t id) const {
|
|
auto iter = tangibles_.find(id);
|
|
if (iter == tangibles_.end()) {
|
|
return nullptr;
|
|
} else {
|
|
return iter->second.get();
|
|
}
|
|
}
|
|
|
|
World::TanVector World::tangible_get_all(const IdVector &ids) const {
|
|
TanVector result(ids.size());
|
|
for (int i = 0; i < int(ids.size()); i++) {
|
|
result[i] = tangible_get(ids[i]);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
Tangible *World::tangible_get(const LuaStack &LS, LuaSlot tab) {
|
|
int64_t id = tangible_id(LS, tab);
|
|
if (id == 0) {
|
|
luaL_error(LS.state(), "parameter is not a tangible");
|
|
}
|
|
Tangible *result = tangible_get(id);
|
|
if (result == nullptr) {
|
|
luaL_error(LS.state(), "parameter is not a tangible");
|
|
}
|
|
return result;
|
|
}
|
|
|
|
int64_t World::tangible_id(const LuaStack &LS, LuaSlot tab) {
|
|
int64_t id = 0;
|
|
if (LS.istable(tab) && LS.gettabletype(tab) == LUA_TT_TANGIBLE) {
|
|
lua_State *L = LS.state();
|
|
if (lua_getmetatable(L, tab.index())) {
|
|
lua_pushstring(L, "id");
|
|
lua_rawget(L, -2);
|
|
if (lua_type(L, -1) == LUA_TNUMBER) {
|
|
id = lua_tointeger(L, -1);
|
|
}
|
|
lua_pop(L, 2);
|
|
}
|
|
}
|
|
return id;
|
|
}
|
|
|
|
Tangible *World::tangible_make(lua_State *L, int64_t id, bool pushdb) {
|
|
// Get a state if we don't already have one.
|
|
if (L == nullptr) {
|
|
L = state();
|
|
assert(!pushdb);
|
|
}
|
|
|
|
LuaVar tangibles, metatab;
|
|
LuaRet database;
|
|
LuaStack LS(L, tangibles, database, metatab);
|
|
|
|
// Allocate an ID if we don't already have one.
|
|
if (id == 0) id = id_global_pool_.alloc_id_for_thread(L);
|
|
|
|
// Create the C++ part of the structure.
|
|
std::unique_ptr<Tangible> &t = tangibles_[id];
|
|
assert (t == nullptr);
|
|
t.reset(new Tangible(this, id));
|
|
|
|
// Create the tangible's database and metatable.
|
|
LS.set(database, LuaNewTable);
|
|
LS.set(metatab, LuaNewTable);
|
|
LS.setmetatable(database, metatab);
|
|
|
|
// Mark the tangible using the tabletype field.
|
|
LS.settabletype(database, LUA_TT_TANGIBLE);
|
|
LS.settabletype(metatab, LUA_TT_TANGIBLEMETA);
|
|
|
|
// Store the database into the tangibles table.
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
LS.rawset(tangibles, id, database);
|
|
|
|
// Populate the database and metatable with initial stuff.
|
|
LS.rawset(database, "inventory", LuaNewTable);
|
|
LS.rawset(metatab, "id", id);
|
|
LS.rawset(metatab, "threads", LuaNewTable);
|
|
// LS.rawset(metatab, "__metatable", LuaNil);
|
|
|
|
LS.result();
|
|
if (!pushdb) lua_pop(L, 1);
|
|
return t.get();
|
|
}
|
|
|
|
void World::tangible_delete(int64_t id) {
|
|
lua_State *L = state();
|
|
LuaVar tangibles, database;
|
|
LuaStack LS(L, tangibles, database);
|
|
|
|
// Fetch the C++ side of the tangible.
|
|
auto iter = tangibles_.find(id);
|
|
if (iter == tangibles_.end()) {
|
|
LS.result();
|
|
return; // Nothing to delete.
|
|
}
|
|
|
|
// Fetch the lua side of the tangible.
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
LS.rawget(database, tangibles, id);
|
|
assert(LS.istable(database));
|
|
|
|
// Clear out the database.
|
|
LS.clearmetatable(database);
|
|
LS.cleartable(database);
|
|
LS.settabletype(database, LUA_TT_DEADTANGIBLE);
|
|
|
|
// Remove the lua portion from the tangibles table.
|
|
LS.rawset(tangibles, id, LuaNil);
|
|
|
|
// Remove the C++ portion from the tangibles table.
|
|
tangibles_.erase(iter);
|
|
LS.result();
|
|
}
|
|
|
|
|
|
void World::tangible_walkto(int64_t id, int64_t animid, float x, float y) {
|
|
Tangible *t = tangible_get(id);
|
|
assert(animid != 0);
|
|
assert(t != nullptr);
|
|
AnimStep step;
|
|
step.set_action("walkto");
|
|
step.set_x(x);
|
|
step.set_y(y);
|
|
t->anim_queue_.add(animid, step);
|
|
}
|
|
|
|
|
|
std::string World::tangible_anim_debug_string(int64_t id) const {
|
|
const Tangible *t = tangible_get(id);
|
|
if (t == 0) return "no such tangible";
|
|
return t->anim_queue_.steps_debug_string();
|
|
}
|
|
|
|
|
|
std::string World::tangible_ids_debug_string() const {
|
|
util::IdVector idv;
|
|
for (const auto &pair : tangibles_) {
|
|
idv.push_back(pair.first);
|
|
}
|
|
std::sort(idv.begin(), idv.end());
|
|
return util::id_vector_debug_string(idv);
|
|
}
|
|
|
|
std::string World::tangible_pprint(int64_t id) const {
|
|
lua_State *L = state();
|
|
LuaVar tangibles, tan, meta;
|
|
LuaStack LS(L, tangibles, tan, meta);
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
LS.rawgeti(tan, tangibles, id);
|
|
std::ostringstream oss;
|
|
if (LS.istable(tan)) {
|
|
LS.getmetatable(meta, tan);
|
|
LS.clearmetatable(tan);
|
|
pprint(LS, tan, false, &oss);
|
|
LS.setmetatable(tan, meta);
|
|
} else {
|
|
oss << "<no such tangible: " << id << ">";
|
|
}
|
|
LS.result();
|
|
return oss.str();
|
|
}
|
|
|
|
std::string World::numbered_tables_debug_string() const {
|
|
lua_State *L = state();
|
|
LuaVar ntmap, tab, tid;
|
|
LuaStack LS(L, ntmap, tab, tid);
|
|
std::vector<std::string> result;
|
|
std::ostringstream oss;
|
|
|
|
// Fetch the numbered tables map.
|
|
LS.rawget(ntmap, LuaRegistry, "ntmap");
|
|
|
|
// Iterate over the map. For each table, if it has
|
|
// a TID, output that. Otherwise, output "unknown".
|
|
for (int i = 1; i < 10000; i++) {
|
|
LS.rawgeti(tab, ntmap, i);
|
|
if (!LS.istable(tab)) break;
|
|
LS.rawget(tid, tab, "TID");
|
|
if (LS.isstring(tid)) {
|
|
result.push_back(LS.ckstring(tid));
|
|
} else {
|
|
result.push_back("unknown");
|
|
}
|
|
}
|
|
LS.result();
|
|
std::sort(result.begin(), result.end());
|
|
for (const std::string &s : result) {
|
|
oss << s << ";";
|
|
}
|
|
return oss.str();
|
|
}
|
|
|
|
std::string World::paired_tables_debug_string(lua_State *master) const {
|
|
lua_State *synch = state();
|
|
LuaVar mntmap, sntmap, mtab, stab, mtid, stid;
|
|
LuaStack MLS(master, mntmap, mtab, mtid);
|
|
LuaStack SLS(synch, sntmap, stab, stid);
|
|
std::vector<std::pair<std::string, std::string>> result;
|
|
std::ostringstream oss;
|
|
|
|
// Fetch the numbered tables map.
|
|
MLS.rawget(mntmap, LuaRegistry, "ntmap");
|
|
SLS.rawget(sntmap, LuaRegistry, "ntmap");
|
|
int m_ntables = MLS.rawlen(mntmap);
|
|
int s_ntables = MLS.rawlen(sntmap);
|
|
assert(m_ntables == s_ntables);
|
|
|
|
for (int i = 1; i <= m_ntables; i++) {
|
|
MLS.rawget(mtab, mntmap, i);
|
|
SLS.rawget(stab, sntmap, i);
|
|
if (MLS.istable(mtab) && SLS.istable(stab)) {
|
|
std::string mname = "unknown";
|
|
std::string sname = "unknown";
|
|
MLS.rawget(mtid, mtab, "TID");
|
|
if (MLS.isstring(mtid)) {
|
|
mname = MLS.ckstring(mtid);
|
|
}
|
|
SLS.rawget(stid, stab, "TID");
|
|
if (SLS.isstring(stid)) {
|
|
sname = SLS.ckstring(stid);
|
|
}
|
|
result.push_back(std::make_pair(mname, sname));
|
|
}
|
|
}
|
|
MLS.result();
|
|
SLS.result();
|
|
std::sort(result.begin(), result.end());
|
|
for (const auto &pair : result) {
|
|
oss << pair.first << "=" << pair.second << ";";
|
|
}
|
|
return oss.str();
|
|
}
|
|
|
|
void World::tangible_set_string(int64_t id, const std::string &path, const std::string &value) {
|
|
lua_State *L = state();
|
|
LuaVar tangibles, tab, subtab;
|
|
LuaStack LS(L, tangibles, tab, subtab);
|
|
|
|
// Fetch the lua side of the tangible.
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
LS.rawget(tab, tangibles, id);
|
|
assert(LS.istable(tab));
|
|
|
|
// Split the path parts into the table names and final part.
|
|
util::StringVec pathparts = util::split(path, '.');
|
|
assert(pathparts.size() >= 1);
|
|
std::string finalpart = pathparts.back();
|
|
pathparts.pop_back();
|
|
|
|
// Create subtables as necessary.
|
|
for (const std::string &subname : pathparts) {
|
|
LS.rawget(subtab, tab, subname);
|
|
if (LS.isnil(subtab)) {
|
|
LS.set(subtab, LuaNewTable);
|
|
LS.rawset(tab, subname, subtab);
|
|
}
|
|
assert(LS.istable(subtab));
|
|
LS.set(tab, subtab);
|
|
}
|
|
|
|
// Set the string value.
|
|
LS.rawset(tab, finalpart, value);
|
|
LS.result();
|
|
assert(stack_is_clear());
|
|
}
|
|
|
|
void World::tangible_copy_global(int64_t id, const std::string &path, const std::string &global) {
|
|
lua_State *L = state();
|
|
LuaVar tangibles, tab, subtab, globtab, value;
|
|
LuaStack LS(L, tangibles, tab, subtab, globtab, value);
|
|
|
|
// Fetch the lua side of the tangible.
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
LS.rawget(tab, tangibles, id);
|
|
assert(LS.istable(tab));
|
|
|
|
// Split the path parts into the table names and final part.
|
|
util::StringVec pathparts = util::split(path, '.');
|
|
assert(pathparts.size() >= 1);
|
|
std::string finalpart = pathparts.back();
|
|
pathparts.pop_back();
|
|
|
|
// Create subtables as necessary.
|
|
for (const std::string &subname : pathparts) {
|
|
LS.rawget(subtab, tab, subname);
|
|
if (LS.isnil(subtab)) {
|
|
LS.set(subtab, LuaNewTable);
|
|
LS.rawset(tab, subname, subtab);
|
|
}
|
|
assert(LS.istable(subtab));
|
|
LS.set(tab, subtab);
|
|
}
|
|
|
|
// Copy the global value.
|
|
LS.getglobaltable(globtab);
|
|
LS.rawget(value, globtab, global);
|
|
LS.rawset(tab, finalpart, value);
|
|
LS.result();
|
|
//assert(stack_is_clear());
|
|
}
|
|
|
|
util::IdVector World::get_near_unsorted(int64_t player_id, float radius, bool exclude_nowhere) const {
|
|
const Tangible *player = tangible_get(player_id);
|
|
if (player == nullptr) {
|
|
return IdVector();
|
|
}
|
|
|
|
// Find out where's the center of the world.
|
|
const AnimStep &aqback = player->anim_queue_.back();
|
|
if (exclude_nowhere && (aqback.plane() == "nowhere")) {
|
|
return IdVector();
|
|
}
|
|
|
|
return plane_map_.scan_radius(aqback.plane(), aqback.xyz().x, aqback.xyz().y, radius, player_id);
|
|
}
|
|
|
|
util::IdVector World::get_near(int64_t player_id, float radius, bool exclude_nowhere) const {
|
|
util::IdVector v = get_near_unsorted(player_id, radius, exclude_nowhere);
|
|
std::sort(v.begin(), v.end());
|
|
return v;
|
|
}
|
|
|
|
World::Redirects World::fetch_redirects() {
|
|
World::Redirects result = std::move(redirects_);
|
|
redirects_.clear();
|
|
return std::move(result);
|
|
}
|
|
|
|
int64_t World::create_login_actor() {
|
|
Tangible *tan = tangible_make(state(), 0, true);
|
|
LuaArg database;
|
|
LuaVar classtab, mt;
|
|
LuaStack LS(state(), database, classtab, mt);
|
|
LS.makeclass(classtab, "login");
|
|
LS.getmetatable(mt, database);
|
|
LS.rawset(mt, "__index", classtab);
|
|
LS.result();
|
|
tan->configure_id_pool_for_actor();
|
|
assert(stack_is_clear());
|
|
return tan->id();
|
|
}
|
|
|
|
void World::update_gui(int64_t actor_id, int64_t place_id, Gui *gui) {
|
|
assert(stack_is_clear());
|
|
gui->clear();
|
|
lua_State *L = state();
|
|
|
|
LuaVar actor, place, ugui, func, tangibles, mt, index;
|
|
LuaStack LS(L, actor, place, ugui, func, tangibles, mt, index);
|
|
|
|
// Get the actor and place.
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
LS.rawget(actor, tangibles, actor_id);
|
|
LS.rawget(place, tangibles, place_id);
|
|
if (!LS.istable(actor) || !LS.istable(place)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
|
|
// Get the interface closure.
|
|
LS.getmetatable(mt, place);
|
|
if (!LS.istable(mt)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
LS.rawget(index, mt, "__index");
|
|
if (!LS.istable(index)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
LS.rawget(func, index, "interface");
|
|
if (!LS.isfunction(func)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
|
|
// Call the interface function.
|
|
lua_pushvalue(L, func.index());
|
|
lua_pushvalue(L, actor.index());
|
|
lua_pushvalue(L, place.index());
|
|
Gui::store_global_pointer(L, gui);
|
|
int status = traceback_pcall(L, 2, 0);
|
|
Gui::store_global_pointer(L, nullptr);
|
|
if (status != 0) {
|
|
gui->clear();
|
|
std::cerr << lua_tostring(L, -1);
|
|
LS.result();
|
|
return;
|
|
}
|
|
|
|
// And we're done.
|
|
LS.result();
|
|
assert(stack_is_clear());
|
|
}
|
|
|
|
void World::invoke(const Invocation &inv) {
|
|
switch (inv.kind()) {
|
|
case Invocation::KIND_PLAN:
|
|
invoke_plan(inv.actor(), inv.place(), inv.action(), inv.data());
|
|
break;
|
|
default:
|
|
// Do nothing. Standard behavior for any invalid command is to
|
|
// simply do nothing at all. Perhaps eventually we may add a flag
|
|
// to the world model to indicate that we've detected an invalid
|
|
// command, to allow us to close the connection to a client that
|
|
// is misbehaving.
|
|
break;
|
|
}
|
|
}
|
|
|
|
void World::invoke_plan(int64_t actor_id, int64_t place_id, const std::string &action, const InvocationData &idata) {
|
|
assert(stack_is_clear());
|
|
|
|
// Validate that the action is legal.
|
|
Gui validation_gui;
|
|
update_gui(actor_id, place_id, &validation_gui);
|
|
if (!validation_gui.has_action(action)) {
|
|
return;
|
|
}
|
|
|
|
// Get the actor and place. Make sure both exist.
|
|
Tangible *tactor = tangible_get(actor_id);
|
|
Tangible *tplace = tangible_get(place_id);
|
|
if ((tactor == nullptr) || (tplace == nullptr)) {
|
|
return;
|
|
}
|
|
|
|
// Get an ID batch for the thread, and take one for the thread itself.
|
|
int64_t id_batch = tactor->id_player_pool_.get_batch();
|
|
int64_t tid = id_batch++;
|
|
|
|
// Set up for Lua manipulation.
|
|
lua_State *L = state();
|
|
LuaVar actor, place, func, tangibles, mt, index, actions, thread, threads, message, invdata;
|
|
LuaStack LS(L, actor, place, func, tangibles, mt, index, actions, thread, threads, message, invdata);
|
|
|
|
// Get the actor and place.
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
LS.rawget(actor, tangibles, actor_id);
|
|
LS.rawget(place, tangibles, place_id);
|
|
if (!LS.istable(actor) || !LS.istable(place)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
|
|
// Get the action closure.
|
|
LS.getmetatable(mt, place);
|
|
if (!LS.istable(mt)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
LS.rawget(index, mt, "__index");
|
|
if (!LS.istable(index)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
LS.rawget(actions, index, "action");
|
|
if (!LS.istable(actions)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
LS.rawget(func, actions, action);
|
|
if (!LS.isfunction(func)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
|
|
// Convert the InvocationData into a lua table.
|
|
LS.newtable(invdata);
|
|
for (const auto &p : idata) {
|
|
LS.rawset(invdata, p.first, p.second);
|
|
}
|
|
|
|
// Create a new thread, set up function and parameters.
|
|
lua_State *CO = LS.newthread(thread);
|
|
lua_pushvalue(L, func.index());
|
|
lua_pushvalue(L, actor.index());
|
|
lua_pushvalue(L, place.index());
|
|
lua_pushvalue(L, invdata.index());
|
|
lua_xmove(L, CO, 4);
|
|
|
|
// Store the thread into place's thread table.
|
|
LS.rawget(threads, mt, "threads");
|
|
if (!LS.istable(threads)) {
|
|
LS.result();
|
|
return;
|
|
}
|
|
LS.rawset(threads, tid, thread);
|
|
LS.result();
|
|
|
|
// Push the thread's ID into the runnable thread queue,
|
|
// then run the thread queue.
|
|
thread_sched_.add(0, tid, place_id);
|
|
run_scheduled_threads(0);
|
|
assert(stack_is_clear());
|
|
}
|
|
|
|
void World::run_scheduled_threads(int64_t clk) {
|
|
assert(stack_is_clear());
|
|
lua_State *L = state();
|
|
LuaVar tangibles, place, mt, threads, thread;
|
|
LuaStack LS(L, tangibles, place, mt, threads, thread);
|
|
LS.rawget(tangibles, LuaRegistry, "tangibles");
|
|
|
|
while (thread_sched_.ready(clk)) {
|
|
SchedEntry sched = thread_sched_.pop();
|
|
LS.rawget(place, tangibles, sched.place_id());
|
|
if (!LS.istable(place)) {
|
|
continue;
|
|
}
|
|
LS.getmetatable(mt, place);
|
|
if (!LS.istable(mt)) {
|
|
continue;
|
|
}
|
|
LS.rawget(threads, mt, "threads");
|
|
if (!LS.istable(threads)) {
|
|
continue;
|
|
}
|
|
LS.rawget(thread, threads, sched.thread_id());
|
|
if (!LS.isthread(thread)) {
|
|
continue;
|
|
}
|
|
|
|
// Resume the coroutine.
|
|
lua_State *CO = LS.ckthread(thread);
|
|
int top = lua_gettop(CO);
|
|
int status = lua_resume(CO, nullptr, (top > 0) ? (top - 1) : 0);
|
|
|
|
// Three possible outcomes: finished, yielded, or errored.
|
|
if (status == LUA_YIELD) {
|
|
// When the wait statement yields, it yields the desired timestamp.
|
|
if ((lua_gettop(CO) != 1) || (!lua_isnumber(CO, 1))) {
|
|
std::cerr << "Thread yielded incorrectly. Killing it." << std::endl;
|
|
LS.rawset(threads, sched.thread_id(), LuaNil);
|
|
} else {
|
|
lua_Number delay = lua_tonumber(CO, 1);
|
|
lua_settop(CO, 0);
|
|
std::cerr << "Thread wait = " << delay << std::endl;
|
|
thread_sched_.add(sched.clock() + int64_t(delay), sched.thread_id(), sched.place_id());
|
|
std::cerr << "Added to schedule." << std::endl;
|
|
}
|
|
} else if (status == LUA_OK) {
|
|
// Successfully ran to completion. Remove from thread table.
|
|
std::cerr << "Thread ran to completion." << std::endl;
|
|
LS.rawset(threads, sched.thread_id(), LuaNil);
|
|
} else {
|
|
// Generated an error. Add a traceback, print, and kill the coroutine.
|
|
traceback_coroutine(CO);
|
|
std::cerr << lua_tostring(CO, -1);
|
|
LS.rawset(threads, sched.thread_id(), LuaNil);
|
|
}
|
|
}
|
|
LS.result();
|
|
assert(stack_is_clear());
|
|
}
|
|
|
|
void World::serialize(StreamBuffer *sb) {
|
|
assert(stack_is_clear());
|
|
assert(redirects_.empty());
|
|
// int64_t wc0 = sb->total_writes();
|
|
lua_snap_.serialize(sb);
|
|
id_global_pool_.serialize(sb);
|
|
thread_sched_.serialize(sb);
|
|
sb->write_uint32(tangibles_.size());
|
|
for (const auto &p : tangibles_) {
|
|
sb->write_int64(p.first);
|
|
p.second->serialize(sb);
|
|
}
|
|
// int64_t wc1 = sb->total_writes();
|
|
// std::cerr << "World serialized to " << wc1-wc0 << " bytes." << std::endl;
|
|
assert(stack_is_clear());
|
|
}
|
|
|
|
void World::deserialize(StreamBuffer *sb) {
|
|
assert(stack_is_clear());
|
|
redirects_.clear();
|
|
lua_snap_.deserialize(sb);
|
|
id_global_pool_.deserialize(sb);
|
|
thread_sched_.deserialize(sb);
|
|
// Mark all tangibles for deletion by setting ID to zero.
|
|
for (const auto &p : tangibles_) {
|
|
p.second->plane_item_.set_id(0);
|
|
}
|
|
// Deserialize tangibles.
|
|
size_t ntan = sb->read_uint32();
|
|
for (size_t i = 0; i < ntan; i++) {
|
|
int64_t id = sb->read_int64();
|
|
std::unique_ptr<Tangible> &t = tangibles_[id];
|
|
if (t == nullptr) {
|
|
t.reset(new Tangible(this, id));
|
|
} else {
|
|
t->plane_item_.set_id(id);
|
|
}
|
|
t->deserialize(sb);
|
|
}
|
|
// Delete tangibles that didn't get deserialized.
|
|
for (auto iter = tangibles_.begin(); iter != tangibles_.end(); ) {
|
|
if (iter->second->plane_item_.id() == 0) {
|
|
tangibles_.erase(iter++);
|
|
} else {
|
|
++iter;
|
|
}
|
|
}
|
|
assert(stack_is_clear());
|
|
}
|
|
|
|
void World::snapshot() {
|
|
snapshot_.clear();
|
|
serialize(&snapshot_);
|
|
}
|
|
|
|
void World::rollback() {
|
|
assert(!snapshot_.at_eof());
|
|
deserialize(&snapshot_);
|
|
}
|
|
|
|
util::IdVector World::get_visible_union(int64_t actor_id, World *master) {
|
|
return util::sort_union_id_vectors(
|
|
master->get_near_unsorted(actor_id, RadiusVisibility, true),
|
|
get_near_unsorted(actor_id, RadiusVisibility, true));
|
|
}
|
|
|
|
int64_t World::patch_actor(StreamBuffer *sb) {
|
|
int64_t actor_id = sb->read_int64();
|
|
Tangible *s_actor = tangible_get(actor_id);
|
|
if (s_actor == nullptr) {
|
|
s_actor = tangible_make(nullptr, actor_id, false);
|
|
s_actor->id_player_pool_.deserialize(sb);
|
|
s_actor->anim_queue_.deserialize(sb);
|
|
} else {
|
|
s_actor->id_player_pool_.patch(sb);
|
|
s_actor->anim_queue_.patch(sb);
|
|
}
|
|
s_actor->update_plane_item();
|
|
return actor_id;
|
|
}
|
|
|
|
void World::diff_actor(int64_t actor_id, World *master, StreamBuffer *xsb) {
|
|
StreamBuffer tsb;
|
|
|
|
// Get the actor in both models. s_actor may be nil.
|
|
const Tangible *s_actor = tangible_get(actor_id);
|
|
const Tangible *m_actor = master->tangible_get(actor_id);
|
|
assert(m_actor != nullptr);
|
|
|
|
// Calculate diffs.
|
|
tsb.write_int64(actor_id);
|
|
if (s_actor == nullptr) {
|
|
m_actor->id_player_pool_.serialize(&tsb);
|
|
m_actor->anim_queue_.serialize(&tsb);
|
|
} else {
|
|
s_actor->id_player_pool_.diff(m_actor->id_player_pool_, &tsb);
|
|
s_actor->anim_queue_.diff(m_actor->anim_queue_, &tsb);
|
|
}
|
|
|
|
// Forward to client, and apply to server-synchronous.
|
|
tsb.copy_into(xsb);
|
|
patch_actor(&tsb);
|
|
assert(tsb.at_eof());
|
|
}
|
|
|
|
void World::patch_visible(StreamBuffer *sb) {
|
|
// Receive create messages.
|
|
int count = sb->read_int32();
|
|
for (int i = 0; i < count; i++) {
|
|
int64_t id = sb->read_int64();
|
|
Tangible *t = tangible_make(state(), id, false);
|
|
t->anim_queue_.deserialize(sb);
|
|
t->update_plane_item();
|
|
}
|
|
|
|
// Receive delete messages
|
|
count = sb->read_int32();
|
|
for (int i = 0; i < count; i++) {
|
|
int64_t id = sb->read_int64();
|
|
tangible_delete(id);
|
|
}
|
|
|
|
// Receive update messages
|
|
count = sb->read_int32();
|
|
for (int i = 0; i < count; i++) {
|
|
int64_t id = sb->read_int64();
|
|
Tangible *t = tangible_get(id);
|
|
assert(t != nullptr);
|
|
t->anim_queue_.patch(sb);
|
|
}
|
|
}
|
|
|
|
void World::diff_visible(const util::IdVector &visible, World *master, StreamBuffer *xsb) {
|
|
StreamBuffer tsb;
|
|
|
|
// Get the specified tangibles in both models.
|
|
// Some tangibles may be missing in the master, some may be missing in the sync.
|
|
TanVector mvis = master->tangible_get_all(visible);
|
|
TanVector svis = tangible_get_all(visible);
|
|
assert(mvis.size() == svis.size());
|
|
|
|
// For each tangible that exists in the master, but not
|
|
// in the synchronous model, send a create message.
|
|
tsb.write_int32(0);
|
|
int count_pos = tsb.total_writes();
|
|
int count = 0;
|
|
for (int i = 0; i < int(svis.size()); i++) {
|
|
const Tangible *mt = mvis[i];
|
|
const Tangible *st = svis[i];
|
|
if ((st == nullptr) && (mt != nullptr)) {
|
|
count += 1;
|
|
tsb.write_int64(mt->id());
|
|
mt->anim_queue_.serialize(&tsb);
|
|
}
|
|
}
|
|
tsb.overwrite_int32(count_pos, count);
|
|
|
|
// For each tangible present in the synchronous model that doesn't
|
|
// exist in the master model, send command to delete it.
|
|
tsb.write_int32(0);
|
|
count_pos = tsb.total_writes();
|
|
count = 0;
|
|
for (int i = 0; i < int(svis.size()); i++) {
|
|
const Tangible *mt = mvis[i];
|
|
const Tangible *st = svis[i];
|
|
if ((mt == nullptr) && (st != nullptr)) {
|
|
count += 1;
|
|
tsb.write_int64(st->id());
|
|
}
|
|
}
|
|
tsb.overwrite_int32(count_pos, count);
|
|
|
|
// For each tangible present in both models, compare
|
|
// the animation queues.
|
|
tsb.write_int32(0);
|
|
count_pos = tsb.total_writes();
|
|
count = 0;
|
|
for (int i = 0; i < int(svis.size()); i++) {
|
|
const Tangible *mt = mvis[i];
|
|
const Tangible *st = svis[i];
|
|
if ((mt != nullptr) && (st != nullptr)) {
|
|
if (st->anim_queue_.need_patch(mt->anim_queue_)) {
|
|
count++;
|
|
tsb.write_int64(st->id());
|
|
st->anim_queue_.diff(mt->anim_queue_, &tsb);
|
|
}
|
|
}
|
|
}
|
|
tsb.overwrite_int32(count_pos, count);
|
|
|
|
// Forward to client, and apply to server-synchronous.
|
|
tsb.copy_into(xsb);
|
|
patch_visible(&tsb);
|
|
assert(tsb.at_eof());
|
|
|
|
// Copy the version number from master animqueue to synch animqueue.
|
|
for (int i = 0; i < int(mvis.size()); i++) {
|
|
const Tangible *m_tan = mvis[i];
|
|
if (m_tan != nullptr) {
|
|
Tangible *s_tan = const_cast<Tangible *>(svis[i]);
|
|
if (s_tan == nullptr) {
|
|
s_tan = tangible_get(m_tan->id());
|
|
assert(s_tan != nullptr);
|
|
}
|
|
s_tan->anim_queue_.update_version(m_tan->anim_queue_);
|
|
}
|
|
}
|
|
}
|
|
|
|
void World::patch_luatabs(StreamBuffer *sb) {
|
|
int64_t actor_id = sb->read_int64();
|
|
util::HashValue closehash = sb->read_hashvalue();
|
|
int ncreate = sb->read_int32();
|
|
util::IdVector closetans = get_near(actor_id, RadiusClose, true);
|
|
assert(closehash == util::hash_id_vector(closetans));
|
|
number_lua_tables(closetans);
|
|
create_new_tables(ncreate);
|
|
patch_tangible_databases(sb);
|
|
patch_numbered_tables(sb);
|
|
unnumber_lua_tables();
|
|
}
|
|
|
|
void World::diff_luatabs(int64_t actor_id, World *master, StreamBuffer *xsb) {
|
|
StreamBuffer tsb;
|
|
|
|
// Calculate the set of close tangibles.
|
|
util::IdVector closetans = master->get_near(actor_id, RadiusClose, true);
|
|
assert(get_near(actor_id, RadiusClose, true) == closetans);
|
|
util::HashValue closehash = util::hash_id_vector(closetans);
|
|
|
|
// Number and pair tables in the synchronous and master model.
|
|
number_lua_tables(closetans);
|
|
pair_lua_tables(closetans, master->state());
|
|
int ncreate = number_remaining_tables(closetans, master->state());
|
|
create_new_tables(ncreate);
|
|
|
|
// Difference transmit.
|
|
tsb.write_int64(actor_id);
|
|
tsb.write_hashvalue(closehash);
|
|
tsb.write_int32(ncreate);
|
|
diff_tangible_databases(closetans, master->state(), &tsb);
|
|
diff_numbered_tables(master->state(), &tsb);
|
|
|
|
// Patch
|
|
tsb.copy_into(xsb);
|
|
assert(tsb.read_int64() == actor_id);
|
|
assert(tsb.read_hashvalue() == closehash);
|
|
assert(tsb.read_int32() == ncreate);
|
|
patch_tangible_databases(&tsb);
|
|
patch_numbered_tables(&tsb);
|
|
unnumber_lua_tables();
|
|
assert(tsb.at_eof());
|
|
|
|
// Unnumber tables in both models.
|
|
unnumber_lua_tables();
|
|
master->unnumber_lua_tables();
|
|
}
|
|
|
|
void World::diff_everything(int64_t actor_id, World *master, StreamBuffer *sb) {
|
|
diff_actor(actor_id, master, sb);
|
|
util::IdVector visible = get_visible_union(actor_id, master);
|
|
diff_visible(visible, master, sb);
|
|
diff_luatabs(actor_id, master, sb);
|
|
}
|
|
|
|
void World::patch_everything(StreamBuffer *sb) {
|
|
patch_actor(sb);
|
|
patch_visible(sb);
|
|
patch_luatabs(sb);
|
|
}
|
|
|
|
|
|
static bool worlds_identical(const std::unique_ptr<World> &w1, const std::unique_ptr<World> &w2) {
|
|
StreamBuffer sbw1, sbw2;
|
|
w1->serialize(&sbw1);
|
|
w2->serialize(&sbw2);
|
|
return sbw1.contents_equal(&sbw2);
|
|
}
|
|
|
|
LuaDefine(unittests_worldpairtab, "c") {
|
|
std::unique_ptr<World> m(new World(util::WORLD_TYPE_MASTER));
|
|
std::unique_ptr<World> ss(new World(util::WORLD_TYPE_S_SYNC));
|
|
StreamBuffer sb;
|
|
int ncreate;
|
|
|
|
// Create a master model containing some general tables, and
|
|
// some specialty tables (not numberable).
|
|
m->tangible_make(0, 123, false);
|
|
m->tangible_set_string(123, "inventory.TID", "inventory");
|
|
m->tangible_set_string(123, "transactions.TID", "transactions");
|
|
m->tangible_set_string(123, "skills.TID", "skills");
|
|
m->tangible_set_string(123, "skills.leet.TID", "skills.leet");
|
|
m->tangible_set_string(123, "inventory.cplx.TID", "inventory.cplx");
|
|
m->tangible_copy_global(123, "math", "math");
|
|
m->tangible_copy_global(123, "gltab", "_G");
|
|
|
|
// Now we're going to create a synchronous model that's similar to, but not
|
|
// exactly the same as that master model.
|
|
ss->tangible_make(0, 123, false);
|
|
ss->tangible_set_string(123, "inventory.TID", "inventory");
|
|
ss->tangible_set_string(123, "skills.TID", "skills");
|
|
ss->tangible_set_string(123, "skills.crap.TID", "skills.crap");
|
|
ss->tangible_set_string(123, "skills.leet.TID", "skills.leet");
|
|
ss->tangible_set_string(123, "math.TID", "math");
|
|
ss->tangible_set_string(123, "gltab.TID", "gltab");
|
|
|
|
// Now we're going to test the numbering and pairing of tables.
|
|
// Only these tables should pair: inventory, skills, and skills.leet
|
|
ss->number_lua_tables(util::id_vector_create(123));
|
|
LuaAssertStrEq(L, ss->numbered_tables_debug_string(),
|
|
"gltab;inventory;math;skills;skills.crap;skills.leet;");
|
|
ss->pair_lua_tables(util::id_vector_create(123), m->state());
|
|
LuaAssertStrEq(L, ss->paired_tables_debug_string(m->state()),
|
|
"inventory=inventory;skills=skills;skills.leet=skills.leet;");
|
|
|
|
// Test the creation of new tables during difference transmission.
|
|
// The master world model above has two tables that couldn't be paired
|
|
// to the client: inventory.cplx, and transactions. These two tables
|
|
// should be paired to new, created tables.
|
|
ncreate = m->number_remaining_tables(util::id_vector_create(123), m->state());
|
|
LuaAssert(L, ncreate == 2);
|
|
ss->create_new_tables(ncreate);
|
|
LuaAssertStrEq(L, ss->paired_tables_debug_string(m->state()),
|
|
"inventory=inventory;inventory.cplx=unknown;skills=skills;skills.leet=skills.leet;transactions=unknown;");
|
|
return 0;
|
|
}
|
|
|
|
LuaDefine(unittests_worldanimdiff, "c") {
|
|
std::unique_ptr<World> m(new World(util::WORLD_TYPE_MASTER));
|
|
std::unique_ptr<World> ss(new World(util::WORLD_TYPE_S_SYNC));
|
|
std::unique_ptr<World> cs(new World(util::WORLD_TYPE_C_SYNC));
|
|
StreamBuffer sb;
|
|
util::IdVector ids = util::id_vector_create(123, 345);
|
|
|
|
// Create some tangibles, and add some animations.
|
|
m->tangible_make(0, 123, false);
|
|
m->tangible_make(0, 345, false);
|
|
m->tangible_walkto(123, 770, 3, 4);
|
|
m->tangible_walkto(345, 771, 6, 2);
|
|
LuaAssertStrEq(L, m->tangible_ids_debug_string(), "123,345");
|
|
LuaAssertStrEq(L, m->tangible_anim_debug_string(123),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=770 action=walkto x=3 y=4; ");
|
|
LuaAssertStrEq(L, m->tangible_anim_debug_string(345),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=771 action=walkto x=6 y=2; ");
|
|
|
|
// Now difference transmit all that to the client.
|
|
ss->diff_visible(ids, m.get(), &sb);
|
|
cs->patch_visible(&sb);
|
|
LuaAssertStrEq(L, ss->tangible_ids_debug_string(), "123,345");
|
|
LuaAssertStrEq(L, ss->tangible_anim_debug_string(123),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=770 action=walkto x=3 y=4; ");
|
|
LuaAssertStrEq(L, ss->tangible_anim_debug_string(345),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=771 action=walkto x=6 y=2; ");
|
|
LuaAssert(L, worlds_identical(ss, cs));
|
|
|
|
// Now add some more animation records to the master.
|
|
m->tangible_walkto(123, 772, 7, 3);
|
|
m->tangible_walkto(345, 773, 2, 5);
|
|
LuaAssertStrEq(L, m->tangible_anim_debug_string(123),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=770 action=walkto x=3 y=4; "
|
|
"id=772 action=walkto x=7 y=3; ");
|
|
LuaAssertStrEq(L, m->tangible_anim_debug_string(345),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=771 action=walkto x=6 y=2; "
|
|
"id=773 action=walkto x=2 y=5; ");
|
|
|
|
// Now difference transmit all that to the client again.
|
|
ss->diff_visible(ids, m.get(), &sb);
|
|
cs->patch_visible(&sb);
|
|
LuaAssertStrEq(L, ss->tangible_anim_debug_string(123),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=770 action=walkto x=3 y=4; "
|
|
"id=772 action=walkto x=7 y=3; ");
|
|
LuaAssertStrEq(L, ss->tangible_anim_debug_string(345),
|
|
"id=0 action= plane= x=0 y=0 z=0 facing=0 graphic=; "
|
|
"id=771 action=walkto x=6 y=2; "
|
|
"id=773 action=walkto x=2 y=5; ");
|
|
LuaAssert(L, worlds_identical(ss, cs));
|
|
|
|
// Delete tangible 345.
|
|
m->tangible_delete(345);
|
|
LuaAssertStrEq(L, m->tangible_ids_debug_string(), "123");
|
|
|
|
// And difference transmit
|
|
ss->diff_visible(ids, m.get(), &sb);
|
|
cs->patch_visible(&sb);
|
|
LuaAssertStrEq(L, ss->tangible_ids_debug_string(), "123");
|
|
LuaAssert(L, worlds_identical(ss, cs));
|
|
|
|
return 0;
|
|
}
|