diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2010-06-21 13:30:12 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2010-06-21 13:30:12 -0300 |
commit | ca3865cf1b1e0195de9d1c71e48305146798cb95 (patch) | |
tree | 7a2e39ad9fff66956365b69c45b2e967080afceb /ldblib.c | |
parent | bef5980744d260246df81a5cf824c43b9b8080f8 (diff) | |
download | lua-github-ca3865cf1b1e0195de9d1c71e48305146798cb95.tar.gz |
'getlocal' gets information about parameters of Lua functions
Diffstat (limited to 'ldblib.c')
-rw-r--r-- | ldblib.c | 32 |
1 files changed, 20 insertions, 12 deletions
@@ -1,5 +1,5 @@ /* -** $Id: ldblib.c,v 1.120 2010/02/18 19:18:41 roberto Exp roberto $ +** $Id: ldblib.c,v 1.121 2010/03/26 20:58:11 roberto Exp roberto $ ** Interface from Lua to its debug API ** See Copyright Notice in lua.h */ @@ -157,19 +157,27 @@ static int db_getlocal (lua_State *L) { lua_State *L1 = getthread(L, &arg); lua_Debug ar; const char *name; - if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ - return luaL_argerror(L, arg+1, "level out of range"); - name = lua_getlocal(L1, &ar, luaL_checkint(L, arg+2)); - if (name) { - lua_xmove(L1, L, 1); - lua_pushstring(L, name); - lua_pushvalue(L, -2); - return 2; - } - else { - lua_pushnil(L); + int nvar = luaL_checkint(L, arg+2); /* local-variable index */ + if (lua_isfunction(L, arg + 1)) { /* function argument? */ + lua_pushvalue(L, arg + 1); /* push function */ + lua_pushstring(L, lua_getlocal(L, NULL, nvar)); /* push local name */ return 1; } + else { /* stack-level argument */ + if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ + return luaL_argerror(L, arg+1, "level out of range"); + name = lua_getlocal(L1, &ar, nvar); + if (name) { + lua_xmove(L1, L, 1); /* push local value */ + lua_pushstring(L, name); /* push name */ + lua_pushvalue(L, -2); /* re-order */ + return 2; + } + else { + lua_pushnil(L); /* no name (nor value) */ + return 1; + } + } } |