local ADDON_NAME, ViragDevTool = ... local pairs, tostring, type, print, string, getmetatable, table, pcall = pairs, tostring, type, print, string, getmetatable, table, pcall local HybridScrollFrame_CreateButtons, HybridScrollFrame_GetOffset, HybridScrollFrame_Update = HybridScrollFrame_CreateButtons, HybridScrollFrame_GetOffset, HybridScrollFrame_Update local ViragDevToolLinkedList = { size = 0; first = nil, last = nil } ViragDevTool.METATABLE_NAME = "$metatable" function ViragDevToolLinkedList:GetInfoAtPosition(position) if self.size < position or self.first == nil then return nil end local node = self.first while position > 0 do node = node.next position = position - 1 end return node end function ViragDevToolLinkedList:AddNodeAfter(node, prevNode) local tempNext = node.next node.next = prevNode prevNode.next = tempNext self.size = self.size + 1; end function ViragDevToolLinkedList:AddNodesAfter(nodeList, parentNode) local tempNext = parentNode.next local currNode = parentNode; for _, node in pairs(nodeList) do currNode.next = node currNode = node self.size = self.size + 1; end currNode.next = tempNext if tempNext == nil then self.last = currNode end end function ViragDevToolLinkedList:AddNode(data, dataName) local node = self:NewNode(data, dataName) if self.first == nil then self.first = node self.last = node else if self.last ~= nil then self.last.next = node end self.last = node end self.size = self.size + 1; end function ViragDevToolLinkedList:NewNode(data, dataName, padding, parent) return { name = dataName, value = data, next = nil, padding = padding == nil and 0 or padding, parent = parent } end function ViragDevToolLinkedList:RemoveChildNodes(node) local currNode = node while true do currNode = currNode.next if currNode == nil then node.next = nil self.last = node break end if currNode.padding <= node.padding then node.next = currNode break end self.size = self.size - 1 end end function ViragDevToolLinkedList:Clear() self.size = 0 self.first = nil self.last = nil end --- -- Main (and the only) function you can use in ViragDevTool API -- Will add data to the list so you can explore its values in UI list -- @usage -- Lets suppose you have MyModFN function in yours addon -- function MyModFN() -- local var = {} -- ViragDevTool_AddData(var, "My local var in MyModFN") -- end -- This will add var as new var in our list -- @param data (any type)- is object you would like to track. -- Default behavior is shallow copy -- @param dataName (string or nil) - name tag to show in UI for you variable. -- Main purpose is to give readable names to objects you want to track. function ViragDevTool_AddData(data, dataName) if dataName == nil then dataName = tostring(data) elseif type(dataName) ~= "string" then dataName = tostring(dataName) end ViragDevToolLinkedList:AddNode(data, dataName) ViragDevTool_ScrollBar_Update() end function ViragDevTool_AddGlobal(strGlobalName) ViragDevTool_AddData(_G[strGlobalName], strGlobalName) end function ViragDevTool_ClearData() ViragDevToolLinkedList:Clear() ViragDevTool_ScrollBar_Update() end function ViragDevTool_ExpandCell(info) local nodeList = {} local padding = info.padding + 1 local couner = 0 for k, v in pairs(info.value) do if type(v) ~= "userdata" then nodeList[couner] = ViragDevToolLinkedList:NewNode(v, tostring(k), padding, info) else local mt = getmetatable(info.value) if mt then nodeList[couner] = ViragDevToolLinkedList:NewNode(mt.__index, ViragDevTool.METATABLE_NAME, padding, info) end end couner = couner + 1 end table.sort(nodeList, function(a, b) if a.name == ViragDevTool.METATABLE_NAME then return true elseif b.name == ViragDevTool.METATABLE_NAME then return false else return a.name < b.name end end) ViragDevToolLinkedList:AddNodesAfter(nodeList, info) info.expanded = true ViragDevTool_ScrollBar_Update() end function ViragDevTool_ColapseCell(info) ViragDevToolLinkedList:RemoveChildNodes(info) info.expanded = nil ViragDevTool_ScrollBar_Update() end function ViragDevTool_ScrollBar_Update() local scrollFrame = ViragDevToolScrollFrame --todo fix this change to self instead of global name ViragDevTool_ScrollBar_AddChildren(scrollFrame) local buttons = scrollFrame.buttons; local offset = HybridScrollFrame_GetOffset(scrollFrame) local totalRowsCount = ViragDevToolLinkedList.size local lineplusoffset; local nodeInfo = ViragDevToolLinkedList:GetInfoAtPosition(offset) for k, view in pairs(buttons) do lineplusoffset = k + offset; if lineplusoffset <= totalRowsCount then ViragDevTool_UpdateListItem(view, nodeInfo, lineplusoffset) nodeInfo = nodeInfo.next view:Show(); else view:Hide(); end end HybridScrollFrame_Update(scrollFrame, totalRowsCount * buttons[1]:GetHeight(), scrollFrame:GetHeight()); end function ViragDevTool_ScrollBar_AddChildren(self) if ViragDevTool.ScrollBarHeight == nil or self:GetHeight() > ViragDevTool.ScrollBarHeight then ViragDevTool.ScrollBarHeight = self:GetHeight() local scrollBarValue = self.scrollBar:GetValue() HybridScrollFrame_CreateButtons(self, "ViragDevToolEntryTemplate", 0, -2) self.scrollBar:SetValue(scrollBarValue); end end function ViragDevTool_UpdateListItem(node, info, id) local nameButton = node.nameButton; local typeButton = node.typeButton local valueButton = node.valueButton local rowNumberButton = node.rowNumberButton local value = info.value local name = info.name local padding = info.padding nameButton:SetPoint("LEFT", node.typeButton, "RIGHT", 20 * padding, 0) local valueType = type(value) valueButton:SetText(tostring(value)) nameButton:SetText(tostring(name)) typeButton:SetText(valueType) rowNumberButton:SetText(tostring(id)) local color = "ViragDevToolBaseFont" if valueType == "table" then if name ~= ViragDevTool.METATABLE_NAME then if value.GetObjectType and value.IsForbidden then local ok, forbidden = pcall(value.IsForbidden, value) if ok and not forbidden then local ok, result = pcall(value.GetObjectType, value) if ok then valueButton:SetText(result .. " " .. tostring(value)) end end end color = "ViragDevToolTableFont"; else color = "ViragDevToolMetatableFont"; end local resultStringName = tostring(name) local MAX_STRING_SIZE = 60 if #resultStringName >= MAX_STRING_SIZE then resultStringName = string.sub(resultStringName, 0, MAX_STRING_SIZE) .. "..." end local function tablelength(T) local count = 0 for _ in pairs(T) do count = count + 1 end return count end nameButton:SetText(resultStringName .. " (" .. tablelength(value) .. ") "); elseif valueType == "userdata" then color = "ViragDevToolTableFont"; elseif valueType == "string" then valueButton:SetText(string.gsub(string.gsub(tostring(value), "|n", ""), "\n", "")) color = "ViragDevToolStringFont"; elseif valueType == "number" then color = "ViragDevToolNumberFont"; elseif valueType == "function" then color = "ViragDevToolFunctionFont"; --todo add function args info and description from error msges or from some mapping file end node.nameButton:SetNormalFontObject(color); node.typeButton:SetNormalFontObject(color) node.valueButton:SetNormalFontObject(color) node.rowNumberButton:SetNormalFontObject(color) if valueType == "table" then nameButton:SetScript("OnMouseUp", function(self, button, down) if info.expanded then ViragDevTool_ColapseCell(info) else ViragDevTool_ExpandCell(info) end end) elseif valueType == "function" then nameButton:SetScript("OnMouseUp", function(self, button, down) ViragDevTool_TryCallFunction(info) end) else nameButton:SetScript("OnMouseUp", nil) end end function ViragDevTool_TryCallFunction(info) -- info.value is just oure function to call local fn = info.value local parent local args -- lets try safe call first local ok, result = pcall(fn) if not ok then -- if safe call failed we probably could try to find self and call self:fn() parent = info.parent if parent and parent.value == _G then -- this fn is in global namespace parent = nil end if parent then if parent.name == ViragDevTool.METATABLE_NAME then -- metatable has real object 1 level higher parent = parent.parent end fn = parent.value[info.name] args = parent.value ok, result = pcall(fn, args) end end ViragDevTool_PrintCallFunctionInfo(ok, info.name .. "()", result, parent) if not ok then fn(args) end end --todo create generic print output with multiple args function ViragDevTool_PrintCallFunctionInfo(ok, functionName, result, parent) ViragDevToolPRINT((ok and "|cFF00FF00OK" or "|cFFFF0000ERROR") .. (parent and (" |cFFBEB9B5" .. parent.name .. ":") or " ") .. "|cFFFFFFFF" .. functionName .. " |cFFBEB9B5returns:" .. " |cFFFFFFFF" .. tostring(result) .. (ok and (" |cFF96C0CE(" .. type(result) .. ")") or "")) end function ViragDevToolPRINT(text) print("|cFFC25B56[Virag's DT]:|cFFFFFFFF " .. text) end -- Util function function ViragDevTool_PrintTable(self, table) for k, v in pairs(table) do print(k .. ": " .. v.name) end end -- register slash cmd SLASH_VIRAGDEVTOOLS1 = '/vdt'; function SlashCmdList.VIRAGDEVTOOLS(msg, editbox) -- 4. ViragDevTool_AddGlobal(msg) end