rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

small corrections.

This commit is contained in:
Roberto Ierusalimschy 1996-05-03 17:10:59 -03:00
parent 88cf0836fc
commit 01ea523b80
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
iolib.c
View File

@ -3,11 +3,10 @@
** Input/output library to LUA ** 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 <stdio.h> #include <stdio.h>
#include <ctype.h> #include <ctype.h>
#include <sys/types.h>
#include <string.h> #include <string.h>
#include <time.h> #include <time.h>
#include <stdlib.h> #include <stdlib.h>
@ -546,7 +545,7 @@ static void io_debug (void)
} }
void lua_printstack (FILE *f) static void lua_printstack (FILE *f)
{ {
int level = 0; int level = 0;
lua_Object func; lua_Object func;

10
lua.c
View File

@ -3,7 +3,7 @@
** Linguagem para Usuarios de Aplicacao ** 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 <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
@ -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 int lua_argc;
static char **lua_argv; static char **lua_argv;
#ifdef POSIX
/* /*
** although this function is POSIX, there is no standard header file that ** although this function is POSIX, there is no standard header file that
** defines it ** defines it
*/ */
int isatty (int fd); int isatty (int fd);
#else
#define isatty(x) (x==0) /* assume stdin is a tty */
#endif
/* /*
%F Allow Lua code to access argv strings. %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", printf("%s %s\n(written by %s)\n\n",
LUA_VERSION, LUA_COPYRIGHT, LUA_AUTHORS); LUA_VERSION, LUA_COPYRIGHT, LUA_AUTHORS);
else else
{
result = lua_dofile (argv[i]); result = lua_dofile (argv[i]);
if (result)
fprintf(stderr, "lua: error trying to run file %s\n", argv[i]);
}
} }
} }
return result; return result;