opensources
/
lua
mirror of https://github.com/lua/lua.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

instructions in 'runC' sorted alphabetically + new instructions 

'tointeger'/'tounsigned'
pull/9/head
Roberto Ierusalimschy 11 years ago
parent
a2c094fe2d
commit
5c46b7b8cf
1 changed files with 198 additions and 192 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 390
      ltests.c

390
ltests.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ltests.c,v 2.166 2014/02/18 13:46:26 roberto Exp roberto $
** $Id: ltests.c,v 2.167 2014/02/19 13:51:09 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@ -1000,153 +1000,152 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
else if EQ("absindex") {
lua_pushnumber(L1, lua_absindex(L1, getindex));
}
else if EQ("isnumber") {
lua_pushboolean(L1, lua_isnumber(L1, getindex));
}
else if EQ("isstring") {
lua_pushboolean(L1, lua_isstring(L1, getindex));
}
else if EQ("istable") {
lua_pushboolean(L1, lua_istable(L1, getindex));
}
else if EQ("iscfunction") {
lua_pushboolean(L1, lua_iscfunction(L1, getindex));
}
else if EQ("isfunction") {
lua_pushboolean(L1, lua_isfunction(L1, getindex));
}
else if EQ("isuserdata") {
lua_pushboolean(L1, lua_isuserdata(L1, getindex));
}
else if EQ("isudataval") {
lua_pushboolean(L1, lua_islightuserdata(L1, getindex));
}
else if EQ("isnil") {
lua_pushboolean(L1, lua_isnil(L1, getindex));
}
else if EQ("isnull") {
lua_pushboolean(L1, lua_isnone(L1, getindex));
else if EQ("append") {
int t = getindex;
int i = lua_rawlen(L1, t);
lua_rawseti(L1, t, i + 1);
}
else if EQ("tonumber") {
lua_pushnumber(L1, lua_tonumber(L1, getindex));
else if EQ("arith") {
int op;
skip(&pc);
op = strchr(ops, *pc++) - ops;
lua_arith(L1, op);
}
else if EQ("topointer") {
lua_pushnumber(L1, cast(size_t, lua_topointer(L1, getindex)));
else if EQ("call") {
int narg = getnum;
int nres = getnum;
lua_call(L1, narg, nres);
}
else if EQ("tostring") {
const char *s = lua_tostring(L1, getindex);
const char *s1 = lua_pushstring(L1, s);
lua_assert((s == NULL && s1 == NULL) || (strcmp)(s, s1) == 0);
else if EQ("callk") {
int narg = getnum;
int nres = getnum;
int i = getindex;
lua_callk(L1, narg, nres, i, Cfunck);
}
else if EQ("objsize") {
lua_pushinteger(L1, lua_rawlen(L1, getindex));
else if EQ("checkstack") {
int sz = getnum;
luaL_checkstack(L1, sz, getstring);
}
else if EQ("len") {
lua_len(L1, getindex);
else if EQ("compare") {
int a = getindex;
int b = getindex;
lua_pushboolean(L1, lua_compare(L1, a, b, getnum));
}
else if EQ("Llen") {
lua_pushinteger(L1, luaL_len(L1, getindex));
else if EQ("concat") {
lua_concat(L1, getnum);
}
else if EQ("tocfunction") {
lua_pushcfunction(L1, lua_tocfunction(L1, getindex));
else if EQ("copy") {
int f = getindex;
lua_copy(L1, f, getindex);
}
else if EQ("func2num") {
lua_CFunction func = lua_tocfunction(L1, getindex);
lua_pushnumber(L1, cast(size_t, func));
}
else if EQ("return") {
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));
else if EQ("getctx") {
int i = 0;
int s = lua_getctx(L1, &i);
pushcode(L1, s);
lua_pushinteger(L1, i);
}
else if EQ("settop") {
lua_settop(L1, getnum);
else if EQ("getfield") {
int t = getindex;
lua_getfield(L1, t, getstring);
}
else if EQ("pop") {
lua_pop(L1, getnum);
else if EQ("getglobal") {
lua_getglobal(L1, getstring);
}
else if EQ("pushnum") {
lua_pushnumber(L1, (lua_Number)getnum);
else if EQ("getmetatable") {
if (lua_getmetatable(L1, getindex) == 0)
lua_pushnil(L1);
}
else if EQ("pushint") {
lua_pushinteger(L1, getnum);
else if EQ("gettable") {
lua_gettable(L1, getindex);
}
else if EQ("pushstring") {
lua_pushstring(L1, getstring);
else if EQ("gettop") {
lua_pushinteger(L1, lua_gettop(L1));
}
else if EQ("pushnil") {
lua_pushnil(L1);
else if EQ("gsub") {
int a = getnum; int b = getnum; int c = getnum;
luaL_gsub(L1, lua_tostring(L1, a),
lua_tostring(L1, b),
lua_tostring(L1, c));
}
else if EQ("pushbool") {
lua_pushboolean(L1, getnum);
else if EQ("insert") {
lua_insert(L1, getnum);
}
else if EQ("newtable") {
lua_newtable(L1);
else if EQ("iscfunction") {
lua_pushboolean(L1, lua_iscfunction(L1, getindex));
}
else if EQ("newuserdata") {
lua_newuserdata(L1, getnum);
else if EQ("isfunction") {
lua_pushboolean(L1, lua_isfunction(L1, getindex));
}
else if EQ("tobool") {
lua_pushboolean(L1, lua_toboolean(L1, getindex));
else if EQ("isnil") {
lua_pushboolean(L1, lua_isnil(L1, getindex));
}
else if EQ("pushvalue") {
lua_pushvalue(L1, getindex);
else if EQ("isnull") {
lua_pushboolean(L1, lua_isnone(L1, getindex));
}
else if EQ("pushcclosure") {
lua_pushcclosure(L1, testC, getnum);
else if EQ("isnumber") {
lua_pushboolean(L1, lua_isnumber(L1, getindex));
}
else if EQ("pushupvalueindex") {
lua_pushinteger(L1, lua_upvalueindex(getnum));
else if EQ("isstring") {
lua_pushboolean(L1, lua_isstring(L1, getindex));
}
else if EQ("remove") {
lua_remove(L1, getnum);
else if EQ("istable") {
lua_pushboolean(L1, lua_istable(L1, getindex));
}
else if EQ("insert") {
lua_insert(L1, getnum);
else if EQ("isudataval") {
lua_pushboolean(L1, lua_islightuserdata(L1, getindex));
}
else if EQ("replace") {
lua_replace(L1, getindex);
else if EQ("isuserdata") {
lua_pushboolean(L1, lua_isuserdata(L1, getindex));
}
else if EQ("copy") {
int f = getindex;
lua_copy(L1, f, getindex);
else if EQ("len") {
lua_len(L1, getindex);
}
else if EQ("gettable") {
lua_gettable(L1, getindex);
else if EQ("Llen") {
lua_pushinteger(L1, luaL_len(L1, getindex));
}
else if EQ("getglobal") {
lua_getglobal(L1, getstring);
else if EQ("loadfile") {
luaL_loadfile(L1, luaL_checkstring(L1, getnum));
}
else if EQ("getfield") {
int t = getindex;
lua_getfield(L1, t, getstring);
else if EQ("loadstring") {
size_t sl;
const char *s = luaL_checklstring(L1, getnum, &sl);
luaL_loadbuffer(L1, s, sl, s);
}
else if EQ("setfield") {
int t = getindex;
lua_setfield(L1, t, getstring);
else if EQ("newmetatable") {
lua_pushboolean(L1, luaL_newmetatable(L1, getstring));
}
else if EQ("rawgeti") {
int t = getindex;
lua_rawgeti(L1, t, getnum);
else if EQ("newtable") {
lua_newtable(L1);
}
else if EQ("settable") {
lua_settable(L1, getindex);
else if EQ("newthread") {
lua_newthread(L1);
}
else if EQ("setglobal") {
lua_setglobal(L1, getstring);
else if EQ("newuserdata") {
lua_newuserdata(L1, getnum);
}
else if EQ("next") {
lua_next(L1, -2);
}
else if EQ("concat") {
lua_concat(L1, getnum);
else if EQ("objsize") {
lua_pushinteger(L1, lua_rawlen(L1, getindex));
}
else if EQ("pcall") {
int narg = getnum;
int nres = getnum;
status = lua_pcall(L1, narg, nres, 0);
}
else if EQ("pcallk") {
int narg = getnum;
int nres = getnum;
int i = getindex;
status = lua_pcallk(L1, narg, nres, 0, i, Cfunck);
}
else if EQ("pop") {
lua_pop(L1, getnum);
}
else if EQ("print") {
int n = getnum;
@ -1164,117 +1163,81 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
printf("\n");
}
}
else if EQ("arith") {
int op;
skip(&pc);
op = strchr(ops, *pc++) - ops;
lua_arith(L1, op);
else if EQ("pushbool") {
lua_pushboolean(L1, getnum);
}
else if EQ("compare") {
int a = getindex;
int b = getindex;
lua_pushboolean(L1, lua_compare(L1, a, b, getnum));
else if EQ("pushcclosure") {
lua_pushcclosure(L1, testC, getnum);
}
else if EQ("call") {
int narg = getnum;
int nres = getnum;
lua_call(L1, narg, nres);
else if EQ("pushint") {
lua_pushinteger(L1, getnum);
}
else if EQ("pcall") {
int narg = getnum;
int nres = getnum;
status = lua_pcall(L1, narg, nres, 0);
else if EQ("pushnil") {
lua_pushnil(L1);
}
else if EQ("pcallk") {
int narg = getnum;
int nres = getnum;
int i = getindex;
status = lua_pcallk(L1, narg, nres, 0, i, Cfunck);
else if EQ("pushnum") {
lua_pushnumber(L1, (lua_Number)getnum);
}
else if EQ("callk") {
int narg = getnum;
int nres = getnum;
int i = getindex;
lua_callk(L1, narg, nres, i, Cfunck);
else if EQ("pushstatus") {
pushcode(L1, status);
}
else if EQ("yield") {
return lua_yield(L1, getnum);
else if EQ("pushstring") {
lua_pushstring(L1, getstring);
}
else if EQ("yieldk") {
int nres = getnum;
int i = getindex;
return lua_yieldk(L1, nres, i, Cfunck);
else if EQ("pushupvalueindex") {
lua_pushinteger(L1, lua_upvalueindex(getnum));
}
else if EQ("newthread") {
lua_newthread(L1);
else if EQ("pushvalue") {
lua_pushvalue(L1, getindex);
}
else if EQ("rawgeti") {
int t = getindex;
lua_rawgeti(L1, t, getnum);
}
else if EQ("remove") {
lua_remove(L1, getnum);
}
else if EQ("replace") {
lua_replace(L1, getindex);
}
else if EQ("resume") {
int i = getindex;
status = lua_resume(lua_tothread(L1, i), L, getnum);
}
else if EQ("pushstatus") {
pushcode(L1, status);
else if EQ("return") {
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("xmove") {
int f = getindex;
else if EQ("setfield") {
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);
lua_setfield(L1, t, getstring);
}
else if EQ("loadstring") {
size_t sl;
const char *s = luaL_checklstring(L1, getnum, &sl);
luaL_loadbuffer(L1, s, sl, s);
else if EQ("setglobal") {
lua_setglobal(L1, getstring);
}
else if EQ("loadfile") {
luaL_loadfile(L1, luaL_checkstring(L1, getnum));
else if EQ("sethook") {
int mask = getnum;
int count = getnum;
sethookaux(L1, mask, count, getstring);
}
else if EQ("setmetatable") {
lua_setmetatable(L1, getindex);
}
else if EQ("getmetatable") {
if (lua_getmetatable(L1, getindex) == 0)
lua_pushnil(L1);
}
else if EQ("type") {
lua_pushstring(L1, luaL_typename(L1, getnum));
}
else if EQ("append") {
int t = getindex;
int i = lua_rawlen(L1, t);
lua_rawseti(L1, t, i + 1);
}
else if EQ("getctx") {
int i = 0;
int s = lua_getctx(L1, &i);
pushcode(L1, s);
lua_pushinteger(L1, i);
}
else if EQ("checkstack") {
int sz = getnum;
luaL_checkstack(L1, sz, getstring);
else if EQ("settable") {
lua_settable(L1, getindex);
}
else if EQ("newmetatable") {
lua_pushboolean(L1, luaL_newmetatable(L1, getstring));
else if EQ("settop") {
lua_settop(L1, getnum);
}
else if EQ("testudata") {
int i = getindex;
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(L1, b),
lua_tostring(L1, c));
}
else if EQ("sethook") {
int mask = getnum;
int count = getnum;
sethookaux(L1, mask, count, getstring);
}
else if EQ("throw") {
#if defined(__cplusplus)
static struct X { int x; } x;
@ -1284,6 +1247,49 @@ static struct X { int x; } x;
#endif
break;
}
else if EQ("tobool") {
lua_pushboolean(L1, lua_toboolean(L1, getindex));
}
else if EQ("tocfunction") {
lua_pushcfunction(L1, lua_tocfunction(L1, getindex));
}
else if EQ("tointeger") {
lua_pushinteger(L1, lua_tointeger(L1, getindex));
}
else if EQ("tonumber") {
lua_pushnumber(L1, lua_tonumber(L1, getindex));
}
else if EQ("topointer") {
lua_pushnumber(L1, cast(size_t, lua_topointer(L1, getindex)));
}
else if EQ("tostring") {
const char *s = lua_tostring(L1, getindex);
const char *s1 = lua_pushstring(L1, s);
lua_assert((s == NULL && s1 == NULL) || (strcmp)(s, s1) == 0);
}
else if EQ("tounsigned") {
lua_pushinteger(L1, (lua_Integer)lua_tounsigned(L1, getindex));
}
else if EQ("type") {
lua_pushstring(L1, luaL_typename(L1, getnum));
}
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("yield") {
return lua_yield(L1, getnum);
}
else if EQ("yieldk") {
int nres = getnum;
int i = getindex;
return lua_yieldk(L1, nres, i, Cfunck);
}
else luaL_error(L, "unknown instruction %s", buff);
}
return 0;

Write Preview
Loading…
Cancel
Save