Module:Currency/sandbox - Revision history

Lol1VNIO: mirror using Module:Currency/Presentation/sandbox

2024-05-19T17:17:36Z

mirror using Module:Currency/Presentation/sandbox

← Previous revision		Revision as of 17:17, 19 May 2024
Line 24:		Line 24:
	]]		]]

	local function make_short_form_name (amount, code, linked)		local function make_short_form_name (amount, code, linked, passthrough)
	local symbol;		local symbol;
	local position = properties[code].position;		local position = properties[code].position;
Line 34:		Line 34:
	end		end

		⚫	if not passthrough then
	amount = lang:formatNum (tonumber(amount)); -- add appropriate comma separators		amount = lang:formatNum (tonumber(amount)); -- add appropriate comma separators
			end
		⚫
	amount = amount:gsub ('^%-', '−'); -- replace the hyphen with unicode minus		amount = amount:gsub ('^%-', '−'); -- replace the hyphen with unicode minus

Line 46:		Line 49:
	return string.format ('%s %s', amount, symbol);		return string.format ('%s %s', amount, symbol);
	elseif 'd' == position then -- special case that replaces the decimal separator with symbol (Cifrão for CVE is the only extant case)		elseif 'd' == position then -- special case that replaces the decimal separator with symbol (Cifrão for CVE is the only extant case)
			if passthrough then
			return string.format('%s%s', symbol, amount)
			end

	local digits, decimals; -- this code may not work for other currencies or on other language wikis		local digits, decimals; -- this code may not work for other currencies or on other language wikis
	if amount:match ('[%d,]+%.%d+') then -- with decimal separator and decimals		if amount:match ('[%d,]+%.%d+') then -- with decimal separator and decimals
Line 95:		Line 102:
	]]		]]

	local function make_long_form_name (amount, code, linked)		local function make_long_form_name (amount, code, linked, passthrough)
	local name;		local name, formatted;

	if not is_set (properties[code].page) then		if not is_set (properties[code].page) then
Line 102:		Line 109:
	end		end

			if not passthrough then
	amount = tonumber (amount); -- make sure it's a number		amount = tonumber (amount); -- make sure it's a number
⚫
			end

	if 1 == amount then		if 1 == amount then
	name = make_name (linked, properties[code].page); -- the singular form		name = make_name (linked, properties[code].page); -- the singular form
Line 110:		Line 119:
	else		else
	name = make_name (linked, properties[code].page); -- plural but no separate plural form so use the singular form		name = make_name (linked, properties[code].page); -- plural but no separate plural form so use the singular form
			end

			if not passthrough then
			formatted = lang:formatNum (amount)
			else
			formatted = amount
	end		end

	return string.format ('%s %s', ~~lang:formatNum (amount)~~, name); -- put it all together		return string.format ('%s %s', formatted, name); -- put it all together
	end		end

Line 125:		Line 140:
	]]		]]

	local function render_currency (amount, code, long_form, linked, fmt)		local function render_currency (amount, code, long_form, linked, fmt, passthrough)
	local name;		local name;
	local result;		local result;

	presentation = mw.loadData ('Module:Currency/Presentation'); -- get presentation data		presentation = mw.loadData ('Module:Currency/Presentation/sandbox'); -- get presentation data

	if presentation.currency_properties[code] then -- if code is an iso 4217 code		if presentation.currency_properties[code] then -- if code is an iso 4217 code
Line 141:		Line 156:
	return '<span style="font-size:inherit" class="error">{{currency}} – invalid code ([[Template:Currency/doc#Error_messages\|help]])</span>';		return '<span style="font-size:inherit" class="error">{{currency}} – invalid code ([[Template:Currency/doc#Error_messages\|help]])</span>';
	end		end


	if long_form then		if long_form then
	result = make_long_form_name (amount, code, linked); --		result = make_long_form_name (amount, code, linked, passthrough); --
	else		else
	result = make_short_form_name (amount, code, linked);		result = make_short_form_name (amount, code, linked, passthrough);
	end		end

Line 227:		Line 243:


	local n, q = amount:match ('([%-−]?[%d%.,]+)%s*(%a+)$'); -- see if there is a quantifier following a number; zero or more space characters		local n, q = amount:match ('([%-−]?[%d%.,]+)%s*(%a+)$'); -- see if there is a quantifier following a number; zero or more space characters
	if nil == n then		if nil == n then
	n, q = amount:match ('([%-−]?[%d%.,]+) (%a+)$') -- see if there is a quantifier following a number; nbsp html entity ({{format price}} output		n, q = amount:match ('([%-−]?[%d%.,]+) (%a+)$') -- see if there is a quantifier following a number; nbsp html entity ({{format price}} output
	end		end
	if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested		if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested
Line 257:		Line 273:
	local long_form = false;		local long_form = false;
	local linked = true;		local linked = true;
			local passthrough = false;

	if not is_set (args[1]) then		if not is_set (args[1]) then
Line 266:		Line 283:
	-- return '<span style="font-size:inherit" class="error">{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages\|help]])</span>';		-- return '<span style="font-size:inherit" class="error">{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages\|help]])</span>';
	-- end		-- end

⚫	amount = convert_string_to_numeric (args[1]);
			-- This allows us to use {{currency}} while actually following [[MOS:CURRENCY]] as regards "billion", "million", "M", "bn", etc.
⚫	amount = parse_formatted_number(amount); -- if args[1] can't be converted to a number then error
			if not (args['passthrough'] == 'yes') then -- just pass whatever string is given through.
⚫	if not ~~amount~~ then
		⚫	amount = convert_string_to_numeric (args[1]);
⚫	return '<span style="font-size:inherit" class="error">{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages\|help]])</span>';
		⚫	amount = parse_formatted_number(amount); -- if args[1] can't be converted to a number then error
			if not amount then
		⚫	return '<span style="font-size:inherit" class="error">{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages\|help]])</span>';
			end
			else
			amount = args[1]
	end		end

Line 286:		Line 309:
	end		end

	return render_currency (amount, code, long_form, linked, args['fmt'])		return render_currency (amount, code, long_form, linked, args['fmt'], (args['passthrough'] == 'yes'))
	end		end

WOSlinker: use require('strict') instead of require('Module:No globals')

2022-10-21T09:59:56Z

use require('strict') instead of require('Module:No globals')

← Previous revision		Revision as of 09:59, 21 October 2022
Line 1:		Line 1:
	require('~~Module:No globals~~')		require('strict')

	local p = {}		local p = {}

Trappist the monk at 11:07, 20 July 2018

2018-07-20T11:07:42Z

← Previous revision		Revision as of 11:07, 20 July 2018
Line 152:		Line 152:
	elseif 'gaps' == fmt then -- use narrow gaps		elseif 'gaps' == fmt then -- use narrow gaps
	result = result:gsub ('(%d%d?%d?),', '<span style="margin-right:.25em;">%1</span>'); -- replace comma seperators		result = result:gsub ('(%d%d?%d?),', '<span style="margin-right:.25em;">%1</span>'); -- replace comma seperators
	elseif 'commas' ~= fmt then -- if not commas (the default) then error message		elseif fmt and 'commas' ~= fmt then -- if not commas (the default) then error message
	return '<span style="font-size:inherit" class="error">{{currency}} – invalid format ([[Template:Currency/doc#Error_messages\|help]])</span>';		return '<span style="font-size:inherit" class="error">{{currency}} – invalid format ([[Template:Currency/doc#Error_messages\|help]])</span>';
	end		end

Trappist the monk: + |fmt=;

2018-07-20T10:59:49Z

+ |fmt=;

← Previous revision		Revision as of 10:59, 20 July 2018
Line 125:		Line 125:
	]]		]]

	local function render_currency (amount, code, long_form, linked)		local function render_currency (amount, code, long_form, linked, fmt)
	local name;		local name;
			local result;

	presentation = mw.loadData ('Module:Currency/Presentation'); -- get presentation data		presentation = mw.loadData ('Module:Currency/Presentation'); -- get presentation data
Line 142:		Line 143:

	if long_form then		if long_form then
	~~return~~ make_long_form_name (amount, code, linked); --		result = make_long_form_name (amount, code, linked); --
	else		else
	~~return~~ make_short_form_name (amount, code, linked);		result = make_short_form_name (amount, code, linked);
	end		end

			if 'none' == fmt then -- no group separation
			result = result:gsub ('(%d%d?%d?),', '%1'); -- strip comma separators
			elseif 'gaps' == fmt then -- use narrow gaps
			result = result:gsub ('(%d%d?%d?),', '<span style="margin-right:.25em;">%1</span>'); -- replace comma seperators
			elseif 'commas' ~= fmt then -- if not commas (the default) then error message
			return '<span style="font-size:inherit" class="error">{{currency}} – invalid format ([[Template:Currency/doc#Error_messages\|help]])</span>';
			end

			return result; -- done
	end		end

Line 275:		Line 286:
	end		end

	return render_currency (amount, code, long_form, linked)		return render_currency (amount, code, long_form, linked, args['fmt'])
	end		end

Trappist the monk at 12:40, 22 April 2016

2016-04-22T12:40:10Z

← Previous revision		Revision as of 12:40, 22 April 2016
Line 34:		Line 34:
	end		end

	amount = lang:formatNum (tonumber(amount));		amount = lang:formatNum (tonumber(amount)); -- add appropriate comma separators
			amount = amount:gsub ('^%-', '−'); -- replace the hyphen with unicode minus

	if 'b' == position then -- choose appropriate format: unspaced before the amount		if 'b' == position then -- choose appropriate format: unspaced before the amount
Line 126:		Line 127:
	local function render_currency (amount, code, long_form, linked)		local function render_currency (amount, code, long_form, linked)
	local name;		local name;
⚫	local ~~ouput~~;

	presentation = mw.loadData ('Module:Currency/Presentation'); -- get presentation data		presentation = mw.loadData ('Module:Currency/Presentation'); -- get presentation data
Line 146:		Line 146:
	return make_short_form_name (amount, code, linked);		return make_short_form_name (amount, code, linked);
	end		end

	return amount;
	end		end

Line 165:		Line 163:
	local digits = {};		local digits = {};
	local decimals;		local decimals;
		⚫	local sign = '';
	local _;		local _;

	if amount:find ('[^%d%.,]') then -- anything but digits, decimal points or commas		if amount:find ('[^%-−%d%.,]') then -- anything but sign, digits, decimal points, or commas
	return nil;		return nil;
	end		end

			amount = amount:gsub ('−', '-'); -- replace unicode minus with hyphen

	_, count = amount:gsub('%.', '') -- count the number of decimal point characters		_, count = amount:gsub('%.', '') -- count the number of decimal point characters
Line 181:		Line 182:
	end;		end;

			if amount:match ('[%-][%d%.,]+') then -- if the amount is negative
			sign, amount = amount:match ('([%-])([%d%.,]+)'); -- strip off and save the sign
			end

	parts = mw.text.split (amount, '.', true); -- split amount into digits and decimals		parts = mw.text.split (amount, '.', true); -- split amount into digits and decimals
	decimals = table.remove (parts, 2) or ''; -- if there was a decimal portion, remove from the table and save it		decimals = table.remove (parts, 2) or ''; -- if there was a decimal portion, remove from the table and save it
Line 196:		Line 201:
	end		end
	end		end

	return table.concat (digits) .. '.' .. decimals; -- reassemble without commas and return		return sign .. table.concat (digits) .. '.' .. decimals; -- reassemble without commas and return

	end		end

Line 208:		Line 213:

	local function convert_string_to_numeric (amount)		local function convert_string_to_numeric (amount)
	local quantifiers = {['thousand'] = 1000, ['million'] = 1000000, ['billion'] = 1000000000, ['trillion'] = 1000000000000};		local quantifiers = {['thousand'] = 1000, ['million'] = 1000000, ['m'] = 1000000, ['billion'] = 1000000000, ['b'] = 1000000000, ['trillion'] = 1000000000000};


	local n, q = amount:match ('([%d%.,]+)%s*(%a+)'); -- see if there is a quantifier following a number; zero or more space characters		local n, q = amount:match ('([%-−]?[%d%.,]+)%s*(%a+)$'); -- see if there is a quantifier following a number; zero or more space characters
	if nil == n then		if nil == n then
	n, q = amount:match ('([%d%.,]+) (%a+)') -- see if there is a quantifier following a number; nbsp html entity ({{format price}} output		n, q = amount:match ('([%-−]?[%d%.,]+) (%a+)$') -- see if there is a quantifier following a number; nbsp html entity ({{format price}} output
	end		end
	if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested		if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested

Trappist the monk at 10:57, 22 April 2016

2016-04-22T10:57:53Z

← Previous revision		Revision as of 10:57, 22 April 2016
Line 210:		Line 210:
	local quantifiers = {['thousand'] = 1000, ['million'] = 1000000, ['billion'] = 1000000000, ['trillion'] = 1000000000000};		local quantifiers = {['thousand'] = 1000, ['million'] = 1000000, ['billion'] = 1000000000, ['trillion'] = 1000000000000};


	local n, q = amount:match ('([%d%.,]+)%s*(%a+)'); -- see if there is a quantifier following a number		local n, q = amount:match ('([%d%.,]+)%s*(%a+)'); -- see if there is a quantifier following a number; zero or more space characters
			if nil == n then
			n, q = amount:match ('([%d%.,]+) (%a+)') -- see if there is a quantifier following a number; nbsp html entity ({{format price}} output
			end
	if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested		if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested

Trappist the monk at 00:29, 22 April 2016

2016-04-22T00:29:28Z

← Previous revision		Revision as of 00:29, 22 April 2016
Line 208:		Line 208:

	local function convert_string_to_numeric (amount)		local function convert_string_to_numeric (amount)
		⚫	local quantifiers = {['thousand'] = 1000, ['million'] = 1000000, ['billion'] = 1000000000, ['trillion'] = 1000000000000};

	local n, q = amount:match ('([%d%.,]+)%s*(%a+)'); -- see if there is a quantifier following a number		local n, q = amount:match ('([%d%.,]+)%s*(%a+)'); -- see if there is a quantifier following a number
	if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested		if nil == n then return amount end; -- if not <number><space><quantifier> return amount unmolested
Line 213:		Line 215:
	n = n:gsub (',', ''); -- strip comma separators if present		n = n:gsub (',', ''); -- strip comma separators if present
	q = q:lower(); -- set the quantifier to lower case		q = q:lower(); -- set the quantifier to lower case
⚫	local quantifiers = {['thousand'] = 1000, ['million'] = 1000000, ['billion'] = 1000000000, ['trillion'] = 1000000000000};

			if nil == quantifiers[q] then return amount end; -- if not a recognized quantifier

	return tostring (n * quantifiers[q]); -- return a string, not a number		return tostring (n * quantifiers[q]); -- return a string, not a number
	end		end

Trappist the monk at 00:23, 22 April 2016

2016-04-22T00:23:53Z

@@ Line 198: / Line 198: @@
 	return table.concat (digits) .. '.' .. decimals;							-- reassemble without commas and return
 end
@@ Line 225: / Line 243: @@
 --		return '<span style="font-size:inherit" class="error">{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages|help]])</span>';
 --	end
-	amount = parse_formatted_number(args[1]);									-- if args[1] can't be converted to a number then error
+	amount = parse_formatted_number(amount);									-- if args[1] can't be converted to a number then error
 	if not amount then
 		return '<span style="font-size:inherit" class="error">{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages|help]])</span>';

Trappist the monk: create;

2016-04-21T12:54:15Z

create;

New page

require('Module:No globals')

local p = {}
local lang = mw.language.getContentLanguage(); -- language object for this wiki
local presentation ={}; -- table of tables that contain currency presentation data
local properties;

--[[--------------------------------------------------------------------------------------------

Whether variable is set or not. A variable is set when it is not nil and not empty.

]]

local function is_set( var )
return not (var == nil or var == '');
end

--[[--------------------------< M A K E _ S H O R T _ F O R M _ N A M E >-------------------------------------

Assembles value and symbol according to the order specified in the properties table for this currency code

]]

local function make_short_form_name (amount, code, linked)
local symbol;
local position = properties[code].position;

if linked then
symbol = string.format ('[[%s|%s]]', properties[code].page, properties[code].symbol); -- make wikilink of page and symbol
else
symbol = properties[code].symbol;
end

amount = lang:formatNum (tonumber(amount));

if 'b' == position then -- choose appropriate format: unspaced before the amount
return string.format ('%s%s', symbol, amount);
elseif 'bs' == position then -- spaced before the amount
return string.format ('%s %s', symbol, amount);
elseif 'a' == position then -- unspaced after the amount
return string.format ('%s%s', amount, symbol);
elseif 'as' == position then -- spaced after the amount
return string.format ('%s %s', amount, symbol);
elseif 'd' == position then -- special case that replaces the decimal separator with symbol (Cifrão for CVE is the only extant case)
local digits, decimals; -- this code may not work for other currencies or on other language wikis
if amount:match ('[%d,]+%.%d+') then -- with decimal separator and decimals
digits, decimals = amount:match ('([%d,]+)%.(%d+)')
amount = string.format ('%s%s%s', digits, symbol, decimals); -- insert symbol
elseif amount:match ('[%d,]+%.?$') then -- with or without decimal separator
digits = amount:match ('([%d,]+)%.?$')
amount = string.format ('%s%s00', digits, symbol); -- add symbol and 00 ($00)
end
amount = amount:gsub (',', '%.'); -- replace grouping character with period
return amount;
end
return amount .. ' {{currency}} – definition missing position ([[Template:Currency/doc#Error_messages|help]])'; -- position not defined
end

--[[--------------------------< M A K E _ N A M E >----------------------------------------------------------

Make a wikilink from the currency's article title and its plural (if provided). If linked is false, returns only
the article title (unlinked)

]]

local function make_name (linked, page, plural)
if not linked then
if not is_set (plural) then
return page; -- just the page
elseif 's' == plural then -- if the simple plural form
return string.format ('%ss', page); -- append an 's'
else
return plural; -- must be the complex plural form (pounds sterling v. dollars)
end
else
if not is_set (plural) then
return string.format ('[[%s]]', page);
elseif 's' == plural then -- if the simple plural form
return string.format ('[[%s]]s', page);
else
return string.format ('[[%s|%s]]', page, plural); -- must be the complex plural form (pounds sterling v. dollars)
end
end
end

--[[--------------------------< M A K E _ L O N G _ F O R M _ N A M E >---------------------------------------

assembles a long-form currency name from amount and name from the properties tables; plural for all values not equal to 1

]]

local function make_long_form_name (amount, code, linked)
local name;

if not is_set (properties[code].page) then
return '{{currency}} – definition missing page ([[Template:Currency/doc#Error_messages|help]])';
end

amount = tonumber (amount); -- make sure it's a number

if 1 == amount then
name = make_name (linked, properties[code].page); -- the singular form
elseif is_set (properties[code].plural) then -- plural and there is a plural form
name = make_name (linked, properties[code].page, properties[code].plural);
else
name = make_name (linked, properties[code].page); -- plural but no separate plural form so use the singular form
end

return string.format ('%s %s', lang:formatNum (amount), name); -- put it all together
end

--[[--------------------------< R E N D E R _ C U R R E N C Y >------------------------------------------------

Renders currency amount with symbol or long-form name.

Also, entry point for other modules. Assumes that parameters have been vetted; amount is a number, code is upper
case string, long_form is boolean; all are required.

]]

local function render_currency (amount, code, long_form, linked)
local name;
local ouput;

presentation = mw.loadData ('Module:Currency/Presentation'); -- get presentation data

if presentation.currency_properties[code] then -- if code is an iso 4217 code
properties = presentation.currency_properties;
elseif presentation.code_translation[code] then -- not iso 4217 but can be translated
code = presentation.code_translation[code]; -- then translate
properties = presentation.currency_properties;
elseif presentation.non_standard_properties[code] then -- last chance, is it a non-standard code?
properties = presentation.non_standard_properties;
else
return '{{currency}} – invalid code ([[Template:Currency/doc#Error_messages|help]])';
end

if long_form then
return make_long_form_name (amount, code, linked); --
else
return make_short_form_name (amount, code, linked);
end

return amount;
end

--[[------------------------------------------------------------

replacement for lang:parseFormattedNumber() which doesn't work; all it does is strip commas.

This function returns a string where all comma separators have been removed from the source string. If the source
is malformed: has characters other than digits, commas, and decimal points; has too many decimal points; has commas
in in appropriate locations; then the function returns nil.

]]

local function parse_formatted_number (amount)
local count;
local parts = {};
local digits = {};
local decimals;
local _;

if amount:find ('[^%d%.,]') then -- anything but digits, decimal points or commas
return nil;
end

_, count = amount:gsub('%.', '') -- count the number of decimal point characters
if 1 < count then
return nil; -- too many dots
end

_, count = amount:gsub(',', '') -- count the number of grouping characters
if 0 == count then
return amount; -- no comma separators so we're done
end;

parts = mw.text.split (amount, '.', true); -- split amount into digits and decimals
decimals = table.remove (parts, 2) or ''; -- if there was a decimal portion, remove from the table and save it

digits = mw.text.split (parts[1], ',') -- split amount into groups
for i, v in ipairs (digits) do -- loop through the groups
if 1 == i then -- left-most digit group
if (3 < v:len() or not is_set (v)) then -- first digit group: 1, 2, 3 digits; can't be empty string (first char was a comma)
return nil;
end
else
if v and 3 ~= v:len() then -- all other groups must be three digits long
return nil;
end
end
end
return table.concat (digits) .. '.' .. decimals; -- reassemble without commas and return

end

--[[--------------------------< C U R R E N C Y >--------------------------------------------------------------

Template:Currency entry point. The template takes three parameters:
positional (1st), |amount=, |Amount= : digits and decimal points only
positional (2nd), |type=, |Type= : code that identifies the currency
|first= : uses currency name instead of symbol

]]

local function currency (frame)
local args = require('Module:Arguments').getArgs (frame);

local amount, code;
local long_form = false;
local linked = true;

if not is_set (args[1]) then
return '{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages|help]])';
end

-- amount = lang:parseFormattedNumber(args[1]); -- if args[1] can't be converted to a number then error (this just strips grouping characters)
-- if args[1]:find ('[^%d%.]') or not amount then -- non-digit characters or more than one decimal point (because lag:parse... is broken)
-- return '{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages|help]])';
-- end

amount = parse_formatted_number(args[1]); -- if args[1] can't be converted to a number then error
if not amount then
return '{{currency}} – invalid amount ([[Template:Currency/doc#Error_messages|help]])';
end

if not is_set(args[2]) then -- if not provided
code = 'USD'; -- default to USD
else
code = args[2]:upper(); -- always upper case; used as index into data tables which all use upper case
end

if args[3] then -- this is the |first= parameter TODO: make this value meaningful? y, yes, true?
long_form = true;
end

if 'no' == args[4] then -- this is the |linked= parameter; defaults to 'yes'; any value but 'no' means yes
linked = false;
end

return render_currency (amount, code, long_form, linked)
end

return {
currency = currency, -- template entry point
_render_currency = render_currency, -- other modules entry point
}