Difference between revisions of "Module:Lang"
Jump to navigation
Jump to search
no edit summary
m (1 revision imported) |
en>Trappist the monk |
||
| Line 1: | Line 1: | ||
--[=[ | --[=[ | ||
Lua support for the {{lang}}, {{lang-xx}}, and {{ | Lua support for the {{lang}}, {{lang-xx}}, and {{transliteration}} templates and replacement of various supporting templates. | ||
]=] | ]=] | ||
require(' | require('strict'); | ||
local getArgs = require ('Module:Arguments').getArgs; | local getArgs = require ('Module:Arguments').getArgs; | ||
| Line 105: | Line 105: | ||
The return value nil causes the calling lang, lang_xx, or transl function to set args.italic according to the template's | The return value nil causes the calling lang, lang_xx, or transl function to set args.italic according to the template's | ||
defined default ('inherit' for {{lang}}, 'inherit' or 'italic' for {{lang-xx}} depending on | defined default ('inherit' for {{lang}}, 'inherit' or 'italic' for {{lang-xx}} depending on | ||
the individual template's requirements, 'italic' for {{ | the individual template's requirements, 'italic' for {{transliteration}}) or to the value appropriate to |script=, if set ({{lang}} | ||
and {{lang-xx}} only). | and {{lang-xx}} only). | ||
| Line 414: | Line 414: | ||
local category; | local category; | ||
if ' | if 'Transliteration' == template then | ||
category = ' | category = 'Transliteration'; | ||
else | else | ||
category = 'Lang and lang-xx' | category = 'Lang and lang-xx' | ||
| Line 632: | Line 632: | ||
return translit <i lang=xx-Latn>...</i> where xx is the language code; else return empty string | return translit <i lang=xx-Latn>...</i> where xx is the language code; else return empty string | ||
The value |script= is not used in {{ | The value |script= is not used in {{transliteration}} for this purpose; instead it uses |code. Because language scripts | ||
are listed in the {{ | are listed in the {{transliteration}} switches they are included in the data tables. The script parameter is introduced | ||
at {{Language with name and transliteration}}. If |script= is set, this function uses it in preference to code. | at {{Language with name and transliteration}}. If |script= is set, this function uses it in preference to code. | ||
| Line 643: | Line 643: | ||
transl() always provides language_name, translit, and one of code or tscript, never both; always provides style | transl() always provides language_name, translit, and one of code or tscript, never both; always provides style | ||
For {{ | For {{transliteration}}, style only applies when a language code is provided | ||
]] | ]] | ||
| Line 705: | Line 705: | ||
local close_tag; | local close_tag; | ||
if is_set (code) then -- when a language code is provided (always with {{lang-xx}} templates, not always with {{ | if is_set (code) then -- when a language code is provided (always with {{lang-xx}} templates, not always with {{transliteration}}) | ||
code = code:match ('^(%a%a%a?)'); -- strip all subtags leaving only the language subtag | |||
if not style then -- nil for the default italic style | if not style then -- nil for the default italic style | ||
table.insert (out_t, "<i lang=\""); -- so use <i> tag | table.insert (out_t, "<i lang=\""); -- so use <i> tag | ||
| Line 716: | Line 718: | ||
table.insert (out_t, "-Latn\">"); -- transliterations are always Latin script | table.insert (out_t, "-Latn\">"); -- transliterations are always Latin script | ||
else | else | ||
table.insert (out_t, "<span>"); -- when no language code: no lang= attribute, not italic ({{ | table.insert (out_t, "<span>"); -- when no language code: no lang= attribute, not italic ({{transliteration}} only) | ||
close_tag = '</span>'; | close_tag = '</span>'; | ||
end | end | ||
| Line 838: | Line 840: | ||
If text contains <poem>...</poem> stripmarker, return text unmodified and choose <div>..</div> tags because | If text contains <poem>...</poem> stripmarker, return text unmodified and choose <div>..</div> tags because | ||
the stripmarker is replaced with text wrapped in <div>..</div> tags. | the stripmarker is replaced with text wrapped in <div>..</div> tags. | ||
If the text contains any actual <div>...</div> tags, then it's again returned unmodified and <div>...</div> | |||
tags are used to wrap it, to prevent div/span inversion. | |||
]] | ]] | ||
| Line 846: | Line 851: | ||
if has_poem_tag (text) then -- contains poem stripmarker (we can't know the content of that) | if has_poem_tag (text) then -- contains poem stripmarker (we can't know the content of that) | ||
tag = 'div'; -- poem replacement is in div tags so lang must use div tags | tag = 'div'; -- poem replacement is in div tags so lang must use div tags | ||
elseif text:find ('<div') then -- reductive; if the text contains a div tag, we must use div tags | |||
tag = 'div'; | |||
elseif mw.text.trim (text):find ('\n\n+') then -- contains implied p tags | elseif mw.text.trim (text):find ('\n\n+') then -- contains implied p tags | ||
text = mw.text.trim (text); -- trim leading and trailing whitespace characters | text = mw.text.trim (text); -- trim leading and trailing whitespace characters | ||
| Line 935: | Line 942: | ||
local template = args.template or 'Lang'; | local template = args.template or 'Lang'; | ||
maint_cats = {}; -- initialize because when this module required into another module, these only declared once so only initialzed once | |||
maint_msgs = {}; | |||
validate_cat_args (args); -- determine if categorization should be suppressed | validate_cat_args (args); -- determine if categorization should be suppressed | ||
| Line 1,035: | Line 1,045: | ||
return _lang (args); | return _lang (args); | ||
end | |||
--[[--------------------------< T R A N S L A T I O N _ M A K E >---------------------------------------------- | |||
stand-alone function to create literal translation of main text | |||
Also used by {{lang-x2}} | |||
]] | |||
local function translation_make (args_t) | |||
local translation_t = {', '}; -- initialize output | |||
if 'none' ~= args_t.label then -- if we want a label | |||
table.insert (translation_t, '<small>'); -- open the <small> html tag | |||
if 'no' == args_t.link then | |||
table.insert (translation_t, '<abbr title="literal translation">lit.</abbr>'); -- unlinked form | |||
else | |||
table.insert (translation_t, make_wikilink ('Literal translation', 'lit.')); -- linked form | |||
end | |||
table.insert (translation_t, " </small>"); -- close the <small> html tag | |||
end | |||
table.insert (translation_t, table.concat ({''', args_t.translation, '''})); -- use html entities to avoid wiki markup confusion | |||
return table.concat (translation_t); -- make a big string and done | |||
end | end | ||
| Line 1,096: | Line 1,131: | ||
local template = args.template or 'Lang-xx'; | local template = args.template or 'Lang-xx'; | ||
maint_cats = {}; -- initialize because when this module required into another module, these only declared once so only initialzed once | |||
maint_msgs = {}; | |||
if args[1] and args.text then | if args[1] and args.text then | ||
return make_error_msg ('conflicting: {{{1}}} and |text=', args, template); | return make_error_msg ('conflicting: {{{1}}} and |text=', args, template); | ||
| Line 1,229: | Line 1,267: | ||
if is_set (args.translation) then -- translation (not supported in {{lang}}) | if is_set (args.translation) then -- translation (not supported in {{lang}}) | ||
table.insert (out, | table.insert (out, translation_make (args)); | ||
end | end | ||
| Line 1,501: | Line 1,529: | ||
local msg; -- for when called functions return an error message | local msg; -- for when called functions return an error message | ||
if is_set (args[3]) then -- [3] set when {{ | maint_cats = {}; -- initialize because when this module required into another module, these only declared once so only initialzed once | ||
maint_msgs = {}; | |||
if is_set (args[3]) then -- [3] set when {{transliteration|code|standard|text}} | |||
args.text = args[3]; -- get the transliterated text | args.text = args[3]; -- get the transliterated text | ||
args.translit_std = args[2] and args[2]:lower(); -- get the standard; lower case for table indexing | args.translit_std = args[2] and args[2]:lower(); -- get the standard; lower case for table indexing | ||
if not title_table[args.translit_std] then | if not title_table[args.translit_std] then | ||
return make_error_msg (table.concat ({'unrecognized transliteration standard: ', args.translit_std}), args, ' | return make_error_msg (table.concat ({'unrecognized transliteration standard: ', args.translit_std}), args, 'Transliteration'); | ||
end | end | ||
else | else | ||
if is_set (args[2]) then -- [2] set when {{ | if is_set (args[2]) then -- [2] set when {{transliteration|code|text}} | ||
args.text = args[2]; -- get the transliterated text | args.text = args[2]; -- get the transliterated text | ||
else | else | ||
if args[1] and args[1]:match ('^%a%a%a?%a?$') | if args[1] and (args[1]:match ('^%a%a%a?%a?$') or -- args[2] missing; is args[1] a language or script tag or is it the transliterated text? | ||
return make_error_msg ('no text', args, ' | args[1]:match ('^%a%a%a?%-x%-')) then -- or is args[1] a private-use tag | ||
return make_error_msg ('no text', args, 'Transliteration'); -- args[1] is a code so we're missing text | |||
else | else | ||
args.text = args[1]; -- args[1] is not a code so we're missing that; assign args.text for error message | args.text = args[1]; -- args[1] is not a code so we're missing that; assign args.text for error message | ||
return make_error_msg ('missing language / script code', args, ' | return make_error_msg ('missing language / script code', args, 'Transliteration'); | ||
end | end | ||
end | end | ||
| Line 1,522: | Line 1,554: | ||
if is_set (args[1]) then -- IANA language code used for html lang= attribute; or ISO 15924 script code | if is_set (args[1]) then -- IANA language code used for html lang= attribute; or ISO 15924 script code | ||
if args[1]:match ('^%a%a%a?%a?$') then | if args[1]:match ('^%a%a%a?%a?$') or args[1]:match ('^%a%a%a?%-x%-') then -- args[1] has correct form? | ||
args.code = args[1]:lower(); -- use the language/script code; only (2, 3, or 4 alpha characters); lower case because table indexes are lower case | args.code = args[1]:lower(); -- use the language/script code; only (2, 3, or 4 alpha characters) or private-use; lower case because table indexes are lower case | ||
else | else | ||
return make_error_msg (table.concat ({'unrecognized language / script code: ', args[1]}), args, ' | return make_error_msg (table.concat ({'unrecognized language / script code: ', args[1]}), args, 'Transliteration'); -- invalid language / script code | ||
end | end | ||
else | else | ||
return make_error_msg ('missing language / script code', args, ' | return make_error_msg ('missing language / script code', args, 'Transliteration'); -- missing language / script code so quit | ||
end | end | ||
args.italic, msg = validate_italic (args); | args.italic, msg = validate_italic (args); | ||
if msg then | if msg then | ||
return make_error_msg (msg, args, ' | return make_error_msg (msg, args, 'Transliteration'); | ||
end | end | ||
| Line 1,542: | Line 1,574: | ||
if override_table[args.code] then -- is code a language code defined in the override table? | if override_table[args.code] then -- is code a language code defined in the override table? | ||
language_name = override_table[args.code]; | language_name = override_table[args.code]; | ||
args.code = args.code:match ('^%a%a%a?'); -- if private use, strip all but language subtag | |||
elseif lang_table[args.code] then -- is code a language code defined in the standard language code tables? | elseif lang_table[args.code] then -- is code a language code defined in the standard language code tables? | ||
language_name = lang_table[args.code]; | language_name = lang_table[args.code]; | ||
| Line 1,551: | Line 1,584: | ||
args.code = ''; -- unset because not a language code | args.code = ''; -- unset because not a language code | ||
else | else | ||
return make_error_msg (table.concat ({'unrecognized language / script code: ', args.code}), args, ' | return make_error_msg (table.concat ({'unrecognized language / script code: ', args.code}), args, 'Transliteration'); -- invalid language / script code | ||
end | end | ||
-- here only when all parameters passed to make_translit() are valid | -- here only when all parameters passed to make_translit() are valid | ||
| Line 1,630: | Line 1,663: | ||
tag_from_name = tag_from_name, -- returns ietf tag associated with language name | tag_from_name = tag_from_name, -- returns ietf tag associated with language name | ||
name_from_tag = name_from_tag, -- used for template documentation; possible use in ISO 639 name from code templates | name_from_tag = name_from_tag, -- used for template documentation; possible use in ISO 639 name from code templates | ||
transl = transl, -- entry point for {{ | transl = transl, -- entry point for {{transliteration}} | ||
_category_from_tag = _category_from_tag, -- entry points when this module is require()d into other modules | _category_from_tag = _category_from_tag, -- entry points when this module is require()d into other modules | ||
| Line 1,641: | Line 1,674: | ||
_name_from_tag = _name_from_tag, | _name_from_tag = _name_from_tag, | ||
_transl = _transl, | _transl = _transl, | ||
_translation_make = translation_make, | |||
}; | }; | ||