integration/luprex/core/cpp/textgame.cpp

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <signal.h>
#include <vector>
#include <string>
#include <iostream>
#include "luastack.hpp"
#include "util.hpp"
#include "gui.hpp"
#include "invocation.hpp"
#include "world.hpp"
#include "traceback.hpp"
#include "textgame.hpp"
#include "luaconsole.hpp"
#include "print.hpp"

// Add another error status.

static lua_State *globalL = NULL;


static void lstop(lua_State *L, lua_Debug *ar)
{
    (void)ar; /* unused arg. */
    lua_sethook(L, NULL, 0, 0);
    /* Avoid luaL_error -- a C hook doesn't add an extra frame. */
    luaL_where(L, 0);
    lua_pushfstring(L, "%sinterrupted!", lua_tostring(L, -1));
    lua_error(L);
}

static void laction(int i)
{
    signal(i, SIG_DFL); /* if another SIGINT happens before lstop,
			 terminate process (default action) */
    lua_sethook(globalL, lstop, LUA_MASKCALL | LUA_MASKRET | LUA_MASKCOUNT, 1);
}

static void l_message(const char *msg)
{
    fputs(msg, stderr);
    fputc('\n', stderr);
    fflush(stderr);
}

void TextGame::do_lua(const std::string &exp) {
    lua_State *L = world_->state();
    int status = luaL_loadbuffer(L, exp.c_str(), exp.size(), "=stdin");
    assert(status == LUA_OK);
    globalL = L;
    signal(SIGINT, laction);
    status = traceback_pcall(L, 0, LUA_MULTRET);
    signal(SIGINT, SIG_DFL);
    if (status == LUA_OK) {
        if (lua_gettop(L) > 0) {
            lfn_pprint_pprint(L);
            lua_settop(L, 0);
        }
    } else {
        const char *msg = lua_tostring(L, -1);
        if (msg == NULL) {
            msg = "(error object is not a string)";
        }
        l_message(msg);
        lua_pop(L, 1);
        lua_gc(L, LUA_GCCOLLECT, 0);
    }
}

void TextGame::do_view_command(const StringVec &cmd) {
    if (cmd.size() != 1) {
        std::cerr << "v command (view) takes no arguments" << std::endl;
        return;
    }
    for (int64_t id : world_->get_near(actor_id_, 100, true)) {
        const Tangible *tan = world_->tangible_get(id);
        const AnimStep &aqback = tan->anim_queue_.back();
        std::cerr << id << ": " << aqback.graphic() << " " << aqback.plane() << " " << aqback.xyz().debug_string() << std::endl;
    }
}

void TextGame::do_menu_command(const StringVec &cmd) {
    int64_t id;
    if (cmd.size() == 1) {
        id = actor_id_;
    } else if (cmd.size() == 2) {
        id = util::strtoint(cmd[1], -1);
    } else {
        std::cerr << "m command (menu) expects a tangible ID or defaults to actor_id" << std::endl;
        return;
    }
    gui_place_ = id;
    world_->update_gui(actor_id_, id, &gui_);
    int index = 0;
    for (const GuiElt &elt : gui_.elts()) {
        std::cerr << index << " " << elt.label() << std::endl;
        index += 1;
    }
}

void TextGame::do_choose_command(const StringVec &cmd) {
    int64_t index;
    if (cmd.size() == 1) {
        index = util::strtoint(cmd[0], -1);
    } else {
        std::cerr << "c command (choose) expects a menu line number" << std::endl;
        return;
    }
    const Gui::EltVec &elts = gui_.elts();
    if ((index < 0) || (index >= int(elts.size()))) {
        std::cerr << "No menu item #" << index << std::endl;
        return;
    }
    std::string action = elts[index].action();
    std::cerr << "Invoking plan: " << action << std::endl;
    InvocationData dummyresult;
    dummyresult["flavor"] = "chocolate";
    dummyresult["color"] = "blue";
    Invocation inv(Invocation::KIND_PLAN, actor_id_, gui_place_, action, dummyresult);
    world_->invoke(inv);
}

void TextGame::do_snapshot_command(const StringVec &cmd) {
    if (cmd.size() != 1) {
        std::cerr << "s command (snapshot) takes no arguments" << std::endl;
        return;
    }
    world_->snapshot();
}

void TextGame::do_rollback_command(const StringVec &cmd) {
    if (cmd.size() != 1) {
        std::cerr << "r command (rollback) takes no arguments" << std::endl;
        return;
    }
    world_->rollback();
}

void TextGame::do_quit_command(const StringVec &cmd) {
    if (cmd.size() != 1) {
        std::cerr << "q command (quit) takes no arguments" << std::endl;
        return;
    }
    actor_id_ = 0;
    stop_driver();
}

void TextGame::do_command(const StringVec &words) {
    if (words[0] == "v") do_view_command(words);
    else if (words[0] == "m") do_menu_command(words);
    else if (words[0] == "q") do_quit_command(words);
    else if (words[0] == "s") do_snapshot_command(words);
    else if (words[0] == "r") do_rollback_command(words);
    else if (util::validinteger(words[0])) do_choose_command(words);
    else {
        std::cerr << "Unknown command: " << words[0] << std::endl;
    }
}

void TextGame::check_redirects() {
    World::Redirects redir = world_->fetch_redirects();
    for (const auto &p : redir) {
        if (p.first == actor_id_) {
            actor_id_ = p.second;
            std::cerr << "Login actor ID: " << actor_id_ << std::endl;
            gui_.clear();
        }
    }
}

void TextGame::init()
{
    world_.reset(new World(util::WORLD_TYPE_STANDALONE));
    std::unique_ptr<util::LuaSource> lsource = get_lua_source();
    world_->update_source(*lsource);
    world_->run_unittests();
    actor_id_ = world_->create_login_actor();
    std::cerr << "Login actor ID: " << actor_id_ << std::endl;
    console_.clear();
}

void TextGame::update() {
    check_redirects();
    if (actor_id_ == 0) {
        stop_driver();
        return;
    }
    // Process lines from stdin.
    while (true) {
        std::string line = get_stdio_channel()->in()->readline();
        if (line == "") break;
        console_.add(line);
        int action = console_.action();
        if (action == LuaConsole::DO_LUA) {
            do_lua(console_.lua_expression());
        } else if (action == LuaConsole::DO_COMMAND) {
            do_command(console_.words());
        } else if (action == LuaConsole::DO_SYNTAX) {
            std::cerr << console_.syntax() << std::endl;
        }
    }
    // Process lua source if available.
    std::unique_ptr<util::LuaSource> source = get_lua_source();
    if (source != nullptr) world_->update_source(*source);
}