Module:Naval Vessel Register URL/sandbox - Revision history

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

2022-10-21T10:00:16Z

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

← Previous revision		Revision as of 10:00, 21 October 2022
Line 12:		Line 12:
	]]		]]

	require('~~Module:No globals~~')		require('strict')
	local p = {}		local p = {}

Pppery: Sync from main

2020-10-22T20:04:41Z

Sync from main

Show changes

Pppery: Pppery moved page Module:NVR/sandbox to Module:Naval Vessel Register URL/sandbox without leaving a redirect

2020-10-22T20:01:11Z

Pppery moved page Module:NVR/sandbox to Module:Naval Vessel Register URL/sandbox without leaving a redirect

← Previous revision	Revision as of 20:01, 22 October 2020
(No difference)

Trappist the monk at 14:02, 31 August 2017

2017-08-31T14:02:05Z

← Previous revision		Revision as of 14:02, 31 August 2017
Line 20:		Line 20:
	local ships_data = {};		local ships_data = {};
	local srv_craft_data = {};		local srv_craft_data = {};

		⚫	local data = mw.loadData ('Module:NVR/data');
		⚫	ships_data = data.nvr_ships_id;
		⚫	srv_craft_data = data.nvr_srv_craft_id;


	--[[--------------------------< M A K E _ E R R O R _ M E S S A G E >------------------------------------------		--[[--------------------------< M A K E _ E R R O R _ M E S S A G E >------------------------------------------

			General purpose error message function to render error messages and categorization

	]]		]]
Line 58:		Line 63:

	function p.MakeShipLink (frame)		function p.MakeShipLink (frame)
	-- if no argument provided ~~than~~ check parent template/module args		local args = frame.args -- if no argument provided, check parent template/module args
	local args = frame.args
	local output = {};		local output = {};

Line 65:		Line 69:
	args = frame:getParent().args;		args = frame:getParent().args;
	if (args[1]==nil) and (args["id"]==nil) then		if (args[1]==nil) and (args["id"]==nil) then
	~~return~~ ~~'<span~~ ~~style="font-size:100%" class="error">~~required parameter missing ~~([[Template:NVR~~ ~~url#Error messages\|help]])</span>~~';		make_error_message (output, 'required parameter missing', '', '');
			return table.concat (output);
	end		end
	end		end

⚫	local data = mw.loadData ('Module:NVR/data');
⚫	ships_data = data.nvr_ships_id;

	local hull = args["id"] or args[1] or '';		local hull = args["id"] or args[1] or '';
		⚫	local hull_prefix;
	local title = args["title"] or args[2] or '';		local title = args["title"] or args[2] or '';

Line 85:		Line 88:
	hull = hull:gsub ('(%a+)[_ ]?(%d+)', '%1-%2'); -- if template has SSBN 659 or SSBN_659 or SSBN659 format		hull = hull:gsub ('(%a+)[_ ]?(%d+)', '%1-%2'); -- if template has SSBN 659 or SSBN_659 or SSBN659 format

⚫	local hull_prefix;

	if hull:match ('(%a+)%-%d+') then -- most common case		if hull:match ('(%a+)%-%d+') then -- most common case
	hull_prefix = hull:match ('(%a+)[%-_]?%d+');		hull_prefix = hull:match ('(%a+)[%-_]?%d+');
	elseif hull:match ('T%-%a+') then -- T- prefix
	hull_prefix = hull:match ('T%-(%a+)%-%d+') -- these are grouped with ships that don't use the prefix
	elseif hull:match ('[%a+ %(%)]+%-%d+') then -- special one-off case for AFSB (I)-15		elseif hull:match ('[%a+ %(%)]+%-%d+') then -- special one-off case for AFSB (I)-15
	hull_prefix = hull:match ('([%a+ %(%)]+)%-%d+')		hull_prefix = hull:match ('([%a+ %(%)]+)%-%d+')
Line 101:		Line 100:

	if not ships_data[hull_prefix] then -- is there a group for the hull number?		if not ships_data[hull_prefix] then -- is there a group for the hull number?
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in Module:NVR/data nvr_ships_id');		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:NVR/data]] nvr_ships_id');
	return table.concat (output);		return table.concat (output);
	end		end

	if not ships_data[hull_prefix][hull] then -- is there a hull number		if not ships_data[hull_prefix][hull] then -- is there a hull number
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_ships_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_ships_id');
	return table.concat (output);		return table.concat (output);
	end		end
Line 126:		Line 125:

	else -- no identifier		else -- no identifier
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_ships_id');		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_ships_id');
	end		end

Line 154:		Line 153:
	args = frame:getParent().args;		args = frame:getParent().args;
	if (args[1]==nil) and (args["id"]==nil) then		if (args[1]==nil) and (args["id"]==nil) then
			make_error_message (output, 'required parameter missing', '', '');
	return '<span style="font-size:100%" class="error">required parameters missing ([[Template:NVR url#Error messages\|help]])</span>';
			return table.concat (output);
	end		end
	end		end

	local data = mw.loadData ('Module:NVR/data');
⚫	srv_craft_data = data.nvr_srv_craft_id;

	local hull = args["id"] or args[1] or '';		local hull = args["id"] or args[1] or '';
		⚫	local hull_prefix;
	local title = args["title"] or args[2] or '';		local title = args["title"] or args[2] or '';

Line 173:		Line 171:
	hull = hull:gsub ('(%a+)[_ ]?(%d+)', '%1-%2'); -- if template has YT 807 or YT_807 or YT807 format		hull = hull:gsub ('(%a+)[_ ]?(%d+)', '%1-%2'); -- if template has YT 807 or YT_807 or YT807 format

⚫	local hull_prefix;

	if hull:match ('(%a+)%-%d+') then -- most common case		if hull:match ('(%a+)%-%d+') then -- most common case
	hull_prefix = hull:match ('(%a+)%-%d+');		hull_prefix = hull:match ('(%a+)%-%d+');
Line 185:		Line 181:

	if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?		if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in Module:NVR/data nvr_srv_craft_id');		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in [[Module:NVR/data]] nvr_srv_craft_id');
	return table.concat (output);		return table.concat (output);
	end		end

	if not srv_craft_data[hull_prefix][hull] then -- is there a hull number		if not srv_craft_data[hull_prefix][hull] then -- is there a hull number
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_srv_craft_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_srv_craft_id');
	return table.concat (output);		return table.concat (output);
	end		end
Line 209:		Line 205:
	end		end
	else -- no identifier		else -- no identifier
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_srv_craft_id');		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in [[Module:NVR/data]] nvr_srv_craft_id');
	end		end

Trappist the monk at 13:25, 31 August 2017

2017-08-31T13:25:43Z

← Previous revision		Revision as of 13:25, 31 August 2017
Line 101:		Line 101:

	if not ships_data[hull_prefix] then -- is there a group for the hull number?		if not ships_data[hull_prefix] then -- is there a group for the hull number?
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in ~~MODULE~~:NVR/data nvr_ships_id');		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in Module:NVR/data nvr_ships_id');
	return table.concat (output);		return table.concat (output);
	end		end

	if not ships_data[hull_prefix][hull] then -- is there a hull number		if not ships_data[hull_prefix][hull] then -- is there a hull number
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in ~~MODULE~~:NVR/data nvr_ships_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_ships_id');
	return table.concat (output);		return table.concat (output);
	end		end
Line 126:		Line 126:

	else -- no identifier		else -- no identifier
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in ~~MODULE~~:NVR/data nvr_ships_id');		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_ships_id');
	end		end

Line 180:		Line 180:
	hull_prefix = hull:match ('(%a+)%-%d+%a'); -- each section has a single letter designator: AFDB-7F		hull_prefix = hull:match ('(%a+)%-%d+%a'); -- each section has a single letter designator: AFDB-7F
	else		else
	make_error_message (output, '~~cannot recognize~~ hull classification symbol: ~~[\'~~', hull, '~~\']~~');		make_error_message (output, 'malformed hull classification symbol: ', hull, '');
	return table.concat (output);		return table.concat (output);
	end		end

	if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?		if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in ~~MODULE~~:NVR/data nvr_srv_craft_id');		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in Module:NVR/data nvr_srv_craft_id');
	return table.concat (output);		return table.concat (output);
	end		end

	if not srv_craft_data[hull_prefix][hull] then -- is there a hull number		if not srv_craft_data[hull_prefix][hull] then -- is there a hull number
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in ~~MODULE~~:NVR/data nvr_srv_craft_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_srv_craft_id');
	return table.concat (output);		return table.concat (output);
	end		end
Line 209:		Line 209:
	end		end
	else -- no identifier		else -- no identifier
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in ~~MODULE~~:NVR/data nvr_srv_craft_id');		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in Module:NVR/data nvr_srv_craft_id');
	end		end

Trappist the monk at 12:57, 31 August 2017

2017-08-31T12:57:29Z

← Previous revision		Revision as of 12:57, 31 August 2017
Line 93:		Line 93:
	elseif hull:match ('[%a+ %(%)]+%-%d+') then -- special one-off case for AFSB (I)-15		elseif hull:match ('[%a+ %(%)]+%-%d+') then -- special one-off case for AFSB (I)-15
	hull_prefix = hull:match ('([%a+ %(%)]+)%-%d+')		hull_prefix = hull:match ('([%a+ %(%)]+)%-%d+')
	elseif hull:match ('^~~%a+~~$') then -- ~~letters~~ ~~only~~		elseif hull:match ('^CONSTITUTION$') or hull:match ('^MAINE$') or hull:match ('^TEXAS$') then -- Constitution, Maine, and Texas
	hull_prefix = hull; -- ~~Constitution,~~ ~~Maine,~~ or ~~Texas~~		hull_prefix = hull; -- do not have hull classification symbols; use their names
	else		else
	make_error_message (output, '~~cannot recognize~~ hull classification symbol: ~~[\'~~', hull, '~~\']~~');		make_error_message (output, 'malformed hull classification symbol: ', hull, '');
	return table.concat (output);		return table.concat (output);
	end		end

Trappist the monk at 11:31, 31 August 2017

2017-08-31T11:31:36Z

← Previous revision		Revision as of 11:31, 31 August 2017
Line 28:		Line 28:

	local function make_error_message (output, prefix, item, suffix)		local function make_error_message (output, prefix, item, suffix)
			local category = ''; -- for concatenation

			if 0 == mw.title.getCurrentTitle().namespace then -- article namespace
			category = '[[Category:WPSHIPS:Template_errors]]'; -- categorize only from article namespace
			end

	table.insert (output, '<span style="font-size:100%" class="error">')		table.insert (output, '<span style="font-size:100%" class="error">')
	table.insert (output, prefix);		table.insert (output, prefix);
Line 33:		Line 39:
	table.insert (output, suffix);		table.insert (output, suffix);
	table.insert (output, ' ([[Template:NVR url#Error messages\|help]])</span>');		table.insert (output, ' ([[Template:NVR url#Error messages\|help]])</span>');
			table.insert (output, category);
	return		return
	end		end

Trappist the monk at 00:28, 31 August 2017

2017-08-31T00:28:11Z

← Previous revision		Revision as of 00:28, 31 August 2017
Line 170:		Line 170:
	if hull:match ('(%a+)%-%d+') then -- most common case		if hull:match ('(%a+)%-%d+') then -- most common case
	hull_prefix = hull:match ('(%a+)%-%d+');		hull_prefix = hull:match ('(%a+)%-%d+');
	elseif hull:match ('(%a+)%-%d+%a+') then -- special cases for the various sections of floating dry docks		elseif hull:match ('(%a+)%-%d+%a') then -- special cases for the various sections of floating dry docks;
	hull_prefix = hull:match ('(%a+)%-%d+%a+');		hull_prefix = hull:match ('(%a+)%-%d+%a'); -- each section has a single letter designator: AFDB-7F
	else		else
	-- table.insert (output, '<span style="font-size:100%" class="error">')
	-- table.insert (output, 'cannot recognize hull classification symbol: [\'');
	-- table.insert (output, hull);
	-- table.insert (output, '\'] ([[Template:NVR url#Error messages\|help]])</span>');
	make_error_message (output, 'cannot recognize hull classification symbol: [\'', hull, '\']');		make_error_message (output, 'cannot recognize hull classification symbol: [\'', hull, '\']');
	return table.concat (output);		return table.concat (output);
Line 182:		Line 178:

	if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?		if not srv_craft_data[hull_prefix] then -- is there a group for the hull number?
	-- table.insert (output, '<span style="font-size:100%" class="error">')
	-- table.insert (output, 'unable to find group: [\'');
	-- table.insert (output, hull_prefix);
	-- table.insert (output, '\'] in MODULE:NVR/data nvr_ships_id ([[Template:NVR url#Error messages\|help]])</span>');
	make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in MODULE:NVR/data nvr_srv_craft_id');		make_error_message (output, 'unable to find group: [\'', hull_prefix, '\'] in MODULE:NVR/data nvr_srv_craft_id');
	return table.concat (output);		return table.concat (output);
Line 191:		Line 183:

	if not srv_craft_data[hull_prefix][hull] then -- is there a hull number		if not srv_craft_data[hull_prefix][hull] then -- is there a hull number
	-- table.insert (output, '<span style="font-size:100%" class="error">')
	-- table.insert (output, 'unable to find hull classification symbol: [\'');
	-- table.insert (output, hull);
	-- table.insert (output, '\'] in MODULE:NVR/data nvr_ships_id ([[Template:NVR url#Error messages\|help]])</span>');
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in MODULE:NVR/data nvr_srv_craft_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in MODULE:NVR/data nvr_srv_craft_id');
	return table.concat (output);		return table.concat (output);
Line 214:		Line 202:
	end		end
	else -- no identifier		else -- no identifier
	-- table.insert (output, '<span style="font-size:100%" class="error">')
	-- table.insert (output, 'no identifier for hull classification symbol: [\'');
	-- table.insert (output, hull);
	-- table.insert ('\'] in MODULE:NVR/data nvr_ships_id ([[Template:NVR url#Error messages\|help]])</span>');
	make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in MODULE:NVR/data nvr_srv_craft_id');		make_error_message (output, 'no identifier for hull classification symbol: [\'', hull, '\'] in MODULE:NVR/data nvr_srv_craft_id');
	end		end

Trappist the monk at 19:55, 30 August 2017

2017-08-30T19:55:48Z

← Previous revision		Revision as of 19:55, 30 August 2017
Line 191:		Line 191:

	if not srv_craft_data[hull_prefix][hull] then -- is there a hull number		if not srv_craft_data[hull_prefix][hull] then -- is there a hull number
	table.insert (output, '<span style="font-size:100%" class="error">')		-- table.insert (output, '<span style="font-size:100%" class="error">')
	table.insert (output, 'unable to find hull classification symbol: [\'');		-- table.insert (output, 'unable to find hull classification symbol: [\'');
	table.insert (output, hull);		-- table.insert (output, hull);
	table.insert (output, '\'] in MODULE:NVR/data nvr_ships_id ([[Template:NVR url#Error messages\|help]])</span>');		-- table.insert (output, '\'] in MODULE:NVR/data nvr_ships_id ([[Template:NVR url#Error messages\|help]])</span>');
	make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in MODULE:NVR/data nvr_srv_craft_id');		make_error_message (output, 'unable to find hull classification symbol: [\'', hull, '\'] in MODULE:NVR/data nvr_srv_craft_id');
	return table.concat (output);		return table.concat (output);

Trappist the monk at 19:21, 30 August 2017

2017-08-30T19:21:13Z

Show changes