updated for version 7.3.317

Problem:    Calling debug.debug() in Lua may cause Vim to hang.
Solution:   Add a better debug method. (Rob Hoelz, Luis Carvalho)

diff --git a/src/if_lua.c b/src/if_lua.c
index d3c6a4220112423b7cb904f79c78d25ef45b5211..5e669045c04715c80fa6ce51e0368b70afb36211 100644 (file)
--- a/src/if_lua.c
+++ b/src/if_lua.c
@@ -100,6 +100,7 @@ static const char LUAVIM_FREE[] = "luaV_free";
 #define lua_setfield dll_lua_setfield
 #define lua_rawset dll_lua_rawset
 #define lua_rawseti dll_lua_rawseti
+#define lua_remove dll_lua_remove
 #define lua_setmetatable dll_lua_setmetatable
 #define lua_call dll_lua_call
 #define lua_pcall dll_lua_pcall
@@ -161,6 +162,7 @@ int (*dll_lua_getmetatable) (lua_State *L, int objindex);
 void (*dll_lua_setfield) (lua_State *L, int idx, const char *k);
 void (*dll_lua_rawset) (lua_State *L, int idx);
 void (*dll_lua_rawseti) (lua_State *L, int idx, int n);
+void (*dll_lua_remove) (lua_State *L, int idx);
 int (*dll_lua_setmetatable) (lua_State *L, int objindex);
 void (*dll_lua_call) (lua_State *L, int nargs, int nresults);
 int (*dll_lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc);
@@ -229,6 +231,7 @@ static const luaV_Reg luaV_dll[] = {
     {"lua_setfield", (luaV_function) &dll_lua_setfield},
     {"lua_rawset", (luaV_function) &dll_lua_rawset},
     {"lua_rawseti", (luaV_function) &dll_lua_rawseti},
+    {"lua_remove", (luaV_function) &dll_lua_remove},
     {"lua_setmetatable", (luaV_function) &dll_lua_setmetatable},
     {"lua_call", (luaV_function) &dll_lua_call},
     {"lua_pcall", (luaV_function) &dll_lua_pcall},
@@ -923,6 +926,31 @@ luaV_print(lua_State *L)
     return 0;
 }
 
+    static int
+luaV_debug(lua_State *L)
+{
+    lua_settop(L, 0);
+    lua_getglobal(L, "vim");
+    lua_getfield(L, -1, "eval");
+    lua_remove(L, -2); /* vim.eval at position 1 */
+    for (;;)
+    {
+       const char *input;
+       size_t l;
+       lua_pushvalue(L, 1); /* vim.eval */
+       lua_pushliteral(L, "input('lua_debug> ')");
+       lua_call(L, 1, 1); /* return string */
+       input = lua_tolstring(L, -1, &l);
+       if (l == 0 || strcmp(input, "cont") == 0)
+           return 0;
+       msg_putchar('\n'); /* avoid outputting on input line */
+       if (luaL_loadbuffer(L, input, l, "=(debug command)")
+               || lua_pcall(L, 0, 0, 0))
+           luaV_emsg(L);
+       lua_settop(L, 1); /* remove eventual returns, but keep vim.eval */
+    }
+}
+
     static int
 luaV_command(lua_State *L)
 {
@@ -1082,6 +1110,11 @@ luaopen_vim(lua_State *L)
     /* print */
     lua_pushcfunction(L, luaV_print);
     lua_setglobal(L, "print");
+    /* debug.debug */
+    lua_getglobal(L, "debug");
+    lua_pushcfunction(L, luaV_debug);
+    lua_setfield(L, -2, "debug");
+    lua_pop(L, 1);
     /* free */
     lua_pushlightuserdata(L, (void *) LUAVIM_FREE);
     lua_pushcfunction(L, luaV_free);

diff --git a/src/version.c b/src/version.c
index d67e8d845fc741d88db8200ecee40cc27ac62001..35ed103da0a4934fde68b7ac9a1f3611c9a6a980 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -709,6 +709,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    317,
 /**/
     316,
 /**/