restructuring

util/money.lua

@@ -0,0 +1,107 @@
+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 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