From 01ea523b80b347e62b2d653c652dbdc374ef08fb Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Fri, 3 May 1996 17:10:59 -0300 Subject: small corrections. --- iolib.c | 5 ++--- lua.c | 10 +++++++++- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/iolib.c b/iolib.c index a5c26a0e..861665ee 100644 --- a/iolib.c +++ b/iolib.c @@ -3,11 +3,10 @@ ** Input/output library to LUA */ -char *rcs_iolib="$Id: iolib.c,v 1.42 1996/04/23 12:43:07 roberto Exp roberto $"; +char *rcs_iolib="$Id: iolib.c,v 1.43 1996/04/30 21:13:55 roberto Exp roberto $"; #include #include -#include #include #include #include @@ -546,7 +545,7 @@ static void io_debug (void) } -void lua_printstack (FILE *f) +static void lua_printstack (FILE *f) { int level = 0; lua_Object func; diff --git a/lua.c b/lua.c index b8a093d4..e755993c 100644 --- a/lua.c +++ b/lua.c @@ -3,7 +3,7 @@ ** Linguagem para Usuarios de Aplicacao */ -char *rcs_lua="$Id: lua.c,v 1.8 1996/03/12 13:14:52 roberto Exp roberto $"; +char *rcs_lua="$Id: lua.c,v 1.9 1996/04/23 12:43:07 roberto Exp roberto $"; #include #include @@ -14,11 +14,15 @@ char *rcs_lua="$Id: lua.c,v 1.8 1996/03/12 13:14:52 roberto Exp roberto $"; static int lua_argc; static char **lua_argv; +#ifdef POSIX /* ** although this function is POSIX, there is no standard header file that ** defines it */ int isatty (int fd); +#else +#define isatty(x) (x==0) /* assume stdin is a tty */ +#endif /* %F Allow Lua code to access argv strings. @@ -83,7 +87,11 @@ int main (int argc, char *argv[]) printf("%s %s\n(written by %s)\n\n", LUA_VERSION, LUA_COPYRIGHT, LUA_AUTHORS); else + { result = lua_dofile (argv[i]); + if (result) + fprintf(stderr, "lua: error trying to run file %s\n", argv[i]); + } } } return result; -- cgit v1.2.3-55-g6feb