flickerstreak@28: -- ReAction.lua
flickerstreak@28: -- See modules/ReAction_ModuleTemplate for Module API listing
flickerstreak@28: -- See Bar.lua for Bar object listing
flickerstreak@27: 
flickerstreak@27: ------ CORE ------
flickerstreak@30: local ReAction = LibStub("AceAddon-3.0"):NewAddon( "ReAction",
flickerstreak@33:   "AceConsole-3.0",
flickerstreak@33:   "AceEvent-3.0"
flickerstreak@30: )
flickerstreak@33: ReAction.version = GetAddOnMetadata("ReAction","Version")
flickerstreak@33: ReAction.revision = tonumber(("$Revision$"):match("%d+"))
flickerstreak@27: 
flickerstreak@28: ------ GLOBALS ------
flickerstreak@28: _G["ReAction"] = ReAction
flickerstreak@27: 
flickerstreak@28: ------ DEBUGGING ------
flickerstreak@25: ReAction.debug = true
flickerstreak@36: local dbprint
flickerstreak@25: if ReAction.debug then
flickerstreak@36:   dbprint = function(msg)
flickerstreak@25:     DEFAULT_CHAT_FRAME:AddMessage(msg)
flickerstreak@25:   end
flickerstreak@36:   --seterrorhandler(dbprint)
flickerstreak@25: else
flickerstreak@36:   dbprint = function() end
flickerstreak@25: end
flickerstreak@36: ReAction.dbprint = dbprint
flickerstreak@25: 
flickerstreak@33: ------ LIBRARIES ------
flickerstreak@33: local L = LibStub("AceLocale-3.0"):GetLocale("ReAction")
flickerstreak@33: ReAction.L = L
flickerstreak@33: 
flickerstreak@28: ------ PRIVATE ------
flickerstreak@30: local SelectBar, DestroyBar, InitializeBars, TearDownBars, DeepCopy, SafeCall, CheckMethod, SlashHandler
flickerstreak@28: do
flickerstreak@28:   local pcall = pcall
flickerstreak@28:   local geterrorhandler = geterrorhandler
flickerstreak@28: 
flickerstreak@28:   SelectBar = function(x)
flickerstreak@28:     local bar, name
flickerstreak@28:     if type(x) == "string" then
flickerstreak@28:       name = x
flickerstreak@28:       bar = ReAction:GetBar(name)
flickerstreak@28:     elseif ReAction.Bar:IsInstance(x) then
flickerstreak@28:       bar = x
flickerstreak@28:       for k,v in pairs(ReAction.bars) do
flickerstreak@28:         if v == bar then
flickerstreak@28:           name = k
flickerstreak@28:         end
flickerstreak@28:       end
flickerstreak@28:     else
flickerstreak@28:       error("bad argument to SelectBar")
flickerstreak@28:     end
flickerstreak@28:     return bar, name
flickerstreak@28:   end
flickerstreak@28: 
flickerstreak@28:   DestroyBar = function(x)
flickerstreak@28:     local bar, name = SelectBar(x)
flickerstreak@28:     if name and bar then
flickerstreak@28:       ReAction.bars[name] = nil
flickerstreak@28:       ReAction:CallMethodOnAllModules("RemoveFromBar", bar)
flickerstreak@28:       bar:Destroy()
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@28: 
flickerstreak@28:   InitializeBars = function ()
flickerstreak@28:     if not(ReAction.inited) then
flickerstreak@28:       for name, config in pairs(ReAction.db.profile.bars) do
flickerstreak@28:         if config then
flickerstreak@28:           ReAction:CreateBar(name, config)
flickerstreak@28:         end
flickerstreak@28:       end
flickerstreak@28:       ReAction:CallMethodOnAllBars("ApplyAnchor") -- re-anchor in the case of oddball ordering
flickerstreak@28:       ReAction.inited = true
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@28: 
flickerstreak@28:   TearDownBars = function()
flickerstreak@28:     for name, bar in pairs(ReAction.bars) do
flickerstreak@28:       if bar then
flickerstreak@28:         ReAction.bars[name] = DestroyBar(bar)
flickerstreak@28:       end
flickerstreak@28:     end
flickerstreak@28:     ReAction.inited = false
flickerstreak@28:   end
flickerstreak@28: 
flickerstreak@28:   DeepCopy = function(x)
flickerstreak@28:     if type(x) ~= "table" then
flickerstreak@28:       return x
flickerstreak@28:     end
flickerstreak@28:     local r = {}
flickerstreak@28:     for k,v in pairs(x) do
flickerstreak@28:       r[k] = DeepCopy(v)
flickerstreak@28:     end
flickerstreak@28:     return r
flickerstreak@28:   end
flickerstreak@28: 
flickerstreak@28:   SafeCall = function(f, ...)
flickerstreak@28:     if f then
flickerstreak@28:       local success, err = pcall(f,...)
flickerstreak@28:       if not success then
flickerstreak@28:         geterrorhandler()(err)
flickerstreak@28:       end
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@28: 
flickerstreak@28:   CheckMethod = function(m)
flickerstreak@28:     if type(m) == "function" then
flickerstreak@28:       return m
flickerstreak@28:     end
flickerstreak@28:     if type(m) ~= "string" then
flickerstreak@28:       error("Invalid method")
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@30: 
flickerstreak@30:   SlashHandler = function(option)
flickerstreak@30:     if option == "config" then
flickerstreak@38:       ReAction:ShowConfig()
flickerstreak@30:     elseif option == "unlock" then
flickerstreak@33:       ReAction:SetConfigMode(true)
flickerstreak@30:     elseif option == "lock" then
flickerstreak@33:       ReAction:SetConfigMode(false)
flickerstreak@30:     else
flickerstreak@36:       ReAction:Print(("%3.1f.%d"):format(ReAction.version,ReAction.revision))
flickerstreak@30:       ReAction:Print("/reaction config")
flickerstreak@30:       ReAction:Print("/reaction unlock")
flickerstreak@30:       ReAction:Print("/reaction lock")
flickerstreak@30:     end
flickerstreak@30:   end
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: 
flickerstreak@28: ------ HANDLERS ------
flickerstreak@28: function ReAction:OnInitialize()
flickerstreak@28:   self.db = LibStub("AceDB-3.0"):New("ReAction_DB", 
flickerstreak@28:     { 
flickerstreak@28:       profile = {
flickerstreak@28:         bars = { },
flickerstreak@28:         defaultBar = { }
flickerstreak@28:       }
flickerstreak@28:     }
flickerstreak@28:     -- default profile is character-specific
flickerstreak@28:   )
flickerstreak@28:   self.db.RegisterCallback(self,"OnProfileChanged")
flickerstreak@30:   self.callbacks = LibStub("CallbackHandler-1.0"):New(self)
flickerstreak@30:   self:RegisterChatCommand("reaction", SlashHandler)
flickerstreak@30:   self:RegisterChatCommand("rxn", SlashHandler)
flickerstreak@33:   self:RegisterEvent("PLAYER_REGEN_DISABLED")
flickerstreak@28: 
flickerstreak@28:   self.bars = {}
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:OnEnable()
flickerstreak@28:   InitializeBars()
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:OnDisable()
flickerstreak@28:   TearDownBars()
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:OnProfileChanged()
flickerstreak@33:   TearDownBars()
flickerstreak@33:   InitializeBars()
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:OnModuleEnable(module)
flickerstreak@28:   if module.ApplyToBar then
flickerstreak@28:     for _, b in pairs(bars) do
flickerstreak@28:       if b then
flickerstreak@28:         module:ApplyToBar(b)
flickerstreak@28:       end
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:OnModuleDisable(module)
flickerstreak@28:   if module.RemoveFromBar then
flickerstreak@28:     for _, b in pairs(bars) do
flickerstreak@28:       if b then
flickerstreak@28:         module:RemoveFromBar(b)
flickerstreak@28:       end
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@33: function ReAction:PLAYER_REGEN_DISABLED()
flickerstreak@33:   if self.configMode == true then
flickerstreak@33:     UIErrorsFrame:AddMessage(L["ReAction config mode disabled during combat."])
flickerstreak@33:     self:SetConfigMode(false)
flickerstreak@33:   end
flickerstreak@33: end
flickerstreak@33: 
flickerstreak@33: 
flickerstreak@28: 
flickerstreak@28: ------ API ------
flickerstreak@28: function ReAction:CallMethodOnAllModules(method, ...)
flickerstreak@28:   local m = CheckMethod(method)
flickerstreak@28:   for _, x in self:IterateModules() do
flickerstreak@28:     if x then
flickerstreak@28:       SafeCall(m or x[method], x, ...)
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:CallMethodOnAllBars(method,...)
flickerstreak@28:   local m = CheckMethod(method)
flickerstreak@28:   for _, x in pairs(self.bars) do
flickerstreak@28:     if x then
flickerstreak@28:       SafeCall(m or x[method], x, ...)
flickerstreak@28:     end
flickerstreak@28:   end
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@38: function ReAction:CallModuleMethod(modulename, method, ...)
flickerstreak@38:   local m = self:GetModule(modulename,true)
flickerstreak@38:   if not m then
flickerstreak@38:     LoadAddOn(("ReAction_%s"):format(modulename))
flickerstreak@38:     m = self:GetModule(modulename,true)
flickerstreak@38:   end
flickerstreak@38:   if m then
flickerstreak@38:     if type(m) == "table" and type(m[method]) == "function" then
flickerstreak@38:       m[method](m,...)
flickerstreak@38:     else
flickerstreak@38:       dbprint(("Bad call '%s' to %s module"):format(tostring(method),modulename));
flickerstreak@38:     end
flickerstreak@38:   else
flickerstreak@38:     self:Print(("Module '%s' not found"):format(tostring(modulename)))
flickerstreak@38:   end
flickerstreak@38: end
flickerstreak@38: 
flickerstreak@38: 
flickerstreak@28: function ReAction:CreateBar(name, defaultConfig, prefix)
flickerstreak@28:   local profile = self.db.profile
flickerstreak@28:   defaultConfig = defaultConfig or profile.defaultBar
flickerstreak@28:   prefix = prefix or L["Bar "]
flickerstreak@28:   if not name then
flickerstreak@28:     i = 1
flickerstreak@28:     repeat
flickerstreak@28:       name = prefix..i
flickerstreak@28:       i = i + 1
flickerstreak@28:     until self.bars[name] == nil
flickerstreak@28:   end
flickerstreak@28:   profile.bars[name] = profile.bars[name] or DeepCopy(defaultConfig)
flickerstreak@28:   local bar = self.Bar:new( name, profile.bars[name] )  -- ReAction.Bar defined in Bar.lua
flickerstreak@28:   self:CallMethodOnAllModules("ApplyToBar", bar)
flickerstreak@28:   self.bars[name] = bar
flickerstreak@30:   self.callbacks:Fire("OnCreateBar", bar)
flickerstreak@33:   if self.configMode then
flickerstreak@33:     bar:ShowControls(true)
flickerstreak@33:   end
flickerstreak@33: 
flickerstreak@28:   return bar
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:EraseBar(x)
flickerstreak@28:   local bar, name = SelectBar(x)
flickerstreak@28:   if name and bar then
flickerstreak@28:     DestroyBar(bar)
flickerstreak@28:     self.db.profile.bars[name] = nil
flickerstreak@28:     self:CallMethodOnAllModules("EraseBarConfig", name)
flickerstreak@30:     self.callbacks:Fire("OnEraseBar",name)
flickerstreak@28:   end
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:GetBar(name)
flickerstreak@28:   return self.bars[name]
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@28: function ReAction:RenameBar(x, newname)
flickerstreak@28:   local bar, name = SelectBar(x)
flickerstreak@28:   if bar and name and newname then
flickerstreak@28:     if self.bars[newname] then
flickerstreak@28:       error(L["ReAction: name already in use"])
flickerstreak@28:     end
flickerstreak@28:     self.bars[newname] = self.bars[name]
flickerstreak@28:     self.bars[name] = nil
flickerstreak@28:     bar.name = newname or ""
flickerstreak@28:     local cfg = self.db.profile.bars
flickerstreak@28:     cfg[newname], cfg[name] = cfg[name], nil
flickerstreak@28:     self:CallMethodOnAllModules("RenameBarConfig", name, newname)
flickerstreak@30:     self.callbacks:Fire("OnRenameBar", name, newname)
flickerstreak@28:   end
flickerstreak@28: end
flickerstreak@28: 
flickerstreak@30: ReAction.options = {}
flickerstreak@30: -- See modules/ReAction_ConfigUI for valid options contexts.
flickerstreak@30: function ReAction:RegisterOptions(context, module, opts)
flickerstreak@30:   if module == nil or context == nil then
flickerstreak@30:     error("ReAction:RegisterOptions requires a module object and context ID")
flickerstreak@30:   end
flickerstreak@30:   if not self.options[context] then
flickerstreak@30:     self.options[context] = {}
flickerstreak@30:   end
flickerstreak@30:   self.options[context][module] = opts
flickerstreak@30:   self.callbacks:Fire("OnOptionsRegistered", context, module, opts)
flickerstreak@30: end
flickerstreak@28: 
flickerstreak@30: function ReAction:GetOptions(context)
flickerstreak@30:   if context then
flickerstreak@30:     if not self.options[context] then
flickerstreak@30:       self.options[context] = { }
flickerstreak@30:     end
flickerstreak@30:     return self.options[context]
flickerstreak@30:   end
flickerstreak@30: end
flickerstreak@30: 
flickerstreak@30: function ReAction:GetOptionContextList()
flickerstreak@30:   local c = {}
flickerstreak@30:   for k in self.options do
flickerstreak@30:     tinsert(c,k)
flickerstreak@30:   end
flickerstreak@30:   return c
flickerstreak@30: end
flickerstreak@30: 
flickerstreak@30: function ReAction:RefreshOptions()
flickerstreak@30:   self.callbacks:Fire("OnOptionsRefreshed")
flickerstreak@30: end
flickerstreak@33: 
flickerstreak@33: function ReAction:SetConfigMode( mode )
flickerstreak@33:   self:CallMethodOnAllBars("ShowControls",mode)
flickerstreak@33:   self:CallMethodOnAllModules("ApplyConfigMode",mode,self.bars)
flickerstreak@33:   self.configMode = mode
flickerstreak@33: end
flickerstreak@38: 
flickerstreak@38: function ReAction:ShowConfig()
flickerstreak@38:   self:CallModuleMethod("ConfigUI","OpenConfig")
flickerstreak@38: end
flickerstreak@38: