Combining two repos

luprex/core/cpp/textgame.cpp

@@ -0,0 +1,173 @@
+
+#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 "viewer.hpp"
+#include "traceback.hpp"
+#include "textgame.hpp"
+#include "luaconsole.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 = viewer_.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) {
+            lua_getglobal(L, "pprint");
+            if (lua_isnil(L, -1)) {
+                lua_pop(L, 1);
+                lua_getglobal(L, "print");
+            }
+            lua_insert(L, 1);
+            if (lua_pcall(L, lua_gettop(L) - 1, 0, 0) != 0) {
+                l_message(
+                    lua_pushfstring(L, "error calling 'print' (%s)",
+                                    lua_tostring(L, -1)));
+            }
+        }
+    } 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 : viewer_.get_near()) {
+        const Tangible *tan = viewer_.tangible_get(id);
+        const AnimQueue &aq = tan->anim_queue_;
+        std::cerr << id << ": " << aq.get_graphic() << " " << aq.get_plane() << " " << aq.get_xyz() << std::endl;
+    }
+}
+
+void TextGame::do_menu_command(const StringVec &cmd) {
+    int64_t id;
+    if (cmd.size() == 1) {
+        id = 1;
+    } else if (cmd.size() == 2) {
+        id = util::strtoint(cmd[1], -1);
+    } else {
+        std::cerr << "m command (menu) expects a tangible ID or defaults to 1" << std::endl;
+        return;
+    }
+    gui_id_ = id;
+    viewer_.update_gui(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() == 2) {
+        index = util::strtoint(cmd[1], -1);
+    } else {
+        std::cerr << "c command (choose) expects a menu line number" << std::endl;
+        return;
+    }
+    std::cerr << "Choose command (index " << index << ") not implemented yet." << std::endl;
+}
+
+void TextGame::do_snapshot_command(const StringVec &cmd) {
+    if (cmd.size() != 1) {
+        std::cerr << "s command (snapshot) takes no arguments" << std::endl;
+        return;
+    }
+    viewer_.snapshot();
+}
+
+void TextGame::do_rollback_command(const StringVec &cmd) {
+    if (cmd.size() != 1) {
+        std::cerr << "r command (rollback) takes no arguments" << std::endl;
+        return;
+    }
+    viewer_.rollback();
+}
+
+void TextGame::do_quit_command(const StringVec &cmd) {
+    if (cmd.size() != 1) {
+        std::cerr << "q command (quit) takes no arguments" << std::endl;
+        return;
+    }
+    exit(0);
+}
+
+void TextGame::do_command(const StringVec &words) {
+    switch (words[0][0]) {
+    case 'v': do_view_command(words); break;
+    case 'm': do_menu_command(words); break;
+    case 'c': do_choose_command(words); break;
+    case 'q': do_quit_command(words); break;
+    case 's': do_snapshot_command(words); break;
+    case 'r': do_rollback_command(words); break;
+    default: 
+        std::cerr << "Unknown command: " << words[0] << std::endl;
+    }
+}
+
+void TextGame::run()
+{
+    console_.clear();
+    while (true) {
+        console_.add_stdin();
+        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;
+        }
+    }
+}
+