Module:ISO 639 name - Revision history

Trappist the monk: -temp_mod_name_get();

2024-07-11T15:43:33Z

-temp_mod_name_get();

@@ Line 1: / Line 1: @@
 require('strict');
 local getArgs = require ('Module:Arguments').getArgs;
 local parts = {
 	{'Module:ISO 639 name/ISO 639-1', '1'},
@@ Line 57: / Line 11: @@
 	{'Module:ISO 639 name/ISO 639-5', '5'},
+	}
@@ Line 447: / Line 400: @@
 	end
 	local code;

Trappist the monk: +temp_mod_name_get();

2024-07-10T19:14:46Z

+temp_mod_name_get();

@@ Line 1: / Line 1: @@
 require('strict');
 local getArgs = require ('Module:Arguments').getArgs;
-local deprecated_data = mw.loadData ('Module:Language/data/ISO 639 deprecated');
+local override_data = mw.loadData (temp_mod_name_get ('Module:Language/data/ISO 639 override'));
 local parts = {
-	{'Module:Language/data/ISO 639-1', '1'},
+	{temp_mod_name_get ('Module:Language/data/ISO 639-1'), '1'},
-	{'Module:Language/data/ISO 639-2', '2'},
+	{temp_mod_name_get ('Module:Language/data/ISO 639-2'), '2'},
-	{'Module:Language/data/ISO 639-2B', '2B'},
+	{temp_mod_name_get ('Module:Language/data/ISO 639-2B'), '2B'},
-	{'Module:Language/data/ISO 639-3', '3'},
+	{temp_mod_name_get ('Module:Language/data/ISO 639-3'), '3'},
-	{'Module:Language/data/ISO 639-5', '5'},
+	{temp_mod_name_get ('Module:Language/data/ISO 639-5'), '5'},
+	}
@@ Line 401: / Line 447: @@
 	end
 	local code;

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

2022-10-22T09:04:50Z

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

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

	local getArgs = require ('Module:Arguments').getArgs;		local getArgs = require ('Module:Arguments').getArgs;

Trappist the monk: sync from sandbox;

2020-10-05T13:06:48Z

sync from sandbox;

← Previous revision		Revision as of 13:06, 5 October 2020
Line 3:		Line 3:
	local getArgs = require ('Module:Arguments').getArgs;		local getArgs = require ('Module:Arguments').getArgs;
	local override_data = mw.loadData ('Module:Language/data/ISO 639 override');		local override_data = mw.loadData ('Module:Language/data/ISO 639 override');
			--local override_data = mw.loadData ('Module:Language/data/ISO 639 override/sandbox');
	local deprecated_data = mw.loadData ('Module:Language/data/ISO 639 deprecated');		local deprecated_data = mw.loadData ('Module:Language/data/ISO 639 deprecated');
	local parts = {		local parts = {
Line 106:		Line 107:
	local name;		local name;
	if data[code] then		if data[code] then
	name = raw and data[code][1] or data[code][1]:gsub ('%s*%b()', ''); -- get the name; strip parenthetical disambiguators if any when <raw> is false		-- name = raw and data[code][1] or data[code][1]:gsub ('%s*%b()', ''); -- get the name; strip parenthetical disambiguators if any when <raw> is false
			if raw then
			name = data[code][1];
			else
			name = data[code][1]:gsub ('%s*%b()', ''); -- strip parenthetical disambiguators if any
			name = name:gsub ('([^,]-), +(.+)', '%2 %1'); -- if inverted, uninvert
			end
	if link then -- make a link to the language article?		if link then -- make a link to the language article?
	if name:find ('languages') or name:find ('[Ll]anguage$') then		if name:find ('languages') or name:find ('[Ll]anguage$') then
Line 395:		Line 402:

	local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code'); -- ISO 639 language names to code table		local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code'); -- ISO 639 language names to code table
			-- local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code/sandbox'); -- ISO 639 language names to code table

	local code;		local code;

Gonnym: Replaced Module:Language/data/iana languages with Module:Language/data/ISO 639-1; removed code that checked for iso-1 codes in complete list

2020-09-26T16:23:36Z

Replaced Module:Language/data/iana languages with Module:Language/data/ISO 639-1; removed code that checked for iso-1 codes in complete list

← Previous revision		Revision as of 16:23, 26 September 2020
Line 5:		Line 5:
	local deprecated_data = mw.loadData ('Module:Language/data/ISO 639 deprecated');		local deprecated_data = mw.loadData ('Module:Language/data/ISO 639 deprecated');
	local parts = {		local parts = {
	{'Module:Language/data/~~iana~~ ~~languages~~', '1'}, ~~-- the standard part data for parts 1, 2, 2B, 3, and 5; iana data used only for its ISO 639-1 data~~		{'Module:Language/data/ISO 639-1', '1'},
	{'Module:Language/data/ISO 639-2', '2'},		{'Module:Language/data/ISO 639-2', '2'},
	{'Module:Language/data/ISO 639-2B', '2B'},		{'Module:Language/data/ISO 639-2B', '2B'},
Line 22:		Line 22:
	['ietf'] = '$1 is an IETF tag', -- $1 is the ietf tag		['ietf'] = '$1 is an IETF tag', -- $1 is the ietf tag
	['required'] = 'ISO 639$1 code is required', -- $1 is the 639 '-1', '-2', '-3', '-5' part suffix; may be empty string		['required'] = 'ISO 639$1 code is required', -- $1 is the 639 '-1', '-2', '-3', '-5' part suffix; may be empty string
	['not_code'] = '$1 is not an ISO 639$2 code', -- $1 is non-code input; $2 is 639 part suffix; may be empty string

	-- code to name functions and iso_639_name_to_code()		-- code to name functions and iso_639_name_to_code()
Line 196:		Line 195:
	code, ietf_err = args[1]:gsub('(.-)%-.*', '%1'); -- strip ietf subtags; ietf_err is non-zero when subtags are stripped		code, ietf_err = args[1]:gsub('(.-)%-.*', '%1'); -- strip ietf subtags; ietf_err is non-zero when subtags are stripped
	ietf_err = (0 ~= ietf_err) and error_msg ('ietf', args[1], hide, nocat) or ''; -- when tags are stripped create an error message; empty string for concatenation else		ietf_err = (0 ~= ietf_err) and error_msg ('ietf', args[1], hide, nocat) or ''; -- when tags are stripped create an error message; empty string for concatenation else

	if ('1' == part and 2 ~= #code) or ('1' ~= part and 3 ~= #code) then -- 639-1 codes are 2 characters only; all others 3 characters
	return error_msg ('not_code', {code, '-' .. part}, hide, nocat);
	end

	if not raw then -- when raw is true, fetch name as is from part data; ignore override		if not raw then -- when raw is true, fetch name as is from part data; ignore override

Trappist the monk: sync from sandbox;

2020-09-19T14:28:36Z

sync from sandbox;

← Previous revision		Revision as of 14:28, 19 September 2020
Line 3:		Line 3:
	local getArgs = require ('Module:Arguments').getArgs;		local getArgs = require ('Module:Arguments').getArgs;
	local override_data = mw.loadData ('Module:Language/data/ISO 639 override');		local override_data = mw.loadData ('Module:Language/data/ISO 639 override');
			local deprecated_data = mw.loadData ('Module:Language/data/ISO 639 deprecated');
	local parts = {		local parts = {
	{'Module:Language/data/iana languages', '1'},		{'Module:Language/data/iana languages', '1'}, -- the standard part data for parts 1, 2, 2B, 3, and 5; iana data used only for its ISO 639-1 data
	{'Module:Language/data/ISO 639-2', '2'},		{'Module:Language/data/ISO 639-2', '2'},
	{'Module:Language/data/ISO 639-2B', '2B'},		{'Module:Language/data/ISO 639-2B', '2B'},
Line 154:		Line 155:

	return valid index [1] - [5]; nil else		return valid index [1] - [5]; nil else
	[1] -> part 1		1 <- part ['1']
	[2] -> part 2 (2T)		2 <- part ['2'] -- this is part 2T
	[3] -> part 2B		3 <- part ['2B']
	[4] -> part 3		4 <- part ['3']
	~~[5]~~ -> ~~nil;~~ there is no part 4		nil <- part ['4'] -- there is no part 4
	~~[6]~~ -> part 5		5 <- part ['5']

	]]		]]
Line 170:		Line 171:
	--[[--------------------------< I S O _ 6 3 9 _ C O D E _ T O _ N A M E _ C O M M O N >------------------------		--[[--------------------------< I S O _ 6 3 9 _ C O D E _ T O _ N A M E _ C O M M O N >------------------------

	this is code that is common to all of the iso_639_code_n_to_name() functions which serve only as template entry ~~points to~~		this is code that is common to all of the iso_639_code_n_to_name() functions which serve only as template entry
	provide the frame, the name of the appropriate data source, and to identify which 639 part applies.		points to provide the frame, the name of the appropriate data source, and to identify which 639 part applies.

		⚫	this function returns a language name or an error message. data is searched in this order:
			part-specific override data -> standard part data -> part-specific deprecated data

⚫	this function returns a language name or an error message.
	a second retval used by _iso_639_code_to_name() is true when a code is found; nil else		a second retval used by _iso_639_code_to_name() is true when a code is found; nil else

Line 206:		Line 209:
	data = mw.loadData (source); -- get the data for this ISO 639 part		data = mw.loadData (source); -- get the data for this ISO 639 part
	name = lang_name_get (code:lower(), data, args.link, args.label, raw); -- get language name if there is one		name = lang_name_get (code:lower(), data, args.link, args.label, raw); -- get language name if there is one
			end

			if not name then -- TODO: do something special to indicate when a name is fetched from deprecated data?
			data = deprecated_data['deprecated_' .. part]; -- get deprecated data for this part
			name = lang_name_get (code:lower(), data, args.link, args.label, raw); -- get deprecated language name if there is one

	if not name then		if not name then
	return error_msg ('not_found', {code, part}, hide, nocat); -- code not found, return error message		return error_msg ('not_found', {code, part}, hide, nocat); -- code not found, return error message
	end		end
	end		end
	return add_ietf_error_msg (name, ietf_err, hide, nocat), true; -- return language name with ietf error message if any; true because we found a code		return add_ietf_error_msg (name, ietf_err, hide, nocat), true; -- return language name with ietf error message if any; true because we found a code
	end		end
Line 351:		Line 360:

	local function name_in_part_code_get (name, part, part_idx, name_data)		local function name_in_part_code_get (name, part, part_idx, name_data)
	return name_data[name] and name_data[name][part_idx+5] -- see if the name exists in the part ~~table~~ ~~as an override~~		return name_data[name] and (
			name_data[name][part_idx+5] or -- see if the name exists in the part's override table
	~~or name_data[name] and~~ name_data[name][part_idx]; -- see if the name exists in the part table		name_data[name][part_idx] or -- see if the name exists in the part's main table
			name_data[name][part_idx+10] -- see if the name exists in the part's deprecated table
			);
	end		end

Line 376:		Line 388:

	local name = args[1]; -- used in error messaging		local name = args[1]; -- used in error messaging
	local lc_name = name:lower(); -- ~~holds~~ lowercase version of name for indexing into the data table		local lc_name = name:gsub(' +', ' '):lower(); -- lowercase version of name for indexing into the data table; strip extraneous space characters

	local part_idx;		local part_idx;

Trappist the monk: sync from sandbox;

2020-09-02T11:16:10Z

sync from sandbox;

← Previous revision		Revision as of 11:16, 2 September 2020
Line 343:		Line 343:


	--[[--------------------------< N A M E _ I N _ P A R T _ S E A R C H >~~----~~------------------------------------		--[[--------------------------< N A M E _ I N _ P A R T _ C O D E _ G E T >------------------------------------

			indexes into the <name_data> using <name> and extracts the language code assigned to <part> (1, 2, 2B, 3, 5).
	searches a specified <part> (1, 2, 3, 5) and the associated override tables for <name>. Override table searched
	first; returns code on success nil else		attempts to index override data first; returns code on success, nil else

	]]		]]

	local function ~~name_in_part_search~~ (name, part, part_idx, name_data)		local function name_in_part_code_get (name, part, part_idx, name_data)
		⚫	return name_data[name] and name_data[name][part_idx+5] -- see if the name exists in the part table as an override
	local override_table = {};
			or name_data[name] and name_data[name][part_idx]; -- see if the name exists in the part table
	local code;

	override_table = override_data['override_' .. part]; -- select the override table for the specified part

	for k, v in pairs (override_table) do -- spin through the override table for the specified part
	if name == v[1]:lower() then -- if name is found
⚫	return k; -- ~~return~~ ~~the~~ ~~code~~
	end
	end

⚫	~~code =~~ name_data[name] and name_data[name][part_idx]; -- see if the name exists in the part table
	return '' ~= code and code;
	end		end

Line 369:		Line 358:
	--[[--------------------------< _ I S O _ 6 3 9 _ N A M E _ T O _ C O D E >------------------------------------		--[[--------------------------< _ I S O _ 6 3 9 _ N A M E _ T O _ C O D E >------------------------------------

	module entry point; returns ISO 639-1, -2, -3, or -5 code associated with language name according to part ~~(1, 2, 3, 5) argument;~~		module entry point; returns ISO 639-1, -2, -2B, -3, or -5 code associated with language name according to part
	when part is not provided scans 1, 2, 3 , 5 and returns first code		(1, 2, 2B, 3, 5) argument; when part is not provided scans 1, 2, 2B, 3, 5 and returns first code

	override data are examined first		override data are examined first
Line 383:		Line 372:

	if not args[1] then		if not args[1] then
	return error_msg ('name', '', hide, nocat);		return error_msg ('name', '', hide, nocat); -- abandon when language name missing
	end		end

Line 390:		Line 379:

	local part_idx;		local part_idx;
	if args[2] ~~then~~		local part = args[2];
			if part then
	part_idx = get_part_index (~~args[2]~~);		part_idx = get_part_index (part);
	if not part_idx then		if not part_idx then
	return error_msg ('not_part', ~~args[2]~~, hide, nocat); -- abandon; args[2] is not a valid ISO 639 part		return error_msg ('not_part', part, hide, nocat); -- abandon; args[2] is not a valid ISO 639 part
	end		end
	end		end
	local part = args[2];

	local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code'); -- ISO 639 language names to code table		local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code'); -- ISO 639 language names to code table
Line 403:		Line 392:

	if part then		if part then
	code = ~~name_in_part_search~~ (lc_name, part, part_idx, name_data); -- search the specified override table + part table		code = name_in_part_code_get (lc_name, part, part_idx, name_data); -- search the specified override table + part table
	else		else
	for part_idx, part_tag in ipairs ({'1', '2', '2B', '3', '5'}) do -- no part provided, spin through all parts override first and get the first available code		for part_idx, part_tag in ipairs ({'1', '2', '2B', '3', '5'}) do -- no part provided, spin through all parts override first and get the first available code
	code = ~~name_in_part_search~~ (lc_name, part_tag, part_idx, name_data);		code = name_in_part_code_get (lc_name, part_tag, part_idx, name_data);
	if code then -- nil when specified <part> does not have code for specified language <name>		if code then -- nil when specified <part> does not have code for specified language <name>
	break; -- when code is not nil, done		break; -- when code is not nil, done
Line 422:		Line 411:
	--[[--------------------------< I S O _ 6 3 9 _ N A M E _ T O _ C O D E >--------------------------------------		--[[--------------------------< I S O _ 6 3 9 _ N A M E _ T O _ C O D E >--------------------------------------

	template entry point; returns ISO 639-1, -2, -3, or -5 code associated with language name according to part ~~(1, 2, 3, 5) argument;~~		template entry point; returns ISO 639-1, -2, -2B, -3, or -5 code associated with language name according to part
	when part is not provided scans 1, 2, 3 , 5 and returns first code		(1, 2, 2B, 3, 5) argument; when part is not provided scans 1, 2, 2B, 3, 5 and returns first code

	override data are examined first		override data are examined first
Line 465:		Line 454:
	language code if args[1] is valid language name		language code if args[1] is valid language name

	this function is constrained to the ISO 639 part specified in args[2] which must be 1, 2, 3, or 5. When not provided		this function is constrained to the ISO 639 part specified in args[2] which must be 1, 2, 2B, 3, or 5. When not provided
	all parts are tested. The first match is found		all parts are tested. The first match is found

Line 480:		Line 469:
	return error_msg ('code_name', '', hide, nocat);		return error_msg ('code_name', '', hide, nocat);
	end		end


	if args[2] then -- if ISO 639 part supplied		local part = args[2];
			if part then -- if ISO 639 part supplied
	local part_idx = get_part_index (~~args[2]~~); -- ~~fix~~ part 5; ~~1-3 same, 4 and~~ anything else nil		local part_idx = get_part_index (part); -- map index from <part>; anything else nil

	if not part_idx then		if not part_idx then
	return error_msg ('not_part', ~~args[2]~~, hide, nocat); -- abandon args[2] is not a valid ISO 639 part		return error_msg ('not_part', part, hide, nocat); -- abandon; args[2] is not a valid ISO 639 part
	end		end

Line 492:		Line 482:
	return result; -- found the code so return the language name		return result; -- found the code so return the language name
	end		end

	~~return~~ ~~iso_639_name_to_code~~ (~~frame~~); -- might be a language name; return code if it is; error message or empty string else		result = _iso_639_name_to_code (args); -- might be a language name; return code if it is; error message or empty string else
		⚫	return result; -- this way to suppress second return

	else		else
	for _, part in ipairs (parts) do -- for each of the iso 639 parts		for _, part in ipairs (parts) do -- for each of the iso 639 parts
Line 501:		Line 494:
	end		end
	end		end

	~~return~~ ~~iso_639_name_to_code~~ (~~frame~~); -- might be a language name; return code if it is; error message or empty string else		result = _iso_639_name_to_code (args); -- might be a language name; return code if it is; error message or empty string else
			return result; -- this way to suppress second return
	end		end

Trappist the monk: sync from sandbox;

2020-09-01T15:27:48Z

sync from sandbox;

← Previous revision		Revision as of 15:27, 1 September 2020
Line 58:		Line 58:
	if not hide then		if not hide then
	retval = substitute (error_messages.err_msg, substitute (error_messages.err_text[msg], arg));		retval = substitute (error_messages.err_msg, substitute (error_messages.err_text[msg], arg));
	-- retval = not nocat and (retval .. error_cat) or retval;
	retval = nocat and retval or (retval .. error_cat);		retval = nocat and retval or (retval .. error_cat);
	end		end
Line 166:		Line 165:
	local function get_part_index (part)		local function get_part_index (part)
	return ({['1']=1, ['2']=2, ['2B']=3, ['3']=4, ['4']=nil, ['5']=5})[part]		return ({['1']=1, ['2']=2, ['2B']=3, ['3']=4, ['4']=nil, ['5']=5})[part]
	-- return ({1, 2, 3, 4, nil, 5})[tonumber(part)];
	end		end

Line 236:		Line 234:
	end		end

	-- local code = args[1]; -- used in error messaging
	local name; -- the retrieved language name and / or error message		local name; -- the retrieved language name and / or error message
	local found; -- set to true when language name is found		local found; -- set to true when language name is found
Line 401:		Line 398:
	local part = args[2];		local part = args[2];

	local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code~~/sandbox~~'); -- ISO 639 language names to code table		local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code'); -- ISO 639 language names to code table

	--error (mw.dumpObject (name_data['afro-asiatic languages']))
	local code;		local code;

Trappist the monk: sync from sandbox;

2020-09-01T14:53:02Z

sync from sandbox;

← Previous revision		Revision as of 14:53, 1 September 2020
Line 4:		Line 4:
	local override_data = mw.loadData ('Module:Language/data/ISO 639 override');		local override_data = mw.loadData ('Module:Language/data/ISO 639 override');
	local parts = {		local parts = {
	{'Module:Language/data/iana languages', 1},		{'Module:Language/data/iana languages', '1'},
	{'Module:Language/data/ISO 639-2', 2},		{'Module:Language/data/ISO 639-2', '2'},
	{'Module:Language/data/ISO 639-3', 3},		{'Module:Language/data/ISO 639-2B', '2B'},
	{'Module:Language/data/ISO 639-5', 5},		{'Module:Language/data/ISO 639-3', '3'},
			{'Module:Language/data/ISO 639-5', '5'},
	}		}

Line 153:		Line 154:
	gets index suitable for parts{} table from ISO 639-<part> (usually args[2])		gets index suitable for parts{} table from ISO 639-<part> (usually args[2])

	return valid index [1] - [4]; nil else		return valid index [1] - [5]; nil else
			[1] -> part 1
			[2] -> part 2 (2T)
			[3] -> part 2B
			[4] -> part 3
			[5] -> nil; there is no part 4
			[6] -> part 5

	]]		]]

	local function get_part_index (part)		local function get_part_index (part)
	return ({1, 2, 3, ~~nil~~, 4})[~~tonumber(~~part)];		return ({['1']=1, ['2']=2, ['2B']=3, ['3']=4, ['4']=nil, ['5']=5})[part]
			-- return ({1, 2, 3, 4, nil, 5})[tonumber(part)];
	end		end

Line 188:		Line 196:
	ietf_err = (0 ~= ietf_err) and error_msg ('ietf', args[1], hide, nocat) or ''; -- when tags are stripped create an error message; empty string for concatenation else		ietf_err = (0 ~= ietf_err) and error_msg ('ietf', args[1], hide, nocat) or ''; -- when tags are stripped create an error message; empty string for concatenation else

	if (1 == part and 2 ~= #code) or (1 < part and 3 ~= #code) then -- 639-1 codes are 2 characters only; all others 3 characters		if ('1' == part and 2 ~= #code) or ('1' ~= part and 3 ~= #code) then -- 639-1 codes are 2 characters only; all others 3 characters
	return error_msg ('not_code', {code, '-' .. part}, hide, nocat);		return error_msg ('not_code', {code, '-' .. part}, hide, nocat);
	end		end
Line 239:		Line 247:
	end		end

	return error_msg ('not_found', {args[1], '1, -2, -3, -5'}, hide, nocat); -- here when code (args[1]) is not found in the data tables		return error_msg ('not_found', {args[1], '1, -2, -2B, -3, -5'}, hide, nocat); -- here when code (args[1]) is not found in the data tables
	end		end

Line 295:		Line 303:
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = iso_639_code_to_name_common (args, parts[2][1], parts[2][2]); -- suppress second return value		local retval = iso_639_code_to_name_common (args, parts[2][1], parts[2][2]); -- suppress second return value
			return retval;
			end


			--[[--------------------------< I S O _ 6 3 9 _ C O D E _ 2 B _ T O _ N A M E >--------------------------------

			template entry point; returns first language name that matches ISO 639-2 code from template frame or an error message

			]]

			local function iso_639_code_2B_to_name (frame)
			local args = getArgs (frame);
			local retval = iso_639_code_to_name_common (args, parts[3][1], parts[3][2]); -- suppress second return value
	return retval;		return retval;
	end		end
Line 307:		Line 328:
	local function iso_639_code_3_to_name (frame)		local function iso_639_code_3_to_name (frame)
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = iso_639_code_to_name_common (args, parts[3][1], parts[3][2]); -- suppress second return value		local retval = iso_639_code_to_name_common (args, parts[4][1], parts[4][2]); -- suppress second return value
	return retval;		return retval;
	end		end
Line 320:		Line 341:
	local function iso_639_code_5_to_name (frame)		local function iso_639_code_5_to_name (frame)
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = iso_639_code_to_name_common (args, parts[4][1], parts[4][2]); -- index [4] -> part 5 because there is no part 4; suppress second return value		local retval = iso_639_code_to_name_common (args, parts[5][1], parts[5][2]); -- index [4] -> part 5 because there is no part 4; suppress second return value
	return retval;		return retval;
	end		end
Line 344:		Line 365:
	end		end

	code = name_data[name] and name_data[name][part_idx] ~~or ''~~; -- see if the name exists in the part table		code = name_data[name] and name_data[name][part_idx]; -- see if the name exists in the part table
	return '' ~= code and code ~~or nil~~;		return '' ~= code and code;
	end		end

Line 380:		Line 401:
	local part = args[2];		local part = args[2];

	local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code'); -- ISO 639 language names to code table		local name_data = mw.loadData ('Module:Language/data/ISO 639 name to code/sandbox'); -- ISO 639 language names to code table
			--error (mw.dumpObject (name_data['afro-asiatic languages']))

	local code;		local code;

Line 387:		Line 408:
	code = name_in_part_search (lc_name, part, part_idx, name_data); -- search the specified override table + part table		code = name_in_part_search (lc_name, part, part_idx, name_data); -- search the specified override table + part table
	else		else
	for part_idx, part_tag in ipairs ({'1', '2', '3', '5'}) do -- no part provided, spin through all parts override first and get the first available code		for part_idx, part_tag in ipairs ({'1', '2', '2B', '3', '5'}) do -- no part provided, spin through all parts override first and get the first available code
	code = name_in_part_search (lc_name, part_tag, part_idx, name_data);		code = name_in_part_search (lc_name, part_tag, part_idx, name_data);
	if code then -- nil when specified <part> does not have code for specified language <name>		if code then -- nil when specified <part> does not have code for specified language <name>
Line 398:		Line 419:
	return code, true;		return code, true;
	end		end
	return error_msg ('not_found', {name, part or '1, -2, -3, -5'}, hide, nocat), false;		return error_msg ('not_found', {name, part or '1, -2, -2B, -3, -5'}, hide, nocat), false;
	end		end

Line 499:		Line 520:
	iso_639_code_1_to_name = iso_639_code_1_to_name,		iso_639_code_1_to_name = iso_639_code_1_to_name,
	iso_639_code_2_to_name = iso_639_code_2_to_name,		iso_639_code_2_to_name = iso_639_code_2_to_name,
			iso_639_code_2B_to_name = iso_639_code_2B_to_name,
	iso_639_code_3_to_name = iso_639_code_3_to_name,		iso_639_code_3_to_name = iso_639_code_3_to_name,
	iso_639_code_5_to_name = iso_639_code_5_to_name,		iso_639_code_5_to_name = iso_639_code_5_to_name,

Trappist the monk: sync from sandbox;

2020-08-29T21:15:35Z

sync from sandbox;

← Previous revision		Revision as of 21:15, 29 August 2020
Line 436:		Line 436:
	local args = getArgs(frame);		local args = getArgs(frame);
	local _, result = _iso_639_name_to_code (args); -- suppress code return used by iso_639_name_to_code()		local _, result = _iso_639_name_to_code (args); -- suppress code return used by iso_639_name_to_code()
	return result;		return result and true or nil;
	end		end