aux-addon-ClassicAPI/util/core.lua

local m, public, private = Aux.module'util'

function public.pass()
end

function public.sum(...)
	local x = 0
	for i=1,arg.n do
		x = x + arg[i]
	end
	return x
end

function public.product(...)
	local x = 0
	for i=1,arg.n do
		x = x * arg[i]
	end
	return x
end

function public.id(x)
	return x
end

function public.const(x)
	return function()
		return x
	end
end

function public.size(t)
	local x = 0
	for _ in t do
		x = x + 1
	end
	return x
end

function public.round(x)
	return floor(x + 0.5)
end

function public.eq(t1, t2)
	if not t1 or not t2 then
		return false
	end

	for key, value in t1 do
		if t2[key] ~= value then
			return false
		end
	end

	for key, value in t2 do
		if t1[key] ~= value then
			return false
		end
	end

	return true
end

function public.wipe(t)
	while getn(t) > 0 do
		tremove(t)
	end
	for k, _ in t do
		t[k] = nil
	end
end

function public.copy(t)
	local copy = {}
	for k, v in t do
		copy[k] = v
	end
	return copy
end

function public.cons(element, list)
	local new_list = public.copy_table(list)
	tinsert(new_list, 1, element)
	return new_list
end

function public.trim(str)
	str = gsub(str, '^%s*', '')
	str = gsub(str, '%s*$', '')
	return str
end

function public.inventory()
	local bag, slot = 0, 0

	return function()
		if not GetBagName(bag) or slot >= GetContainerNumSlots(bag) then
			repeat
				bag = bag + 1
			until GetBagName(bag) or bag > 4
			slot = 1
		else
			slot = slot + 1
		end

		if bag <= 4 then
			return { bag, slot }, m.bag_type(bag)
		end
	end
end

function public.bag_type(bag)
	if bag == 0 then
		return 1
	end

	local link = GetInventoryItemLink('player', ContainerIDToInventoryID(bag))
	if link then
		local item_id = Aux.info.parse_hyperlink(GetInventoryItemLink('player', ContainerIDToInventoryID(bag)))
		local item_info = Aux.info.item(item_id)
		return Aux.info.item_subclass_index(3, item_info.subclass)
	end
end

function public.without_errors(f)
    local orig = UIErrorsFrame.AddMessage
    UIErrorsFrame.AddMessage = m.pass
    f()
    UIErrorsFrame.AddMessage = orig
end

function public.without_sound(f)
    local orig = GetCVar('MasterSoundEffects')
    SetCVar('MasterSoundEffects', 0)
    f()
    SetCVar('MasterSoundEffects', orig)
end

function public.iter(array)
	local i = 0
	return function()
		local ret = {iter(array, i)}
		i = ret[1]
		return ret[2]
	end
end

function public.any(xs, p)
	local holds = false
	for _, x in ipairs(xs) do
		holds = holds or p(x)
	end
	return holds
end

function public.all(xs, p)
	local holds = true
	for _, x in ipairs(xs) do
		holds = holds and p(x)
	end
	return holds
end

function public.set_filter(xs, p)
	local ys = {}
	for x, _ in xs do
		if p(x) then
			m.set_add(ys, x)
		end
	end
	return ys
end

function public.filter(xs, p)
	local ys = {}
	for _, x in xs do
		if p(x) then
			tinsert(ys, x)
		end
	end
	return ys
end

function public.map(xs, f)
	local ys = {}
	for _, x in xs do
		tinsert(ys, f(x))
	end
	return ys
end

function public.take(n, xs)
	local ys = {}
	for i=1,n do
		if xs[i] then
			tinsert(ys, xs[i])
		end
	end
	return ys
end

function public.key(value, t)
	for k, v in t do
		if v == value then
			return k
		end
	end
end

function public.group_by(tables, equal)
	local groups = {}
	for _, table in ipairs(tables) do
        local found_group
		for _, group in ipairs(groups) do
			if equal(table, group[1]) then
				tinsert(group, table)
                found_group = true
			end
        end
        if not found_group then
		    tinsert(groups, { table })
        end
	end
	return groups
end

function public.set(...)
	local set = {}
	for i=1,arg.n do
		set[arg[i]] = true
	end
	return set
end

function public.set_add(set, key)
	set[key] = true
end

function public.set_remove(set, key)
	set[key] = nil
end

function public.set_contains(set, key)
	return set[key] ~= nil
end

function public.set_size(set)
	local size = 0
	for _,_ in set do
		size = size + 1
	end
	return size
end

function public.set_to_array(set)
	local array = {}
	for element, _ in set do
		tinsert(array, element)
	end
	return array
end

function public.join(array, separator)
	local str = ''
	for i, element in ipairs(array) do
		if i > 1 then
			str = str..separator
		end
		str = str..element
	end
	return str
end

function public.tokenize(str)
	local tokens = {}
	for token in string.gfind(str, '%S+') do
		tinsert(tokens, token)
	end
	return tokens
end

function public.split(str, separator)

	local array = {}
	while true do
		local start_index, _ = strfind(str, separator, 1, true)

		if start_index then
			local part = strsub(str, 1, start_index - 1)
			tinsert(array, part)
			str = strsub(str, start_index + 1)
		else
			local part = strsub(str, 1)
			tinsert(array, part)
			return array
		end
	end
end

function public.format_money(money, exact, color)
	color = color or '|r'

	local TEXT_NONE = '0'

	local GSC_GOLD = 'ffd100'
	local GSC_SILVER = 'e6e6e6'
	local GSC_COPPER = 'c8602c'
	local GSC_START = '|cff%s%d|r'
	local GSC_PART = color..'.|cff%s%02d|r'
	local GSC_NONE = '|cffa0a0a0'..TEXT_NONE..'|r'

	if not exact and money >= 10000 then
		-- Round to nearest silver
		money = math.floor(money / 100 + 0.5) * 100
	end
	local g, s, c = Aux.money.to_GSC(money)

	local gsc = ''

	local fmt = GSC_START
	if g > 0 then
		gsc = gsc..string.format(fmt, GSC_GOLD, g)
		fmt = GSC_PART
	end
	if s > 0 or c > 0 then
		gsc = gsc..string.format(fmt, GSC_SILVER, s)
		fmt = GSC_PART
	end
	if c > 0 then
		gsc = gsc..string.format(fmt, GSC_COPPER, c)
	end
	if gsc == '' then
		gsc = GSC_NONE
	end
	return gsc
end