改造Lua的debug.traceback() 让其显示栈上所有的局部变量

改造Lua的debug.traceback() 让其显示栈上所有的局部变量

1. function tracebackex()  
2. local ret = ""  
3. local level = 2  
4. ret = ret .. "stack traceback:\n"  
5. while true do  
6.    --get stack info  
7.    local info = debug.getinfo(level, "Sln")  
8.    if not info then break end  
9.    if info.what == "C" then                -- C function  
10.     ret = ret .. tostring(level) .. "\tC function\n"  
11.    else           -- Lua function  
12.     ret = ret .. string.format("\t[%s]:%d in function `%s`\n", info.short_src, info.currentline, info.name or "")  
13.    end  
14.    --get local vars  
15.    local i = 1  
16.    while true do  
17.     local name, value = debug.getlocal(level, i)  
18.     if not name then break end  
19.     ret = ret .. "\t\t" .. name .. " =\t" .. tostringex(value, 3) .. "\n"  
20.     i = i + 1  
21.    end    
22.    level = level + 1  
23. end  
24. return ret  
25. end  
26.   
27. function tostringex(v, len)  
28. if len == nil then len = 0 end  
29. local pre = string.rep('\t', len)  
30. local ret = ""  
31. if type(v) == "table" then  
32.    if len > 5 then return "\t{ ... }" end  
33.    local t = ""  
34.    for k, v1 in pairs(v) do  
35.     t = t .. "\n\t" .. pre .. tostring(k) .. ":"  
36.     t = t .. tostringex(v1, len + 1)  
37.    end  
38.    if t == "" then  
39.     ret = ret .. pre .. "{ }\t(" .. tostring(v) .. ")"  
40.    else  
41.     if len > 0 then  
42.      ret = ret .. "\t(" .. tostring(v) .. ")\n"  
43.     end  
44.     ret = ret .. pre .. "{" .. t .. "\n" .. pre .. "}"  
45.    end  
46. else  
47.    ret = ret .. pre .. tostring(v) .. "\t(" .. type(v) .. ")"  
48. end  
49. return ret  
50. end