require ('Module:No globals');
--[[--------------------------< 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
local is_latn = require ("Module:Unicode data").is_Latin;
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 >----------------------------------------------------------------
implements {{in lang}}
Module entry point from an {{#invoke:lang/utilities/sanbox|in_lang|<code>|<code2>|<code3>|<code...>|link=yes|template=Link language}}
<span class="languageicon">(in <language>)</span>
]]
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 module = 'Module:Lang' .. (frame: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 t = {args[i], ['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 lang:find ('error') or (this_wiki_lang == args[i]) or (0 ~= namespace) then -- for these, no categorization
else
if lang:match ('%[%[.-|.-%]%]') then -- wikilinked individual language
lang = lang:match ('%[%[.-|(.-)%]%]');
elseif lang:match ('%[%[.-%]%]') then -- wikilinked collective languages
lang = lang:match ('%[%[(.-)%]%]');
end -- neither of these then plain text language
if lang:find ('languages') then
table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-collective sources (', args[i], ')]]'}));
else
table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-language sources (', args[i], ')]]'}));
end
end
end
local result = {'<span class="languageicon">('}; -- opening span and (
table.insert (result, 'yes' == args['cap'] and 'In ' or 'in '); -- add capitalized or uncapitalized 'in'
table.insert (result, mw.text.listToText (list, ', ', (2 < #list) and ', and ' or ' and ' )); -- and concatenated the language list
table.insert (result, ')</span>'); -- add closing ) and closing span
table.insert (result, table.concat (cats)); -- add categories
return table.concat (result); -- make a big string and done
end
--[[--------------------------< N A T I V E _ N A M E _ L A N G >----------------------------------------------
implements combined is_ietf_tag() and tag_from_name() in Module:Lang for various infoboxen that support a
|native_name_lang= parameter.
if {{{1}}} is a valid ietf language tag, returns that tag;
if {{{1}}} is a properly spelled (case agnostic) language name, returns the ietf language tag associated with that name
error messages else
entry point from an {{#invoke:Lang|native_name_lang|<language name or tag>|template=<template name>}}
]]
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
end
end
--[=[-------------------------< N I H O N G O >----------------------------------------------------------------
An experiment to see how to implement {{nihongo}} using Module:Lang for language and transliteration markup
{{Nihongo|<English>|<kanji/kana>|<rōmaji>|<extra>|<extra2>|lead=yes}}
<English>, <kanji/kana>, and <rōmaji> are positional parameters
<English>: rendered as presented; purports to be English translation of <kanji/kana>
<kanji/kana>: Japanese language text using Japanese script; TODO: require?
<rōmaji>: Hepburn romanization (transliteration); TODO: in Module:Lang/data change tooltip text to 'Hepburn romanization'?
<extra> and <extra2> are positional or named: |extra= and |extra2=; mixing can be problematic
<extra> is rendered as presented preceeded with <comma><space>
<extra2> is rendered as presented preceeded with <space>
|lead=: takes one value 'yes'; renders language name same as {{lang-ja}} but also adds [[Hepburn romanization|Hepburn]]:<space> ahead of the romanization; TODO: in Module:Lang, turnoff tooltip for transl when |lead=yes
]=]
local function nihongo (frame)
local lang_module = require ('Module:Lang/sandbox');
local args = require ('Module:Arguments').getArgs (frame);
local output = {};
local english = args[1]; -- meaningful names
local japanese = args[2];
local romaji = args[3];
local extra = args[4] or args.extra;
local extra2 = args[5] or args.extra2;
local lead = 'yes' == args.lead; -- make boolean
if english then
table.insert (output, english); -- add <English> as is
if japanese or romaji or extra then
table.insert (output, ' ('); -- open paren to wrap ja script, transl, and extra
if japanese then
table.insert (output, lead and lang_module._lang_xx_inherit ({['code']='ja', japanese}) or lang_module._lang ({'ja', japanese})); -- add ja script with/without language prefix
end
if romaji then
table.insert (output, japanese and ' ' or ''); -- add a space char if necessary
table.insert (output, lead and '[[Hepburn romanization|Hepburn]]: ' or ''); -- when |lead= is set add romanization wikilink
table.insert (output, lang_module._transl ({'ja', 'hepburn', romaji})); -- add romanization
end
if extra then
table.insert (output, (japanese or romaji) and ', ' or ''); -- add <comma><space> if necessary
table.insert (output, extra); -- add extra text
end
table.insert (output, ')'); -- close paren
end
else -- here when <English> is empty
table.insert (output, romaji and lang_module._transl ({'ja', 'hepburn', romaji}) or ''); -- add romanization
if japanese or extra then
table.insert (output, romaji and ' (' or '('); -- open paren to wrap ja script, and extra
if japanese then
table.insert (output, lead and lang_module._lang_xx_inherit ({['code']='ja', japanese}) or lang_module._lang ({'ja', japanese})); -- add ja script with/without language prefix
end
if extra then
table.insert (output, japanese and ', ' or ''); -- add <comma><space>
table.insert (output, extra); -- add extra text
end
table.insert (output, ')'); -- close paren
end
end
if extra2 then -- always tacked on at the end
table.insert (output, ' '); -- add a space
table.insert (output, extra2); -- add extra2 as is
end
return table.concat (output); -- make and a return a big string
end
--[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------
]]
return {
in_lang = in_lang,
native_name_lang = native_name_lang,
nihongo = nihongo,
set_italics = set_italics,
}
