local m = {}
Aux.money = m

local GOLD_TEXT = '|cffffd70ag|r'
local SILVER_TEXT = '|cffc7c7cfs|r'
local COPPER_TEXT = '|cffeda55fc|r'

do
	local COPPER_PER_SILVER = 100
	local COPPER_PER_GOLD = 10000

	function m.to_GSC(money)
		local gold = floor(money / COPPER_PER_GOLD)
		local silver = floor(mod(money, COPPER_PER_GOLD) / COPPER_PER_SILVER)
		local copper = mod(money, COPPER_PER_SILVER)
		return gold, silver, copper
	end

	function m.from_GSC(gold, silver, copper)
		return gold * COPPER_PER_GOLD + silver * COPPER_PER_SILVER + copper
	end
end

function m.to_string(money, pad, trim, decimal_points, color, no_color)

	local is_negative = money < 0
	money = abs(money)
	local gold, silver, copper = m.to_GSC(money)

	-- rounding
	if decimal_points then
		copper = tonumber(format('%.'..decimal_points..'f', copper))
	end

	local gold_text, silver_text, copper_text
	if no_color then
		gold_text, silver_text, copper_text = 'g', 's', 'c'
	else
		gold_text, silver_text, copper_text = GOLD_TEXT, SILVER_TEXT, COPPER_TEXT
	end
	
	local text
	if trim then
		local parts = {}
		if gold > 0 then
			tinsert(parts, m.format_number(gold, false, nil, color)..gold_text)
		end
		if silver > 0 then
			tinsert(parts, m.format_number(silver, pad, nil, color)..silver_text)
		end
		if copper > 0 or gold == 0 and silver == 0 then
			tinsert(parts, m.format_number(copper, pad, decimal_points, color)..copper_text)
		end
		text = Aux.util.join(parts, ' ')
	else
		if gold > 0 then
			text = m.format_number(gold, false, nil, color)..gold_text..' '..m.format_number(silver, pad, nil, color)..silver_text..' '..m.format_number(copper, pad, decimal_points, color)..copper_text
		elseif silver > 0 then
			text = m.format_number(silver, false, nil, color)..silver_text..' '..m.format_number(copper, pad, decimal_points, color)..copper_text
		else
			text = m.format_number(copper, false, decimal_points, color)..copper_text
		end
	end
	
	if is_negative then
		if color then
			text = color..'-|r'..text
		else
			text = '-'..text
		end
	end

	return text
end

function m.from_string(value)
	value = strlower(value)

	-- remove any colors
	value = gsub(gsub(value, '\124c([0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])', ''), '\124r', '')

	-- extract gold/silver/copper values
	local gold = tonumber(({strfind(value, '(%d*%.?%d+)g')})[3])
	local silver = tonumber(({strfind(value, '(%d*%.?%d+)s')})[3])
	local copper = tonumber(({strfind(value, '(%d*%.?%d+)c')})[3])
--	if not gold and not silver and not copper then return end

	-- test that there are no extra characters (other than spaces)
	value = gsub(value, '%d*%.?%d+g', '', 1)
	value = gsub(value, '%d*%.?%d+s', '', 1)
	value = gsub(value, '%d*%.?%d+c', '', 1)
	if strfind(value, '%S') then return 0 end
	
	return m.from_GSC(gold or 0, silver or 0, copper or 0)
end

function m.format_number(num, pad, decimal_padding, color)

	local padding = pad and 2 + (decimal_padding and decimal_padding + 1 or 0) or 0
	num = format('%0'..padding..'.0'..(decimal_padding or 0)..'f', num)
	
	if color then
		return color..num..'|r'
	else
		return num
	end
end