require('strict');
--link=yes - creates wikilinked language names|template= - customizes error messages created by Module:lang|list-cats=yes - documentation tool returns language-category names of cats populated by this template(in
local function _in_lang (args) local synonym_table = mw.loadData ('Module:Lang/ISO 639 synonyms'); -- ISO 639-2/639-2T code translation to 639-1 code local list_cats = 'yes'
local module = 'Module:Lang' .. (mw.getCurrentFrame:getTitle:match ('/sandbox') or ); -- if this module is the sandbox,
local name_from_tag = require (module)._name_from_tag; -- use Module:Lang/sandbox; Module:Lang else
local namespace = mw.title.getCurrentTitle.namespace; -- used for categorization local this_wiki_lang = mw.language.getContentLanguage.code; -- get this wiki's language code
for i, lang in ipairs (args) do local code = args[i]:lower; local t = ; -- build an 'args' table lang = name_from_tag (t) -- get the language name table.insert (list, lang) -- add this language or error message to the list
if 'ca-valencia' ~= code then -- except for valencian code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant tags so that they aren't used to make category names end if synonym_table[code] then -- if 639-2/639-2T code has a 639-1 synonym if (0
if (0
if lang:find ('languages') then -- add appropriate language-name category table.insert (cats, table.concat); else table.insert (cats, table.concat); end end end end if list_cats then local cats = table.concat (cats, ', '):gsub ('[%[%]]', ); -- make a string of categories and then strip wikilink markup return cats end
local result = ; -- opening span and (table.insert (result, 'yes'
table.insert (result, ')'); -- add closing) and closing span table.insert (result, table.concat (maint_msgs) or ); -- add maint messages, if any table.insert (result, table.concat (cats)); -- add categories return table.concat (result); -- make a big string and doneend
--in_lang||<code2>|<code3>|<code...>|link=yes|template=in lang|list-cats=yes}}
local function in_lang (frame) local args = require ('Module:Arguments').getArgs (frame); return _in_lang (args); end
--native_name_lang= parameter.
if is a valid ietf language tag, returns that tag;if is a properly spelled (case agnostic) language name, returns the ietf language tag associated with that nameerror messages else
entry point from an
local function native_name_lang (frame) local lang_module = require ('Module:Lang/sandbox'); local getArgs = require ('Module:Arguments').getArgs; local args = getArgs(frame); if lang_module._is_ietf_tag (args[1]) then return args[1]; -- if a tag, return the tag else return lang_module._tag_from_name (args); -- not a tag, attempt to get a tag from the args[1] input value; return tag or error message endend
--cat_test}}
local function cat_test (frame) local lang_module = require ('Module:Lang'); local args = require ('Module:Arguments').getArgs (frame); local err = false; -- boolean set true when an error is detected; one error message only local cat_page_title = mw.title.getCurrentTitle.text; -- get the category title local lang_name; local index; -- positional parameter index local lc_lang_name, lc_lang_name_col; -- individual and collective cat names are different local lc_title; for i, v in ipairs (args) do -- pairs because ipairs stops at nil value (empty positional parameter) if 'number'
if not mw.ustring.find (lc_title, lc_lang_name, 1, true) and -- if lang name not found in cat title not mw.ustring.find (lc_title, lc_lang_name_col, 1, true) then err = true; -- set a flag index = i; -- remember which positional param failed the test break; -- abandon the search on first error end end end -- create error message and done return err and table.concat or nil;end
----------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------
return