mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-26 22:59:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

new `coroutine.status' function

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2002-11-26 06:45:36 -02:00
parent 5a228bb1d8
commit 8954bdc706
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lbaselib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.109 2002/11/22 18:01:46 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.110 2002/11/25 17:33:33 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -587,11 +587,28 @@ static int luaB_yield (lua_State *L) {
return lua_yield(L, lua_gettop(L)); return lua_yield(L, lua_gettop(L));
} }
static int luaB_costatus (lua_State *L) {
lua_State *co = lua_tothread(L, 1);
luaL_argcheck(L, co, 1, "coroutine expected");
if (L == co) lua_pushliteral(L, "running");
else {
lua_Debug ar;
if (lua_getstack(co, 0, &ar) == 0 && lua_gettop(co) == 0)
lua_pushliteral(L, "dead");
else
lua_pushliteral(L, "suspended");
}
return 1;
}
static const luaL_reg co_funcs[] = { static const luaL_reg co_funcs[] = {
{"create", luaB_cocreate}, {"create", luaB_cocreate},
{"wrap", luaB_cowrap}, {"wrap", luaB_cowrap},
{"resume", luaB_coresume}, {"resume", luaB_coresume},
{"yield", luaB_yield}, {"yield", luaB_yield},
{"status", luaB_costatus},
{NULL, NULL} {NULL, NULL}
}; };