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

new function "lua_nups" (number of upvalues).

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1998-09-07 15:59:59 -03:00
parent b04294d3d8
commit b1450721be
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lapi.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.26 1998/07/12 16:16:02 roberto Exp roberto $ ** $Id: lapi.c,v 1.27 1998/08/21 17:43:44 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -452,6 +452,12 @@ lua_Function lua_stackedfunction (int level)
} }
int lua_nups (lua_Function func) {
TObject *o = luaA_Address(func);
return (!o || normalized_type(o) != LUA_T_CLOSURE) ? 0 : o->value.cl->nelems;
}
int lua_currentline (lua_Function func) int lua_currentline (lua_Function func)
{ {
TObject *f = Address(func); TObject *f = Address(func);

3
luadebug.h
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: luadebug.h,v 1.1 1997/09/16 19:25:59 roberto Exp roberto $ ** $Id: luadebug.h,v 1.2 1998/06/19 16:14:09 roberto Exp roberto $
** Debugging API ** Debugging API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -24,6 +24,7 @@ char *lua_getobjname (lua_Object o, char **name);
lua_Object lua_getlocal (lua_Function func, int local_number, char **name); lua_Object lua_getlocal (lua_Function func, int local_number, char **name);
int lua_setlocal (lua_Function func, int local_number); int lua_setlocal (lua_Function func, int local_number);
int lua_nups (lua_Function func);
extern lua_LHFunction lua_linehook; extern lua_LHFunction lua_linehook;
extern lua_CHFunction lua_callhook; extern lua_CHFunction lua_callhook;