mirror of https://github.com/lua/lua.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
71 lines
1.4 KiB
71 lines
1.4 KiB
/*
|
|
** lua.c
|
|
** Linguagem para Usuarios de Aplicacao
|
|
*/
|
|
|
|
char *rcs_lua="$Id: lua.c,v 1.13 1996/07/06 20:20:35 roberto Exp roberto $";
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include "lua.h"
|
|
#include "lualib.h"
|
|
|
|
|
|
#ifdef _POSIX_SOURCE
|
|
#include <unistd.h>
|
|
#else
|
|
#define isatty(x) (x==0) /* assume stdin is a tty */
|
|
#endif
|
|
|
|
|
|
static void manual_input (void)
|
|
{
|
|
if (isatty(0)) {
|
|
char buffer[250];
|
|
while (fgets(buffer, sizeof(buffer), stdin) != 0) {
|
|
lua_beginblock();
|
|
lua_dostring(buffer);
|
|
lua_endblock();
|
|
}
|
|
}
|
|
else
|
|
lua_dofile(NULL); /* executes stdin as a file */
|
|
}
|
|
|
|
|
|
int main (int argc, char *argv[])
|
|
{
|
|
int i;
|
|
int result = 0;
|
|
iolib_open ();
|
|
strlib_open ();
|
|
mathlib_open ();
|
|
if (argc < 2)
|
|
manual_input();
|
|
else for (i=1; i<argc; i++) {
|
|
if (strcmp(argv[i], "-") == 0)
|
|
manual_input();
|
|
else if (strcmp(argv[i], "-v") == 0)
|
|
printf("%s %s\n(written by %s)\n\n",
|
|
LUA_VERSION, LUA_COPYRIGHT, LUA_AUTHORS);
|
|
else if ((strcmp(argv[i], "-e") == 0 && i++) || strchr(argv[i], '=')) {
|
|
if (lua_dostring(argv[i]) != 0) {
|
|
fprintf(stderr, "lua: error running argument `%s'\n", argv[i]);
|
|
return 1;
|
|
}
|
|
}
|
|
else {
|
|
result = lua_dofile (argv[i]);
|
|
if (result) {
|
|
if (result == 2) {
|
|
fprintf(stderr, "lua: cannot execute file `%s' - ", argv[i]);
|
|
perror(NULL);
|
|
}
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
|