Module:Lang: Difference between revisions

require('Module:No globals');

local getArgs = require ('Module:Arguments').getArgs;

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 namespace = mw.title.getCurrentTitle().namespace; -- used for categorization

local this_wiki_lang = mw.language.getContentLanguage().code; -- get this wiki's language

local maint_cats = {}; -- maintenance categories go here

if count > 1 then -- return nil and an error message if more than one is set  

end

region: upper case

variant: lower case

]]

local out = {};

table.insert (out, code:lower());

if is_set (script) then

script subtag - four character IANA script code

region subtag - two-letter or three digit IANA region code

private subtag - x- followed by 1-8 alnum private code; only supported with the primary language tag

code = code:lower(); -- ensure that we use and return lower case version of this

return nil, nil, nil, nil, nil, table.concat ({'unrecognized language code: ', code}); -- invalid language code, don't know about the others (don't care?)

end

if is_set (script) then

script = script:lower(); -- ensure that we use and return lower case version of this

return code, nil, nil, nil, nil, table.concat ({'unrecognized script: ', script, ' for code: ', code}); -- language code ok, invalid script, don't know about the others (don't care?)

end

end

return code, nil, nil, nil, nil, table.concat ({'script: ', script, ' not supported for code: ', code}); -- language code ok, script is suppressed for this code

end

if is_set (region) then

region = region:lower(); -- ensure that we use and return lower case version of this

return code, script, nil, nil, nil, table.concat ({'unrecognized region: ', region, ' for code: ', code});

end

if is_set (variant) then

variant = variant:lower(); -- ensure that we use and return lower case version of this

return code, script, region, nil, nil, table.concat ({'unrecognized variant: ', variant});

end -- does this duplicate/replace tests in lang() and lang_xx()?

if is_set (script) then -- if script set it must be part of the 'prefix'

return code, script, region, nil, nil, table.concat ({'unrecognized variant: ', variant, ' for code-script pair: ', code, '-', script});

end

else

return code, script, region, nil, nil, table.concat ({'unrecognized variant: ', variant, ' for code: ', code});

end

if is_set (private) then

private = private:lower(); -- ensure that we use and return lower case version of this

return code, script, region, nil, nil, table.concat ({'unrecognized private tag: ', private});

end

local category;

else

end

table.insert (out, msg);

table.insert (out, table.concat ({' ([[:Category:', category, ' template errors|help]])'}));

table.insert (out, '</span>');

table.insert (out, table.concat ({'[[Category:', category, ' template errors]]'}));

end

if 'normal' == style then -- when |italic=no

style_added = '\"'; -- remember that style attribute added and is not yet closed

end

if is_set (size) then -- when |size=<something>

if is_set (style_added) then

else

style_added = '\"'; -- remember that style attribute added and is not yet closed

end

table.insert (html, table.concat ({style_added, ' title=\"', language})); --start the title text

if language:find ('languages') then

else

end

else

table.insert (html, table.concat ({style_added, '>'})); -- close the style attribute and close opening html tag

table.insert (html, '&lrm;'); -- make sure the browser knows that we're at the end of the rtl

end

return table.concat (html); -- put it all together and done

end

[[Category:Articles containing explicitly cited English-language text]]

for ISO 639-2 collective languages (and for 639-1 bh):

]=]

local cat = {};

return ''; -- return empty string for concatenation

end

if language_name:find ('languages') then

end

table.insert (cat, '[[Category:Articles containing ');

if 'en' == code then

else

table.insert (cat, language_name);

table.insert (cat, '-language text]]');

end

table.insert (tout, "<i lang=\""); -- so use <i> tag

else

end

table.insert (tout, code);

if title_table[std] then -- and if standard is legitimate

if title_table[std][tscript] then -- and if script for that standard is legitimate

else

table.insert (tout, title_table[std]['default']); -- use the default if script not in std table; TODO: maint cat? error message because script not found for this standard?

if title_table[std][code] then -- if language code is in the table (transl may not provide a language code)

else -- code doesn't match

table.insert (tout, title_table[std]['default']); -- so use the standard's default

if 0 < #maint_msgs then -- when there are maintenance messages

for _, msg in ipairs (maint_msgs) do

table.insert (maint, table.concat ({msg, ' '})); -- add message strings

entry point for {{lang}}

local out = {};

local language_name; -- used to make category names

local subtags = {}; -- IETF subtags script, region, variant, and private

local code; -- the language code

local msg; -- for error messages

local tag = 'span'; -- initial value for make_text_html()

if args[1] and args.code then

else

args.code = args[1] or args.code; -- prefer args.code

if args[2] and args.text then

else

args.text = args[2] or args.text; -- prefer args.text

end

if is_set (msg) then -- msg is an already-formatted error message

return msg;

args.text, tag = html_tag_select (args.text); -- inspects text; returns appropriate html tag with text trimmed accordingly

args.rtl = args.rtl == 'yes'; -- convert to boolean: 'yes' -> true, other values -> false

args.proto, msg = validate_proto (args.proto); -- return boolean, or nil, or nil and error message flag

if msg then

end

end

if 'invert' == args.italic and 'span' == tag then -- invert only supported for in-line content

local msg; -- for error messages

local tag = 'span'; -- initial value for make_text_html()

if args[1] and args.text then

else

args.text = args[1] or args.text; -- prefer args.text

if args[2] and args.translit then

else

args.translit = args[2] or args.translit -- prefer args.translit

if args[3] and (args.translation or args.lit) then

elseif args.translation and args.lit then

else

args.translation = args[3] or args.translation or args.lit; -- prefer args.translation

if args.links and args.link then

else

args.link = args.link or args.links; -- prefer args.link

args.proto, msg = validate_proto (args.proto); -- return boolean, or nil, or nil and error message flag

if msg then

end

category_name = language_name; -- category names retain IANA parenthetical diambiguators (if any)

args.text = proto_prefix (args.text, language_name, args.proto); -- prefix proto-language text with a splat

if is_set (args.translit) and not unicode.is_Latin (args.text) then -- transliteration (not supported in {{lang}}); not supported when args.text is wholly latn text (this is an imperfect test)

if 'none' ~= args.label then

table.insert (out, '<small>');

else

translit_script_name = language_name; -- fall back on language name

All code combinations supported by {{lang}} and the {{lang-xx}} templates are supported by this function.

Module entry point from another module

local function _is_ietf_tag (tag) -- entry point when this module is require()d into another

c, s, r, v, p, err = get_ietf_parts (tag); -- disassemble tag into constituent part and validate

return ((c and not err) and true) or nil; -- return true when code portion has a value without error message; nil else

end

]]

end

All code combinations supported by {{lang}} and the {{lang-xx}} templates are supported by this function.

local raw_code = args[1]; -- save a copy of the input IETF subtag

local link = 'yes' == args['link']; -- make a boolean

local code; -- the language code

local msg; -- gets an error message if IETF language tag is malformed or invalid

if msg then

local template = (args['template'] and table.concat ({'{{', args['template'], '}}: '})) or ''; -- make template name (if provided by the template)

end

language_name = language_name:gsub ('%s+%b()', ''); -- remove IANA parenthetical disambiguators or qualifiers from names that have them

if link then -- when |link=yes, wikilink the language name

if language_name:find ('languages') then

elseif lang_data.article_name[code] then

else

end

end

return language_name;

end

Module entry point from an {{#invoke:}}

local function name_from_tag (frame) -- entry point from an {{#invoke:Lang|name_from_tag|<ietf tag>|link=<yes>|template=<template name>}}

end

if args[1] and '' ~= args[1] then

local lang = args[1]:lower(); -- allow any-case for the language name (speeling must till be correct)

if tag then

else

msg = 'language: ' .. args[1] .. ' not found' -- language name not found, error message

template = table.concat ({'{{', args['template'], '}}: '}); -- make template name (if provided by the template)

end

end

local function tag_from_name (frame) -- entry point from an {{#invoke:Lang|tag_from_name|<language name>|link=<yes>|template=<template name>}}

end

local title_table = lang_data.translit_title_table; -- table of transliteration standards and the language codes and scripts that apply to those standards

local language_name; -- language name that matches language code; used for tool tip

local script; -- IANA script

local msg; -- for when called functions return an error message

if not title_table[args.translit_std] then

end

else

else

if args[1] and args[1]:match ('^%a%a%a?%a?$') then -- args[2] missing; is args[1] a code or its it the transliterated text?

else

args.text = args[1]; -- args[1] is not a code so we're missing that; assign args.text for error message

end

end

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

else

end

else

end

args.italic, msg = validate_italic (args);

if msg then

end

end

script = args.code; -- code was an ISO 15924 script so use that instead

args.code = ''; -- unset because not a language code

else

end

-- here only when all parameters passed to make_translit() are valid

local function transl (frame)

end

return {

lang = lang, -- entry point for {{lang}}

lang_xx_inherit = lang_xx_inherit, -- entry points for {{lang-??}}

lang_xx_italic = lang_xx_italic,

is_ietf_tag = is_ietf_tag,

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

transl = transl, -- entry point for {{transl}}

_lang_xx_inherit = _lang_xx_inherit,

_lang_xx_italic = _lang_xx_italic,

_is_ietf_tag = _is_ietf_tag,

_tag_from_name = _tag_from_name,  

_name_from_tag = _name_from_tag,

_transl = _transl,

};