模块:Lang：修订间差异

--[=[

]=]

For the purposes of this function, Latn script is characters less control characters from these Unicode 10.0 Character Code Charts:

[http://www.unicode.org/charts/PDF/U0080.pdf C1 Controls and Latin-1 Supplement] U+00A0-U+00AC, U+00C0–U+00FF (C2 A0 - C2 AC, C3 80 - C3 BF: \194\160-\194\172)

[http://www.unicode.org/charts/PDF/U0100.pdf Latin Extended-A] U+0100–U+017F (C4 80 - C5 BF)

[http://www.unicode.org/charts/PDF/U0250.pdf IPA Extensions] U+0250-U+02AF (C9 90 - CA AF)

[http://www.unicode.org/charts/PDF/U1D80.pdf Phonetic Extensions Supplement] U+1D80-U+1DBF (E1 B6 80 - E1 B6 BF)

]]

{

'[', -- this is a set so include opening bracket

'\194\160-\194\172', -- C1 Controls and Latin-1 Supplement U+00A0-U+00AC (C2 A0 - C2 AC)

'\195\128-\195\191', -- (skip shy) U+00C0–U+00FF (C3 80 - C3 BF)

'\234\172\176-\234\173\175', -- Latin Extended-E U+AB30-U+AB6F (EA AC B0 - EA AD AF)

'\239\172\128-\239\172\134', -- Alphabetic Presentaion Forms U+FB00-U+FB06 (EF AC 80 - EF AC 86)

']', -- close the set

});

--[[--------------------------< V A L I D A T E _ I T A L I C >------------------------------------------------

When |italic= is set and has an acceptible assigned value, return the matching css font-style property value or,

for the special case 'default', return nil.

Accepted values and the values that this function returns are are:

]]

local properties = {['yes'] = 'italic', ['no'] = 'normal', ['unset'] = 'inherit', ['default'] = nil};

end

elseif source:match ('^%a%a%a?%-%a%a%-[%a%d][%a%d][%a%d][%a%d][%a%d]+$') then -- ll-RR-variant (where variant is 5-8 alnum characters)

code, region, variant = source:match ('^(%a%a%a?)%-(%a%a)%-([%a%d][%a%d][%a%d][%a%d][%a%d][%a%d]?[%a%d]?[%a%d]?)$');

code, region, variant = source:match ('^(%a%a%a?)%-(%d%d%d)%-([%a%d][%a%d][%a%d][%a%d][%a%d][%a%d]?[%a%d]?[%a%d]?)$');

if is_set (script) then

if is_set (args_script) then

end

else

if is_set (variant) then

if is_set (args_variant) then

end

else

--[[--------------------------< M A K E _ E R R O R _ M S G >--------------------------------------------------

]]

local out = {};

table.insert (out, table.concat ({'&#x5B;', args.text or 'undefined', '&#x5D; '})); -- for error messages output args.text if available

table.insert (out, msg);

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

if (0 == namespace) and not is_set (args.nocat) then -- only categorize in article space

end

local span = {};

local style_added = '';

if 'italic' == style then

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

table.insert (span, table.concat ({' font-size:', size, ';'})); -- add when style attribute already inserted

else

local function make_category (code, language_name, nocat)

end

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

table.insert (cat, 'explicitly cited English');

elseif 'art' == code then

To avoid confusion, in this module and the templates that use it, the transliteration script parameter is renamed

to be |translit-script= (in this function, tscript)

]]

local title;

local tout = {};

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

if not is_set (std) and not is_set (tscript) then -- when neither standard nor script specified

table.insert (tout, language_name); -- write a generic tool tip

elseif is_set (std) and is_set (tscript) then -- when both are specified

else

end

elseif is_set (std) then -- translit-script not set, use language code

else -- code doesn't match

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

end

else -- here if translit-script set but translit-std not set

else

end

end

table.insert (tout, '">');

table.insert (tout, translit);

return table.concat (tout);

end

This function checks the content of args.text and returns empty string if nothing is amiss else it returns an

either as ''itself''' or as '''''bold italic'''''.

local function validate_text (template, args)

if not is_set (args.text) then

end

if 'lang-xx' == template then -- for the time being, this error checking does not apply to {{lang}}

end

end

--[[--------------------------< P R O T O _ P R E F I X >------------------------------------------------------

]]

local function proto_prefix (text, language_name)

return table.concat ({'*', text}); -- prefix proto language text with a splat

end

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

if msg then

end

if nil == args.italic then -- nil when |italic= absent or not set or |italic=default; args.italic controls

end

table.insert (out, make_text_span (args.code, args.text, args.rtl, args.italic, args.size));

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

For normal, upright style:

For italic style:

<includeonly>{{#invoke:lang|lang_xx_italic|code=xx}}</includeonly>

|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

|translit = text that is a transliteration of text

|translit-std = the standard that applies to the transliteration

local args = getArgs(frame, {parentFirst= true}); -- parameters in the template override parameters set in the {{#invoke:}}

local out = {};

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

local code; -- the language code

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

if msg then -- if an error detected then there is an error message

end

if nil == args.italic then -- args.italic controls

end

else

end

table.insert (out, make_text_span (args.code, args.text, args.rtl, args.italic, args.size))

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

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

end

end

if is_set (args.translation) then -- translation (not supported in {{lang}})

end

end

table.insert (out, render_maint(args.nocat)); -- maintenance messages and categories

--[[--------------------------< L A N G _ X X _ I T A L I C >--------------------------------------------------

]]

--[[--------------------------< L A N G _ X X _ I N H E R I T >------------------------------------------------

]]

end

end

return language_name;

end

return p;