--[=[ ve şablonları ile bunları temel alarak çalışan diğer şablonlar için Lua omurgası. ]=] require('Modül:Küresel değil'); local initial_style_state; -- set by lang_xx_normal and lang_xx_italic local getArgs = require ('Modül:Bağımsız değişkenler').getArgs; local unicode = require ("Modül:Unicode verisi"); -- for is_latin and is_rtl local yesno = require ('Modül:Evethayır'); local lang_name_table = mw.loadData ('Modül
il/ad/veri'); local synonym_table = mw.loadData ('Modül:Lisan/ISO 639 eşkodları'); -- ISO 639-2/639-2T code translation to 639-1 code local lang_data = mw.loadData ('Modül:Lisan/veri'); -- language name override and transliteration tool-tip tables 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 local maint_msgs = {}; -- and their messages go here ----------------------------< I S _ S E T >< I S _ S E T >< I S _ S E T > tags to list-item text or to implied text. mixed not supported local function div_markup_add (text, style) local implied_p = {}; if text:find ('^\n[%*:;#]') then -- look for list markup; list markup must begin at start of text if 'italic' style then return mw.ustring.gsub (text, '(\n[%*:;#]+)([^\n]+)', '%1'); -- insert italic markup at each list item else return text; end end if text:find ('\n+') then -- look for any number of \n characters in text text text:gsub ('([^\n])\n([^\n])', '%1 %2'); -- replace single newline characters with a space character which mimics mediawiki if 'italic' style then text = text:gsub('[^\n]+', ); -- insert p and italic markup tags at each impled p (two or more consecutive '\n\n' sequences) else text = text:gsub ('[^\n]+', ); -- insert p markup at each impled p text = text:gsub ('\n', ); -- strip newline characters end end return text; end --[[--------------------------< M A K E _ T E X T _ H T M L >-------------------------------------------------- Add the html markup to text according to the type of content that it is: <span><span><span>"); -- no language code so close the span tag end return table.concat (tout); end --italic= template parameter so italic markup should never appear in args.text either as itself or as bold italic unless |italic=unset or |italic=invert. local function validate_text (template, args) if not is_set (args.text) then return make_error_msg ('no text', args, template); end if args.text:find ("%f[\']\'\'\'\'%f[^\']") or args.text:find ("\'\'\'\'\'[\']+") then -- because we're looking, look for 4 appostrophes or 6+ appostrophes return make_error_msg ('text has malformed markup', args, template); end local style = args.italic; if ('unset' ~= style) and ('invert' ~=style) then if args.text:find ("%f[\']\'\'%f[^\']") or args.text:find ("%f[\']\'\'\'\'\'%f[^\']") then -- italic but not bold, or bold italic return make_error_msg ('text has italic markup', args, template); end end end ----------------------------< R E N D E R _ M A I N T >------------------------------------------------------ render mainenance messages and categories local function render_maint(nocat) local maint = {}; if 0 < #maint_msgs then -- when there are maintenance messages table.insert (maint, table.concat ({'<span class="lang-comment" style="font-style:normal; display:none; color:#33aa33; margin-left:0.3em">'); -- close the span end if (0 < #maint_cats) and (0 == namespace) and not nocat then -- when there are maintenance categories; article namespace only for _, cat in ipairs (maint_cats) do table.insert (maint, table.concat ({'Kategori:', cat, })); -- format and add the categories end end return table.concat (maint); end ----------------------------< P R O T O _ P R E F I X > tags - trim leading and trailing whitespace and return If text begins with list markup: \n* unordered \n; definition \n: definition \n# ordered trim all leading whitespace except \n and trim all trailing whitespace If text contains stripmarker, return text unmodified and choose tags because the stripmarker is replaced with text wrapped in tags. local function html_tag_select (text) local tag; 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 elseif mw.text.trim (text):find ('\n\n+') then -- contains implied p tags text = mw.text.trim (text); -- trim leading and trailing whitespace characters tag = 'div'; -- must be div because span may not contain p tags (added later by MediaWiki); poem replacement is in div tags elseif text:find ('\n[%*:;%#]') then -- if text has list markup text = text:gsub ('^[\t\r\f ]*', ):gsub ('%s*$', ); -- trim all whitespace except leading newline character '\n' tag = 'div'; -- must be div because span may not contain ul, dd, dl, ol tags (added later by MediaWiki) else text = mw.text.trim (text); -- plain text tag = 'span'; -- so span is fine end return text, tag; end ----------------------------< L A N G >---------------------------------------------------------------------- entry point for there should be no reason to set parameters in the parameters are received from the template's frame (parent frame) local function _lang (args) 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 local template = args.template or 'lang'; if args[1] and args.code then return make_error_msg ('conflicting: {} and |code=', args, template); else args.code = args[1] or args.code; -- prefer args.code end if args[2] and args.text then return make_error_msg ('conflicting: {} and |text=', args, template); else args.text = args[2] or args.text; -- prefer args.text end msg = validate_text ('lang', args); -- ensure that |text= is set if is_set (msg) then -- msg is an already-formatted error message return msg; end args.text, tag = html_tag_select (args.text); -- inspects text; returns appropriate html tag with text trimmed accordingly validate_cat_args (args); -- determine if categorization should be suppressed if args.rtl ~= 'yes' then args.rtl = "ltr" end -- convert to boolean: 'yes' -> true, other values -> false code, subtags.script, subtags.region, subtags.variant, subtags.private, msg = get_ietf_parts (args.code); -- |script=, |region=, |variant= not supported because they should be part of args.code ({} in ) if msg then return make_error_msg ( msg, args, template); end args.italic, msg = validate_italic (args); if msg then return make_error_msg (msg, args, template); end if nil args.italic then -- nil when |italic absent or not set or |italic default; args.italic controls if ('latn' subtags.script) or -- script is latn (this_wiki_lang ~= code and not is_set (subtags.script) and not has_poem_tag (args.text) and unicode.is_Latin (args.text)) then -- text not this wiki's language, no script specified and not in poem markup but is wholly latn script (auto-italics) args.italic = 'italic'; -- DEFAULT for templates is upright; but if latn script set for font-style:italic else args.italic = 'inherit'; -- italic not set; script not latn; inherit current style end end if is_set (subtags.script) then -- if script set, override rtl setting if in_array (subtags.script, lang_data.rtl_scripts) then args.rtl = true; -- script is an rtl script else args.rtl = false; -- script is not an rtl script end end args.code = format_ietf_tag (code, subtags.script, subtags.region, subtags.variant); -- format to recommended subtag styles; private omitted because private subtags.private = subtags.private and table.concat ({code, '-x-', subtags.private}) or nil; -- assemble a complete private ietf subtag; args.code does not get private subtag if is_set (subtags.private) and lang_data.override[subtags.private] then -- get the language name for categorization language_name = lang_data.override[subtags.private][1]; -- first look for private use tag language name elseif lang_data.override
il/ad/veri'); local synonym_table = mw.loadData ('Modül:Lisan/ISO 639 eşkodları'); -- ISO 639-2/639-2T code translation to 639-1 code local lang_data = mw.loadData ('Modül:Lisan/veri'); -- language name override and transliteration tool-tip tables 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 local maint_msgs = {}; -- and their messages go here ----------------------------< I S _ S E T >< I S _ S E T >< I S _ S E T > tags to list-item text or to implied text. mixed not supported local function div_markup_add (text, style) local implied_p = {}; if text:find ('^\n[%*:;#]') then -- look for list markup; list markup must begin at start of text if 'italic' style then return mw.ustring.gsub (text, '(\n[%*:;#]+)([^\n]+)', '%1'); -- insert italic markup at each list item else return text; end end if text:find ('\n+') then -- look for any number of \n characters in text text text:gsub ('([^\n])\n([^\n])', '%1 %2'); -- replace single newline characters with a space character which mimics mediawiki if 'italic' style then text = text:gsub('[^\n]+', ); -- insert p and italic markup tags at each impled p (two or more consecutive '\n\n' sequences) else text = text:gsub ('[^\n]+', ); -- insert p markup at each impled p text = text:gsub ('\n', ); -- strip newline characters end end return text; end --[[--------------------------< M A K E _ T E X T _ H T M L >-------------------------------------------------- Add the html markup to text according to the type of content that it is: <span><span><span>"); -- no language code so close the span tag end return table.concat (tout); end --italic= template parameter so italic markup should never appear in args.text either as itself or as bold italic unless |italic=unset or |italic=invert. local function validate_text (template, args) if not is_set (args.text) then return make_error_msg ('no text', args, template); end if args.text:find ("%f[\']\'\'\'\'%f[^\']") or args.text:find ("\'\'\'\'\'[\']+") then -- because we're looking, look for 4 appostrophes or 6+ appostrophes return make_error_msg ('text has malformed markup', args, template); end local style = args.italic; if ('unset' ~= style) and ('invert' ~=style) then if args.text:find ("%f[\']\'\'%f[^\']") or args.text:find ("%f[\']\'\'\'\'\'%f[^\']") then -- italic but not bold, or bold italic return make_error_msg ('text has italic markup', args, template); end end end ----------------------------< R E N D E R _ M A I N T >------------------------------------------------------ render mainenance messages and categories local function render_maint(nocat) local maint = {}; if 0 < #maint_msgs then -- when there are maintenance messages table.insert (maint, table.concat ({'<span class="lang-comment" style="font-style:normal; display:none; color:#33aa33; margin-left:0.3em">'); -- close the span end if (0 < #maint_cats) and (0 == namespace) and not nocat then -- when there are maintenance categories; article namespace only for _, cat in ipairs (maint_cats) do table.insert (maint, table.concat ({'Kategori:', cat, })); -- format and add the categories end end return table.concat (maint); end ----------------------------< P R O T O _ P R E F I X > tags - trim leading and trailing whitespace and return If text begins with list markup: \n* unordered \n; definition \n: definition \n# ordered trim all leading whitespace except \n and trim all trailing whitespace If text contains stripmarker, return text unmodified and choose tags because the stripmarker is replaced with text wrapped in tags. local function html_tag_select (text) local tag; 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 elseif mw.text.trim (text):find ('\n\n+') then -- contains implied p tags text = mw.text.trim (text); -- trim leading and trailing whitespace characters tag = 'div'; -- must be div because span may not contain p tags (added later by MediaWiki); poem replacement is in div tags elseif text:find ('\n[%*:;%#]') then -- if text has list markup text = text:gsub ('^[\t\r\f ]*', ):gsub ('%s*$', ); -- trim all whitespace except leading newline character '\n' tag = 'div'; -- must be div because span may not contain ul, dd, dl, ol tags (added later by MediaWiki) else text = mw.text.trim (text); -- plain text tag = 'span'; -- so span is fine end return text, tag; end ----------------------------< L A N G >---------------------------------------------------------------------- entry point for there should be no reason to set parameters in the parameters are received from the template's frame (parent frame) local function _lang (args) 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 local template = args.template or 'lang'; if args[1] and args.code then return make_error_msg ('conflicting: {} and |code=', args, template); else args.code = args[1] or args.code; -- prefer args.code end if args[2] and args.text then return make_error_msg ('conflicting: {} and |text=', args, template); else args.text = args[2] or args.text; -- prefer args.text end msg = validate_text ('lang', args); -- ensure that |text= is set if is_set (msg) then -- msg is an already-formatted error message return msg; end args.text, tag = html_tag_select (args.text); -- inspects text; returns appropriate html tag with text trimmed accordingly validate_cat_args (args); -- determine if categorization should be suppressed if args.rtl ~= 'yes' then args.rtl = "ltr" end -- convert to boolean: 'yes' -> true, other values -> false code, subtags.script, subtags.region, subtags.variant, subtags.private, msg = get_ietf_parts (args.code); -- |script=, |region=, |variant= not supported because they should be part of args.code ({} in ) if msg then return make_error_msg ( msg, args, template); end args.italic, msg = validate_italic (args); if msg then return make_error_msg (msg, args, template); end if nil args.italic then -- nil when |italic absent or not set or |italic default; args.italic controls if ('latn' subtags.script) or -- script is latn (this_wiki_lang ~= code and not is_set (subtags.script) and not has_poem_tag (args.text) and unicode.is_Latin (args.text)) then -- text not this wiki's language, no script specified and not in poem markup but is wholly latn script (auto-italics) args.italic = 'italic'; -- DEFAULT for templates is upright; but if latn script set for font-style:italic else args.italic = 'inherit'; -- italic not set; script not latn; inherit current style end end if is_set (subtags.script) then -- if script set, override rtl setting if in_array (subtags.script, lang_data.rtl_scripts) then args.rtl = true; -- script is an rtl script else args.rtl = false; -- script is not an rtl script end end args.code = format_ietf_tag (code, subtags.script, subtags.region, subtags.variant); -- format to recommended subtag styles; private omitted because private subtags.private = subtags.private and table.concat ({code, '-x-', subtags.private}) or nil; -- assemble a complete private ietf subtag; args.code does not get private subtag if is_set (subtags.private) and lang_data.override[subtags.private] then -- get the language name for categorization language_name = lang_data.override[subtags.private][1]; -- first look for private use tag language name elseif lang_data.override
Kod:
then language_name = lang_data.override[code][1] -- then language names taken from the override table elseif lang_name_table.lang[code] then language_name = lang_name_table.lang[code][1]; -- table entries sometimes have multiple names, always take the first one end if 'invert' args.italic and 'span' tag then -- invert only supported for in-line content args.text = invert_italics (args.text) end args.text = proto_prefix (args.text, language_name); -- prefix proto-language text with a splat table.insert (out, make_text_html (args.code, args.text, tag, args.rtl, args.italic, args.size, language_name)); table.insert (out, render_maint(args.nocat)); -- maintenance messages and categories return table.concat (out); -- put it all together and done end ----------------------------< L A N G >---------------------------------------------------------------------- entry point for there should be no reason to set parameters in the parameters are received from the template's frame (parent frame) local function lang (frame) local args = getArgs (frame, { -- this code so that we can detect and handle wiki list markup in text valueFunc = function (key, value) if 2 key or 'text' key then -- the 'text' parameter; do not trim wite space return value; -- return untrimmed 'text' elseif value then -- all other values: if the value is not nil value = mw.text.trim (value); -- trim whitespace if ~= value then -- empty string when value was only whitespace return value; end end return nil; -- value was empty or contained only whitespace end -- end of valueFunc }); return _lang (args); end --script= as well. For each template choose the appropriate entry-point function so that this function knows the default styling that should be applied to text. For normal, upright style: For italic style: All other parameters should be received from the template's frame (parent frame) Supported parameters are: |code = (required) the IANA language code |script = IANA script code; especially for use with languages that use multiple writing systems |region = IANA region code |variant = IANA variant code |text = (required) the displayed text in language specified by code |link = boolean false ('no') does not link code-spcified language name to associated language article |rtl = boolean true ('yes') identifies the language specified by code as a right-to-left language |nocat = boolean true ('yes') inhibits normal categorization; error categories are not affected |cat = boolian false ('no') opposite form of |nocat= |italic = boolean true ('yes') renders displayed text in italic font; boolean false ('no') renders displayed text in normal font; not set renders according to initial_style_state |lit = text that is a literal translation of text |label = 'none' to suppress all labeling (language name, 'translit.', 'lit.') any other text replaces language-name label - automatic wikilinking disabled for those templates that support transliteration (those templates where |text= is not entirely latn script): |translit = text that is a transliteration of text |translit-std = the standard that applies to the transliteration |translit-script = ISO 15924 script name; falls back to code For , the positional parameters are: {} text {} transliterated text {} literal translation text no other positional parameters are allowed local function _lang_xx (args) local out = {}; local language_name; -- used to make display text, article links local category_name; -- same as language_name except that it retains any parenthetical disambiguators (if any) from the data set local subtags = {}; -- IETF subtags script, region, and variant local code; -- the language code local translit_script_name; -- name associated with IANA (ISO 15924) script code local translit; local translit_title; local msg; -- for error messages local tag = 'span'; -- initial value for make_text_html if args[1] and args.text then return make_error_msg ('conflicting: {} and |text=', args, 'lang-xx'); else args.text = args[1] or args.text; -- prefer args.text end msg = validate_text ('lang-xx', args); -- ensure that |text= is set, does not contain italic markup and is protected from improper bolding if is_set (msg) then return msg; end args.text, tag = html_tag_select (args.text); -- inspects text; returns appropriate html tag with text trimmed accordingly if args[2] and args.translit then return make_error_msg ('conflicting: {} and |translit=', args, 'lang-xx'); else args.translit = args[2] or args.translit -- prefer args.translit end if args[3] and (args.translation or args.lit) then return make_error_msg ('conflicting: {} and |lit= or |translation=', args, 'lang-xx'); elseif args.translation and args.lit then return make_error_msg ('conflicting: |lit= and |translation=', args, 'lang-xx'); else args.translation = args[3] or args.translation or args.lit; -- prefer args.translation end if args.links and args.link then return make_error_msg ('conflicting: |links= and |link=', args, 'lang-xx'); else args.link = args.link or args.links; -- prefer args.link end validate_cat_args (args); -- determine if categorization should be suppressed args.rtl = args.rtl 'yes'; -- convert to boolean: 'yes' -> true, other values -> false code, subtags.script, subtags.region, subtags.variant, subtags.private, msg get_ietf_parts (args.code, args.script, args.region, args.variant); -- private omitted because private if msg then -- if an error detected then there is an error message return make_error_msg (msg, args, 'lang-xx'); end args.italic, msg validate_italic (args); if msg then return make_error_msg (msg, args, 'lang-xx'); end if nil args.italic then -- args.italic controls if is_set (subtags.script) then if 'latn' subtags.script then args.italic 'italic'; -- |script Latn; set for font-style:italic else args.italic initial_style_state; -- italic not set; script is not latn; set for font-style:<initial_style_state> end else args.italic initial_style_state; -- here when |italic and |script not set; set for font-style:<initial_style_state> end end if is_set (subtags.script) then -- if script set override rtl setting if in_array (subtags.script, lang_data.rtl_scripts) then args.rtl true; -- script is an rtl script else args.rtl false; -- script is not an rtl script end end args.code format_ietf_tag (code, subtags.script, subtags.region, subtags.variant); -- format to recommended subtag styles subtags.private subtags.private and table.concat ({code, '-x-', subtags.private}) or nil; -- assemble a complete private ietf subtag; args.code does not get private subtag if is_set (subtags.private) and lang_data.override[subtags.private] then -- get the language name for categorization language_name lang_data.override[subtags.private][1]; -- first look for private use tag language name elseif lang_data.override[args.code:lower] then -- look for whole IETF tag in override table language_name lang_data.override[args.code:lower][1]; -- args.code:lower because format_ietf_tag returns mixed case elseif lang_data.override[code] then -- not there so try basic language code language_name lang_data.override[code][1]; elseif not is_set (subtags.variant) then if lang_name_table.lang[code] then language_name lang_name_table.lang[code][1]; -- table entries sometimes have multiple names, always take the first one end else -- TODO: is this the right thing to do: take language display name from variants table? if lang_name_table.variant[subtags.variant] then -- TODO: there is some discussion at Template talk:Lang about having a label parameter for use when variant name is not desired among other things language_name lang_name_table.variant[subtags.variant]['descriptions'][1]; -- table entries sometimes have multiple names, always take the first one end end category_name language_name; -- category names retain IANA parenthetical diambiguators (if any) language_name language_name:gsub ('%s+%b', ); -- remove IANA parenthetical disambiguators or qualifiers from names that have them if args.label then if 'none' ~ args.label then table.insert (out, table.concat ({args.label, ': '})); -- custom label end else if 'no' args.link then table.insert (out, language_name); -- language name without wikilink else if language_name:find ('languages') then table.insert (out, make_wikilink (language_name)); -- collective language name uses simple wikilink elseif lang_data.article_name[code] then table.insert (out, make_wikilink (lang_data.article_name[code][1], language_name)); -- language name with wikilink from override data else table.insert (out, make_wikilink (language_name .. ' language', language_name)); -- language name with wikilink end end table.insert (out, ': '); -- separator end if 'invert' == args.italic then args.text = invert_italics (args.text) end args.text = proto_prefix (args.text, language_name); -- prefix proto-language text with a splat table.insert (out, make_text_html (args.code, args.text, tag, args.rtl, args.italic, args.size)) if is_set (args.translit) and not unicode.is_Latin (args.text) then -- transliteration (not supported in ); not supported when args.text is wholly latn text (this is an imperfect test) table.insert (out, ', '); -- comma to separate text from translit if 'none' ~= args.label then table.insert (out, ); -- close the small tag end translit = make_translit (args.code, language_name, args.translit, args['translit-std'], args['translit-script']) if is_set (translit) then table.insert (out, translit); else return make_error_msg (table.concat ({'invalid translit-std: \, args['translit-std'] or '[missing]'}), args, 'lang-xx'); end end if is_set (args.translation) then -- translation (not supported in ) table.insert (out, ', '); if 'none' ~= args.label then table.insert (out, '"); end table.insert (out, table.concat ({''', args.translation, '''})); -- use html entities to avoid wiki markup confusion end table.insert (out, render_maint(args.nocat)); -- maintenance messages and categories return table.concat (out); -- put it all together and done end ----------------------------< L A N G _ X X _ A R G S _ G E T >---------------------------------------------- common function to get args table from templates returns table of args local function lang_xx_args_get (frame) local args = getArgs(frame, { parentFirst= true, -- parameters in the template override parameters set in the valueFunc = function (key, value) if 1 == key then -- the 'text' parameter; do not trim wite space return value; -- return untrimmed 'text' elseif value then -- all other values: if the value is not nil value = mw.text.trim (value); -- trim whitespace if ~= value then -- empty string when value was only whitespace return value; end end return nil; -- value was empty or contained only whitespace end -- end of valueFunc }); return args; end ----------------------------< L A N G _ X X _ I T A L I C >-------------------------------------------------- Entry point for those templates that call lang_xx_italic. Sets the initial style state to italic. local function lang_xx_italic (frame) local args = lang_xx_args_get (frame); initial_style_state = 'italic'; return _lang_xx (args); end ----------------------------< _ L A N G _ X X _ I T A L I C >------------------------------------------------ Entry point ffrom another module. Sets the initial style state to italic. local function _lang_xx_italic (args) initial_style_state = 'italic'; return _lang_xx (args); end ----------------------------< L A N G _ X X _ I N H E R I T >------------------------------------------------ Entry point for those templates that call lang_xx_inherit. Sets the initial style state to inherit. local function lang_xx_inherit (frame) local args = lang_xx_args_get (frame); initial_style_state = 'inherit'; return _lang_xx (args); end ----------------------------< _ L A N G _ X X _ I N H E R I T >---------------------------------------------- Entry point from another module. Sets the initial style state to inherit. local function _lang_xx_inherit (args) initial_style_state = 'inherit'; return _lang_xx (args); end ----------------------------< _ I S _ I E T F _ T A G >------------------------------------------------------ Returns true when a language name associated with IETF language tag exists; nil else. IETF language tag must be valid. All code combinations supported by and the templates are supported by this function. The purpose of this function is to replace in templates that are better served by using Module entry point from another module local function _is_ietf_tag (tag) -- entry point when this module is required into another local c, s, r, v, p, err; -- code, script, region, private, error message 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 ----------------------------< I S _ I E T F _ T A G >-------------------------------------------------------- Module entry point from an local function is_ietf_tag (frame) -- entry point from an return _is_ietf_tag (frame.args[1]); -- frame.args[1] is the ietf language tag end --link= parameter to yes to get wikilinked version of the language name. Module entry point from another module local function _name_from_tag (args) local subtags = {}; -- IETF subtags script, region, variant, and private 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 local language_name = ; code, subtags.script, subtags.region, subtags.variant, subtags.private, msg = get_ietf_parts (raw_code); if msg then local template = (args['template'] and table.concat ({': '})) or ; -- make template name (if provided by the template) return table.concat ({}); end if lang_data.override[raw_code:lower] then -- look for whole IETF tag in override table (force lower case) language_name = lang_data.override[raw_code:lower][1]; elseif lang_data.override[code] then -- not there so try basic language code in override table language_name = lang_data.override[code][1]; elseif not is_set (subtags.variant) then if lang_name_table.lang[code] then language_name = lang_name_table.lang[code][1]; -- table entries sometimes have multiple names, always take the first one end else -- TODO: is this the right thing to do: take language display name from variants table? if lang_name_table.variant[subtags.variant] then -- TODO: there is some discussion at Template talk:Lang about having a label parameter for use when variant name is not desired among other things language_name = lang_name_table.variant[subtags.variant]['descriptions'][1]; -- table entries sometimes have multiple names, always take the first one end 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 return make_wikilink (language_name); -- collective language name uses simple wikilink elseif lang_data.article_name[code] then return make_wikilink (lang_data.article_name[code][1], language_name); -- language name with wikilink from override data else return make_wikilink (language_name .. ' language', language_name); -- language name with wikilink end end return language_name; end ----------------------------< N A M E _ F R O M _ C O D E >-------------------------------------------------- Module entry point from an local function name_from_tag (frame) -- entry point from an return _name_from_tag (frame.args); -- pass-on the args table, nothing else end ----------------------------< _ T A G _ F R O M _ N A M E >-------------------------------------------------- Returns the ietf language tag associated with the language name. Spelling of language name must be correct according to the spelling in the source tables. When a standard language name has a parenthetical disambiguator, that disambiguator must be omitted (they are not present in the data name-to-tag tables). Module entry point from another module local function _tag_from_name (args) -- entry point from another module local msg; if args[1] and ~= args[1] then local data = mw.loadData ('Module:Lang/name to tag'); -- get the reversed data tables local lang = args[1]:lower; -- allow any-case for the language name (speeling must till be correct) local tag = data.rev_lang_data[lang] or data.rev_lang_name_table[lang];-- get the code; look first in the override then in the standard if tag then return tag; -- language name found so return tag and done else msg = 'language: ' .. args[1] .. ' not found' -- language name not found, error message end else msg = 'missing language name' -- language name not provided, error message end local template = ; if args.template and ~= args.template then template = table.concat ({': '}); -- make template name (if provided by the template) end return table.concat ({}); end ----------------------------< T A G _ F R O M _ N A M E >---------------------------------------------------- Module entry point from an local function tag_from_name (frame) -- entry point from an return _tag_from_name (frame.args); -- pass-on the args table, nothing else end ----------------------------< _ T R A N S L >---------------------------------------------------------------- Module entry point from another module local function _transl (args) 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 translit; -- translitterated text to display local script; -- IANA script local msg; -- for when called functions return an error message if is_set (args[3]) then -- [3] set when 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 if not title_table[args.translit_std] then return make_error_msg (table.concat ({'unrecognized transliteration standard: ', args.translit_std}), args, 'transl'); end else if is_set (args[2]) then -- [2] set when args.text = args[2]; -- get the transliterated text 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? return make_error_msg ('no text', args, 'transl'); -- args[1] is a code so we're missing text else 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'); end end end 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? 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 return make_error_msg (table.concat ({'unrecognized language / script code: ', args[1]}), args, 'transl'); -- invalid language / script code end else return make_error_msg ('missing language / script code', args, 'transl'); -- missing language / script code so quit end args.italic, msg = validate_italic (args); if msg then return make_error_msg (msg, args, 'transl'); end if 'italic' == args.italic then -- 'italic' when |italic=yes; because that is same as absent or not set and |italic=default args.italic = nil; -- set to nil; end if lang_data.override[args.code] then -- is code a language code defined in the override table? language_name = lang_data.override[args.code][1]; elseif lang_name_table.lang[args.code] then -- is code a language code defined in the standard language code tables? language_name = lang_name_table.lang[args.code][1]; elseif lang_name_table.script[args.code] then -- if here, code is not a language code; is it a script code? language_name = lang_name_table.script[args.code][1]; script = args.code; -- code was an ISO 15924 script so use that instead args.code = ; -- unset because not a language code else return make_error_msg (table.concat ({'unrecognized language / script code: ', args.code}), args, 'transl'); -- invalid language / script code end -- here only when all parameters passed to make_translit are valid return make_translit (args.code, language_name, args.text, args.translit_std, script, args.italic); end ----------------------------< T R A N S L >------------------------------------------------------------------ Module entry point from an local function transl (frame) local args = getArgs(frame); -- no parameters return _transl (args); end ----------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------ return { lang = lang, -- entry point for lang_xx_inherit = lang_xx_inherit, -- entry points for 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 _lang = _lang, -- entry points when this module is required into other modules _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, --deprecated entry points: code_from_name = tag_from_name, -- code is wrong; should be tag; these here to ease transition to the proper name is_ietf_code = is_ietf_tag, name_from_code = name_from_tag, _code_from_name = _tag_from_name, _is_ietf_code = _is_ietf_tag, _name_from_code = _name_from_tag, };