Mô đun:In lang

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 yesno = require('Module:Yesno')
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' == args['list-cats']; -- make a boolean
local list = {};
local cats = {};
local maint_msgs = {};

if not args[1] then
local template = (args['template'] and table.concat ({': '})) or ; -- make template name (if provided by the template)
return table.concat ({'error: ', template, 'missing language tag'});
end

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
local override_t = mw.loadData ('Module:Lang/data').override; -- this table holds IETF tag/name definitions known to Module:Lang

for i, lang in ipairs (args) do
local code = args[i]:lower();
local t = {code, ['link'] = args['link'], ['template'] = args['template']}; -- 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 code:find ('%-') and not override_t[code] then -- except for the IETF tags listed in
code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant subtags 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 == namespace) and not list_cats then -- when listing cats don't include this cat; TODO: right choice?
table.insert (cats, table.concat ({}));
end
table.insert (maint_msgs, ' ')
table.insert (maint_msgs, table.concat ({'code: ', code, ' promoted to code: ', synonym_table[code]}));
table.insert (maint_msgs, ';');
code = synonym_table[code]; -- use the synonym
end

if (0 == namespace) or list_cats then -- when in article space
if lang:find ('[Ll]ỗi') then -- add error category (message provided by Module:Lang)
if not list_cats then -- don't include this cat when listing cats; TODO: right choice?
table.insert (cats, );
end
elseif this_wiki_lang ~= code:match ('^%a%a%a?') then -- categorize article only when code is not this wiki's language code or variants thereof
if lang:match ('%[%[.-|.-%]%]') then -- wikilinked individual language name
lang = lang:match ('%[%[.-|(.-)%]%]');
elseif lang:match ('%[%[.-%]%]') then -- wikilinked collective languages name
lang = lang:match ('%[%[(.-)%]%]');
end -- neither of these then plain-text language name

if lang:find ('ngữ') 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 capBoolean = yesno(args['cap']) or yesno(args['caps'])
local result = {'('}; -- opening span and (
table.insert (result, capBoolean and 'Bằng ' or 'bằng '); -- add capitalized or uncapitalized 'bằng'
table.insert (result, mw.text.listToText (list, ', ', (2 '); -- 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 done
end

--------------------------------------------------------------------------------------------

implements

Module entry point from an

local function in_lang (frame)
local args = require ('Module:Arguments').getArgs (frame);
return _in_lang (args);
end

----------------------------------------------------------------------

return {
in_lang = in_lang, -- module entry from

_in_lang = _in_lang, -- module entry from another module
}