--[[Name: AceLocale-2.0Revision: $Rev: 76110 $Author(s): ckknight (ckknight@gmail.com)Website: http://www.wowace.com/Documentation: http://wiki.wowace.com/index.php/AceLocale-2.0SVN: http://svn.wowace.com/root/trunk/Ace2/AceLocale-2.0Description: Localization library for addons to use to handle proper localization and internationalization.Dependencies: AceLibrary]]local MAJOR_VERSION = "AceLocale-2.0"local MINOR_VERSION = "$Revision: 76110 $"if not AceLibrary then error(MAJOR_VERSION .. " requires AceLibrary.") endif not AceLibrary:IsNewVersion(MAJOR_VERSION, MINOR_VERSION) then return endlocal AceLocale = {}local DEFAULT_LOCALE = "enUS"local _G = getfenv(0)local new, deldo local list = setmetatable({}, {__mode='k'}) function new() local t = next(list) if t then list[t] = nil return t else return {} end end function del(t) setmetatable(t, nil) for k in pairs(t) do t[k] = nil end table.setn(t, 0) list[t] = true endendfunction AceLocale:new(name) self:argCheck(name, 2, "string") if self.registry[name] and type(self.registry[name].GetLibraryVersion) ~= "function" then return self.registry[name] end local self = new() local mt = new() mt.__index = AceLocale.prototype mt.__call = AceLocale.prototype.GetTranslation mt.__tostring = function(self) if type(self.GetLibraryVersion) == "function" then return self:GetLibraryVersion() else return "AceLocale(" .. name .. ")" end end setmetatable(self, mt) AceLocale.registry[name] = self return selfendsetmetatable(AceLocale, { __call = AceLocale.new })AceLocale.prototype = {}AceLocale.prototype.class = AceLocalefunction AceLocale.prototype:EnableDebugging() if self.baseTranslations then AceLocale.error(self, "Cannot enable debugging after a translation has been registered.") end self.debugging = trueendfunction AceLocale.prototype:RegisterTranslations(locale, func) AceLocale.argCheck(self, locale, 2, "string") AceLocale.argCheck(self, func, 3, "function") if locale == self.baseLocale then AceLocale.error(self, "Cannot provide the same locale more than once. %q provided twice.", locale) end if self.baseTranslations and GetLocale() ~= locale then if self.debugging then local t = func() func = nil if type(t) ~= "table" then AceLocale.error(self, "Bad argument #3 to `RegisterTranslations'. function did not return a table. (expected table, got %s)", type(t)) end self.translationTables[locale] = t t = nil end func = nil return end local t = func() func = nil if type(t) ~= "table" then AceLocale.error(self, "Bad argument #3 to `RegisterTranslations'. function did not return a table. (expected table, got %s)", type(t)) end self.translations = t if not self.baseTranslations then self.baseTranslations = t self.baseLocale = locale for key,value in pairs(self.baseTranslations) do if value == true then self.baseTranslations[key] = key end end local mt = getmetatable(self) local __index = mt.__index mt.__index = self.baseTranslations local mt2 = new() mt2.__index = __index setmetatable(self.baseTranslations, mt2) else for key, value in pairs(self.translations) do if not self.baseTranslations[key] then AceLocale.error(self, "Improper translation exists. %q is likely misspelled for locale %s.", key, locale) elseif value == true then AceLocale.error(self, "Can only accept true as a value on the base locale. %q is the base locale, %q is not.", self.baseLocale, locale) end end local mt = getmetatable(self) local __index = mt.__index mt.__index = self.translations local mt2 = new() mt2.__index = __index setmetatable(self.translations, mt2) end if self.debugging then if not self.translationTables then self.translationTables = {} end self.translationTables[locale] = t end t = nilendfunction AceLocale.prototype:SetStrictness(strict) local mt = getmetatable(self) if not mt then AceLocale.error(self, "Cannot call `SetStrictness' without a metatable.") end local mt2 = getmetatable(self.translations) local mt3 = getmetatable(self.baseTranslations) if mt2 then mt2 = del(mt2) setmetatable(self.translations, nil) end if mt3 then mt3 = del(mt3) setmetatable(self.baseTranslations, nil) end getmetatable(self).__index = AceLocale.prototype if strict then mt.__call = self.GetTranslationStrict local mt2 = new() mt2.__index = AceLocale.prototype setmetatable(self.translations or self.baseTranslations, mt2) getmetatable(self).__index = self.translations or self.baseTranslations else mt.__call = self.GetTranslation local mt2 = new() mt2.__index = AceLocale.prototype setmetatable(self.baseTranslations, mt2) mt.__index = self.baseTranslations if self.translations then local mt3 = new() mt3.__index = self.baseTranslations setmetatable(self.translations, mt3) mt.__index = self.translations end endendfunction AceLocale.prototype:GetTranslationStrict(text, sublevel) AceLocale.argCheck(self, text, 1, "string") AceLocale.assert(self, self.translations, "No translations registered") if not self.translations then AceLocale.error(self, "No translations registered") end if sublevel then AceLocale.argCheck(self, sublevel, 2, "string") local t = self.translations[text] if type(t) ~= "table" then if type(self.baseTranslations[text]) == "table" then AceLocale.error(self, "%q::%q has not been translated into %q", text, sublevel, GetLocale()) return else AceLocale.error(self, "Translation for %q::%q does not exist", text, sublevel) return end end local translation = t[sublevel] if type(translation) ~= "string" then if type(self.baseTranslations[text]) == "table" then if type(self.baseTranslations[text][sublevel]) == "string" then AceLocale.error(self, "%q::%q has not been translated into %q", text, sublevel, GetLocale()) return else AceLocale.error(self, "Translation for %q::%q does not exist", text, sublevel) return end else AceLocale.error(self, "Translation for %q::%q does not exist", text, sublevel) return end end return translation end local translation = self.translations[text] if type(translation) ~= "string" then if type(self.baseTranslations[text]) == "string" then AceLocale.error(self, "%q has not been translated into %q", text, GetLocale()) return else AceLocale.error(self, "Translation for %q does not exist", text) return end end return translationendfunction AceLocale.prototype:GetTranslation(text, sublevel) AceLocale:argCheck(text, 1, "string") AceLocale.assert(self, self.translations, "No translations registered") if sublevel then AceLocale:argCheck(sublevel, 2, "string", "nil") local t = self.translations[text] if type(t) == "table" then local translation = t[sublevel] if type(translation) == "string" then return translation else t = self.baseTranslations[text] if type(t) ~= "table" then AceLocale.error(self, "Translation table %q does not exist", text) return end translation = t[sublevel] if type(translation) ~= "string" then AceLocale.error(self, "Translation for %q::%q does not exist", text, sublevel) return end return translation end else t = self.baseTranslations[text] if type(t) ~= "table" then AceLocale.error(self, "Translation table %q does not exist", text) return end local translation = t[sublevel] if type(translation) ~= "string" then AceLocale.error(self, "Translation for %q::%q does not exist", text, sublevel) return end return translation end end local translation = self.translations[text] if type(translation) == "string" then return translation else translation = self.baseTranslations[text] if type(translation) ~= "string" then AceLocale.error(self, "Translation for %q does not exist", text) return end return translation endendlocal function initReverse(self) self.reverseTranslations = {} local alpha = self.translations local bravo = self.reverseTranslations for base, localized in pairs(alpha) do bravo[localized] = base endendfunction AceLocale.prototype:GetReverseTranslation(text) AceLocale.argCheck(self, text, 1, "string") AceLocale.assert(self, self.translations, "No translations registered") if not self.reverseTranslations then initReverse(self) end local translation = self.reverseTranslations[text] if type(translation) ~= "string" then AceLocale.error(self, "Reverse translation for %q does not exist", text) return end return translationendfunction AceLocale.prototype:GetIterator() AceLocale.assert(self, self.translations, "No translations registered") return pairs(self.translations)endfunction AceLocale.prototype:GetReverseIterator() AceLocale.assert(self, self.translations, "No translations registered") if not self.reverseTranslations then initReverse(self) end return pairs(self.reverseTranslations)endfunction AceLocale.prototype:HasTranslation(text, sublevel) AceLocale.argCheck(self, text, 1, "string") AceLocale.assert(self, self.translations, "No translations registered") if sublevel then AceLocale.argCheck(self, sublevel, 2, "string", "nil") return type(self.translations[text]) == "table" and self.translations[text][sublevel] and true end return self.translations[text] and trueendfunction AceLocale.prototype:HasReverseTranslation(text) AceLocale.assert(self, self.translations, "No translations registered") if not self.reverseTranslations then initReverse(self) end return self.reverseTranslations[text] and trueendfunction AceLocale.prototype:GetTableStrict(key, key2) AceLocale.argCheck(self, key, 1, "string") AceLocale.assert(self, self.translations, "No translations registered") if key2 then AceLocale.argCheck(self, key2, 2, "string") local t = self.translations[key] if type(t) ~= "table" then if type(self.baseTranslations[key]) == "table" then AceLocale.error(self, "%q::%q has not been translated into %q", key, key2, GetLocale()) return else AceLocale.error(self, "Translation table %q::%q does not exist", key, key2) return end end local translation = t[key2] if type(translation) ~= "table" then if type(self.baseTranslations[key]) == "table" then if type(self.baseTranslations[key][key2]) == "table" then AceLocale.error(self, "%q::%q has not been translated into %q", key, key2, GetLocale()) return else AceLocale.error(self, "Translation table %q::%q does not exist", key, key2) return end else AceLocale.error(self, "Translation table %q::%q does not exist", key, key2) return end end return translation end local translation = self.translations[key] if type(translation) ~= "table" then if type(self.baseTranslations[key]) == "table" then AceLocale.error(self, "%q has not been translated into %q", key, GetLocale()) return else AceLocale.error(self, "Translation table %q does not exist", key) return end end return translationendfunction AceLocale.prototype:GetTable(key, key2) AceLocale.argCheck(self, key, 1, "string") AceLocale.assert(self, self.translations, "No translations registered") if key2 then AceLocale.argCheck(self, key2, 2, "string", "nil") local t = self.translations[key] if type(t) == "table" then local translation = t[key2] if type(translation) == "table" then return translation else t = self.baseTranslations[key] if type(t) ~= "table" then AceLocale.error(self, "Translation table %q does not exist", key) return end translation = t[key2] if type(translation) ~= "table" then AceLocale.error(self, "Translation table %q::%q does not exist", key, key2) return end return translation end else t = self.baseTranslations[key] if type(t) ~= "table" then AceLocale.error(self, "Translation table %q does not exist", key) return end local translation = t[key2] if type(translation) ~= "table" then AceLocale.error(self, "Translation table %q::%q does not exist", key, key2) return end return translation end end local translation = self.translations[key] if type(translation) == "table" then return translation else translation = self.baseTranslations[key] if type(translation) ~= "table" then AceLocale.error(self, "Translation table %q does not exist", key) return end return translation endendfunction AceLocale.prototype:Debug() if not self.debugging then return end local words = {} local locales = {"enUS", "deDE", "frFR", "zhCN", "zhTW", "koKR"} local localizations = {} DEFAULT_CHAT_FRAME:AddMessage("--- AceLocale Debug ---") for _,locale in ipairs(locales) do if not self.translationTables[locale] then DEFAULT_CHAT_FRAME:AddMessage(string.format("Locale %q not found", locale)) else localizations[locale] = self.translationTables[locale] end end local localeDebug = {} for locale, localization in pairs(localizations) do localeDebug[locale] = {} for word in pairs(localization) do if type(localization[word]) == "table" then if type(words[word]) ~= "table" then words[word] = {} end for bit in pairs(localization[word]) do if type(localization[word][bit]) == "string" then words[word][bit] = true end end elseif type(localization[word]) == "string" then words[word] = true end end end for word in pairs(words) do if type(words[word]) == "table" then for bit in pairs(words[word]) do for locale, localization in pairs(localizations) do if not localization[word] or not localization[word][bit] then localeDebug[locale][word .. "::" .. bit] = true end end end else for locale, localization in pairs(localizations) do if not localization[word] then localeDebug[locale][word] = true end end end end for locale, t in pairs(localeDebug) do if not next(t) then DEFAULT_CHAT_FRAME:AddMessage(string.format("Locale %q complete", locale)) else DEFAULT_CHAT_FRAME:AddMessage(string.format("Locale %q missing:", locale)) for word in pairs(t) do DEFAULT_CHAT_FRAME:AddMessage(string.format(" %q", word)) end end end DEFAULT_CHAT_FRAME:AddMessage("--- End AceLocale Debug ---")endlocal function activate(self, oldLib, oldDeactivate) AceLocale = self if oldLib then self.registry = oldLib.registry end if not self.registry then self.registry = {} end if oldDeactivate then oldDeactivate(oldLib) endendAceLibrary:Register(AceLocale, MAJOR_VERSION, MINOR_VERSION, activate)AceLocale = AceLibrary(MAJOR_VERSION)