Partial lua interpreter.

1 files changed, 33 insertions, 0 deletions

diff --git a/crawl-ref/source/luaterp.cc b/crawl-ref/source/luaterp.cc
new file mode 100644
index 0000000000..a2c4ec8b42
--- /dev/null
+++ b/crawl-ref/source/luaterp.cc
@@ -0,0 +1,33 @@
+#include "AppHdr.h"
+
+#include "luaterp.h"
+
+#include "cio.h"
+#include "clua.h"
+#include "dlua.h"
+
+void _debug_call_lua(lua_State *ls)
+{
+    char specs[80];
+    while (true)
+    {
+        mpr("> ", MSGCH_PROMPT);
+        get_input_line(specs, sizeof(specs));
+        std::string s = specs;
+
+        if (s.empty())
+            return;
+
+        int err = 0;
+        if (err = luaL_dostring(ls, s.c_str()))
+        {
+            mprf(MSGCH_ERROR, "lua error: %d", err);
+        }
+    }
+}
+
+void debug_call_dlua()
+{
+    _debug_call_lua(dlua);
+}
+