add latest TBC version of !Compatibility and !DebugTools

!Compatibility/!Compatibility.toc

@@ -0,0 +1,8 @@
+## Interface: 20400
+## Title: !Compatibility
+## Notes: Compatibility functions for TBC
+## Version: 1.0
+
+errorHandler.lua
+api\api.xml
+slashCommands.lua

!Compatibility/api/api.xml

@@ -0,0 +1,6 @@
+<Ui xmlns="http://www.blizzard.com/wow/ui/">
+	<Script file="luaAPI.lua"/>
+	<Include file="..\libs\libs.xml"/>
+	<Script file="widgetAPI.lua"/>
+	<Script file="wowAPI.lua"/>
+</Ui>

!Compatibility/api/luaAPI.lua

@@ -0,0 +1,86 @@
+--Cache global variables
+local error = error
+local geterrorhandler = geterrorhandler
+local pairs = pairs
+local pcall = pcall
+local securecall = securecall
+local select = select
+local tostring = tostring
+local type = type
+local unpack = unpack
+
+function table.wipe(t)
+	assert(type(t) == "table", format("bad argument #1 to 'wipe' (table expected, got %s)", t and type(t) or "no value"))
+
+	for k in pairs(t) do
+		t[k] = nil
+	end
+
+	return t
+end
+wipe = table.wipe
+
+local LOCAL_ToStringAllTemp = {}
+function tostringall(...)
+	local n = select('#', ...)
+	-- Simple versions for common argument counts
+	if (n == 1) then
+		return tostring(...)
+	elseif (n == 2) then
+		local a, b = ...
+		return tostring(a), tostring(b)
+	elseif (n == 3) then
+		local a, b, c = ...
+		return tostring(a), tostring(b), tostring(c)
+	elseif (n == 0) then
+		return
+	end
+
+	local needfix
+	for i = 1, n do
+		local v = select(i, ...)
+		if (type(v) ~= "string") then
+			needfix = i
+			break
+		end
+	end
+	if (not needfix) then return ... end
+
+	wipe(LOCAL_ToStringAllTemp)
+	for i = 1, needfix - 1 do
+		LOCAL_ToStringAllTemp[i] = select(i, ...)
+	end
+	for i = needfix, n do
+		LOCAL_ToStringAllTemp[i] = tostring(select(i, ...))
+	end
+	return unpack(LOCAL_ToStringAllTemp)
+end
+
+local LOCAL_PrintHandler = function(...)
+	DEFAULT_CHAT_FRAME:AddMessage(strjoin(" ", tostringall(...)))
+end
+
+function setprinthandler(func)
+	if (type(func) ~= "function") then
+		error("Invalid print handler")
+	else
+		LOCAL_PrintHandler = func
+	end
+end
+
+function getprinthandler() return LOCAL_PrintHandler end
+
+local function print_inner(...)
+	local ok, err = pcall(LOCAL_PrintHandler, ...)
+	if (not ok) then
+		local func = geterrorhandler()
+		func(err)
+	end
+end
+
+function print(...)
+	securecall(pcall, print_inner, ...)
+end
+
+SLASH_PRINT1 = "/print"
+SlashCmdList["PRINT"] = print

!Compatibility/api/widgetAPI.lua

@@ -0,0 +1,51 @@
+--Cache global variables
+local assert = assert
+local format = string.format
+local tonumber = tonumber
+local type = type
+
+local function GetSize(frame)
+	return frame:GetWidth(), frame:GetHeight()
+end
+
+local function SetSize(frame, width, height)
+	width, height = tonumber(width), tonumber(height)
+
+	assert(type(width) == "number" or type(width) == "string", format("Usage: %s:SetSize(width, height)", frame.GetName and frame:GetName() or tostring(frame)))
+
+	frame:SetWidth(width)
+	frame:SetHeight(type(height) == "number" and height or width)
+end
+
+local function HookScript2(frame, scriptType, handler)
+	assert((type(scriptType) == "string" or type(scriptType) == "number") and type(handler) == "function", format("Usage: %s:HookScript2(\"type\", function)", frame.GetName and frame:GetName() or tostring(frame)))
+
+	if frame:GetScript(scriptType) then
+		frame:HookScript(scriptType, handler)
+	else
+		frame:SetScript(scriptType, handler)
+	end
+end
+
+local function addapi(object)
+	local mt = getmetatable(object).__index
+	if not object.GetSize then mt.GetSize = GetSize end
+	if not object.SetSize then mt.SetSize = SetSize end
+	if not object.HookScript2 then mt.HookScript2 = HookScript2 end
+end
+
+local handled = {["Frame"] = true}
+local object = CreateFrame("Frame")
+addapi(object)
+addapi(object:CreateTexture())
+addapi(object:CreateFontString())
+
+object = EnumerateFrames()
+while object do
+	if not handled[object:GetObjectType()] then
+		addapi(object)
+		handled[object:GetObjectType()] = true
+	end
+
+	object = EnumerateFrames(object)
+end

!Compatibility/api/wowAPI.lua

@@ -0,0 +1,313 @@
+--Cache global variables
+local assert = assert
+local date = date
+local pairs = pairs
+local tonumber = tonumber
+local type = type
+local format, gsub, lower, match, upper = string.format, string.gsub, string.lower, string.match, string.upper
+--WoW API
+local GetCurrentDungeonDifficulty = GetCurrentDungeonDifficulty
+local GetQuestGreenRange = GetQuestGreenRange
+local GetRealZoneText = GetRealZoneText
+local IsInInstance = IsInInstance
+local UnitBuff = UnitBuff
+local UnitDebuff = UnitDebuff
+local UnitLevel = UnitLevel
+--WoW Variables
+local DUNGEON_DIFFICULTY1 = DUNGEON_DIFFICULTY1
+local DUNGEON_DIFFICULTY2 = DUNGEON_DIFFICULTY2
+local TIMEMANAGER_AM = TIMEMANAGER_AM
+local TIMEMANAGER_PM = TIMEMANAGER_PM
+--Libs
+local LBC = LibStub("LibBabble-Class-3.0"):GetLookupTable()
+local LBZ = LibStub("LibBabble-Zone-3.0"):GetLookupTable()
+
+CLASS_SORT_ORDER = {
+	"WARRIOR",
+	"PALADIN",
+	"PRIEST",
+	"SHAMAN",
+	"DRUID",
+	"ROGUE",
+	"MAGE",
+	"WARLOCK",
+	"HUNTER"
+}
+MAX_CLASSES = #CLASS_SORT_ORDER
+
+LOCALIZED_CLASS_NAMES_MALE = {}
+LOCALIZED_CLASS_NAMES_FEMALE = {}
+
+CLASS_ICON_TCOORDS = {
+	["WARRIOR"] = {0, 0.25, 0, 0.25},
+	["MAGE"] = {0.25, 0.49609375, 0, 0.25},
+	["ROGUE"] = {0.49609375, 0.7421875, 0, 0.25},
+	["DRUID"] = {0.7421875, 0.98828125, 0, 0.25},
+	["HUNTER"] = {0, 0.25, 0.25, 0.5},
+	["SHAMAN"] = {0.25, 0.49609375, 0.25, 0.5},
+	["PRIEST"] = {0.49609375, 0.7421875, 0.25, 0.5},
+	["WARLOCK"] = {0.7421875, 0.98828125, 0.25, 0.5},
+	["PALADIN"] = {0, 0.25, 0.5, 0.75}
+}
+
+QuestDifficultyColors = {
+	["impossible"] = {r = 1.00, g = 0.10, b = 0.10},
+	["verydifficult"] = {r = 1.00, g = 0.50, b = 0.25},
+	["difficult"] = {r = 1.00, g = 1.00, b = 0.00},
+	["standard"] = {r = 0.25, g = 0.75, b = 0.25},
+	["trivial"] = {r = 0.50, g = 0.50, b = 0.50},
+	["header"] = {r = 0.70, g = 0.70, b = 0.70}
+}
+
+function UnitAura(unit, i, filter)
+	assert((type(unit) == "string" or type(unit) == "number") and (type(i) == "string" or type(i) == "number"), "Usage: UnitAura(\"unit\", index [, filter])")
+
+	if not filter or match(filter, "(HELPFUL)") then
+		local name, rank, aura, count, duration, maxDuration = UnitBuff(unit, i, filter)
+		return name, rank, aura, count, nil, duration or 0, maxDuration or 0
+	else
+		local name, rank, aura, count, dType, duration, maxDuration = UnitDebuff(unit, i, filter)
+		return name, rank, aura, count, dType, duration or 0, maxDuration or 0
+	end
+end
+
+function BetterDate(formatString, timeVal)
+	local dateTable = date("*t", timeVal)
+	local amString = (dateTable.hour >= 12) and TIMEMANAGER_PM or TIMEMANAGER_AM
+
+	--First, we'll replace %p with the appropriate AM or PM.
+	formatString = gsub(formatString, "^%%p", amString)	--Replaces %p at the beginning of the string with the am/pm token
+	formatString = gsub(formatString, "([^%%])%%p", "%1"..amString) -- Replaces %p anywhere else in the string, but doesn't replace %%p (since the first % escapes the second)
+
+	return date(formatString, timeVal)
+end
+
+function GetQuestDifficultyColor(level)
+	local levelDiff = level - UnitLevel("player")
+	if levelDiff >= 5 then
+		return QuestDifficultyColors["impossible"]
+	elseif levelDiff >= 3 then
+		return QuestDifficultyColors["verydifficult"]
+	elseif levelDiff >= -2 then
+		return QuestDifficultyColors["difficult"]
+	elseif -levelDiff <= GetQuestGreenRange() then
+		return QuestDifficultyColors["standard"]
+	else
+		return QuestDifficultyColors["trivial"]
+	end
+end
+
+function FillLocalizedClassList(tab, female)
+	assert(type(tab) == "table", "Usage: FillLocalizedClassList(classTable[, isFemale])")
+
+	for _, engClass in ipairs(CLASS_SORT_ORDER) do
+		if female then
+			tab[engClass] = LBC[engClass]
+		else
+			tab[engClass] = LBC[engClass:lower():gsub("^%l", upper)]
+		end
+	end
+
+	return true
+end
+
+FillLocalizedClassList(LOCALIZED_CLASS_NAMES_MALE)
+FillLocalizedClassList(LOCALIZED_CLASS_NAMES_FEMALE, true)
+
+local zoneInfo = {
+	-- Battlegrounds
+	[LBZ["Warsong Gulch"]] = {mapID = 443, maxPlayers = 10},
+	[LBZ["Arathi Basin"]] = {mapID = 461, maxPlayers = 15},
+	[LBZ["Alterac Valley"]] = {mapID = 401, maxPlayers = 40},
+	-- TBC
+	[LBZ["Eye of the Storm"]] = {mapID = 566, maxPlayers = 15},
+
+	-- Raids
+	[LBZ["Zul'Gurub"]] = {mapID = 309, maxPlayers = 20},
+	[LBZ["Onyxia's Lair"]] = {mapID = 249, maxPlayers = 40},
+	[LBZ["Molten Core"]] = {mapID = 409, maxPlayers = 40},
+	[LBZ["Ruins of Ahn'Qiraj"]] = {mapID = 509, maxPlayers = 20},
+	[LBZ["Temple of Ahn'Qiraj"]] = {mapID = 531, maxPlayers = 40},
+	[LBZ["Blackwing Lair"]] = {mapID = 469, maxPlayers = 40},
+--	[LBZ["Naxxramas"]] = {mapID = 533, maxPlayers = 40},
+	-- TBC
+	[LBZ["Karazhan"]] = {mapID = 532, maxPlayers = 10},
+	[LBZ["Gruul's Lair"]] = {mapID = 565, maxPlayers = 25},
+	[LBZ["Magtheridon's Lair"]] = {mapID = 544, maxPlayers = 25},
+	[LBZ["Zul'Aman"]] = {mapID = 568, maxPlayers = 10},
+	[LBZ["Serpentshrine Cavern"]] = {mapID = 548, maxPlayers = 25},
+	[LBZ["The Eye"]] = {mapID = 550, maxPlayers = 25},
+	[LBZ["Hyjal Summit"]] = {mapID = 534, maxPlayers = 25},
+	[LBZ["Black Temple"]] = {mapID = 564, maxPlayers = 25},
+	[LBZ["Sunwell Plateau"]] = {mapID = 580, maxPlayers = 25},
+}
+
+local mapByID = {}
+for mapName in pairs(zoneInfo) do
+	mapByID[zoneInfo[mapName].mapID] = mapName
+end
+
+local function GetMaxPlayersByType(instanceType, zoneName)
+	if instanceType == "none" then
+		return 40
+	elseif instanceType == "party" then
+		return 5
+	elseif instanceType == "arena" then
+		return 5
+	elseif zoneName ~= "" and zoneInfo[zoneName] then
+		if instanceType == "pvp" then
+			return zoneInfo[zoneName].maxPlayers
+		elseif instanceType == "raid" then
+			return zoneInfo[zoneName].maxPlayers
+		end
+	else
+		return 0
+	end
+end
+
+function GetInstanceInfo()
+	local inInstance, instanceType = IsInInstance()
+	if not inInstance then return end
+
+	local name = GetRealZoneText()
+
+	local difficulty = GetCurrentDungeonDifficulty()
+	local difficultyName = difficulty == 1 and DUNGEON_DIFFICULTY1 or DUNGEON_DIFFICULTY2
+	local maxPlayers = GetMaxPlayersByType(instanceType, name)
+
+	difficultyName = format("%d %s", maxPlayers, difficultyName)
+
+	return name, instanceType, difficulty, difficultyName, maxPlayers
+end
+
+function GetCurrentMapAreaID()
+	if not IsInInstance() then return end
+	local zoneName = GetRealZoneText()
+
+	if zoneName ~= "" and zoneInfo[zoneName] then
+		return zoneInfo[zoneName].mapID
+	else
+		return 0
+	end
+end
+
+function GetMapNameByID(id)
+	assert(type(id) == "string" or type(id) == "number", format("Bad argument #1 to \"GetMapNameByID\" (number expected, got %s)", id and type(id) or "no value"))
+
+	return mapByID[tonumber(id)]
+end
+
+local arrow
+function GetPlayerFacing()
+	if not arrow then
+		local obj = Minimap
+		for i = 1, obj:GetNumChildren() do
+			local child = select(i, obj:GetChildren())
+			if child and child.GetModel and child:GetModel() == "interface\\minimap\\minimaparrow.m2" then
+				arrow = child
+				break
+			end
+		end
+	end
+
+	return arrow and arrow:GetFacing()
+end
+
+function ToggleFrame(frame)
+	if frame:IsShown() then
+		HideUIPanel(frame)
+	else
+		ShowUIPanel(frame)
+	end
+end
+
+local function OnOrientationChanged(self, orientation)
+	self.texturePointer.verticalOrientation = orientation == "VERTICAL"
+
+	if self.texturePointer.verticalOrientation then
+		self.texturePointer:SetPoint("BOTTOMLEFT", self)
+	else
+		self.texturePointer:SetPoint("LEFT", self)
+	end
+end
+
+local function OnSizeChanged(self, width, height)
+	self.texturePointer.width = width
+	self.texturePointer.height = height
+	self.texturePointer:SetWidth(width)
+	self.texturePointer:SetHeight(height)
+end
+
+local function OnValueChanged(self, value)
+	local _, max = self:GetMinMaxValues()
+
+	if self.texturePointer.verticalOrientation then
+		self.texturePointer:SetHeight(self.texturePointer.height * (value / max))
+	else
+		self.texturePointer:SetWidth(self.texturePointer.width * (value / max))
+	end
+end
+
+function CreateStatusBarTexturePointer(statusbar)
+	assert(type(statusbar) == "table", format("Bad argument #1 to \"CreateStatusBarTexturePointer\" (table expected, got %s)", statusbar and type(statusbar) or "no value"))
+	assert(statusbar.GetObjectType and statusbar:GetObjectType() == "StatusBar", "Bad argument #1 to \"CreateStatusBarTexturePointer\" (statusbar object expected)")
+
+	local f = statusbar:CreateTexture()
+	f.width = statusbar:GetWidth()
+	f.height = statusbar:GetHeight()
+	f.vertical = statusbar:GetOrientation() == "VERTICAL"
+	f:SetWidth(f.width)
+	f:SetHeight(f.height)
+
+	if f.verticalOrientation then
+		f:SetPoint("BOTTOMLEFT", statusbar)
+	else
+		f:SetPoint("LEFT", statusbar)
+	end
+
+	statusbar.texturePointer = f
+
+	statusbar:SetScript("OnSizeChanged", OnSizeChanged)
+	statusbar:SetScript("OnValueChanged", OnValueChanged)
+
+	hooksecurefunc(statusbar, "SetOrientation", OnOrientationChanged)
+
+	return f
+end
+
+local threatColors = {
+	[0] = {0.69, 0.69, 0.69},
+	[1] = {1, 1, 0.47},
+	[2] = {1, 0.6, 0},
+	[3] = {1, 0, 0}
+}
+
+function GetThreatStatusColor(statusIndex)
+	if not (type(statusIndex) == "number" and statusIndex >= 0 and statusIndex < 4) then
+		statusIndex = 0
+	end
+
+	return threatColors[statusIndex][1], threatColors[statusIndex][2], threatColors[statusIndex][3]
+end
+
+
+function GetThreatStatus(currentThreat, maxThreat)
+	assert(type(currentThreat) == "number" and type(maxThreat) == "number", "Usage: GetThreatStatus(currentThreat, maxThreat)")
+
+	if not maxThreat or maxThreat == 0 then
+		maxThreat = 0
+		maxThreat = 1
+	end
+
+	local threatPercent = currentThreat / maxThreat * 100
+
+	if threatPercent >= 100 then
+		return 3, threatPercent
+	elseif threatPercent < 100 and threatPercent >= 80 then
+		return 2, threatPercent
+	elseif threatPercent < 80 and threatPercent >= 50 then
+		return 1, threatPercent
+	else
+		return 0, threatPercent
+	end
+end

!Compatibility/errorHandler.lua

@@ -0,0 +1,46 @@
+--Cache global variables
+local strmatch = strmatch
+--WoW API
+local GetCVar = GetCVar
+local IsAddOnLoaded = IsAddOnLoaded
+local LoadAddOn = LoadAddOn
+
+local _ERROR_COUNT = 0
+local _ERROR_LIMIT = 1000
+
+function _ERRORMESSAGE_NEW(message)
+	debuginfo()
+
+	LoadAddOn("!DebugTools")
+	local loaded = IsAddOnLoaded("!DebugTools")
+
+	if (GetCVar("scriptErrors") == "1") then
+		if (not loaded or DEBUG_DEBUGTOOLS) then
+			ScriptErrors_Message:SetText(message)
+			ScriptErrors:Show()
+			if (DEBUG_DEBUGTOOLS) then
+				ScriptErrorsFrame_OnError(message)
+			end
+		else
+			ScriptErrorsFrame_OnError(message)
+		end
+	elseif (loaded) then
+		ScriptErrorsFrame_OnError(message, true)
+	end
+
+	_ERROR_COUNT = _ERROR_COUNT + 1
+	if (_ERROR_COUNT == _ERROR_LIMIT) then
+		StaticPopup_Show("TOO_MANY_LUA_ERRORS")
+	end
+
+	return message
+end
+
+seterrorhandler(_ERRORMESSAGE_NEW)
+
+function message(text)
+	if (not ScriptErrors:IsShown()) then
+		ScriptErrors_Message:SetText(text)
+		ScriptErrors:Show()
+	end
+end

!Compatibility/libs/LibBabble-3.0.lua

@@ -0,0 +1,292 @@
+-- LibBabble-3.0 is hereby placed in the Public Domain
+-- Credits: ckknight
+local LIBBABBLE_MAJOR, LIBBABBLE_MINOR = "LibBabble-3.0", 2
+
+local LibBabble = LibStub:NewLibrary(LIBBABBLE_MAJOR, LIBBABBLE_MINOR)
+if not LibBabble then
+	return
+end
+
+local data = LibBabble.data or {}
+for k,v in pairs(LibBabble) do
+	LibBabble[k] = nil
+end
+LibBabble.data = data
+
+local tablesToDB = {}
+for namespace, db in pairs(data) do
+	for k,v in pairs(db) do
+		tablesToDB[v] = db
+	end
+end
+
+local function warn(message)
+	local _, ret = pcall(error, message, 3)
+	geterrorhandler()(ret)
+end
+
+local lookup_mt = { __index = function(self, key)
+	local db = tablesToDB[self]
+	local current_key = db.current[key]
+	if current_key then
+		self[key] = current_key
+		return current_key
+	end
+	local base_key = db.base[key]
+	local real_MAJOR_VERSION
+	for k,v in pairs(data) do
+		if v == db then
+			real_MAJOR_VERSION = k
+			break
+		end
+	end
+	if not real_MAJOR_VERSION then
+		real_MAJOR_VERSION = LIBBABBLE_MAJOR
+	end
+	if base_key then
+		warn(("%s: Translation %q not found for locale %q"):format(real_MAJOR_VERSION, key, GetLocale()))
+		rawset(self, key, base_key)
+		return base_key
+	end
+	warn(("%s: Translation %q not found."):format(real_MAJOR_VERSION, key))
+	rawset(self, key, key)
+	return key
+end }
+
+local function initLookup(module, lookup)
+	local db = tablesToDB[module]
+	for k in pairs(lookup) do
+		lookup[k] = nil
+	end
+	setmetatable(lookup, lookup_mt)
+	tablesToDB[lookup] = db
+	db.lookup = lookup
+	return lookup
+end
+
+local function initReverse(module, reverse)
+	local db = tablesToDB[module]
+	for k in pairs(reverse) do
+		reverse[k] = nil
+	end
+	for k,v in pairs(db.current) do
+		reverse[v] = k
+	end
+	tablesToDB[reverse] = db
+	db.reverse = reverse
+	db.reverseIterators = nil
+	return reverse
+end
+
+local prototype = {}
+local prototype_mt = {__index = prototype}
+
+--[[---------------------------------------------------------------------------
+Notes:
+	* If you try to access a nonexistent key, it will warn but allow the code to pass through.
+Returns:
+	A lookup table for english to localized words.
+Example:
+	local B = LibStub("LibBabble-Module-3.0") -- where Module is what you want.
+	local BL = B:GetLookupTable()
+	assert(BL["Some english word"] == "Some localized word")
+	DoSomething(BL["Some english word that doesn't exist"]) -- warning!
+-----------------------------------------------------------------------------]]
+function prototype:GetLookupTable()
+	local db = tablesToDB[self]
+
+	local lookup = db.lookup
+	if lookup then
+		return lookup
+	end
+	return initLookup(self, {})
+end
+--[[---------------------------------------------------------------------------
+Notes:
+	* If you try to access a nonexistent key, it will return nil.
+Returns:
+	A lookup table for english to localized words.
+Example:
+	local B = LibStub("LibBabble-Module-3.0") -- where Module is what you want.
+	local B_has = B:GetUnstrictLookupTable()
+	assert(B_has["Some english word"] == "Some localized word")
+	assert(B_has["Some english word that doesn't exist"] == nil)
+-----------------------------------------------------------------------------]]
+function prototype:GetUnstrictLookupTable()
+	local db = tablesToDB[self]
+
+	return db.current
+end
+--[[---------------------------------------------------------------------------
+Notes:
+	* If you try to access a nonexistent key, it will return nil.
+	* This is useful for checking if the base (English) table has a key, even if the localized one does not have it registered.
+Returns:
+	A lookup table for english to localized words.
+Example:
+	local B = LibStub("LibBabble-Module-3.0") -- where Module is what you want.
+	local B_hasBase = B:GetBaseLookupTable()
+	assert(B_hasBase["Some english word"] == "Some english word")
+	assert(B_hasBase["Some english word that doesn't exist"] == nil)
+-----------------------------------------------------------------------------]]
+function prototype:GetBaseLookupTable()
+	local db = tablesToDB[self]
+
+	return db.base
+end
+--[[---------------------------------------------------------------------------
+Notes:
+	* If you try to access a nonexistent key, it will return nil.
+	* This will return only one English word that it maps to, if there are more than one to check, see :GetReverseIterator("word")
+Returns:
+	A lookup table for localized to english words.
+Example:
+	local B = LibStub("LibBabble-Module-3.0") -- where Module is what you want.
+	local BR = B:GetReverseLookupTable()
+	assert(BR["Some localized word"] == "Some english word")
+	assert(BR["Some localized word that doesn't exist"] == nil)
+-----------------------------------------------------------------------------]]
+function prototype:GetReverseLookupTable()
+	local db = tablesToDB[self]
+
+	local reverse = db.reverse
+	if reverse then
+		return reverse
+	end
+	return initReverse(self, {})
+end
+local blank = {}
+local weakVal = {__mode="v"}
+--[[---------------------------------------------------------------------------
+Arguments:
+	string - the localized word to chek for.
+Returns:
+	An iterator to traverse all English words that map to the given key
+Example:
+	local B = LibStub("LibBabble-Module-3.0") -- where Module is what you want.
+	for word in B:GetReverseIterator("Some localized word") do
+		DoSomething(word)
+	end
+-----------------------------------------------------------------------------]]
+function prototype:GetReverseIterator(key)
+	local db = tablesToDB[self]
+	local reverseIterators = db.reverseIterators
+	if not reverseIterators then
+		reverseIterators = setmetatable({}, weakVal)
+		db.reverseIterators = reverseIterators
+	elseif reverseIterators[key] then
+		return pairs(reverseIterators[key])
+	end
+	local t
+	for k,v in pairs(db.current) do
+		if v == key then
+			if not t then
+				t = {}
+			end
+			t[k] = true
+		end
+	end
+	reverseIterators[key] = t or blank
+	return pairs(reverseIterators[key])
+end
+--[[---------------------------------------------------------------------------
+Returns:
+	An iterator to traverse all translations English to localized.
+Example:
+	local B = LibStub("LibBabble-Module-3.0") -- where Module is what you want.
+	for english, localized in B:Iterate() do
+		DoSomething(english, localized)
+	end
+-----------------------------------------------------------------------------]]
+function prototype:Iterate()
+	local db = tablesToDB[self]
+
+	return pairs(db.current)
+end
+
+-- #NODOC
+-- modules need to call this to set the base table
+function prototype:SetBaseTranslations(base)
+	local db = tablesToDB[self]
+	local oldBase = db.base
+	if oldBase then
+		for k in pairs(oldBase) do
+			oldBase[k] = nil
+		end
+		for k, v in pairs(base) do
+			oldBase[k] = v
+		end
+		base = oldBase
+	else
+		db.base = base
+	end
+	for k,v in pairs(base) do
+		if v == true then
+			base[k] = k
+		end
+	end
+end
+
+local function init(module)
+	local db = tablesToDB[module]
+	if db.lookup then
+		initLookup(module, db.lookup)
+	end
+	if db.reverse then
+		initReverse(module, db.reverse)
+	end
+	db.reverseIterators = nil
+end
+
+-- #NODOC
+-- modules need to call this to set the current table. if current is true, use the base table.
+function prototype:SetCurrentTranslations(current)
+	local db = tablesToDB[self]
+	if current == true then
+		db.current = db.base
+	else
+		local oldCurrent = db.current
+		if oldCurrent then
+			for k in pairs(oldCurrent) do
+				oldCurrent[k] = nil
+			end
+			for k, v in pairs(current) do
+				oldCurrent[k] = v
+			end
+			current = oldCurrent
+		else
+			db.current = current
+		end
+	end
+	init(self)
+end
+
+for namespace, db in pairs(data) do
+	setmetatable(db.module, prototype_mt)
+	init(db.module)
+end
+
+-- #NODOC
+-- modules need to call this to create a new namespace.
+function LibBabble:New(namespace, minor)
+	local module, oldminor = LibStub:NewLibrary(namespace, minor)
+	if not module then
+		return
+	end
+
+	if not oldminor then
+		local db = {
+			module = module,
+		}
+		data[namespace] = db
+		tablesToDB[module] = db
+	else
+		for k,v in pairs(module) do
+			module[k] = nil
+		end
+	end
+
+	setmetatable(module, prototype_mt)
+
+	return module
+end

!Compatibility/libs/LibBabble-Class-3.0.lua

@@ -0,0 +1,239 @@
+--[[
+Name: LibBabble-Class-3.0
+Revision: $Rev: 50 $
+Author(s): ckknight (ckknight@gmail.com)
+Website: http://ckknight.wowinterface.com/
+Dependencies: None
+License: MIT
+]]
+
+local MAJOR_VERSION = "LibBabble-Class-3.0"
+local MINOR_VERSION = 90000 + tonumber(("$Revision: 50 $"):match("%d+"))
+
+if not LibStub then error(MAJOR_VERSION .. " requires LibStub.") end
+local lib = LibStub("LibBabble-3.0"):New(MAJOR_VERSION, MINOR_VERSION)
+if not lib then return end
+
+local GAME_LOCALE = GetLocale()
+
+lib:SetBaseTranslations {
+	Warlock = true,
+	Warrior = true,
+	Hunter = true,
+	Mage = true,
+	Priest = true,
+	Druid = true,
+	Paladin = true,
+	Shaman = true,
+	Rogue = true,
+	Deathknight = "Death Knight",
+
+	WARLOCK = true,
+	WARRIOR = true,
+	HUNTER = true,
+	MAGE = true,
+	PRIEST = true,
+	DRUID = true,
+	PALADIN = true,
+	SHAMAN = true,
+	ROGUE = true,
+	DEATHKNIGHT = "Death Knight",
+}
+
+if GAME_LOCALE == "enUS" then
+	lib:SetCurrentTranslations(true)
+elseif GAME_LOCALE == "deDE" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "Hexenmeister",
+		["Warrior"] = "Krieger",
+		["Hunter"] = "Jäger",
+		["Mage"] = "Magier",
+		["Priest"] = "Priester",
+		["Druid"] = "Druide",
+		["Paladin"] = "Paladin",
+		["Shaman"] = "Schamane",
+		["Rogue"] = "Schurke",
+		["Deathknight"] = "Todesritter",
+
+		["WARLOCK"] = "Hexenmeisterin",
+		["WARRIOR"] = "Kriegerin",
+		["HUNTER"] = "Jägerin",
+		["MAGE"] = "Magierin",
+		["PRIEST"] = "Priesterin",
+		["DRUID"] = "Druidin",
+		["PALADIN"] = "Paladin",
+		["SHAMAN"] = "Schamanin",
+		["ROGUE"] = "Schurkin",
+		["DEATHKNIGHT"] = "Todesritter",
+	}
+elseif GAME_LOCALE == "frFR" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "Démoniste",
+		["Warrior"] = "Guerrier",
+		["Hunter"] = "Chasseur",
+		["Mage"] = "Mage",
+		["Priest"] = "Prêtre",
+		["Druid"] = "Druide",
+		["Paladin"] = "Paladin",
+		["Shaman"] = "Chaman",
+		["Rogue"] = "Voleur",
+		["Deathknight"] = "Chevalier de la mort",
+
+		["WARLOCK"] = "Démoniste",
+		["WARRIOR"] = "Guerrière",
+		["HUNTER"] = "Chasseresse",
+		["MAGE"] = "Mage",
+		["PRIEST"] = "Prêtresse",
+		["DRUID"] = "Druidesse",
+		["PALADIN"] = "Paladin",
+		["SHAMAN"] = "Chamane",
+		["ROGUE"] = "Voleuse",
+		["DEATHKNIGHT"] = "Chevalier de la mort",
+	}
+elseif GAME_LOCALE == "zhCN" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "术士",
+		["Warrior"] = "战士",
+		["Hunter"] = "猎人",
+		["Mage"] = "法师",
+		["Priest"] = "牧师",
+		["Druid"] = "德鲁伊",
+		["Paladin"] = "圣骑士",
+		["Shaman"] = "萨满祭司",
+		["Rogue"] = "潜行者",
+		["Deathknight"] = "死亡骑士",
+
+		["WARLOCK"] = "术士",
+		["WARRIOR"] = "战士",
+		["HUNTER"] = "猎人",
+		["MAGE"] = "法师",
+		["PRIEST"] = "牧师",
+		["DRUID"] = "德鲁伊",
+		["PALADIN"] = "圣骑士",
+		["SHAMAN"] = "萨满祭司",
+		["ROGUE"] = "潜行者",
+		["DEATHKNIGHT"] = "死亡骑士",
+	}
+elseif GAME_LOCALE == "zhTW" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "術士",
+		["Warrior"] = "戰士",
+		["Hunter"] = "獵人",
+		["Mage"] = "法師",
+		["Priest"] = "牧師",
+		["Druid"] = "德魯伊",
+		["Paladin"] = "聖騎士",
+		["Shaman"] = "薩滿",
+		["Rogue"] = "盜賊",
+		["Deathknight"] = "死亡騎士",
+
+		["WARLOCK"] = "術士",
+		["WARRIOR"] = "戰士",
+		["HUNTER"] = "獵人",
+		["MAGE"] = "法師",
+		["PRIEST"] = "牧師",
+		["DRUID"] = "德魯伊",
+		["PALADIN"] = "聖騎士",
+		["SHAMAN"] = "薩滿",
+		["ROGUE"] = "盜賊",
+		["DEATHKNIGHT"] = "死亡騎士",
+	}
+elseif GAME_LOCALE == "koKR" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "흑마법사",
+		["Warrior"] = "전사",
+		["Hunter"] = "사냥꾼",
+		["Mage"] = "마법사",
+		["Priest"] = "사제",
+		["Druid"] = "드루이드",
+		["Paladin"] = "성기사",
+		["Shaman"] = "주술사",
+		["Rogue"] = "도적",
+		["Deathknight"] = "죽음의 기사",
+
+		["WARLOCK"] = "흑마법사",
+		["WARRIOR"] = "전사",
+		["HUNTER"] = "사냥꾼",
+		["MAGE"] = "마법사",
+		["PRIEST"] = "사제",
+		["DRUID"] = "드루이드",
+		["PALADIN"] = "성기사",
+		["SHAMAN"] = "주술사",
+		["ROGUE"] = "도적",
+		["DEATHKNIGHT"] = "죽음의 기사",
+	}
+elseif GAME_LOCALE == "esES" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "Brujo",
+		["Warrior"] = "Guerrero",
+		["Hunter"] = "Cazador",
+		["Mage"] = "Mago",
+		["Priest"] = "Sacerdote",
+		["Druid"] = "Druida",
+		["Paladin"] = "Paladín",
+		["Shaman"] = "Chamán",
+		["Rogue"] = "Pícaro",
+		["Deathknight"] = "Caballero de la muerte",
+
+		["WARLOCK"] = "Bruja",
+		["WARRIOR"] = "Guerrera",
+		["HUNTER"] = "Cazadora",
+		["MAGE"] = "Maga",
+		["PRIEST"] = "Sacerdotisa",
+		["DRUID"] = "Druida",
+		["PALADIN"] = "Paladín",
+		["SHAMAN"] = "Chamán",
+		["ROGUE"] = "Pícara",
+		["Deathknight"] = "Caballero de la muerte",
+	}
+elseif GAME_LOCALE == "esMX" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "Brujo",
+		["Warrior"] = "Guerrero",
+		["Hunter"] = "Cazador",
+		["Mage"] = "Mago",
+		["Priest"] = "Sacerdote",
+		["Druid"] = "Druida",
+		["Paladin"] = "Paladín",
+		["Shaman"] = "Chamán",
+		["Rogue"] = "Pícaro",
+		["Deathknight"] = "Caballero de la muerte",
+
+		["WARLOCK"] = "Bruja",
+		["WARRIOR"] = "Guerrera",
+		["HUNTER"] = "Cazadora",
+		["MAGE"] = "Maga",
+		["PRIEST"] = "Sacerdotisa",
+		["DRUID"] = "Druida",
+		["PALADIN"] = "Paladín",
+		["SHAMAN"] = "Chamán",
+		["ROGUE"] = "Pícara",
+		["Deathknight"] = "Caballero de la muerte",
+	}
+elseif GAME_LOCALE == "ruRU" then
+	lib:SetCurrentTranslations {
+		["Warlock"] = "Чернокнижник",
+		["Warrior"] = "Воин",
+		["Hunter"] = "Охотник",
+		["Mage"] = "Маг",
+		["Priest"] = "Жрец",
+		["Druid"] = "Друид",
+		["Paladin"] = "Паладин",
+		["Shaman"] = "Шаман",
+		["Rogue"] = "Разбойник",
+		["Deathknight"] = "Рыцарь смерти",
+
+		["WARLOCK"] = "Чернокнижница",
+		["WARRIOR"] = "Воин",
+		["HUNTER"] = "Охотница",
+		["MAGE"] = "Маг",
+		["PRIEST"] = "Жрица",
+		["DRUID"] = "Друид",
+		["PALADIN"] = "Паладин",
+		["SHAMAN"] = "Шаманка",
+		["ROGUE"] = "Разбойница",
+		["DEATHKNIGHT"] = "Рыцарь смерти",
+	}
+else
+	error(("%s: Locale %q not supported"):format(MAJOR_VERSION, GAME_LOCALE))
+end

!Compatibility/libs/LibStub.lua

@@ -0,0 +1,51 @@
+-- $Id: LibStub.lua 103 2014-10-16 03:02:50Z mikk $
+-- LibStub is a simple versioning stub meant for use in Libraries. http://www.wowace.com/addons/libstub/ for more info
+-- LibStub is hereby placed in the Public Domain
+-- Credits: Kaelten, Cladhaire, ckknight, Mikk, Ammo, Nevcairiel, joshborke
+local LIBSTUB_MAJOR, LIBSTUB_MINOR = "LibStub", 2 -- NEVER MAKE THIS AN SVN REVISION! IT NEEDS TO BE USABLE IN ALL REPOS!
+local LibStub = _G[LIBSTUB_MAJOR]
+
+-- Check to see is this version of the stub is obsolete
+if not LibStub or LibStub.minor < LIBSTUB_MINOR then
+	LibStub = LibStub or {libs = {}, minors = {} }
+	_G[LIBSTUB_MAJOR] = LibStub
+	LibStub.minor = LIBSTUB_MINOR
+
+	-- LibStub:NewLibrary(major, minor)
+	-- major (string) - the major version of the library
+	-- minor (string or number ) - the minor version of the library
+	--
+	-- returns nil if a newer or same version of the lib is already present
+	-- returns empty library object or old library object if upgrade is needed
+	function LibStub:NewLibrary(major, minor)
+		assert(type(major) == "string", "Bad argument #2 to `NewLibrary' (string expected)")
+		minor = assert(tonumber(strmatch(minor, "%d+")), "Minor version must either be a number or contain a number.")
+
+		local oldminor = self.minors[major]
+		if oldminor and oldminor >= minor then return nil end
+		self.minors[major], self.libs[major] = minor, self.libs[major] or {}
+		return self.libs[major], oldminor
+	end
+
+	-- LibStub:GetLibrary(major, [silent])
+	-- major (string) - the major version of the library
+	-- silent (boolean) - if true, library is optional, silently return nil if its not found
+	--
+	-- throws an error if the library can not be found (except silent is set)
+	-- returns the library object if found
+	function LibStub:GetLibrary(major, silent)
+		if not self.libs[major] and not silent then
+			error(("Cannot find a library instance of %q."):format(tostring(major)), 2)
+		end
+		return self.libs[major], self.minors[major]
+	end
+
+	-- LibStub:IterateLibraries()
+	--
+	-- Returns an iterator for the currently registered libraries
+	function LibStub:IterateLibraries()
+		return pairs(self.libs)
+	end
+
+	setmetatable(LibStub, { __call = LibStub.GetLibrary })
+end

!Compatibility/libs/libs.xml

@@ -0,0 +1,6 @@
+<Ui xmlns="http://www.blizzard.com/wow/ui/">
+	<Script file="LibStub.lua"/>
+	<Script file="LibBabble-3.0.lua"/>
+	<Script file="LibBabble-Class-3.0.lua"/>
+	<Script file="LibBabble-Zone-3.0.lua"/>
+</Ui>

!Compatibility/slashCommands.lua

@@ -0,0 +1,59 @@
+--Cache global variables
+local strmatch = strmatch
+--WoW API
+local IsAddOnLoaded = IsAddOnLoaded
+
+local checked
+local function LoadDebugTools()
+	if checked then return end
+
+	local _, _, _, loadable, _, reason = GetAddOnInfo("!DebugTools")
+	checked = true
+
+	if reason == "MISSING" then return end
+
+	if loadable then
+		LoadAddOn("!DebugTools")
+	else
+		EnableAddOn("!DebugTools")
+		LoadAddOn("!DebugTools")
+		DisableAddOn("!DebugTools")
+	end
+end
+
+SLASH_FRAMESTACK1 = "/framestack"
+SLASH_FRAMESTACK2 = "/fstack"
+SlashCmdList["FRAMESTACK"] = function(msg)
+	LoadDebugTools()
+
+	if IsAddOnLoaded("!DebugTools") then
+		local showHiddenArg, showRegionsArg = strmatch(msg, "^%s*(%S+)%s+(%S+)%s*$")
+		if (not showHiddenArg or not showRegionsArg) then
+			showHiddenArg = strmatch(msg, "^%s*(%S+)%s*$")
+			showRegionsArg = "1"
+		end
+		local showHidden = showHiddenArg == "true" or showHiddenArg == "1"
+		local showRegions = showRegions == "true" or showRegionsArg == "1"
+
+		FrameStackTooltip_Toggle(showHidden, showRegions)
+	end
+end
+
+SLASH_EVENTTRACE1 = "/eventtrace"
+SLASH_EVENTTRACE2 = "/etrace"
+SlashCmdList["EVENTTRACE"] = function(msg)
+	LoadDebugTools()
+
+	if IsAddOnLoaded("!DebugTools") then
+		EventTraceFrame_HandleSlashCmd(msg)
+	end
+end
+
+SLASH_DUMP1 = "/dump"
+SlashCmdList["DUMP"] = function(msg)
+	LoadDebugTools()
+
+	if IsAddOnLoaded("!DebugTools") then
+		DevTools_DumpCommand(msg)
+	end
+end