Module:Lang/utilities explained

require('strict');

local getArgs = require ('Module:Arguments').getArgs;local unicode = require ("Module:Unicode data"); -- for is_latinlocal lang = require ('Module:Lang');

local namespace = mw.title.getCurrentTitle.namespace; -- used for categorization

local err_texts =

local function error_msg_make (msg, template, nocat) local out = ; local category = 'Lang and lang-xx';

table.insert (out, table.concat); table.insert (out, msg); table.insert (out, table.concat); table.insert (out, ''); if (0

namespace or 10

namespace) and not nocat then -- categorize in article space (and template space to take care of broken usages) table.insert (out, table.concat); end

return table.concat (out);end

----------------------------< S E P A R A T O R _ G E T >----------------------------------------------------

allowed separators are comma, semicolon, virgule, or a quoted string of text

local function separator_get (sep_param_val) if not sep_param_val then return ', ' end; -- not specified, use default if ','

sep_param_val then return ', ' end; if ';'

sep_param_val then return '; ' end; if '/'

sep_param_val then return '/' end; local str; if sep_param_val:match ('^%b\"\"$') then -- if quoted string and uses double quotes str = sep_param_val:match ('%b\"\"'):gsub ('^"', ):gsub ('"$', ); return str; -- return the contents of the quote elseif sep_param_val:match ('^%b\'\'$') then -- if quoted string and uses single quotes str = sep_param_val:match ('%b\'\):gsub ('^\, ):gsub ('\'$', ); return str; -- return the contents of the quote end return ', '; -- default in case can't extract quoted stringend

----------------------------< P A R A M _ S E L E C T >------------------------------------------------------

Selects the appropriate enumerated parameters for or according to

- arguments table from frame - arguments table to be supplied to _lang (whichever text renders second) - arguments table to be supplied to _lang_xx_inherit or _lang_xx_italic (whichever text renders first)

local function param_select (args_t, lang_args_t, lang_xx_args_t, swap) local enum_xx = swap and '2' or '1'; local enum = swap and '1' or '2'; lang_xx_args_t.script = args_t['script' .. enum_xx]; -- these for that renders first (uses ) lang_xx_args_t.region = args_t['region' .. enum_xx]; lang_xx_args_t.variant = args_t['variant' .. enum_xx]; lang_xx_args_t.italic = args_t['italic' .. enum_xx]; lang_xx_args_t.size = args_t['size' .. enum_xx]; lang_args_t.italic = args_t['italic' .. enum]; -- these for that renders second (uses ) lang_args_t.size = args_t['size' .. enum];end

----------------------------< I E T F _ T A G _ M A K E >----------------------------------------------------

make ietf tag for _lang (second rendered )

local function ietf_tag_make (args_t, tag, swap) local ietf_tag_t = ; -- initialize with local enum = swap and '1' or '2'; -- when is true latin is rendered second by _lang for _, param in ipairs do if args_t[param] then table.insert (ietf_tag_t, args_t[param]) end -- build from erated subtags end

return table.concat (ietf_tag_t, '-'); -- concatenate subtags with hyphen separator and doneend

--||}} except that is not a romanization of (which is always theLatin-script form). Intended for languages where two scripts are 'official' or 'native and equal in status' (shis and sr may be a candidate for this; are there others?)

- (required) language tag for both of and - (required) Latin-script text (always) - (required) non-Latin-script text (always) |swap= - when set to 'yes', swaps the rendered order so that renders first followed by ; default is Latin-script first |separator = when single character,;/ uses ', ' (default), '; ', '/'; when quoted string (first and last characters must be matching single or double quotes) uses that string

parameters supported by both of and templates are passed along: |cat= |nocat= parameters supported only by that are not enumerated: |label= |link= enumerated parameters: |script1= - ISO 15924 script tag for -- when renders first, these are passed to _lang_xx_... individually |region1= - ISO 3166 region tag for -- when renders second, these are combined with to make an IETF tag for _lang |variant1= - IETF tag for

|script2= - ISO 15924 script tag for -- when renders first, these are passed to _lang_xx_... individually |region2= - ISO 3166 region tag for -- when renders second, these are combined with to make an IETF tag for _lang |variant2= - IETF tag for

|italic1= |size1=

|italic2= |size2=

this function calls: Module:Lang functions _lang_xx_inherit - when non-Latin renders first _lang_xx_italic - when Latin renders first _lang - to render Module:Unicode data function: is_Latin - error checking to make sure that is Latin-script text

local function _lang_x2 (args_t) local tag = args_t.tag or args_t[1]; local text1 = args_t.text1 or args_t[2]; local text2 = args_t.text2 or args_t[3]; local translation = args_t.translation or args_t[4]; local template_name = args_t.template_name or 'lang-x2'; local nocat = ('yes'

args_t.nocat) or ('no'

args_t.cat); -- boolean

if not (tag and text1 and text2) then return error_msg_make ('missing a required argument', template_name, nocat); end if tag:find ('-', 1, true) then return error_msg_make ('invalid language tag:

' .. tag .. '; IETF format not supported', template_name, nocat); end if not unicode.is_Latin (text1) then--error (template_name) return error_msg_make ('<' .. ((err_texts[template_name:lower] and 'text2') or 'text1') .. '> is not Latin script', template_name, nocat); end if unicode.is_Latin (text2) then return error_msg_make ('<' .. ((err_texts[template_name:lower] and 'text1') or 'text2') .. '> is Latin script', template_name, nocat); end local swap = 'yes'

args_t.swap; -- boolean local out = ;

local ietf_tags = ietf_tag_make (args_t, tag, swap); -- for calls to -- create base-form arguments tables local lang_xx_args_t = ; -- for whichever renders first local lang_args_t = ; -- for whichever renders second param_select (args_t, lang_args_t, lang_xx_args_t, swap); -- load , tables with appropriate enumerated parameters from table according to

if swap then -- non-Latin script renders first lang_xx_args_t.text = text2; lang_args_t.text = text1; table.insert (out, lang._lang_xx_inherit (lang_xx_args_t)); -- render non-Latin script upright else -- Latin script renders first lang_xx_args_t.text = text1; lang_args_t.text = text2; table.insert (out, lang._lang_xx_italic (lang_xx_args_t)); -- render Latin script in italics end

table.insert (out, separator_get (args_t.separator)); -- insert the separator table.insert (out, lang._lang (lang_args_t)); -- and render the other of or if translation then -- if positional parameter 4 (translation of and ) table.insert (out, lang._translation_make); -- add translation to rendering end

return table.concat (out)end

----------------------------< L A N G _ X 2 >----------------------------------------------------------------

implements ; template entry point

local function lang_x2 (frame) local args_t = getArgs (frame); return _lang_x2 (args_t);end

----------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------

return