Module:WPSHIPS utilities/sandbox - Revision history

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

2022-10-21T09:56:31Z

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

← Previous revision		Revision as of 09:56, 21 October 2022
Line 1:		Line 1:
	require('~~Module:No globals~~')		require('strict')
	local get_args = require ('Module:Arguments').getArgs;		local get_args = require ('Module:Arguments').getArgs;
	local styles = require ('Module:WPMILHIST Infobox style'); -- infobox css		local styles = require ('Module:WPMILHIST Infobox style'); -- infobox css

Trappist the monk at 22:00, 21 July 2022

2022-07-21T22:00:47Z

Trappist the monk at 21:31, 21 July 2022

2022-07-21T21:31:47Z

← Previous revision		Revision as of 21:31, 21 July 2022
Line 595:		Line 595:
	This code translates a bulleted list into an html unordered list:		This code translates a bulleted list into an html unordered list:

	<ul style="list-style:~~none~~ none; margin:0;">		<ul style="list-style:none; margin:0;">
	<li>Name 1</li>		<li>Name 1</li>
	<li>Name 2</li>		<li>Name 2</li>
	<ul style="list-style:~~none~~ none">		<ul style="list-style:none">
	<li>Subname 2a</li>		<li>Subname 2a</li>
	<ul style="list-style:~~none~~ none">		<ul style="list-style:none">
	<li>Subname 2a1</li>		<li>Subname 2a1</li>
	</ul>		</ul>
Line 652:		Line 652:
	local item = ''; -- the item text		local item = ''; -- the item text

	table.insert (html_table, '<ul style="list-style:~~none~~ none; margin:0;">') -- this for first <ul> tag; sets no bullets and no indent		table.insert (html_table, '<ul style="list-style:none; margin:0;">') -- this for first <ul> tag; sets no bullets and no indent

	for _,v in ipairs (item_table) do		for _,v in ipairs (item_table) do
Line 670:		Line 670:
	elseif splats == level + 1 then -- number of splats can only increase by one		elseif splats == level + 1 then -- number of splats can only increase by one
	level = splats; -- record the new level		level = splats; -- record the new level
	table.insert (html_table, '<ul style="list-style:~~none~~ none">'); -- add a new sublist		table.insert (html_table, '<ul style="list-style:none">'); -- add a new sublist
	table.insert (html_table, List_item_otag .. item .. '</li>'); -- and the item		table.insert (html_table, List_item_otag .. item .. '</li>'); -- and the item
	elseif splats < level then -- from three splats to one splat for example		elseif splats < level then -- from three splats to one splat for example
Line 871:		Line 871:
	error_flag = synonym_check (args_t, 'Ship stricken', 'Ship struck', error_flag); -- error if both synonymous parameters set		error_flag = synonym_check (args_t, 'Ship stricken', 'Ship struck', error_flag); -- error if both synonymous parameters set
	error_flag = synonym_check (args_t, 'Ship honours', 'Ship honors', error_flag);		error_flag = synonym_check (args_t, 'Ship honours', 'Ship honors', error_flag);
			error_flag = synonym_check (args_t, 'Ship hull num', 'Ship pennant num', error_flag);

	if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header		if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header

Trappist the monk at 18:12, 14 July 2022

2022-07-14T18:12:48Z

← Previous revision		Revision as of 18:12, 14 July 2022
Line 2:		Line 2:
	local get_args = require ('Module:Arguments').getArgs;		local get_args = require ('Module:Arguments').getArgs;
	local styles = require ('Module:WPMILHIST Infobox style'); -- infobox css		local styles = require ('Module:WPMILHIST Infobox style'); -- infobox css
	local data = mw.loadData ('Module:WPSHIPS utilities/data');		local data = mw.loadData ('Module:WPSHIPS utilities/data/sandbox');
	local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization		local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization

Trappist the monk: sync from live;

2022-07-14T18:09:29Z

sync from live;

← Previous revision		Revision as of 18:09, 14 July 2022
Line 923:		Line 923:

	if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header		if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header
	table.insert (html_out_t, '<tr><th colspan="2~~" height="30~~" ');		table.insert (html_out_t, '<tr><th colspan="2" ');
	table.insert (html_out_t, styles.header_bar); -- style from WPMILHIST		table.insert (html_out_t, styles.header_bar); -- style from WPMILHIST
	table.insert (html_out_t, '>General characteristics');		table.insert (html_out_t, '>General characteristics');
Line 955:		Line 955:

	if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header		if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header
	table.insert (html_out_t, '<tr><th colspan="2~~" height="30~~" ');		table.insert (html_out_t, '<tr><th colspan="2" ');
	table.insert (html_out_t, styles.header_bar); -- style from WPMILHIST		table.insert (html_out_t, styles.header_bar); -- style from WPMILHIST
	table.insert (html_out_t, '>Class overview</th></tr>\n');		table.insert (html_out_t, '>Class overview</th></tr>\n');
Line 1,086:		Line 1,086:
	ship_name_format = ship_name_format,		ship_name_format = ship_name_format,
	unbulleted_list = unbulleted_list,		unbulleted_list = unbulleted_list,

			_infobox_ship_flag = _infobox_ship_flag, -- external entry points from another module
			_ship_name_format = do_ship_name_format,
			_synonym_check = synonym_check,
			_unbulleted_list = _unbulleted_list,
	}		}

Trappist the monk at 23:43, 4 July 2021

2021-07-04T23:43:15Z

← Previous revision		Revision as of 23:43, 4 July 2021
Line 1,035:		Line 1,035:

	local function set_plimsoll_subtitle (frame)		local function set_plimsoll_subtitle (frame)
	-- local ~~args_t~~ = get_args (frame); -- get a ~~table of all parameters in the~~ ~~invoke~~		local subtitle = get_args (frame)[1]; -- get the subtitle parameter
	local subtitle = get_args (frame)[1];

	if not subtitle then		if not subtitle then

Trappist the monk at 23:39, 4 July 2021

2021-07-04T23:39:28Z

← Previous revision		Revision as of 23:39, 4 July 2021
Line 1,035:		Line 1,035:

	local function set_plimsoll_subtitle (frame)		local function set_plimsoll_subtitle (frame)
	local args_t = get_args (frame); -- get a table of all parameters in the invoke		-- local args_t = get_args (frame); -- get a table of all parameters in the invoke
			local subtitle = get_args (frame)[1];

	if not ~~args_t[1]~~ then		if not subtitle then
	return nil;		return nil;
	end		end

	if not data.subtitles_t[~~args_t[1]~~] then		if not data.subtitles_t[subtitle] then
	return ': ' .. ~~args_t[1]~~; -- not predefined so return whatever \|subtitle= holds with leading ': '		return ': ' .. subtitle; -- not predefined so return whatever \|subtitle= holds with leading ': '
	end		end

Trappist the monk at 23:32, 4 July 2021

2021-07-04T23:32:14Z

← Previous revision		Revision as of 23:32, 4 July 2021
Line 1,028:		Line 1,028:
	used in {{cite plimsoll}}		used in {{cite plimsoll}}

	return appropriate subtitle string given \|subtitle=<keyword~~> and \|filename=<filename~~>		return appropriate subtitle string given \|subtitle=<keyword>

	{{#invoke:WPSHIPS utilities\|~~plimsoll_subtitle\|{{{filename}}}~~\|{{{subtitle}}}}}		{{#invoke:WPSHIPS utilities\|set_plimsoll_subtitle\|{{{subtitle}}}}}

	]]		]]
Line 1,037:		Line 1,037:
	local args_t = get_args (frame); -- get a table of all parameters in the invoke		local args_t = get_args (frame); -- get a table of all parameters in the invoke

	if not args_t[2] then		if not args_t[1] then
	return nil;		return nil;
	end		end

			if not data.subtitles_t[args_t[1]] then
	local scan_num = args_t[1]:match ('%d%d%l(%d%d%d%d)'); -- get the scan number
		⚫	return ': ' .. args_t[1]; -- not predefined so return whatever \|subtitle= holds with leading ': '

	if scan_num then
	scan_num = (0 == (tonumber(scan_num) %2)) and 'even' or 'odd'; -- get even of odd for use as subtitles_xlate_t{} index
	else
	return nil; -- TODO: better return?
	end

	local subtitle = data.subtitles_t[args_t[2]]; -- to see if we are using predefined subtitles
	if not subtitle then
⚫	return ': ' .. args_t[2]; -- not predefined so return whatever \|subtitle= holds with leading ': '
	end

	subtitle = data.subtitles_xlate_t[scan_num][args_t[2]]; -- do we need to translate?
	if subtitle then
	subtitle = data.subtitles_t[subtitle]; -- yes, get subtitle by translation
	else
	subtitle = data.subtitles_t[args_t[2]]; -- no, get subtitle without translation
	end		end

	return ': ' .. subtitle;		return ': ' .. data.subtitles_t[subtitle]; -- return predefined subtitle with leading ': '
	end		end

Trappist the monk at 19:53, 4 July 2021

2021-07-04T19:53:42Z

← Previous revision		Revision as of 19:53, 4 July 2021
Line 1,012:		Line 1,012:
	local function set_plimsoll_date (frame)		local function set_plimsoll_date (frame)
	local args_t = get_args (frame); -- get a table of all parameters in the invoke		local args_t = get_args (frame); -- get a table of all parameters in the invoke

			if not args_t[1] then
			return nil;
			end

	local year = args_t[1]:match ('(%d%d)%l%d%d%d%d'); -- get the intial year		local year = args_t[1]:match ('(%d%d)%l%d%d%d%d'); -- get the intial year

Trappist the monk at 19:24, 4 July 2021

2021-07-04T19:24:40Z

← Previous revision		Revision as of 19:24, 4 July 2021
Line 1,001:		Line 1,001:


	--[[--------------------------< S E R _ P L I M S O L L _ D A T E >--------------------------------------------		--[[--------------------------< S E T _ P L I M S O L L _ D A T E >--------------------------------------------

	create two-year range from first two digits in \|filename=<filename>		create two-year range from first two digits in \|filename=<filename>
Line 1,020:		Line 1,020:


	--[[--------------------------< P L I M S O L L _ S U B T I T L E >-----------------------------------~~---------~~		--[[--------------------------< S E T _ P L I M S O L L _ S U B T I T L E >-----------------------------------1

	used in {{cite plimsoll}}		used in {{cite plimsoll}}
Line 1,030:		Line 1,030:
	]]		]]

	local function ~~plimsoll_subtitle~~ (frame)		local function set_plimsoll_subtitle (frame)
	local args_t = get_args (frame); -- get a table of all parameters in the invoke		local args_t = get_args (frame); -- get a table of all parameters in the invoke

Line 1,058:		Line 1,058:

	return ': ' .. subtitle;		return ': ' .. subtitle;
			end


			--[[--------------------------< S E T _ P L I M S O L L _ U R L >----------------------------------------------

			create plimsoll url from \|filename=<filename>

			{{#invoke:WPSHIPS utilities\|set_plimsoll_url\|{{{filename}}}}}

			]]

			local function set_plimsoll_url (frame)
			local args_t = get_args (frame); -- get a table of all parameters in the invoke

			if args_t[1] then
			return string.format ('https://plimsoll.southampton.gov.uk/shipdata/pdfs/%s/%s',
			args_t[1]:match ('(%d%d)%l%d%d%d%d'), -- get the year path portion from <filename>
			args_t[1]); -- append <filename> onto the end, and done
			end
	end		end

Line 1,073:		Line 1,092:
	is_plimsoll_filename = is_plimsoll_filename,		is_plimsoll_filename = is_plimsoll_filename,
	navsource = navsource,		navsource = navsource,
			set_plimsoll_subtitle = set_plimsoll_subtitle,
	plimsoll_subtitle = plimsoll_subtitle,
	set_plimsoll_date = set_plimsoll_date,		set_plimsoll_date = set_plimsoll_date,
			set_plimsoll_url = set_plimsoll_url,
	ship = ship, -- experiment		ship = ship, -- experiment
	ship_name_format = ship_name_format,		ship_name_format = ship_name_format,

← Previous revision		Revision as of 22:00, 21 July 2022
Line 20:		Line 20:
	local category;		local category;

	table.insert (out, '<span style=\"font-size: 100%; font-style: normal;\" class=\"error\">Error: ');		table.insert (out, ' <span style=\"font-size: 100%; font-style: normal;\" class=\"error\">Error: ');
	table.insert (out, error_map[msg][1]);		table.insert (out, error_map[msg][1]);
	table.insert (out, table.concat ({' ([[:Category:', error_map[msg][2], '\|help]])'}));		table.insert (out, table.concat ({' ([[:Category:', error_map[msg][2], '\|help]])'}));
Line 799:		Line 799:
	]]		]]

	local function synonym_check (args_t, uk_param, us_param, error_flag)		local function synonym_check (args_t, uk_param, us_param)--, error_flag)
	if args_t[uk_param] and args_t[us_param] then		if args_t[uk_param] and args_t[us_param] then

	args_t[uk_param] = args_t[uk_param] .. make_error_msg ('synonymous'); -- both are set so append error message with category		args_t[uk_param] = args_t[uk_param] .. make_error_msg ('synonymous'); -- both are set so append error message with category
	args_t[us_param] = args_t[us_param] .. make_error_msg ('synonymous', true); -- but append error message without category		args_t[us_param] = args_t[us_param] .. make_error_msg ('synonymous', true); -- but append error message without category
	return true; -- inform the calling function that it needs to emit maint category		return true; -- inform the calling function that it needs to emit maint category
	end		end
	return error_flag; -- no match so return unmodified <error_flag>		-- return error_flag; -- no match so return unmodified <error_flag>
	end		end

Line 865:		Line 864:
	local args_t = get_args (frame); -- get a table of all parameters in the template call		local args_t = get_args (frame); -- get a table of all parameters in the template call
	local html_out_t = {}; -- html table text goes here		local html_out_t = {}; -- html table text goes here
	local error_flag = false; -- controls emission of maint category when synonymous parameters are both set		-- local error_flag = false; -- controls emission of maint category when synonymous parameters are both set

	args_t['Hide header'] = args_t['Hide header'] and args_t['Hide header']:lower(); -- set to lowercase if set		args_t['Hide header'] = args_t['Hide header'] and args_t['Hide header']:lower(); -- set to lowercase if set

	error_flag = synonym_check (args_t, 'Ship stricken', 'Ship struck', error_flag); -- error if both synonymous parameters set		-- error_flag = synonym_check (args_t, 'Ship stricken', 'Ship struck', error_flag); -- error if both synonymous parameters set
	error_flag = synonym_check (args_t, 'Ship honours', 'Ship honors', error_flag);		-- error_flag = synonym_check (args_t, 'Ship honours', 'Ship honors', error_flag);
	error_flag = synonym_check (args_t, 'Ship ~~hull~~ num', 'Ship ~~pennant~~ num', error_flag);		-- error_flag = synonym_check (args_t, 'Ship pennant num', 'Ship hull num', error_flag);

			synonym_check (args_t, 'Ship stricken', 'Ship struck'); -- error if both synonymous parameters set
			synonym_check (args_t, 'Ship honours', 'Ship honors');
			synonym_check (args_t, 'Ship pennant num', 'Ship hull num');

	if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header		if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header
Line 916:		Line 919:
	local args_t = get_args (frame); -- get a table of all parameters in the template call		local args_t = get_args (frame); -- get a table of all parameters in the template call
	local html_out_t = {}; -- html table text goes here		local html_out_t = {}; -- html table text goes here
	local error_flag = false; -- controls emission of maint category when synonymous parameters are both set		-- local error_flag = false; -- controls emission of maint category when synonymous parameters are both set

	args_t['Hide header'] = args_t['Hide header'] and args_t['Hide header']:lower(); -- set to lowercase if set		args_t['Hide header'] = args_t['Hide header'] and args_t['Hide header']:lower(); -- set to lowercase if set

	error_flag = synonym_check (args_t, 'Ship armour', 'Ship armor', error_flag); -- error if both synonymous parameters set		-- error_flag = synonym_check (args_t, 'Ship armour', 'Ship armor', error_flag); -- error if both synonymous parameters set
	error_flag = synonym_check (args_t, 'Ship draught', 'Ship draft', error_flag);		-- error_flag = synonym_check (args_t, 'Ship draught', 'Ship draft', error_flag);

			synonym_check (args_t, 'Ship armour', 'Ship armor'); -- error if both synonymous parameters set
			synonym_check (args_t, 'Ship draught', 'Ship draft');

	if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header		if 'yes' ~= args_t['Hide header'] then -- \|Hide header=yes then no header