Module:Sandbox/Certes

Module documentation[create] [purge]

You might want to create a documentation page for this Scribunto module.
Editors can experiment in this module's sandbox (create | mirror) and testcases (create) pages.
Add categories to the /doc subpage. Subpages of this module.

local function name_from_code (frame)
	local subtags = {};															-- IETF subtags script, region, variant, and private
	local raw_code = frame.args[1];												-- save a copy of the input IETF subtag
	local link = 'yes' == frame.args['link'];									-- save a copy of the link-enable positional parameter (value can be anything)
	local code;																	-- the language code
	local msg;																	-- gets an error message if IETF language tag is malformed or invalid
	local language_list = {''};
	local language_name;
	
	code, subtags.script, subtags.region, subtags.variant, subtags.private, msg = get_ietf_parts (raw_code);
	if msg then
		local template = (frame.args['template'] and table.concat ({'{{', frame.args['template'], '}}: '})) or '';	-- make template name (if provided by the template)
		return table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: ', template, msg, '</span>'});
	end

	if lang_data.override[raw_code:lower()] then								-- look for whole IETF tag in override table (force lower case)
		language_list = lang_data.override[raw_code:lower()];
	elseif lang_data.override[code] then										-- not there so try basic language code in override table
		language_list = lang_data.override[code];
	elseif not is_set (subtags.variant) then									
		if lang_name_table.lang[code] then
			language_list = lang_name_table.lang[code];
		end
	else																		-- TODO: is this the right thing to do: take language display name from variants table?
		if lang_name_table.variant[subtags.variant] then						-- TODO: there is some discussion at Template talk:Lang about having a label parameter for use when variant name is not desired among other things
			language_list = lang_name_table.variant[subtags.variant]['descriptions'];	-- table entries sometimes have multiple names, always take the first one
		end
	end

	language_name = language_list[1];											-- table entries sometimes have multiple names, always take the first one
	language_name = language_name:gsub ('%s+%b()', '');							-- remove IANA parenthetical disambiguators or qualifiers from names that have them

	if link then																-- when |link=yes, wikilink the language name
		if language_list["link"] then
			return make_wikilink (language_list["link"], language_name);		-- explicit wikilink given with link= syntax
		elseif language_name:find ('languages') then
			return make_wikilink (language_name);								-- collective language name uses simple wikilink
		else
			return make_wikilink (language_name .. ' language', language_name);	-- language name with wikilink
		end
	end

	return language_name;

end