Difference between revisions of "Module:Lang"

Jump to navigation Jump to search
1,937 bytes added ,  21:46, 28 July 2023
no edit summary
m (1 revision imported)
en>Trappist the monk
Line 1: Line 1:
--[=[
--[=[


Lua support for the {{lang}}, {{lang-xx}}, and {{transl}} templates and replacement of various supporting templates.  
Lua support for the {{lang}}, {{lang-xx}}, and {{transliteration}} templates and replacement of various supporting templates.  


]=]
]=]


require('Module:No globals');
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 {{transl}}) or to the value appropriate to |script=, if set ({{lang}}
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 'Transl' == template then
if 'Transliteration' == template then
category = 'Transl';
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 {{transl}} for this purpose; instead it uses |code.  Because language scripts
The value |script= is not used in {{transliteration}} for this purpose; instead it uses |code.  Because language scripts
are listed in the {{transl}} switches they are included in the data tables.  The script parameter is introduced
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 {{transl}}, style only applies when a language code is provided
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 {{transl}})
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 ({{transl}} only)
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, "&thinsp;</small>"); -- close the <small> html tag
end
table.insert (translation_t, table.concat ({'&#39;', args_t.translation, '&#39;'})); -- 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));
if 'none' ~= args.label then
table.insert (out, '<small>');
if 'no' == args.link then
table.insert (out, '<abbr title="literal translation">lit.</abbr>');
else
table.insert (out, make_wikilink ('Literal translation', 'lit.'));
end
table.insert (out, "&thinsp;</small>");
end
table.insert (out, table.concat ({'&#39;', args.translation, '&#39;'})); -- use html entities to avoid wiki markup confusion
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 {{transl|code|standard|text}}
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, 'Transl');
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 {{transl|code|text}}
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?$') then -- args[2] missing; is args[1] a code or is it the transliterated text?
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, 'Transl'); -- args[1] is a code so we're missing text
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, 'Transl');
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 -- args[1] has correct form?
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, 'Transl'); -- invalid language / script code
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, 'Transl'); -- missing language / script code so quit
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, 'Transl');
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, 'Transl'); -- invalid language / script code
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 = 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,
};
};
Anonymous user

Navigation menu