| 75 | |
| 76 | |
| 77 | static void pushfuncname (lua_State *L, lua_Debug *ar) { |
| 78 | if (*ar->namewhat != '\0') /* is there a name? */ |
| 79 | lua_pushfstring(L, "function " LUA_QS, ar->name); |
| 80 | else if (*ar->what == 'm') /* main? */ |
| 81 | lua_pushliteral(L, "main chunk"); |
| 82 | else if (*ar->what == 'C') { |
| 83 | if (pushglobalfuncname(L, ar)) { |
| 84 | lua_pushfstring(L, "function " LUA_QS, lua_tostring(L, -1)); |
| 85 | lua_remove(L, -2); /* remove name */ |
| 86 | } |
| 87 | else |
| 88 | lua_pushliteral(L, "?"); |
| 89 | } |
| 90 | else |
| 91 | lua_pushfstring(L, "function <%s:%d>", ar->short_src, ar->linedefined); |
| 92 | } |
| 93 | |
| 94 | |
| 95 | static int countlevels (lua_State *L) { |
no test coverage detected