1 루아 스택 출력하기

void print_stack(lua_State* L)
{
    int top = lua_gettop(L);
    for (int i=top; i>=1; --i)
    {
        printf("%02d | ", i);
        switch (lua_type(L, i))
        {
        case LUA_TNIL:
            printf("nil      | \n");
            break;
        case LUA_TBOOLEAN:
            printf("boolean  | %d\n", (int)lua_toboolean(L, i));
            break;
        case LUA_TNUMBER:
            printf("number   | %f\n", lua_tonumber(L, i));
            break;
        case LUA_TSTRING:
            printf("string   | %s\n", lua_tostring(L, i));
            break;
        case LUA_TTABLE:
            printf("table    | 0x%08x\n", (int)lua_topointer(L, i));
            break;
        case LUA_TFUNCTION:
            printf("function | 0x%08x\n", (int)lua_topointer(L, i));
            break;
        case LUA_TUSERDATA:
            printf("userdata | 0x%08x\n", (int)lua_topointer(L, i));
            break;
        case LUA_TTHREAD:
            printf("thread   | 0x%08x\n", (int)lua_topointer(L, i));
            break;
        default:
            printf("unknown  | \n");
            break;
        }
    }
}

function print_all_symbols(t, indent, printed)
    assert(type(t) == "table")
    assert(type(indent) == "number")
    assert(type(printed) == "table")
    
    if printed[t] then return end
    
    printed[t] = true

    local prefix = ""
    for i=0,indent do
        prefix = prefix .. "    "
    end

    for key, value in pairs(t) do
        print(prefix .. tostring(key) .. "=" .. tostring(value))
        if type(value) == "table" then
            print_all_symbols(value, indent+1, printed)
        end
    end
end

print_all_symbols(_G, 0, {})

2 assert, error, debug.trackback

3 에러 발생시 콜스택 얻어내기

//////////////////////////////////////////////////////////////////////////////
/// \brief 버퍼 안에 있는 스크립트를 실행한다.
/// \param script 실행할 스크립트
/// \param chunkname 스크립트의 이름. 에러가 생긴 경우, 디버그용으로
/// chunkname이 출력된다. 그러므로 어느 정도는 의미가 있는 값을 줄 것.
/// \return bool 스크립트를 무사히 실행한 경우에는 false를 반환하고, 무언가
/// 에러가 생긴 경우에는 true를 반환한다.
//////////////////////////////////////////////////////////////////////////////
bool execute(lua_State* L, const string& script, const string& chunkname)
{
    // 먼저 스크립트를 파싱해서 청크를 만든 다음, 스택에 푸쉬
    if (luaL_loadbuffer(L, script.c_str(), script.size(), chunkname.c_str()))
    {
        // 파싱 실패!
        return true;
    }

    // 트레이스 함수를 위에서 파싱한 청크 밑에다 끼워넣는다.
    // 트레이스 함수는 전역 테이블에 "_TRACEBACK"이란 이름으로 들어가있다.
    int base = lua_gettop(L);
    lua_getglobal(L, "_TRACEBACK");
    lua_insert(L, base);

    // 실행한다.
    return lua_pcall(L, 0, 0, base) != 0;
}

[string "D:\Cuvit\Stools\SIDE\script\test.lua"]:16: too many players (4 max) 
stack traceback 
    [C]: in function 'PLAYER_CREATE' 
    [string "D:\Cuvit\Stools\SIDE\Script\test.lua"]:16:in main chunk

4 코루틴(coroutine) 내부에서 문제가 발생했을 때 알아내기

coroutine.resume(co)

success, msg = coroutine.resume(co)

[string "CHUNKNAME"]:LINE: ERRORMSG

void LuaAPI::debugmsg(ostream& os, const string& msg, const string& script)
{
    // 에러 발생 시 루아가 리턴하는 에러 메시지의 포맷은 다음과 같다.
    // [string "CHUNKNAME"]:LINE: ERRORMSG
    // 그러므로 "\"]:" 문자열을 찾은 뒤, 그 다음의 ":" 문자열을 찾고,
    // 그 사이의 문자열을 숫자로 변환하면 라인 번호가 된다.
    size_t line_begin  = msg.find("\"]:", 0);
    size_t line_end    = msg.find(":", line_begin+3);
    string line_string = msg.substr(line_begin+3, line_end - line_begin - 3);
    int    line        = atoi(line_string.c_str());

    os << "!!! SCRIPT ERROR OCCURRED !!!!" << endl;
    os << "=== SCRIPT ERROR MSG >>>" << endl << msg << endl;
    os << "=== SCRIPT ERROR OCCURRED LINE >>>" << endl;
    for (int i=__max(1, line-2); i<=line+2; i++)
    {
        if (i == line) os << ">> " << setw(3) << MUtil::itos(i) << "| ";
        else           os << "   " << setw(3) << MUtil::itos(i) << "| ";
        string nth = MUtil::nthline(script, (size_t)i);
        if (nth.size() < 65) os << nth << endl;
        else                 os << nth.substr(0, 65) << " [...]" << endl;
    }
}

5 스크립트 처리 중 에러 발생시 C 함수 호출하기

lauxlib.c

...생략...
static void callalert (lua_State *L, int status) 
{
    if (status != 0) {
        lua_getglobal(L, "_ALERT");
        if (lua_isfunction(L, -1)) {
            lua_insert(L, -2);
            lua_call(L, 1, 0);
        }
        else {  
            /* no _ALERT function; print it on stderr */
            fprintf(stderr, "%s\n", lua_tostring(L, -2));
            lua_pop(L, 2);  /* remove error message and _ALERT */
        }
    }
}
...생략...

int myAlert(lua_State* L)
{
    string error_msg = string(lua_tostring(L, -1));
    cerr << error_msg << endl;
    return 0;
}

...생략...

lua_pushcfunction(L, myAlert);
lua_setglobal(L, "_ALERT");

see also Lua

CategoryLanguage

FindPage by browsing, title search , text search or an index
Or try one of these actions: AttachFile, DeletePage, LikePages, LocalSiteMap, RenamePage, SpellCheck

SeriousMoin v1 (koMoinMoin 1.0a4 Modified)