nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no more lua_[gs]etstr

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-02-07 15:25:36 -02:00
parent 53aaee6ee6
commit 86a4de256e
5 changed files with 48 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lbaselib.c
View File

@@ -20,8 +20,9 @@
static void aux_setn (lua_State *L, int t, int n) {
lua_pushliteral(L, "n");
lua_pushnumber(L, n);
lua_setstr(L, t, "n");
lua_rawset(L, t);
}
@@ -444,7 +445,8 @@ static int luaB_coroutine (lua_State *L) {
}
lua_cobegin(NL, n-1);
lua_newuserdatabox(L, NL);
lua_getstr(L, LUA_REGISTRYINDEX, "Coroutine");
lua_pushliteral(L, "Coroutine");
lua_rawget(L, LUA_REGISTRYINDEX);
lua_setmetatable(L, -2);
lua_pushcclosure(L, luaB_resume, 1);
return 1;
@@ -700,10 +702,12 @@ LUALIB_API int lua_baselibopen (lua_State *L) {
lua_pushcclosure(L, luaB_require, 1);
lua_setglobal(L, "require");
/* create metatable for coroutines */
lua_pushliteral(L, "Coroutine");
lua_newtable(L);
lua_pushliteral(L, "gc");
lua_pushcfunction(L, gc_coroutine);
lua_setstr(L, -2, "gc");
lua_setstr(L, LUA_REGISTRYINDEX, "Coroutine");
lua_rawset(L, -3);
lua_rawset(L, LUA_REGISTRYINDEX);
return 0;
}