commit 2d2440a753af88fe6e23a150a4b113005873e691
parent 0c4ed2b3dc0570cd8d45fa548b4aa29581ea222f
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 16 Sep 1997 16:25:38 -0300
Lua stand-alone interpreter
Diffstat:
M | lua.c | | | 97 | ++++++++++++++----------------------------------------------------------------- |
1 file changed, 17 insertions(+), 80 deletions(-)
diff --git a/lua.c b/lua.c
@@ -1,92 +1,29 @@
/*
-** lua.c
-** Linguagem para Usuarios de Aplicacao
+** $Id: $
+** Lua stand-alone interpreter
+** See Copyright Notice in lua.h
*/
-char *rcs_lua="$Id: lua.c,v 1.18 1997/06/19 18:55:40 roberto Exp roberto $";
#include <stdio.h>
#include <string.h>
-#include "lualoc.h"
#include "lua.h"
-#include "auxlib.h"
+#include "luadebug.h"
#include "lualib.h"
-#ifdef _POSIX_SOURCE
-#include <unistd.h>
+#ifndef OLD_ANSI
+#include <locale.h>
#else
-#define isatty(x) (x==0) /* assume stdin is a tty */
+#define setlocale(a,b) 0
#endif
-
-#define DEBUG 0
-
-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_unref(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'");
- }
+#ifdef _POSIX_SOURCE
+#include <unistd.h>
#else
- lua_error("`testC' not active");
+#define isatty(x) (x==0) /* assume stdin is a tty */
#endif
-}
static void manual_input (void)
@@ -107,17 +44,17 @@ static void manual_input (void)
int main (int argc, char *argv[])
{
int i;
- int result = 0;
setlocale(LC_ALL, "");
- iolib_open ();
- strlib_open ();
- mathlib_open ();
- lua_register("testC", testC);
+ lua_iolibopen ();
+ lua_strlibopen ();
+ lua_mathlibopen ();
if (argc < 2)
manual_input();
else for (i=1; i<argc; i++) {
if (strcmp(argv[i], "-") == 0)
manual_input();
+ else if (strcmp(argv[i], "-d") == 0)
+ lua_debug = 1;
else if (strcmp(argv[i], "-v") == 0)
printf("%s %s\n(written by %s)\n\n",
LUA_VERSION, LUA_COPYRIGHT, LUA_AUTHORS);
@@ -128,7 +65,7 @@ int main (int argc, char *argv[])
}
}
else {
- result = lua_dofile (argv[i]);
+ int result = lua_dofile (argv[i]);
if (result) {
if (result == 2) {
fprintf(stderr, "lua: cannot execute file ");
@@ -138,6 +75,6 @@ int main (int argc, char *argv[])
}
}
}
- return result;
+ return 0;
}