mirror of https://github.com/rusefi/lua.git
new language for testC (debugging facility)
This commit is contained in:
Roberto Ierusalimschy
parent
3c9e29f56d
commit
c7119a93f0
200
lbuiltin.c
200
lbuiltin.c
|
|
@ -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
|
** Built-in functions
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
|
@ -664,86 +664,143 @@ static void query_strings (lua_State *L) {
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
static void extra_services (lua_State *L) {
|
static const char *delimits = " \t\n,;";
|
||||||
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;
|
|
||||||
|
|
||||||
case 'u': /* return the value of a userdata */
|
static void skip (const char **pc) {
|
||||||
lua_pushnumber(L, (int)lua_getuserdata(L, lua_getparam(L, 2)));
|
while (**pc != '\0' && strchr(delimits, **pc)) (*pc)++;
|
||||||
break;
|
|
||||||
|
|
||||||
case 't': /* set `gc' tag method */
|
|
||||||
lua_pushobject(L, lua_getparam(L, 3));
|
|
||||||
lua_settagmethod(L, luaL_check_int(L, 2), "gc");
|
|
||||||
break;
|
|
||||||
|
|
||||||
default: luaL_argerror(L, 1, "invalid service");
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
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);
|
||||||
|
}
|
||||||
|
|
||||||
|
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;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#define EQ(s1) (strcmp(s1, inst) == 0)
|
||||||
|
|
||||||
static void testC (lua_State *L) {
|
static void testC (lua_State *L) {
|
||||||
#define getnum(L, s) ((*s++) - '0')
|
|
||||||
#define getname(L, s) (nome[0] = *s++, nome)
|
|
||||||
|
|
||||||
lua_Object reg[10];
|
lua_Object reg[10];
|
||||||
char nome[2];
|
const char *pc = luaL_check_string(L, 1);
|
||||||
const char *s = luaL_check_string(L, 1);
|
|
||||||
nome[1] = 0;
|
|
||||||
for (;;) {
|
for (;;) {
|
||||||
switch (*s++) {
|
const char *inst = getname(&pc);
|
||||||
case '0': case '1': case '2': case '3': case '4':
|
if EQ("") return;
|
||||||
case '5': case '6': case '7': case '8': case '9':
|
else if EQ("pushnum") {
|
||||||
lua_pushnumber(L, *(s-1) - '0');
|
lua_pushnumber(L, getnum(&pc));
|
||||||
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;
|
else if EQ("createtable") {
|
||||||
if (*s++ != ' ') lua_error(L, "missing ` ' between commands in `testC'");
|
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
|
#endif
|
||||||
|
|
@ -752,7 +809,6 @@ static void testC (lua_State *L) {
|
||||||
|
|
||||||
static const struct luaL_reg builtin_funcs[] = {
|
static const struct luaL_reg builtin_funcs[] = {
|
||||||
#ifdef DEBUG
|
#ifdef DEBUG
|
||||||
{"extra", extra_services},
|
|
||||||
{"hash", hash_query},
|
{"hash", hash_query},
|
||||||
{"querystr", query_strings},
|
{"querystr", query_strings},
|
||||||
{"querytab", table_query},
|
{"querytab", table_query},
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue