init

2022-11-05 21:19:42 -07:00
parent b79f4bd588
commit f3e579cb57
386 changed files with 93729 additions and 2 deletions
@@ -0,0 +1,100 @@
+-- ------------------------------------------------------------------------------ --
+--                                TradeSkillMaster                                --
+--          http://www.curse.com/addons/wow/tradeskillmaster_warehousing          --
+--                                                                                --
+--             A TradeSkillMaster Addon (http://tradeskillmaster.com)             --
+--    All Rights Reserved* - Detailed license information included with addon.    --
+-- ------------------------------------------------------------------------------ --
+
+-- This file contains various utility APIs
+
+local TSM = select(2, ...)
+local private = {}
+TSMAPI:RegisterForTracing(private, "TradeSkillMaster.Util_private")
+
+
+--- Shows a popup dialog with the given name and ensures it's visible over the TSM frame by setting the frame strata to TOOLTIP.
+-- @param name The name of the static popup dialog to be shown.
+function TSMAPI:ShowStaticPopupDialog(name)
+	StaticPopupDialogs[name].preferredIndex = 3
+	StaticPopup_Show(name)
+	for i=1, 100 do
+		if _G["StaticPopup" .. i] and _G["StaticPopup" .. i].which == name then
+			_G["StaticPopup" .. i]:SetFrameStrata("TOOLTIP")
+			break
+		end
+	end
+end
+
+function TSMAPI:GetCharacters()
+	return CopyTable(TSM.db.factionrealm.characters)
+end
+
+
+local orig = ChatFrame_OnEvent
+function ChatFrame_OnEvent(self, event, ...)
+	local msg = select(1, ...)
+	if (event == "CHAT_MSG_SYSTEM") then
+		if (msg == ERR_AUCTION_STARTED) then -- absorb the Auction Created message
+			return
+		end
+		if (msg == ERR_AUCTION_REMOVED) then -- absorb the Auction Cancelled message
+			return
+		end
+	end
+	return orig(self, event, ...)
+end
+
+
+-- A more versitile replacement for lua's select() function
+-- If a list of indices is passed as the first parameter, only
+-- those values will be returned, otherwise, the default select()
+-- behavior will be followed.
+function private:SelectHelper(positions, ...)
+	if #positions == 0 then return end
+	return select(tremove(positions), ...), private:SelectHelper(positions, ...)
+end
+function TSMAPI:Select(positions, ...)
+	if type(positions) == "number" then
+		return select(positions, ...)
+	elseif type(positions) == "table" then
+		-- reverse the list and make a copy of it
+		local newPositions = {}
+		for i=#positions, 1, -1 do
+			tinsert(newPositions, positions[i])
+		end
+		return private:SelectHelper(newPositions, ...)
+	else
+		error(format("Bad argument #1. Expected number or table, got %s", type(positions)))
+	end
+end
+
+-- custom string splitting function that doesn't stack overflow
+function TSMAPI:SafeStrSplit(str, sep)
+	local parts = {}
+	local s = 1
+	while true do
+		local e = strfind(str, sep, s)
+		if not e then
+			tinsert(parts, strsub(str, s))
+			break
+		end
+		tinsert(parts, strsub(str, s, e-1))
+		s = e + 1
+	end
+	return parts
+end
+
+local MAGIC_CHARACTERS = {'[', ']', '(', ')', '.', '+', '-', '*', '?', '^', '$'}
+function TSMAPI:StrEscape(str)
+	str = gsub(str, "%%", "\001")
+	for _, char in ipairs(MAGIC_CHARACTERS) do
+		str = gsub(str, "%"..char, "%%"..char)
+	end
+	str = gsub(str, "\001", "%%%%")
+	return str
+end
+
+function TSMAPI:IsPlayer(target)
+	return strlower(target) == strlower(UnitName("player")) or (strfind(target, "-") and strlower(target) == strlower(UnitName("player").."-"..GetRealmName()))
+end