commit 1375435e4a9ad5a7625a332934251945586aceca
parent 2bb19ccf08381c7755015dfa61e2eb4675637c78
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 10 Dec 2009 16:21:04 -0200
several new features in testC to allow better testing of lua_resume
at the C API level
Diffstat:
M | ltests.c | | | 89 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------ |
1 file changed, 62 insertions(+), 27 deletions(-)
diff --git a/ltests.c b/ltests.c
@@ -1,5 +1,5 @@
/*
-** $Id: ltests.c,v 2.80 2009/11/27 15:39:31 roberto Exp roberto $
+** $Id: ltests.c,v 2.81 2009/12/01 16:49:48 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@@ -825,13 +825,13 @@ static void skip (const char **pc) {
}
}
-static int getnum_aux (lua_State *L, const char **pc) {
+static int getnum_aux (lua_State *L, lua_State *L1, const char **pc) {
int res = 0;
int sig = 1;
skip(pc);
if (**pc == '.') {
- res = cast_int(lua_tonumber(L, -1));
- lua_pop(L, 1);
+ res = lua_tointeger(L1, -1);
+ lua_pop(L1, 1);
(*pc)++;
return res;
}
@@ -845,7 +845,7 @@ static int getnum_aux (lua_State *L, const char **pc) {
return sig*res;
}
-static const char *getname_aux (lua_State *L, char *buff, const char **pc) {
+static const char *getstring_aux (lua_State *L, char *buff, const char **pc) {
int i = 0;
skip(pc);
if (**pc == '"' || **pc == '\'') { /* quoted string? */
@@ -865,22 +865,30 @@ static const char *getname_aux (lua_State *L, char *buff, const char **pc) {
}
-static int getindex_aux (lua_State *L, const char **pc) {
+static int getindex_aux (lua_State *L, lua_State *L1, const char **pc) {
skip(pc);
switch (*(*pc)++) {
case 'R': return LUA_REGISTRYINDEX;
case 'G': return LUA_GLOBALSINDEX;
case 'E': return LUA_ENVIRONINDEX;
- case 'U': return lua_upvalueindex(getnum_aux(L, pc));
- default: (*pc)--; return getnum_aux(L, pc);
+ case 'U': return lua_upvalueindex(getnum_aux(L, L1, pc));
+ default: (*pc)--; return getnum_aux(L, L1, pc);
}
}
+
+static void pushcode (lua_State *L, int code) {
+ static const char *const codes[] = {"OK", "YIELD", "ERRRUN",
+ "ERRSYNTAX", "ERRMEM", "ERRGCMM", "ERRERR"};
+ lua_pushstring(L, codes[code]);
+}
+
+
#define EQ(s1) (strcmp(s1, inst) == 0)
-#define getnum (getnum_aux(L, &pc))
-#define getname (getname_aux(L, buff, &pc))
-#define getindex (getindex_aux(L, &pc))
+#define getnum (getnum_aux(L, L1, &pc))
+#define getstring (getstring_aux(L, buff, &pc))
+#define getindex (getindex_aux(L, L1, &pc))
static int testC (lua_State *L);
@@ -888,9 +896,10 @@ static int Cfunck (lua_State *L);
static int runC (lua_State *L, lua_State *L1, const char *pc) {
char buff[300];
+ int status = 0;
if (pc == NULL) return luaL_error(L, "attempt to runC null script");
for (;;) {
- const char *inst = getname;
+ const char *inst = getstring;
if EQ("") return 0;
else if EQ("isnumber") {
lua_pushboolean(L1, lua_isnumber(L1, getindex));
@@ -938,7 +947,13 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
lua_pushlightuserdata(L1, &func);
}
else if EQ("return") {
- return getnum;
+ int n = getnum;
+ if (L1 != L) {
+ int i;
+ for (i = 0; i < n; i++)
+ lua_pushstring(L, lua_tostring(L1, -(n - i)));
+ }
+ return n;
}
else if EQ("gettop") {
lua_pushinteger(L1, lua_gettop(L1));
@@ -953,7 +968,7 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
lua_pushinteger(L1, getnum);
}
else if EQ("pushstring") {
- lua_pushstring(L1, getname);
+ lua_pushstring(L1, getstring);
}
else if EQ("pushnil") {
lua_pushnil(L1);
@@ -997,7 +1012,11 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
}
else if EQ("getfield") {
int t = getindex;
- lua_getfield(L1, t, getname);
+ lua_getfield(L1, t, getstring);
+ }
+ else if EQ("setfield") {
+ int t = getindex;
+ lua_setfield(L1, t, getstring);
}
else if EQ("rawgeti") {
int t = getindex;
@@ -1033,7 +1052,7 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
int op;
skip(&pc);
op = strchr(ops, *pc++) - ops;
- lua_arith(L, op);
+ lua_arith(L1, op);
}
else if EQ("compare") {
int a = getindex;
@@ -1048,13 +1067,13 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
else if EQ("pcall") {
int narg = getnum;
int nres = getnum;
- lua_pcall(L1, narg, nres, 0);
+ status = lua_pcall(L1, narg, nres, 0);
}
else if EQ("pcallk") {
int narg = getnum;
int nres = getnum;
int i = getindex;
- lua_pcallk(L1, narg, nres, 0, i, Cfunck);
+ status = lua_pcallk(L1, narg, nres, 0, i, Cfunck);
}
else if EQ("callk") {
int narg = getnum;
@@ -1070,6 +1089,25 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
int i = getindex;
return lua_yieldk(L1, nres, i, Cfunck);
}
+ else if EQ("newthread") {
+ lua_newthread(L1);
+ }
+ else if EQ("resume") {
+ int i = getindex;
+ status = lua_resume(lua_tothread(L1, i), getnum);
+ }
+ else if EQ("pushstatus") {
+ pushcode(L1, status);
+ }
+ else if EQ("xmove") {
+ int f = getindex;
+ int t = getindex;
+ lua_State *fs = (f == 0) ? L1 : lua_tothread(L1, f);
+ lua_State *ts = (t == 0) ? L1 : lua_tothread(L1, t);
+ int n = getnum;
+ if (n == 0) n = lua_gettop(fs);
+ lua_xmove(fs, ts, n);
+ }
else if EQ("loadstring") {
size_t sl;
const char *s = luaL_checklstring(L1, getnum, &sl);
@@ -1098,12 +1136,9 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
lua_rawseti(L1, t, i + 1);
}
else if EQ("getctx") {
- static const char *const codes[] = {"OK", "YIELD", "ERRRUN",
- "ERRSYNTAX", "ERRMEM", "ERRGCMM", "ERRERR"};
-
int i = 0;
int s = lua_getctx(L1, &i);
- lua_pushstring(L1, codes[s]);
+ pushcode(L1, s);
lua_pushinteger(L1, i);
}
else if EQ("checkstack") {
@@ -1111,22 +1146,22 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
luaL_error(L, "C stack overflow");
}
else if EQ("newmetatable") {
- lua_pushboolean(L1, luaL_newmetatable(L1, getname));
+ lua_pushboolean(L1, luaL_newmetatable(L1, getstring));
}
else if EQ("testudata") {
int i = getindex;
- lua_pushboolean(L1, luaL_testudata(L1, i, getname) != NULL);
+ lua_pushboolean(L1, luaL_testudata(L1, i, getstring) != NULL);
}
else if EQ("gsub") {
int a = getnum; int b = getnum; int c = getnum;
luaL_gsub(L1, lua_tostring(L1, a),
- lua_tostring(L, b),
- lua_tostring(L, c));
+ lua_tostring(L1, b),
+ lua_tostring(L1, c));
}
else if EQ("sethook") {
int mask = getnum;
int count = getnum;
- sethookaux(L1, mask, count, getname);
+ sethookaux(L1, mask, count, getstring);
}
else if EQ("throw") {
#if defined(__cplusplus)