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.
130 lines
2.7 KiB
130 lines
2.7 KiB
/*
|
|
** $Id: lua.c,v 1.8 1997/12/11 14:48:46 roberto Exp roberto $
|
|
** Lua stand-alone interpreter
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include "lua.h"
|
|
#include "luadebug.h"
|
|
#include "lualib.h"
|
|
|
|
|
|
#ifndef OLD_ANSI
|
|
#include <locale.h>
|
|
#else
|
|
#define setlocale(a,b) 0
|
|
#endif
|
|
|
|
#ifdef _POSIX_SOURCE
|
|
#include <unistd.h>
|
|
#else
|
|
#define isatty(x) (x==0) /* assume stdin is a tty */
|
|
#endif
|
|
|
|
|
|
static void assign (char *arg)
|
|
{
|
|
if (strlen(arg) >= 500)
|
|
fprintf(stderr, "lua: shell argument too long");
|
|
else {
|
|
char buffer[500];
|
|
char *eq = strchr(arg, '=');
|
|
lua_pushstring(eq+1);
|
|
strncpy(buffer, arg, eq-arg);
|
|
buffer[eq-arg] = 0;
|
|
lua_setglobal(buffer);
|
|
}
|
|
}
|
|
|
|
#define BUF_SIZE 512
|
|
|
|
static void manual_input (int prompt)
|
|
{
|
|
if (isatty(0)) {
|
|
int cont = 1;
|
|
while (cont) {
|
|
char buffer[BUF_SIZE];
|
|
int i = 0;
|
|
lua_beginblock();
|
|
if (prompt)
|
|
printf("%s", lua_getstring(lua_getglobal("_PROMPT")));
|
|
for(;;) {
|
|
int c = getchar();
|
|
if (c == EOF) {
|
|
cont = 0;
|
|
break;
|
|
}
|
|
else if (c == '\n') {
|
|
if (i>0 && buffer[i-1] == '\\')
|
|
buffer[i-1] = '\n';
|
|
else break;
|
|
}
|
|
else if (i >= BUF_SIZE-1) {
|
|
fprintf(stderr, "lua: argument line too long\n");
|
|
break;
|
|
}
|
|
else buffer[i++] = c;
|
|
}
|
|
buffer[i] = 0;
|
|
lua_dostring(buffer);
|
|
lua_endblock();
|
|
}
|
|
printf("\n");
|
|
}
|
|
else
|
|
lua_dofile(NULL); /* executes stdin as a file */
|
|
}
|
|
|
|
|
|
int main (int argc, char *argv[])
|
|
{
|
|
int i;
|
|
setlocale(LC_ALL, "");
|
|
lua_iolibopen();
|
|
lua_strlibopen();
|
|
lua_mathlibopen();
|
|
lua_pushstring("> "); lua_setglobal("_PROMPT");
|
|
if (argc < 2) {
|
|
printf("%s %s\n", LUA_VERSION, LUA_COPYRIGHT);
|
|
manual_input(1);
|
|
}
|
|
else for (i=1; i<argc; i++) {
|
|
if (strcmp(argv[i], "-") == 0)
|
|
manual_input(1);
|
|
else if (strcmp(argv[i], "-q") == 0)
|
|
manual_input(0);
|
|
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);
|
|
else if (strcmp(argv[i], "-e") == 0) {
|
|
i++;
|
|
if (lua_dostring(argv[i]) != 0) {
|
|
fprintf(stderr, "lua: error running argument `%s'\n", argv[i]);
|
|
return 1;
|
|
}
|
|
}
|
|
else if (strchr(argv[i], '='))
|
|
assign(argv[i]);
|
|
else {
|
|
int result = lua_dofile(argv[i]);
|
|
if (result) {
|
|
if (result == 2) {
|
|
fprintf(stderr, "lua: cannot execute file ");
|
|
perror(argv[i]);
|
|
}
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
#ifdef DEBUG
|
|
lua_close();
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
|