mirror of https://github.com/rusefi/lua.git
uses "isatty" to check if executes stdin line by line or as a file.
This commit is contained in:
parent
ebcf546a55
commit
b5745d11cd
13
lua.c
13
lua.c
|
@ -3,7 +3,7 @@
|
||||||
** Linguagem para Usuarios de Aplicacao
|
** Linguagem para Usuarios de Aplicacao
|
||||||
*/
|
*/
|
||||||
|
|
||||||
char *rcs_lua="$Id: lua.c,v 1.4 1995/02/07 16:04:15 lhf Exp roberto $";
|
char *rcs_lua="$Id: lua.c,v 1.5 1995/10/06 14:11:40 roberto Exp roberto $";
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
@ -14,6 +14,12 @@ char *rcs_lua="$Id: lua.c,v 1.4 1995/02/07 16:04:15 lhf Exp roberto $";
|
||||||
static int lua_argc;
|
static int lua_argc;
|
||||||
static char **lua_argv;
|
static char **lua_argv;
|
||||||
|
|
||||||
|
/*
|
||||||
|
** although this function is POSIX, there is no standard header file that
|
||||||
|
** defines it
|
||||||
|
*/
|
||||||
|
int isatty (int fd);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
%F Allow Lua code to access argv strings.
|
%F Allow Lua code to access argv strings.
|
||||||
%i Receive from Lua the argument number (starting with 1).
|
%i Receive from Lua the argument number (starting with 1).
|
||||||
|
@ -35,9 +41,14 @@ static void lua_getargv (void)
|
||||||
|
|
||||||
static void manual_input (void)
|
static void manual_input (void)
|
||||||
{
|
{
|
||||||
|
if (isatty(fileno(stdin)))
|
||||||
|
{
|
||||||
char buffer[250];
|
char buffer[250];
|
||||||
while (gets(buffer) != 0)
|
while (gets(buffer) != 0)
|
||||||
lua_dostring(buffer);
|
lua_dostring(buffer);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
lua_dofile(NULL); /* executes stdin as a file */
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue