Tercio
27817f34d9
- fixed issue with micro displays were sometimes did lua error. - fixed a issue when reporting to a instance group didn't work. - fixes on siege of orgrimmar raid info. - major fixes and improvements on internal garbage collector. - added options for background alpha and window alpha. - now when editing a image, the instance background changes on-the-fly. - now if no instance have current segment when a combat start, the lower instance will switch to current. - added a option for disable the auto switch to current. - added the time type when reporting damage or healing done. - added a format phrase when reporting damage or healing done. - added a option for hide the micro display. - added options for memory were the core changes within the value. - little redesign on segments menu.
782 lines
24 KiB
Lua
782 lines
24 KiB
Lua
|
|
|
|
local _detalhes = _G._detalhes
|
|
local Loc = LibStub ("AceLocale-3.0"):GetLocale ( "Details" )
|
|
|
|
local CreateFrame = CreateFrame
|
|
local pairs = pairs
|
|
local UIParent = UIParent
|
|
local UnitGUID = UnitGUID
|
|
local tonumber= tonumber
|
|
local LoggingCombat = LoggingCombat
|
|
|
|
SLASH_DETAILS1, SLASH_DETAILS2, SLASH_DETAILS3 = "/details", "/dt", "/d"
|
|
|
|
function SlashCmdList.DETAILS (msg, editbox)
|
|
|
|
local command, rest = msg:match("^(%S*)%s*(.-)$")
|
|
|
|
if (command == Loc ["STRING_SLASH_NEW"]) then
|
|
|
|
_detalhes:CriarInstancia()
|
|
|
|
elseif (command == Loc ["STRING_SLASH_SHOW"]) then
|
|
|
|
if (_detalhes.opened_windows == 0) then
|
|
_detalhes:CriarInstancia()
|
|
end
|
|
|
|
elseif (command == Loc ["STRING_SLASH_DISABLE"]) then
|
|
|
|
_detalhes:CaptureSet (false, "damage", true)
|
|
_detalhes:CaptureSet (false, "heal", true)
|
|
_detalhes:CaptureSet (false, "energy", true)
|
|
_detalhes:CaptureSet (false, "miscdata", true)
|
|
_detalhes:CaptureSet (false, "aura", true)
|
|
print (Loc ["STRING_DETAILS1"] .. Loc ["STRING_SLASH_CAPTUREOFF"])
|
|
|
|
elseif (command == Loc ["STRING_SLASH_ENABLE"]) then
|
|
|
|
_detalhes:CaptureSet (true, "damage", true)
|
|
_detalhes:CaptureSet (true, "heal", true)
|
|
_detalhes:CaptureSet (true, "energy", true)
|
|
_detalhes:CaptureSet (true, "miscdata", true)
|
|
_detalhes:CaptureSet (true, "aura", true)
|
|
print (Loc ["STRING_DETAILS1"] .. Loc ["STRING_SLASH_CAPTUREON"])
|
|
|
|
elseif (command == Loc ["STRING_SLASH_OPTIONS"]) then
|
|
|
|
if (rest and tonumber (rest)) then
|
|
local instanceN = tonumber (rest)
|
|
if (instanceN > 0 and instanceN <= #_detalhes.tabela_instancias) then
|
|
local instance = _detalhes:GetInstance (instanceN)
|
|
_detalhes:OpenOptionsWindow (instance)
|
|
end
|
|
else
|
|
local lower_instance = _detalhes:GetLowerInstanceNumber()
|
|
print (_detalhes:GetInstance (lower_instance))
|
|
_detalhes:OpenOptionsWindow (_detalhes:GetInstance (lower_instance))
|
|
end
|
|
|
|
|
|
-------- debug ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
elseif (msg == "copy") then
|
|
_G.DetailsCopy:Show()
|
|
_G.DetailsCopy.MyObject.text:HighlightText()
|
|
_G.DetailsCopy.MyObject.text:SetFocus()
|
|
|
|
elseif (msg == "raid") then
|
|
|
|
local player, realm = "Marleyieu", "Azralon"
|
|
|
|
local actorName
|
|
if (realm ~= GetRealmName()) then
|
|
actorName = player.."-"..realm
|
|
else
|
|
actorName = player
|
|
end
|
|
|
|
print (actorName)
|
|
|
|
local guid = _detalhes:FindGUIDFromName ("Marleyieu")
|
|
print (guid)
|
|
|
|
for i = 1, GetNumGroupMembers()-1, 1 do
|
|
local name, realm = UnitName ("party"..i)
|
|
print (name, " -- ", realm)
|
|
end
|
|
|
|
elseif (msg == "cacheparser") then
|
|
_detalhes:PrintParserCacheIndexes()
|
|
elseif (msg == "parsercache") then
|
|
_detalhes:PrintParserCacheIndexes()
|
|
|
|
elseif (msg == "captures") then
|
|
for k, v in pairs (_detalhes.capture_real) do
|
|
print ("real -",k,":",v)
|
|
end
|
|
for k, v in pairs (_detalhes.capture_current) do
|
|
print ("current -",k,":",v)
|
|
end
|
|
|
|
elseif (msg == "slider") then
|
|
|
|
local f = CreateFrame ("frame", "TESTEDESCROLL", UIParent)
|
|
f:SetPoint ("center", UIParent, "center", 200, -2)
|
|
f:SetWidth (300)
|
|
f:SetHeight (150)
|
|
f:SetBackdrop ({bgFile = "Interface\\AddOns\\Details\\images\\background", tile = true, tileSize = 16, insets = {left = 0, right = 0, top = 0, bottom = 0}})
|
|
f:SetBackdropColor (0, 0, 0, 1)
|
|
f:EnableMouseWheel (true)
|
|
|
|
local rows = {}
|
|
for i = 1, 7 do
|
|
local row = CreateFrame ("frame", nil, UIParent)
|
|
row:SetPoint ("topleft", f, "topleft", 10, -(i-1)*21)
|
|
row:SetWidth (200)
|
|
row:SetHeight (20)
|
|
row:SetBackdrop ({bgFile = "Interface\\AddOns\\Details\\images\\background", tile = true, tileSize = 16, insets = {left = 0, right = 0, top = 0, bottom = 0}})
|
|
local t = row:CreateFontString (nil, "overlay", "GameFontHighlightSmall")
|
|
t:SetPoint ("left", row, "left")
|
|
row.text = t
|
|
rows [#rows+1] = row
|
|
end
|
|
|
|
local data = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}
|
|
|
|
|
|
|
|
elseif (msg == "bcollor") then
|
|
|
|
--local instancia = _detalhes.tabela_instancias [1]
|
|
_detalhes.ResetButton.Middle:SetVertexColor (1, 1, 0, 1)
|
|
|
|
--print (_detalhes.ResetButton:GetHighlightTexture())
|
|
|
|
local t = _detalhes.ResetButton:GetHighlightTexture()
|
|
t:SetVertexColor (0, 1, 0, 1)
|
|
--print (t:GetObjectType())
|
|
--_detalhes.ResetButton:SetHighlightTexture (t)
|
|
_detalhes.ResetButton:SetNormalTexture (t)
|
|
|
|
print ("backdrop", _detalhes.ResetButton:GetBackdrop())
|
|
|
|
_detalhes.ResetButton:SetBackdropColor (0, 0, 1, 1)
|
|
|
|
--vardump (_detalhes.ResetButton)
|
|
|
|
elseif (msg == "alert") then
|
|
|
|
local instancia = _detalhes.tabela_instancias [1]
|
|
local f = function() print ("teste") end
|
|
instancia:InstanceAlert (Loc ["STRING_PLEASE_WAIT"], {[[Interface\COMMON\StreamCircle]], 22, 22, true}, 5, {f, "param1", "param2"})
|
|
|
|
|
|
elseif (msg == "comm") then
|
|
|
|
if (IsInRaid()) then
|
|
for i = 1, GetNumGroupMembers() do
|
|
local nname, server = UnitName ("raid"..i)
|
|
print (nname, server)
|
|
--nname = nname.."-"..server
|
|
end
|
|
end
|
|
|
|
elseif (msg == "teste") then
|
|
|
|
local a, b = _detalhes:GetEncounterEnd (1098, 3)
|
|
print (a, unpack (b))
|
|
|
|
elseif (msg == "yesno") then
|
|
--_detalhes:Show()
|
|
|
|
elseif (msg == "imageedit") then
|
|
|
|
local callback = function (width, height, overlayColor, alpha, texCoords)
|
|
print (width, height, alpha)
|
|
print ("overlay: ", unpack (overlayColor))
|
|
print ("crop: ", unpack (texCoords))
|
|
end
|
|
|
|
_detalhes.gump:ImageEditor (callback, "Interface\\TALENTFRAME\\bg-paladin-holy", nil, {1, 1, 1, 1}) -- {0.25, 0.25, 0.25, 0.25}
|
|
|
|
elseif (msg == "chat") then
|
|
|
|
local name, fontSize, r, g, b, a, shown, locked = FCF_GetChatWindowInfo (1);
|
|
print (name,"|",fontSize,"|", r,"|", g,"|", b,"|", a,"|", shown,"|", locked)
|
|
|
|
--local fontFile, unused, fontFlags = self:GetFont();
|
|
--self:SetFont(fontFile, fontSize, fontFlags);
|
|
|
|
elseif (msg == "error") then
|
|
a = nil + 1
|
|
|
|
--> debug
|
|
elseif (command == "resetcapture") then
|
|
_detalhes.capture_real = {
|
|
["damage"] = true,
|
|
["heal"] = true,
|
|
["energy"] = true,
|
|
["miscdata"] = true,
|
|
["aura"] = true,
|
|
}
|
|
_detalhes.capture_current = _detalhes.capture_real
|
|
_detalhes:CaptureRefresh()
|
|
|
|
--> debug
|
|
elseif (msg == "opened") then
|
|
print ("Instances opened: " .. _detalhes.opened_windows)
|
|
|
|
--> debug, get a guid of something
|
|
elseif (command == "myguid") then --> localize-me
|
|
|
|
local g = UnitGUID ("player")
|
|
print (type (g))
|
|
print (g)
|
|
print (string.len (g))
|
|
local serial = g:sub (12, 18)
|
|
serial = tonumber ("0x"..serial)
|
|
print (serial)
|
|
|
|
--tonumber((UnitGUID("target")):sub(-12, -9), 16))
|
|
|
|
elseif (command == "guid") then --> localize-me
|
|
|
|
local pass_guid = rest:match("^(%S*)%s*(.-)$")
|
|
|
|
if (not _detalhes.id_frame) then
|
|
|
|
local backdrop = {
|
|
bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
|
|
edgeFile = "Interface\\ChatFrame\\ChatFrameBackground",
|
|
tile = true, edgeSize = 1, tileSize = 5,
|
|
}
|
|
|
|
_detalhes.id_frame = CreateFrame ("Frame", "DetailsID", UIParent)
|
|
_detalhes.id_frame:SetHeight(14)
|
|
_detalhes.id_frame:SetWidth(120)
|
|
_detalhes.id_frame:SetPoint ("center", UIParent, "center")
|
|
_detalhes.id_frame:SetBackdrop(backdrop)
|
|
|
|
tinsert (UISpecialFrames, "DetailsID")
|
|
|
|
_detalhes.id_frame.texto = CreateFrame ("editbox", nil, _detalhes.id_frame)
|
|
_detalhes.id_frame.texto:SetPoint ("topleft", _detalhes.id_frame, "topleft")
|
|
_detalhes.id_frame.texto:SetAutoFocus(false)
|
|
_detalhes.id_frame.texto:SetFontObject (GameFontHighlightSmall)
|
|
_detalhes.id_frame.texto:SetHeight(14)
|
|
_detalhes.id_frame.texto:SetWidth(120)
|
|
_detalhes.id_frame.texto:SetJustifyH("CENTER")
|
|
_detalhes.id_frame.texto:EnableMouse(true)
|
|
_detalhes.id_frame.texto:SetBackdrop(ManualBackdrop)
|
|
_detalhes.id_frame.texto:SetBackdropColor(0, 0, 0, 0.5)
|
|
_detalhes.id_frame.texto:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80)
|
|
_detalhes.id_frame.texto:SetText ("") --localize-me
|
|
_detalhes.id_frame.texto.perdeu_foco = nil
|
|
|
|
_detalhes.id_frame.texto:SetScript ("OnEnterPressed", function ()
|
|
_detalhes.id_frame.texto:ClearFocus()
|
|
_detalhes.id_frame:Hide()
|
|
end)
|
|
|
|
_detalhes.id_frame.texto:SetScript ("OnEscapePressed", function()
|
|
_detalhes.id_frame.texto:ClearFocus()
|
|
_detalhes.id_frame:Hide()
|
|
end)
|
|
|
|
end
|
|
|
|
_detalhes.id_frame:Show()
|
|
|
|
if (pass_guid == "-") then
|
|
local guid = UnitGUID ("target")
|
|
if (guid) then
|
|
print (guid.. " -> " .. tonumber (guid:sub(6, 10), 16))
|
|
_detalhes.id_frame.texto:SetText (""..tonumber (guid:sub(6, 10), 16))
|
|
_detalhes.id_frame.texto:HighlightText()
|
|
end
|
|
|
|
else
|
|
print (pass_guid.. " -> " .. tonumber (pass_guid:sub(6, 10), 16))
|
|
_detalhes.id_frame.texto:SetText (""..tonumber (pass_guid:sub(6, 10), 16))
|
|
_detalhes.id_frame.texto:HighlightText()
|
|
end
|
|
|
|
|
|
--> debug
|
|
elseif (msg == "id") then
|
|
local one, two = rest:match("^(%S*)%s*(.-)$")
|
|
if (one ~= "") then
|
|
print("NPC ID:", one:sub(-12, -9), 16)
|
|
print("NPC ID:", tonumber((one):sub(-12, -9), 16))
|
|
else
|
|
print("NPC ID:", tonumber((UnitGUID("target")):sub(-12, -9), 16) )
|
|
end
|
|
|
|
--> debug
|
|
elseif (msg == "debug") then
|
|
if (_detalhes.debug) then
|
|
_detalhes.debug = false
|
|
_detalhes:Msg ("diagnostic mode has been turned off.")
|
|
else
|
|
_detalhes.debug = true
|
|
_detalhes:Msg ("diagnostic mode has been turned on.")
|
|
end
|
|
|
|
--> debug combat log
|
|
elseif (msg == "combatlog") then
|
|
if (_detalhes.isLoggingCombat) then
|
|
LoggingCombat (false)
|
|
print ("Wow combatlog record turned OFF.")
|
|
_detalhes.isLoggingCombat = nil
|
|
else
|
|
LoggingCombat (true)
|
|
print ("Wow combatlog record turned ON.")
|
|
_detalhes.isLoggingCombat = true
|
|
end
|
|
|
|
--> debug
|
|
elseif (msg == "tables") then
|
|
_detalhes:tables()
|
|
|
|
elseif (msg == "gs") then
|
|
_detalhes:teste_grayscale()
|
|
|
|
else
|
|
|
|
--if (_detalhes.opened_windows < 1) then
|
|
-- _detalhes:CriarInstancia()
|
|
--end
|
|
|
|
print (" ")
|
|
print (Loc ["STRING_DETAILS1"] .. Loc ["STRING_COMMAND_LIST"])
|
|
print ("|cffffaeae/details " .. Loc ["STRING_SLASH_NEW"] .. "|r: " .. Loc ["STRING_SLASH_NEW_DESC"])
|
|
print ("|cffffaeae/details " .. Loc ["STRING_SLASH_SHOW"] .. "|r: " .. Loc ["STRING_SLASH_SHOW_DESC"])
|
|
print ("|cffffaeae/details " .. Loc ["STRING_SLASH_ENABLE"] .. "|r: " .. Loc ["STRING_SLASH_ENABLE_DESC"])
|
|
print ("|cffffaeae/details " .. Loc ["STRING_SLASH_DISABLE"] .. "|r: " .. Loc ["STRING_SLASH_DISABLE_DESC"])
|
|
print ("|cffffaeae/details " .. Loc ["STRING_SLASH_OPTIONS"] .. "|r|cfffcffb0 <instance number>|r: " .. Loc ["STRING_SLASH_OPTIONS_DESC"])
|
|
print (" ")
|
|
|
|
end
|
|
end
|
|
|
|
function _detalhes:tables ()
|
|
-- generate a graphviz graph from a lua table structure
|
|
|
|
local string_result = ""
|
|
|
|
local function append( tab, ... )
|
|
for i = 1, select( '#', ... ) do
|
|
tab[ #tab + 1 ] = (select( i, ... ))
|
|
end
|
|
return tab
|
|
end
|
|
|
|
local function abbrev( str, data )
|
|
local escape = "\\\\"
|
|
if data.use_html then
|
|
escape = "\\"
|
|
end
|
|
local s = string.gsub( str, "[^%w?!=/+*-_.:,; ]", function( c )
|
|
-- local s = string.gsub( str, "[^%w_]", function( c )
|
|
return escape .. string.byte( c )
|
|
end )
|
|
if string.len( s ) > 20 then
|
|
s = string.sub( s, 1, 17 ) .. "..."
|
|
end
|
|
return "'" .. s .. "'"
|
|
end
|
|
|
|
local function update_node_depth( val, data, depth )
|
|
data.node2depth[ val ] = math.min( data.node2depth[ val ] or depth, depth )
|
|
end
|
|
|
|
local function define_node( data, node )
|
|
assert( not data.node2id[ node.value ] )
|
|
local id = data.n_nodes
|
|
data.n_nodes = data.n_nodes + 1
|
|
data.node2id[ node.value ] = id
|
|
append( data.nodes, node )
|
|
return id
|
|
end
|
|
|
|
local function define_edge( data, edge )
|
|
append( data.edges, edge )
|
|
end
|
|
|
|
local function get_metatable( val, enabled )
|
|
if enabled then
|
|
if type( debug ) == "table" and
|
|
type( debug.getmetatable ) == "function" then
|
|
return debug.getmetatable( val )
|
|
elseif type( getmetatable ) == "function" then
|
|
return getmetatable( val )
|
|
end
|
|
end
|
|
end
|
|
|
|
local function get_environment( val, enabled )
|
|
if enabled then
|
|
if type( debug ) == "table" and
|
|
type( debug.getfenv ) == "function" then
|
|
return debug.getfenv( val )
|
|
elseif type( getfenv ) == "function" and
|
|
type( val ) == "function" then
|
|
return getfenv( val )
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
|
|
-- generate dot code for references
|
|
local function dottify_metatable_ref( val, id1, mt, id2, data )
|
|
append( data.edges, {
|
|
A = val, A_id = id1,
|
|
B = mt, B_id = id2,
|
|
style = "dashed",
|
|
arrowtail = "odiamond",
|
|
label = "metatable",
|
|
color = "blue"
|
|
} )
|
|
data.nodes[ data.node2id[ val ] ].important = true
|
|
data.nodes[ data.node2id[ mt ] ].important = true
|
|
end
|
|
local function dottify_environment_ref( val, id1, env, id2, data )
|
|
append( data.edges, {
|
|
A = val, A_id = id1,
|
|
B = env, B_id = id2,
|
|
style = "dotted",
|
|
arrowtail = "dot",
|
|
label = "environment",
|
|
color = "red"
|
|
} )
|
|
data.nodes[ data.node2id[ val ] ].important = true
|
|
data.nodes[ data.node2id[ env ] ].important = true
|
|
end
|
|
local function dottify_upvalue_ref( val, id1, upv, id2, data, name )
|
|
append( data.edges, {
|
|
A = val, A_id = id1,
|
|
B = upv, B_id = id2,
|
|
style = "dashed",
|
|
label = name or "#upvalue",
|
|
color = "green"
|
|
} )
|
|
data.nodes[ data.node2id[ val ] ].important = true
|
|
data.nodes[ data.node2id[ upv ] ].important = true
|
|
end
|
|
local function dottify_ref( val1, id1, val2, id2, data )
|
|
append( data.edges, {
|
|
A = val1, A_id = id1,
|
|
B = val2, B_id = id2,
|
|
style = "solid",
|
|
arrowhead = "normal",
|
|
} )
|
|
end
|
|
|
|
|
|
-- forward declarations
|
|
local dottify_table, dottify_userdata, dottify_thread, dottify_function
|
|
|
|
|
|
local function make_label( tab, v, data, id, subid, depth )
|
|
if type( v ) == "table" then
|
|
local id2 = dottify_table( v, data, depth+1 )
|
|
dottify_ref( tab, id..":"..subid, v, id2..":0", data )
|
|
return tostring( v )
|
|
elseif type( v ) == "userdata" then
|
|
local id2 = dottify_userdata( v, data, depth+1 )
|
|
dottify_ref( tab, id..":"..subid, v, id2, data )
|
|
return tostring( v )
|
|
elseif type( v ) == "function" then
|
|
local id2 = dottify_function( v, data, depth+1 )
|
|
dottify_ref( tab, id..":"..subid, v, id2, data )
|
|
return tostring( v )
|
|
elseif type( v ) == "thread" then
|
|
local id2 = dottify_thread( v, data, depth+1 )
|
|
dottify_ref( tab, id..":"..subid, v, id2, data )
|
|
return tostring( v )
|
|
elseif type( v ) == "string" then
|
|
return abbrev( v, data )
|
|
elseif type( v ) == "number" or type( v ) == "boolean" then
|
|
return tostring( v )
|
|
else
|
|
error( "unsupported primitive lua type" )
|
|
end
|
|
end
|
|
|
|
|
|
function dottify_table( tab, data, depth )
|
|
assert( type( tab ) == "table" )
|
|
update_node_depth( tab, data, depth )
|
|
if not data.node2id[ tab ] then
|
|
local node = {
|
|
value = tab
|
|
}
|
|
local id = define_node( data, node )
|
|
local label
|
|
-- build label for this table
|
|
if data.use_html then
|
|
node.shape = "plaintext"
|
|
label = [[<TABLE BORDER="0" CELLBORDER="1" CELLSPACING="0"><TR><TD PORT="0" COLSPAN="2" BGCOLOR="lightgrey">]] .. tostring( tab ) .. [[</TD></TR>]]
|
|
else
|
|
node.shape = "record"
|
|
label = "{ <0> " .. tostring( tab )
|
|
end
|
|
local handled = {}
|
|
local n = 1
|
|
-- first the array part
|
|
for i,v in ipairs( tab ) do
|
|
local el_label = make_label( tab, v, data, id, n, depth )
|
|
if data.use_html then
|
|
label = label .. [[<TR><TD PORT="]] .. n .. [[" COLSPAN="2">]] .. el_label .. [[</TD></TR>]]
|
|
else
|
|
label = label .. " | <" .. n .. "> " .. el_label
|
|
end
|
|
n = n + 1
|
|
handled[ i ] = true
|
|
end
|
|
-- and then the hash part
|
|
local keys, values = {}, {}
|
|
for k,v in pairs( tab ) do
|
|
node.important = true
|
|
if not handled[ k ] then -- skip array part elements
|
|
local k_label = make_label( tab, k, data, id, "k"..n, depth )
|
|
local v_label = make_label( tab, v, data, id, "v"..n, depth )
|
|
if data.use_html then
|
|
label = label .. [[ <TR><TD PORT="k]] .. n .. [[">]] .. k_label .. [[</TD><TD PORT="v]] .. n .. [[">]] .. v_label .. [[</TD></TR>]]
|
|
else
|
|
append( keys, "<k" .. n .. "> " .. k_label )
|
|
append( values, "<v" .. n .. "> " .. v_label )
|
|
end
|
|
n = n + 1
|
|
end
|
|
end
|
|
if data.use_html then
|
|
node.label = label .. [[</TABLE>]]
|
|
else
|
|
if next( keys ) ~= nil then
|
|
label = label .. " | { { " .. table.concat( keys, " | " ) ..
|
|
" } | { " .. table.concat( values, " | " ) .. " } }"
|
|
end
|
|
node.label = label .. " }"
|
|
end
|
|
-- and now the metatable
|
|
local mt = get_metatable( tab, data.show_metatables )
|
|
if type( mt ) == "table" then
|
|
local id2 = dottify_table( mt, data, depth+1 )
|
|
dottify_metatable_ref( tab, id .. ":0", mt, id2 .. ":0", data )
|
|
end
|
|
end
|
|
return data.node2id[ tab ]
|
|
end
|
|
|
|
|
|
function dottify_userdata( udata, data, depth )
|
|
assert( type( udata ) == "userdata" )
|
|
update_node_depth( udata, data, depth )
|
|
if not data.node2id[ udata ] then
|
|
local id = define_node( data, {
|
|
value = udata,
|
|
label = tostring( udata ),
|
|
shape = "box"
|
|
} )
|
|
-- the metatable
|
|
local mt = get_metatable( udata, data.show_metatables )
|
|
if type( mt ) == "table" then
|
|
local id2 = dottify_table( mt, data, depth+1 )
|
|
dottify_metatable_ref( udata, id, mt, id2..":0", data )
|
|
end
|
|
-- the environment
|
|
local env = get_environment( udata, data.show_environments )
|
|
if type( env ) == "table" then
|
|
local id2 = dottify_table( env, data, depth+1 )
|
|
dottify_environment_ref( udata, id, env, id2..":0", data )
|
|
end
|
|
end
|
|
return data.node2id[ udata ]
|
|
end
|
|
|
|
|
|
function dottify_thread( thread, data, depth )
|
|
assert( type( thread ) == "thread" )
|
|
update_node_depth( thread, data, depth )
|
|
if not data.node2id[ thread ] then
|
|
local id = define_node( data, {
|
|
value = thread,
|
|
label = tostring( thread ),
|
|
shape = "triangle"
|
|
} )
|
|
-- the environment
|
|
local env = get_environment( val, data.show_environments )
|
|
if type( env ) == "table" then
|
|
local id2 = dottify_table( env, data, depth+1 )
|
|
dottify_environment_ref( thread, id, env, id2..":0", data )
|
|
end
|
|
end
|
|
return data.node2id[ thread ]
|
|
end
|
|
|
|
|
|
|
|
function dottify_function( func, data, depth )
|
|
assert( type( func ) == "function" )
|
|
update_node_depth( func, data, depth )
|
|
if not data.node2id[ func ] then
|
|
local id = define_node( data, {
|
|
value = func,
|
|
label = tostring( func ),
|
|
shape = "ellipse"
|
|
} )
|
|
-- the environment
|
|
local env = get_environment( func, data.show_environments )
|
|
if type( env ) == "table" then
|
|
local id2 = dottify_table( env, data, depth+1 )
|
|
dottify_environment_ref( func, id, env, id2..":0", data )
|
|
end
|
|
-- the upvalues
|
|
if data.show_upvalues and
|
|
type( debug ) == "table" and
|
|
type( debug.getupvalue ) == "function" then
|
|
local n = 1
|
|
repeat
|
|
local name, upvalue = debug.getupvalue( func, n )
|
|
if type( upvalue ) == "table" then
|
|
local id2 = dottify_table( upvalue, data, depth+1 )
|
|
dottify_upvalue_ref( func, id, upvalue, id2..":0", data, name )
|
|
elseif type( upvalue ) == "userdata" then
|
|
local id2 = dottify_userdata( upvalue, data, depth+1 )
|
|
dottify_upvalue_ref( func, id, upvalue, id2, data, name )
|
|
elseif type( upvalue ) == "function" then
|
|
local id2 = dottify_function( upvalue, data, depth+1 )
|
|
dottify_upvalue_ref( func, id, upvalue, id2, data, name )
|
|
elseif type( upvalue ) == "thread" then
|
|
local id2 = dottify_thread( upvalue, data, depth+1 )
|
|
dottify_upvalue_ref( func, id, upvalue, id2, data, name )
|
|
end
|
|
n = n + 1
|
|
until name == nil
|
|
end
|
|
end
|
|
return data.node2id[ func ]
|
|
end
|
|
|
|
local option_names = {
|
|
"label", "shape", "style", "dir", "arrowhead", "arrowtail", "color",
|
|
"fillcolor"
|
|
}
|
|
|
|
local function process_options( obj )
|
|
local options = {}
|
|
for _,opt in ipairs( option_names ) do
|
|
if obj[ opt ] then
|
|
local quote_on = "\""
|
|
local quote_off = "\""
|
|
if opt == "label" and type( obj[ opt ] ) == "string" and
|
|
obj[ opt ]:match( "^<.*>$" ) then
|
|
quote_on, quote_off = "<", ">"
|
|
end
|
|
append( options, tostring( opt ) .. "=" .. quote_on ..
|
|
tostring( obj[ opt ] ) .. quote_off )
|
|
end
|
|
end
|
|
return options
|
|
end
|
|
|
|
|
|
local function write_nodes( file, data )
|
|
for _,n in ipairs( data.nodes ) do
|
|
if (data.max_depth <= 0 or
|
|
data.node2depth[ n.value ] <= data.max_depth) and
|
|
(data.show_unimportant or n.important) then
|
|
local options = process_options( n )
|
|
|
|
string_result = string_result .. " " .. tostring( data.node2id[ n.value ] ) .. " [" .. table.concat( options, "," ) .. "];--PULALINHA--"
|
|
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
local function write_edges( file, data )
|
|
for _,e in ipairs( data.edges ) do
|
|
if (data.max_depth <= 0 or
|
|
(data.node2depth[ e.A ] <= data.max_depth and
|
|
data.node2depth[ e.B ] <= data.max_depth)) and
|
|
(data.show_unimportant or
|
|
(data.nodes[ data.node2id[ e.A ] ].important and
|
|
data.nodes[ data.node2id[ e.B ] ].important)) then
|
|
local id1 = e.A_id or data.node2id[ e.A ]
|
|
local id2 = e.B_id or data.node2id[ e.B ]
|
|
local options = process_options( e )
|
|
|
|
string_result = string_result .. " " .. tostring( id1 ) .. " -> " .. tostring( id2 ) .. " [" .. table.concat( options, "," ) .. "];--PULALINHA--"
|
|
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
-- main function
|
|
local function dottify( filename, val, ... )
|
|
|
|
local data = {
|
|
n_nodes = 1,
|
|
node2id = {},
|
|
node2depth = {},
|
|
nodes = {},
|
|
edges = {},
|
|
show_metatables = true,
|
|
show_upvalues = true,
|
|
show_environments = false,
|
|
use_html = true,
|
|
show_unimportant = false,
|
|
max_depth = 0,
|
|
}
|
|
for i = 1, select( '#', ... ) do
|
|
local opt = select( i, ... )
|
|
if opt == "noenvironments" then
|
|
data.show_environments = false
|
|
elseif opt == "nometatables" then
|
|
data.show_metatables = false
|
|
elseif opt == "noupvalues" then
|
|
data.show_upvalues = false
|
|
elseif opt == "nohtml" then
|
|
data.use_html = false
|
|
elseif opt == "environments" then
|
|
data.show_environments = true
|
|
elseif opt == "metatables" then
|
|
data.show_metatables = true
|
|
elseif opt == "upvalues" then
|
|
data.show_upvalues = true
|
|
elseif opt == "html" then
|
|
data.use_html = true
|
|
elseif opt == "unimportant" then
|
|
data.show_unimportant = true
|
|
elseif type( opt ) == "number" then
|
|
data.max_depth = opt
|
|
end
|
|
end
|
|
local t = type( val )
|
|
if t == "table" then
|
|
local id = dottify_table( val, data, 1 )
|
|
data.nodes[ id ].important = true
|
|
elseif t == "function" then
|
|
local id = dottify_function( val, data, 1 )
|
|
data.nodes[ id ].important = true
|
|
elseif t == "thread" then
|
|
local id = dottify_thread( val, data, 1 )
|
|
data.nodes[ id ].important = true
|
|
elseif t == "userdata" then
|
|
local id = dottify_userdata( val, data, 1 )
|
|
data.nodes[ id ].important = true
|
|
else
|
|
io.stderr:write( "warning: unsuitable value for dotlua!<br>" )
|
|
end
|
|
|
|
--local file = assert( io.open( filename, "w" ) )
|
|
|
|
string_result = string_result .. "digraph {--PULALINHA--"
|
|
|
|
--file:write( "digraph {\n" )
|
|
write_nodes ( o, data )
|
|
write_edges ( o, data )
|
|
|
|
string_result = string_result .. "}--PULALINHA--"
|
|
|
|
--file:write( "}\n" )
|
|
--file:close()
|
|
return o
|
|
end
|
|
|
|
dottify ( nil, _detalhes, "nohtml")
|
|
|
|
print ("running...", string.len (string_result))
|
|
|
|
--_G ["_detalhes_database"].aaaaaaaa = string_result
|
|
|
|
_detalhes:CopyPaste (string_result)
|
|
|
|
|
|
return dottify
|
|
end |