| 289 | |
| 290 | |
| 291 | LUALIB_API int luaL_execresult (lua_State *L, int stat) { |
| 292 | if (stat != 0 && errno != 0) /* error with an 'errno'? */ |
| 293 | return luaL_fileresult(L, 0, NULL); |
| 294 | else { |
| 295 | const char *what = "exit"; /* type of termination */ |
| 296 | l_inspectstat(stat, what); /* interpret result */ |
| 297 | if (*what == 'e' && stat == 0) /* successful termination? */ |
| 298 | lua_pushboolean(L, 1); |
| 299 | else |
| 300 | luaL_pushfail(L); |
| 301 | lua_pushstring(L, what); |
| 302 | lua_pushinteger(L, stat); |
| 303 | return 3; /* return true/fail,what,code */ |
| 304 | } |
| 305 | } |
| 306 | |
| 307 | /* }====================================================== */ |
| 308 |
no test coverage detected