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

any Lua closure has a table of globals (not only active functions)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-08-06 15:54:18 -03:00
parent 2e38c6ae5a
commit 4664f2e927
3 changed files with 38 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
lapi.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lapi.c,v 1.207 2002/08/06 15:32:22 roberto Exp roberto $
** $Id: lapi.c,v 1.208 2002/08/06 17:06:56 roberto Exp roberto $
** Lua API
** See Copyright Notice in lua.h
*/
@@ -506,24 +506,11 @@ LUA_API int lua_getmetatable (lua_State *L, int objindex) {
}
static LClosure *getfunc (lua_State *L, int level) {
CallInfo *ci;
TObject *f;
if (L->ci - L->base_ci < level) ci = L->base_ci;
else ci = L->ci - level;
f = ci->base - 1;
if (isLfunction(f))
return &clvalue(f)->l;
else
return NULL;
}
LUA_API void lua_getglobals (lua_State *L, int level) {
LClosure *f;
LUA_API void lua_getglobals (lua_State *L, int index) {
StkId o;
lua_lock(L);
f = getfunc(L, level);
setobj(L->top, (f ? &f->g : gt(L)));
o = luaA_index(L, index);
setobj(L->top, isLfunction(o) ? &clvalue(o)->l.g : gt(L));
api_incr_top(L);
lua_unlock(L);
}
@@ -608,16 +595,20 @@ LUA_API int lua_setmetatable (lua_State *L, int objindex) {
}
LUA_API int lua_setglobals (lua_State *L, int level) {
LClosure *f;
LUA_API int lua_setglobals (lua_State *L, int index) {
StkId o;
int res = 0;
lua_lock(L);
api_checknelems(L, 1);
f = getfunc(L, level);
o = luaA_index(L, index);
L->top--;
api_check(L, ttistable(L->top));
if (f) f->g = *(L->top);
if (isLfunction(o)) {
res = 1;
clvalue(o)->l.g = *(L->top);
}
lua_unlock(L);
return (f != NULL);
return res;
}