wow/breuesk: Lists.lua comparison

comparison Lists.lua @ 1:21c58930f74e

Refactoring

author	John@Yosemite-PC
date	Fri, 02 Mar 2012 22:32:12 -0500
parents	47fac96968e1
children	00286ba3b9c4

comparison

equal deleted inserted replaced

-:47fac96968e1
+:21c58930f74e
 local u = { }
 for k, v in pairs(t) do u[k] = v end
 return setmetatable(u, getmetatable(t))
 end
+-- Debugging {{{
+function bsk:PrintLists()
+bsk:PrintTable(bsk.lists)
+end
+function bsk:PrintChanges()
+bsk:PrintTable(bsk.db.profile.changes)
+end
+function bsk:PrintPlayers()
+bsk:PrintTable(bsk.players)
+end
 function bsk:PrintTable(table, depth)
 depth = depth or ""
 if not table then return end
 for i,v in pairs(table) do
 if( type(v) == "string" ) then
 self:Print(depth .. i .. " - not sure how to print type: " .. type(v) )
 end
 end
 end
--- Debugging {{{
-function bsk:PrintLists()
-bsk:PrintTable(bsk.lists)
-end
-function bsk:PrintChanges()
-bsk:PrintTable(bsk.db.profile.changes)
-end
-function bsk:PrintPlayers()
-bsk:PrintTable(bsk.players)
-end
 --}}}
 function bsk:CreateWorkingStateFromChanges()
 local playerBase = self.db.profile.players
 local listBase = self.db.profile.listBase
 bsk:PrintTable(change)
 assert(false)
 end
 end
+-- Action and DoAction defs {{{
 --
 -- The actual actions for changes start here
 --
 -- Each action occurs as a pair of functions. The bsk:Action() function is from
 -- a list admin's point of view. Each will check for admin status, then create a
 if bsk:DoAddPlayer(change) then
 bsk:CreateChange(change)
 end
 end
-function bsk:CreateFakeLists()
--- testing only
-end
 function bsk:DoCreateList(change)
 -- TODO: this segment will probably be useful as bsk:SearchForListByName
 local lists = bsk.lists
 for i,v in pairs(lists) do
 if v.name == change.arg.name then
 -- return true
 end
 function bsk:RemovePlayer(name)
 -- from both players and lists
-end
-function bsk:GetSuicideList(name,list)
---self:Print("Calculating changeset for "..name.." from list -")
---self:PrintTable(list)
-local t = {}
-local ret = {}
-local pushing = false
-for i = 1, #list do
-if list[i] == name then
-pushing = true
-end
-if pushing and (RaidList[list[i]] or ReserveList[list[i]]) then
-tinsert(ret,list[i])
-end
-end
-return ret
-end
-function bsk:GetActiveList()
-return bsk.lists[1] -- todo!
 end
 function bsk:DoSuicidePlayer(change)
 local listIndex = change.arg.listIndex
 local list = bsk.lists[listIndex]
 return true
 end
 function bsk:SuicidePlayer(name,list)
 -- require admin
-local l=bsk:GetActiveList()
 bsk:PopulateRaidList()
-local slist=bsk:GetSuicideList(name,l)
 local listIndex = bsk:GetListIndex(list)
+local slist=bsk:GetSuicideList(name,bsk.lists[listIndex])
 local change = {action="SuicidePlayer",arg={names=names,list=slist,listIndex=listIndex}}
 bsk:StartChange(change)
 if bsk:DoSuicidePlayer(change) then
 bsk:CommitChange(change)
 end
 end
+--}}}
+-- Higher order actions (ie calls other Doers){{{
+function bsk:AddMissingPlayers()
+bsk:PopulateRaidList()
+local t = {}
+for i,v in pairs(bsk.players) do
+t[v] = true
+end
+for i,v in pairs(RaidList) do
+if t[v] == nil then
+bsk:Print(sformat("Player % is missing from the players list - adding",v))
+bsk:AddPlayer(v)
+end
+end
+-- TODO: batch into a single op - no need to spam 25 messages in a row
+end
+--}}}
+-- "Soft" actions- ie things that cause nonpermanent state {{{
+-- reserves
+function bsk:AddReserve(name)
+ReserveList[name]=true
+-- TODO: communicate to others. don't store this in any way.
+end
+function bsk:RemoveReserve(name)
+ReserveList[name]=false
+-- TODO: communicate to others. don't store this in any way.
+end
+--function bsk:GetActiveList()
+--    return bsk.lists[1] -- todo!
+--end
+--}}}
 -- The following code is from Xinhuan (wowace forum member)
 -- Pre-create the unitID strings we will use
 local pID = {}
 local rID = {}
 -- just find A,B,C in the list and replace in order from the s message
 -- while undo is allowed *per-list*, certain events in the stream will
 -- prevent proper undo, such as add/delete player or add/delete list
+function bsk:GetSuicideList(name,list)
+--self:Print("Calculating changeset for "..name.." from list -")
--- reserves
+--self:PrintTable(list)
-function bsk:AddReserve(name)
+local t = {}
-ReserveList[name]=true
+local ret = {}
--- TODO: communicate to others. don't store this in any way.
+local pushing = false
-end
+for i = 1, #list do
+if list[i] == name then
-function bsk:RemoveReserve(name)
+pushing = true
-ReserveList[name]=false
+end
--- TODO: communicate to others. don't store this in any way.
+if pushing and (RaidList[list[i]] or ReserveList[list[i]]) then
-end
+tinsert(ret,list[i])
+end
+end
+return ret
+end
 -- Support functions
 return i
 end
 end
 assert(false)
 end

Mercurial > wow > breuesk

comparison Lists.lua @ 1:21c58930f74e