Xiiph@0: --- **AceAddon-3.0** provides a template for creating addon objects.
Xiiph@0: -- It'll provide you with a set of callback functions that allow you to simplify the loading
Xiiph@0: -- process of your addon.\\
Xiiph@0: -- Callbacks provided are:\\
Xiiph@0: -- * **OnInitialize**, which is called directly after the addon is fully loaded.
Xiiph@0: -- * **OnEnable** which gets called during the PLAYER_LOGIN event, when most of the data provided by the game is already present.
Xiiph@0: -- * **OnDisable**, which is only called when your addon is manually being disabled.
Xiiph@0: -- @usage
Xiiph@0: -- -- A small (but complete) addon, that doesn't do anything, 
Xiiph@0: -- -- but shows usage of the callbacks.
Xiiph@0: -- local MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon")
Xiiph@0: -- 
Xiiph@0: -- function MyAddon:OnInitialize()
Xiiph@0: --   -- do init tasks here, like loading the Saved Variables, 
Xiiph@0: --   -- or setting up slash commands.
Xiiph@0: -- end
Xiiph@0: -- 
Xiiph@0: -- function MyAddon:OnEnable()
Xiiph@0: --   -- Do more initialization here, that really enables the use of your addon.
Xiiph@0: --   -- Register Events, Hook functions, Create Frames, Get information from 
Xiiph@0: --   -- the game that wasn't available in OnInitialize
Xiiph@0: -- end
Xiiph@0: --
Xiiph@0: -- function MyAddon:OnDisable()
Xiiph@0: --   -- Unhook, Unregister Events, Hide frames that you created.
Xiiph@0: --   -- You would probably only use an OnDisable if you want to 
Xiiph@0: --   -- build a "standby" mode, or be able to toggle modules on/off.
Xiiph@0: -- end
Xiiph@0: -- @class file
Xiiph@0: -- @name AceAddon-3.0.lua
Xiiph@0: -- @release $Id: AceAddon-3.0.lua 980 2010-10-27 14:20:11Z nevcairiel $
Xiiph@0: 
Xiiph@0: local MAJOR, MINOR = "AceAddon-3.0", 10
Xiiph@0: local AceAddon, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
Xiiph@0: 
Xiiph@0: if not AceAddon then return end -- No Upgrade needed.
Xiiph@0: 
Xiiph@0: AceAddon.frame = AceAddon.frame or CreateFrame("Frame", "AceAddon30Frame") -- Our very own frame
Xiiph@0: AceAddon.addons = AceAddon.addons or {} -- addons in general
Xiiph@0: AceAddon.statuses = AceAddon.statuses or {} -- statuses of addon.
Xiiph@0: AceAddon.initializequeue = AceAddon.initializequeue or {} -- addons that are new and not initialized
Xiiph@0: AceAddon.enablequeue = AceAddon.enablequeue or {} -- addons that are initialized and waiting to be enabled
Xiiph@0: AceAddon.embeds = AceAddon.embeds or setmetatable({}, {__index = function(tbl, key) tbl[key] = {} return tbl[key] end }) -- contains a list of libraries embedded in an addon
Xiiph@0: 
Xiiph@0: -- Lua APIs
Xiiph@0: local tinsert, tconcat, tremove = table.insert, table.concat, table.remove
Xiiph@0: local fmt, tostring = string.format, tostring
Xiiph@0: local select, pairs, next, type, unpack = select, pairs, next, type, unpack
Xiiph@0: local loadstring, assert, error = loadstring, assert, error
Xiiph@0: local setmetatable, getmetatable, rawset, rawget = setmetatable, getmetatable, rawset, rawget
Xiiph@0: 
Xiiph@0: -- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
Xiiph@0: -- List them here for Mikk's FindGlobals script
Xiiph@0: -- GLOBALS: LibStub, IsLoggedIn, geterrorhandler
Xiiph@0: 
Xiiph@0: --[[
Xiiph@0: 	 xpcall safecall implementation
Xiiph@0: ]]
Xiiph@0: local xpcall = xpcall
Xiiph@0: 
Xiiph@0: local function errorhandler(err)
Xiiph@0: 	return geterrorhandler()(err)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: local function CreateDispatcher(argCount)
Xiiph@0: 	local code = [[
Xiiph@0: 		local xpcall, eh = ...
Xiiph@0: 		local method, ARGS
Xiiph@0: 		local function call() return method(ARGS) end
Xiiph@0: 	
Xiiph@0: 		local function dispatch(func, ...)
Xiiph@0: 			 method = func
Xiiph@0: 			 if not method then return end
Xiiph@0: 			 ARGS = ...
Xiiph@0: 			 return xpcall(call, eh)
Xiiph@0: 		end
Xiiph@0: 	
Xiiph@0: 		return dispatch
Xiiph@0: 	]]
Xiiph@0: 	
Xiiph@0: 	local ARGS = {}
Xiiph@0: 	for i = 1, argCount do ARGS[i] = "arg"..i end
Xiiph@0: 	code = code:gsub("ARGS", tconcat(ARGS, ", "))
Xiiph@0: 	return assert(loadstring(code, "safecall Dispatcher["..argCount.."]"))(xpcall, errorhandler)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: local Dispatchers = setmetatable({}, {__index=function(self, argCount)
Xiiph@0: 	local dispatcher = CreateDispatcher(argCount)
Xiiph@0: 	rawset(self, argCount, dispatcher)
Xiiph@0: 	return dispatcher
Xiiph@0: end})
Xiiph@0: Dispatchers[0] = function(func)
Xiiph@0: 	return xpcall(func, errorhandler)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: local function safecall(func, ...)
Xiiph@0: 	-- we check to see if the func is passed is actually a function here and don't error when it isn't
Xiiph@0: 	-- this safecall is used for optional functions like OnInitialize OnEnable etc. When they are not
Xiiph@0: 	-- present execution should continue without hinderance
Xiiph@0: 	if type(func) == "function" then
Xiiph@0: 		return Dispatchers[select('#', ...)](func, ...)
Xiiph@0: 	end
Xiiph@0: end
Xiiph@0: 
Xiiph@0: -- local functions that will be implemented further down
Xiiph@0: local Enable, Disable, EnableModule, DisableModule, Embed, NewModule, GetModule, GetName, SetDefaultModuleState, SetDefaultModuleLibraries, SetEnabledState, SetDefaultModulePrototype
Xiiph@0: 
Xiiph@0: -- used in the addon metatable
Xiiph@0: local function addontostring( self ) return self.name end 
Xiiph@0: 
Xiiph@0: --- Create a new AceAddon-3.0 addon.
Xiiph@0: -- Any libraries you specified will be embeded, and the addon will be scheduled for 
Xiiph@0: -- its OnInitialize and OnEnable callbacks.
Xiiph@0: -- The final addon object, with all libraries embeded, will be returned.
Xiiph@0: -- @paramsig [object ,]name[, lib, ...]
Xiiph@0: -- @param object Table to use as a base for the addon (optional)
Xiiph@0: -- @param name Name of the addon object to create
Xiiph@0: -- @param lib List of libraries to embed into the addon
Xiiph@0: -- @usage 
Xiiph@0: -- -- Create a simple addon object
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon", "AceEvent-3.0")
Xiiph@0: --
Xiiph@0: -- -- Create a Addon object based on the table of a frame
Xiiph@0: -- local MyFrame = CreateFrame("Frame")
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):NewAddon(MyFrame, "MyAddon", "AceEvent-3.0")
Xiiph@0: function AceAddon:NewAddon(objectorname, ...)
Xiiph@0: 	local object,name
Xiiph@0: 	local i=1
Xiiph@0: 	if type(objectorname)=="table" then
Xiiph@0: 		object=objectorname
Xiiph@0: 		name=...
Xiiph@0: 		i=2
Xiiph@0: 	else
Xiiph@0: 		name=objectorname
Xiiph@0: 	end
Xiiph@0: 	if type(name)~="string" then
Xiiph@0: 		error(("Usage: NewAddon([object,] name, [lib, lib, lib, ...]): 'name' - string expected got '%s'."):format(type(name)), 2)
Xiiph@0: 	end
Xiiph@0: 	if self.addons[name] then 
Xiiph@0: 		error(("Usage: NewAddon([object,] name, [lib, lib, lib, ...]): 'name' - Addon '%s' already exists."):format(name), 2)
Xiiph@0: 	end
Xiiph@0: 	
Xiiph@0: 	object = object or {}
Xiiph@0: 	object.name = name
Xiiph@0: 
Xiiph@0: 	local addonmeta = {}
Xiiph@0: 	local oldmeta = getmetatable(object)
Xiiph@0: 	if oldmeta then
Xiiph@0: 		for k, v in pairs(oldmeta) do addonmeta[k] = v end
Xiiph@0: 	end
Xiiph@0: 	addonmeta.__tostring = addontostring
Xiiph@0: 	
Xiiph@0: 	setmetatable( object, addonmeta )
Xiiph@0: 	self.addons[name] = object
Xiiph@0: 	object.modules = {}
Xiiph@0: 	object.orderedModules = {}
Xiiph@0: 	object.defaultModuleLibraries = {}
Xiiph@0: 	Embed( object ) -- embed NewModule, GetModule methods
Xiiph@0: 	self:EmbedLibraries(object, select(i,...))
Xiiph@0: 	
Xiiph@0: 	-- add to queue of addons to be initialized upon ADDON_LOADED
Xiiph@0: 	tinsert(self.initializequeue, object)
Xiiph@0: 	return object
Xiiph@0: end
Xiiph@0: 
Xiiph@0: 
Xiiph@0: --- Get the addon object by its name from the internal AceAddon registry.
Xiiph@0: -- Throws an error if the addon object cannot be found (except if silent is set).
Xiiph@0: -- @param name unique name of the addon object
Xiiph@0: -- @param silent if true, the addon is optional, silently return nil if its not found
Xiiph@0: -- @usage 
Xiiph@0: -- -- Get the Addon
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: function AceAddon:GetAddon(name, silent)
Xiiph@0: 	if not silent and not self.addons[name] then
Xiiph@0: 		error(("Usage: GetAddon(name): 'name' - Cannot find an AceAddon '%s'."):format(tostring(name)), 2)
Xiiph@0: 	end
Xiiph@0: 	return self.addons[name]
Xiiph@0: end
Xiiph@0: 
Xiiph@0: -- - Embed a list of libraries into the specified addon.
Xiiph@0: -- This function will try to embed all of the listed libraries into the addon
Xiiph@0: -- and error if a single one fails.
Xiiph@0: --
Xiiph@0: -- **Note:** This function is for internal use by :NewAddon/:NewModule
Xiiph@0: -- @paramsig addon, [lib, ...]
Xiiph@0: -- @param addon addon object to embed the libs in
Xiiph@0: -- @param lib List of libraries to embed into the addon
Xiiph@0: function AceAddon:EmbedLibraries(addon, ...)
Xiiph@0: 	for i=1,select("#", ... ) do
Xiiph@0: 		local libname = select(i, ...)
Xiiph@0: 		self:EmbedLibrary(addon, libname, false, 4)
Xiiph@0: 	end
Xiiph@0: end
Xiiph@0: 
Xiiph@0: -- - Embed a library into the addon object.
Xiiph@0: -- This function will check if the specified library is registered with LibStub
Xiiph@0: -- and if it has a :Embed function to call. It'll error if any of those conditions
Xiiph@0: -- fails.
Xiiph@0: --
Xiiph@0: -- **Note:** This function is for internal use by :EmbedLibraries
Xiiph@0: -- @paramsig addon, libname[, silent[, offset]]
Xiiph@0: -- @param addon addon object to embed the library in
Xiiph@0: -- @param libname name of the library to embed
Xiiph@0: -- @param silent marks an embed to fail silently if the library doesn't exist (optional)
Xiiph@0: -- @param offset will push the error messages back to said offset, defaults to 2 (optional)
Xiiph@0: function AceAddon:EmbedLibrary(addon, libname, silent, offset)
Xiiph@0: 	local lib = LibStub:GetLibrary(libname, true)
Xiiph@0: 	if not lib and not silent then
Xiiph@0: 		error(("Usage: EmbedLibrary(addon, libname, silent, offset): 'libname' - Cannot find a library instance of %q."):format(tostring(libname)), offset or 2)
Xiiph@0: 	elseif lib and type(lib.Embed) == "function" then
Xiiph@0: 		lib:Embed(addon)
Xiiph@0: 		tinsert(self.embeds[addon], libname)
Xiiph@0: 		return true
Xiiph@0: 	elseif lib then
Xiiph@0: 		error(("Usage: EmbedLibrary(addon, libname, silent, offset): 'libname' - Library '%s' is not Embed capable"):format(libname), offset or 2)
Xiiph@0: 	end
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Return the specified module from an addon object.
Xiiph@0: -- Throws an error if the addon object cannot be found (except if silent is set)
Xiiph@0: -- @name //addon//:GetModule
Xiiph@0: -- @paramsig name[, silent]
Xiiph@0: -- @param name unique name of the module
Xiiph@0: -- @param silent if true, the module is optional, silently return nil if its not found (optional)
Xiiph@0: -- @usage 
Xiiph@0: -- -- Get the Addon
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: -- -- Get the Module
Xiiph@0: -- MyModule = MyAddon:GetModule("MyModule")
Xiiph@0: function GetModule(self, name, silent)
Xiiph@0: 	if not self.modules[name] and not silent then
Xiiph@0: 		error(("Usage: GetModule(name, silent): 'name' - Cannot find module '%s'."):format(tostring(name)), 2)
Xiiph@0: 	end
Xiiph@0: 	return self.modules[name]
Xiiph@0: end
Xiiph@0: 
Xiiph@0: local function IsModuleTrue(self) return true end
Xiiph@0: 
Xiiph@0: --- Create a new module for the addon.
Xiiph@0: -- The new module can have its own embeded libraries and/or use a module prototype to be mixed into the module.\\
Xiiph@0: -- A module has the same functionality as a real addon, it can have modules of its own, and has the same API as
Xiiph@0: -- an addon object.
Xiiph@0: -- @name //addon//:NewModule
Xiiph@0: -- @paramsig name[, prototype|lib[, lib, ...]]
Xiiph@0: -- @param name unique name of the module
Xiiph@0: -- @param prototype object to derive this module from, methods and values from this table will be mixed into the module (optional)
Xiiph@0: -- @param lib List of libraries to embed into the addon
Xiiph@0: -- @usage 
Xiiph@0: -- -- Create a module with some embeded libraries
Xiiph@0: -- MyModule = MyAddon:NewModule("MyModule", "AceEvent-3.0", "AceHook-3.0")
Xiiph@0: -- 
Xiiph@0: -- -- Create a module with a prototype
Xiiph@0: -- local prototype = { OnEnable = function(self) print("OnEnable called!") end }
Xiiph@0: -- MyModule = MyAddon:NewModule("MyModule", prototype, "AceEvent-3.0", "AceHook-3.0")
Xiiph@0: function NewModule(self, name, prototype, ...)
Xiiph@0: 	if type(name) ~= "string" then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'name' - string expected got '%s'."):format(type(name)), 2) end
Xiiph@0: 	if type(prototype) ~= "string" and type(prototype) ~= "table" and type(prototype) ~= "nil" then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'prototype' - table (prototype), string (lib) or nil expected got '%s'."):format(type(prototype)), 2) end
Xiiph@0: 	
Xiiph@0: 	if self.modules[name] then error(("Usage: NewModule(name, [prototype, [lib, lib, lib, ...]): 'name' - Module '%s' already exists."):format(name), 2) end
Xiiph@0: 	
Xiiph@0: 	-- modules are basically addons. We treat them as such. They will be added to the initializequeue properly as well.
Xiiph@0: 	-- NewModule can only be called after the parent addon is present thus the modules will be initialized after their parent is.
Xiiph@0: 	local module = AceAddon:NewAddon(fmt("%s_%s", self.name or tostring(self), name))
Xiiph@0: 	
Xiiph@0: 	module.IsModule = IsModuleTrue
Xiiph@0: 	module:SetEnabledState(self.defaultModuleState)
Xiiph@0: 	module.moduleName = name
Xiiph@0: 
Xiiph@0: 	if type(prototype) == "string" then
Xiiph@0: 		AceAddon:EmbedLibraries(module, prototype, ...)
Xiiph@0: 	else
Xiiph@0: 		AceAddon:EmbedLibraries(module, ...)
Xiiph@0: 	end
Xiiph@0: 	AceAddon:EmbedLibraries(module, unpack(self.defaultModuleLibraries))
Xiiph@0: 
Xiiph@0: 	if not prototype or type(prototype) == "string" then
Xiiph@0: 		prototype = self.defaultModulePrototype or nil
Xiiph@0: 	end
Xiiph@0: 	
Xiiph@0: 	if type(prototype) == "table" then
Xiiph@0: 		local mt = getmetatable(module)
Xiiph@0: 		mt.__index = prototype
Xiiph@0: 		setmetatable(module, mt)  -- More of a Base class type feel.
Xiiph@0: 	end
Xiiph@0: 	
Xiiph@0: 	safecall(self.OnModuleCreated, self, module) -- Was in Ace2 and I think it could be a cool thing to have handy.
Xiiph@0: 	self.modules[name] = module
Xiiph@0: 	tinsert(self.orderedModules, module)
Xiiph@0: 	
Xiiph@0: 	return module
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Returns the real name of the addon or module, without any prefix.
Xiiph@0: -- @name //addon//:GetName
Xiiph@0: -- @paramsig 
Xiiph@0: -- @usage 
Xiiph@0: -- print(MyAddon:GetName())
Xiiph@0: -- -- prints "MyAddon"
Xiiph@0: function GetName(self)
Xiiph@0: 	return self.moduleName or self.name
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Enables the Addon, if possible, return true or false depending on success.
Xiiph@0: -- This internally calls AceAddon:EnableAddon(), thus dispatching a OnEnable callback
Xiiph@0: -- and enabling all modules of the addon (unless explicitly disabled).\\
Xiiph@0: -- :Enable() also sets the internal `enableState` variable to true
Xiiph@0: -- @name //addon//:Enable
Xiiph@0: -- @paramsig 
Xiiph@0: -- @usage 
Xiiph@0: -- -- Enable MyModule
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: -- MyModule = MyAddon:GetModule("MyModule")
Xiiph@0: -- MyModule:Enable()
Xiiph@0: function Enable(self)
Xiiph@0: 	self:SetEnabledState(true)
Xiiph@0: 	return AceAddon:EnableAddon(self)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Disables the Addon, if possible, return true or false depending on success.
Xiiph@0: -- This internally calls AceAddon:DisableAddon(), thus dispatching a OnDisable callback
Xiiph@0: -- and disabling all modules of the addon.\\
Xiiph@0: -- :Disable() also sets the internal `enableState` variable to false
Xiiph@0: -- @name //addon//:Disable
Xiiph@0: -- @paramsig 
Xiiph@0: -- @usage 
Xiiph@0: -- -- Disable MyAddon
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: -- MyAddon:Disable()
Xiiph@0: function Disable(self)
Xiiph@0: 	self:SetEnabledState(false)
Xiiph@0: 	return AceAddon:DisableAddon(self)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Enables the Module, if possible, return true or false depending on success.
Xiiph@0: -- Short-hand function that retrieves the module via `:GetModule` and calls `:Enable` on the module object.
Xiiph@0: -- @name //addon//:EnableModule
Xiiph@0: -- @paramsig name
Xiiph@0: -- @usage 
Xiiph@0: -- -- Enable MyModule using :GetModule
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: -- MyModule = MyAddon:GetModule("MyModule")
Xiiph@0: -- MyModule:Enable()
Xiiph@0: --
Xiiph@0: -- -- Enable MyModule using the short-hand
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: -- MyAddon:EnableModule("MyModule")
Xiiph@0: function EnableModule(self, name)
Xiiph@0: 	local module = self:GetModule( name )
Xiiph@0: 	return module:Enable()
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Disables the Module, if possible, return true or false depending on success.
Xiiph@0: -- Short-hand function that retrieves the module via `:GetModule` and calls `:Disable` on the module object.
Xiiph@0: -- @name //addon//:DisableModule
Xiiph@0: -- @paramsig name
Xiiph@0: -- @usage 
Xiiph@0: -- -- Disable MyModule using :GetModule
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: -- MyModule = MyAddon:GetModule("MyModule")
Xiiph@0: -- MyModule:Disable()
Xiiph@0: --
Xiiph@0: -- -- Disable MyModule using the short-hand
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):GetAddon("MyAddon")
Xiiph@0: -- MyAddon:DisableModule("MyModule")
Xiiph@0: function DisableModule(self, name)
Xiiph@0: 	local module = self:GetModule( name )
Xiiph@0: 	return module:Disable()
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Set the default libraries to be mixed into all modules created by this object.
Xiiph@0: -- Note that you can only change the default module libraries before any module is created.
Xiiph@0: -- @name //addon//:SetDefaultModuleLibraries
Xiiph@0: -- @paramsig lib[, lib, ...]
Xiiph@0: -- @param lib List of libraries to embed into the addon
Xiiph@0: -- @usage 
Xiiph@0: -- -- Create the addon object
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon")
Xiiph@0: -- -- Configure default libraries for modules (all modules need AceEvent-3.0)
Xiiph@0: -- MyAddon:SetDefaultModuleLibraries("AceEvent-3.0")
Xiiph@0: -- -- Create a module
Xiiph@0: -- MyModule = MyAddon:NewModule("MyModule")
Xiiph@0: function SetDefaultModuleLibraries(self, ...)
Xiiph@0: 	if next(self.modules) then
Xiiph@0: 		error("Usage: SetDefaultModuleLibraries(...): cannot change the module defaults after a module has been registered.", 2)
Xiiph@0: 	end
Xiiph@0: 	self.defaultModuleLibraries = {...}
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Set the default state in which new modules are being created.
Xiiph@0: -- Note that you can only change the default state before any module is created.
Xiiph@0: -- @name //addon//:SetDefaultModuleState
Xiiph@0: -- @paramsig state
Xiiph@0: -- @param state Default state for new modules, true for enabled, false for disabled
Xiiph@0: -- @usage 
Xiiph@0: -- -- Create the addon object
Xiiph@0: -- MyAddon = LibStub("AceAddon-3.0"):NewAddon("MyAddon")
Xiiph@0: -- -- Set the default state to "disabled"
Xiiph@0: -- MyAddon:SetDefaultModuleState(false)
Xiiph@0: -- -- Create a module and explicilty enable it
Xiiph@0: -- MyModule = MyAddon:NewModule("MyModule")
Xiiph@0: -- MyModule:Enable()
Xiiph@0: function SetDefaultModuleState(self, state)
Xiiph@0: 	if next(self.modules) then
Xiiph@0: 		error("Usage: SetDefaultModuleState(state): cannot change the module defaults after a module has been registered.", 2)
Xiiph@0: 	end
Xiiph@0: 	self.defaultModuleState = state
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Set the default prototype to use for new modules on creation.
Xiiph@0: -- Note that you can only change the default prototype before any module is created.
Xiiph@0: -- @name //addon//:SetDefaultModulePrototype
Xiiph@0: -- @paramsig prototype
Xiiph@0: -- @param prototype Default prototype for the new modules (table)
Xiiph@0: -- @usage 
Xiiph@0: -- -- Define a prototype
Xiiph@0: -- local prototype = { OnEnable = function(self) print("OnEnable called!") end }
Xiiph@0: -- -- Set the default prototype
Xiiph@0: -- MyAddon:SetDefaultModulePrototype(prototype)
Xiiph@0: -- -- Create a module and explicitly Enable it
Xiiph@0: -- MyModule = MyAddon:NewModule("MyModule")
Xiiph@0: -- MyModule:Enable()
Xiiph@0: -- -- should print "OnEnable called!" now
Xiiph@0: -- @see NewModule
Xiiph@0: function SetDefaultModulePrototype(self, prototype)
Xiiph@0: 	if next(self.modules) then
Xiiph@0: 		error("Usage: SetDefaultModulePrototype(prototype): cannot change the module defaults after a module has been registered.", 2)
Xiiph@0: 	end
Xiiph@0: 	if type(prototype) ~= "table" then
Xiiph@0: 		error(("Usage: SetDefaultModulePrototype(prototype): 'prototype' - table expected got '%s'."):format(type(prototype)), 2)
Xiiph@0: 	end
Xiiph@0: 	self.defaultModulePrototype = prototype
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Set the state of an addon or module
Xiiph@0: -- This should only be called before any enabling actually happend, e.g. in/before OnInitialize.
Xiiph@0: -- @name //addon//:SetEnabledState
Xiiph@0: -- @paramsig state
Xiiph@0: -- @param state the state of an addon or module  (enabled=true, disabled=false)
Xiiph@0: function SetEnabledState(self, state)
Xiiph@0: 	self.enabledState = state
Xiiph@0: end
Xiiph@0: 
Xiiph@0: 
Xiiph@0: --- Return an iterator of all modules associated to the addon.
Xiiph@0: -- @name //addon//:IterateModules
Xiiph@0: -- @paramsig 
Xiiph@0: -- @usage 
Xiiph@0: -- -- Enable all modules
Xiiph@0: -- for name, module in MyAddon:IterateModules() do
Xiiph@0: --    module:Enable()
Xiiph@0: -- end
Xiiph@0: local function IterateModules(self) return pairs(self.modules) end
Xiiph@0: 
Xiiph@0: -- Returns an iterator of all embeds in the addon
Xiiph@0: -- @name //addon//:IterateEmbeds
Xiiph@0: -- @paramsig 
Xiiph@0: local function IterateEmbeds(self) return pairs(AceAddon.embeds[self]) end
Xiiph@0: 
Xiiph@0: --- Query the enabledState of an addon.
Xiiph@0: -- @name //addon//:IsEnabled
Xiiph@0: -- @paramsig 
Xiiph@0: -- @usage 
Xiiph@0: -- if MyAddon:IsEnabled() then
Xiiph@0: --     MyAddon:Disable()
Xiiph@0: -- end
Xiiph@0: local function IsEnabled(self) return self.enabledState end
Xiiph@0: local mixins = {
Xiiph@0: 	NewModule = NewModule,
Xiiph@0: 	GetModule = GetModule,
Xiiph@0: 	Enable = Enable,
Xiiph@0: 	Disable = Disable,
Xiiph@0: 	EnableModule = EnableModule,
Xiiph@0: 	DisableModule = DisableModule,
Xiiph@0: 	IsEnabled = IsEnabled,
Xiiph@0: 	SetDefaultModuleLibraries = SetDefaultModuleLibraries,
Xiiph@0: 	SetDefaultModuleState = SetDefaultModuleState,
Xiiph@0: 	SetDefaultModulePrototype = SetDefaultModulePrototype,
Xiiph@0: 	SetEnabledState = SetEnabledState,
Xiiph@0: 	IterateModules = IterateModules,
Xiiph@0: 	IterateEmbeds = IterateEmbeds,
Xiiph@0: 	GetName = GetName,
Xiiph@0: }
Xiiph@0: local function IsModule(self) return false end
Xiiph@0: local pmixins = {
Xiiph@0: 	defaultModuleState = true,
Xiiph@0: 	enabledState = true,
Xiiph@0: 	IsModule = IsModule,
Xiiph@0: }
Xiiph@0: -- Embed( target )
Xiiph@0: -- target (object) - target object to embed aceaddon in
Xiiph@0: --
Xiiph@0: -- this is a local function specifically since it's meant to be only called internally
Xiiph@0: function Embed(target, skipPMixins)
Xiiph@0: 	for k, v in pairs(mixins) do
Xiiph@0: 		target[k] = v
Xiiph@0: 	end
Xiiph@0: 	if not skipPMixins then
Xiiph@0: 		for k, v in pairs(pmixins) do
Xiiph@0: 			target[k] = target[k] or v
Xiiph@0: 		end
Xiiph@0: 	end
Xiiph@0: end
Xiiph@0: 
Xiiph@0: 
Xiiph@0: -- - Initialize the addon after creation.
Xiiph@0: -- This function is only used internally during the ADDON_LOADED event
Xiiph@0: -- It will call the **OnInitialize** function on the addon object (if present), 
Xiiph@0: -- and the **OnEmbedInitialize** function on all embeded libraries.
Xiiph@0: -- 
Xiiph@0: -- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing.
Xiiph@0: -- @param addon addon object to intialize
Xiiph@0: function AceAddon:InitializeAddon(addon)
Xiiph@0: 	safecall(addon.OnInitialize, addon)
Xiiph@0: 	
Xiiph@0: 	local embeds = self.embeds[addon]
Xiiph@0: 	for i = 1, #embeds do
Xiiph@0: 		local lib = LibStub:GetLibrary(embeds[i], true)
Xiiph@0: 		if lib then safecall(lib.OnEmbedInitialize, lib, addon) end
Xiiph@0: 	end
Xiiph@0: 	
Xiiph@0: 	-- we don't call InitializeAddon on modules specifically, this is handled
Xiiph@0: 	-- from the event handler and only done _once_
Xiiph@0: end
Xiiph@0: 
Xiiph@0: -- - Enable the addon after creation.
Xiiph@0: -- Note: This function is only used internally during the PLAYER_LOGIN event, or during ADDON_LOADED,
Xiiph@0: -- if IsLoggedIn() already returns true at that point, e.g. for LoD Addons.
Xiiph@0: -- It will call the **OnEnable** function on the addon object (if present), 
Xiiph@0: -- and the **OnEmbedEnable** function on all embeded libraries.\\
Xiiph@0: -- This function does not toggle the enable state of the addon itself, and will return early if the addon is disabled.
Xiiph@0: --
Xiiph@0: -- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing.
Xiiph@0: -- Use :Enable on the addon itself instead.
Xiiph@0: -- @param addon addon object to enable
Xiiph@0: function AceAddon:EnableAddon(addon)
Xiiph@0: 	if type(addon) == "string" then addon = AceAddon:GetAddon(addon) end
Xiiph@0: 	if self.statuses[addon.name] or not addon.enabledState then return false end
Xiiph@0: 	
Xiiph@0: 	-- set the statuses first, before calling the OnEnable. this allows for Disabling of the addon in OnEnable.
Xiiph@0: 	self.statuses[addon.name] = true
Xiiph@0: 	
Xiiph@0: 	safecall(addon.OnEnable, addon)
Xiiph@0: 	
Xiiph@0: 	-- make sure we're still enabled before continueing
Xiiph@0: 	if self.statuses[addon.name] then
Xiiph@0: 		local embeds = self.embeds[addon]
Xiiph@0: 		for i = 1, #embeds do
Xiiph@0: 			local lib = LibStub:GetLibrary(embeds[i], true)
Xiiph@0: 			if lib then safecall(lib.OnEmbedEnable, lib, addon) end
Xiiph@0: 		end
Xiiph@0: 	
Xiiph@0: 		-- enable possible modules.
Xiiph@0: 		local modules = addon.orderedModules
Xiiph@0: 		for i = 1, #modules do
Xiiph@0: 			self:EnableAddon(modules[i])
Xiiph@0: 		end
Xiiph@0: 	end
Xiiph@0: 	return self.statuses[addon.name] -- return true if we're disabled
Xiiph@0: end
Xiiph@0: 
Xiiph@0: -- - Disable the addon
Xiiph@0: -- Note: This function is only used internally.
Xiiph@0: -- It will call the **OnDisable** function on the addon object (if present), 
Xiiph@0: -- and the **OnEmbedDisable** function on all embeded libraries.\\
Xiiph@0: -- This function does not toggle the enable state of the addon itself, and will return early if the addon is still enabled.
Xiiph@0: --
Xiiph@0: -- **Note:** Do not call this function manually, unless you're absolutely sure that you know what you are doing. 
Xiiph@0: -- Use :Disable on the addon itself instead.
Xiiph@0: -- @param addon addon object to enable
Xiiph@0: function AceAddon:DisableAddon(addon)
Xiiph@0: 	if type(addon) == "string" then addon = AceAddon:GetAddon(addon) end
Xiiph@0: 	if not self.statuses[addon.name] then return false end
Xiiph@0: 	
Xiiph@0: 	-- set statuses first before calling OnDisable, this allows for aborting the disable in OnDisable.
Xiiph@0: 	self.statuses[addon.name] = false
Xiiph@0: 	
Xiiph@0: 	safecall( addon.OnDisable, addon )
Xiiph@0: 	
Xiiph@0: 	-- make sure we're still disabling...
Xiiph@0: 	if not self.statuses[addon.name] then 
Xiiph@0: 		local embeds = self.embeds[addon]
Xiiph@0: 		for i = 1, #embeds do
Xiiph@0: 			local lib = LibStub:GetLibrary(embeds[i], true)
Xiiph@0: 			if lib then safecall(lib.OnEmbedDisable, lib, addon) end
Xiiph@0: 		end
Xiiph@0: 		-- disable possible modules.
Xiiph@0: 		local modules = addon.orderedModules
Xiiph@0: 		for i = 1, #modules do
Xiiph@0: 			self:DisableAddon(modules[i])
Xiiph@0: 		end
Xiiph@0: 	end
Xiiph@0: 	
Xiiph@0: 	return not self.statuses[addon.name] -- return true if we're disabled
Xiiph@0: end
Xiiph@0: 
Xiiph@0: --- Get an iterator over all registered addons.
Xiiph@0: -- @usage 
Xiiph@0: -- -- Print a list of all installed AceAddon's
Xiiph@0: -- for name, addon in AceAddon:IterateAddons() do
Xiiph@0: --   print("Addon: " .. name)
Xiiph@0: -- end
Xiiph@0: function AceAddon:IterateAddons() return pairs(self.addons) end
Xiiph@0: 
Xiiph@0: --- Get an iterator over the internal status registry.
Xiiph@0: -- @usage 
Xiiph@0: -- -- Print a list of all enabled addons
Xiiph@0: -- for name, status in AceAddon:IterateAddonStatus() do
Xiiph@0: --   if status then
Xiiph@0: --     print("EnabledAddon: " .. name)
Xiiph@0: --   end
Xiiph@0: -- end
Xiiph@0: function AceAddon:IterateAddonStatus() return pairs(self.statuses) end
Xiiph@0: 
Xiiph@0: -- Following Iterators are deprecated, and their addon specific versions should be used
Xiiph@0: -- e.g. addon:IterateEmbeds() instead of :IterateEmbedsOnAddon(addon)
Xiiph@0: function AceAddon:IterateEmbedsOnAddon(addon) return pairs(self.embeds[addon]) end
Xiiph@0: function AceAddon:IterateModulesOfAddon(addon) return pairs(addon.modules) end
Xiiph@0: 
Xiiph@0: -- Event Handling
Xiiph@0: local function onEvent(this, event, arg1)
Xiiph@0: 	if event == "ADDON_LOADED" or event == "PLAYER_LOGIN" then
Xiiph@0: 		-- if a addon loads another addon, recursion could happen here, so we need to validate the table on every iteration
Xiiph@0: 		while(#AceAddon.initializequeue > 0) do
Xiiph@0: 			local addon = tremove(AceAddon.initializequeue, 1)
Xiiph@0: 			-- this might be an issue with recursion - TODO: validate
Xiiph@0: 			if event == "ADDON_LOADED" then addon.baseName = arg1 end
Xiiph@0: 			AceAddon:InitializeAddon(addon)
Xiiph@0: 			tinsert(AceAddon.enablequeue, addon)
Xiiph@0: 		end
Xiiph@0: 		
Xiiph@0: 		if IsLoggedIn() then
Xiiph@0: 			while(#AceAddon.enablequeue > 0) do
Xiiph@0: 				local addon = tremove(AceAddon.enablequeue, 1)
Xiiph@0: 				AceAddon:EnableAddon(addon)
Xiiph@0: 			end
Xiiph@0: 		end
Xiiph@0: 	end
Xiiph@0: end
Xiiph@0: 
Xiiph@0: AceAddon.frame:RegisterEvent("ADDON_LOADED")
Xiiph@0: AceAddon.frame:RegisterEvent("PLAYER_LOGIN")
Xiiph@0: AceAddon.frame:SetScript("OnEvent", onEvent)
Xiiph@0: 
Xiiph@0: -- upgrade embeded
Xiiph@0: for name, addon in pairs(AceAddon.addons) do
Xiiph@0: 	Embed(addon, true)
Xiiph@0: end
Xiiph@0: 
Xiiph@0: -- 2010-10-27 nevcairiel - add new "orderedModules" table
Xiiph@0: if oldminor and oldminor < 10 then
Xiiph@0: 	for name, addon in pairs(AceAddon.addons) do
Xiiph@0: 		addon.orderedModules = {}
Xiiph@0: 		for module_name, module in pairs(addon.modules) do
Xiiph@0: 			tinsert(addon.orderedModules, module)
Xiiph@0: 		end
Xiiph@0: 	end
Xiiph@0: end