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

better machinery to test continuations in the C API

This commit is contained in:
Roberto Ierusalimschy 2009-08-26 14:41:26 -03:00
parent f096ab5421
commit b2bb2f7f59
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 2.67 2009/07/15 17:26:14 roberto Exp roberto $ ** $Id: ltests.c,v 2.68 2009/07/15 18:37:19 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -863,6 +863,7 @@ static int getindex_aux (lua_State *L, const char **pc) {
static int testC (lua_State *L); static int testC (lua_State *L);
static int Cfunck (lua_State *L);
static int runC (lua_State *L, lua_State *L1, const char *pc) { static int runC (lua_State *L, lua_State *L1, const char *pc) {
char buff[30]; char buff[30];
@ -970,6 +971,9 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
else if EQ("concat") { else if EQ("concat") {
lua_concat(L1, getnum); lua_concat(L1, getnum);
} }
else if EQ("print") {
printf("%s\n", lua_tostring(L1, getnum));
}
else if EQ("arith") { else if EQ("arith") {
static char ops[] = "+-*/%^_"; static char ops[] = "+-*/%^_";
int op; int op;
@ -992,6 +996,12 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
int nres = getnum; int nres = getnum;
lua_pcall(L1, narg, nres, 0); lua_pcall(L1, narg, nres, 0);
} }
else if EQ("pcallk") {
int narg = getnum;
int nres = getnum;
int i = getnum;
lua_pcallk(L1, narg, nres, 0, i, Cfunck);
}
else if EQ("loadstring") { else if EQ("loadstring") {
size_t sl; size_t sl;
const char *s = luaL_checklstring(L1, getnum, &sl); const char *s = luaL_checklstring(L1, getnum, &sl);
@ -1014,6 +1024,12 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
int i = getindex; int i = getindex;
lua_pushinteger(L1, lua_objlen(L1, i)); lua_pushinteger(L1, lua_objlen(L1, i));
} }
else if EQ("getctx") {
int i = 0;
int s = lua_getctx(L1, &i);
lua_pushinteger(L1, s);
lua_pushinteger(L1, i);
}
else if EQ("checkstack") { else if EQ("checkstack") {
if (!lua_checkstack(L1, getnum)) if (!lua_checkstack(L1, getnum))
luaL_error(L, "C stack overflow"); luaL_error(L, "C stack overflow");
@ -1070,6 +1086,13 @@ static int Cfunc (lua_State *L) {
} }
static int Cfunck (lua_State *L) {
int i = 0;
lua_getctx(L, &i);
return runC(L, L, lua_tostring(L, i));
}
static int makeCfunc (lua_State *L) { static int makeCfunc (lua_State *L) {
luaL_checkstring(L, 1); luaL_checkstring(L, 1);
lua_settop(L, 1); lua_settop(L, 1);