mirror of https://github.com/rusefi/lua.git
"exit" has an optional parameter of status.
This commit is contained in:
parent
0ef5cf2289
commit
f37e65d1cb
7
iolib.c
7
iolib.c
|
@ -3,7 +3,7 @@
|
||||||
** Input/output library to LUA
|
** Input/output library to LUA
|
||||||
*/
|
*/
|
||||||
|
|
||||||
char *rcs_iolib="$Id: iolib.c,v 1.39 1996/03/14 15:55:18 roberto Exp roberto $";
|
char *rcs_iolib="$Id: iolib.c,v 1.40 1996/03/19 22:28:37 roberto Exp roberto $";
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
|
@ -529,9 +529,8 @@ static void io_date (void)
|
||||||
static void io_exit (void)
|
static void io_exit (void)
|
||||||
{
|
{
|
||||||
lua_Object o = lua_getparam(1);
|
lua_Object o = lua_getparam(1);
|
||||||
if (lua_isstring(o))
|
int code = lua_isnumber(o) ? (int)lua_getnumber(o) : 1;
|
||||||
fprintf(stderr, "%s\n", lua_getstring(o));
|
exit(code);
|
||||||
exit(1);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
|
Loading…
Reference in New Issue