lua

commit a21c89ddc8b91c9fd4888577f7a6c60c4f640795
parent 49b88b1c39fca21f1f55e462e0f549b8187f89d6
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 15 Jun 2009 16:51:07 -0300

new API function 'lua_mainthread'

Diffstat:
M
lapi.c
 | 
7
++++++-
M
ltests.c
 | 
4
+++-
M
lua.h
 | 
4
+++-

3 files changed, 12 insertions(+), 3 deletions(-)
diff --git a/lapi.c b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 2.76 2009/04/17 22:00:01 roberto Exp roberto $
+** $Id: lapi.c,v 2.78 2009/06/01 19:09:26 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -99,6 +99,11 @@ LUA_API int lua_checkstack (lua_State *L, int size) {
 }
 
 
+LUA_API lua_State *lua_mainthread (lua_State *L) {
+  return G(L)->mainthread;
+}
+
+
 LUA_API void lua_xmove (lua_State *from, lua_State *to, int n) {
   int i;
   if (from == to) return;
diff --git a/ltests.c b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 2.63 2009/06/01 19:09:26 roberto Exp roberto $
+** $Id: ltests.c,v 2.64 2009/06/10 16:57:53 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -698,6 +698,8 @@ static int doonnewstack (lua_State *L) {
   size_t l;
   const char *s = luaL_checklstring(L, 1, &l);
   int status = luaL_loadbuffer(L1, s, l, s);
+  lua_State *ML = lua_mainthread(L1);
+  lua_assert(L1 != L && ML != L1 && lua_mainthread(L) == ML);
   if (status == LUA_OK)
     status = lua_pcall(L1, 0, 0, 0);
   lua_pushinteger(L, status);
diff --git a/lua.h b/lua.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lua.h,v 1.236 2009/04/17 14:28:06 roberto Exp roberto $
+** $Id: lua.h,v 1.237 2009/05/21 20:06:11 roberto Exp roberto $
 ** Lua - An Extensible Extension Language
 ** Lua.org, PUC-Rio, Brazil (http://www.lua.org)
 ** See Copyright Notice at the end of this file
@@ -113,6 +113,8 @@ LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud);
 LUA_API void       (lua_close) (lua_State *L);
 LUA_API lua_State *(lua_newthread) (lua_State *L);
 
+LUA_API lua_State *(lua_mainthread) (lua_State *L);
+
 LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf);