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

new option `-c' to close lua.

This commit is contained in:
Roberto Ierusalimschy 2000-05-10 14:00:21 -03:00
parent dc1e4f5073
commit 8ac0bbf64b
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lua.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lua.c,v 1.36 2000/03/30 17:19:48 roberto Exp roberto $
** $Id: lua.c,v 1.37 2000/04/14 17:46:29 roberto Exp roberto $
** Lua stand-alone interpreter
** See Copyright Notice in lua.h
*/
@ -69,6 +69,7 @@ static void print_message (void) {
fprintf(stderr,
"usage: lua [options]. Available options are:\n"
" - execute stdin as a file\n"
" -c close lua when exiting\n"
" -d turn debug on\n"
" -e stat execute string `stat'\n"
" -f name execute file `name' with remaining arguments in table `arg'\n"
@ -166,12 +167,14 @@ static void manual_input (int version, int prompt) {
int main (int argc, char *argv[]) {
int toclose = 0;
int status = EXIT_SUCCESS;
int i = 1;
if (i < argc && argv[1][0] == '-' && argv[1][1] == 's') {
int stacksize = atoi(&argv[1][2]);
if (stacksize == 0) {
fprintf(stderr, "lua: invalid stack size ('%s')\n", &argv[1][2]);
exit(1);
exit(EXIT_FAILURE);
}
i++;
lua_state = lua_newstate("stack", stacksize, NULL);
@ -207,6 +210,9 @@ int main (int argc, char *argv[]) {
manual_input(1, 1);
}
break;
case 'c':
toclose = 1;
break;
case 'v':
print_version();
break;
@ -214,18 +220,18 @@ int main (int argc, char *argv[]) {
i++;
if (i >= argc) {
print_message();
exit(1);
status = EXIT_FAILURE; goto endloop;
}
if (ldo(lua_dostring, argv[i]) != 0) {
fprintf(stderr, "lua: error running argument `%s'\n", argv[i]);
exit(1);
status = EXIT_FAILURE; goto endloop;
}
break;
case 'f':
i++;
if (i >= argc) {
print_message();
exit(1);
status = EXIT_FAILURE; goto endloop;
}
lua_pushobject(getargs(argv+i)); /* collect remaining arguments */
lua_setglobal("arg");
@ -234,10 +240,10 @@ int main (int argc, char *argv[]) {
break;
case 's':
fprintf(stderr, "lua: stack size (`-s') must be the first option\n");
exit(1);
status = EXIT_FAILURE; goto endloop;
default:
print_message();
exit(1);
status = EXIT_FAILURE; goto endloop;
}
}
else if (strchr(argv[i], '='))
@ -246,9 +252,8 @@ int main (int argc, char *argv[]) {
file_input(argv[i]);
}
endloop:
#ifdef DEBUG
lua_close();
#endif
return 0;
if (toclose)
lua_close();
return status;
}