Module:Lang

--[=[ This is an experiment to see what is required to consolodate all of the myriad templates and their subtemplates into a single module with a data table

has parameters: text - required or defaults to 'yes' literal translation

has parameters: iso language code - required language name in English - superfluous? text - required or literal translation or set to 'no' disables '{{{2}} language' wikilinks passed through to passed through to

has parameters: iso language code - required text - required if set to any value, set rtl="rtl" attribute and inserts &lrm; after the tag if set to any value, disables categorization

How it works now: 1. receives text as  to which it adds italic markup, sets |links to  or  or yes, sets |lit to, and calls. ignored for this example 2. renders Spanish ( not set) or Spanish ( set) and calls 3. wraps the text in the text and adds categorization ]=]

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

local getArgs = require ('Module:Arguments').getArgs; local lang_name_table = require ('Module:Language/name/data');

local namespace = mw.title.getCurrentTitle.namespace;							-- used for categorization

--[[--< I S _ S E T >--

Returns true if argument is set; false otherwise. Argument is 'set' when it exists (not nil) or when it is not an empty string. This function is global because it is called from both this module and from Date validation

]]

local function is_set( var ) return not (var == nil or var == ''); end

--[=[-< M A K E _ W I K I L I N K >

Makes a wikilink; when both link and display text is provided, returns a wikilink in the form L|D; if only link is provided, returns a wikilink in the form L; if neither are provided or link is omitted, returns an empty string.

]=]

local function make_wikilink (link, display) if is_set (link) then if is_set (display) then return table.concat ({, display, }); else return table.concat ({, link, }); end else return ''; end end

--[[--< M A K E _ T E X T _ S P A N >--

]]

local function make_text_span (code, text, rtl, italic, size) local span = {};

table.insert (span, '');													-- close the opening span tag if 'yes' == italic then table.insert (span, table.concat ({"", text, ""}));					-- text with italic markup else table.insert (span, text);												-- DEFAULT: text is not italicized end table.insert (span, ' ');												-- close the span if is_set (rtl) then table.insert (span, '&lrm;');											-- make sure the browser knows that we're at the end of the rtl end return table.concat (span);													-- put it all together and done end

--[[--< M A K E _ C A T E G O R Y >

]]

local function make_category (code, language_name, nocat) local cat = {}; --	if (0 ~= namespace) or nocat then											-- only categorize in article space --		return '';																-- return empty string for concatenation --	end table.insert (cat, '[[Category:Articles containing ');	if ('en' == code) or ('eng' == code) then		table.insert (cat, 'explicitly cited English');	elseif 'art' == code then		table.insert (cat, 'constructed')	else		table.insert (cat, language_name);	end	table.insert (cat, '-language text]]');

return table.concat (cat); end

--[[--< M A K E _ T R A N S L I T >

return translit ... else return empty string

]]

local function make_translit (code, language_name, translit, std, script) local title; local tout = {}; local title_table = mw.loadData ('Module:Lang/data') table.insert (tout, "<span title=\"");	if not is_set (std) and not is_set (script) then		table.insert (tout, language_name);		table.insert (tout, ' transliteration');	elseif is_set (std) and is_set (script) then		if title_table.std.script then			table.insert (tout, title_table.std.script);		else			return ;		end	elseif is_set (std) then		if title_table.std.code then			table.insert (tout, title_table.std.code);		else			table.insert (tout, title_table.std['default']);		end	else																		-- here if script set but std not set		if title_table['NO_STD'].script then			table.insert (tout, title_table['NO_STD'].script);		elseif title_table['NO_STD'].code then			table.insert (tout, title_table['NO_STD'].code);		else			table.insert (tout, language_name);			table.insert (tout, ' transliteration');		end	end

table.insert (tout, '" class="Unicode" style="white-space:normal; text-decoration:none">');	table.insert (tout, translit);	table.insert (tout, " ''");	return table.concat (tout); end

--[=[-< L A N G >--

]=]

function p.lang (frame) local args = getArgs(frame); local out = {}; local language_name; if lang_name_table.lang[args.code] then language_name = lang_name_table.lang[args.code][1];						-- table entries sometimes have multiple names, always take the first one end if not is_set (language_name) then table.insert (out, ' error: unknown language code: '); table.insert (out, args.code); table.insert (out, ' '); if 0 ~= namespace then														-- only categorize in article space table.insert (out, '[[Category:Articles containing unknown language template codes|');			table.insert (out, args.code);			table.insert (out, ']]'); end return table.concat (out);												-- emit an error message and category end table.insert (out, make_text_span (args.code, args.text, args.rtl, nil, args.size));		-- italics set to nil here because not supporte by 	table.insert (out, make_category (args.code, language_name, args.nocat)); return table.concat (out);													-- put it all together and done end

--[=[-< L A N G _ X X >


 * code = the BCP47 language code
 * text = the displayed text in language specified by code
 * link = boolean true (default) links language specified by code to associated language article
 * rtl = boolean true identifies the language specified by code as a right-to-left language
 * nocat = boolean true inhibits normal categorization; error categories are not affected
 * italic = boolean true (default) renders displayed text in italic font
 * lit = text that is a literal translation of text

for those templates that support transliteration:
 * translit = text that is a transliteration of text
 * std = the standard that applies to the transliteration
 * script = ISO 15924 script name; falls back to code

]=]

function p.lang_xx (frame) local args = getArgs(frame); if not is_set (args.italic) then args.italic = 'yes';													-- DEFAULT for templates is to italicize end args.size = nil;															-- size not supported in 	local out = {}; local language_name; if lang_name_table.lang[args.code] then language_name = lang_name_table.lang[args.code][1];						-- table entries sometimes have multiple names, always take the first one end local script = args.script or language_name;									-- for translit prefer script of language local translit; if not is_set (language_name) then table.insert (out, ' error: unknown language code: '); table.insert (out, args.code); table.insert (out, ' '); if 0 ~= namespace then														-- only categorize in article space table.insert (out, '[[Category:Articles containing unknown language template codes|');			table.insert (out, args.code);			table.insert (out, ']]'); end return table.concat (out);												-- emit an error message and category end if 'no' == args.link then table.insert (out, language_name);										-- language name without wikilink else table.insert (out, make_wikilink (language_name .. ' language', language_name));	-- language name with wikilink end table.insert (out, ': ');													-- separator

table.insert (out, make_text_span (args.code, args.text, args.rtl, args.italic, args.size)) if is_set (args.translit) then												-- transliteration (not supported in ); not supported in all table.insert (out, ', '); if mw.title.makeTitle (0, 'Romanization of ' .. language_name) then table.insert (out, make_wikilink ('Romanization of ' .. script or language_name, 'translit.')); else table.insert (out, 'translit. '); end table.insert (out, ' '); translit = make_translit (args.code, language_name, args.translit, args.std, args.script) if is_set (translit) then table.insert (out, translit); else table.insert (out, ' error: invalid translit std or script'); end end if is_set (args.lit) then													-- translation (not supported in ) table.insert (out, ', '); table.insert (out, make_wikilink ('Literal translation', 'lit.')); table.insert (out, " '"); table.insert (out, args.lit); table.insert (out, "'"); end table.insert (out, make_category (args.code, language_name, args.nocat)); return table.concat (out);													-- put it all together and done end

return p;