local m = {}
Aux.scan_util = m

function m.default_filter(str)
    return {
        arity = 0,
        test = function()
            return function(auction_record)
                return Aux.util.any(auction_record.tooltip, function(entry)
                    return strfind(strupper(entry.left_text or ''), strupper(str or ''), 1, true) or strfind(strupper(entry.right_text or ''), strupper(str or ''), 1, true)
                end)
            end
        end,
    }
end

m.filters = {

    ['tt'] = {
        arity = 1,
        test = function(str)
            if str then
                return m.default_filter(str).test()
            else
                return false, {}, 'Erroneous Tooltip Modifier'
            end
        end,
    },

    ['item'] = {
        arity = 1,
        test = function(name)
            local item_id = Aux.static.item_id(strupper(name or ''))
            if item_id then
                return function(auction_record)
                    return auction_record.item_id == item_id
                end
            else
                return false, Aux.completion.sorted_item_names(), 'Erroneous Item Modifier'
            end
        end
    },

    ['left'] = {
        arity = 1,
        test = function(duration)
            local code = ({
                ['30m'] = 1,
                ['2h'] = 2,
                ['8h'] = 3,
                ['24h'] = 4,
            })[duration or '']
            if code then
                return function(auction_record)
                    return auction_record.duration == code
                end
            else
                return false, {'30m', '2h', '8h', '24h'}, 'Erroneous Time Left Modifier'
            end
        end
    },

    ['rarity'] = {
        arity = 1,
        test = function(duration)
            local code = ({
                ['poor'] = 1,
                ['common'] = 2,
                ['uncommon'] = 3,
                ['rare'] = 4,
                ['epic'] = 5,
            })[duration or '']
            if code then
                return function(auction_record)
                    return auction_record.quality == code
                end
            else
                return false, {}, {'poor', 'common', 'uncommon', 'rare', 'epic'}, 'Erroneous Time Left Modifier'
            end
        end
    },

    ['min-lvl'] = {
        arity = 1,
        test = function(level)
            level = tonumber(level or '')
            if level then
                return function(auction_record)
                    return auction_record.level >= level
                end
            else
                return false, {}, 'Erroneous Min Level Modifier'
            end
        end
    },

    ['max-lvl'] = {
        arity = 1,
        test = function(level)
            level = tonumber(level or '')
            if level then
                return function(auction_record)
                    return auction_record.level <= level
                end
            else
                return false, {}, 'Erroneous Max Level Modifier'
            end
        end
    },

    ['max-bid'] = {
        arity = 1,
        test = function(amount)
            amount = Aux.money.from_string(amount or '')
            if amount > 0 then
                return function(auction_record)
                    return auction_record.bid_price <= amount
                end
            else
                return false, {}, 'Erroneous Max Bid Modifier'
            end
        end
    },

    ['max-buyout'] = {
        arity = 1,
        test = function(amount)
            amount = Aux.money.from_string(amount or '')
            if amount > 0 then
                return function(auction_record)
                    return auction_record.buyout_price > 0 and auction_record.buyout_price <= amount
                end
            else
                return false, {}, 'Erroneous Max Buyout Modifier'
            end
        end
    },

    ['bid-pct'] = {
        arity = 1,
        test = function(pct)
            pct = tonumber(pct)
            if pct then
                return function(auction_record)
                    return auction_record.unit_buyout_price > 0
                            and Aux.history.value(auction_record.item_key)
                            and auction_record.unit_buyout_price / Aux.history.value(auction_record.item_key) * 100 <= pct
                end
            else
                return false, {}, 'Erroneous Bid Percentage Modifier'
            end
        end
    },

    ['buyout-pct'] = {
        arity = 1,
        test = function(pct)
            pct = tonumber(pct)
            if pct then
                return function(auction_record)
                    return auction_record.unit_buyout_price > 0
                            and Aux.history.value(auction_record.item_key)
                            and auction_record.unit_buyout_price / Aux.history.value(auction_record.item_key) * 100 <= pct
                end
            else
                return false, {}, 'Erroneous Buyout Percentage Modifier'
            end
        end
    },

    ['bid-profit'] = {
        arity = 1,
        test = function(amount)
            amount = Aux.money.from_string(amount or '')
            if amount > 0 then
                return function(auction_record)
                    return Aux.history.value(auction_record.item_key) and Aux.history.value(auction_record.item_key) * auction_record.aux_quantity - auction_record.bid_price >= amount
                end
            else
                return false, {}, 'Erroneous Bid Profit Modifier'
            end
        end
    },

    ['buyout-profit'] = {
        arity = 1,
        test = function(amount)
            amount = Aux.money.from_string(amount or '')
            if amount > 0 then
                return function(auction_record)
                    return Aux.history.value(auction_record.item_key) and Aux.history.value(auction_record.item_key) * auction_record.aux_quantity - auction_record.buyout_price >= amount
                end
            else
                return false, {}, 'Erroneous Buyout Profit Modifier'
            end
        end
    },

    ['discard'] = {
        arity = 0,
        test = function()
            return false
        end
    },
}

function m.find(auction_record, status_bar, on_abort, on_failure, on_success)

    local function test(index)
        local auction_info = Aux.info.auction(index, auction_record.query_type)
        return auction_info and auction_info.search_signature == auction_record.search_signature
    end

    Aux.scan.abort(auction_record.query_type)

    status_bar:update_status(0, 0)
    status_bar:set_text('Searching auction...')

    local pages = auction_record.page > 0 and { auction_record.page, auction_record.page - 1 } or { auction_record.page }

    local query = {
        validator = function(auction_info) return test(auction_info.index) end,
        blizzard_query = auction_record.query.blizzard_query,
        next_page = function()
            if getn(pages) == 1 then
                status_bar:update_status(50, 50)
            end
            local page = pages[1]
            tremove(pages, 1)
            return page
        end,
    }

    local found
    Aux.scan.start{
        type = auction_record.query_type,
        queries = { query },
        on_read_auction = function(auction_info, ctrl)
            if test(auction_info.index) then
                found = true
                ctrl.suspend()
                status_bar:update_status(100, 100)
                status_bar:set_text('Auction found')
                return on_success(auction_info.index)
            end
        end,
        on_abort = function()
            if not found then
                status_bar:update_status(100, 100)
                status_bar:set_text('Auction not found')
                return on_abort()
            end
        end,
        on_complete = function()
            status_bar:update_status(100, 100)
            status_bar:set_text('Auction not found')
            return on_failure()
        end,
    }
end

function m.display_name(item_id)
    local item_info = Aux.static.item_info(item_id)
    return '|c'..Aux.quality_color(item_info.quality)..'['..item_info.name..']'..'|r'
end

function m.filter_builder()
    local filter = ''
    return {
        append = function(self, modifier)
            modifier = strlower(modifier)
            filter = filter == '' and modifier or filter..'/'..modifier
        end,
        prepend = function(self, modifier)
            modifier = strlower(modifier)
            filter = filter == '' and modifier or modifier..'/'..filter
        end,
        get = function(self)
            return filter
        end
    }
end

function m.create_item_query(item_id)

    local item_info = Aux.static.item_info(item_id)

    if item_info then
        local filter = m.filter_from_string(item_info.name..'/exact')
        return {
            start_page = 0,
            validator = filter.validator,
            blizzard_query = filter.blizzard_query,
        }
    end
end

function m.parse_filter_string(filter_string)
    local parts = Aux.util.split(filter_string, ';')

    local filters = {}
    for _, str in ipairs(parts) do
        str = Aux.util.trim(str)

        local filter, _, error = m.filter_from_string(str)

        if not filter then
            Aux.log('Invalid filter: '..error)
            return
        elseif filter.name and strlen(filter.name) > 63 then

        else
            tinsert(filters, filter)
        end
    end

    return filters
end

function m.filter_from_string(filter_term)
    local parts = Aux.util.map(Aux.util.split(filter_term, '/'), function(part) return strlower(Aux.util.trim(part)) end)

    local blizzard_filter = {}
    local validator = {}
    local prettified = m.filter_builder()
    local polish_notation_counter = 0
    local i = 1

    while i <= getn(parts) do
        local str = parts[i]
        i = i + 1

        if polish_notation_counter > 0 or str == 'and' or str == 'or' or str == 'not' then
            polish_notation_counter = polish_notation_counter == 0 and polish_notation_counter + 1 or polish_notation_counter
            if str == 'and' or str == 'or' then
                polish_notation_counter = polish_notation_counter + 1
                tinsert(validator, str)
                prettified:append('|cffffff00'..str..'|r')
            elseif str == 'not' then
                tinsert(validator, str)
                prettified:append('|cffffff00'..str..'|r')
            elseif str ~= '' then
                polish_notation_counter = polish_notation_counter - 1

                local filter = m.filters[str]
                if filter then
                    prettified:append('|cffffff00'..str..'|r')
                else
                    filter = filter or m.default_filter(str)
                    prettified:append(str)
                end

                local args = {}
                for j=1, filter.arity do
                    local arg = parts[i - 1 + j]
                    if arg then
                        tinsert(args, arg)
                        prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..arg..'|r')
                    end
                end
                i = i + filter.arity

                local test, suggestions, error = filter.test(unpack(args))
                if test then
                    tinsert(validator, test)
                else
                    return false, i > getn(parts) and suggestions or {}, error
                end
            end
        elseif tonumber(str) then
            if not blizzard_filter.min_level then
                blizzard_filter.min_level = tonumber(str)
                prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..str..'|r')
            elseif not blizzard_filter.max_level and tonumber(str) >= blizzard_filter.min_level then
                blizzard_filter.max_level = tonumber(str)
                prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..str..'|r')
            else
                return false, {}, 'Erroneous Level Range Modifier'
            end
        elseif Aux.item_class_index(str) and not (blizzard_filter.class and not blizzard_filter.subclass and str == 'MISCELLANEOUS')then
            if not blizzard_filter.class then
                blizzard_filter.class = Aux.item_class_index(str)
                prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..str..'|r')
            else
                return false, {}, 'Erroneous Item Class Modifier'
            end
        elseif blizzard_filter.class and Aux.item_subclass_index(blizzard_filter.class, str) then
            if not blizzard_filter.subclass then
                blizzard_filter.subclass = Aux.item_subclass_index(blizzard_filter.class, str)
                prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..str..'|r')
            else
                return false, {}, 'Erroneous Item Subclass Modifier'
            end
        elseif blizzard_filter.subclass and Aux.item_slot_index(blizzard_filter.class, blizzard_filter.subclass, str) then
            if not blizzard_filter.slot then
                blizzard_filter.slot = Aux.item_slot_index(blizzard_filter.class, blizzard_filter.subclass, str)
                prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..str..'|r')
            else
                return false, {}, 'Erroneous Item Slot Modifier'
            end
        elseif Aux.item_quality_index(str) then
            if not blizzard_filter.quality then
                blizzard_filter.quality = Aux.item_quality_index(str)
                prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..str..'|r')
            else
                return false, {}, 'Erroneous Rarity Modifier'
            end
        elseif str == 'usable' then
            if not blizzard_filter.usable then
                blizzard_filter.usable = true
                prettified:append(Aux.gui.inline_color({216, 225, 211, 1})..str..'|r')
            else
                return false, {}, 'Erroneous Usable Only Modifier'
            end
        elseif str == 'exact' then
            if not blizzard_filter.exact then
                blizzard_filter.exact = true
            else
                return false, {}, 'Erroneous Exact Only Modifier'
            end
        elseif i == 2 and not m.filters[str] then
            blizzard_filter.name = str
        elseif str ~= '' then
            local filter = m.filters[str]
            if filter then
                prettified:append('|cffffff00'..str..'|r')
            else
                filter = filter or m.default_filter(str)
                prettified:append(str)
            end

            local args = {}
            for j=1, filter.arity do
                local arg = parts[i - 1 + j]
                if arg then
                    tinsert(args, arg)
                    prettified:append(arg)
                end
            end
            i = i + filter.arity

            local test, suggestions, error = filter.test(unpack(args))
            if test then
                tinsert(validator, test)
            else
                return false, i > getn(parts) and suggestions or {}, error
            end
        else
            return false, {}, 'Empty Modifier'
        end
    end

    if polish_notation_counter ~= 0 then
        local suggestions = {}
        for filter, _ in pairs(m.filters) do
            tinsert(suggestions, strlower(filter))
        end
        return false, i > getn(parts) and suggestions, 'Malformed Expression'
    end

    if blizzard_filter.exact then
        if blizzard_filter.min_level
                or blizzard_filter.max_level
                or blizzard_filter.class
                or blizzard_filter.subclass
                or blizzard_filter.slot
                or blizzard_filter.quality
                or blizzard_filter.usable
                or not blizzard_filter.name
                or not Aux.static.item_id(strupper(blizzard_filter.name))
        then
            return false, {}, 'Erroneous Exact Only Modifier'
        else
            prettified:prepend(m.display_name(Aux.static.item_id(strupper(blizzard_filter.name))))
        end
    elseif blizzard_filter.name then
        if blizzard_filter.name == '' then
            prettified:prepend('|cffff0000'..'No Filter'..'|r')
        else
            prettified:prepend('|cff2992ff'.. blizzard_filter.name..'|r')
        end
    end

    return {
        blizzard_query = m.blizzard_query(blizzard_filter),
        validator = m.validator(blizzard_filter, validator),
        prettified = prettified:get(),
    }, m.suggestions(blizzard_filter, getn(parts))
end

function m.suggestions(blizzard_filter, num_parts)

    local suggestions = {}

    if blizzard_filter.name
            and Aux.static.item_id(strupper(blizzard_filter.name))
            and not blizzard_filter.min_level
            and not blizzard_filter.max_level
            and not blizzard_filter.class
            and not blizzard_filter.subclass
            and not blizzard_filter.slot
            and not blizzard_filter.quality
            and not blizzard_filter.usable
    then
        tinsert(suggestions, 'exact')
    elseif num_parts == 1 then
    -- item names
        for _, name in ipairs(Aux.completion.sorted_item_names()) do
            tinsert(suggestions, name..'/exact')
        end
    end

    tinsert(suggestions, 'and')
    tinsert(suggestions, 'or')
    tinsert(suggestions, 'not')
    tinsert(suggestions, 'tt')

    for filter, _ in pairs(m.filters) do
        tinsert(suggestions, strlower(filter))
    end

    -- classes
    if not blizzard_filter.class then
        for _, class in ipairs({ GetAuctionItemClasses() }) do
            tinsert(suggestions, class)
        end
    end

    -- subclasses
    if blizzard_filter.class and not blizzard_filter.subclass then
        for _, subclass in ipairs({ GetAuctionItemSubClasses(blizzard_filter.class) }) do
            tinsert(suggestions, subclass)
        end
    end

    -- slots
    if blizzard_filter.class and blizzard_filter.subclass and not blizzard_filter.slot then
        for _, invtype in ipairs({ GetAuctionInvTypes(blizzard_filter.class, blizzard_filter.subclass) }) do
            tinsert(suggestions, getglobal(invtype))
        end
    end

    -- usable
    if not blizzard_filter.usable then
        tinsert(suggestions, 'usable')
    end

    -- rarities
    if not blizzard_filter.quality then
        for i=0,4 do
            tinsert(suggestions, getglobal('ITEM_QUALITY'..i..'_DESC'))
        end
    end

    return suggestions
end

function m.filter_to_string(filter)

    local filter_term = filter.name or ''

    local function add(part)
        filter_term = filter_term == '' and part or filter_term..'/'..part
    end

    if filter.exact then
        add('exact')
    end

    if filter.min_level then
        add(filter.min_level)
    end

    if filter.max_level then
        add(filter.max_level)
    end

    if filter.usable then
        add('usable')
    end

    if filter.class then
        local classes = { GetAuctionItemClasses() }
        add(strlower(classes[filter.class]))
        if filter.subclass then
            local subclasses = {GetAuctionItemSubClasses(filter.class)}
            add(strlower(subclasses[filter.subclass]))
            if filter.slot then
                add(strlower(getglobal(filter.slot)))
            end
        end
    end

    if filter.quality then
        add(strlower(getglobal('ITEM_QUALITY'..filter.quality..'_DESC')))
    end

    if filter.max_price then
        add(Aux.money.to_string(filter.max_price, nil, true, nil, nil, true))
    end

    if filter.max_percent then
        add(filter.max_percent..'%')
    end

    if filter.discard then
        add('discard')
    end

    if filter.tooltip then
        for _, part in ipairs(filter.tooltip) do
            add(part)
        end
    end

    return filter_term
end

function m.blizzard_query(filter)

    local item_info
    if filter.exact then
        local item_id = Aux.static.item_id(strupper(filter.name))
        item_info = Aux.static.item_info(item_id)
    end

    return {
        name = filter.name,
        min_level = filter.exact and item_info.level or filter.min_level,
        max_level = filter.exact and item_info.level or filter.max_level,
        class = filter.exact and item_info.class or filter.class,
        subclass = filter.exact and item_info.subclass or filter.subclass,
        slot = filter.exact and (item_info.class and item_info.subclass and Aux.item_slot_index(item_info.class, item_info.subclass, item_info.slot)) or filter.slot,
        usable = filter.exact and item_info.usable or filter.usable and 1 or 0,
        quality = filter.exact and item_info.quality or filter.quality,
    }
end

function m.validator(blizzard_filter, validator)

    return function(record)
        if blizzard_filter.exact and strlower(Aux.static.item_info(record.item_id).name) ~= blizzard_filter.name then
            return
        end
        if blizzard_filter.min_level and record.level < blizzard_filter.min_level then
            return
        end
        if blizzard_filter.max_level and record.level > blizzard_filter.max_level then
            return
        end
        if getn(validator) > 0 then
            local stack = {}
            for i=getn(validator),1,-1 do
                local op = validator[i]
                if op == 'and' then
                    local a, b = tremove(stack), tremove(stack)
                    tinsert(stack, a and b)
                elseif op == 'or' then
                    local a, b = tremove(stack), tremove(stack)
                    tinsert(stack, a or b)
                elseif op == 'not' then
                    tinsert(stack, not tremove(stack))
                else
                    tinsert(stack, op(record) and true or false)
                end
            end
            return Aux.util.all(stack, Aux.util.id)
        end
        return true
    end
end