lua

A copy of the Lua development repository
Log | Files | Refs | README

commit 085181a08a78244d20177a40cbe223d6ad0a2ff6
parent dd22ea4da550c3a158e0f11b928c349336184f85
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon,  9 Jun 1997 14:28:56 -0300

new function "testC", to help debug the API.

Diffstat:
Mlua.c | 72+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 71 insertions(+), 1 deletion(-)

diff --git a/lua.c b/lua.c @@ -3,12 +3,13 @@ ** Linguagem para Usuarios de Aplicacao */ -char *rcs_lua="$Id: lua.c,v 1.14 1996/09/24 17:30:28 roberto Exp roberto $"; +char *rcs_lua="$Id: lua.c,v 1.15 1997/04/04 22:24:51 roberto Exp roberto $"; #include <stdio.h> #include <string.h> #include "lua.h" +#include "auxlib.h" #include "lualib.h" @@ -19,6 +20,74 @@ char *rcs_lua="$Id: lua.c,v 1.14 1996/09/24 17:30:28 roberto Exp roberto $"; #endif +#define DEBUG 1 + +static void testC (void) +{ +#if DEBUG +#define getnum(s) ((*s++) - '0') +#define getname(s) (nome[0] = *s++, nome) + + static int locks[10]; + lua_Object reg[10]; + char nome[2]; + char *s = luaL_check_string(1); + nome[1] = 0; + while (1) { + switch (*s++) { + case '0': case '1': case '2': case '3': case '4': + case '5': case '6': case '7': case '8': case '9': + lua_pushnumber(*(s-1) - '0'); + break; + + case 'c': reg[getnum(s)] = lua_createtable(); break; + + case 'P': reg[getnum(s)] = lua_pop(); break; + + case 'g': { int n = getnum(s); reg[n] = lua_getglobal(getname(s)); break; } + + case 'G': { int n = getnum(s); + reg[n] = lua_rawgetglobal(getname(s)); + break; + } + + case 'l': locks[getnum(s)] = lua_ref(1); break; + case 'L': locks[getnum(s)] = lua_ref(0); break; + + case 'r': { int n = getnum(s); reg[n] = lua_getref(locks[getnum(s)]); break; } + + case 'u': lua_unlock(locks[getnum(s)]); break; + + case 'p': { int n = getnum(s); reg[n] = lua_getparam(getnum(s)); break; } + + case '=': lua_setglobal(getname(s)); break; + + case 's': lua_pushstring(getname(s)); break; + + case 'o': lua_pushobject(reg[getnum(s)]); break; + + case 'f': lua_call(getname(s)); break; + + case 'i': reg[getnum(s)] = lua_gettable(); break; + + case 'I': reg[getnum(s)] = lua_rawgettable(); break; + + case 't': lua_settable(); break; + + case 'T': lua_rawsettable(); break; + + default: luaL_verror("unknown command in `testC': %c", *(s-1)); + + } + if (*s == 0) return; + if (*s++ != ' ') lua_error("missing ` ' between commands in `testC'"); + } +#else + lua_error("`testC' not active"); +#endif +} + + static void manual_input (void) { if (isatty(0)) { @@ -41,6 +110,7 @@ int main (int argc, char *argv[]) iolib_open (); strlib_open (); mathlib_open (); + lua_register("testC", testC); if (argc < 2) manual_input(); else for (i=1; i<argc; i++) {