commit c7119a93f07e4e0edcd5d7d7f23fb447e4cf6acd
parent 3c9e29f56d4562bd9e0040b20f0ae286e2a1cce1
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 3 Dec 1999 16:02:32 -0200
new language for testC (debugging facility)
Diffstat:
| M | lbuiltin.c | | | 198 | +++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------- |
1 file changed, 127 insertions(+), 71 deletions(-)
diff --git a/lbuiltin.c b/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
** 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},
