require ('Module:No globals');
local is_latn = require ("Module:Unicode data").is_Latin;
--[[--------------------------< I S _ C J K >------------------------------------------------------------------
return true if code is one of the listed Chinese, Japanese, Korean ISO 639 codes, false else.
]]
local function is_cjk_code (code)
local cjk =
{
['zh'] = true, ['cdo'] = true, ['cjy'] = true, ['cmn'] = true, -- Chinese language codes
['cpi'] = true, ['cpx'] = true, ['czh'] = true, ['czo'] = true,
['gan'] = true, ['hak'] = true, ['hsn'] = true, ['ltc'] = true,
['lzh'] = true, ['mnp'] = true, ['nan'] = true, ['och'] = true,
['wuu'] = true, ['yue'] = true, ['zhx'] = true,
['ja'] = true, ['jpx'] = true, ['ojp'] = true, -- Japanese language codes
['ko'] = true, ['okm'] = true, ['oko'] = true, -- Korean language codes
}
return cjk[code] or false;
end
--[[--------------------------< S E T _ I T A L I C S >--------------------------------------------------------
Created for use with Template:Infobox book and Template:Infobox document and perhaps others to replace hard-coded
italic markup in the call to {{lang}}. This module attempts to make sure that {{lang}} correctly applies italic
markup according to MOS:FOREIGNITALIC.
]]
local function set_italics (frame)
local code = frame.args[1] or frame.args['code'] or ''; -- empty string causes 'yes' return; {{lang}} will handle the missing code error
local text = frame.args[2] or frame.args['text'] or ''; -- empty string causes 'yes' return; {{lang}} will handle the missing text error
if is_cjk_code (code) and not is_latn (text) then -- is_latn() is in Module:Lang
return 'no'; -- only case for 'no'
end
return 'yes'; -- everything else is yes
end
--[[--------------------------< I N _ L A N G >----------------------------------------------------------------
written to support multiple language codes in {{link language}}
Module entry point from an {{#invoke:lang/utilities/sanbox|in_lang|<code>|<code2>|<code3>|link=yes|template=Link language}}
]]
local function in_lang (frame)
local getArgs = require ('Module:Arguments').getArgs;
local args = getArgs(frame);
local list = {};
local cats = {};
if not args[1] then
local template = (args['template'] and table.concat ({'{{', 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, 'missing language tag</span>'});
end
local name_from_code = require ('Module:Lang/sandbox')._name_from_code
local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization
local this_wiki_lang = mw.getCurrentFrame():preprocess('{{int:lang}}');
if '⧼lang⧽' == this_wiki_lang then
this_wiki_lang = mw.language.getContentLanguage().code; -- not at a MediaWiki site that supports interface language; get this wiki's language code
end
for i, lang in ipairs (args) do
local t = {args[i], ['link'] = args['link'], ['template'] = args['template']};
lang = name_from_code (t)
table.insert (list, lang)
if lang:find ('error') or (this_wiki_lang == args[i]) or (0 ~= namespace) then -- for these, no categorization
else
if lang:match ('%[%[.-|.-%]%]') then
lang = lang:match ('%[%[.-|(.-)%]%]');
elseif lang:match ('%[%[.-%]%]') then
lang = lang:match ('%[%[(.-)%]%]');
end
table.insert (cats, '[[Category:Articles with ' .. lang .. '-language external links]]')
end
end
local count = #list;
local ret_string;
if 2 >= count then
ret_string = table.concat (list, ' and '); -- insert '<space>and<space>' between two language names
elseif 2 < count then
ret_string = table.concat (list, ', '); -- concatenate with '<comma><space>' separators
ret_string = ret_string:gsub (', ([^,]+)$', ', and ' .. '%1'); -- replace last '<comma><space>' separator with '<comma><space>and<space>' separator
end
return ret_string .. table.concat (cats);
end
--[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------
]]
return {
in_lang = in_lang,
set_italics = set_italics,
}
