nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

error codes as strings for dofile and dostring

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2000-09-12 10:49:05 -03:00
parent d1c351857d
commit 5d69960734
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lbaselib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: $ ** $Id: lbaselib.c,v 1.1 2000/09/05 19:33:56 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -217,6 +217,8 @@ static int luaB_next (lua_State *L) {
static int passresults (lua_State *L, int status, int oldtop) { static int passresults (lua_State *L, int status, int oldtop) {
static const char *const errornames[] =
{"OK", "RUN-TIME ERROR", "FILE ERROR", "SYNTAX ERROR", "MEMORY ERROR"};
if (status == 0) { if (status == 0) {
int nresults = lua_gettop(L) - oldtop; int nresults = lua_gettop(L) - oldtop;
if (nresults > 0) if (nresults > 0)
@@ -228,7 +230,7 @@ static int passresults (lua_State *L, int status, int oldtop) {
} }
else { /* error */ else { /* error */
lua_pushnil(L); lua_pushnil(L);
lua_pushnumber(L, status); /* error code */ lua_pushstring(L, errornames[status]); /* error code */
return 2; return 2;
} }
} }