commit 8ac0bbf64b93a672c6f29c2d96d22d727035e9ed
parent dc1e4f50734705830c3fbae3c3d643184d6614ff
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 10 May 2000 13:59:59 -0300
new option `-c' to close lua.
Diffstat:
M | lua.c | | | 27 | ++++++++++++++++----------- |
1 file changed, 16 insertions(+), 11 deletions(-)
diff --git a/lua.c b/lua.c
@@ -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;
}