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

new language for testC (debugging facility)

v5-2
Roberto Ierusalimschy 25 years ago
parent
3c9e29f56d
commit
c7119a93f0
1 changed files with 127 additions and 71 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. 198
      lbuiltin.c

198
lbuiltin.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lbuiltin.c,v 1.79 1999/12/01 19:50:08 roberto Exp roberto $
** $Id: lbuiltin.c,v 1.80 1999/12/02 16:24:45 roberto Exp roberto $
** Built-in functions
** See Copyright Notice in lua.h
*/
@ -664,86 +664,143 @@ static void query_strings (lua_State *L) {
}
static void extra_services (lua_State *L) {
const char *service = luaL_check_string(L, 1);
switch (*service) {
case 'U': /* create a userdata with a given value/tag */
lua_pushusertag(L, (void *)luaL_check_int(L, 2), luaL_check_int(L, 3));
break;
static const char *delimits = " \t\n,;";
case 'u': /* return the value of a userdata */
lua_pushnumber(L, (int)lua_getuserdata(L, lua_getparam(L, 2)));
break;
static void skip (const char **pc) {
while (**pc != '\0' && strchr(delimits, **pc)) (*pc)++;
}
case 't': /* set `gc' tag method */
lua_pushobject(L, lua_getparam(L, 3));
lua_settagmethod(L, luaL_check_int(L, 2), "gc");
break;
static int getnum (const char **pc) {
int res = 0;
skip(pc);
while (isdigit(**pc)) res = res*10 + (*(*pc)++) - '0';
return res;
}
static int getreg (lua_State *L, const char **pc) {
skip(pc);
if (*(*pc)++ != 'r') lua_error(L, "`testC' expecting a register");
return getnum(pc);
}
default: luaL_argerror(L, 1, "invalid service");
}
static const char *getname (const char **pc) {
static char buff[30];
int i = 0;
skip(pc);
while (**pc != '\0' && !strchr(delimits, **pc))
buff[i++] = *(*pc)++;
buff[i] = '\0';
return buff;
}
static void testC (lua_State *L) {
#define getnum(L, s) ((*s++) - '0')
#define getname(L, s) (nome[0] = *s++, nome)
#define EQ(s1) (strcmp(s1, inst) == 0)
static void testC (lua_State *L) {
lua_Object reg[10];
char nome[2];
const char *s = luaL_check_string(L, 1);
nome[1] = 0;
const char *pc = luaL_check_string(L, 1);
for (;;) {
switch (*s++) {
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
lua_pushnumber(L, *(s-1) - '0');
break;
case 'c': reg[getnum(L, s)] = lua_createtable(L); break;
case 'C': { lua_CFunction f = lua_getcfunction(L, lua_getglobal(L, getname(L, s)));
lua_pushcclosure(L, f, getnum(L, s));
break;
}
case 'P': reg[getnum(L, s)] = lua_pop(L); break;
case 'g': { int n=getnum(L, s); reg[n]=lua_getglobal(L, getname(L, s)); break; }
case 'G': { int n = getnum(L, s);
reg[n] = lua_rawgetglobal(L, getname(L, s));
break;
}
case 'l': lua_pushnumber(L, lua_ref(L, 1)); reg[getnum(L, s)] = lua_pop(L); break;
case 'L': lua_pushnumber(L, lua_ref(L, 0)); reg[getnum(L, s)] = lua_pop(L); break;
case 'r': { int n=getnum(L, s);
reg[n]=lua_getref(L, (int)lua_getnumber(L, reg[getnum(L, s)]));
break;
}
case 'u': lua_unref(L, (int)lua_getnumber(L, reg[getnum(L, s)]));
break;
case 'p': { int n = getnum(L, s); reg[n] = lua_getparam(L, getnum(L, s)); break; }
case '=': lua_setglobal(L, getname(L, s)); break;
case 's': lua_pushstring(L, getname(L, s)); break;
case 'o': lua_pushobject(L, reg[getnum(L, s)]); break;
case 'f': lua_call(L, getname(L, s)); break;
case 'i': reg[getnum(L, s)] = lua_gettable(L); break;
case 'I': reg[getnum(L, s)] = lua_rawgettable(L); break;
case 't': lua_settable(L); break;
case 'T': lua_rawsettable(L); break;
case 'N' : lua_pushstring(L, lua_nextvar(L, lua_getstring(L, reg[getnum(L, s)])));
break;
case 'n' : { int n=getnum(L, s);
n=lua_next(L, reg[n], (int)lua_getnumber(L, reg[getnum(L, s)]));
lua_pushnumber(L, n); break;
}
case 'q' : { int n1=getnum(L, s); int n2=getnum(L, s);
lua_pushnumber(L, lua_equal(L, reg[n1], reg[n2]));
break;
}
default: luaL_verror(L, "unknown command in `testC': %c", *(s-1));
}
if (*s == 0) return;
if (*s++ != ' ') lua_error(L, "missing ` ' between commands in `testC'");
const char *inst = getname(&pc);
if EQ("") return;
else if EQ("pushnum") {
lua_pushnumber(L, getnum(&pc));
}
else if EQ("createtable") {
reg[getreg(L, &pc)] = lua_createtable(L);
}
else if EQ("closure") {
lua_CFunction f = lua_getcfunction(L, lua_getglobal(L, getname(&pc)));
lua_pushcclosure(L, f, getnum(&pc));
}
else if EQ("pop") {
reg[getreg(L, &pc)] = lua_pop(L);
}
else if EQ("getglobal") {
int n = getreg(L, &pc);
reg[n] = lua_getglobal(L, getname(&pc));
}
else if EQ("rawgetglobal") {
int n = getreg(L, &pc);
reg[n] = lua_rawgetglobal(L, getname(&pc));
}
else if EQ("ref") {
lua_pushnumber(L, lua_ref(L, 0));
reg[getreg(L, &pc)] = lua_pop(L);
}
else if EQ("reflock") {
lua_pushnumber(L, lua_ref(L, 1));
reg[getreg(L, &pc)] = lua_pop(L);
}
else if EQ("getref") {
int n = getreg(L, &pc);
reg[n] = lua_getref(L, (int)lua_getnumber(L, reg[getreg(L, &pc)]));
}
else if EQ("unref") {
lua_unref(L, (int)lua_getnumber(L, reg[getreg(L, &pc)]));
}
else if (EQ("getparam") || EQ("getresult")) {
int n = getreg(L, &pc);
reg[n] = lua_getparam(L, getnum(&pc));
}
else if EQ("setglobal") {
lua_setglobal(L, getname(&pc));
}
else if EQ("rawsetglobal") {
lua_rawsetglobal(L, getname(&pc));
}
else if EQ("pushstring") {
lua_pushstring(L, getname(&pc));
}
else if EQ("pushreg") {
lua_pushobject(L, reg[getreg(L, &pc)]);
}
else if EQ("call") {
lua_call(L, getname(&pc));
}
else if EQ("gettable") {
reg[getreg(L, &pc)] = lua_gettable(L);
}
else if EQ("rawgettable") {
reg[getreg(L, &pc)] = lua_rawgettable(L);
}
else if EQ("settable") {
lua_settable(L);
}
else if EQ("rawsettable") {
lua_rawsettable(L);
}
else if EQ("nextvar") {
lua_pushstring(L, lua_nextvar(L, lua_getstring(L, reg[getreg(L, &pc)])));
}
else if EQ("next") {
int n = getreg(L, &pc);
n = lua_next(L, reg[n], (int)lua_getnumber(L, reg[getreg(L, &pc)]));
lua_pushnumber(L, n);
}
else if EQ("equal") {
int n1 = getreg(L, &pc);
int n2 = getreg(L, &pc);
lua_pushnumber(L, lua_equal(L, reg[n1], reg[n2]));
}
else if EQ("pushusertag") {
int val = getreg(L, &pc);
int tag = getreg(L, &pc);
lua_pushusertag(L, (void *)(int)lua_getnumber(L, reg[val]),
lua_getnumber(L, reg[tag]));
}
else if EQ("udataval") {
int n = getreg(L, &pc);
lua_pushnumber(L, (int)lua_getuserdata(L, reg[getreg(L, &pc)]));
reg[n] = lua_pop(L);
}
else if EQ("settagmethod") {
int n = getreg(L, &pc);
lua_settagmethod(L, lua_getnumber(L, reg[n]), getname(&pc));
}
else luaL_verror(L, "unknown command in `testC': %.20s", inst);
}
}
/* }====================================================== */
#endif
@ -752,7 +809,6 @@ static void testC (lua_State *L) {
static const struct luaL_reg builtin_funcs[] = {
#ifdef DEBUG
{"extra", extra_services},
{"hash", hash_query},
{"querystr", query_strings},
{"querytab", table_query},

Write Preview
Loading…
Cancel
Save