| 71 | |
| 72 | |
| 73 | LUALIB_API void luaL_where (lua_State *L, int level) { |
| 74 | lua_Debug ar; |
| 75 | if (lua_getstack(L, level, &ar)) { /* check function at level */ |
| 76 | lua_getinfo(L, "Sl", &ar); /* get info about it */ |
| 77 | if (ar.currentline > 0) { /* is there info? */ |
| 78 | lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline); |
| 79 | return; |
| 80 | } |
| 81 | } |
| 82 | lua_pushliteral(L, ""); /* else, no information available... */ |
| 83 | } |
| 84 | |
| 85 | |
| 86 | LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) { |
no test coverage detected