aux-addon-ClassicAPI/Scan.lua

local STATE_IDLE = 0
local STATE_PREQUERY = 1
local STATE_POSTQUERY = 2

local NUM_AUCTION_ITEMS_PER_PAGE = 50

local currentQuery
local currentPage
local state = STATE_IDLE

local scanData

local timeOfLastUpdate = GetTime()

-- forward declaration of local functions
local submitQuery, processQueryResults

-----------------------------------------

function Auctionator_Scan_IsIdle()
	return state == STATE_IDLE
end

-----------------------------------------

function Auctionator_Scan_Complete()
	
	if currentQuery.onComplete then
		currentQuery.onComplete(scanData);
	end
	
	currentQuery = nil
	currentPage = nil
	scanData = nil
	state = STATE_IDLE
end

-----------------------------------------

function Auctionator_Scan_Abort()

	if currentQuery and currentQuery.onAbort then
		currentQuery.onAbort();
	end
	
	currentQuery = nil
	currentPage = nil
	scanData = nil
	state = STATE_IDLE
end

-----------------------------------------

function Auctionator_Scan_Start(query)
	
	Auctionator_SetMessage("Scanning auctions ...")

	if state ~= STATE_IDLE then
		Auctionator_Scan_Abort()
	end
	
	currentQuery = query
	currentPage = 0
	scanData = {}
	state = STATE_PREQUERY
end

-----------------------------------------

function Auctionator_Scan_CreateQuery(parameterMap)
	local query = {
		name = nil,
		exactMatch = false,
		minLevel = "",
		maxLevel = "",
		invTypeIndex = nil,
		classIndex = nil,
		subclassIndex = nil,
		isUsable = nil,
		qualityIndex = nil
	}
	
	for k,v in pairs(parameterMap) do
		query[k] = v
	end
	
	return query
end

-----------------------------------------

function submitQuery()
	QueryAuctionItems(
		currentQuery.name,
		currentQuery.minLevel,
		currentQuery.maxLevel,
		currentQuery.invTypeIndex,
		currentQuery.classIndex,
		currentQuery.subclassIndex,
		currentPage,
		currentQuery.isUsable,
		currentQuery.qualityIndex
	)
	state = STATE_POSTQUERY
	currentPage = currentPage + 1
end

-----------------------------------------

function processQueryResults()
	
	-- SortAuctionItems("list", "buyout")
	-- if IsAuctionSortReversed("list", "buyout") then
		-- SortAuctionItems("list", "buyout")
	-- end
	
	local numBatchAuctions, totalAuctions = GetNumAuctionItems("list")

	if totalAuctions >= NUM_AUCTION_ITEMS_PER_PAGE then
		Auctionator_SetMessage("Scanning auctions: page "..currentPage.." ...")
	end
			
	for i = 1, numBatchAuctions do
	
		local name, texture, count, quality, canUse, level, minBid, minIncrement, buyoutPrice, bidAmount, highBidder, owner = GetAuctionItemInfo("list", i)
		local duration = GetAuctionItemTimeLeft("list", i)

		local scanDatum = {		
				name			= name,
				texture			= texture,
				stackSize		= count,
				quality			= quality,
				canUse			= canUse,
				level			= level,
				minBid			= minBid,
				minIncrement	= minIncrement,
				buyoutPrice		= buyoutPrice,
				bidAmount		= bidAmount,
				highBidder		= highBidder,
				owner			= owner,
				duration		= duration
		}
		
		if not currentQuery.exactMatch or (currentQuery.name == scanDatum.name and scanDatum.buyoutPrice > 0) then -- TODO separate option for buyout price
			tinsert(scanData, scanDatum)
			if currentQuery.onReadDatum then
				currentQuery.onReadDatum(scanDatum)
			end
		end
	end

	if numBatchAuctions == NUM_AUCTION_ITEMS_PER_PAGE then			
		state = STATE_PREQUERY	
	else
		Auctionator_Scan_Complete()
	end
end

-----------------------------------------

local eventFrame = CreateFrame("Frame")
eventFrame:SetScript("OnUpdate", function()
	if state == STATE_PREQUERY and GetTime() - timeOfLastUpdate > 0.5 then
	
		timeOfLastUpdate = GetTime()

		if CanSendAuctionQuery() then
			submitQuery()
		end
	end
end)
eventFrame:RegisterEvent("AUCTION_ITEM_LIST_UPDATE")
eventFrame:SetScript("OnEvent", function(event)
	if state == STATE_POSTQUERY then
		processQueryResults()
	end
end)