rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new test options for luaL_getn/setn

This commit is contained in:
Roberto Ierusalimschy 2003-04-07 11:35:00 -03:00
parent f0cc013afa
commit 2ad947fe03
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ltests.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ltests.c,v 1.156 2003/03/19 21:14:53 roberto Exp roberto $
** $Id: ltests.c,v 1.157 2003/04/03 13:35:34 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@ -717,6 +717,16 @@ static int testC (lua_State *L) {
else if EQ("type") {
lua_pushstring(L, lua_typename(L, lua_type(L, getnum)));
}
else if EQ("getn") {
int i = getnum;
lua_pushintegral(L, luaL_getn(L, i));
}
else if EQ("setn") {
int i = getnum;
int n = cast(int, lua_tonumber(L, -1));
luaL_setn(L, i, n);
lua_pop(L, 1);
}
else luaL_error(L, "unknown instruction %s", buff);
}
return 0;