mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-26 06:39:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

simpler tests for simpler API

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2000-08-31 10:29:47 -03:00
parent 21dc77b2af
commit a0de89d62a
1 changed files with 11 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ltests.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ltests.c,v 1.36 2000/08/29 14:57:10 roberto Exp roberto $
** $Id: ltests.c,v 1.37 2000/08/29 19:05:11 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@ -335,32 +335,24 @@ static void skip (const char **pc) {
while (**pc != '\0' && strchr(delimits, **pc)) (*pc)++;
}
static int getnum (const char **pc, int *reg) {
static int getnum (lua_State *L, const char **pc) {
int res = 0;
int sig = 1;
int ref = 0;
skip(pc);
if (**pc == 'r') {
ref = 1;
if (**pc == '.') {
res = (int)lua_tonumber(L, -1);
lua_settop(L, -1);
(*pc)++;
return res;
}
else if (**pc == '-') {
sig = -1;
(*pc)++;
}
while (isdigit(**pc)) res = res*10 + (*(*pc)++) - '0';
if (!ref)
return sig*res;
else
return reg[res];
return sig*res;
}
static int getreg (const char **pc) {
skip(pc);
(*pc)++; /* skip the `r' */
return getnum(pc, NULL);
}
static const char *getname (char *buff, const char **pc) {
int i = 0;
skip(pc);
@ -373,14 +365,12 @@ static const char *getname (char *buff, const char **pc) {
#define EQ(s1) (strcmp(s1, inst) == 0)
#define getnum ((getnum)(&pc, reg))
#define getreg ((getreg)(&pc))
#define getnum ((getnum)(L, &pc))
#define getname ((getname)(buff, &pc))
static int testC (lua_State *L) {
char buff[30];
int reg[10];
const char *pc = luaL_check_string(L, 1);
for (;;) {
const char *inst = getname;
@ -388,27 +378,20 @@ static int testC (lua_State *L) {
else if EQ("return") {
return getnum;
}
else if EQ("retall") {
return lua_gettop(L) - 1;
}
else if EQ("gettop") {
reg[getreg] = lua_gettop(L);
lua_pushnumber(L, lua_gettop(L));
}
else if EQ("settop") {
lua_settop(L, getnum);
}
else if EQ("setreg") {
int n = getreg;
reg[n] = lua_tonumber(L, getnum);
}
else if EQ("pushnum") {
lua_pushnumber(L, getnum);
}
else if EQ("pushobject") {
lua_pushobject(L, getnum);
}
else if EQ("pushstring") {
lua_pushstring(L, getname);
else if EQ("next") {
lua_next(L);
}
else if EQ("call") {
int narg = getnum;