aux-addon-ClassicAPI/aux-addon.lua

--aux_account_settings = {} -- TODO clean up the mess of savedvariables
--aux_character_settings = {}

do
	local modules = {}
	aux = function(name)
		if not modules[name] then
			(function()
				_ = module
				modules[name] = M
				import (green_t)
				private.aux = setmetatable({}, {__metatable=false, __index=function(_, key) return modules[key].I end, __newindex=error})
			end)()
		end
		modules[name].import (modules.core.I)
		setfenv(2, modules[name])
	end
end

--do
--	local call_method, call_self
--	local function generic_call(...)
--		return call_method(call_self, unpack(arg))
--	end
--
--	local state = setmetatable({}, {__mode='k'})
--	local mt = {__metatable=false}
--	function mt:__index(self, key) self=state[self]
--	local getter = self.class.getters[key]
--	if getter then return getter(self.self) end
--	local method = self.class.methods[key]
--	if method then
--		call_method, call_self = method, self.self
--		return generic_call
--	end
--	end
--	function mt:__newindex(self, key, value) self=state[self]
--	local setter = self.class.setters[key]
--	if setter then return setter(self.self, value) end
--	end
--	--	function mt:__unm(self) self=state[self]
--	--		reclaim()
--	--	end
--	local function instantiate(methods, getters, setters, init, arg)
--		local interface = setmetatable({}, mt)
--		local self = {I=interface}; init(self, unpack(arg))
--		state[interface] = {class={methods=methods, getters=getters, setters=setters}, self=self}
--		return interface
--	end
--	function public.class(methods, getters, setters, init)
--		return function(arg) instantiate(methods, getters, setters, init, arg) end
--	end
--end
--
--do
--	local state = {}
--	local mt = {__metatable=false, __newindex=error}
--	function mt:__index(key) return state[self][key] end
--	function public.immutable(t)
--		return class({}, t, {}, function() end, {})
--	end
--end

aux 'core' private()

public.version = '5.0.0'

function public.print(...) temp=arg
	DEFAULT_CHAT_FRAME:AddMessage(LIGHTYELLOW_FONT_COLOR_CODE..'[aux] '..join(map(arg, tostring), ' '))
end

local bids_loaded
function public.bids_loaded.get() return bids_loaded end

local current_owner_page
function public.current_owner_page.get() return current_owner_page end

--do
--	local mt = {__call=function(self,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20) return self.f(unpack(self)) end} -- TODO
--	function public.F.get(arg) arg.f = tremove(arg, 1) return setmetatable(arg, mt) end
--end

local event_frame = CreateFrame('Frame')
for event in temp-S('ADDON_LOADED', 'VARIABLES_LOADED', 'PLAYER_LOGIN', 'AUCTION_HOUSE_SHOW', 'AUCTION_HOUSE_CLOSED', 'AUCTION_BIDDER_LIST_UPDATE', 'AUCTION_OWNED_LIST_UPDATE') do
	event_frame:RegisterEvent(event)
end

ADDON_LOADED = t
do
	local handlers, handlers2 = t, t
	function public.LOAD.set(f) tinsert(handlers, f) end
	function public.LOAD2.set(f) tinsert(handlers2, f) end
	event_frame:SetScript('OnEvent', function()
		if event == 'ADDON_LOADED' then
			if ADDON_LOADED[arg1] then ADDON_LOADED[arg1]() end
		elseif event == 'VARIABLES_LOADED' then
			for _, f in handlers do f() end
		elseif event == 'PLAYER_LOGIN' then
			for _, f in handlers2 do f() end
			print('v'..version..' loaded.')
		else
			M[event]()
		end
	end)
end

tab_info = t
do
	for _, info in temp-A(temp-A('search_tab', 'Search'), temp-A('post_tab', 'Post'), temp-A('auctions_tab', 'Auctions'), temp-A('bids_tab', 'Bids')) do
		local tab = T('name', info[2])
		local env = (function() _G.aux(info[1]) return M end)()
		function env.private.OPEN.set(f) tab.OPEN = f end
		function env.private.CLOSE.set(f) tab.CLOSE = f end
		function env.private.USE_ITEM.set(f) tab.USE_ITEM = f end
		function env.private.CLICK_LINK.set(f) tab.CLICK_LINK = f end
		function env.public.ACTIVE.get() return tab == active_tab end
		tinsert(tab_info, tab)
	end
end

do
	local index
	function private.active_tab.get() return tab_info[index] end
	function on_tab_click(i)
		call(index and active_tab.CLOSE)
		index = i
		call(index and active_tab.OPEN)
	end
end

function SetItemRef(...) temp=arg
	if arg[3] ~= 'RightButton' or not index(active_tab, 'CLICK_LINK') or not strfind(arg[1], '^item:%d+') then
		return orig.SetItemRef(unpack(arg))
	end
	for item_info in present(aux.info.item(tonumber(select(3, strfind(arg[1], '^item:(%d+)'))))) do
		return active_tab.CLICK_LINK(item_info)
	end
end

function UseContainerItem(...) temp=arg
	if modified or not index(active_tab, 'USE_ITEM') then
		return orig.UseContainerItem(unpack(arg))
	end
	for item_info in present(aux.info.container_item(arg[1], arg[2])) do
		return active_tab.USE_ITEM(item_info)
	end
end

public.orig = setmetatable({[_G]=t}, {__index=function(self, key) return self[_G][key] end})
function public.hook(...) temp=arg
	local name, object, handler
	if arg.n == 3 then
		name, object, handler = unpack(arg)
	else
		object, name, handler = _G, unpack(arg)
	end
	handler = handler or getfenv(2)[name]
	orig[object] = orig[object] or t
	assert(not orig[object][name], '"'..name..'" is already hooked into.')
	orig[object][name], object[name] = object[name], handler
	return hook
end

do
	local locked
	function public.bid_in_progress.get() return locked end
	function public.place_bid(type, index, amount, on_success)
		if locked then return end
		local money = GetMoney()
		PlaceAuctionBid(type, index, amount)
		if money >= amount then
			locked = true
			event_listener('CHAT_MSG_SYSTEM', function(kill)
				if arg1 == ERR_AUCTION_BID_PLACED then
					call(on_success)
					locked = false
					kill()
				end
			end)
		end
	end
end

do
	local locked
	function public.cancel_in_progress.get() return locked end
	function public.cancel_auction(index, on_success)
		if locked then return end
		locked = true
		CancelAuction(index)
		event_listener('CHAT_MSG_SYSTEM', function(kill)
			if arg1 == ERR_AUCTION_REMOVED then
				call(on_success)
				locked = false
				kill()
			end
		end)
	end
end

function public.is_player(name, current)
	local realm = GetCVar('realmName')
	return not current and index(_G.aux_characters, realm, name) or UnitName 'player' == name
end

function public.neutral_faction()
	return not UnitFactionGroup('npc')
end

function public.min_bid_increment(current_bid)
	return max(1, floor(current_bid / 100) * 5)
end

function AUCTION_HOUSE_SHOW()
	AuctionFrame:Hide()
	aux_frame:Show()
	tab = 1
end

function AUCTION_HOUSE_CLOSED()
	bids_loaded = false
	current_owner_page = nil
	aux.post.stop()
	aux.stack.stop()
	aux.scan.abort()
	tab = nil
	aux_frame:Hide()
end

function AUCTION_BIDDER_LIST_UPDATE()
	bids_loaded = true
end

do
	local last_owner_page_requested
	function GetOwnerAuctionItems(...) temp=arg
		local page = arg[1]
		last_owner_page_requested = page
		return orig.GetOwnerAuctionItems(unpack(arg))
	end
	function AUCTION_OWNED_LIST_UPDATE()
		current_owner_page = last_owner_page_requested or 0
	end
end

function ADDON_LOADED.Blizzard_AuctionUI()
	AuctionFrame:UnregisterEvent('AUCTION_HOUSE_SHOW')
	AuctionFrame:SetScript('OnHide', nil)
	hook('ShowUIPanel', function(...) temp=arg
		if arg[1] == AuctionFrame then return AuctionFrame:Show() end
		return orig.ShowUIPanel(unpack(arg))
	end)
	hook 'GetOwnerAuctionItems' 'SetItemRef' 'UseContainerItem' 'AuctionFrameAuctions_OnEvent'
end

do
	local function cost_label(cost)
		local label = LIGHTYELLOW_FONT_COLOR_CODE..'(Total Cost: '..FONT_COLOR_CODE_CLOSE
		label = label..(cost and aux.money.to_string2(cost, nil, LIGHTYELLOW_FONT_COLOR_CODE) or GRAY_FONT_COLOR_CODE..'---'..FONT_COLOR_CODE_CLOSE)
		label = label..LIGHTYELLOW_FONT_COLOR_CODE..')'..FONT_COLOR_CODE_CLOSE
		return label
	end
	function ADDON_LOADED.Blizzard_CraftUI()
		hook('CraftFrame_SetSelection', function(...) temp=arg
			local results = temp-{orig.CraftFrame_SetSelection(unpack(arg))}
			local id = GetCraftSelectionIndex()
			local reagent_count = GetCraftNumReagents(id)
			local total_cost = 0
			for i = 1, reagent_count do
				local link = GetCraftReagentItemLink(id, i)
				if not link then
					total_cost = nil
					break
				end
				local item_id, suffix_id = aux.info.parse_link(link)
				local count = select(3, GetCraftReagentInfo(id, i))
				local _, price, limited = aux.cache.merchant_info(item_id)
				local value = price and not limited and price or aux.history.value(item_id..':'..suffix_id)
				if not value then
					total_cost = nil
					break
				else
					total_cost = total_cost + value * count
				end
			end
			CraftReagentLabel:SetText(SPELL_REAGENTS..' '..cost_label(total_cost))
			return unpack(results)
		end)
	end
	function ADDON_LOADED.Blizzard_TradeSkillUI()
		hook('TradeSkillFrame_SetSelection', function(...) temp=arg
			local results = temp-{orig.TradeSkillFrame_SetSelection(unpack(arg))}
			local id = GetTradeSkillSelectionIndex()
			local reagent_count = GetTradeSkillNumReagents(id)
			local total_cost = 0
			for i = 1, reagent_count do
				local link = GetTradeSkillReagentItemLink(id, i)
				if not link then
					total_cost = nil
					break
				end
				local item_id, suffix_id = aux.info.parse_link(link)
				local count = select(3, GetTradeSkillReagentInfo(id, i))
				local _, price, limited = aux.cache.merchant_info(item_id)
				local value = price and not limited and price or aux.history.value(item_id..':'..suffix_id)
				if not value then
					total_cost = nil
					break
				else
					total_cost = total_cost + value * count
				end
			end
			TradeSkillReagentLabel:SetText(SPELL_REAGENTS..' '..cost_label(total_cost))
			return unpack(results)
		end)
	end
end

function AuctionFrameAuctions_OnEvent(...) temp=arg
    if AuctionFrameAuctions:IsVisible() then
        return orig.AuctionFrameAuctions_OnEvent(unpack(arg))
    end
end