Function lua_getinfo

src/Chain/libraries/glua/ldebug.cpp:322–352

LUA_API int lua_getinfo(lua_State *L, const char *what, lua_Debug *ar) {
    int status;
    Closure *cl;
    CallInfo *ci;
    StkId func;
    lua_lock(L);
    swapextra(L);
    if (*what == '>') {
        ci = nullptr;
        func = L->top - 1;
        api_check(L, ttisfunction(func), "function expected");
        what++;  /* skip the '>' */
        L->top--;  /* pop function */
    }
    else {
        ci = ar->i_ci;
        func = ci->func;
        lua_assert(ttisfunction(ci->func));
    }
    cl = ttisclosure(func) ? clvalue(func) : nullptr;
    status = auxgetinfo(L, what, ar, cl, ci);
    if (strchr(what, 'f')) {
        setobjs2s(L, L->top, func);
        api_incr_top(L);
    }
    swapextra(L);  /* correct before option 'L', which can raise a mem. error */
    if (strchr(what, 'L'))
        collectvalidlines(L, cl);
    lua_unlock(L);
    return status;
}


/*