mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-12-29 05:39:52 +03:00
Code Issues Packages Projects Releases Wiki Activity

new test function to list strings from a function

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2000-06-02 16:10:01 -03:00
parent 6b9bf49265
commit 9c14b5e416
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ltests.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ltests.c,v 1.21 2000/05/26 19:17:57 roberto Exp roberto $
** $Id: ltests.c,v 1.22 2000/06/02 17:06:42 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@ -104,6 +104,24 @@ static void listcode (void) {
lua_pushobject(t);
}
static void liststrings (void) {
lua_Object o = luaL_nonnullarg(1);
lua_Object t = lua_createtable();
Proto *p;
int i;
luaL_arg_check(ttype(o) == TAG_LCLOSURE, 1, "Lua function expected");
p = clvalue(o)->f.l;
for (i=0; i<p->nkstr; i++) {
lua_pushobject(t);
lua_pushnumber(i+1);
lua_pushstring(p->kstr[i]->str);
lua_settable();
}
lua_pushobject(t);
}
/* }====================================================== */
@ -377,6 +395,7 @@ static const struct luaL_reg tests_funcs[] = {
{"hash", (lua_CFunction)hash_query},
{"limits", (lua_CFunction)get_limits},
{"listcode", (lua_CFunction)listcode},
{"liststrings", (lua_CFunction)liststrings},
{"querystr", (lua_CFunction)string_query},
{"querytab", (lua_CFunction)table_query},
{"testC", (lua_CFunction)testC},