84 LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) {  in lua_getstack()  argument
95     ar->i_ci = cast_int(ci - L->base_ci);  in lua_getstack()
99     ar->i_ci = 0;  in lua_getstack()
127 LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n) {  in lua_getlocal()  argument
128   CallInfo *ci = L->base_ci + ar->i_ci;  in lua_getlocal()
138 LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n) {  in lua_setlocal()  argument
139   CallInfo *ci = L->base_ci + ar->i_ci;  in lua_setlocal()
150 static void funcinfo (lua_Debug *ar, Closure *cl) {  in funcinfo()  argument
152     ar->source = "=[C]";  in funcinfo()
153     ar->linedefined = -1;  in funcinfo()
154     ar->lastlinedefined = -1;  in funcinfo()
155     ar->what = "C";  in funcinfo()
158     ar->source = getstr(cl->l.p->source);  in funcinfo()
159     ar->linedefined = cl->l.p->linedefined;  in funcinfo()
160     ar->lastlinedefined = cl->l.p->lastlinedefined;  in funcinfo()
161     ar->what = (ar->linedefined == 0) ? "main" : "Lua";  in funcinfo()
163   luaO_chunkid(ar->short_src, ar->source, LUA_IDSIZE);  in funcinfo()
167 static void info_tailcall (lua_Debug *ar) {  in info_tailcall()  argument
168   ar->name = ar->namewhat = "";  in info_tailcall()
169   ar->what = "tail";  in info_tailcall()
170   ar->lastlinedefined = ar->linedefined = ar->currentline = -1;  in info_tailcall()
171   ar->source = "=(tail call)";  in info_tailcall()
172   luaO_chunkid(ar->short_src, ar->source, LUA_IDSIZE);  in info_tailcall()
173   ar->nups = 0;  in info_tailcall()
193 static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar,  in auxgetinfo()  argument
197     info_tailcall(ar);  in auxgetinfo()
203         funcinfo(ar, f);  in auxgetinfo()
207         ar->currentline = (ci) ? currentline(L, ci) : -1;  in auxgetinfo()
211         ar->nups = f->c.nupvalues;  in auxgetinfo()
215         ar->namewhat = (ci) ? getfuncname(L, ci, &ar->name) : NULL;  in auxgetinfo()
216         if (ar->namewhat == NULL) {  in auxgetinfo()
217           ar->namewhat = "";  /* not found */  in auxgetinfo()
218           ar->name = NULL;  in auxgetinfo()
232 LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) {  in lua_getinfo()  argument
244   else if (ar->i_ci != 0) {  /* no tail call? */  in lua_getinfo()
245     ci = L->base_ci + ar->i_ci;  in lua_getinfo()
249   status = auxgetinfo(L, what, ar, f, ci);  in lua_getinfo()