Module:ISO 639 name/sandbox - Revision history

Gonnym: sync with live

2024-12-09T20:15:12Z

sync with live

Trappist the monk: /* top */clean up

2024-07-11T15:18:57Z

top: clean up

← Previous revision		Revision as of 15:18, 11 July 2024
Line 2:		Line 2:

	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:ISO 639 name/ISO 639 override');
	local override_data = mw.loadData ('Module:~~Language/data~~/ISO 639 override/sandbox');		local override_data = mw.loadData ('Module:ISO 639 name/ISO 639 override/sandbox');
	local deprecated_data = mw.loadData ('Module:~~Language/data~~/ISO 639 deprecated');		local deprecated_data = mw.loadData ('Module:ISO 639 name/ISO 639 deprecated');
	local parts = {		local parts = {
	{'Module:~~Language/data~~/ISO 639-1', '1'},		{'Module:ISO 639 name/ISO 639-1', '1'},
	{'Module:~~Language/data~~/ISO 639-2', '2'},		{'Module:ISO 639 name/ISO 639-2', '2'},
	{'Module:~~Language/data~~/ISO 639-2B', '2B'},		{'Module:ISO 639 name/ISO 639-2B', '2B'},
	{'Module:~~Language/data~~/ISO 639-3', '3'},		{'Module:ISO 639 name/ISO 639-3', '3'},
	{'Module:~~Language/data~~/ISO 639-5', '5'},		{'Module:ISO 639 name/ISO 639-5', '5'},
	}		}

Line 402:		Line 402:
	end		end

	-- 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:ISO 639 name/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 name_data = mw.loadData ('Module:ISO 639 name/ISO 639 name to code/sandbox'); -- ISO 639 language names to code table

	local code;		local code;

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

2022-10-21T09:56:28Z

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 getArgs = require ('Module:Arguments').getArgs;		local getArgs = require ('Module:Arguments').getArgs;

Gonnym: removing error

2020-10-06T09:47:24Z

removing error

← Previous revision		Revision as of 09:47, 6 October 2020
Line 362:		Line 362:

	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)
	error (mw.dumpObject (name_data))
	return name_data[name] and (		return name_data[name] and (
	name_data[name][part_idx+5] or -- see if the name exists in the part's override table		name_data[name][part_idx+5] or -- see if the name exists in the part's override table

Trappist the monk at 23:18, 5 October 2020

2020-10-05T23:18:01Z

← Previous revision		Revision as of 23:18, 5 October 2020
Line 195:		Line 195:

	if not args[1] then -- if code not provided in the template call		if not args[1] then -- if code not provided in the template call
	return error_msg ('required', '-' .. part, hide, nocat); -- abandon		return error_msg ('required', '-' .. part, hide, nocat); -- abandon
	end		end

Line 267:		Line 267:

	local function name_from_code (frame)		local function name_from_code (frame)
	local ret_val = _name_from_code (frame); -- ignore second return value		local ret_val = _name_from_code (frame); -- ignore second return value
	return ret_val; -- return language name and / or error message		return ret_val; -- return language name and / or error message
	end		end
Line 284:		Line 284:
	local function is_code (frame)		local function is_code (frame)
	local _, exists;		local _, exists;
	_, exists = _name_from_code (frame); -- ignore name/error message return; <exists> is true when name found for code; nil else		_, exists = _name_from_code (frame); -- ignore name/error message return; <exists> is true when name found for code; nil else
	return exists;		return exists;
	end		end
Line 297:		Line 297:
	local function name_from_code_1 (frame)		local function name_from_code_1 (frame)
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = name_from_code_common (args, parts[1][1], parts[1][2]); -- suppress second return value		local retval = name_from_code_common (args, parts[1][1], parts[1][2]); -- suppress second return value
	return retval;		return retval;
	end		end
Line 310:		Line 310:
	local function name_from_code_2 (frame)		local function name_from_code_2 (frame)
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = name_from_code_common (args, parts[2][1], parts[2][2]); -- suppress second return value		local retval = name_from_code_common (args, parts[2][1], parts[2][2]); -- suppress second return value
	return retval;		return retval;
	end		end
Line 323:		Line 323:
	local function name_from_code_2B (frame)		local function name_from_code_2B (frame)
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = name_from_code_common (args, parts[3][1], parts[3][2]); -- suppress second return value		local retval = name_from_code_common (args, parts[3][1], parts[3][2]); -- suppress second return value
	return retval;		return retval;
	end		end
Line 336:		Line 336:
	local function name_from_code_3 (frame)		local function name_from_code_3 (frame)
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = name_from_code_common (args, parts[4][1], parts[4][2]); -- suppress second return value		local retval = name_from_code_common (args, parts[4][1], parts[4][2]); -- suppress second return value
	return retval;		return retval;
	end		end
Line 349:		Line 349:
	local function name_from_code_5 (frame)		local function name_from_code_5 (frame)
	local args = getArgs (frame);		local args = getArgs (frame);
	local retval = name_from_code_common (args, parts[5][1], parts[5][2]); -- index [4] -> part 5 because there is no part 4; suppress second return value		local retval = name_from_code_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 440:		Line 440:
	local function code_from_name (frame)		local function code_from_name (frame)
	local args = getArgs(frame);		local args = getArgs(frame);
	local result, _ = _code_from_name (args); -- suppress true/false return used by is_name()		local result, _ = _code_from_name (args); -- suppress true/false return used by is_name()
	return result;		return result;
	end		end
Line 459:		Line 459:
	local function is_name (frame)		local function is_name (frame)
	local args = getArgs(frame);		local args = getArgs(frame);
	local _, result = _code_from_name (args); -- suppress code return used by code_from_name()		local _, result = _code_from_name (args); -- suppress code return used by code_from_name()
	return result and true or nil;		return result and true or nil;
	end		end
Line 495:		Line 495:
	end		end

	result, found = name_from_code_common (args, parts[part_idx][1], parts[part_idx][2]); -- attempt to find a code match		result, found = name_from_code_common (args, parts[part_idx][1], parts[part_idx][2]); -- attempt to find a code match
	if found then		if found then
	return result; -- found the code so return the language name		return result; -- found the code so return the language name
	end		end

	result = _code_from_name (args); -- might be a language name; return code if it is; error message or empty string else		result = _code_from_name (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		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
	result, found = name_from_code_common (args, part[1], part[2]); -- attempt to find a code match		result, found = name_from_code_common (args, part[1], part[2]); -- attempt to find a code match
	if found then		if found then
	return result; -- found the code so return the language name		return result; -- found the code so return the language name
Line 512:		Line 512:
	end		end

	result = _code_from_name (args); -- might be a language name; return code if it is; error message or empty string else		result = _code_from_name (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		return result; -- this way to suppress second return
	end		end

Trappist the monk at 22:42, 5 October 2020

2020-10-05T22:42:29Z

Show changes

Gonnym: test if args.part or args[2] can work

2020-10-05T18:52:22Z

test if args.part or args[2] can work

← Previous revision		Revision as of 18:52, 5 October 2020
Line 394:		Line 394:

	local part_idx;		local part_idx;
	local part = args[2];		local part = args.part or args[2];
	if part then		if part then
	part_idx = get_part_index (part);		part_idx = get_part_index (part);

Trappist the monk at 17:21, 5 October 2020

2020-10-05T17:21:38Z

← Previous revision		Revision as of 17:21, 5 October 2020
Line 390:		Line 390:

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

	local part_idx;		local part_idx;

Trappist the monk at 13:23, 5 October 2020

2020-10-05T13:23:49Z

← Previous revision		Revision as of 13:23, 5 October 2020
Line 2:		Line 2:

	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 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 401:		Line 401:
	end		end

	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 name_data = mw.loadData ('Module:Language/data/ISO 639 name to code/sandbox'); -- ISO 639 language names to code table

	local code;		local code;

Trappist the monk at 11:25, 5 October 2020

2020-10-05T11:25:21Z

← Previous revision		Revision as of 11:25, 5 October 2020
Line 107:		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