Method LogVariable

ogsr_engine/COMMON_AI/script_engine.cpp:418–490

}

void CScriptEngine::LogVariable(lua_State* l, const char* name, int level)
{
    const char* type;
    int ntype = lua_type(l, -1);
    type = lua_typename(l, ntype);

    auto tabBuffer = std::make_unique<char[]>(level + 1);
    memset(tabBuffer.get(), '\t', level);

    char value[128];

    switch (ntype)
    {
    case LUA_TFUNCTION: xr_strcpy(value, "[[function]]"); break;

    case LUA_TTHREAD: xr_strcpy(value, "[[thread]]"); break;

    case LUA_TNUMBER: xr_sprintf(value, "%f", lua_tonumber(l, -1)); break;

    case LUA_TBOOLEAN: xr_sprintf(value, "%s", lua_toboolean(l, -1) ? "true" : "false"); break;

    case LUA_TSTRING: xr_sprintf(value, "%.127s", lua_tostring(l, -1)); break;

    case LUA_TTABLE:
        if (level <= 3)
        {
            Msg("%s Table: %s", tabBuffer.get(), name);
            LogTable(l, name, level + 1);
            return;
        }
        else
        {
            xr_sprintf(value, "[...]");
        }
        break;

    case LUA_TUSERDATA: {
        auto obj = static_cast<luabind::detail::object_rep*>(lua_touserdata(l, -1));

        // Skip already dumped object
        if (m_dumpedObjList.find(obj) != m_dumpedObjList.end())
            return;
        m_dumpedObjList.insert(obj);

        auto& r = obj->get_lua_table();
        if (r.is_valid())
        {
            r.get(l);
            Msg("%s Userdata: %s", tabBuffer.get(), name);
            LogTable(l, name, level + 1);
            lua_pop(l, 1); // Remove userobject
            return;
        }
        else
        {
            // Dump class and element pointer if available
            if (const auto objectClass = obj->crep())
            {