Function lua_getstack

src/Chain/libraries/glua/ldebug.cpp:133–147

LUA_API int lua_getstack(lua_State *L, int level, lua_Debug *ar) {
    int status;
    CallInfo *ci;
    if (level < 0) return 0;  /* invalid (negative) level */
    lua_lock(L);
    for (ci = L->ci; level > 0 && ci != &L->base_ci; ci = ci->previous)
        level--;
    if (level == 0 && ci != &L->base_ci) {  /* level found? */
        status = 1;
        ar->i_ci = ci;
    }
    else status = 0;  /* no such level */
    lua_unlock(L);
    return status;
}


static const char *upvalname(Proto *p, int uv) {