Mercurial > wow > ouroloot

annotate LibFarmbuyer.lua @ 66:43913e02a1ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Detect LFR loot as best we can, and bundle it into the same warning given for heroic loot formatted by name only. Less tedious method of bumping data revisions.
author Farmbuyer of US-Kilrogg <farmbuyer@gmail.com>
date Fri, 27 Apr 2012 10:11:56 +0000
parents 81d5449621f8
children 8442272a8418
rev   line source
farmbuyer@1 1 --[[
farmbuyer@1 2 Not really meant for public use. Stuff that I keep using everywhere and
farmbuyer@1 3 got tired of reimplementing, or even copy-and-pasting. The notes here are
farmbuyer@1 4 reminders to myself.
farmbuyer@1 5
farmbuyer@1 6 Library contents:
farmbuyer@1 7 - author_debug
farmbuyer@1 8 Evaluates to true if I'm hacking on something.
farmbuyer@1 9
farmbuyer@19 10 - tableprint(t[,f])
farmbuyer@1 11 A single print() call to the contents of T, including nils; strings are
farmbuyer@19 12 cleaned up with respect to embedded '|'/control chars. If a function F is
farmbuyer@45 13 passed, calls that instead of print(). Returns the accumulated string and
farmbuyer@45 14 either T or the returned values of F, depending on which was used.
farmbuyer@1 15
farmbuyer@1 16 - safeprint(...)
farmbuyer@19 17 Same as tableprint() on the argument list. Returns the results of tableprint.
farmbuyer@45 18 Generates some garbage.
farmbuyer@1 19
farmbuyer@1 20 - safeiprint(...)
farmbuyer@19 21 Same as safeprint() but with <index> numbers inserted. Returns the results
farmbuyer@45 22 of tableprint. Generates some garbage.
farmbuyer@19 23 Ex: safeiprint(a,b,c) --> <1>,a,<2>,b,<3>,c
farmbuyer@1 24
farmbuyer@45 25 - safefprint/safefiprint(f,...)
farmbuyer@45 26 Takes a function F as first parameter, for passing to tableprint().
farmbuyer@45 27
farmbuyer@1 28 - t = StaticPopup(t)
farmbuyer@1 29 Fills out "typical" settings inside T, especially if T contains any kind
farmbuyer@1 30 of editbox:
farmbuyer@1 31 + cannot accept an empty editbox
farmbuyer@39 32 + pressing Enter runs OnAccept (also will not accept empty editbox)
farmbuyer@1 33 + editbox grabs keyboard focus
farmbuyer@1 34 + OnAccept runs with editbox's text in dialog.usertext
farmbuyer@1 35 Returns T.
farmbuyer@1 36
farmbuyer@1 37 - nullfunc()
farmbuyer@1 38 Empty placeholder function. Will be less useful if WoW ever moves to Lua 5.2.
farmbuyer@1 39 This is a fascinating and educational place to insert print calls...
farmbuyer@1 40
farmbuyer@1 41 - tabledump(t)/dumptable(t)
farmbuyer@1 42 If author_debug, this runs the builtin /dump command on T. Otherwise nothing.
farmbuyer@1 43
farmbuyer@1 44 - DoOnceNextUpdate(f)
farmbuyer@1 45 Runs F on the next frame refresh cycle. Multiple calls in one cycle will
farmbuyer@1 46 stack LIFO. Calls *while* processing the stack are safe, and will be stacked
farmbuyer@1 47 up for the next cycle.
farmbuyer@6 48
farmbuyer@6 49 - safecall (func, ...)
farmbuyer@6 50 A modified copy of the xpcall wrapper duplicated in every Ace3 file in the
farmbuyer@6 51 whole damn library.
farmbuyer@6 52
farmbuyer@6 53 - new(...), del(t), copy(t), clear()
farmbuyer@6 54 Ditto for table recycling.
farmbuyer@1 55 ]]
farmbuyer@1 56
farmbuyer@56 57 local MAJOR, MINOR = "LibFarmbuyer", 16
farmbuyer@1 58 assert(LibStub,MAJOR.." requires LibStub")
farmbuyer@1 59 local lib = LibStub:NewLibrary(MAJOR, MINOR)
farmbuyer@1 60 if not lib then return end
farmbuyer@1 61
farmbuyer@1 62 _G[MAJOR] = lib
farmbuyer@1 63
farmbuyer@1 64 ----------------------------------------------------------------------
farmbuyer@6 65 --[[
farmbuyer@6 66 Recycling functions yoinked from AceConfigDialog and tweaked
farmbuyer@6 67 ]]
farmbuyer@1 68 local new, del, copy, clear
farmbuyer@6 69 do
farmbuyer@6 70 local pool = setmetatable({},{__mode="k"})
farmbuyer@6 71 function clear()
farmbuyer@6 72 wipe(pool)
farmbuyer@6 73 end
farmbuyer@6 74 function new(...) -- slightly modified variant, takes optional initializers
farmbuyer@6 75 local t = next(pool)
farmbuyer@6 76 if t then
farmbuyer@6 77 pool[t] = nil
farmbuyer@6 78 for i = 1, select('#',...) do
farmbuyer@6 79 t[i] = select(i,...)
farmbuyer@6 80 end
farmbuyer@6 81 return t
farmbuyer@6 82 else
farmbuyer@6 83 return {...}
farmbuyer@6 84 end
farmbuyer@6 85 end
farmbuyer@6 86 function copy(t)
farmbuyer@6 87 local c = new()
farmbuyer@6 88 for k, v in pairs(t) do
farmbuyer@6 89 c[k] = v
farmbuyer@6 90 end
farmbuyer@6 91 return c
farmbuyer@6 92 end
farmbuyer@6 93 function del(t)
farmbuyer@6 94 wipe(t)
farmbuyer@6 95 pool[t] = true
farmbuyer@6 96 end
farmbuyer@6 97 end
farmbuyer@6 98 lib.new, lib.del, lib.copy, lib.clear = new, del, copy, clear
farmbuyer@1 99
farmbuyer@1 100
farmbuyer@1 101 ----------------------------------------------------------------------
farmbuyer@1 102 --[[
farmbuyer@1 103 safeprint
farmbuyer@1 104 ]]
farmbuyer@56 105 local tconcat, tostring, tonumber = table.concat, tostring, tonumber
farmbuyer@1 106 local function undocontrol(c)
farmbuyer@1 107 return ("\\%.3d"):format(c:byte())
farmbuyer@1 108 end
farmbuyer@1 109 function lib.safeprint(...)
farmbuyer@1 110 local args = { n=select('#',...), ... }
farmbuyer@19 111 return lib.tableprint(args)
farmbuyer@1 112 end
farmbuyer@45 113 function lib.safefprint(f,...)
farmbuyer@45 114 local args = { n=select('#',...), ... }
farmbuyer@45 115 return lib.tableprint(args,f)
farmbuyer@45 116 end
farmbuyer@1 117 function lib.safeiprint(...)
farmbuyer@1 118 local args = { n=select('#',...), ... }
farmbuyer@1 119 local last = args.n
farmbuyer@1 120 while last > 0 do
farmbuyer@1 121 table.insert (args, last, "<"..last..">")
farmbuyer@1 122 last = last - 1
farmbuyer@1 123 end
farmbuyer@1 124 args.n = 2 * args.n
farmbuyer@19 125 return lib.tableprint(args)
farmbuyer@1 126 end
farmbuyer@45 127 function lib.safefiprint(f,...)
farmbuyer@45 128 local args = { n=select('#',...), ... }
farmbuyer@45 129 local last = args.n
farmbuyer@45 130 while last > 0 do
farmbuyer@45 131 table.insert (args, last, "<"..last..">")
farmbuyer@45 132 last = last - 1
farmbuyer@45 133 end
farmbuyer@45 134 args.n = 2 * args.n
farmbuyer@45 135 return lib.tableprint(args,f)
farmbuyer@45 136 end
farmbuyer@19 137 function lib.tableprint(t,f)
farmbuyer@1 138 for i = 1, (tonumber(t.n) or #t) do
farmbuyer@1 139 t[i] = tostring(t[i]):gsub('\124','\124\124')
farmbuyer@1 140 :gsub('(%c)', undocontrol)
farmbuyer@1 141 end
farmbuyer@56 142 local msg = tconcat(t,' ', 1, tonumber(t.n) or #t)
farmbuyer@45 143 if type(f) == 'function' then
farmbuyer@45 144 return msg,f(msg)
farmbuyer@1 145 else
farmbuyer@19 146 print(msg)
farmbuyer@19 147 return msg,t
farmbuyer@1 148 end
farmbuyer@1 149 end
farmbuyer@1 150
farmbuyer@1 151 -- See below for global versions.
farmbuyer@1 152
farmbuyer@1 153
farmbuyer@1 154 ----------------------------------------------------------------------
farmbuyer@1 155 local StaticPopupDialogs = _G.StaticPopupDialogs
farmbuyer@1 156
farmbuyer@1 157 local function EditBoxOnTextChanged_notempty (editbox) -- this is also called when first shown
farmbuyer@1 158 if editbox:GetText() ~= "" then
farmbuyer@1 159 editbox:GetParent().button1:Enable()
farmbuyer@1 160 else
farmbuyer@1 161 editbox:GetParent().button1:Disable()
farmbuyer@1 162 end
farmbuyer@1 163 end
farmbuyer@1 164 local function EditBoxOnEnterPressed_accept (editbox)
farmbuyer@39 165 if editbox:GetText() == "" then return end
farmbuyer@39 166 local dialog = editbox:GetParent()
farmbuyer@39 167 StaticPopupDialogs[dialog.which].OnAccept (dialog, dialog.data, dialog.data2)
farmbuyer@39 168 dialog:Hide()
farmbuyer@1 169 end
farmbuyer@1 170 local function OnShow_witheditbox (dialog, data)
farmbuyer@1 171 local info = StaticPopupDialogs[dialog.which]
farmbuyer@16 172 --dialog[info.hasWideEditBox and "wideEditBox" or "editBox"]:SetFocus()
farmbuyer@16 173 dialog.editBox:SetFocus()
farmbuyer@1 174 if info.farm_OnShow then
farmbuyer@1 175 return info.farm_OnShow (dialog, data)
farmbuyer@1 176 end
farmbuyer@1 177 end
farmbuyer@1 178 local function OnAccept_witheditbox (dialog, data, data2)
farmbuyer@1 179 local info = StaticPopupDialogs[dialog.which]
farmbuyer@16 180 --dialog.usertext = dialog[info.hasWideEditBox and "wideEditBox" or "editBox"]:GetText():trim()
farmbuyer@16 181 dialog.usertext = dialog.editBox:GetText():trim()
farmbuyer@1 182 if info.farm_OnAccept then
farmbuyer@1 183 return info.farm_OnAccept (dialog, data, data2)
farmbuyer@1 184 end
farmbuyer@1 185 end
farmbuyer@16 186 local function OnHide_cleanup (dialog)
farmbuyer@16 187 dialog.data = nil
farmbuyer@16 188 dialog.data2 = nil
farmbuyer@16 189 end
farmbuyer@1 190
farmbuyer@1 191 --[[
farmbuyer@1 192 StaticPopup
farmbuyer@1 193 ]]
farmbuyer@1 194 function lib.StaticPopup (t)
farmbuyer@57 195 if t.hasEditBox then
farmbuyer@57 196 t.EditBoxOnTextChanged = EditBoxOnTextChanged_notempty
farmbuyer@57 197 t.EditBoxOnEnterPressed = EditBoxOnEnterPressed_accept
farmbuyer@1 198 if t.OnShow then
farmbuyer@1 199 t.farm_OnShow = t.OnShow
farmbuyer@1 200 end
farmbuyer@57 201 t.OnShow = OnShow_witheditbox
farmbuyer@1 202 if t.OnAccept then
farmbuyer@1 203 t.farm_OnAccept = t.OnAccept
farmbuyer@1 204 end
farmbuyer@57 205 t.OnAccept = OnAccept_witheditbox
farmbuyer@1 206 -- this calls OnCancel with "clicked", unless noCancelOnEscape is set
farmbuyer@57 207 t.EditBoxOnEscapePressed = StaticPopup_EscapePressed
farmbuyer@57 208 end
farmbuyer@1 209
farmbuyer@16 210 if not t.OnHide then
farmbuyer@16 211 t.OnHide = OnHide_cleanup
farmbuyer@16 212 end
farmbuyer@16 213
farmbuyer@57 214 t.timeout = 0
farmbuyer@57 215 t.whileDead = true
farmbuyer@57 216 t.hideOnEscape = true
farmbuyer@1 217 t.enterClicksFirstButton = true
farmbuyer@53 218 t.preferredIndex = 3 -- http://forums.wowace.com/showthread.php?t=19960
farmbuyer@1 219
farmbuyer@57 220 return t
farmbuyer@1 221 end
farmbuyer@1 222
farmbuyer@1 223
farmbuyer@1 224 ----------------------------------------------------------------------
farmbuyer@1 225 --[[
farmbuyer@1 226 This is ugly, but at least it all gets GC'd almost immediately.
farmbuyer@1 227 ]]
farmbuyer@1 228 function lib.nullfunc() end
farmbuyer@1 229
farmbuyer@1 230 if ({
farmbuyer@1 231 ["Bandwagon"] = true, ["Kilvin"] = true, ["Waterfaucet"] = true,
farmbuyer@1 232 ["Farmbuyer"] = true, ["Oxdeadbeef"] = true, ["Pointystick"] = true,
farmbuyer@1 233 ["Angryhobbit"] = true, ["Malrubius"] = true, ["Hemogoblin"] = true,
farmbuyer@16 234 ["Ossipago"] = true,
farmbuyer@1 235 })[UnitName("player")] then
farmbuyer@1 236 lib.author_debug = true
farmbuyer@1 237 _G.safeprint = lib.safeprint
farmbuyer@1 238 _G.safeiprint = lib.safeiprint
farmbuyer@1 239 function lib.tabledump(t)
farmbuyer@1 240 _G.UIParentLoadAddOn("Blizzard_DebugTools")
farmbuyer@1 241 _G.LibF_DEBUG = t
farmbuyer@1 242 _G.SlashCmdList.DUMP("LibF_DEBUG")
farmbuyer@1 243 end
farmbuyer@1 244 else
farmbuyer@1 245 lib.tabledump = lib.nullfunc
farmbuyer@1 246 end
farmbuyer@1 247 lib.dumptable = lib.tabledump
farmbuyer@1 248
farmbuyer@1 249
farmbuyer@1 250 ----------------------------------------------------------------------
farmbuyer@1 251 --[[
farmbuyer@1 252 DoOnceNextUpdate
farmbuyer@1 253 ]]
farmbuyer@1 254 do
farmbuyer@1 255 local frame = CreateFrame("Frame", "LibFarmbuyerDONUFrame")
farmbuyer@1 256 frame:Hide()
farmbuyer@1 257 frame:SetScript("OnUpdate", function()
farmbuyer@1 258 frame:Hide()
farmbuyer@1 259 local q = frame.nexttime
farmbuyer@1 260 local tmp
farmbuyer@1 261 frame.nexttime = nil
farmbuyer@1 262 while q do
farmbuyer@1 263 tmp = q
farmbuyer@1 264 q.f(frame)
farmbuyer@1 265 q = q.n
farmbuyer@1 266 del(tmp)
farmbuyer@1 267 end
farmbuyer@1 268 end)
farmbuyer@1 269
farmbuyer@1 270 function lib.DoOnceNextUpdate (func)
farmbuyer@1 271 local nextt = new()
farmbuyer@1 272 nextt.f = func
farmbuyer@1 273 nextt.n = frame.nexttime
farmbuyer@1 274 frame.nexttime = nextt
farmbuyer@1 275 frame:Show()
farmbuyer@1 276 end
farmbuyer@1 277 end
farmbuyer@1 278
farmbuyer@1 279
farmbuyer@1 280 ----------------------------------------------------------------------
farmbuyer@6 281 --[[
farmbuyer@6 282 safecall
farmbuyer@6 283 ]]
farmbuyer@1 284 do
farmbuyer@6 285 local xpcall = xpcall
farmbuyer@6 286
farmbuyer@6 287 local function errorhandler(err)
farmbuyer@6 288 --return geterrorhandler()(err)
farmbuyer@6 289 --print("in error handler", err)
farmbuyer@6 290 return err
farmbuyer@1 291 end
farmbuyer@6 292
farmbuyer@6 293 local template = ([[
farmbuyer@6 294 local xpcall, eh = ...
farmbuyer@6 295 local method, ARGS
farmbuyer@6 296 local function call() return method(ARGS) end
farmbuyer@6 297
farmbuyer@6 298 local function dispatch (func, ...)
farmbuyer@6 299 method = func
farmbuyer@6 300 if not method then return end
farmbuyer@6 301 ARGS = ...
farmbuyer@6 302 return xpcall (call, eh)
farmbuyer@1 303 end
farmbuyer@6 304
farmbuyer@6 305 return dispatch
farmbuyer@6 306 ]]):gsub('\t',' ')
farmbuyer@6 307
farmbuyer@6 308 local function CreateDispatcher(argCount)
farmbuyer@6 309 local ARGS = {}
farmbuyer@6 310 for i = 1, argCount do ARGS[i] = "arg"..i end
farmbuyer@19 311 local code = template:gsub("ARGS", tconcat(ARGS, ", "))
farmbuyer@6 312 return assert(loadstring(code, "LibF/safecall Dispatcher["..argCount.."]"))(xpcall, errorhandler)
farmbuyer@1 313 end
farmbuyer@6 314
farmbuyer@6 315 local Dispatchers = setmetatable({
farmbuyer@6 316 [0] = function(func)
farmbuyer@6 317 return xpcall (func, errorhandler)
farmbuyer@1 318 end
farmbuyer@6 319 }, {
farmbuyer@6 320 __index = function (Ds, argCount)
farmbuyer@6 321 local dispatcher = CreateDispatcher(argCount)
farmbuyer@6 322 Ds[argCount] = dispatcher
farmbuyer@6 323 return dispatcher
farmbuyer@6 324 end
farmbuyer@6 325 })
farmbuyer@6 326
farmbuyer@6 327 function lib.safecall (func, ...)
farmbuyer@6 328 if type(func) == 'function' then
farmbuyer@6 329 return Dispatchers[select('#', ...)](func, ...)
farmbuyer@6 330 end
farmbuyer@1 331 end
farmbuyer@1 332 end
farmbuyer@1 333
farmbuyer@6 334
farmbuyer@6 335 ----------------------------------------------------------------------
farmbuyer@6 336
farmbuyer@1 337 -- vim: noet