wow/breuesk: Lists.lua comparison

comparison Lists.lua @ 43:4109683c3172

Kept AceConsole embedded - it handily disables the chat commands when the addon is disabled Did a little passthrough to properly set the self param for commands like Print()

author	John@Yosemite-PC
date	Thu, 15 Mar 2012 22:27:51 -0400
parents	72055fc7e115
children	8913e7d79cad

comparison

equal deleted inserted replaced

-:72055fc7e115
+:4109683c3172
 end
 -- Debugging {{{
 function PrettyPrintList(listIndex)
 local list = lists[listIndex]
-bsk:Print("List: " .. list.name .. " (" .. listIndex .. ") - last modified " .. date("%m/%d/%y %H:%M:%S", list.time) .. " (",list.time,")" )
+print("List: " .. list.name .. " (" .. listIndex .. ") - last modified " .. date("%m/%d/%y %H:%M:%S", list.time) .. " (",list.time,")" )
 for i = 1,#list do
-bsk:Print("  " .. i .. " - " .. persons[list[i].id].main)
+print("  " .. i .. " - " .. persons[list[i].id].main)
 end
 end
 function PrettyPrintLists()
 for i,_ in pairs(lists) do
 PrettyPrintList(i)
 PrintTable(persons)
 end
 function PrintAPI(object)
 for i,v in pairs(object) do
 if type(v) == "function" then
-bsk:Print("function "..i.."()")
+print("function "..i.."()")
 end
 end
 end
 function PrintTable(table, depth)
 depth = depth or ""
 if not table then return end
-if #depth > 3*5 then bsk:Print(depth.."Recursion too deep - stopping"); return end
+if #depth > 3*5 then print(depth.."Recursion too deep - stopping"); return end
 for i,v in pairs(table) do
 if( type(v) == "string" ) then
-bsk:Print(depth .. i ..  " - " .. v)
+print(depth .. i ..  " - " .. v)
 elseif( type(v) == "number" ) then
-bsk:Print(depth .. i .. " - " .. tostring(v))
+print(depth .. i .. " - " .. tostring(v))
 elseif( type(v) == "table" ) then
-bsk:Print(depth .. i .." - ")
+print(depth .. i .." - ")
 PrintTable(v,depth.."   ")
 elseif( type(v) == "boolean" ) then
-bsk:Print(depth .. i .. " - " .. tostring(v))
+print(depth .. i .. " - " .. tostring(v))
 elseif( type(v) == "function" ) then
-bsk:Print(depth .. "function " .. i .. "()")
+print(depth .. "function " .. i .. "()")
 else
-bsk:Print(depth .. i .. " - not sure how to print type: " .. type(v) )
+print(depth .. i .. " - not sure how to print type: " .. type(v) )
 end
 end
 end
 function PrintRaidAndReserve()
-bsk:Print("RaidNameP")
+print("RaidNameP")
 PrintTable(raidNameP)
-bsk:Print("RaidIdP")
+print("RaidIdP")
 PrintTable(raidIdP)
-bsk:Print("ReserveP")
+print("ReserveP")
 PrintTable(reserveIdP)
-bsk:Print("personName2id")
+print("personName2id")
 PrintTable(personName2id)
 end
 --}}}
 function UpdatePersonsReverse()
 personName2id[v.main] = i
 end
 end
 end
--- Czohange processing {{{
+-- Change processing {{{
 function CreateWorkingStateFromChanges(changes)
 local personsBase = db.profile.persons
 local lists = db.profile.lists
 -- copy the base to the working state
 elseif change.action == "RemovePersonFromList" then
 DoRemovePersonFromList(change)
 elseif change.action == "SuicidePerson" then
 DoSuicidePerson(change)
 else
-bsk:Print("Unknown message encountered")
+print("Unknown message encountered")
 PrintTable(change)
 assert(false)
 end
 end
 function AddPerson(name)--{{{
 local persons = persons
 local guid = _G.UnitGUID(name)
 -- TODO: check guid to be sure it's a player
 if not guid then
-bsk:Print(sformat("Could not add player %s - they must be in range or group",name))
+printf("Could not add player %s - they must be in range or group",name)
 return
 end
 local _,englishClass = _G.UnitClass(name)
---bsk:Print("Person " .. name .. " is class " .. englishClass)
+--print("Person " .. name .. " is class " .. englishClass)
 local id = string.sub(guid,6) -- skip at least 0x0580 ...
 id = id:gsub("^0*(.*)","%1") -- nom all leading zeroes remaining
 if persons[id] and persons[id] ~= name then
-bsk:Print(sformat("Namechange detected for %s - new is %s, please rename the existing entry", persons[id].main, name))
+printf("Namechange detected for %s - new is %s, please rename the existing entry", persons[id].main, name)
 return
 end
 if persons[id] ~= nil then
-bsk:Print(sformat("%s is already in the persons list; disregarding", name))
+printf("%s is already in the persons list; disregarding", name)
 return
 end
 local change = {action="AddPerson",arg={name=name,id=id,class=englishClass}}
 if DoAddPerson(change) then
 CreateChange(change)
 end
 end--}}}
 function DoCreateList(change)--{{{
 --if GetListIndex(change.arg.name) then
---    bsk:Print(sformat("List %s already exists",v.name))
+--    rintf(("List %s already exists",v.name)
 --    return false
 --end
 lists[change.arg.id]={name=change.arg.name,time=change.time}
 return true
 end--}}}
 function CreateList(name)--{{{
 -- require admin
 local change={action="CreateList",arg={name=name}}
 StartChange(change)
 change.arg.id=change.time -- use the creation timestamp as the list's index. it's as unique as anything...
-bsk:Print("Creating ... " .. name)
+print("Creating ... " .. name)
 if DoCreateList(change) then
 CommitChange(change)
 end
 end--}}}
 function DoAddPersonToListEnd(change)--{{{
 function AddPersonToListEnd(name,listName)--{{{
 -- require admin
 local listIndex = GetListIndex(listName)
 local id = personName2id[name]
 if IdIsInList(id,lists[listIndex]) then
-bsk:Print(sformat("Person %s is already on the reqeuested list",name))
+printf("Person %s is already on the reqeuested list",name)
 return false
 end
-bsk:Print(sformat("Adding %s (%s) to list %s (%s)", name, id, listName, listIndex))
+printf("Adding %s (%s) to list %s (%s)", name, id, listName, listIndex)
 local change = {action="AddToListEnd",arg={id=id,listIndex=listIndex}}
 StartChange(change)
 if DoAddPersonToListEnd(change) then
 CommitChange(change)
 end
 end--}}}
 function AddPersonToListRandom(name,listName)--{{{
 -- require admin
 local listIndex = GetListIndex(listName)
 if lists[listIndex].closedRandom then
-bsk:Print("Cannot add person to list by random roll because an add-to-end operation has already occurred")
+print("Cannot add person to list by random roll because an add-to-end operation has already occurred")
 return false
 end
 local id = personName2id[name]
 if IdIsInList(id,lists[listIndex]) then
-bsk:Print(sformat("Person %s is already on the reqeuested list",name))
+printf("Person %s is already on the reqeuested list",name)
 return false
 end
 local roll = math.random()
-bsk:Print(sformat("Adding %s (%s) to list %s (%s) with roll (%f)", name, id, listName, listIndex, roll))
+printf("Adding %s (%s) to list %s (%s) with roll (%f)", name, id, listName, listIndex, roll)
 local change = {action="AddToListRand",arg={id=id,listIndex=listIndex,roll=roll}}
 StartChange(change)
 if DoAddPersonToListRandom(change) then
 CommitChange(change)
 end
 return true
 end--}}}
 function RemovePerson(name)--{{{
 local id = personName2id[name]
 if not id then
-bsk:Print(sformat("%s is not in the persons list, please check your spelling", name))
+printf("%s is not in the persons list, please check your spelling", name)
 return false
 end
 local listsTheyreOn = {}
 -- check if they're active on any loot list
 for i,v in pairs(lists) do
 tinsert(listsTheyreOn,v.name)
 break
 end
 end
 if getn(listsTheyreOn) > 0 then
-bsk:Print(sformat("Cannot remove person %s because they are on one or more lists (%s)",name,table.concat(listsTheyreOn,", ")))
+printf("Cannot remove person %s because they are on one or more lists (%s)",name,table.concat(listsTheyreOn,", "))
 return false
 end
 local change = {action="RemovePerson",arg={id=id}}
 StartChange(change)
 if DoRemovePerson(change) then
 -- list and the working copy
 local replacement = shallowCopy(change.arg.affect)
 local temp = table.remove(replacement,1) -- pop
 tinsert(replacement,temp) -- push_back
---bsk:Print(sformat("Before suicide of %s on list %s",slist[1],list.name))
+--rintf(("Before suicide of %s on list %s",slist[1],list.name)
 --PrintTable(list)
 for i = 1, #list do
 if list[i].id == affected[1] then
 table.remove(affected,1)
 list[i].id = replacement[1]
 --}}}
 -- Higher order actions (ie calls other standard actions){{{
 function TrimLists(time)
 if not CheckListCausality() then
-bsk:Print("Unable to trim changelist due to violated causality")
+print("Unable to trim changelist due to violated causality")
 return false
 end
 if type(time) ~= "number" then
 time = tonumber(time)
 for id,_ in pairs(persons) do
 t[id] = true
 end
 for name,_ in pairs(raidNameP) do
 if personName2id[name] == nil then
-bsk:Print(sformat("Person %s is missing from the persons list - adding",name))
+printf("Person %s is missing from the persons list - adding",name)
 AddPerson(name)
 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 AddReserve(name)
-bsk:Print("Reserving" .. name)
+print("Reserving" .. name)
 reserveIdP[personName2id[name]]=true
 -- TODO: communicate to others. don't store this in any way.
 end
 function RemoveReserve(name)
 -- 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 GetSuicideList(id,list)
---bsk:Print("Calculating changeset for "..name.." from list -")
+--print("Calculating changeset for "..name.." from list -")
 --PrintTable(list)
 local t = {}
 local ret = {}
 local pushing = false
 for i = 1, #list do
 end
 if pushing and (raidIdP[list[i].id] or reserveIdP[list[i].id]) then
 tinsert(ret,list[i].id)
 end
 end
---bsk:Print("GSL")
+--print("GSL")
 --PrintTable(ret)
---bsk:Print("GSL")
+--print("GSL")
 return ret
 end
 function IdIsInList(id,listRef)
 for i = 1,#listRef do

Mercurial > wow > breuesk

comparison Lists.lua @ 43:4109683c3172