Method dump_state

ogsr_engine/COMMON_AI/script_engine.cpp:324–365

//*********************************************************************************************
void CScriptEngine::dump_state()
{
    static bool reentrantGuard = false;
    if (reentrantGuard)
        return;
    reentrantGuard = true;

    lua_State* L = lua();
    lua_Debug l_tDebugInfo;
    for (int i = 0; lua_getstack(L, i, &l_tDebugInfo); ++i)
    {
        lua_getinfo(L, "nSlu", &l_tDebugInfo);

        if (!xr_strcmp(l_tDebugInfo.what, "C"))
        {
            Msg("%2d : [C  ] %s", i, l_tDebugInfo.name ? l_tDebugInfo.name : "");
        }
        else
        {
            string_path temp;
            if (l_tDebugInfo.name)
                xr_sprintf(temp, "%s(%d)", l_tDebugInfo.name, l_tDebugInfo.linedefined);
            else
                xr_sprintf(temp, "function <%s:%d>", l_tDebugInfo.short_src, l_tDebugInfo.linedefined);

            Msg("%2d : [%3s] %s(%d) : %s", i, l_tDebugInfo.what, l_tDebugInfo.short_src, l_tDebugInfo.currentline, temp);
        }

        Msg("\tLocals:");
        const char* name;
        int VarID = 1;
        while ((name = lua_getlocal(L, &l_tDebugInfo, VarID++)) != NULL)
        {
            LogVariable(L, name, 1);

            lua_pop(L, 1); /* remove variable value */
        }
        m_dumpedObjList.clear();
        Msg("\tEnd");
    }
    reentrantGuard = false;
}

void CScriptEngine::LogTable(lua_State* l, LPCSTR S, int level)
{