Rechtzeitig BibLex - Benutzerbeiträge [de]

MediaWiki:Citoid-template-type-map.json

2022-02-23T14:45:28Z

Admin:

{
"artwork": "Zitat",
"audioRecording": "Zitat",
"bill": "Zitat",
"blogPost": "Cite web",
"book": "Cite book",
"bookSection": "Zitat",
"case": "Zitat",
"computerProgram": "Zitat",
"conferencePaper": "Cite journal",
"dictionaryEntry": "Zitat",
"document": "Zitat",
"email": "Cite web",
"encyclopediaArticle": "Zitat",
"film": "Zitat",
"forumPost": "Cite web",
"hearing": "Zitat",
"instantMessage": "Zitat",
"interview": "Zitat",
"journalArticle": "Cite journal",
"letter": "Zitat",
"magazineArticle": "Cite news",
"manuscript": "Cite book",
"map": "Zitat",
"newspaperArticle": "Cite news",
"patent": "Cite book",
"podcast": "Zitat",
"presentation": "Cite journal",
"radioBroadcast": "Zitat",
"report": "Cite journal",
"statute": "Zitat",
"thesis": "Cite book",
"tvBroadcast": "Zitat",
"videoRecording": "Zitat",
"webpage": "Cite web"
}

MediaWiki:Citoid-template-type-map.json

2022-02-23T14:45:01Z

Admin:

{
"artwork": "Zitat",
"audioRecording": "Zitat",
"bill": "Zitat",
"blogPost": "Cite web",
"book": "Cite book",
"bookSection": "Zitat",
"case": "Zitat",
"computerProgram": "Zitat",
"conferencePaper": "Cite journal",
"dictionaryEntry": "Zitat",
"document": "Zitat",
"email": "Cite web",
"encyclopediaArticle": "Zitat",
"film": "Zitat",
"forumPost": "Cite web",
"hearing": "Zitat",
"instantMessage": "Zitat",
"interview": "Zitat",
"journalArticle": "Cite journal",
"letter": "Zitat",
"magazineArticle": "Cite news",
"manuscript": "Cite book",
"map": "Zitat",
"newspaperArticle": "Cite news",
"patent": "Cite patent",
"podcast": "Zitat",
"presentation": "Cite journal",
"radioBroadcast": "Zitat",
"report": "Cite journal",
"statute": "Zitat",
"thesis": "Cite thesis",
"tvBroadcast": "Zitat",
"videoRecording": "Zitat",
"webpage": "Cite web"
}

Modul:WLink

2022-02-23T14:42:27Z

Admin: 1 Version importiert

local WLink = { suite = "WLink",
serial = "2020-07-01",
item = 19363224,
globals = { URLutil = 10859193 } };

--[=[
ansiPercent()
formatURL()
getArticleBase()
getBaseTitle()
getEscapedTitle()
getExtension()
getFile()
getFragment()
getLanguage()
getLinktextProblem()
getNamespace()
getNamespaced()
getPlain()
getProject()
getTarget()
getTalkPage()
getTargetPage()
getTitle()
getWeblink()
getWikilink()
isBracketedLink()
isBracketedURL()
isCategorization()
isExternalLink()
isInterlanguage()
isInterwiki()
isMedia()
isTalkPage()
isTitledLink()
isValidLink()
isValidLinktext()
isWikilink()
pageLink()
pageTarget()
wikilink()
failsafe()
]=]

-- local globals
local URLutil = false;
local Failsafe = WLink;
local GlobalMod = WLink;

local htmlInline = { b = true,
bdi = true,
bdo = true,
big = true,
code = true,
em = true,
i = true,
kbd = true,
s = true,
samp = true,
small = true,
span = true,
strong = true,
style = true,
sub = true,
sup = true,
tt = true,
var = true };

local foreignModule = function ( access, advanced, append, alt, alert )
-- Fetch global module
-- Precondition:
-- access -- string, with name of base module
-- advanced -- true, for require(); else mw.loadData()
-- append -- string, with subpage part, if any; or false
-- alt -- number, of wikidata item of root; or false
-- alert -- true, for throwing error on data problem
-- Postcondition:
-- Returns whatever, probably table
-- 2020-01-01
local storage = access;
local finer = function ()
if append then
storage = string.format( "%s/%s",
storage,
append );
end
end
local fun, lucky, r, suited;
if advanced then
fun = require;
else
fun = mw.loadData;
end
GlobalMod.globalModules = GlobalMod.globalModules or { };
suited = GlobalMod.globalModules[ access ];
if not suited then
finer();
lucky, r = pcall( fun, "Module:" .. storage );
end
if not lucky then
if not suited and
type( alt ) == "number" and
alt > 0 then
suited = string.format( "Q%d", alt );
suited = mw.wikibase.getSitelink( suited );
GlobalMod.globalModules[ access ] = suited or true;
end
if type( suited ) == "string" then
storage = suited;
finer();
lucky, r = pcall( fun, storage );
end
if not lucky and alert then
error( "Missing or invalid page: " .. storage );
end
end
return r;
end -- foreignModule()

local utilURL = function ()
-- Attach URLutil library module
-- Postcondition:
-- Returns table, with URLutil library
-- Throws error, if not available
if not URLutil then
local util = foreignModule( "URLutil",
true,
false,
WLink.globals.URLutil );
if type( util ) == "table" then
URLutil = util.URLutil();
else
util = "library URLutil invalid";
end
if type( URLutil ) ~= "table" then
error( util, 0 );
end
end
return URLutil;
end -- utilURL()

local cleanWikilink = function ( access )
-- Refine wikilink spacing and decode
-- Precondition:
-- access -- string, with presumable link
-- Postcondition:
-- Returns string, with pretty target
local r;
if not WLink.lrm then
WLink.lrm = mw.ustring.char( 0x200E );
WLink.rlm = mw.ustring.char( 0x200F );
end
r = access:gsub( "_", " " )
:gsub( " ", " " )
:gsub( " ", " " )
:gsub( " ", " " )
:gsub( " ", " " )
:gsub( "&lrm;", "" )
:gsub( "&rlm;", "" )
:gsub( WLink.lrm, "" )
:gsub( WLink.rlm, "" )
:gsub( "%s+", " " );
r = mw.text.decode( r );
return r;
end -- cleanWikilink()

local contentExtlink = function ( attempt )
-- Retrieve span of external link between brackets
-- Precondition:
-- attempt -- string, with presumable link
-- the first char is expected to be "["
-- Postcondition:
-- Returns string, number, number
-- string including whitespace
-- number with index of relevant "["
-- number with index after relevant "]"
-- false if nothing found
local r1 = false;
local r2 = false;
local r3 = attempt:find( "]", 2, true );
if r3 then
local s = attempt:sub( 2, r3 - 1 );
local i = s:find( "[", 1, true );
if i then
r1 = s:sub( i + 1 );
r2 = i;
else
r1 = s;
r2 = 1;
end
else
r3 = false;
end
return r1, r2, r3;
end -- contentExtlink()

local contentWikilink = function ( attempt )
-- Retrieve span of wikilink between brackets
-- Precondition:
-- attempt -- string, with presumable link
-- the first two chars are expected to be "[["
-- Postcondition:
-- Returns string, number, number
-- string including whitespace
-- number with index of relevant "[["
-- number with index after relevant "]]"
-- false if nothing found
local r1 = false;
local r2 = false;
local r3 = attempt:find( "]]", 3, true );
if r3 then
local s = attempt:sub( 3, r3 - 1 );
local i = s:find( "[[", 1, true );
if i then
r1 = s:sub( i + 2 );
r2 = i;
else
r1 = s;
r2 = 1;
end
end
return r1, r2, r3;
end -- contentWikilink()

local extractExtlink = function ( attempt )
-- Retrieve external link
-- Precondition:
-- attempt -- string, with presumable link
-- the first char is expected to be "["
-- Postcondition:
-- Returns string, string
-- first with target and title
-- second result false if not titled
-- false if nothing found
local r1 = false;
local r2 = false;
local s = contentExtlink( attempt );
if s then
local i = s:find( "%s", 1 );
if i then
r1 = s:sub( 1, i - 1 );
r2 = mw.text.trim( s:sub( i + 1 ) );
if r2 == "" then
r2 = false;
end
else
r1 = s;
end
if r1 then
r1 = mw.text.trim( r1 );
if r1 == "" or
not utilURL().isResourceURL( r1 ) then
r1 = false;
end
end
if not r1 then
r2 = false;
end
end
return r1, r2;
end -- extractExtlink()

local extractWikilink = function ( attempt )
-- Retrieve wikilink
-- Precondition:
-- attempt -- string, with presumable link
-- the first two chars are expected to be "[["
-- Postcondition:
-- Returns string, string
-- first with target
-- second result title, or false if not piped
-- false if nothing found
local r1 = false;
local r2 = false;
local s = contentWikilink( attempt );
if s then
local i = s:find( "|", 1, true );
if i then
r1 = s:sub( 1, i - 1 );
r2 = s:sub( i + 1 );
else
r1 = s;
end
r1 = mw.text.trim( r1 );
if r1 == "" then
r1 = false;
else
r1 = cleanWikilink( r1 );
end
end
return r1, r2;
end -- extractWikilink()

local farming = function ( already )
-- Retrieve wikifarm project information
-- Precondition:
-- already -- table, with wikilink components
-- Postcondition:
-- Returns table, with wikilink components extended
local r = already;
if not r.project then
local codes = { mediawiki = "mw",
wikibooks = "b",
wikidata = "d",
wikinews = "n",
wikipedia = "w",
wikiquote = "q",
wikisource = "s",
wikiversity = "v",
wikivoyage = "voy",
wiktionary = "wikt" };
local server = mw.site.server:gsub( "([/.])m%.",
"%1" )
:gsub( "%.beta%.wmflabs%.org$",
".org" );
local site = server:match( "[/.](%l+)%.org$" );
r.project = codes[ site ];
if r.project then
if not r.lang and
r.project ~= "mw" and r.project ~= "d" then
r.lang = server:match( "//(%l+)%." );
end
else
site = server:match( "//(%l+)%.wikimedia%.org$" );
if site == "commons" or site == "meta" then
r.project = site;
end
end
end
if r.project and r.ns and
( r.project == "commons" or
r.project == "d" or
r.project == "meta" or
r.project == "mw" ) then
r.language = true;
end
return r;
end -- farming()

local prefix = function ( ask )
-- Interprete prefix of language or project type
-- Precondition:
-- ask -- string, with presumable prefix
-- Postcondition:
-- Returns string,string or nil
-- first string one of "lead", "lang", "project"
-- second string is formatted value
-- type is one of "lead", "lang", "project"
-- nil if nothing found
local r1, r2;
local prefixes = { b = true,
c = "commons",
d = true,
commons = true,
m = "meta",
mediawiki = "mw",
mw = true,
meta = true,
n = true,
q = true,
s = true,
simple = false,
v = true,
voy = true,
w = true,
wikibooks = "b",
wikidata = "d",
wikinews = "n",
wikipedia = "w",
wikiquote = "q",
wikisource = "s",
wikiversity = "v",
wikivoyage = "voy",
wikt = true,
wiktionary = "wikt"
};
local s = mw.text.trim( ask );
if s ~= "" then
local p;
s = s:lower();
p = prefixes[ s ];
if p == true then
r1 = "project";
r2 = s;
elseif p then
r1 = "project";
r2 = p;
elseif p == false then
r1 = "lang";
r2 = s;
elseif s:match( "^%l%l%l?$" )
and mw.language.isSupportedLanguage( s ) then
r1 = "lang";
r2 = s;
end
end
return r1, r2;
end -- prefix()

local target = function ( attempt, lonely )
-- Retrieve first target (wikilink or URL), or entire string
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- lonely -- remove fragment, if true
-- Postcondition:
-- Returns string, number
-- string, with detected link target, or entire
-- number, with number of brackets, if found, or 2
local r1, r2 = WLink.getTarget( attempt );
if not r1 then
r1 = mw.text.trim( attempt );
r2 = 2;
end
if lonely then
local i = r1:find( "#", 1, true );
if i == 1 then
r1 = "";
elseif i then
r1 = r1:sub( 1, i - 1 );
end
end
return r1, r2;
end -- target()

function WLink.ansiPercent( attempt, alter )
-- Convert string by ANSI encoding rather than UTF-8 encoding
-- Precondition:
-- attempt -- string, with presumable ANSI characters
-- alter -- string or nil, to use for spaces instead of %20
-- Postcondition:
-- Returns string, encoded
local k, s;
local r = attempt;
if alter then
r = r:gsub( " ", alter );
end
for i = mw.ustring.len( r ), 1, -1 do
k = mw.ustring.codepoint( r, i, i );
if k <= 32 or k > 126 then
if k > 255 then
s = mw.ustring.sub( r, i, i );
if k > 2047 then
s = string.format( "%%%2X%%%2X%%%2X",
s:byte( 1, 1 ),
s:byte( 2, 2 ),
s:byte( 3, 3 ) );
else
s = string.format( "%%%2X%%%2X",
s:byte( 1, 1 ),
s:byte( 2, 2 ) );
end
else
s = string.format( "%%%02X", k );
end
r = string.format( "%s%s%s",
mw.ustring.sub( r, 1, i - 1 ),
s,
mw.ustring.sub( r, i + 1 ) );
end
end -- for --i
return r;
end -- WLink.ansiPercent()

function WLink.formatURL( adjust, assure )
-- Create bracketed link, if not yet
-- Precondition:
-- adjust -- string, with URL or domain/path or bracketed link
-- assure -- boolean, true for secure HTTP
-- Postcondition:
-- Returns string, with bracketed link
-- false on invalid format
local r;
if type( adjust ) == "string" then
if WLink.isBracketedLink( adjust ) then
r = adjust;
else
local url = mw.text.trim( adjust );
local host;
utilURL();
host = URLutil.getHost( adjust );
if not host then
url = "://" .. adjust;
if assure then
url = "s" .. url;
end
url = "http" .. url;
host = URLutil.getHost( url );
end
if host then
local path = URLutil.getRelativePath( url );
local show;
if path == "/" then
if not url:match( "/$" ) then
url = url .. "/";
end
show = host;
else
local i = path:find( "#" );
if i then
path = path:sub( 1, i - 1 );
end
show = host .. path;
end
r = string.format( "[%s %s]", url, show );
else
r = adjust;
end
end
else
r = false;
end
return r;
end -- WLink.formatURL()

function WLink.getArticleBase( attempt )
-- Retrieve generic article title, no fragment nor brackets
-- Precondition:
-- attempt -- string, with wikilink or page title
-- current page title, if missing
-- Postcondition:
-- Returns string, with identified lemma, or all
-- false on invalid format
local r;
if attempt then
local m;
r, m = target( attempt, true );
if m ~= 2 then
r = false;
end
else
r = mw.title.getCurrentTitle().text;
end
if r then
local sub = r:match( "^(.*%S) *%(.+%)$" );
if sub then
r = sub;
end
end
return r;
end -- WLink.getArticleBase()

function WLink.getBaseTitle( attempt )
-- Retrieve last segment in subpage, no fragment
-- Precondition:
-- attempt -- string, with wikilink or page title
-- Postcondition:
-- Returns string, with identified segment, or all
local r;
local s, m = target( attempt, true );
if m == 2 then
local sub = s:match( "/([^/]+)$" );
if sub then
r = sub;
else
r = s;
end
else
r = false;
end
return r;
end -- WLink.getBaseTitle()

function WLink.getEscapedTitle( attempt )
-- Retrieve escaped link title
-- Precondition:
-- attempt -- string, with presumable link title
-- Postcondition:
-- Returns string, with suitable link title
local s = mw.text.trim( attempt );
return s:gsub( "\n", " " )
:gsub( "%[", "[" )
:gsub( "%]", "]" )
:gsub( "|", "|" );
end -- WLink.getEscapedTitle()

function WLink.getExtension( attempt )
-- Retrieve media extension
-- Precondition:
-- attempt -- string, with wikilink (media link) or page title
-- if URL, PDF may be detected
-- Postcondition:
-- Returns string, with detected downcased media type
-- false if no extension found
local r = false;
local s, m = target( attempt );
if m == 2 then
s = s:match( "%.(%a+)$" );
if s then
r = s:lower();
end
elseif s:upper():match( "[%./](PDF)%W?" ) then
r = "pdf";
end
return r;
end -- WLink.getExtension()

function WLink.getFile( attempt )
-- Retrieve media page identifier
-- Precondition:
-- attempt -- string, with wikilink (media link) or page title
-- Postcondition:
-- Returns string, with detected file title
-- no namespace nor project
-- false if no file found
local r = false;
local s, m = target( attempt );
if m == 2 then
local slow = ":" .. s:lower();
local find = function ( a )
local seek = string.format( ":%s:().+%%.%%a+$",
a:lower() );
local join = slow:find( seek );
local ret;
if join then
ret = s:sub( join + #a + 1 );
end
return ret;
end;
r = find( "file" );
if not r then
local trsl = mw.site.namespaces[ 6 ];
r = find( trsl.name );
if not r then
trsl = trsl.aliases;
for k, v in pairs( trsl ) do
r = find( v );
if r then
break; -- for k, v
end
end -- for k, v
end
end
end
return r;
end -- WLink.getFile()

function WLink.getFragment( attempt )
-- Retrieve fragment
-- Precondition:
-- attempt -- string, with presumable fragment
-- Postcondition:
-- Returns string, with detected fragment
-- false if no address found
local r = false;
local s, m = target( attempt );
if s then
local i = s:find( "#", 1, true );
if i then
if i > 1 then
s = s:sub( i - 1 );
i = 2;
end
if s:find( "&#", 1, true ) then
s = mw.text.decode( s );
i = s:find( "#", 1, true );
if not i then
s = "";
i = 0;
end
end
s = s:sub( i + 1 );
r = mw.text.trim( s );
if r == "" then
r = false;
elseif m == 2 then
r = r:gsub( "%.(%x%x)", "%%%1" )
:gsub( "_", " " );
r = mw.uri.decode( r, "PATH" );
end
end
end
return r;
end -- WLink.getFragment()

function WLink.getLanguage( attempt )
-- Retrieve language project identifier
-- Precondition:
-- attempt -- string, with wikilink or page title
-- Postcondition:
-- Returns string, with detected downcased language identifier
-- false if no project language found
local r = false;
local s, m = WLink.getTarget( attempt );
if m == 2 then
local w = WLink.wikilink( s );
if w and w.lang then
r = w.lang;
end
end
return r;
end -- WLink.getLanguage()

function WLink.getLinktextProblem( attempt )
-- Which problem has this presumable link text?
-- Precondition:
-- attempt -- string, with presumable linktext
-- Postcondition:
-- Returns string, with error message, or false
local r;
if attempt:find( "]", 1, true ) then
r = "]";
elseif mw.text.unstripNoWiki( attempt ) ~= attempt then
r = "<nowiki>";
elseif attempt:find( "\n", 1, true ) then
r = "\n";
elseif mw.text.unstrip( attempt ) ~= attempt then
if not WLink.stripREF then
WLink.stripREF = string.format( "%c%c%c%c%s%c%c%c%c",
127, 39, 34, 96,
"UNIQ%-+ref%-%x+%-QINU",
96, 34, 39, 127 );
end
if mw.ustring.find( attempt, WLink.stripREF ) then
r = "<ref>";
end
end
if not r then
local i = attempt:find( "<", 1, true );
if i then
local s = mw.ustring.lower( attempt:sub( i ) );
local sign = true;
local skip;
while sign and not r do
skip, sign = s:match( "^([^<]*< *)(%l[%l%d]*)[ /]*.*>" );
if sign then
if htmlInline[ sign ] then
i = skip:len() + sign:len() + 1;
s = s:sub( i );
else
r = string.format( "<%s>", sign );
end
end
end -- while sign and not r
end
if not r then
local s = attempt .. " ";
if s:find( "ISBN ", 1, true ) then
r = s:match( "(ISBN %d[%-%d]+[%dxX])%W" );
end
if not r then
if s:find( "PMID ", 1, true ) then
r = s:match( "(PMID [1-9]%d*)%W" );
end
if not r then
if s:find( "RFC ", 1, true ) then
r = s:match( "(RFC [1-9]%d?%d?%d?)%W" );
end
end
end
end
end
return r or false;
end -- WLink.getLinktextProblem()

function WLink.getNamespace( attempt )
-- Retrieve namespace number
-- Precondition:
-- attempt -- string, with wikilink or page title
-- Postcondition:
-- Returns number, of detected namespace
-- false if no namespace found
local r = false;
local s, m = WLink.getTarget( attempt );
if m == 2 then
local w = WLink.wikilink( s );
if w and not w.lang and not w.project and w.ns then
r = w.ns;
end
end
return r;
end -- WLink.getNamespace()

function WLink.getNamespaced( area, attempt )
-- Retrieve page in namespace
-- Precondition:
-- area -- string or number, with some namespace spec
-- attempt -- string, with wikilink or page title or page name
-- Postcondition:
-- Returns page prefixed by namespace,
-- false if invalid
local r = false;
local s = type( area );
local room;
if s == "string" then
room = mw.site.namespaces[ tonumber( area ) or area ];
elseif s == "number" then
room = mw.site.namespaces[ area ];
end
if room then
local m;
s, m = WLink.getTarget( attempt );
if not s then
s = attempt;
elseif m ~= 2 then
s = false;
end
if s then
local w = WLink.wikilink( s );
if w and not w.lang and not w.project and
( not w.ns or w.ns == room.id ) then
r = string.format( "%s:%s",
room.name, w.title );
end
end
end
return r;
end -- WLink.getNamespaced()

function WLink.getPlain( attempt )
-- Retrieve text with all links replaced by link titles
-- Precondition:
-- attempt -- string, with wikitext
-- Postcondition:
-- Returns string, with modified wikitext without links
local r = attempt;
local i = 1;
local j, k, n, lean, s, shift, span, space, suffix;
while ( true ) do
j = r:find( "[", i, true );
if j then
suffix = r:sub( j );
i = j + 1;
lean = ( r:byte( i, i ) == 91 );
if lean then
s, k, n = contentWikilink( suffix );
else
s, k, n = contentExtlink( suffix );
end
if s then
if k > 1 then
n = n - k;
i = j + k + 1;
j = i - 1;
suffix = r:sub( j );
end
if lean then
s, shift = extractWikilink( suffix );
if s then
space = s:match( "^([^:]+):" );
if space then
space = mw.site.namespaces[ space ];
if space then
space = space.id;
end
end
if space == 6 or space == 14 then
shift = "";
elseif not shift then
shift = s;
end
else
s = "";
shift = "";
end
else
span, shift = extractExtlink( suffix );
if span then
if not shift then
shift = "";
end
else
shift = string.format( "[%s]", s );
end
i = i - 1;
end
if j > 1 then
s = r:sub( 1, j - 1 );
else
s = "";
end
r = string.format( "%s%s%s",
s, shift, r:sub( n + i ) );
i = i + #shift;
else
break; -- while true
end
else
break; -- while true
end
end -- while true
return r;
end -- WLink.getPlain()

function WLink.getProject( attempt )
-- Retrieve wikifarm project identifier
-- Precondition:
-- attempt -- string, with wikilink or page title
-- Postcondition:
-- Returns string, with detected downcased project identifier
-- false if no project identifier found
local r = false;
local s, m = WLink.getTarget( attempt );
if m == 2 then
local w = WLink.wikilink( s );
if w and w.project then
r = w.project;
end
end
return r;
end -- WLink.getProject()

function WLink.getTalkPage( attempt )
-- Retrieve talk page name for attempt, or that page name itself
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns string or false
local r = false;
local s, m = WLink.getTarget( attempt );
if m ~= 2 and attempt then
s = mw.text.trim( attempt );
end
if s and s ~= "" then
local w = mw.title.new( s );
if w then
w = w.talkPageTitle;
if w then
r = w.prefixedText;
end
end
end
return r;
end -- WLink.getTalkPage()

function WLink.getTarget( attempt )
-- Retrieve first target (wikilink or URL)
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns string, number
-- string, with first detected link target
-- number, with number of brackets, if found
-- false if nothing found
local r1 = false;
local r2 = false;
local i = attempt:find( "[", 1, true );
if i then
local m;
r1 = attempt:sub( i );
if r1:byte( 2, 2 ) == 91 then
m = 2;
r1 = extractWikilink( r1 );
else
m = 1;
r1 = extractExtlink( r1 );
end
if r1 then
r2 = m;
end
else
r1 = attempt:match( "%A?([hf]t?tps?://%S+)%s?" );
if r1 then
if utilURL().isResourceURL( r1 ) then
r2 = 0;
else
r1 = false;
end
else
r1 = false;
end
end
return r1, r2;
end -- WLink.getTarget()

function WLink.getTargetPage( attempt )
-- Retrieve first target page (page name or URL of page)
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns string, with first detected linked page
-- false if nothing found
local r1, r2 = WLink.getTarget( attempt );
if r1 then
local i = r1:find( "#", 1, true );
if i then
if i == 1 then
r1 = false;
else
r1 = mw.text.trim( r1:sub( 1, i - 1 ) );
end
end
end
return r1, r2;
end -- WLink.getTargetPage()

function WLink.getTitle( attempt )
-- Retrieve first link title (wikilink or URL), or wikilink target
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns string, with first detected link target
-- false if nothing found
local r = false;
local i = attempt:find( "[", 1, true );
if i then
local s1, s2;
r = attempt:sub( i );
if r:byte( 2, 2 ) == 91 then
s1, s2 = extractWikilink( r );
if s2 then
r = s2;
else
r = s1;
end
else
s1, r = extractExtlink( r );
end
end
return r;
end -- WLink.getTitle()

function WLink.getWeblink( attempt, anURLutil )
-- Retrieve bracketed link from resource URL
-- Precondition:
-- attempt -- string, with URL, or something different
-- anURLutil -- library module object, or nil
-- Postcondition:
-- Returns string, with first detected link target
-- false if nothing found
local second = ".ac.co.go.gv.or.";
local r;
if type( anURLutil ) == "table" then
URLutil = anURLutil;
else
utilURL();
end
if URLutil.isResourceURL( attempt ) then
local site = URLutil.getAuthority( attempt );
local service = attempt;
local show;
if #attempt == #site then
site = site .. "/";
end
show = URLutil.getTop3domain( "//" .. site );
if show then
local scan = "[%./](%a[%a%%%-]*%a)(%.%l%l%.)(%a+)$";
local search = "." .. show;
local s1, s2, s3 = search:match( scan );
if s2 then
if not second:find( s2, 1, true ) then
show = string.format( "%s%s", s2:sub( 2 ), s3 );
end
else
show = false;
end
end
if not show then
show = URLutil.getTop2domain( "//" .. site );
if not show then
show = URLutil.getHost( "//" .. site );
end
end
if not service:match( "^[a-z:]*//.+/" ) then
service = service .. "/";
end
r = string.format( "[%s %s]", service, show );
else
r = attempt;
end
return r;
end -- WLink.getWeblink()

function WLink.getWikilink( attempt, appear )
-- Retrieve bracketed link from text
-- Precondition:
-- attempt -- string, with current target, or plain
-- appear -- string, with link title, or nil
-- Postcondition:
-- Returns string, with first detected link target
-- false if nothing found
local r = WLink.pageTarget( attempt );
if r then
if appear then
local show = WLink.getEscapedTitle( appear );
if show ~= r and show ~= "" then
r = string.format( "%s|%s", r, show );
end
end
r = string.format( "[[%s]]", r );
end
return r;
end -- WLink.getWikilink()

function WLink.isBracketedLink( attempt )
-- Does attempt match a bracketed link?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local r = false;
local i = attempt:find( "[", 1, true );
if i then
local s = attempt:sub( i );
if s:byte( 2, 2 ) == 91 then
s = extractWikilink( s );
else
s = extractExtlink( s );
end
if s then
r = true;
end
end
return r;
end -- WLink.isBracketedLink()

function WLink.isBracketedURL( attempt )
-- Does attempt match a bracketed URL?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local s, r = WLink.getTarget( attempt );
return ( r == 1 );
end -- WLink.isBracketedURL()

function WLink.isCategorization( attempt )
-- Does attempt match a categorization?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local r = false;
local s, m = WLink.getTarget( attempt );
if m == 2 then
local w = WLink.wikilink( s );
if w and w.ns == 14
and not ( w.lead or w.lang or w.project )
and w.title ~= "" then
r = true;
end
end
return r;
end -- WLink.isCategorization()

function WLink.isExternalLink( attempt )
-- Does attempt match an external link?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local s, r = WLink.getTarget( attempt );
if r then
r = ( r < 2 );
end
return r;
end -- WLink.isExternalLink()

function WLink.isInterlanguage( attempt )
-- Does attempt match an interlanguage link?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local r = false;
local s, m = WLink.getTarget( attempt );
if m == 2 then
local w = WLink.wikilink( s );
if w and w.lang and not w.project and not w.lead
and w.title ~= "" then
r = true;
end
end
return r;
end -- WLink.isInterlanguage()

function WLink.isInterwiki( attempt )
-- Does attempt match an interwiki link within wikifarm?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local r = false;
local s, m = WLink.getTarget( attempt );
if m == 2 then
local w = WLink.wikilink( s );
if w and ( w.lang or w.project ) and w.title ~= "" then
r = true;
end
end
return r;
end -- WLink.isInterwiki()

function WLink.isMedia( attempt )
-- Does attempt match a media translusion?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local r = false;
local s, m = WLink.getTarget( attempt );
if m == 2 then
local w = WLink.wikilink( s );
if w and w.ns == 6
and not ( w.lead or w.lang or w.project )
and w.title ~= ""
and WLink.getExtension( w.title ) then
r = true;
end
end
return r;
end -- WLink.isMedia()

function WLink.isTalkPage( attempt )
-- Does attempt describe a talk page?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local r = false;
local s, m = WLink.getTarget( attempt );
if m ~= 2 and attempt then
s = mw.text.trim( attempt );
end
if s and s ~= "" then
local w = mw.title.new( s );
if w then
r = w.isTalkPage;
end
end
return r;
end -- WLink.isTalkPage()

function WLink.isTitledLink( attempt )
-- Does attempt match a titled link?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local r = false;
local i = attempt:find( "[", 1, true );
if i then
local c, n;
local s = attempt:sub( i );
if s:byte( 2, 2 ) == 91 then
n = s:find( "%]%]", 5 );
c = "|";
else
n = s:find( "%]", 8 );
c = "%s%S";
end
if n then
local m = s:find( c, 2 );
if m and m + 1 < n and WLink.getTarget( attempt ) then
r = true;
end
end
end
return r;
end -- WLink.isTitledLink()

function WLink.isValidLink( attempt )
-- Does attempt match a link?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local u, r = WLink.getTarget( attempt );
if r then
if r < 2 then
if u:find( "''", 1, true ) then
r = false;
else
r = true;
end
else
r = true;
end
end
return r;
end -- WLink.isValidLink()

function WLink.isValidLinktext( attempt, allow )
-- Is attempt a plain inline text?
-- Precondition:
-- attempt -- string, with presumable linktext
-- allow -- boolean or nil, if multiline permitted
-- Postcondition:
-- Returns boolean
local s;
if allow and s:find( "\n", 1, true ) then
s = attempt:gsub( "\n", " " );
else
s = attempt;
end
return not WLink.getLinktextProblem( s );
end -- WLink.isValidLinktext()

function WLink.isWikilink( attempt )
-- Does attempt match a wikilink?
-- Precondition:
-- attempt -- string, with presumable link somewhere
-- Postcondition:
-- Returns boolean
local s, m = WLink.getTarget( attempt );
return ( m == 2 );
end -- WLink.isWikilink()

function WLink.pageLink( attempt, appear, assure )
-- Create safely standardized wikilink target of a page
-- attempt -- string, with presumable link
-- appear -- string or true or nil, with link title
-- assure -- string or nil, shield against wiki template syntax
-- "URL" or "WIKI"
-- Postcondition:
-- Returns string with link target
local r = WLink.pageTarget( attempt, assure );
if appear then
local show;
if type( appear ) == "string" then
show = appear;
else
show = attempt;
end
r = string.format( "%s|%s", r, show );
end
return r;
end -- WLink.pageLink()

function WLink.pageTarget( attempt, assure )
-- Create standardized wikilink target of a page
-- Precondition:
-- attempt -- string, with presumable link
-- expected to be enclosed in "[[" "]]"
-- else wikilink
-- table, of assignments with { type, value }
-- type is one of "lead",
-- "project", "lang",
-- "ns", "space", "title"
-- assure -- string or nil, shield against wiki template syntax
-- "URL" or "WIKI"
-- Postcondition:
-- Returns string with link target
local p = type( attempt );
local s = assure;
local r;
if p == "string" then
p = WLink.wikilink( attempt );
elseif p == "table" then
p = attempt;
else
p = false;
end
if p then
local site = p.project;
local slang = p.lang;
local lead;
if p.title:sub( 1, 1 ) == "#" then
p.title = mw.title.getCurrentTitle().text + p.title;
end
if p.ns then
if not slang then
p = farming( p );
end
if p.lang and
p.lang ~= mw.language.getContentLanguage():getCode() then
p.language = true;
end
if p.language then
p.space = mw.site.namespaces[ p.ns ].canonicalName;
end
lead = ( p.ns == 6 or p.ns == 14 );
end
if slang then
lead = true;
end
if s == "WIKI" then
if not site and
( lead or
( not p.space and
p.title and p.title:match( "^[*;]" ) ) ) then
p = farming( p );
site = p.project;
slang = p.lang;
end
s = false;
end
if site then
r = site .. ":";
elseif lead then
r = ":";
else
r = "";
end
if slang then
r = string.format( "%s%s:", r, slang );
end
if p.space then
r = string.format( "%s%s:", r, p.space );
end
if p.title then
r = r .. p.title;
end
if r == "" then
r = false;
end
end
if not r then
p = { lang = mw.language.getContentLanguage():getCode() };
if s == "WIKI" then
r = WLink.pageTarget( p, s );
s = false;
else
r = string.format( ":%s:", p.lang );
end
end
if s == "URL" and r:match( "^[*#;:]" ) then
r = mw.uri.encode( r:sub( 1, 1 ) ) .. r:sub( 2 );
end
return r;
end -- WLink.pageTarget()

function WLink.wikilink( attempt )
-- Retrieve wikilink components
-- Precondition:
-- attempt -- string, with presumable link
-- expected to be enclosed in "[[" "]]"
-- else wikilink
-- Postcondition:
-- Returns table or false
-- table of assignments with { type, value }
-- type is one of "lead",
-- "project", "lang",
-- "ns", "space", "title"
-- false if nothing found
local s = contentWikilink( attempt or "" );
local got, i, n, r;
if not s then
s = attempt;
end
if s:find( "%", 1, true ) then
s = mw.uri.decode( s, "PATH" );
end
i = s:find( "|", 1, true );
if i then
s = s:sub( 1, i - 1 );
end
got = mw.text.split( s, ":" );
n = table.maxn( got );
if n == 1 then
r = { title = mw.text.trim( s ) };
else
local j, k, o, v;
r = { title = "" };
while ( got[ 1 ] == "" ) do
r.lead = true;
table.remove( got, 1 );
n = n - 1;
end -- while got[ 1 ] == ""
if n > 4 then
k = 4;
elseif n > 1 then
k = n - 1;
else
k = 1;
end
j = k;
for i = 1, j do
s = mw.text.trim( got[ i ] );
if s ~= "" then
o = mw.site.namespaces[ s ];
if o then
r.ns = o.id;
r.space = o.name;
k = i + 1;
j = i - 1;
break; -- for i
end
end
end -- for i
for i = 1, j do
o, v = prefix( got[ i ] );
if o then
if r[ o ] then
k = i;
break; -- for i
else
if i >= k then
k = i + 1;
end
r[ o ] = v;
end
else
if i == 1 and r.ns then
r.ns = false;
r.space = false;
end
k = i;
break; -- for i
end
end -- for i
if k > 0 then
for i = k, n do
r.title = r.title .. got[ i ];
if i < n then
r.title = r.title .. ":";
end
end -- for i
end
end
r.title = cleanWikilink( r.title );
if r.lead and
( r.project or
( not r.lang and r.ns ~= 6 and r.ns ~= 14 ) ) then
r.lead = false;
end
return r;
end -- WLink.wikilink()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version or "wikidata" or "~"
-- or false
-- Postcondition:
-- Returns string -- with queried version, also if problem
-- false -- if appropriate
local last = ( atleast == "~" );
local since = atleast;
local r;
if last or since == "wikidata" then
local item = Failsafe.item;
since = false;
if type( item ) == "number" and item > 0 then
local ent = mw.wikibase.getEntity( string.format( "Q%d",
item ) );
if type( ent ) == "table" then
local vsn = ent:formatPropertyValues( "P348" );
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false;
else
r = vsn.value;
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial;
else
r = false;
end
end
return r;
end -- Failsafe.failsafe()

local function Template( frame, action, leave, lone )
-- Run actual code from template transclusion
-- Precondition:
-- frame -- object
-- action -- string, with function name
-- leave -- true: keep whitespace around
-- lone -- true: permit call without parameters
-- Postcondition:
-- Return string; might be error message
local lucky = true;
local s = false;
local r = false;
local safe, space;
for k, v in pairs( frame.args ) do
if k == 1 then
if leave then
s = v;
else
s = mw.text.trim( v );
end
elseif ( k == 2 and
( action == "getNamespaced" or
action == "getWikilink" or
action == "pageLink" ) ) or
( k == "space" and action == "ansiPercent" ) then
v = mw.text.trim( v );
if v ~= "" then
space = v;
end
elseif k == "safe" and action == "pageLink" then
v = mw.text.trim( v );
if v ~= "" then
safe = v;
end
elseif k == "lines" and action == "isValidLinktext" then
space = ( k == "1" );
elseif k ~= "template" then
lucky = false;
if r then
r = r .. "|";
else
r = "Unknown parameter: ";
end
r = string.format( "%s%s=", r, k );
end
end -- for k, v
if lucky then
if s or lone then
lucky, r = pcall( WLink[ action ], s, space, safe );
else
r = "Parameter missing";
lucky = false;
end
end
if lucky then
if type( r ) == "boolean" then
if r then
r = "1";
else
r = "";
end
end
else
local e = mw.html.create( "span" );
r = tostring( e:addClass( "error" )
:wikitext( r ) );
end
return r;
end -- Template()

-- Export
local p = { };

p.ansiPercent = function ( frame )
return Template( frame, "ansiPercent" );
end
p.formatURL = function ( frame )
return Template( frame, "formatURL" );
end
p.getArticleBase = function ( frame )
return Template( frame, "getArticleBase", false, true );
end
p.getBaseTitle = function ( frame )
return Template( frame, "getBaseTitle" );
end
p.getEscapedTitle = function ( frame )
return Template( frame, "getEscapedTitle" );
end
p.getExtension = function ( frame )
return Template( frame, "getExtension" );
end
p.getFile = function ( frame )
return Template( frame, "getFile" );
end
p.getFragment = function ( frame )
return Template( frame, "getFragment" );
end
p.getInterwiki = function ( frame )
return Template( frame, "getInterwiki" );
end
p.getLanguage = function ( frame )
return Template( frame, "getLanguage" );
end
p.getLinktextProblem = function ( frame )
return Template( frame, "getLinktextProblem" );
end
p.getNamespace = function ( frame )
return tostring( Template( frame, "getNamespace" ) );
end
p.getNamespaced = function ( frame )
return tostring( Template( frame, "getNamespaced" ) );
end
p.getPlain = function ( frame )
return Template( frame, "getPlain" );
end
p.getProject = function ( frame )
return Template( frame, "getProject" );
end
p.getTalkPage = function ( frame )
return Template( frame, "getTalkPage" );
end
p.getTarget = function ( frame )
return Template( frame, "getTarget" );
end
p.getTargetPage = function ( frame )
return Template( frame, "getTargetPage" );
end
p.getTitle = function ( frame )
return Template( frame, "getTitle" );
end
p.getWeblink = function ( frame )
return Template( frame, "getWeblink" );
end
p.getWikilink = function ( frame )
return Template( frame, "getWikilink" );
end
p.isBracketedLink = function ( frame )
return Template( frame, "isBracketedLink" );
end
p.isBracketedURL = function ( frame )
return Template( frame, "isBracketedURL" );
end
p.isCategorization = function ( frame )
return Template( frame, "isCategorization" );
end
p.isExternalLink = function ( frame )
return Template( frame, "isExternalLink" );
end
p.isInterlanguage = function ( frame )
return Template( frame, "isInterlanguage" );
end
p.isInterwiki = function ( frame )
return Template( frame, "isInterwiki" );
end
p.isMedia = function ( frame )
return Template( frame, "isMedia" );
end
p.isTalkPage = function ( frame )
return Template( frame, "isTalkPage" );
end
p.isTitledLink = function ( frame )
return Template( frame, "isTitledLink" );
end
p.isValidLink = function ( frame )
return Template( frame, "isValidLink" );
end
p.isValidLinktext = function ( frame )
return Template( frame, "isValidLinktext" );
end
p.isWeblink = function ( frame )
return Template( frame, "isWeblink" );
end
p.isWikilink = function ( frame )
return Template( frame, "isWikilink" );
end
p.pageLink = function ( frame )
return Template( frame, "pageLink" );
end
p.failsafe = function ( frame )
local s = type( frame );
local since;
if s == "table" then
since = frame.args[ 1 ];
elseif s == "string" then
since = frame;
end
if since then
since = mw.text.trim( since );
if since == "" then
since = false;
end
end
return Failsafe.failsafe( since ) or "";
end -- p.failsafe
p.WLink = function ()
return WLink;
end

return p;

Modul:Vorlage:lang

2022-02-23T14:42:27Z

Admin: 1 Version importiert

local Export = { serial = "2019-10-19",
suite = "lang",
item = 26826825 }
--[=[
Vorlage:lang und Sprachnamenvorlagen usw. unterstützen
]=]
local Failsafe = Export
local GlobalMod = Export

local Config = {
errCat = false,
errClass = "error_lang",
errClasses = false,
errHide = true,
errNS = false,
errDoubled = { en = "Doubled:",
de = "Doppelangabe:" },
errEmpty = { en = "Empty parameter value",
de = "Parameterwert fehlt" },
errInvalid = { en = "Invalid:",
de = "Ungültig:" },
errMissing = { en = "Missing parameter",
de = "Parameter fehlt" },
errSuggest = { en = "'%s' * probably '%s' intended",
de = "'%s' * vermutlich ist '%s' gemeint" },
errUnkown = { en = "Unkown parameter:",
de = "Parameter unbekannt:" },
ipa = "IPA",
keyBase = 100,
keyProject = 200,
keyAncient = 300,
keyTranslate = 400,
params = { "Text1",
"Audio",
"IPA",
"class",
"lenient",
"script",
"style",
"nachgestellt",
"demo",
"demo2",
"demo3",
"demo4",
"NoCat" },
percents = false,
orderOther = { grc = 1,
hbo = 2,
la = 3,
en = 9 },
owns = { de = "‚%s‘" },
sepComma = "Latn Armn Cyrl Grek Thai",
site = "Latn",
tmplAudio = false, -- template for media player link
tmplLang = false, -- template for language name link
tmplStyles = false,
wikidata = { Multilingual = 47541920,
ISO15924 = 71584769,
["ISO15924/codes"] = 71840276,
TemplUtl = 52364930 }
}

local foreignModule = function ( access, advanced, append, alt, alert )
-- Fetch global module
-- Precondition:
-- access -- string, with name of base module
-- advanced -- true, for require(); else mw.loadData()
-- append -- string, with subpage part, if any; or false
-- alt -- number, of wikidata item of root; or false
-- alert -- true, for throwing error on data problem
-- Postcondition:
-- Returns whatever, probably table
-- 2019-10-29
local storage = access
local finer = function ()
if append then
storage = string.format( "%s/%s",
storage,
append )
end
end
local fun, lucky, r, suited
if advanced then
fun = require
else
fun = mw.loadData
end
GlobalMod.globalModules = GlobalMod.globalModules or { }
suited = GlobalMod.globalModules[ access ]
if not suited then
finer()
lucky, r = pcall( fun, "Module:" .. storage )
end
if not lucky then
if not suited and
type( alt ) == "number" and
alt > 0 then
suited = string.format( "Q%d", alt )
suited = mw.wikibase.getSitelink( suited )
GlobalMod.globalModules[ access ] = suited or true
end
if type( suited ) == "string" then
storage = suited
finer()
lucky, r = pcall( fun, storage )
end
if not lucky and alert then
error( "Missing or invalid page: " .. storage, 0 )
end
end
return r
end -- foreignModule()

local function Fetch( ask )
-- Fetch module (require)
-- Parameter:
-- ask -- string, with name
-- "ISO15924"
-- "Multilingual"
-- "TemplUtl"
-- Returns string, with error message, if not available
local ext = Config[ ask ]
local r
if not ext and ext ~= false then
ext = foreignModule( ask,
true,
false,
Config.wikidata[ ask ] )
if type( ext ) == "table" then
Config[ ask ] = ext
if type( ext[ ask ] ) == "function" then
Config[ ask ] = ext[ ask ]()
end
end
if type( Config[ ask ] ) ~= "table" then
Config[ ask ] = false
if not ext then
ext = "Invalid library *** Module:" .. ask
end
ext = mw.html.create( "span" )
:attr( "class", "error" )
:wikitext( ext )
r = tostring( ext )
end
end
return r
end -- Fetch()

local function Frame()
-- Fetch current frame
-- Returns frame
if not Config.frame then
Config.frame = mw.getCurrentFrame()
end
return Config.frame
end -- Frame()

local function Friend()
-- Fetch Module:ISO15924/codes
if not Config.codesISO15924 then
Config.codesISO15924 = foreignModule( "ISO15924",
false,
"codes",
Config.wikidata.ISO15924 )
if type( Config.codesISO15924 ) ~= "table" then
Config.codesISO15924 = { }
end
end
return Config.codesISO15924
end -- Friend()

local function Fulfil( access, args )
-- Expand template
-- apply -- string, with template name
-- args -- table, with parameters
-- Returns string
-- Throws error, if template not existing
return Frame():expandTemplate{ title = access,
args = args }
end -- Fulfil()

local function facet( assign )
-- Format language name
-- apply -- string, with language name, might be linked
-- Returns string
local e = mw.html.create( "span" )
:css( { ["font-style"] = "normal",
["font-weight"] = "normal" } )
:wikitext( assign )
return tostring( e )
end -- facet()

local function facility()
-- Fetch current site language
-- Returns language code
if not Config.standard then
Config.standard = mw.language.getContentLanguage():getCode()
end
return Config.standard
end -- facility()

local function factory( apply )
-- Localization of messages
-- apply -- string, with message key
-- Returns message text; at least english
local entry = Config[ apply ]
local r
if entry then
r = entry[ facility() ]
if not r then
r = entry.en
end
else
local e = mw.html.create( "span" )
:attr( "class", "error" )
:wikitext( string.format( "????.%s.????",
apply ) )
r = tostring( e )
end
return r
end -- factory()

local function faculty( adjust )
-- Test template arg for boolean
-- adjust -- string or nil
-- Returns boolean
local s = type( adjust )
local r
if s == "string" then
r = mw.text.trim( adjust )
r = ( r ~= "" and r ~= "0" and r ~= "-" )
elseif s == "boolean" then
r = adjust
else
r = false
end
return r
end -- faculty()

local function familiar( ask, assign )
-- Check whether valid transcription for context
-- ask -- string, with transcription code
-- assign -- string or nil, with language or scripting key
-- Returns boolean
local r
Fetch( "ISO15924" )
if Config.ISO15924 then
r = Config.ISO15924.isTrans( ask, assign, Config.site )
end
return r
end -- familiar()

local function family()
-- attempt to load local config
if not Config.data then
local sub = string.format( "%s/config", Frame():getTitle() )
local lucky
lucky, Config.data = pcall( mw.loadData, sub )
if type( Config.data ) == "table" then
for k, v in pairs( Config.data ) do
Config[ k ] = v
end -- for k, v
else
Config.data = sub .. " not found"
end
end
end -- family()

local function fault( alert, about, assign )
-- Format message with class="error" or similar
-- alert -- string, with message key
-- about -- string, with explanation
-- assign -- true, when standard category to be fired
-- Returns message with markup
local story = factory( alert )
local env = Frame():getParent()
local err = mw.html.create( "span" )
local r
err:addClass( Config.errClass )
:css( { ["margin-left"] = "1em",
["margin-right"] = "1em" } )
family()
if env then
story = string.format( "[[%s]] – %s",
env:getTitle(), story )
end
if about then
story = string.format( "%s %s", story, about )
end
if Config.errClasses then
err:addClass( Config.errClasses )
end
err:wikitext( story )
r = Fetch( "TemplUtl" )
if Config.TemplUtl then
r = Config.TemplUtl.failure( tostring( err ),
not Config.errHide,
false,
Frame() )
end
if assign and type( Config.errCat ) == "string" then
if Config.errNS then
local ns = mw.title.getCurrentTitle().namespace
local st = type( Config.errNS )
if st == "string" then
local space = string.format( ".*%%s%d%%s.*", ns )
local spaces = string.format( " %s ", Config.errNS )
if spaces:match( space ) then
Config.errNS = false
end
elseif st == "table" then
for i = 1, #Config.errNS do
if Config.errNS[ i ] == ns then
Config.errNS = false
break -- for i
end
end -- for i
end
end
if not Config.errNS then
r = string.format( "%s[[Category:%s]]", r, Config.errCat )
end
end
return r
end -- fault()

local function features( apply, assign )
-- Equip element with script attributes
-- apply -- mw.html element
-- assign -- string, with script code
if type( Config.percents ) == "table" then
local more = Config.percents[ assign ]
if more then
apply:css( "font-size", string.format( "%d%%", more ) )
end
end
end -- features()

local function fill( apply )
-- Expand language name template
-- apply -- string, with code
-- Returns string, identical apply in case of error
local r = apply
local template
family()
template = Config.tmplLang
if type( template ) == "table" then
local source = template.title
if type( source ) ~= "string" then
if type( template.namePat ) == "string" and
template.namePat:find( "%s", 1, true ) then
source = string.format( template.namePat, apply )
end
end
if type( source ) == "string" then
local lucky, s = pcall( Fulfil, source )
if lucky then
r = s
end
end
end
return r
end -- fill()

local function first( assign, apply )
-- Equip element with TemplateStyles
-- assign -- string, with script code
-- apply -- mw.html element, or false
-- Returns string, perhaps with tag
local r
if type( Config.tmplStyles ) == "table" then
local source = Config.tmplStyles[ assign ]
if source then
r = Frame():extensionTag( "templatestyles",
nil,
{ src = source } )
if apply then
apply:wikitext( r )
end
end
end
return r or ""
end -- first()

local function fit( acquire )
-- Retrieve script code for language
-- acquire -- string, with language code
-- Returns string or false
local r
local iso639script = Friend().iso639script
if type( iso639script ) == "table" then
r = iso639script[ acquire ]
if type( r ) == "table" then
r = r[ 1 ]
end
end
return r
end -- fit()

local function flag( already, apply )
-- Check whether space separated classes contain
-- already -- string or false, with classes
-- apply -- string or false, with single class
-- Returns true, if apply is in already
local r
if already then
if apply then
local classes = mw.text.split( already, "%s+" )
local plus = mw.text.split( apply, "%s+" )
local single
for i = 1, #plus do
single = plus[ i ]
for k = 1, #classes do
if classes[ k ] == single then
single = false
break -- for k
end
end -- for k
if single then
table.insert( classes, single )
end
end -- for i
r = table.concat( classes, " " )
else
r = already
end
else
r = apply
end
return r
end -- flag()

local function flatten( apply )
-- Trim any whitespace, even HTML encoded
-- apply -- string
-- Returns string, or false if empty
local r = apply
if r:find( "&" ) then
r = r:gsub( " ", " " )
:gsub( " ", " " )
:gsub( "&zwnj;", "‌" )
:gsub( "&zwj;", "‍" )
:gsub( "&lrm;", "‎" )
:gsub( "&rlm;", "‏" )
if r:find( "&#" ) then
local f = function ( ax, an )
local k
if ax == "x" then
k = 16
else
k = 10
end
return mw.ustring.char( tonumber( an, k ) )
end
r = r:gsub( "&#(x?)(%x+);", f )
end
end
if not Config.patternWS then
Config.patternWS = mw.ustring.char( 91,
1, 45, 32,
160,
8194, 45, 8207,
8239,
93,
43 )
end
r = mw.ustring.gsub( r, "^" .. Config.patternWS, "" )
r = mw.ustring.gsub( r, Config.patternWS .. "$", "" )
if r == "" then
r = false
end
return r
end -- flatten()

local function follow( affine )
-- Retrieve appropriate separator
-- affine -- string or nil, with code of script
-- Returns string, with separator (comma) or not
local r
if affine then
if Config.sepComma:find( affine, 1, true ) then
r = ","
else
r = ""
end
else
r = ","
end
return r
end -- follow()

local function foreign( apply, acquire, advanced, affine )
-- Format text in some language
-- apply -- string, with text
-- acquire -- string, with basic code of language
-- advanced -- string, with full code of language
-- affine -- string or nil, with code of script
-- Returns string
local story = apply
local script = affine
local p = { ["font-weight"] = "normal" }
local ltr, r
if advanced == acquire then
ltr = not mw.language.new( acquire ):isRTL()
elseif not script and advanced:find( "-", 3, true ) then
local parts = mw.text.split( advanced, "-", true )
if #parts > 1 and parts[ 2 ]:match( "^%u%l%l%l$" ) then
script = parts[ 2 ]
end
end
if script then
local rtl = Friend().rtl
if type( rtl ) == "table" then
ltr = not rtl[ script ]
end
end
if ltr then
local e = mw.html.create( "span" )
:attr( "lang", advanced )
local s = "normal"
if acquire == facility()
and Config.owns[ acquire ] then
story = string.format( Config.owns[ acquire ], apply )
elseif advanced == acquire and Config.site == "Latn" or
advanced == acquire .. "-Latn" then
s = "italic"
end
p["font-style"] = s
e:css( p )
:wikitext( story )
r = tostring( e )
else
p["font-style"] = "normal"
r = Export.fold( { css = p,
SCRIPTING = script },
{ [ 1 ] = acquire,
[ 2 ] = apply,
lang = advanced } )
end
return r
end -- foreign()

local function foreigns( ahead, aliens, alone )
-- Create list of translations
-- ahead -- string, with leading separator
-- aliens -- sequence table, with assignment tables
-- alone -- boolean, no other elements in collection yet
-- Returns string, starting with separator (comma)
local pars = { }
local sep = ahead
local lone = alone
local r = ""
local k, lucky, s, t
family()
facility()
Fetch( "Multilingual" )
for i = 1, #aliens do
t = aliens[ i ]
if t.short == Config.standard then
t.m = Config.keyProject
t.n = 0
else
k = Config.orderOther[ t.short ]
if k then
t.n = k
t.m = Config.keyAncient
end
lone = false
end
t.n = t.m + t.n
end -- for i
table.sort( aliens,
function ( a1, a2 )
return ( a1.n < a2.n )
end )
for i = 1, #aliens do
t = aliens[ i ]
if lone then
s = ""
sep = ""
else
s = false
if t.short == Config.slang and
t.script and
t.n > 0 then
Fetch( "ISO15924" )
if Config.ISO15924 then
s = Config.ISO15924.scriptName( t.script )
if s == t.script then
s = false
end
end
end
if not s and t.n > Config.keyProject then
s = fill( t.short )
end
if not s then
Fetch( "Multilingual" )
s = mw.language.fetchLanguageName( t.short,
Config.standard )
if Config.Multilingual and
Config.Multilingual.isMinusculable( s ) then
s = mw.ustring.lower( mw.ustring.sub( s, 1, 1 ) )
.. mw.ustring.sub( s, 2 )
end
end
end
r = string.format( "%s%s %s %s",
r,
sep,
s,
foreign( t.story,
t.short,
t.slang,
t.script ) )
sep = follow( t.script )
end -- for i
return r
end -- foreigns()

local function friend( assigned, apply )
-- Transcription unit
-- assigned -- string, transcription ID
-- apply -- string, transcription text
-- Returns string
local e = mw.html.create( "span" )
:addClass( Config.site )
:attr( "lang",
string.format( "%s-%s",
Config.slang,
Config.site ) )
:css( { ["font-weight"] = "normal" } )
:wikitext( apply )
local r, s
if Config.site == "Latn" then
s = "italic"
else
s = "normal"
end
e:css( { ["font-style"] = s } )
if type( Config.transys ) == "table" and
type( Config.transys[ assigned ] ) == "table" then
local transys = Config.transys[ assigned ]
if transys.class then
e:addClass( transys.class )
end
if transys.show then
s = transys.show
else
s = assigned
end
if transys.support then
if s == transys.support then
s = string.format( "[[%s]]", s )
else
s = string.format( "[[%s|%s]]", transys.support, s )
end
end
else
s = assigned
end
r = string.format( "%s %s%s",
s, first( Config.site ), tostring( e ) )
return r
end -- friend()

local function frontend( action, argsF, argsT, about )
-- Template service
-- action -- string, "flat" or "full" etc.
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
-- about -- string or nil, invocation name
-- Returns frame
local lucky, r
lucky, r = pcall( Export[ action ], argsF, argsT )
if not lucky then
local e = mw.html.create( "span" )
:attr( "class", "error" )
if about then
r = string.format( "{{%s}} %s", about, r )
end
e:wikitext( r )
r = tostring( e )
end
return r
end -- frontend()

local function frontier( frame, action )
-- Template transclusion
-- frame -- object
-- action -- string, "flat" or "full" etc.
-- Returns appropriate string
Config.frame = frame
return frontend( action,
frame.args,
frame:getParent().args,
frame:getTitle() )
end -- frontier()

local function full( arglist )
-- Finalize invocation of template
-- arglist -- table, with parameters
-- Returns appropriate string
local r
if arglist.Text1 then
local slang = Config.slang
local lone = true
local s, sep
if not Config.scripting then
Config.scripting = fit( Config.slang )
end
sep = follow( Config.scripting )
if Config.scripting == Config.site then
if slang == facility() then
arglist.style = false
elseif not arglist.style then
arglist.style = "font-style:italic"
end
sep = follow( Config.site )
if arglist.Text2 then
arglist.Text2 = fault( "errInvalid",
Config.site .. "+2=",
true )
end
elseif not Config.low and not arglist.style then
arglist.style = "font-style:normal"
end
if Config.state then
slang = string.format( "%s-%s", slang, Config.state )
end
if Config.scripting then
slang = string.format( "%s-%s", slang, Config.scripting )
end
r = Export.format( slang,
arglist.Text1,
arglist.style,
arglist.Audio,
arglist.class )
if arglist.Text2 then
local e = mw.html.create( "span" )
:addClass( Config.site )
:attr( "lang",
string.format( "%s-%s",
Config.slang,
Config.site ) )
:css( { ["font-weight"] = "normal" } )
:wikitext( arglist.Text2 )
if Config.site == "Latn" then
s = "italic"
else
s = "normal"
end
e:css( { ["font-style"] = s } )
r = string.format( "%s %s%s",
r,
first( Config.site ),
tostring( e ) )
sep = follow( Config.site )
lone = false
end
if arglist.trans then
local e
for i = 1, #arglist.trans do
e = arglist.trans[ i ]
r = string.format( "%s%s %s",
r,
sep,
friend( e.system, e.story ) )
sep = follow( Config.site )
end -- for i
lone = false
end
if not Config.low then
if Config.scripting then
s = false
if arglist[ Config.scripting ] and
not arglist.Text2 then
Fetch( "ISO15924" )
if Config.ISO15924 then
s = Config.ISO15924
.scriptName( Config.scripting )
end
end
if not s and Config.service then
s = facet( Config.service )
end
elseif Config.service then
s = Config.service
else
s = false
end
if s then
if arglist.later then
r = string.format( "%s (%s)", r, s )
lone = false
else
r = string.format( "%s %s", s, r )
end
end
end
if arglist.IPA then
local params = { [1] = arglist.IPA }
s = Frame():expandTemplate{ title = Config.ipa,
args = params }
r = string.format( "%s [%s]", r, s )
sep = follow()
lone = false
end
if arglist.trsl then
r = r .. foreigns( sep, arglist.trsl, lone )
end
elseif arglist.Text2 then
r = fault( "errInvalid", "|1=|2=", true )
else
if Config.sole then
r = Config.sole
else
r = Config.service
end
end
return r
end -- full()

local function furnish( argsF, argsT )
-- General entry point; basic argument consumption
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
-- Returns appropriate string
local parIgnore = { }
local r = { }
local s
if argsF then
if argsF.errHide ~= nil then
Config.errHide = faculty( argsF.errHide )
end
Config.errCat = argsF.errCat
Config.errClasses = argsF.errClasses
Config.errNS = argsF.errNS
if argsF.ELEMENT and argsF.ELEMENT:match( "^%a+$" ) then
Config.scope = argsF.ELEMENT:lower()
end
if argsF.SUITABLE then
local params = mw.text.split( argsF.SUITABLE, " ", true )
for k, v in pairs( params ) do
parIgnore[ v ] = true
end -- for k, v
end
end
if Config.scripting == "" then
Config.scripting = false
end
if Config.scripting then
table.insert( Config.params, Config.scripting )
end
if type( argsT ) == "table" then
local n = table.maxn( Config.params )
local script, unknown
for k, v in pairs( argsT ) do
v = flatten( v )
s = type( k )
if s == "number" then
if Config.low then
k = k - 1
end
if k <= 2 then
if v then
if k == 0 then
k = false
else
if k == 1 then
r.Text1 = v
k = false
elseif Config.scripting == Config.site then
k = "2"
else
r.Text2 = v
k = false
end
end
else
if not Config.lenient then
-- LEGACY
k = string.format( "%s %s, |%d=",
"Sprachvorlage:",
factory( "errEmpty" ),
k )
mw.addWarning( k )
end
k = false
end
else
k = tostring( k )
end
elseif parIgnore[ k ] then
k = false
elseif k:match( "^%l%l%l?%-?" ) then
s = k:match( "^(%l%l%l?)$" ) or
k:match( "^(%l%l%l?)%-%u%u$" ) or
k:match( "^(%l%l%l?)%-%u%l%l%l$" )
if v then
script = k:match( "^%l%l%l?%-(%u%l%l%l)$" )
else
k = false
end
if v and s and
( s ~= Config.slang or
script ~= Config.scripting ) then
local legal = mw.language.isSupportedLanguage( s )
if not legal then
legal = ( s ~= fill( s ) )
end
if legal then
local state = k:match( "^%l%l%l?%-(%u%u)$" )
local m
if s == Config.slang then
m = Config.keyBase
else
m = Config.keyTranslate
end
if not script then
script = fit( s )
if script then
k = string.format( "%s-%s", s, script )
end
end
if not r.trsl then
r.trsl = { }
end
table.insert( r.trsl,
{ m = m,
n = #r.trsl + 1,
script = script,
short = s,
slang = k,
state = state,
story = v } )
k = false
end
end
elseif k:match( "^%u%u+%d*%.?%d*%-?%u*%d*$" ) then
if familiar( k, Config.scripting ) or
familiar( k, Config.slang ) then
if v then
if not r.trans then
r.trans = { }
end
table.insert( r.trans,
{ system = k,
story = v } )
end
k = false
end
elseif k:match( "^%u%l%l%l$" ) then
if k == Config.scripting then
if faculty( v ) then
r[ k ] = true
end
else
if not r.trsl then
r.trsl = { }
end
table.insert( r.trsl,
{ m = 100,
n = #r.trsl + 1,
script = k,
short = Config.slang,
slang = string.format( "%s-%s",
Config.slang,
k ),
story = v } )
end
k = false
end
if k then
for i = 1, n do
if Config.params[ i ] == k then
if v then
r[ k ] = v
end
k = false
break -- for i
end
end -- for i
end
if k then
if not unknown then
unknown = { }
end
table.insert( unknown, k )
end
end -- for k, v
if r.demo or faculty( r.NoCat ) then
Config.errCat = 0
Config.errHide = false
end
r.later = faculty( r.nachgestellt )
if r.b and Config[ "OBSOLETING-bwd" ] then
if r.de then
r = fault( "errDoubled", "'de=' und 'b='", true )
else
r.de = r.b
end
end
if r.w and Config[ "OBSOLETING-bwd" ] then
if r.Text2 then
r = fault( "errDoubled", "'2=' und 'w='", true )
else
r.Text2 = r.w
end
end
if unknown then
local e = mw.html.create( "code" )
:wikitext( table.concat( unknown, " " ) )
r = fault( "errUnkown",
string.format( "'%s'", tostring( e ) ),
true )
end
end
if type( r ) == "table" then
r = full( r )
end
return r
end -- furnish()

Export.flat = function ( argsF, argsT, auxilary )
-- Invocation of basic language template
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
-- auxilary -- Multilingual library, or false
-- Returns appropriate string
local r
if type( auxilary ) == "table" then
Config.Multilingual = auxilary
else
r = Fetch( "Multilingual" )
end
if Config.Multilingual then
local slang = argsT[ 1 ]
local show = argsT[ 2 ]
if slang then
slang = mw.text.trim( slang )
if slang == "" then
slang = false
end
end
if show then
show = flatten( show )
end
if slang and show then
local q = Config.Multilingual.getLang( slang )
if q and q.legal then
Config.lenient = faculty( argsT.lenient )
Config.low = true
Config.slang = q.base
Config.state = q.region
Config.scripting = q.script
r = furnish( argsF, argsT )
else
local e = mw.html.create( "span" )
:attr( "lang", slang )
:wikitext( show )
local list = ( q and q.scream )
local s
if q and q.suggest then
local say = factory( "errSuggest" )
s = string.format( say, slang, q.suggest )
else
s = slang
end
r = tostring( e ) ..
fault( "errInvalid", s, not list )
if list then
r = string.format( "%s[[Category:%s]]", r, q.scream )
end
end
else
r = fault( "errMissing", false, true )
if show then
r = show .. r
end
end
end
return r
end -- Export.flat()

Export.fold = function ( argsF, argsT )
-- Invocation of RTL template
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
-- Returns appropriate string, or nil
local params = { }
local r, s, slang
for k, v in pairs( argsT ) do
if v then
v = mw.text.trim( v )
if v ~= "" then
params[ k ] = v
end
end
end -- for k, v
if params[ 2 ] then
s = params[ 2 ]:gsub( mw.ustring.char( 0x202A ), "" )
:gsub( mw.ustring.char( 0x202B ), "" )
:gsub( mw.ustring.char( 0x202C ), "" )
:gsub( mw.ustring.char( 0x202D ), "" )
:gsub( mw.ustring.char( 0x202E ), "" )
:gsub( mw.ustring.char( 0x2066 ), "" )
:gsub( mw.ustring.char( 0x2067 ), "" )
:gsub( mw.ustring.char( 0x2068 ), "" )
:gsub( mw.ustring.char( 0x2069 ), "" )
:gsub( mw.ustring.char( 8206 ), "&lrm;" )
:gsub( "&#0*8206;", "&lrm;" )
:gsub( "&#x0*200[Ee];", "&lrm;" )
:gsub( mw.ustring.char( 8207 ), "&rlm;" )
:gsub( "&#0*8207;", "&rlm;" )
:gsub( "&#x0*200[Ff];", "&rlm;" )
if s:find( "&", 1, true ) then
local shift = "^&rlm;%s*"
while s:match( shift ) do
s = s:gsub( shift, "" )
end -- while
shift = "%s*&lrm;$"
while s:match( shift ) do
s = s:gsub( shift, "" )
end -- while
if s == "" then
s = false
end
end
end
if s and
s:sub( 1, 5 ) == "<bdo " and
s:find( "^<bdo [^<>]+><bdi [^<>]+>[^<>]+</bdi></bdo>$" ) then
r = s
s = false
end
if s then
local bdi = mw.html.create( "bdi" )
:attr( "dir", "rtl" )
:css( "unicode-bidi", "isolate" )
:wikitext( s )
local bdo = mw.html.create( "bdo" )
:attr( "dir", "ltr" )
local slang = params[ 1 ]
local script = argsF.SCRIPTING
local state = argsF.STATE
local selector
family()
if slang then
if slang:find( "-", 3, true ) then
local parts = mw.text.split( slang, "-", true )
slang = parts[ 1 ]
for i = 2, #parts do
if parts[ i ]:match( "^%u%u$" ) then
state = parts[ i ]
elseif parts[ i ]:match( "^%u%l%l%l$" ) then
script = parts[ i ]
end
end -- for i
end
slang = slang:lower()
else
slang = "ar"
end
if script then
first( script, bdo )
features( bdi, script )
selector = script
if type( Config.classScript ) == "table" then
selector = flag( selector, Config.classScript[ script ] )
end
s = string.format( "%s-%s", slang, script )
else
s = slang
end
if state then
s = string.format( "%s-%s", s, state )
end
bdi:attr( "lang", s )
selector = flag( selector, argsF.class )
selector = flag( selector, params.class )
if selector then
bdi:addClass( selector )
end
if argsF.css then
bdi:css( argsF.css )
end
if argsF.style then
bdi:cssText( argsF.style )
end
if params.style then
bdi:cssText( params.style )
end
bdo:node( bdi )
r = tostring( bdo )
end
return r
end -- Export.fold()

Export.format = function ( alien, apply, appear, audio, alike )
-- Markup foreign language text
-- alien -- string, with language code
-- apply -- string, with text
-- appear -- string, with additional CSS, or nil
-- audio -- string, with title of an audio file, or nil
-- alike -- string, with additional class(es), or nil
-- Returns appropriate string with HTML tag
local ltr = true
local r, script, selector, slang, state
family()
if alien:find( "-", 3, true ) then
local parts = mw.text.split( alien, "-", true )
slang = parts[ 1 ]
for i = 2, #parts do
if parts[ i ]:match( "^%u%u$" ) then
state = parts[ i ]
elseif parts[ i ]:match( "^%u%l%l%l$" ) then
script = parts[ i ]
end
end -- for i
else
slang = alien
end
slang = slang:lower()
if not script then
script = fit( slang )
end
if script then
local rtl = Friend().rtl
if type( rtl ) == "table" then
ltr = not rtl[ script ]
end
if script ~= Config.site then
selector = script
if type( Config.classScript ) == "table" then
selector = flag( selector, Config.classScript[ script ] )
end
end
end
selector = flag( selector, alike )
if ltr then
local scope = Config.scope or "span"
local elem = mw.html.create( scope )
local story = apply
local set
if script then
set = string.format( "%s-%s", slang, script )
features( elem, script )
else
set = slang
end
if state then
set = string.format( "%s-%s", set, state )
end
elem:attr( "lang", set )
if selector then
elem:addClass( selector )
end
if appear then
elem:cssText( appear )
end
if scope == "span" then
story = story:gsub( "\n", " " )
end
elem:wikitext( story )
r = tostring( elem )
if script and script ~= Config.site then
local lucky, x = pcall( require,
"Module:Vorlage:lang/Zwiebelfisch" )
r = first( script ) .. r
if type( x ) == "table" and
type( x.finder ) == "function" then
x = x.finder( apply, script )
if type( x ) == "string" then
r = r .. x
end
end
end
else
r = Export.fold( { SCRIPTING = script },
{ [ 1 ] = slang,
[ 2 ] = apply,
class = selector,
style = appear } )
end
if mw.text.unstrip( apply ):sub( 1, 1 ) == "<" then
local seek = "^(<([sd][paniv]+) [^>]+>)%1(.+)(</%2>)%4$"
local s, start, story, stop
start, s, story, stop = mw.text.unstrip( r ):match( seek )
if story then
r = Export.format( slang, story, appear, audio, alike )
end
end
if audio and Config.tmplAudio then
local params = { [ Config.tmplAudio.filepar ] = audio,
[ Config.tmplAudio.textpar ] = r }
r = Frame():expandTemplate{ title = Config.tmplAudio.title,
args = params }
end
return r or ""
end -- Export.format()

Export.full = function ( argsF, argsT )
-- Invocation of language name template
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
-- Returns appropriate string
if argsF then
Config.lenient = faculty( argsF.lenient )
Config.long = faculty( argsF.LONG )
Config.scripting = argsF.SCRIPTING
Config.service = argsF.SERVICE
Config.slang = argsF.CODE
Config.sole = argsF.SOLE
if argsF["OBSOLETING-bwd"] then
table.insert( Config.params, "b" )
table.insert( Config.params, "d" )
table.insert( Config.params, "w" )
end
end
Config.low = false
return furnish( argsF, argsT )
end -- Export.full()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version or "wikidata" or "~"
-- or false
-- Postcondition:
-- Returns string -- with queried version, also if problem
-- false -- if appropriate
local last = ( atleast == "~" )
local since = atleast
local r
if last or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local entity = mw.wikibase.getEntity( string.format( "Q%d",
item ) )
if type( entity ) == "table" then
local vsn = entity:formatPropertyValues( "P348" )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
else
r = vsn.value
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

-- Export
local p = { }

p.test = function ( action, argsF, argsT )
-- action -- string, "flat" or "full" etc.
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
return frontend( action, argsF, argsT )
end -- p.test()

p.flat = function ( frame )
return frontier( frame, "flat" )
end -- p.flat()

p.fold = function ( frame )
return frontier( frame, "fold" ) or ""
end -- p.fold()

p.full = function ( frame )
return frontier( frame, "full" )
end -- p.full()

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe

p.lang = function ()
return Export
end -- p.lang()

return p

Modul:Text/quoting

2022-02-23T14:42:27Z

Admin: 1 Version importiert

local TextQuote = { serial = "2021-05-01",
suite = "TextQuote",
item = 75029538 }
--[=[
Text utilities: quotes for particular languages
mw.loadData() table with all known assignments
]=]

TextQuote.langs = { af = "bd",
ar = "la",
be = "labd",
bg = "bd",
ca = "la",
cs = "bd",
da = "bd",
de = "bd",
dsb = "bd",
et = "bd",
el = "lald",
en = "ld",
eo = "bdla",
es = "la",
eu = "la",
-- fa = "la",
fi = "rd",
fr = "laSPC",
ga = "ld",
grc = "lald",
he = "ldla",
hr = "bd",
hsb = "bd",
hu = "bd",
hy = "labd",
id = "rd",
is = "bd",
it = "ld",
ja = "x300C",
ka = "bd",
ko = "ld",
lt = "bd",
lv = "bd",
nl = "ld",
nn = "la",
no = "la",
pl = "bxla",
pt = "lald",
ro = "bdla",
ru = "labd",
sk = "bd",
sl = "bd",
sq = "la",
sr = "bx",
sv = "rd",
th = "ld",
tr = "ld",
uk = "la",
zh = "ld",
["de-ch"] = "la",
["en-gb"] = "lsld",
["en-us"] = "ld",
["fr-ch"] = "la",
["it-ch"] = "la",
["pt-br"] = "ldla",
["zh-tw"] = "x300C",
["zh-cn"] = "ld" }

TextQuote.types = { bd = { { 8222, 8220 }, { 8218, 8217 } },
bdla = { { 8222, 8220 }, { 171, 187 } },
bx = { { 8222, 8221 }, { 8218, 8217 } },
bxla = { { 8222, 8221 }, { 171, 187 } },
la = { { 171, 187 }, { 8249, 8250 } },
laSPC = { { 171, 187 }, { 8249, 8250 }, true },
labd = { { 171, 187 }, { 8222, 8220 } },
lald = { { 171, 187 }, { 8220, 8221 } },
ld = { { 8220, 8221 }, { 8216, 8217 } },
ldla = { { 8220, 8221 }, { 171, 187 } },
lsld = { { 8216, 8217 }, { 8220, 8221 } },
rd = { { 8221, 8221 }, { 8217, 8217 } },
x300C = { { 0x300C, 0x300D },
{ 0x300E, 0x300F } } }
-- each element is a table with elements:
-- [1] table, with opening and closing quote
-- [2] optional: table, opening and closing 2nd quote
-- [3] optional: boolean,
-- space between quote and text

TextQuote.failsafe = serial

return TextQuote

Modul:TemplateData/config

2022-02-23T14:42:26Z

Admin: 1 Version importiert

local Serial = "2021-03-08"
--[=[
dewiki-Konfiguration {{TemplateData}}
mw.loadData()
]=]

return { catProblem = "Wikipedia:Vorlagenfehler/Vorlage:TemplateData",
classNoNumTOC = "nonumtoc",
classTable = { "wikitable", "templatedata-params" },
cssParWrap = { ["margin-left"] = "-1em",
["margin-right"] = "-1em" },
cssParams = { ["border"] = "#B3B7FF 1px solid",
["margin-left"] = "auto",
["margin-right"] = "auto" },
docpageCreate = "%s/Doku",
docpageDetect = "/Doku$",
helpBoolean = "Hilfe:TemplateData/Anwendung‎#boolean",
helpContent = "Hilfe:TemplateData/Anwendung‎#wikitext",
helpDate = "Hilfe:TemplateData/Anwendung‎#date",
helpFile = "Hilfe:TemplateData/Anwendung‎#file",
helpFormat = "Hilfe:TemplateData/Anwendung‎#layout",
helpLine = "Hilfe:TemplateData/Anwendung‎#line",
helpNumber = "Hilfe:TemplateData/Anwendung‎#number",
helpPage = "Hilfe:TemplateData/Anwendung‎#page",
helpString = "Hilfe:TemplateData/Anwendung‎#string",
helpTemplate = "Hilfe:TemplateData/Anwendung‎#template",
helpURL = "Hilfe:TemplateData/Anwendung‎#url",
helpUser = "Hilfe:TemplateData/Anwendung‎#user",
msgDescMiss = "Beschreibung fehlt",
permit = { },
tStylesTOCnum = "TOC nonum",
serial = Serial }

Modul:TemplUtl

2022-02-23T14:42:26Z

Admin: 1 Version importiert

local TemplUtl = { suite = "TemplUtl",
serial = "2021-01-01",
item = 52364930 };
--[=[
Utilities to support template programming.
]=]
local Failsafe = TemplUtl;

local fallible = function ( adjust, ahead )
-- Check for leading character disturbing syntax
-- Precondition:
-- adjust -- string; trimmed wikitext
-- ahead -- true, if leading syntax shall start on new line
-- Postcondition:
-- Returns string, modified if necessary
local r = adjust;
local c = r:byte( 1, 1 );
if c <= 59 and
( c==35 or c==42 or c==58 or c==59 ) then
if ahead then
r = "\n" .. r;
else
r = mw.text.nowiki( r:sub( 1, 1 ) ) .. r:sub( 2 );
end
elseif ahead then
local c2 = r:byte( 2, 1 );
if ( c==123 and c2==124 ) or
( c==124 and c2==45 ) then
r = "\n" .. r;
end
end
return r;
end -- fallible()

local fiatTitleRegExp = function ( accept )
-- Create pattern to detect page name
-- Precondition:
-- accept -- string; trimmed title
-- Postcondition:
-- Returns string with pattern
local start = mw.ustring.sub( accept, 1, 1 );
local r;
if mw.ustring.match( start, "%a" ) then
r = string.format( "[%s%s]%s",
mw.ustring.lower( start ),
mw.ustring.upper( start ),
mw.ustring.sub( accept, 2 ) );
else
r = accept;
end
if r:match( " " ) then
r = r:gsub( "%", "%%" )
:gsub( "[%-^.?+*()$]", "%$1" )
:gsub( "_", " " )
:gsub( "%s+", "[%s_]+" );
end
return r;
end -- fiatTitleRegExp()

local framing = function ( frame )
-- Ensure availability of frame object
-- Precondition:
-- frame -- object; #invoke environment, or false
-- Postcondition:
-- Return frame object
if not TemplUtl.frame then
if type( frame ) == "table" then
TemplUtl.frame = frame;
else
TemplUtl.frame = mw.getCurrentFrame();
end
end
return TemplUtl.frame;
end -- framing()

TemplUtl.faculty = function ( analyze, another )
-- Test template arg for boolean
-- analyze -- string, boolean, number or nil
-- another -- fallback: string, boolean, or nil
-- "-" to test for explicit vocabulary choice
-- Returns boolean, or "-"
local s = type( analyze );
local r;
if s == "string" then
r = mw.text.trim( analyze );
if r == "" then
r = TemplUtl.faculty( another, nil );
elseif r:find( "1", 1, true ) and
r:match( "^[0%-]*1[01%-]*$" ) then
r = true;
elseif r:match( "^[0%-]+$" ) then
r = false;
else
r = r:lower();
if r == "y" or
r == "yes" or
r == "true" or
r == "on" then
r = true;
elseif r == "n" or
r == "no" or
r == "false" or
r == "off" then
r = false;
else
if not TemplUtl.boolang then
-- TODO: page language
local l, d = pcall( mw.ext.data.get, "i18n/01.tab" );
if type( d ) == "table" and
type( d.data ) == "table" then
local f = function ( at )
local e = d.data[ at ];
l = e[ 1 ];
s = e[ 2 ];
if type( l ) == "boolean" and
type( s ) == "string" then
s = mw.text.split( s, "|" );
for i = 1, #s do
TemplUtl.boolang[ s[ i ] ] = l;
end -- for i
end
end
TemplUtl.boolang = { };
f( 1 );
f( 2 );
else
TemplUtl.boolang = true;
end
end
if type( TemplUtl.boolang ) == "table" then
s = TemplUtl.boolang[ r ];
if type( s ) == "boolean" then
r = s;
end
end
if type( r ) ~= "boolean" then
s = type( another );
if s == "nil" then
r = true;
elseif s == "boolean" then
r = another;
elseif another == "-" then
r = "-";
else
r = TemplUtl.faculty( another );
end
end
end
end
elseif s == "boolean" then
r = analyze;
elseif s == "number" then
r = ( analyze ~= 0 );
else
r = false;
end
return r;
end -- TemplUtl.faculty()

TemplUtl.failure = function ( alert, always, addClass, frame )
-- Format error message, mostly hidden
-- alert -- string: message
-- always -- boolean, or nil: do not hide
-- addClass -- string, or nil: add classes to element
-- frame -- object, or nil
-- Returns string
local err = mw.html.create( "span" )
:addClass( "error" )
:wikitext( alert );
local live = ( framing( frame ):preprocess( "{{REVISIONID}}" )
== "" );
if type( addClass ) == "string" then
err:addClass( addClass )
end
if live then
local max = 1000000000;
local id = math.floor( os.clock() * max );
local sign = string.format( "error_%d", id );
local btn = mw.html.create( "span" );
local top = mw.html.create( "div" );
err:attr( "id", sign );
-- TODO: LTR
btn:css( { ["background"] = "#FFFF00",
["border"] = "#FF0000 3px solid",
["font-weight"] = "bold",
["padding"] = "2px",
["text-decoration"] = "none" } )
:wikitext( ">>>" );
sign = string.format( "[[#%s|%s]]", sign, tostring( btn ) );
top:wikitext( sign, " ", alert );
mw.addWarning( tostring( top:attr( "role", "alert" ) ) );
elseif not always then
err:css( { ["display"] = "none" } );
-- err:css( { ["display"] = "inline-block",
-- ["line-height"] = "0",
-- ["max-height"] = "0",
-- ["max-width"] = "0",
-- ["visibility"] = "hidden" } );
end
return tostring( err );
end -- TemplUtl.failure()

TemplUtl.fake = function ( access )
-- Simulation of template transclusion
-- Precondition:
-- access -- string; page name (template)
if type( access ) == "string" then
local s = mw.text.trim( access );
if s ~= "" then
local t = mw.title.new( s, 10 );
if not mw.title.equals( mw.title.getCurrentTitle(), t ) and
t.exists then
t:getContent();
end
end
end
end -- TemplUtl.fake()

TemplUtl.fakes = function ( array, frame, ahead, answer )
-- Simulation of template transclusions
-- Precondition:
-- array -- table, with template title strings
-- frame -- object, or nil
-- ahead -- string, or nil, with common prefix
-- answer -- true, or nil, for list creation
-- Postcondition:
-- Returns string, if answer requested
local e = framing( frame );
local f = function ( a )
e:expandTemplate{ title = a };
end
local s = ahead or "";
local r;
for k, v in pairs( array ) do
if type( k ) == "number" and
type( v ) == "string" then
v = s .. mw.text.trim( v );
pcall( f, v );
if answer then
if r then
r = r .. "\n";
else
r = "";
end
r = string.format( "%s* [[Template:%s|%s]]", r, v, v );
end
end
end -- for k, v
return r;
end -- TemplUtl.fakes()

TemplUtl.feasible = function ( address )
-- Does this describe an URL beginning?
-- Precondition:
-- address -- string; what to inspect, URL presumed
-- Postcondition:
-- Returns true, if URL beginning
local start, r = address:match( "^%s*((%a*:?)//)" );
if start then
if r == "" then
r = true;
elseif r:sub( -1, -1 ) == ":" then
local schemes = ":ftp:ftps:http:https:";
r = ":" .. r:lower();
if schemes:find( r, 1, true ) then
r = true;
else
r = false;
end
else
r = false;
end
end
return r;
end -- TemplUtl.feasible()

TemplUtl.feed = function ( area, ahead, at, after )
-- Detect next free "|" or "}}"
-- Precondition:
-- area -- string; template transclusion
-- ahead -- string; opening element, or false
-- at -- number; byte position in area where to start
-- after -- true, if only to search for "}}"
-- Postcondition:
-- Returns
-- -- number; byte position in area
-- -- before "|" or "}}", may be at end
-- -- to continue search; ahead has been closed
-- -- true, if to be continued at number
local j = at;
local loop = true;
local c, k, r, s, seek;
if after then
seek = "[{}<]";
else
seek = "[%[%]|{}<:]";
end
while loop do
j = area:find( seek, j );
if j then
c = area:byte( j, j );
if c == 123 then -- {
k = j + 1;
if area:byte( k, k ) == 123 then
k = k + 1;
if area:byte( k, k ) == 123 then
j, loop = TemplUtl.feed( area, "{{{", k, after );
else
k = k - 1;
j, loop = TemplUtl.feed( area, "{{", k, after );
end
if not loop then
r = j;
end
end
elseif c == 125 then -- }
k = j + 1;
if area:byte( k, k ) == 125 then
if ahead == "{{" then
r = k;
break; -- while loop;
elseif ahead == "{{{" then
k = k + 1;
if area:byte( k, k ) == 125 then
r = k;
break; -- while loop;
end
elseif not ahead then
r = j - 1;
loop = false;
end
end
elseif c == 60 then -- <
k = j + 3;
if area:sub( j, k ) == "", k );
if k then
j = k + 2;
end
else
local skip;
s = area:sub( j + 1 ):lower();
skip = s:match( "^%s*nowiki%s*>" );
if skip then
local n = skip:len();
n, k = s:find( "<%s*/%s*nowiki%s*>", n );
if k then
j = j + k;
else
loop = false;
end
end
end
elseif c == 124 then -- |
if not r then
r = j - 1;
end
if not ahead then
loop = false;
end
elseif c == 91 then -- [
k = j + 1;
if area:byte( k, k ) == 91 then
k = k + 1;
j, loop = TemplUtl.feed( area, "[[", k, after );
elseif TemplUtl.feasible( area:sub( k ) ) then
k = k + 3;
j, loop = TemplUtl.feed( area, "[", k, after );
end
if not loop then
r = j;
end
elseif c == 93 then -- ]
if ahead == "[" then
r = j;
break; -- while loop
elseif ahead == "[[" then
k = j + 1;
if area:byte( k, k ) == 93 then
r = k;
break; -- while loop
end
end
elseif c == 58 then -- :
s = area:sub( j + 1, j + 2 );
if s == "//" then
s = " " .. area:sub( 1, j + 2 );
s = s:match( "%s(%a+://)$" );
if s and TemplUtl.feasible( s ) then
s = area .. " ";
s = s:match( "([^%s|]+)%s", j );
if s then
k = s:find( "}}" );
if k then
j = j + k + 1;
else
j = j + s:len();
end
end
end
end
end
j = j + 1;
else
loop = false;
end
end -- while loop
if not r then
r = area:len();
end
return r, loop;
end -- TemplUtl.feed()

TemplUtl.feeder = function ( area, at )
-- Retrieve all parameters
-- Precondition:
-- area -- string; template transclusion
-- at -- optional number; byte position in area of "{{"
-- Postcondition:
-- Returns
-- -- table
-- [0] -- template, page, parser function name
-- [1] -- unnamed parameter
-- ["name"] -- named parameter
-- -- string; error message, if any, else nil
local n = 0;
local j, k, p, r, r2, s, v;
if type( at ) == "number" then
j = at + 2;
else
j = 3;
end
while true do
k = TemplUtl.feed( area, false, j );
s = area:sub( j, k );
s = s:gsub( "", "" );
if n == 0 then
r = { [ 0 ] = s };
n = 1;
else
p, v = s:match( "^([^=]*)=(.*)$" );
if p then
if p:match( "^%s*%d+%s*$" ) then
p = tonumber( p );
else
p = mw.text.trim( p );
end
v = mw.text.trim( v );
else
p = n;
v = s;
n = n + 1;
end
if r[ p ] then
if r2 then
r2 = r2 .. " * ";
else
r2 = "";
end
r2 = string.format( "%s%s '%s'",
r2,
"duplicated parameter",
tostring( p ) );
end
r[ p ] = v;
end
s = area:sub( k + 1, k + 2 );
if s == "}}" then
break; -- while true
elseif s == "" then
r2 = "template not closed";
break; -- while true
end
j = k + 2;
end -- while true
return r, r2;
end -- TemplUtl.feeder()

TemplUtl.fetch = function ( area, ask )
-- Find assignment of a named template parameter
-- Precondition:
-- area -- string; template transclusion
-- ask -- string; parameter name
-- Postcondition:
-- Returns string with trimmed parameter value, or nil
-- Does not return value if template inside
local r;
local scan = string.format( "%s%s%s",
"|%s*", ask, "%s*=(.+)$" );
r = mw.ustring.match( area, scan );
if r then
local j = TemplUtl.feed( r, false, 1 );
r = r:sub( 1, j );
if r then
r = mw.text.trim( r );
if r == "" then
r = nil;
end
end
end
return r;
end -- TemplUtl.fetch()

TemplUtl.find = function ( area, access, at, alter )
-- Find next occurrence of a template
-- Precondition:
-- area -- string; where to search
-- access -- string; trimmed (template) title
-- at -- optional number; ustring position in area, if not 1
-- alter -- optional string; lowercase namespace pattern
-- "" for article
-- no colon (:)
-- Postcondition:
-- Returns ustring position of "{{" in area, or false
-- Requires:
-- fiatTitleRegExp()
local scan = string.format( "{{%s%s%s",
"([%w_%s:]*)%s*",
fiatTitleRegExp( access ),
"%s*([|}<]!?)" );
local r, space, start, suffix;
if type( at ) == "number" then
r = at;
else
r = 1;
end
while true do
r = mw.ustring.find( area, scan, r );
if r then
start, suffix = mw.ustring.match( area, scan, r );
if start then
start = mw.text.trim( start );
if start == "" then
break; -- while true
elseif alter then
if not space then
space = string.format( "^:?%s:$", alter );
end
start = mw.ustring.lower( start );
if mw.ustring.match( start, space ) then
break; -- while true
end
else
start = start:match( "^:?(.+):$" );
if start then
start = mw.ustring.lower( start );
if start == "template" then
break; -- while true
else
if not space then
space = mw.site.namespaces[ 10 ].name;
space = mw.ustring.lower( space );
end
start = start:gsub( "_", " " )
:gsub( "%s+", " " );
if start == space then
break; -- while true
end
end
end
end
else
break; -- while true
end
r = r + 2;
else
r = false;
break; -- while true
end
end -- while true
return r;
end -- TemplUtl.find()

-- finder()
-- 1 page name
-- 2 template title / page name
-- 3 4 5 6
-- more like 2

TemplUtl.firstbreak = function ( adjust )
-- Precede leading character with newline if specific syntax
-- Precondition:
-- adjust -- string; trimmed wikitext
-- Postcondition:
-- Returns string, modified if necessary
return fallible( adjust, true );
end -- TemplUtl.firstbreak()

TemplUtl.flat = function ( area )
-- Remove syntax elements that hide effective syntax only
-- Precondition:
-- area -- string; unparsed wikitext to be reduced
-- Postcondition:
-- Returns cleared wikitext
local delimiters = { { "<%s*NOWIKI%s*>", "<%s*/%s*NOWIKI%s*>" },
{ "", true },
{ "<%s*PRE%s*>", "<%s*/%s*PRE%s*>" },
{ "<%s*SYNTAXHIGHLIGHT[^<>]*>",
"<%s*/%s*SYNTAXHIGHLIGHT%s*>" } };
local i = 1;
local r = area;
local k, m, n;
if not TemplUtl.Delimiters then
local c, sD, sP;
TemplUtl.Delimiters = { };
for j = 1, #delimiters do
table.insert( TemplUtl.Delimiters, { } );
for ji = 1, 2 do
sD = delimiters[ j ][ ji ];
sP = "";
for js = 1, #sD, 1 do
c = sD:byte( js, js );
if c >= 65 and c <= 90 then
sP = string.format( "%s[%c%c]",
sP, c, c + 32 );
else
sP = sP .. string.char( c );
end
end -- for js
table.insert( TemplUtl.Delimiters[ j ], sP );
end -- for ji
end -- for j
end
while ( true ) do
k = false;
for j = 1, #delimiters do
m = r:find( TemplUtl.Delimiters[ j ][ 1 ],
i,
TemplUtl.Delimiters[ j ][ 3 ] );
if m and ( not k or m < k ) then
k = m;
n = j;
end
end -- for j
if k then
local s
if k > 1 then
i = k - 1;
s = r:sub( 1, i );
else
s = "";
end
j, m = r:find( TemplUtl.Delimiters[ n ][ 2 ],
k + 1,
TemplUtl.Delimiters[ n ][ 3 ] );
if m then
r = s .. r:sub( m + 1 );
else
r = s;
break; -- while true
end
else
break; -- while true
end
end -- while true
return r;
end -- TemplUtl.flat()

TemplUtl.nowiki1 = function ( adjust )
-- HTML-escape leading character if disturbing syntax
-- Precondition:
-- adjust -- string; trimmed wikitext
-- Postcondition:
-- Returns string, modified if necessary
return fallible( adjust, false );
end -- TemplUtl.nowiki1()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version
-- or wikidata|item|~|@ or false
-- Postcondition:
-- Returns string -- with queried version/item, also if problem
-- false -- if appropriate
-- 2020-08-17
local since = atleast
local last = ( since == "~" )
local linked = ( since == "@" )
local link = ( since == "item" )
local r
if last or link or linked or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local suited = string.format( "Q%d", item )
if link then
r = suited
else
local entity = mw.wikibase.getEntity( suited )
if type( entity ) == "table" then
local seek = Failsafe.serialProperty or "P348"
local vsn = entity:formatPropertyValues( seek )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
elseif linked then
if mw.title.getCurrentTitle().prefixedText
== mw.wikibase.getSitelink( suited ) then
r = false
else
r = suited
end
else
r = vsn.value
end
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

-- Export
local p = { };

function p.faculty( frame )
return TemplUtl.faculty( frame.args[ 1 ],
frame.args[ 2 ] ) and "1"
or "";
end -- p.faculty

function p.failure( frame )
local scream = mw.text.trim( frame.args[ 1 ] or "" );
local loud = frame.args[ 2 ];
local select = frame.args.class;
if scream == "" then
scream = "?????????";
end
if loud then
loud = TemplUtl.faculty( loud, nil );
end
return TemplUtl.failure( scream, loud, select, frame );
end -- p.failure

function p.fake( frame )
TemplUtl.fake( frame.args[ 1 ] or "", frame );
return "";
end -- p.fake

function p.fakes( frame )
local list = ( frame.args.list == "1" );
local r = TemplUtl.fakes( frame.args,
frame,
frame.args.prefix,
list );
return r or "";
end -- p.fakes

function p.firstbreak( frame )
local r = ( frame.args[ 1 ] );
if r then
r = mw.text.trim( r );
if r ~= "" then
r = TemplUtl.firstbreak( r );
end
end
return r or "";
end -- p.firstbreak

function p.from( frame )
local r = frame:getParent():getTitle();
if r then
r = string.format( "{{%s}}", r );
end
return r or "";
end -- p.from

function p.isRedirect()
return mw.title.getCurrentTitle().isRedirect and "1" or "";
end -- p.isRedirect

function p.nowiki1( frame )
local r = ( frame.args[ 1 ] );
if r then
r = mw.text.trim( r );
if r ~= "" then
r = TemplUtl.nowiki1( r );
end
end
return r or "";
end -- p.nowiki1

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe

p.TemplUtl = function ()
return TemplUtl;
end -- p.TemplUtl()

return p;

Modul:Str

2022-02-23T14:42:26Z

Admin: 1 Version importiert

Modul:PageUtil

2022-02-23T14:42:26Z

Admin: 1 Version importiert

local PageUtil = { suite = "PageUtil",
serial = "2018-10-19",
item = 0 }
--[=[
PageUtil
]=]

PageUtil.maxPages = 200

local function fault( alert, frame )
-- Format message with class="error"
-- alert -- string, with message
-- frame -- object, if known
-- Returns message with markup
local scream = alert
if frame then
scream = string.format( "%s * %s", frame:getTitle(), scream )
end
return tostring( mw.html.create( "span" )
:addClass( "error" )
:wikitext( scream ) )
end -- fault()

local function flat( adjust, assembly )
-- Replace links to pages by inner links
-- adjust -- string, with text
-- assembly -- table, with page infos
-- Returns adjusted string
local r = adjust
local seek, shift, source, subst
for k, v in pairs( assembly ) do
source = v[ 1 ]
shift = v[ 2 ]
source = ":?" .. source:gsub( " ", "[_ ]+" )
:gsub( "[%.%(%)%*%?%+%-]", "%1" )
.. "%s*"
seek = "%[%[%s*" .. source .. "(#[^%]]*%]%])"
subst = "[[%1"
r = r:gsub( seek, subst )
seek = "%[%[%s*" .. source .. "(%|[^%]]*%]%])"
subst = "[[#" .. shift .. "%1"
r = r:gsub( seek, subst )
seek = "%[%[%s*(" .. source .. "%]%])"
subst = "[[#" .. shift .. "|%1"
r = r:gsub( seek, subst )
end -- for k, v
return r
end -- flat()

local function fraction( access, frame )
-- Retrieve text from section
-- access -- string, with request
-- frame -- object
-- Returns content, or false
-- Uses:
-- mw.title.new() .exists
local r
local seek = "^(#lstx?):%s*%[%[([^%[|%]\n]+)%]%]%s*(%S.*)%s*$"
local scope, source, section = access:match( seek )
if source then
local page = mw.title.new( source )
source = page.prefixedText
if page.exists then
section = mw.text.trim( section )
if section ~= "" then
r = frame:callParserFunction{ name = scope,
args = { source,
section } }
end
else
r = tostring( mw.html.create( "div" )
:addClass( "error" )
:wikitext( source ) )
end
end
return r
end -- fraction()

local function full( access, frame, alias, assembly )
-- Retrieve text from page
-- access -- string, with page name
-- frame -- object
-- alias -- number, unique
-- assembly -- table, with page infos
-- Returns string with content, or nil
-- Uses:
-- mw.title.new() .exists
local page = mw.title.new( access )
local r
if page then
if page.exists then
local source = page.prefixedText
local segment = string.format( "PageUtilMerge-%d", alias )
local seed
if page.namespace == 0 then
seed = ":" .. source
else
seed = source
end
r = string.format( "%s\n%s",
tostring( mw.html.create( "span" )
:attr( "id", segment ) ),
frame:expandTemplate( { title = seed } ) )
table.insert( assembly, { source, segment } )
else
r = tostring( mw.html.create( "div" )
:addClass( "error" )
:wikitext( page.prefixedText ) )
end
else
r = string.format( "%s '%s'", "Unknown page", access )
r = tostring( mw.html.create( "div" )
:addClass( "error" )
:wikitext( r ) )
end
return r
end -- full()

PageUtil.failsafe = function ( assert )
-- Retrieve versioning and check for compliance
-- Precondition:
-- assert -- string, with required version or "wikidata",
-- or false
-- Postcondition:
-- Returns string with appropriate version, or false
local since = assert
local r
if since == "wikidata" then
local item = PageUtil.item
since = false
if type( item ) == "number" and item > 0 then
local ent = mw.wikibase.getEntity( string.format( "Q%d",
item ) )
if type( ent ) == "table" then
local vsn = ent:formatPropertyValues( "P348" )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
r = vsn.value
end
end
end
end
if not r then
if not since or since <= PageUtil.serial then
r = PageUtil.serial
else
r = false
end
end
return r
end -- PageUtil.failsafe()

PageUtil.getProtection = function ( access, action )
-- Retrieve protection
-- access -- string or title or nil, with page, default: current
-- action -- string or nil, with action, default: edit
-- Returns number: One of: 0, 0.5, 0.75, 1
local t = type( access )
local r = 0
local p
if t == "string" then
t = mw.title.new( access )
elseif t == "table" then
t = access
else
t = mw.title.getCurrentTitle()
end
p = t.protectionLevels
if type( p ) == "table" then
local s
if type( action ) == "string" then
s = mw.text.trim( action )
if s == "" then
s = false
end
end
p = p[ s or "edit" ]
if type( p ) == "table" then
for k, v in pairs( p ) do
if v == "autoconfirmed" then
r = 0.5
elseif v == "editeditorprotected" then
r = 0.75
elseif v == "sysop" then
r = 1
end
end -- for k, v
end
end
return r
end -- PageUtil.getProtection()

PageUtil.merge = function ( args, frame )
-- Retrieve text
-- args -- table, with request
-- frame -- object, if available
-- Returns string, with content
local max = 0
local r = ""
for k, v in pairs( args ) do
if type( k ) == "number" and
k > max then
max = k
end
end -- for k, v
if max > 0 then
local n = 0
local pages = { { mw.title.getCurrentTitle().prefixedText,
"" } }
local mode, s, section, swallow
if not frame then
frame = mw.getCurrentFrame()
end
for i = 1, max do
s = args[ i ]
if s then
swallow = s:match( "^%s*(#lstx?:[^\n]*%S)%s*$" )
if swallow then
s = fraction( swallow, frame )
n = n + 1
else
swallow = s:match( "^%s*%[%[([^%[|%]\n]+)%]%]%s*$" )
if swallow then
s = full( swallow, frame, i, pages )
n = n + 1
end
end
if s then
r = r .. mw.text.trim( s )
end
if n > PageUtil.maxPages then
s = string.format( "'''Too many pages (max. %d)'''",
PageUtil.maxPages )
r = string.format( "%s\n\n%s",
r,
fault( s, frame ) )
break -- for i
end
end
end -- for i
r = flat( r, pages )
end
return r
end -- .merge()

-- Export
local p = { }

p.getProtection = function ( frame )
local n = PageUtil.getProtection( frame.args[ 1 ], frame.args[ 2 ] )
local t = { [ 0 ] = "",
[ 0.5 ] = mw.ustring.char( 189 ),
[ 0.75 ] = mw.ustring.char( 190 ),
[ 1 ] = "1" }
return t[ n ]
end -- p.getProtection

function p.isRedirect()
return mw.title.getCurrentTitle().isRedirect and "1" or ""
end -- p.isRedirect

p.merge = function ( frame )
local lucky, r = pcall( PageUtil.merge, frame.args, frame )
if not lucky then
r = fault( r, frame )
end
return r
end -- p.merge

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return PageUtil.failsafe( since ) or ""
end -- p.failsafe()

function p.PageUtil()
return PageUtil
end

return p

Modul:Multilingual

2022-02-23T14:42:25Z

Admin: 1 Version importiert

local Multilingual = { suite = "Multilingual",
serial = "2020-12-10",
item = 47541920,
globals = { ISO15924 = 71584769,
WLink = 19363224 }
}
--[=[
Utilities for multilingual texts and ISO 639 (BCP47) issues etc.
* fair()
* fallback()
* findCode()
* fix()
* format()
* getBase()
* getLang()
* getName()
* i18n()
* int()
* isLang()
* isLangWiki()
* isMinusculable()
* isRTL()
* message()
* sitelink()
* tabData()
* userLang()
* userLangCode()
* wikibase()
* failsafe()
loadData: Multilingual/config Multilingual/names
]=]
local Failsafe = Multilingual
local GlobalMod = Multilingual
local GlobalData = Multilingual
local User = { sniffer = "showpreview" }
Multilingual.globals.Multilingual = Multilingual.item

Multilingual.exotic = { simple = true,
no = true }
Multilingual.prefer = { cs = true,
de = true,
en = true,
es = true,
fr = true,
it = true,
nl = true,
pt = true,
ru = true,
sv = true }

local foreignModule = function ( access, advanced, append, alt, alert )
-- Fetch global module
-- Precondition:
-- access -- string, with name of base module
-- advanced -- true, for require(); else mw.loadData()
-- append -- string, with subpage part, if any; or false
-- alt -- number, of wikidata item of root; or false
-- alert -- true, for throwing error on data problem
-- Postcondition:
-- Returns whatever, probably table
-- 2020-01-01
local storage = access
local finer = function ()
if append then
storage = string.format( "%s/%s",
storage,
append )
end
end
local fun, lucky, r, suited
if advanced then
fun = require
else
fun = mw.loadData
end
GlobalMod.globalModules = GlobalMod.globalModules or { }
suited = GlobalMod.globalModules[ access ]
if not suited then
finer()
lucky, r = pcall( fun, "Module:" .. storage )
end
if not lucky then
if not suited and
type( alt ) == "number" and
alt > 0 then
suited = string.format( "Q%d", alt )
suited = mw.wikibase.getSitelink( suited )
GlobalMod.globalModules[ access ] = suited or true
end
if type( suited ) == "string" then
storage = suited
finer()
lucky, r = pcall( fun, storage )
end
if not lucky and alert then
error( "Missing or invalid page: " .. storage )
end
end
return r
end -- foreignModule()

local fetchData = function ( access )
-- Retrieve translated keyword from commons:Data:****.tab
-- Precondition:
-- access -- string, with page identification on Commons
-- Returns table, with data, or string, with error message
-- 2019-12-05
local storage = access
local r
if type( storage ) == "string" then
local s
storage = mw.text.trim( storage )
s = storage:lower()
if s:sub( 1, 2 ) == "c:" then
storage = mw.text.trim( storage:sub( 3 ) )
s = storage:lower()
elseif s:sub( 1, 8 ) == "commons:" then
storage = mw.text.trim( storage:sub( 9 ) )
s = storage:lower()
end
if s:sub( 1, 5 ) == "data:" then
storage = mw.text.trim( storage:sub( 6 ) )
s = storage:lower()
end
if s == "" or s == ".tab" then
storage = false
elseif s:sub( -4 ) == ".tab" then
storage = storage:sub( 1, -5 ) .. ".tab"
else
storage = storage .. ".tab"
end
end
if type( storage ) == "string" then
local data
if type( GlobalData.TabDATA ) ~= "table" then
GlobalData.TabDATA = { }
end
data = GlobalData.TabDATA[ storage ]
if data then
r = data
else
local lucky
lucky, data = pcall( mw.ext.data.get, storage, "_" )
if type( data ) == "table" then
data = data.data
if type( data ) == "table" then
GlobalData.TabDATA[ storage ] = data
else
r = string.format( "%s [[%s%s]]",
"INVALID Data:*.tab",
"commons:Data:",
storage )
end
else
r = "BAD PAGE Data:*.tab – commons:" .. storage
end
if r then
GlobalData.TabDATA[ storage ] = r
data = false
else
r = data
end
end
else
r = "BAD PAGE commons:Data:*.tab"
end
return r
end -- fetchData()

local favorites = function ()
-- Provide fallback codes
-- Postcondition:
-- Returns table with sequence of preferred languages
-- * ahead elements
-- * user (not yet accessible)
-- * page content language (not yet accessible)
-- * page name subpage
-- * project
-- * en
local r = Multilingual.polyglott
if not r then
local self = mw.language.getContentLanguage():getCode():lower()
local sub = mw.title.getCurrentTitle().subpageText
local f = function ( add )
local s = add
for i = 1, #r do
if r[ i ] == s then
s = false
break -- for i
end
end -- for i
if s then
table.insert( r, s )
end
end
r = { }
if sub:find( "/", 2, true ) then
sub = sub:match( "/(%l%l%l?)$" )
if sub then
table.insert( r, sub )
end
elseif sub:find( "^%l%l%l?%-?%a?%a?%a?%a?$" ) and
mw.language.isSupportedLanguage( sub ) then
table.insert( r, sub )
end
f( self )
f( "en" )
Multilingual.polyglott = r
end
return r
end -- favorites()

local feasible = function ( ask, accept )
-- Is ask to be supported by application?
-- Precondition:
-- ask -- lowercase code
-- accept -- sequence table, with offered lowercase codes
-- Postcondition:
-- nil, or true
local r
for i = 1, #accept do
if accept[ i ] == ask then
r = true
break -- for i
end
end -- for i
return r
end -- feasible()

local fetch = function ( access, append )
-- Attach config or library module
-- Precondition:
-- access -- module title
-- append -- string, with subpage part of this; or false
-- Postcondition:
-- Returns: table, with library, or false
local got, sign
if append then
sign = string.format( "%s/%s", access, append )
else
sign = access
end
if type( Multilingual.ext ) ~= "table" then
Multilingual.ext = { }
end
got = Multilingual.ext[ sign ]
if not got and got ~= false then
local global = Multilingual.globals[ access ]
local lib = ( not append or append == "config" )
got = foreignModule( access, lib, append, global )
if type( got ) == "table" then
if lib then
local startup = got[ access ]
if type( startup ) == "function" then
got = startup()
end
end
else
got = false
end
Multilingual.ext[ sign ] = got
end
return got
end -- fetch()

local fetchISO639 = function ( access )
-- Retrieve table from commons:Data:ISO639/***.tab
-- Precondition:
-- access -- string, with subpage identification
-- Postcondition:
-- Returns table, with data, even empty
local r
if type( Multilingual.iso639 ) ~= "table" then
Multilingual.iso639 = { }
end
r = Multilingual.iso639[ access ]
if type( r ) == "nil" then
local raw = fetchData( "ISO639/" .. access )
if type( raw ) == "table" then
local t
r = { }
for i = 1, #raw do
t = raw[ i ]
if type( t ) == "table" and
type( t[ 1 ] ) == "string" and
type( t[ 2 ] ) == "string" then
r[ t[ 1 ] ] = t[ 2 ]
else
break -- for i
end
end -- for i
else
r = false
end
Multilingual.iso639[ access ] = r
end
return r or { }
end -- fetchISO639()

local fill = function ( access, alien, frame )
-- Expand language name template
-- Precondition:
-- access -- string, with language code
-- alien -- language code for which to be generated
-- frame -- frame, if available
-- Postcondition:
-- Returns string
local template = Multilingual.tmplLang
local r
if type( template ) ~= "table" then
local cnf = fetch( "Multilingual", "config" )
if cnf then
template = cnf.tmplLang
end
end
if type( template ) == "table" then
local source = template.title
local f, lucky, s
Multilingual.tmplLang = template
if type( source ) ~= "string" and
type( template.namePat ) == "string" and
template.namePat:find( "%s", 1, true ) then
source = string.format( template.namePat, access )
end
if type( source ) == "string" then
if not Multilingual.frame then
if frame then
Multilingual.frame = frame
else
Multilingual.frame = mw.getCurrentFrame()
end
end
f = function ( a )
return Multilingual.frame:expandTemplate{ title = a }
end
lucky, s = pcall( f, source )
if lucky then
r = s
end
end
end
return r
end -- fill()

local find = function ( ask, alien )
-- Derive language code from name
-- Precondition:
-- ask -- language name, downcased
-- alien -- language code of ask
-- Postcondition:
-- nil, or string
local codes = mw.language.fetchLanguageNames( alien, "all" )
local r
for k, v in pairs( codes ) do
if mw.ustring.lower( v ) == ask then
r = k
break -- for k, v
end
end -- for k, v
if not r then
r = Multilingual.fair( ask )
end
return r
end -- find()

local fold = function ( frame )
-- Merge template and #invoke arglist
-- Precondition:
-- frame -- template frame
-- Postcondition:
-- table, with combined arglist
local r = { }
local f = function ( apply )
if type( apply ) == "table" and
type( apply.args ) == "table" then
for k, v in pairs( apply.args ) do
v = mw.text.trim( v )
if v ~= "" then
r[ tostring( k ) ] = v
end
end -- for k, v
end
end -- f()
f( frame:getParent() )
f( frame )
return r
end -- fold()

User.favorize = function ( accept, frame )
-- Guess user language
-- Precondition:
-- accept -- sequence table, with offered ISO 639 etc. codes
-- frame -- frame, if available
-- Postcondition:
-- Returns string with best code, or nil
if not ( User.self or User.langs ) then
if not User.trials then
User.tell = mw.message.new( User.sniffer )
if User.tell:exists() then
User.trials = { }
if not Multilingual.frame then
if frame then
Multilingual.frame = frame
else
Multilingual.frame = mw.getCurrentFrame()
end
end
User.sin = Multilingual.frame:callParserFunction( "int",
User.sniffer )
else
User.langs = true
end
end
if User.sin then
local order = { }
local post = { }
local three = { }
local unfold = { }
local s, sin
for i = 1, #accept do
s = accept[ i ]
if not User.trials[ s ] then
if #s > 2 then
if s:find( "-", 3, true ) then
table.insert( unfold, s )
else
table.insert( three, s )
end
else
if Multilingual.prefer[ s ] then
table.insert( order, s )
else
table.insert( post, s )
end
end
end
end -- for i
for i = 1, #post do
table.insert( order, post[ i ] )
end -- for i
for i = 1, #three do
table.insert( order, three[ i ] )
end -- for i
for i = 1, #unfold do
table.insert( order, unfold[ i ] )
end -- for i
for i = 1, #order do
s = order[ i ]
sin = User.tell:inLanguage( s ):plain()
if sin == User.sin then
User.self = s
break -- for i
else
User.trials[ s ] = true
end
end -- for i
end
end
return User.self
end -- User.favorize()

Multilingual.fair = function ( ask )
-- Format language specification according to RFC 5646 etc.
-- Precondition:
-- ask -- string or table, as created by .getLang()
-- Postcondition:
-- Returns string, or false
local s = type( ask )
local q, r
if s == "table" then
q = ask
elseif s == "string" then
q = Multilingual.getLang( ask )
end
if q and
q.legal and
mw.language.isKnownLanguageTag( q.base ) then
r = q.base
if q.n > 1 then
local order = { "extlang",
"script",
"region",
"other",
"extension" }
for i = 1, #order do
s = q[ order[ i ] ]
if s then
r = string.format( "%s-%s", r, s )
end
end -- for i
end
end
return r or false
end -- Multilingual.fair()

Multilingual.fallback = function ( able, another )
-- Is another language suitable as replacement?
-- Precondition:
-- able -- language version specifier to be supported
-- another -- language specifier of a possible replacement,
-- or not to retrieve a fallback table
-- Postcondition:
-- Returns boolean, or table with fallback codes
local r
if type( able ) == "string" and #able > 0 then
if type( another ) == "string" and #another > 0 then
if able == another then
r = true
else
local s = Multilingual.getBase( able )
if s == another then
r = true
else
local others = mw.language.getFallbacksFor( s )
r = feasible( another, others )
end
end
else
local s = Multilingual.getBase( able )
if s then
r = mw.language.getFallbacksFor( s )
if r[ 1 ] == "en" then
local d = fetchISO639( "fallback" )
if type( d ) == "table" and
type( d[ s ] ) == "string" then
r = mw.text.split( d[ s ], "|" )
table.insert( r, "en" )
end
end
end
end
end
return r or false
end -- Multilingual.fallback()

Multilingual.findCode = function ( ask )
-- Retrieve code of local (current project or English) language name
-- Precondition:
-- ask -- string, with presumable language name
-- A code itself will be identified, too.
-- Postcondition:
-- Returns string, or false
local seek = mw.text.trim( ask )
local r = false
if #seek > 1 then
if seek:find( "[", 1, true ) then
local wlink = fetch( "WLink" )
if wlink and
type( wlink.getPlain ) == "function" then
seek = wlink.getPlain( seek )
end
end
seek = mw.ustring.lower( seek )
if Multilingual.isLang( seek ) then
r = Multilingual.fair( seek )
else
local collection = favorites()
for i = 1, #collection do
r = find( seek, collection[ i ] )
if r then
break -- for i
end
end -- for i
end
end
return r
end -- Multilingual.findCode()

Multilingual.fix = function ( attempt )
-- Fix frequently mistaken language code
-- Precondition:
-- attempt -- string, with presumable language code
-- Postcondition:
-- Returns string with correction, or false if no problem known
local r = fetchISO639( "correction" )[ attempt:lower() ]
return r or false
end -- Multilingual.fix()

Multilingual.format = function ( apply, alien, alter, active, alert,
frame, assembly, adjacent, ahead )
-- Format one or more languages
-- Precondition:
-- apply -- string with language list or item
-- alien -- language of the answer
-- -- nil, false, "*": native
-- -- "!": current project
-- -- "#": code, downcased, space separated
-- -- "-": code, mixcase, space separated
-- -- any valid code
-- alter -- capitalize, if "c"; downcase all, if "d"
-- capitalize first item only, if "f"
-- downcase every first word only, if "m"
-- active -- link items, if true
-- alert -- string with category title in case of error
-- frame -- if available
-- assembly -- string with split pattern, if list expected
-- adjacent -- string with list separator, else assembly
-- ahead -- string to prepend first element, if any
-- Postcondition:
-- Returns string, or false if apply empty
local r = false
if apply then
local slang
if assembly then
local bucket = mw.text.split( apply, assembly )
local shift = alter
local separator
if adjacent then
separator = adjacent
elseif alien == "#" or alien == "-" then
separator = " "
else
separator = assembly
end
for k, v in pairs( bucket ) do
slang = Multilingual.format( v, alien, shift, active,
alert )
if slang then
if r then
r = string.format( "%s%s%s",
r, separator, slang )
else
r = slang
if shift == "f" then
shift = "d"
end
end
end
end -- for k, v
if r and ahead then
r = ahead .. r
end
else
local single = mw.text.trim( apply )
if single == "" then
r = false
else
local lapsus, slot
slang = Multilingual.findCode( single )
if slang then
if alien == "-" then
r = slang
elseif alien == "#" then
r = slang:lower()
else
r = Multilingual.getName( slang, alien )
if active then
slot = fill( slang, false, frame )
if slot then
local wlink = fetch( "WLink" )
if wlink and
type( wlink.getTarget )
== "function" then
slot = wlink.getTarget( slot )
end
else
lapsus = alert
end
end
end
else
r = single
if active then
local title = mw.title.makeTitle( 0, single )
if title.exists then
slot = single
end
end
lapsus = alert
end
if not r then
r = single
elseif alter == "c" or alter == "f" then
r = mw.ustring.upper( mw.ustring.sub( r, 1, 1 ) )
.. mw.ustring.sub( r, 2 )
elseif alter == "d" then
if Multilingual.isMinusculable( slang, r ) then
r = mw.ustring.lower( r )
end
elseif alter == "m" then
if Multilingual.isMinusculable( slang, r ) then
r = mw.ustring.lower( mw.ustring.sub( r, 1, 1 ) )
.. mw.ustring.sub( r, 2 )
end
end
if slot then
if r == slot then
r = string.format( "[[%s]]", r )
else
r = string.format( "[[%s|%s]]", slot, r )
end
end
if lapsus and alert then
r = string.format( "%s[[Category:%s]]", r, alert )
end
end
end
end
return r
end -- Multilingual.format()

Multilingual.getBase = function ( ask )
-- Retrieve base language from possibly combined ISO language code
-- Precondition:
-- ask -- language code
-- Postcondition:
-- Returns string, or false
local r
if ask then
local slang = ask:match( "^%s*(%a%a%a?)-?%a*%s*$" )
if slang then
r = slang:lower()
else
r = false
end
else
r = false
end
return r
end -- Multilingual.getBase()

Multilingual.getLang = function ( ask )
-- Retrieve components of a RFC 5646 language code
-- Precondition:
-- ask -- language code with subtags
-- Postcondition:
-- Returns table with formatted subtags
-- .base
-- .region
-- .script
-- .suggest
-- .year
-- .extension
-- .other
-- .n
local tags = mw.text.split( ask, "-" )
local s = tags[ 1 ]
local r
if s:match( "^%a%a%a?$" ) then
r = { base = s:lower(),
legal = true,
n = #tags }
for i = 2, r.n do
s = tags[ i ]
if #s == 2 then
if r.region or not s:match( "%a%a" ) then
r.legal = false
else
r.region = s:upper()
end
elseif #s == 4 then
if s:match( "%a%a%a%a" ) then
r.legal = ( not r.script )
r.script = s:sub( 1, 1 ):upper() ..
s:sub( 2 ):lower()
elseif s:match( "20%d%d" ) or
s:match( "1%d%d%d" ) then
r.legal = ( not r.year )
r.year = s
else
r.legal = false
end
elseif #s == 3 then
if r.extlang or not s:match( "%a%a%a" ) then
r.legal = false
else
r.extlang = s:lower()
end
elseif #s == 1 then
s = s:lower()
if s:match( "[tux]" ) then
r.extension = s
for k = i + 1, r.n do
s = tags[ k ]
if s:match( "^%w+$" ) then
r.extension = string.format( "%s-%s",
r.extension, s )
else
r.legal = false
end
end -- for k
else
r.legal = false
end
break -- for i
else
r.legal = ( not r.other ) and
s:match( "%a%a%a" )
r.other = s:lower()
end
if not r.legal then
break -- for i
end
end -- for i
if r.legal then
r.suggest = Multilingual.fix( r.base )
if r.suggest then
r.legal = false
end
end
else
r = { legal = false }
end
if not r.legal then
local cnf = fetch( "Multilingual", "config" )
if cnf and type( cnf.scream ) == "string" then
r.scream = cnf.scream
end
end
return r
end -- Multilingual.getLang()

Multilingual.getName = function ( ask, alien )
-- Which name is assigned to this language code?
-- Precondition:
-- ask -- language code
-- alien -- language of the answer
-- -- nil, false, "*": native
-- -- "!": current project
-- -- any valid code
-- Postcondition:
-- Returns string, or false
local r
if ask then
local slang = alien
local tLang
if slang then
if slang == "*" then
slang = Multilingual.fair( ask )
elseif slang == "!" then
slang = favorites()[ 1 ]
else
slang = Multilingual.fair( slang )
end
else
slang = Multilingual.fair( ask )
end
if not slang then
slang = ask or "?????"
end
slang = slang:lower()
tLang = fetch( "Multilingual", "names" )
if tLang then
tLang = tLang[ slang ]
if tLang then
r = tLang[ ask ]
end
end
if not r then
if not Multilingual.ext.tMW then
Multilingual.ext.tMW = { }
end
tLang = Multilingual.ext.tMW[ slang ]
if tLang == nil then
tLang = mw.language.fetchLanguageNames( slang )
if tLang then
Multilingual.ext.tMW[ slang ] = tLang
else
Multilingual.ext.tMW[ slang ] = false
end
end
if tLang then
r = tLang[ ask ]
end
end
if not r then
r = mw.language.fetchLanguageName( ask:lower(), slang )
if r == "" then
r = false
end
end
else
r = false
end
return r
end -- Multilingual.getName()

Multilingual.i18n = function ( available, alt, frame )
-- Select translatable message
-- Precondition:
-- available -- table, with mapping language code ./. text
-- alt -- string|nil|false, with fallback text
-- frame -- frame, if available
-- Returns
-- 1. string|nil|false, with selected message
-- 2. string|nil|false, with language code
local r1, r2
if type( available ) == "table" then
local codes = { }
local trsl = { }
local slang
for k, v in pairs( available ) do
if type( k ) == "string" and
type( v ) == "string" then
slang = mw.text.trim( k:lower() )
table.insert( codes, slang )
trsl[ slang ] = v
end
end -- for k, v
slang = Multilingual.userLang( codes, frame )
if slang and trsl[ slang ] then
r1 = mw.text.trim( trsl[ slang ] )
if r1 == "" then
r1 = false
else
r2 = slang
end
end
end
if not r1 and type( alt ) == "string" then
r1 = mw.text.trim( alt )
if r1 == "" then
r1 = false
end
end
return r1, r2
end -- Multilingual.i18n()

Multilingual.int = function ( access, alien, apply )
-- Translated system message
-- Precondition:
-- access -- message ID
-- alien -- language code
-- apply -- nil, or sequence table with parameters $1, $2, ...
-- Postcondition:
-- Returns string, or false
local o = mw.message.new( access )
local r
if o:exists() then
if type( alien ) == "string" then
o:inLanguage( alien:lower() )
end
if type( apply ) == "table" then
o:params( apply )
end
r = o:plain()
end
return r or false
end -- Multilingual.int()

Multilingual.isLang = function ( ask, additional )
-- Could this be an ISO language code?
-- Precondition:
-- ask -- language code
-- additional -- true, if Wiki codes like "simple" permitted
-- Postcondition:
-- Returns boolean
local r, s
if additional then
s = ask
else
s = Multilingual.getBase( ask )
end
if s then
r = mw.language.isKnownLanguageTag( s )
if r then
r = not Multilingual.fix( s )
elseif additional then
r = Multilingual.exotic[ s ] or false
end
else
r = false
end
return r
end -- Multilingual.isLang()

Multilingual.isLangWiki = function ( ask )
-- Could this be a Wiki language version?
-- Precondition:
-- ask -- language version specifier
-- Postcondition:
-- Returns boolean
local r
local s = Multilingual.getBase( ask )
if s then
r = mw.language.isSupportedLanguage( s ) or
Multilingual.exotic[ ask ]
else
r = false
end
return r
end -- Multilingual.isLangWiki()

Multilingual.isMinusculable = function ( ask, assigned )
-- Could this language name become downcased?
-- Precondition:
-- ask -- language code, or nil
-- assigned -- language name, or nil
-- Postcondition:
-- Returns boolean
local r = true
if ask then
local cnf = fetch( "Multilingual", "config" )
if cnf then
local s = string.format( " %s ", ask:lower() )
if type( cnf.stopMinusculization ) == "string"
and cnf.stopMinusculization:find( s, 1, true ) then
r = false
end
if r and assigned
and type( cnf.seekMinusculization ) == "string"
and cnf.seekMinusculization:find( s, 1, true )
and type( cnf.scanMinusculization ) == "string" then
local scan = assigned:gsub( "[%(%)]", " " ) .. " "
if not scan:find( cnf.scanMinusculization ) then
r = false
end
end
end
end
return r
end -- Multilingual.isMinusculable()

Multilingual.isRTL = function ( ask )
-- Check whether language is written right-to-left
-- Precondition:
-- ask -- string, with language (or script) code
-- Returns true, if right-to-left
local r
Multilingual.rtl = Multilingual.rtl or { }
r = Multilingual.rtl[ ask ]
if type( r ) ~= "boolean" then
local bib = fetch( "ISO15924" )
if type( bib ) == "table" and
type( bib.isRTL ) == "function" then
r = bib.isRTL( ask )
else
r = mw.language.new( ask ):isRTL()
end
Multilingual.rtl[ ask ] = r
end
return r
end -- Multilingual.isRTL()

Multilingual.message = function ( arglist, frame )
-- Show text in best match of user language like system message
-- Precondition:
-- arglist -- template arguments
-- frame -- frame, if available
-- Postcondition:
-- Returns string with appropriate text
local r
if type( arglist ) == "table" then
local t = { }
local m, p, save
for k, v in pairs( arglist ) do
if type( k ) == "string" and
type( v ) == "string" then
v = mw.text.trim( v )
if v ~= "" then
if k:match( "^%l%l" ) then
t[ k ] = v
elseif k:match( "^%$%d$" ) and k ~= "$0" then
p = p or { }
k = tonumber( k:match( "^%$(%d)$" ) )
p[ k ] = v
if not m or k > m then
m = k
end
end
end
end
end -- for k, v
if type( arglist[ "-" ] ) == "string" then
save = arglist[ arglist[ "-" ] ]
end
r = Multilingual.i18n( t, save, frame )
if p and r and r:find( "$", 1, true ) then
t = { }
for i = 1, m do
t[ i ] = p[ i ] or ""
end -- for i
r = mw.message.newRawMessage( r, t ):plain()
end
end
return r or ""
end -- Multilingual.message()

Multilingual.sitelink = function ( all, frame )
-- Make link at local or other site with optimal linktext translation
-- Precondition:
-- all -- string or table or number, item ID or entity
-- frame -- frame, if available
-- Postcondition:
-- Returns string with any helpful internal link, or plain text
local s = type( all )
local object, r
if s == "table" then
object = all
elseif s == "string" then
object = mw.wikibase.getEntity( all )
elseif s == "number" then
object = mw.wikibase.getEntity( string.format( "Q%d", all ) )
end
if type( object ) == "table" then
local collection = object.sitelinks
local entry
s = false
if type( collection ) == "table" then
Multilingual.site = Multilingual.site or
mw.wikibase.getGlobalSiteId()
entry = collection[ Multilingual.site ]
if entry then
s = ":" .. entry.title
elseif collection.enwiki then
s = "w:en:" .. collection.enwiki.title
end
end
r = Multilingual.wikibase( object, "labels", frame )
if s then
if s == ":" .. r then
r = string.format( "[[%s]]", s )
else
r = string.format( "[[%s|%s]]", s, r )
end
end
end
return r or ""
end -- Multilingual.sitelink()

Multilingual.tabData = function ( access, at, alt, frame )
-- Retrieve translated keyword from commons:Data:****.tab
-- Precondition:
-- access -- string, with page identification on Commons
-- at -- string, with keyword
-- alt -- string|nil|false, with fallback text
-- frame -- frame, if available
-- Returns
-- 1. string|nil|false, with selected message
-- 2. language code, or "error"
local data = fetchData( access )
local r1, r2
if type( data ) == "table" then
if type( at ) == "string" then
local seek = mw.text.trim( at )
if seek == "" then
r1 = "EMPTY Multilingual.tabData key"
else
local e, poly
for i = 1, #data do
e = data[ i ]
if type( e ) == "table" then
if e[ 1 ] == seek then
if type( e[ 2 ] ) == "table" then
poly = e[ 2 ]
else
r1 = "INVALID Multilingual.tabData bad #"
.. tostring( i )
end
break -- for i
end
else
break -- for i
end
end -- for i
if poly then
data = poly
else
r1 = "UNKNOWN Multilingual.tabData key: " .. seek
end
end
else
r1 = "INVALID Multilingual.tabData key"
end
else
r1 = data
end
if r1 then
r2 = "error"
elseif data then
r1, r2 = Multilingual.i18n( data, alt, frame )
r2 = r2 or "error"
end
return r1, r2
end -- Multilingual.tabData()

Multilingual.userLang = function ( accept, frame )
-- Try to support user language by application
-- Precondition:
-- accept -- string or table
-- space separated list of available ISO 639 codes
-- Default: project language, or English
-- frame -- frame, if available
-- Postcondition:
-- Returns string with appropriate code
local s = type( accept )
local codes, r, slang
if s == "string" then
codes = mw.text.split( accept:lower(), "%s+" )
elseif s == "table" then
codes = { }
for i = 1, #accept do
s = accept[ i ]
if type( s ) == "string" and
s ~= "" then
table.insert( codes, s:lower() )
end
end -- for i
end
slang = User.favorize( codes, frame )
if slang then
if feasible( slang, codes ) then
r = slang
elseif slang:find( "-", 1, true ) then
slang = Multilingual.getBase( slang )
if feasible( slang, codes ) then
r = slang
end
end
if not r then
local others = mw.language.getFallbacksFor( slang )
for i = 1, #others do
slang = others[ i ]
if feasible( slang, codes ) then
r = slang
break -- for i
end
end -- for i
end
end
if not r then
local back = favorites()
for i = 1, #back do
slang = back[ i ]
if feasible( slang, codes ) then
r = slang
break -- for i
end
end -- for i
if not r and codes[ 1 ] then
r = codes[ 1 ]
end
end
return r or favorites()[ 1 ]
end -- Multilingual.userLang()

Multilingual.userLangCode = function ()
-- Guess a user language code
-- Postcondition:
-- Returns code of current best guess
return User.self or favorites()[ 1 ]
end -- Multilingual.userLangCode()

Multilingual.wikibase = function ( all, about, attempt, frame )
-- Optimal translation of wikibase component
-- Precondition:
-- all -- string or table, object ID or entity
-- about -- boolean, true "descriptions" or false "labels"
-- attempt -- string or not, code of preferred language
-- frame -- frame, if available
-- Postcondition:
-- Returns
-- 1. string, with selected message
-- 2. string, with language code, or not
local s = type( all )
local object, r, r2
if s == "table" then
object = all
elseif s == "string" then
object = mw.wikibase.getEntity( all )
end
if type( object ) == "table" then
if about and about ~= "labels" then
s = "descriptions"
else
s = "labels"
end
object = object[ s ]
if type( object ) == "table" then
if object[ attempt ] then
r = object[ attempt ].value
r2 = attempt
else
local poly
for k, v in pairs( object ) do
poly = poly or { }
poly[ k ] = v.value
end -- for k, v
if poly then
r, r2 = Multilingual.i18n( poly, nil, frame )
end
end
end
end
return r or "", r2
end -- Multilingual.wikibase()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version
-- or wikidata|item|~|@ or false
-- Postcondition:
-- Returns string -- with queried version/item, also if problem
-- false -- if appropriate
-- 2020-08-17
local since = atleast
local last = ( since == "~" )
local linked = ( since == "@" )
local link = ( since == "item" )
local r
if last or link or linked or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local suited = string.format( "Q%d", item )
if link then
r = suited
else
local entity = mw.wikibase.getEntity( suited )
if type( entity ) == "table" then
local seek = Failsafe.serialProperty or "P348"
local vsn = entity:formatPropertyValues( seek )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
elseif linked then
if mw.title.getCurrentTitle().prefixedText
== mw.wikibase.getSitelink( suited ) then
r = false
else
r = suited
end
else
r = vsn.value
end
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

-- Export
local p = { }

p.fair = function ( frame )
-- Format language code
-- 1 -- language code
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.fair( s ) or ""
end -- p.fair

p.fallback = function ( frame )
-- Is another language suitable as replacement?
-- 1 -- language version specifier to be supported
-- 2 -- language specifier of a possible replacement
local s1 = mw.text.trim( frame.args[ 1 ] or "" )
local s2 = mw.text.trim( frame.args[ 2 ] or "" )
local r = Multilingual.fallback( s1, s2 )
if type( r ) == "table" then
r = r[ 1 ]
else
r = r and "1" or ""
end
return r
end -- p.fallback

p.findCode = function ( frame )
-- Retrieve language code from language name
-- 1 -- name in current project language
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.findCode( s ) or ""
end -- p.findCode

p.fix = function ( frame )
local r = frame.args[ 1 ]
if r then
r = Multilingual.fix( mw.text.trim( r ) )
end
return r or ""
end -- p.fix

p.format = function ( frame )
-- Format one or more languages
-- 1 -- language list or item
-- slang -- language of the answer, if not native
-- * -- native
-- ! -- current project
-- any valid code
-- shift -- capitalize, if "c"; downcase, if "d"
-- capitalize first item only, if "f"
-- link -- 1 -- link items
-- scream -- category title in case of error
-- split -- split pattern, if list expected
-- separator -- list separator, else split
-- start -- prepend first element, if any
local r
local link
if frame.args.link == "1" then
link = true
end
r = Multilingual.format( frame.args[ 1 ],
frame.args.slang,
frame.args.shift,
link,
frame.args.scream,
frame,
frame.args.split,
frame.args.separator,
frame.args.start )
return r or ""
end -- p.format

p.getBase = function ( frame )
-- Retrieve base language from possibly combined ISO language code
-- 1 -- code
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.getBase( s ) or ""
end -- p.getBase

p.getName = function ( frame )
-- Retrieve language name from ISO language code
-- 1 -- code
-- 2 -- language to be used for the answer, if not native
-- ! -- current project
-- * -- native
-- any valid code
local s = mw.text.trim( frame.args[ 1 ] or "" )
local slang = frame.args[ 2 ]
local r
Multilingual.frame = frame
if slang then
slang = mw.text.trim( slang )
end
r = Multilingual.getName( s, slang )
return r or ""
end -- p.getName

p.int = function ( frame )
-- Translated system message
-- 1 -- message ID
-- lang -- language code
-- $1, $2, ... -- parameters
local sysMsg = frame.args[ 1 ]
local r
if sysMsg then
sysMsg = mw.text.trim( sysMsg )
if sysMsg ~= "" then
local n = 0
local slang = frame.args.lang
local i, params, s
if slang == "" then
slang = false
end
for k, v in pairs( frame.args ) do
if type( k ) == "string" then
s = k:match( "^%$(%d+)$" )
if s then
i = tonumber( s )
if i > n then
n = i
end
end
end
end -- for k, v
if n > 0 then
local s
params = { }
for i = 1, n do
s = frame.args[ "$" .. tostring( i ) ] or ""
table.insert( params, s )
end -- for i
end
r = Multilingual.int( sysMsg, slang, params )
end
end
return r or ""
end -- p.int

p.isLang = function ( frame )
-- Could this be an ISO language code?
-- 1 -- code
local s = mw.text.trim( frame.args[ 1 ] or "" )
local lucky, r = pcall( Multilingual.isLang, s )
return r and "1" or ""
end -- p.isLang

p.isLangWiki = function ( frame )
-- Could this be a Wiki language version?
-- 1 -- code
-- Returns non-empty, if possibly language version
local s = mw.text.trim( frame.args[ 1 ] or "" )
local lucky, r = pcall( Multilingual.isLangWiki, s )
return r and "1" or ""
end -- p.isLangWiki

p.isRTL = function ( frame )
-- Check whether language is written right-to-left
-- 1 -- string, with language code
-- Returns non-empty, if right-to-left
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.isRTL( s ) and "1" or ""
end -- p.isRTL()

p.message = function ( frame )
-- Translation of text element
return Multilingual.message( fold( frame ), frame )
end -- p.message

p.sitelink = function ( frame )
-- Make link at local or other site with optimal linktext translation
-- 1 -- item ID
local s = mw.text.trim( frame.args[ 1 ] or "" )
local r
if s:match( "^%d+$") then
r = tonumber( s )
elseif s:match( "^Q%d+$") then
r = s
end
if r then
r = Multilingual.sitelink( r, frame )
end
return r or s
end -- p.sitelink

p.tabData = function ( frame )
-- Retrieve best message text from Commons Data
-- 1 -- page identification on Commons
-- 2 -- keyword
-- alt -- fallback text
local suite = frame.args[ 1 ]
local seek = frame.args[ 2 ]
local salt = frame.args.alt
local r = Multilingual.tabData( suite, seek, salt, frame )
return r
end -- p.tabData

p.userLang = function ( frame )
-- Which language does the current user prefer?
-- 1 -- space separated list of available ISO 639 codes
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.userLang( s, frame )
end -- p.userLang

p.wikibase = function ( frame )
-- Optimal translation of wikibase component
-- 1 -- object ID
-- 2 -- 1 for "descriptions", 0 for "labels".
-- or either "descriptions" or "labels"
local r
local s = mw.text.trim( frame.args[ 1 ] or "" )
if s ~= "" then
local s2 = mw.text.trim( frame.args[ 2 ] or "0" )
local slang = mw.text.trim( frame.args.lang or "" )
local large = ( s2 ~= "" and s2 ~= "0" )
if slang == "" then
slang = false
end
r = Multilingual.wikibase( s, large, slang, frame )
end
return r or ""
end -- p.wikibase

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe()

p.Multilingual = function ()
return Multilingual
end -- p.Multilingual

return p

Modul:JSONutil

2022-02-23T14:42:25Z

Admin: 1 Version importiert

local JSONutil = { suite = "JSONutil",
serial = "2020-11-08",
item = 63869449 }
--[=[
preprocess or generate JSON data
]=]

local Failsafe = JSONutil
JSONutil.Encoder = { stab = string.char( 9 ),
sep = string.char( 10 ),
scream = "@error@JSONencoder@" }
JSONutil.more = 50 -- length of trailing context

local Fallback = function ()
-- Retrieve current default language code
-- Returns string
return mw.language.getContentLanguage():getCode()
:lower()
end -- Fallback()

local flat = function ( adjust )
-- Clean template argument string
-- Parameter:
-- adjust -- string, or not
-- Returns:
-- string
local r
if adjust then
r = mw.text.trim( mw.text.unstripNoWiki( adjust ) )
else
r = ""
end
return r
end -- flat()

local flip = function ( frame )
-- Retrieve template argument indent
-- Parameter:
-- frame -- object
-- Returns:
-- number, of indentation level, or not
local r
if frame.args.indent and frame.args.indent:match( "^%d+$" ) then
r = tonumber( frame.args.indent )
end
return r
end -- flip()

JSONutil.Encoder.Array = function ( apply, adapt, alert )
-- Convert table to JSON Array
-- Parameter:
-- apply -- table, with sequence of raw elements, or
-- string, with formatted Array, or empty
-- adapt -- string, with requested type, or not
-- alert -- true, if non-numeric elements shall trigger errors
-- Returns:
-- string, with JSON Array
local r = type( apply )
if r == "string" then
r = mw.text.trim( apply )
if r == "" then
r = "[]"
elseif r:byte( 1, 1 ) ~= 0x5B or
r:byte( -1, -1 ) ~= 0x5D then
r = false
end
elseif r == "table" then
local n = 0
local strange
for k, v in pairs( apply ) do
if type( k ) == "number" then
if k > n then
n = k
end
elseif alert then
if strange then
strange = strange .. " "
else
strange = ""
end
strange = strange .. tostring( k )
end
end -- for k, v
if strange then
r = string.format( "{ \"%s\": \"%s\" }",
JSONutil.Encoder.scream,
JSONutil.Encoder.string( strange ) )
elseif n > 0 then
local sep = ""
local scope = adapt or "string"
local s
if type( JSONutil.Encoder[ scope ] ) ~= "function" then
scope = "string"
end
r = " ]"
for i = n, 1, -1 do
s = JSONutil.Encoder[ scope ]( apply[ i ] )
r = string.format( "%s%s%s", s, sep, r )
sep = ",\n "
end -- for i = n, 1, -1
r = "[ " .. r
else
r = "[]"
end
else
r = false
end
if not r then
r = string.format( "[ \"%s * %s\" ]",
JSONutil.Encoder.scream,
"Bad Array" )
end
return r
end -- JSONutil.Encoder.Array()

JSONutil.Encoder.boolean = function ( apply )
-- Convert string to JSON boolean
-- Parameter:
-- apply -- string, with value
-- Returns:
-- boolean as string
local r = mw.text.trim( apply )
if r == "" or r == "null" or r == "false"
or r == "0" or r == "-" then
r = "false"
else
r = "true"
end
return r
end -- JSONutil.Encoder.boolean()

JSONutil.Encoder.Component = function ( access, apply,
adapt, align, alert )
-- Create single entry for mapping object
-- Parameter:
-- access -- string, with component name
-- apply -- component value
-- adapt -- string, with value type, or not
-- align -- number, of indentation level, or not
-- alert --
-- Returns:
-- string, with JSON fragment, and comma
local v = apply
local types = adapt
local indent, liner, scope, sep, sign
if type( access ) == "string" then
sign = mw.text.trim( access )
if sign == "" then
sign = false
end
end
if type( types ) == "string" then
types = mw.text.split( mw.text.trim( types ), "%s+" )
end
if type( types ) ~= "table" then
types = { }
table.insert( types, "string" )
end
if #types == 1 then
scope = types[ 1 ]
else
for i = 1, #types do
if types[ i ] == "boolean" then
if v == "1" or v == 1 or v == true then
v = "true"
scope = "boolean"
elseif v == "0" or v == 0 or v == false then
v = "false"
scope = "boolean"
end
if scope then
types = { }
break -- for i
else
table.remove( types, i )
end
end
end -- for i
for i = 1, #types do
if types[ i ] == "number" then
if tonumber( v ) then
v = tostring( v )
scope = "number"
types = { }
break -- for i
else
table.remove( types, i )
end
end
end -- for i
end
scope = scope or "string"
if type( JSONutil.Encoder[ scope ] ) ~= "function" then
scope = "string"
elseif scope == "I18N" then
scope = "Polyglott"
end
if scope == "string" then
v = v or ""
end
if type( align ) == "number" and align > 0 then
indent = math.floor( align )
if indent == 0 then
indent = false
end
end
if scope == "object" or not sign then
liner = true
elseif scope == "string" then
local k = mw.ustring.len( sign ) + mw.ustring.len( v )
if k > 60 then
liner = true
end
end
if liner then
if indent then
sep = "\n" .. string.rep( " ", indent )
else
sep = "\n"
end
else
sep = " "
end
if indent then
indent = indent + 1
end
return string.format( " \"%s\":%s%s,\n",
sign or "???",
sep,
JSONutil.Encoder[ scope ]( v, indent ) )
end -- JSONutil.Encoder.Component()

JSONutil.Encoder.Hash = function ( apply, adapt, alert )
-- Create entries for mapping object
-- Parameter:
-- apply -- table, with element value assignments
-- adapt -- table, with value types assignment, or not
-- Returns:
-- string, with JSON fragment, and comma
local r = ""
local s
for k, v in pairs( apply ) do
if type( adapt ) == "table" then
s = adapt[ k ]
end
r = r .. JSONutil.Encoder.Component( tostring( k ), v, s )
end -- for k, v
return
end -- JSONutil.Encoder.Hash()

JSONutil.Encoder.I18N = function ( apply, align )
-- Convert multilingual string table to JSON
-- Parameter:
-- apply -- table, with mapping object
-- align -- number, of indentation level, or not
-- Returns:
-- string, with JSON object
local r = type( apply )
if r == "table" then
local strange
local fault = function ( a )
if strange then
strange = strange .. " *\n "
else
strange = ""
end
strange = strange .. a
end
local got, sep, indent
for k, v in pairs( apply ) do
if type( k ) == "string" then
k = mw.text.trim( k )
if type( v ) == "string" then
v = mw.text.trim( v )
if v == "" then
fault( string.format( "%s %s=",
"Empty text", k ) )
end
if not ( k:match( "%l%l%l?" ) or
k:match( "%l%l%l?-%u%u" ) or
k:match( "%l%l%l?-%u%l%l%l+" ) ) then
fault( string.format( "%s %s=",
"Strange language code",
k ) )
end
else
v = tostring( v )
fault( string.format( "%s %s=%s",
"Bad type for text",
k,
type( v ) ) )
end
got = got or { }
got[ k ] = v
else
fault( string.format( "%s %s: %s",
"Bad language code type",
type( k ),
tostring( k ) ) )
end
end -- for k, v
if not got then
fault( "No language codes" )
got = { }
end
if strange then
got[ JSONutil.Encoder.scream ] = strange
end
r = false
if type( align ) == "number" and align > 0 then
indent = math.floor( align )
else
indent = 0
end
sep = string.rep( " ", indent + 1 )
for k, v in pairs( got ) do
if r then
r = r .. ",\n"
else
r = ""
end
r = string.format( "%s %s%s: %s",
r,
sep,
JSONutil.Encoder.string( k ),
JSONutil.Encoder.string( v ) )
end -- for k, v
r = string.format( "{\n%s\n%s}", r, sep )
elseif r == "string" then
r = JSONutil.Encoder.string( apply )
else
r = string.format( "{ \"%s\": \"%s: %s\" }",
JSONutil.Encoder.scream,
"Bad Lua type",
r )
end
return r
end -- JSONutil.Encoder.I18N()

JSONutil.Encoder.number = function ( apply )
-- Convert string to JSON number
-- Parameter:
-- apply -- string, with presumable number
-- Returns:
-- number, or "NaN"
local s = mw.text.trim( apply )
JSONutil.Encoder.minus = JSONutil.Encoder.minus or
mw.ustring.char( 0x2212 )
s = s:gsub( JSONutil.Encoder.minus, "-" )
return tonumber( s:lower() ) or "NaN"
end -- JSONutil.Encoder.number()

JSONutil.Encoder.object = function ( apply, align )
-- Create mapping object
-- Parameter:
-- apply -- string, with components, may end with comma
-- align -- number, of indentation level, or not
-- Returns:
-- string, with JSON fragment
local story = mw.text.trim( apply )
local start = ""
if story:sub( -1 ) == "," then
story = story:sub( 1, -2 )
end
if type( align ) == "number" and align > 0 then
local indent = math.floor( align )
if indent > 0 then
start = string.rep( " ", indent )
end
end
return string.format( "%s{ %s\n%s}", start, story, start )
end -- JSONutil.Encoder.object()

JSONutil.Encoder.Polyglott = function ( apply, align )
-- Convert string or multilingual string table to JSON
-- Parameter:
-- apply -- string, with string or object
-- align -- number, of indentation level, or not
-- Returns:
-- string
local r = type( apply )
if r == "string" then
r = mw.text.trim( apply )
if not r:match( "^{%s*\"" ) or
not r:match( "\"%s*}$" ) then
r = JSONutil.Encoder.string( r )
end
else
r = string.format( "{ \"%s\": \"%s: %s\" }",
JSONutil.Encoder.scream,
"Bad Lua type",
r )
end
return r
end -- JSONutil.Encoder.Polyglott()

JSONutil.Encoder.string = function ( apply )
-- Convert plain string to strict JSON string
-- Parameter:
-- apply -- string, with plain string
-- Returns:
-- string, with quoted trimmed JSON string
return string.format( "\"%s\"",
mw.text.trim( apply )
:gsub( "\\", "\\\\" )
:gsub( "\"", "\\\"" )
:gsub( JSONutil.Encoder.sep, "\\n" )
:gsub( JSONutil.Encoder.stab, "\\t" ) )
end -- JSONutil.Encoder.string()

JSONutil.fair = function ( apply )
-- Reduce enhanced JSON data to strict JSON
-- Parameter:
-- apply -- string, with enhanced JSON
-- Returns:
-- 1 -- string|nil|false, with error keyword
-- 2 -- string, with JSON or context
local m = 0
local n = 0
local s = mw.text.trim( apply )
local i, j, last, r, scan, sep0, sep1, start, stub, suffix
local framework = function ( a )
-- syntax analysis outside strings
local k = 1
local c
while k do
k = a:find( "[{%[%]}]", k )
if k then
c = a:byte( k, k )
if c == 0x7B then -- {
m = m + 1
elseif c == 0x7D then -- }
m = m - 1
elseif c == 0x5B then -- [
n = n + 1
else -- ]
n = n - 1
end
k = k + 1
end
end -- while k
end -- framework()
local free = function ( a, at, f )
-- Throws: error if /* is not matched by */
local s = a
local i = s:find( "//", at, true )
local k = s:find( "/*", at, true )
if i or k then
local m = s:find( sep0, at )
if i and ( not m or i < m ) then
k = s:find( "\n", i + 2, true )
if k then
if i == 1 then
s = s:sub( k + 1 )
else
s = s:sub( 1, i - 1 ) ..
s:sub( k + 1 )
end
elseif i > 1 then
s = s:sub( 1, i - 1 )
else
s = ""
end
elseif k and ( not m or k < m ) then
i = s:find( "*/", k + 2, true )
if i then
if k == 1 then
s = s:sub( i + 2 )
else
s = s:sub( 1, k - 1 ) ..
s:sub( i + 2 )
end
else
error( s:sub( k + 2 ), 0 )
end
i = k
else
i = false
end
if i then
s = mw.text.trim( s )
if s:find( "/", 1, true ) then
s = f( s, i, f )
end
end
end
return s
end -- free()
if s:sub( 1, 1 ) == '{' then
s = s:gsub( string.char( 13, 10 ), JSONutil.Encoder.sep )
:gsub( string.char( 13 ), JSONutil.Encoder.sep )
stub = s:gsub( JSONutil.Encoder.sep, "" )
:gsub( JSONutil.Encoder.stab, "" )
scan = string.char( 0x5B, 0x01, 0x2D, 0x1F, 0x5D ) -- [ \-\ ]
j = stub:find( scan )
if j then
r = "ControlChar"
s = mw.text.trim( s:sub( j + 1 ) )
s = mw.ustring.sub( s, 1, JSONutil.more )
else
i = true
j = 1
last = ( stub:sub( -1 ) == "}" )
sep0 = string.char( 0x5B, 0x22, 0x27, 0x5D ) -- [ " ' ]
sep1 = string.char( 0x5B, 0x5C, 0x22, 0x5D ) -- [ \ " ]
end
else
r = "Bracket0"
s = mw.ustring.sub( s, 1, JSONutil.more )
end
while i do
i, s = pcall( free, s, j, free )
if i then
i = s:find( sep0, j )
else
r = "CommentEnd"
s = mw.text.trim( s )
s = mw.ustring.sub( s, 1, JSONutil.more )
end
if i then
if j == 1 then
framework( s:sub( 1, i - 1 ) )
end
if s:sub( i, i ) == '"' then
stub = s:sub( j, i - 1 )
if stub:find( '[^"]*,%s*[%]}]' ) then
r = "CommaEnd"
s = mw.text.trim( stub )
s = mw.ustring.sub( s, 1, JSONutil.more )
i = false
j = false
else
if j > 1 then
framework( stub )
end
i = i + 1
j = i
end
while j do
j = s:find( sep1, j )
if j then
if s:sub( j, j ) == '"' then
start = s:sub( 1, i - 1 )
suffix = s:sub( j )
if j > i then
stub = s:sub( i, j - 1 )
:gsub( JSONutil.Encoder.sep,
"\\n" )
:gsub( JSONutil.Encoder.stab,
"\\t" )
j = i + stub:len()
s = string.format( "%s%s%s",
start, stub, suffix )
else
s = start .. suffix
end
j = j + 1
break -- while j
else
j = j + 2
end
else
r = "QouteEnd"
s = mw.text.trim( s:sub( i ) )
s = mw.ustring.sub( s, 1, JSONutil.more )
i = false
end
end -- while j
else
r = "Qoute"
s = mw.text.trim( s:sub( i ) )
s = mw.ustring.sub( s, 1, JSONutil.more )
i = false
end
elseif not r then
stub = s:sub( j )
if stub:find( '[^"]*,%s*[%]}]' ) then
r = "CommaEnd"
s = mw.text.trim( stub )
s = mw.ustring.sub( s, 1, JSONutil.more )
else
framework( stub )
end
end
end -- while i
if not r and ( m ~= 0 or n ~= 0 ) then
if m ~= 0 then
s = "}"
if m > 0 then
r = "BracketCloseLack"
j = m
elseif m < 0 then
r = "BracketClosePlus"
j = -m
end
else
s = "]"
if n > 0 then
r = "BracketCloseLack"
j = n
else
r = "BracketClosePlus"
j = -n
end
end
if j > 1 then
s = string.format( "%d %s", j, s )
end
elseif not ( r or last ) then
stub = suffix or apply or ""
j = stub:find( "/", 1, true )
if j then
i, stub = pcall( free, stub, j, free )
else
i = true
end
stub = mw.text.trim( stub )
if i then
if stub:sub( - 1 ) ~= "}" then
r = "Trailing"
s = stub:match( "%}%s*(%S[^%}]*)$" )
if s then
s = mw.ustring.sub( s, 1, JSONutil.more )
else
s = mw.ustring.sub( stub, - JSONutil.more )
end
end
else
r = "CommentEnd"
s = mw.ustring.sub( stub, 1, JSONutil.more )
end
end
if r and s then
s = s:gsub( JSONutil.Encoder.sep, " " )
s = mw.text.encode( s ):gsub( "|", "|" )
end
return r, s
end -- JSONutil.fair()

JSONutil.fault = function ( alert, add, adapt )
-- Retrieve formatted message
-- Parameter:
-- alert -- string, with error keyword, or other text
-- add -- string|nil|false, with context
-- adapt -- function|string|table|nil|false, for I18N
-- Returns string, with HTML span
local e = mw.html.create( "span" )
:addClass( "error" )
local s = alert
if type( s ) == "string" then
s = mw.text.trim( s )
if s == "" then
s = "EMPTY JSONutil.fault key"
end
if not s:find( " ", 1, true ) then
local storage = string.format( "I18n/Module:%s.tab",
JSONutil.suite )
local lucky, t = pcall( mw.ext.data.get, storage, "_" )
if type( t ) == "table" then
t = t.data
if type( t ) == "table" then
local e
s = "err_" .. s
for i = 1, #t do
e = t[ i ]
if type( e ) == "table" then
if e[ 1 ] == s then
e = e[ 2 ]
if type( e ) == "table" then
local q = type( adapt )
if q == "function" then
s = adapt( e, s )
t = false
elseif q == "string" then
t = mw.text.split( adapt, "%s+" )
elseif q == "table" then
t = adapt
else
t = { }
end
if t then
table.insert( t, Fallback() )
table.insert( t, "en" )
for k = 1, #t do
q = e[ t[ k ] ]
if type( q ) == "string" then
s = q
break -- for k
end
end -- for k
end
else
s = "JSONutil.fault I18N bad #" ..
tostring( i )
end
break -- for i
end
else
break -- for i
end
end -- for i
else
s = "INVALID JSONutil.fault I18N corrupted"
end
else
s = "INVALID JSONutil.fault commons:Data: " .. type( t )
end
end
else
s = "INVALID JSONutil.fault key: " .. tostring( s )
end
if type( add ) == "string" then
s = string.format( "%s – %s", s, add )
end
e:wikitext( s )
return tostring( e )
end -- JSONutil.fault()

JSONutil.fetch = function ( apply, always, adapt )
-- Retrieve JSON data, or error message
-- Parameter:
-- apply -- string, with presumable JSON text
-- always -- true, if apply is expected to need preprocessing
-- adapt -- function|string|table|nil|false, for I18N
-- Returns table, with data, or string, with error as HTML span
local lucky, r
if not always then
lucky, r = pcall( mw.text.jsonDecode, apply )
end
if not lucky then
lucky, r = JSONutil.fair( apply )
if lucky then
r = JSONutil.fault( lucky, r, adapt )
else
lucky, r = pcall( mw.text.jsonDecode, r )
if not lucky then
r = JSONutil.fault( r, false, adapt )
end
end
end
return r
end -- JSONutil.fetch()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version
-- or "wikidata" or "~" or "@" or false
-- Postcondition:
-- Returns string -- with queried version/item, also if problem
-- false -- if appropriate
-- 2020-08-17
local since = atleast
local last = ( since == "~" )
local linked = ( since == "@" )
local link = ( since == "item" )
local r
if last or link or linked or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local suited = string.format( "Q%d", item )
if link then
r = suited
else
local entity = mw.wikibase.getEntity( suited )
if type( entity ) == "table" then
local seek = Failsafe.serialProperty or "P348"
local vsn = entity:formatPropertyValues( seek )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
elseif linked then
if mw.title.getCurrentTitle().prefixedText
== mw.wikibase.getSitelink( suited ) then
r = false
else
r = suited
end
else
r = vsn.value
end
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

-- Export
local p = { }

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe

p.encodeArray = function ( frame )
return JSONutil.Encoder.Array( frame:getParent().args,
frame.args.type,
frame.args.error == "1" )
end -- p.encodeArray

p.encodeComponent = function ( frame )
return JSONutil.Encoder.Component( frame.args.sign,
frame.args.value,
frame.args.type,
flip( frame ),
frame.args.error == "1" )
end -- p.encodeComponent

p.encodeHash = function ( frame )
return JSONutil.Encoder.Hash( frame:getParent().args,
frame.args )
end -- p.encodeHash

p.encodeI18N = function ( frame )
return JSONutil.Encoder.I18N( frame:getParent().args,
flip( frame ) )
end -- p.encodeI18N

p.encodeObject = function ( frame )
return JSONutil.Encoder.object( flat( frame.args[ 1 ] ),
flip( frame ) )
end -- p.encodeObject

p.encodePolyglott = function ( frame )
return JSONutil.Encoder.Polyglott( flat( frame.args[ 1 ] ),
flip( frame ) )
end -- p.encodePolyglott

p.JSONutil = function ()
-- Module interface
return JSONutil
end

return p

Modul:DateTime/local

2022-02-23T14:42:25Z

Admin: 1 Version importiert

local Serial = "2020-08-08"
--[=[
Date and time utilities: Localization Deutsch
mw.loadData() table
]=]
local Similar = mw.ustring.char( 8776 ) -- ~~

-- Export
local p = { era = { },
monthsAbbr = { },
monthsLong = { },
monthsParse = { },
months4 = { },
sortWeights = { },
templates = { },
zones = { },
failsafe = Serial
}
p.slang = "de"
p.era.de = { "v. Chr.", "n. Chr." }
p.monthsAbbr.de = { n = 3,
suffix = ".",
[ 3 ] = { "Mär", "Mrz" } }
p.monthsAbbr[ "de-at" ] = { n = 3,
suffix = ".",
[ 1 ] = { "Jan", "Jän" },
[ 3 ] = { "Mär", "Mrz" } }
p.monthsParse.de = {
[ "Dez" ] = 12,
[ "Feber" ] = 2,
[ "Jänner" ] = 1,
[ "Jänner" ] = 1,
[ "Jän" ] = 1,
[ "März" ] = 3,
[ "Mrz" ] = 3,
[ "Mär" ] = 3,
[ "Okt" ] = 10
}
p.monthsLong.de = {
"Januar",
"Februar",
"März",
"April",
"Mai",
"Juni",
"Juli",
"August",
"September",
"Oktober",
"November",
"Dezember"
}
p.monthsLong[ "de-at" ] = {
[ 1 ] = "Jänner"
}
p.months4.de = { [ 3 ] = true,
[ 6 ] = true,
[ 7 ] = true }
p.present = { date = "j. F Y",
time = "H:i:s",
both = "$date $time"
}
p.sortWeights.de = {
[true] = Similar .. "abecnuvsz",
["vor dem"] = 3,
["vor etwa"] = 3,
["vor"] = 3,
["Anfang"] = 4,
["frühestens"] = 5,
["ab dem"] = 6,
["ab etwa"] = 6,
["ab"] = 6,
["seit dem"] = 6,
["seit etwa"] = 6,
["seit"] = 6,
["vom"] = 6,
["von"] = 6,
["zwischen"] = 6,
["bis zum"] = 7,
["bis etwa"] = 7,
["bis um"] = 7,
["bis"] = 7,
["spätestens"] = 8,
["Ende"] = 8,
["nach dem"] = 9,
["nach etwa"] = 9,
["nach"] = 9,
["ca."] = true,
["etwa"] = true,
["um"] = true,
[Similar] = true
}
p.templates = {
[ "default" ] =
{ spec = "H:i, j. M Y",
long = true },
[ "$dmy" ] =
{ spec = "H:i, j. M Y",
long = true },
[ "$dmyt" ] =
{ spec = "j. M Y, H:i",
long = true },
[ "$dmyts" ] =
{ spec = "j. M Y, H:i:s",
long = true },
[ "data-sort-type:date" ] =
{ spec = "j. M Y" },
[ "dewiki" ] =
{ spec = "H:i, j. M Y",
lift = true,
long = true }
}
p.templates.de = {
[ "T._Monat JJJJ hh:mm:ss Zone" ] =
{ spec = "j. F Y",
lift = true,
long = true },
[ "T._Mon JJJJ" ] =
{ spec = "j. M Y" },
[ "T._Mon4 JJJJ" ] =
{ spec = "j. M Y" },
[ "T._Mon4_JJJJ" ] =
{ spec = "j. M Y" },
[ "T._Mon4 JJJJ hh:mm" ] =
{ spec = "j. M Y",
lift = true },
[ "T._Mon4 JJJJ hh:mm:ss" ] =
{ spec = "j. M Y",
lift = true },
[ "T._Mon4_JJJJ hh:mm:ss" ] =
{ spec = "j. M Y",
lift = true },
[ "T._Mon4_JJJJ_hh:mm:ss" ] =
{ spec = "j. M Y",
lift = true },
[ "T._Mon4 JJJJ hh:mm:ss Zone" ] =
{ spec = "j. M Y",
lift = true,
long = true },
[ "T._Monat JJJJ" ] =
{ spec = "j. F Y" },
[ "T._Monat_JJJJ" ] =
{ spec = "j. F Y" },
[ "TT.MM.JJJJ" ] =
{ spec = "d.m.Y" },
[ "T.M.JJJJ" ] =
{ spec = "j.n.Y" }
}
p.zones.de = {
MEZ = 100,
MESZ = 200
}

return p

Modul:DateTime

2022-02-23T14:42:25Z

Admin: 1 Version importiert

local DateTime = { serial = "2020-09-30",
suite = "DateTime",
item = 20652535 }
-- Date and time objects
local Failsafe = DateTime
local GlobalMod = DateTime
local Calc = { }
local Meta = { }
local Parser = { }
local Private = { }
local Prototypes = { }
local Templates = { }
local World = { slang = "en",
monthsLong = { },
monthsParse = { },
months4 = { } }
local MaxYear = 2099
local Frame
DateTime.char = { nbsp = mw.ustring.char( 160 ),
tab = mw.ustring.char( 9 ) }
World.era = { en = { "BC", "AD" } }
World.monthsAbbr = { en = { n = 3 } }
World.monthsLong.en = { "January",
"February",
"March",
"April",
"May",
"June",
"July",
"August",
"September",
"October",
"November",
"December"
}
World.monthsParse.en = { [ "Apr" ] = 4,
[ "Aug" ] = 8,
[ "Dec" ] = 12,
[ "Feb" ] = 2,
[ "Jan" ] = 1,
[ "Jul" ] = 7,
[ "Jun" ] = 6,
[ "Mar" ] = 3,
[ "May" ] = 5,
[ "Nov" ] = 11,
[ "Oct" ] = 10,
[ "Sep" ] = 9
}
World.months4.en = { [ 6 ] = true,
[ 7 ] = true }
World.templates = { [ "ISO" ] =
{ spec = "Y-m-d",
lift = true },
[ "ISO-T" ] =
{ spec = "c" },
[ "timestamp" ] =
{ spec = "YmdHis" },
[ "default" ] =
{ spec = "H:i, j M Y",
long = true },
[ "$dmy" ] =
{ spec = "H:i, j M Y",
long = true },
[ "$ymd" ] =
{ spec = "H:i, Y M j",
long = true },
[ "$dmyt" ] =
{ spec = "j M Y, H:i",
long = true },
[ "$dmyts" ] =
{ spec = "j M Y, H:i:s",
long = true },
[ "data-sort-type:date" ] =
{ spec = "j M Y" }
}
World.templates.en = { }
World.zones = {
[ "!" ] = "YXWVUTSRQPONZABCDEFGHIKLM",
UTC = 0,
GMT = 0 -- Greenwich Mean Time
}
World.zones.en = {
BST = 100, -- British Summer Time
IST = 100, -- Irish Summer Time
WET = 0, -- Western Europe Time
WEST = 100, -- Western Europe Summer Time
CET = 100, -- Central Europe Time
CEST = 200, -- Central Europe Summer Time
EET = 200, -- Eastern Europe Time
EEST = 300, -- Eastern Europe Summer Time
MSK = 300, -- Moscow Time
MSD = 400, -- Moscow Summer Time
NST = -330, -- Newfoundland Standard Time
NDT = -230, -- Newfoundland Daylight Time
AST = -400, -- Atlantic Standard Time
ADT = -300, -- Atlantic Daylight Time
EST = -500, -- Eastern Standard Time
EDT = -400, -- Eastern Daylight Saving Time
CST = -600, -- Central Standard Time
CDT = -500, -- Central Daylight Saving Time
MST = -700, -- Mountain Standard Time
MDT = -600, -- Mountain Daylight Saving Time
PST = -800, -- Pacific Standard Time
PDT = -700, -- Pacific Daylight Saving Time
AKST = -900, -- Alaska Standard Time
AKDT = -800, -- Alaska Standard Daylight Saving Time
HST = -1000 -- Hawaiian Standard Time
}

local foreignModule = function ( access, advanced, append, alt, alert )
-- Fetch global module
-- Precondition:
-- access -- string, with name of base module
-- advanced -- true, for require(); else mw.loadData()
-- append -- string, with subpage part, if any; or false
-- alt -- number, of wikidata item of root; or false
-- alert -- true, for throwing error on data problem
-- Postcondition:
-- Returns whatever, probably table
-- 2020-01-01
local storage = access
local fun, lucky, r
if advanced then
fun = require
else
fun = mw.loadData
end
if append then
storage = string.format( "%s/%s", storage, append )
end
lucky, r = pcall( fun, "Module:" .. storage )
if not lucky then
local suited
GlobalMod.globalModules = GlobalMod.globalModules or { }
suited = GlobalMod.globalModules[ access ]
if not suited and
type( alt ) == "number" and
alt > 0 then
suited = string.format( "Q%d", alt )
suited = mw.wikibase.getSitelink( suited )
GlobalMod.globalModules[ access ] = suited or true
end
if type( suited ) == "string" then
storage = suited
if append then
storage = string.format( "%s/%s", storage, append )
end
lucky, r = pcall( fun, storage )
end
if not lucky and alert then
error( "Missing or invalid page: " .. storage )
end
end
return r
end -- foreignModule()

local function capitalize( a )
-- Upcase first character, downcase anything else
-- Parameter:
-- a -- string
-- Returns:
-- string
return mw.ustring.upper( mw.ustring.sub( a, 1, 1 ) )
.. mw.ustring.lower( mw.ustring.sub( a, 2 ) )
end -- capitalize()

local function fault( a )
-- Format error message by class=error
-- Parameter:
-- a -- string, error message
-- Returns:
-- string, HTML span
local e = mw.html.create( "span" )
:addClass( "error" )
:wikitext( a )
return tostring( e )
end -- fault()

local function frame()
if not Frame then
Frame = mw.getCurrentFrame()
end
return Frame
end -- frame()

Meta.localized = false
Meta.serial = DateTime.serial
Meta.signature = "__datetime"
Meta.suite = "{DateTime}"
Meta.components = { lang = "string",
bc = "boolean",
year = "number",
month = "number",
week = "number",
dom = "number",
hour = "number",
min = "number",
sec = "number",
msec = "number",
mysec = "number",
zone = false,
leap = "boolean",
jul = "boolean" }
Meta.order = { "bc", "year", "month", "week", "dom",
"hour", "min", "sec", "msec", "mysec" }
Meta.tableI = { -- instance metatable
__index = function ( self, access )
local r = self[ Meta.signature ][ access ]
if r == nil then
if access == "serial" then
r = Meta.serial
elseif access == "suite" then
r = "DateTime"
else
r = Prototypes[ access ]
end
end
return r
end,
__newindex = function ( self, access, assign )
if type( access ) == "string" then
local data = self[ Meta.signature ]
if assign == nil then
local val = data[ access ]
data[ access ] = nil
if not Prototypes.fair( data ) then
data[ access ] = val
end
elseif Prototypes.fair( data,
access,
assign ) then
data[ access ] = assign
end
end
return
end,
__add = function ( op1, op2 )
return Prototypes.future( op1, op2, true )
end,
__eq = function ( op1, op2 )
return Prototypes.flow( op1, op2, "eq" )
end,
__lt = function ( op1, op2 )
return Prototypes.flow( op1, op2, "lt" )
end,
__le = function ( op1, op2 )
return Prototypes.flow( op1, op2, "le" )
end,
__tostring = function ( e )
return Prototypes.tostring( e )
end,
__call = function ( func, ... )
return Meta.fiat( ... )
end
} -- Meta.tableI
Meta.tableL = { -- library metatable
__index = function ( self, access )
local r
if access == "serial" then
r = Meta.serial
elseif access == "suite" then
r = Meta.suite
end
return r
end,
__newindex = function ()
return
end,
__tostring = function ()
return Meta.suite
end,
__call = function ( func, ... )
return Meta.fiat( ... )
end
} -- Meta.tableL
Meta.fiat = function ( assign, alien, add )
-- Create instance object (constructor)
-- Parameter:
-- assign -- string, with initial timestamp, or nil
-- nil -- now
-- false -- empty object
-- table -- clone this object, or copy from raw
-- ignore remaining parameters
-- alien -- string, with language code, or nil
-- add -- string, with interval (PHP strtotime), or nil
-- Returns:
-- table, as DateTime object
-- string or false, if failed
local r
Private.foreign()
if type( assign ) == "table" then
if assign.suite == Meta.suite and
getmetatable( assign ) == Meta.tableI then
r = assign[ Meta.signature ]
else
r = Private.from( assign )
end
else
r = Private.factory( assign, alien, add )
end
if type( r ) == "table" then
r = { [ Meta.signature ] = r }
setmetatable( r, Meta.tableI )
end
return r
end -- Meta.fiat()
setmetatable( DateTime, Meta.tableL )
DateTime.serial = nil

Calc.months = { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }

-- Calc.fast = function ( at )
-- -- Quick scan of full ISO stamp
-- -- Parameter:
-- -- apply -- string, ISO
-- -- Returns:
-- -- table, with numeric components
-- local r = { }
-- r.year = tonumber( at:sub( 1, 4 ) )
-- r.month = tonumber( at:sub( 6, 2 ) )
-- r.dom = tonumber( at:sub( 9, 2 ) )
-- r.hour = tonumber( at:sub( 12, 2 ) )
-- r.min = tonumber( at:sub( 14, 2 ) )
-- r.sec = tonumber( at:sub( 17, 2 ) )
-- if at:sub( 19, 1 ) == "." then
-- r.msec = tonumber( at:sub( 20, 3 ) )
-- if #at > 22 then
-- r.mysec = tonumber( at:sub( 23, 3 ) )
-- end
-- end
-- return r
-- end -- Calc.fast()

Calc.fair = function ( adjust )
-- Normalize numeric components
-- Parameter:
-- adjust -- table, with raw numbers
local ranges = { year = { min = -999,
max = 9999 },
month = { min = 1,
max = 12,
mod = 12 },
dom = { min = 1,
max = 28 },
hour = { mod = 24 },
min = { mod = 60 },
sec = { mod = 60 },
msec = { mod = 1000 },
mysec = { mod = 1000 } }
local m, max, min, move, n, range, s
for i = 10, 2, -1 do
s = Meta.order[ i ]
n = adjust[ s ]
if n or move then
range = ranges[ s ]
if range then
min = range.min or 0
max = range.max or ( range.mod - 1 )
if move then
n = ( n or 0 ) + move
move = false
end
if n < min or n > max then
if range.mod then
m = n % range.mod
move = ( n - m ) / range.mod
n = min + m
else -- dom
if adjust.month and adjust.year and
adjust.month >= 1 and
adjust.month <= 12 and
adjust.year > 1900 then
if n > 0 then
max = Calc.final( adjust )
while n > max do
n = n - max
if adjust.month < 12 then
adjust.month = adjust.month + 1
else
adjust.month = 1
adjust.year = adjust.year + 1
end
max = Calc.final( adjust )
end -- while n <= max
else
while n < 1 do
if adjust.month == 1 then
adjust.month = 12
adjust.year = adjust.year - 1
else
adjust.month = adjust.month - 1
end
max = Calc.final( adjust )
n = n + max
end -- while n < 1
end
end
end
end
adjust[ s ] = n
end
end
end -- for i
end -- Calc.fair()

Calc.final = function ( adjust )
-- Retrieve number of days in particular month
-- Parameter:
-- adjust -- table, with date specification
-- Returns:
-- number, of days in month
local r = Calc.months[ adjust.month ]
if adjust.month == 2 and
( adjust.year % 4 ~= 0 or
adjust.year % 400 == 0 ) then
r = 28
end
return r
end -- Calc.final()

Calc.future = function ( add )
-- Parse move interval
-- Parameter:
-- add -- string, with GNU relative items
-- Returns:
-- table, with numeric components, or false
local r, token
local units = { year = true,
month = true,
fortnight = { slot = "dom", mult = 14 },
week = { slot = "dom", mult = 7 },
dom = true,
hour = true,
min = true,
sec = true }
local story = string.format( " %s ", add:lower() )
:gsub( "%s+", " " )
:gsub( " yesterday ", " -1 dom " )
:gsub( " tomorrow ", " 1 dom " )
:gsub( "(%l)s ", "%1 " )
:gsub( " day ", " dom " )
:gsub( " minute ", " min " )
:gsub( " second ", " sec " )
local feed = function ()
local slice
token, slice = story:match( "^( (%S+)) " )
return slice
end
local fed = function ()
story = story:sub( #token + 1 )
end
local m, n, s, u
while true do
s = feed()
if s then
n = 1
if s:match( "^[+-]?%d+$" ) then
n = tonumber( s )
fed()
s = feed()
end
if s then
u = units[ s ]
end
if s and u then
fed()
if u ~= true then
s = u.slot
n = n * u.mult
end
if feed() == "ago" then
if n > 0 then
n = - n
end
fed()
end
r = r or { }
r[ s ] = ( r[ s ] or 0 ) + n
else
r = false
break -- while true
end
else
break -- while true
end
end -- while true
return r
end -- Calc.future()

Parser.digitsHeading = function ( analyse, alone, amount, add )
-- String analysis, if digits only or at least 4 digits heading
-- Parameter:
-- analyse -- string to be scanned, starting with digit
-- digits only, else starting with exactly 4 digits
-- alone -- true, if only digits
-- amount -- number of heading digits
-- add -- table, to be extended
-- Returns:
-- table, extended if parsed
-- false, if invalid text format
local r = add
if alone then
-- digits only
if amount <= 4 then
r.year = tonumber( analyse )
elseif amount == 14 then
-- timestamp
r.year = tonumber( analyse:sub( 1, 4 ) )
r.month = tonumber( analyse:sub( 5, 6 ) )
r.dom = tonumber( analyse:sub( 7, 8 ) )
r.hour = tonumber( analyse:sub( 9, 10 ) )
r.min = tonumber( analyse:sub( 11, 12 ) )
r.sec = tonumber( analyse:sub( 13, 14 ) )
else
r = false
end
elseif amount == 4 then
local s, sep, sx = analyse:match( "^(%d+)([%-%.:Ww]?)(.*)$" )
r.year = tonumber( s )
if sep == "-" then
-- ISO
s, sep, sx = sx:match( "^(%d%d)(-?)(.*)$" )
if s then
r.month = tonumber( s )
r.month2 = true
if sep == "-" then
s, sep, sx = sx:match( "^(%d%d?)([ T]?)(.*)$" )
if s then
r.dom = tonumber( s )
if sep == "T" then
r.month2 = nil
else
r.dom2 = ( #s == 2 )
end
if sep then
r = Parser.time( sx, r, sep == "T" )
end
else
r = false
end
elseif sx and sx ~= "" then
r = false
end
else
r = false
end
elseif sep:lower() == "w" then
if sx then
s = sx:match( "^(%d%d?)$" )
if s then
r.week = tonumber( s )
if r.week < 1 or r.week > 53 then
r = false
end
else
r = false
end
else
r = false
end
else
r = false
end
if r then
r.iso = true
end
elseif amount == 8 then
-- ISO compact
local s, sz = analyse:match( "^%d+T(%d+)([.+-]?%d*%a*)$" )
if s then
local n = #s
if n == 2 or n == 4 or n == 6 then
r.year = tonumber( analyse:sub( 1, 4 ) )
r.month = tonumber( analyse:sub( 5, 6 ) )
r.dom = tonumber( analyse:sub( 7, 8 ) )
r.hour = tonumber( analyse:sub( 10, 11 ) )
if n > 2 then
r.min = tonumber( s:sub( 3, 4 ) )
if n == 6 then
r.sec = tonumber( s:sub( 5, 6 ) )
end
n, s = sz:match( "^(%.%d+)([+-]?[%a%d]*)$" )
if n then
n = n .. "00"
r.msec = tonumber( n:sub( 1, 3 ) )
if #n >= 6 then
r.mysec = tonumber( n:sub( 4, 6 ) )
end
sz = s
end
end
if sz ~= "" then
s, sz = sz:match( "^([+-]?)(%a*)$" )
if s == "" then
if sz:match( "^(%u)$" ) then
r.zone = sz
else
s = false
end
elseif #s == 1 then
r.zone = s .. sz
else
s = false
end
end
else
s = false
end
end
if s then
r = false
end
end
return r
end -- Parser.digitsHeading()

Parser.eraGermanEnglish = function ( analyse )
-- String analysis, for German and English era
-- v. Chr. v. u. Z. n. Chr. AD BC A.D. B.C. B.C.E.
-- Parameter:
-- analyse -- string
-- Returns:
-- 1 -- table, with boolean era, if any
-- 2 -- string, with era stripped off, if any
local rO = { }
local rS = analyse
local s, switch = analyse:match( "^(.+) ([vn])%. ?Chr%.$" )
if switch then
rS = s
rO.bc = ( switch == "v" )
elseif analyse:find( " v%. ?u%. ?Z%.$" ) then
rS = analyse:match( "^(.+) v%. ?u%. ?Z%.$" )
rO.bc = true
elseif analyse:find( " B%.? ?C%.? ?E?%.?$" ) then
rS = analyse:match( "^(.+) B%.? ?C%.? ?E?%.?$" )
rO.bc = true
elseif analyse:find( "^A%.? ?D%.? " ) then
rS = analyse:match( "^A%.? ?D%.? (.*)$" )
rO.bc = false
end
return rO, rS
end -- Parser.eraGermanEnglish()

Parser.european = function ( ahead, adhere, analyse, assign )
-- String analysis, retrieve date style: DOM MONTH YEAR
-- Parameter:
-- ahead -- string, with first digits, not more than 2
-- adhere -- string, with first separator; not ":"
-- analyse -- string, remainder following adhere
-- assign -- table
-- Returns:
-- table, extended if parsed
local r = assign
local s, s2, sx
if adhere == "." or adhere == ". " then
-- 23.12.2013
-- 23. Dezember 2013
s, sx = analyse:match( "^(%d%d?)%.(.*)$" )
if s then
r = Parser.putDate( false, s, ahead, assign )
r = Parser.yearTime( sx, r )
else
s, sx = mw.ustring.match( analyse,
"^ ?([%a&;]+%.?) ?(.*)$" )
if s then
local n = Parser.monthNumber( s )
if n then
r.month = n
r.dom = tonumber( ahead )
r.dom2 = ( #ahead == 2 )
r = Parser.yearTime( sx, r )
else
r = false
end
else
r = false
end
end
elseif adhere == " " then
-- 23 Dec 2013
s, sx = mw.ustring.match( analyse,
"^([%a&;]+%.?) ?(.*)$" )
if s then
local n = Parser.monthNumber( s )
if n then
r.month = n
r.dom = tonumber( ahead )
r.dom2 = ( #ahead == 2 )
r = Parser.yearTime( sx, r )
else
r = false
end
else
r = false
end
else
r = false
end
return r
end -- Parser.european()

Parser.isoDate = function ( analyse, assign )
-- String analysis, retrieve month heading ISO date
-- Parameter:
-- analyse -- string, with heading hyphen
-- assign -- table
-- Returns:
-- 1 -- table, extended if parsed
-- 2 -- stripped string, or false, if invalid text format
local rO, rS
if analyse:match( "^%-%-?[0-9]" ) then
local n, s
rO = assign
rS = analyse:sub( 2 )
s = rS:match( "^([012][0-9])%-" )
if s then
n = tonumber( s )
if n >= 1 and n <= 12 then
rO.month = n
rS = rS:sub( 3 )
else
rO = false
end
end
if rO then
if rS:byte( 1, 1 ) == 45 then
local suffix
s = rS:match( "^%-([0-3][0-9])" )
if s then
n = tonumber( s )
if n >= 1 and n <= 31 then
rO.dom = n
rS = rS:sub( 4 )
else
rO = false
end
else
rS:sub( 2 )
end
else
rO = false
end
if rO then
if #rS > 0 then
if rO.dom then
n = rS:byte( 1, 1 )
if n == 32 or n == 84 then
rS = rS:sub( 2 )
else
rO = false
end
else
rO = false
end
end
end
end
else
rO = false
end
if rO then
rO.iso = true
else
rS = false
end
return rO, rS
end -- Parser.isoDate()

Parser.monthHeading = function ( analyse, assign )
-- String analysis, retrieve month heading date (US only)
-- Parameter:
-- analyse -- string, with heading word
-- assign -- table
-- Returns:
-- 1 -- table, extended if parsed
-- 2 -- stripped string, or false, if invalid text format
local rO = assign
local rS = analyse
local s, sep = mw.ustring.match( analyse, "^([%a&;]+%.?)([^%a%.]?)" )
if s then
-- might begin with month name "December 23, 2013"
local n = Parser.monthNumber( s )
if n then
rO.month = n
if sep == "" then
rS = ""
else
local s2, s3
n = mw.ustring.len( s ) + 1
s = mw.ustring.sub( analyse, n )
s2 = s:match( "^ (%d%d%d?%d?)$" )
if s2 then
rO.year = tonumber( s2 )
rS = ""
else
s2, s3, rS = s:match( "^ (%d+), (%d+)( ?.*)$" )
if s2 and s3 then
n = #s2
if n <= 2 and #s3 == 4 then
rO.dom = tonumber( s2 )
rO.year = tonumber( s3 )
rO.dom2 = ( n == 2 )
else
rO = false
end
else
rO = false
end
end
end
else
rO = false
end
else
rO = false
end
if not rO then
rS = false
end
return rO, rS
end -- Parser.monthHeading()

Parser.monthNumber = function ( analyse )
-- String analysis, retrieve month number
-- Parameter:
-- analyse -- string, with month name including any period
-- Returns:
-- number, 1...12 if found
-- false or nil, if not detected
local r = false
local s = mw.ustring.match( analyse, "^([%a&;]+)%.?$" )
if s then
local given
s = capitalize( s )
for k, v in pairs( World.monthsLong ) do
given = World.monthsParse[ k ]
if given then
r = given[ s ]
end
if not r then
given = World.monthsLong[ k ]
for i = 1, 12 do
if given[ i ] == s then
r = i
break
end
end -- for i
end
if r then
break
end
end -- for k, v
end
return r
end -- Parser.monthNumber()

Parser.putDate = function ( aYear, aMonth, aDom, assign )
-- Store date strings
-- Parameter:
-- aYear -- string, with year, or false
-- aMonth -- string, with numeric month
-- aDom -- string, with day of month
-- assign -- table
-- Returns:
-- table, extended
local r = assign
if aYear then
r.year = tonumber( aYear )
end
r.month = tonumber( aMonth )
r.dom = tonumber( aDom )
r.month2 = ( #aMonth == 2 )
r.dom2 = ( #aDom == 2 )
return r
end -- Parser.putDate()

Parser.time = function ( analyse, assign, adjusted )
-- String analysis, retrieve time components
-- Parameter:
-- analyse -- string, with time part
-- assign -- table
-- adjusted -- true: fixed length of 2 digits expected
-- Returns:
-- table, extended if parsed
-- false, if invalid text format
local r = assign
if analyse ~= "" then
local s, sx = analyse:match( "^(%d+)(:?.*)$" )
if s then
local n = #s
if n <= 2 then
r.hour = tonumber( s )
if not adjusted then
r.hour2 = ( n == 2 )
end
else
sx = false
r = false
end
if sx then
s, sx = sx:match( "^:(%d+)(:?(.*))$" )
if s then
if #s == 2 then
r.min = tonumber( s )
if sx == "" then
sx = false
end
else
sx = false
r = false
end
if sx then
local sep
local scan = "^([:,] ?)(%d+)(.*)$"
sep, s, sx = sx:match( scan )
if sep == ":" then
if #s == 2 then
r.sec = tonumber( s )
end
elseif sep == ", " then
r = Parser.wikiDate( s .. sx, r )
sx = false
else
r = false
end
end
else
r = false
end
end
if sx and sx ~= "" then
s = sx:match( "^%.(%d+)$" )
if s then
s = s .. "00"
r.msec = tonumber( s:sub( 1, 3 ) )
if #s >= 6 then
r.mysec = tonumber( s:sub( 4, 6 ) )
end
else
r = false
end
end
else
r = false
end
end
return r
end -- Parser.time()

Parser.wikiDate = function ( analyse, assign )
-- String analysis, for date after wiki ~~~~~ signature time
-- dmy 10:28, 30. Dez. 2013
-- ymd 10:28, 2013 Dez. 30
-- Parameter:
-- analyse -- string
-- assign -- table
-- Returns:
-- table, extended if parsed
-- false, if invalid text format
local r
local s = analyse:match( "^(2%d%d%d) " )
local sx
if s then
-- ymd "10:28, 2013 Dez. 30"
local n = false
r = assign
r.year = tonumber( s )
s = analyse:sub( 6 )
s, sx = mw.ustring.match( analyse:sub( 6 ),
"^([%a&;]+)%.? (%d%d?)$" )
if s then
n = Parser.monthNumber( s )
if n then
r.month = n
end
end
if n then
r.dom = tonumber( sx )
r.dom2 = ( #sx == 2 )
else
r = false
end
else
-- dmy "10:28, 30. Dez. 2013"
local sep
s, sep, sx = analyse:match( "^(%d%d?)(%.? ?)(%a.+)$" )
if s then
r = Parser.european( s, sep, sx, assign )
else
r = false
end
end
return r
end -- Parser.wikiDate()

Parser.yearTime = function ( analyse, assign )
-- String analysis, for possible year and possible time
-- Parameter:
-- analyse -- string, starting with year
-- assign -- table
-- Returns:
-- table, extended if parsed
-- false, if invalid text format
local r = assign
local n = #analyse
if n > 0 then
local s, sx
if n == 4 then
if analyse:match( "^%d%d%d%d$" ) then
s = analyse
sx = false
end
else
s = analyse:match( "^(%d%d%d%d)[ ,]" )
if s then
sx = analyse:sub( 5 )
else
local suffix
s, sx, suffix = analyse:match( "^(%d+)([ ,]?)(.*)$" )
if s then
local j = #sx
n = #s
if n < 4 and ( j == 1 or #suffix == 0 ) then
sx = analyse:sub( n + j )
else
s = false
end
end
end
end
if s then
r.year = tonumber( s )
if sx then
s, sx = sx:match( "^(,? ?)(%d.*)$" )
if #s >= 1 then
r = Parser.time( sx, r )
end
end
else
r = false
end
end
return r
end -- Parser.yearTime()

Parser.zone = function ( analyse, assign )
-- String analysis, for time zone
-- +/-nn +/-nnnn (AAAa)
-- Parameter:
-- analyse -- string
-- assign -- table
-- Returns:
-- 1 -- table, with number or string zone, if any, or false
-- 2 -- string, with zone stripped off, if any
local rO = assign
local rS = analyse
local s, sign, shift, sub
s = "^(.+)([+-])([01]%d):?(%d?%d?)$"
s, sign, shift, sub = analyse:match( s )
if sign then
if s:find( ":%d%d *$" ) then
if sub then
if #sub == 2 then
rO.zone = tonumber( shift .. sub )
else
rO = false
end
else
rO.zone = tonumber( shift ) * 100
end
if rO then
if sign == "-" then
rO.zone = - rO.zone
end
rS = mw.text.trim( s )
end
end
elseif analyse:find( "%(.*%)$" ) then
s, shift = analyse:match( "^(.+)%((%a%a%a%a?)%)$" )
if shift then
rO.zone = shift:upper()
rS = mw.text.trim( s )
else
rO = false
end
else
s, shift = analyse:match( "^(.+%d) ?(%a+)$" )
if shift then
local n = #shift
if n == 1 then
rO.zone = shift:upper()
elseif n == 3 then
if shift == "UTC" or shift == "GMT" then
rO.zone = 0
end
end
if rO.zone then
rS = s
end
end
end
return rO, rS
end -- Parser.zone()

Parser.GermanEnglish = function ( analyse )
-- String analysis, for German and English formats
-- Parameter:
-- analyse -- string, with date or time or parts of it
-- Returns:
-- table, if parsed
-- false, if invalid text format
local r, s = Parser.eraGermanEnglish( analyse )
r, s = Parser.zone( s, r )
if r then
local start, sep, sx = s:match( "^(%d+)([ %-%.:WwT]?)(.*)$" )
if start then
-- begins with one or more digits (ASCII)
local n = #start
local lazy = ( start == s and
( n >=4 or type( r.bc == "boolean" ) ) )
if n == 4 or n == 8 or lazy then
r = Parser.digitsHeading( s, lazy, n, r )
elseif n <= 2 then
if sep == ":" then
r, s = Parser.time( s, r )
elseif sep == "" then
r = false
else
r = Parser.european( start, sep, sx, r )
end
else
r = false
end
else
local rM, sM = Parser.monthHeading( s, r )
if rM then
r = rM
else
r, sM = Parser.isoDate( s, r )
end
if r and sM ~= "" then
r = Parser.time( sM, r )
end
end
end
return r
end -- Parser.GermanEnglish()

Private.factory = function ( assign, alien, add )
-- Create DateTime table (constructor)
-- Parameter:
-- assign -- string, with initial timestamp, or nil
-- nil -- now
-- false -- empty object
-- alien -- string, with language code, or nil
-- add -- string, with interval (PHP strtotime), or nil
-- Returns:
-- table, for DateTime object
-- string or false, if failed
local l = true
local slang = mw.text.trim( alien or World.slang or "en" )
local r
if assign == false then
r = { }
else
local stamp = ( assign or "now" )
local shift
if add then
shift = Private.future( add )
end
r = false
if stamp == "now" then
stamp = frame():callParserFunction( "#timel", "c", shift )
shift = false
else
local seconds = stamp:match( "^#(%d+)$" )
if seconds then
stamp = os.date( "!%Y-%m-%dT%H:%M:%S",
tonumber( seconds ) )
end
end
l, r = pcall( Private.fetch, stamp, slang, shift )
end
if l and type( r ) == "table" then
if slang ~= "" then
r.lang = slang
end
end
return r
end -- Private.factory()

Private.fetch = function ( analyse, alien, add )
-- Retrieve object from string
-- Parameter:
-- analyse -- string to be interpreted
-- alien -- string with language code, or nil
-- add -- table, with interval, or nil
-- Returns:
-- table, if parsed
-- false, if invalid text format
-- string, if serious error (args)
local r
if type( analyse ) == "string" then
local strip = mw.ustring.char( 0x5B, 0x200E, 0x200F, 0x5D )
r = analyse:gsub( " ", " " )
:gsub( " ", " " )
:gsub( "&#x[aA]0;", " " )
:gsub( " ", " " )
:gsub( DateTime.char.nbsp, " " )
:gsub( DateTime.char.tab, " " )
:gsub( " +", " " )
:gsub( "%[%[", "" )
:gsub( "%]%]", "" )
:gsub( strip, "" )
r = mw.text.trim( r )
if r == "" then
r = { }
else
local slang = ( alien or "" )
local parser = { en = "GermanEnglish",
de = "GermanEnglish",
frr = "GermanEnglish",
nds = "GermanEnglish" }
local suitable
if slang == "" then
slang = "en"
else
local s = slang:match( "^(%a+)%-" )
if s then
slang = s
end
end
slang = slang:lower()
suitable = parser[ slang ]
if suitable then
local l
l, r = pcall( Parser[ suitable ], r )
if l and r then
if not Prototypes.fair( r ) then
r = false
elseif add then
r = Prototypes.future( r, add )
end
else
r = "invalid format"
end
else
r = "unknown language: " .. slang
end
end
else
r = "bad type"
end
return r
end -- Private.fetch()

Private.field = function ( at, ask, adapt, atleast )
-- Format object as string
-- Parameter:
-- at -- DateTime
-- ask -- string, with format spec, or nil
-- adapt -- table, with options, or nil
-- .lang -- string, with particular language code
-- .london -- true: UTC output; default: local
-- .lonely -- true: permit lonely hour
-- atleast -- string, with default value, or nil
-- Returns:
-- string, or false, if invalid, or number for julian date
local r, spec
if type( ask ) == "string" then
if ask:sub( 1, 1 ) == "$" then
if ask:sub( 1, 11 ) == "$JulianDate" then
local luxury = ( ask:sub( -2 ) == ",$" )
if ask:sub( 1, 14 ) == "$JulianDateJul" then
at.legacy = true
elseif ask:sub( 1, 15 ) == "$JulianDateGreg" then
else
at.legacy = Private.former( at )
end
r = Private.fixed( at, luxury )
elseif ask:sub( 1, 11 ) == "$JulianCal$" then
adapt.legacy = true
spec = ask:sub( 12 )
elseif ask:sub( 1, 3 ) == "$\"$" then
r = ask:sub( 4 )
else
spec = ask
end
else
spec = ask
end
else
spec = false
end
if not r then
r = Private.format( at, spec, adapt )
end
return r or atleast
end -- Private.field()

Private.fixed = function ( at, advanced )
-- Compute julian date
-- Parameter:
-- at -- DateTime
-- .legacy -- true: at is in Julian calendar
-- advanced -- true: format long number
-- Returns:
-- number, or string
local mM, mMY, mY, nY, r
if at.year then
mY = at.year * 12
else -- actually invalid
mY = 0
end
if at.month then
mMY = at.month
else
mMY = 1
end
mMY = mMY + 57609
if at.dom then
r = at.dom
else
r = 1
end
mM = ( mY + mMY ) * 0.08333333333 -- divided by 12 months
nY = math.floor( mM - 1 )
r = math.floor( nY * 365.25 )
+ math.floor( ( mMY%12 + 4 ) * 30.6 )
+ r
if at.legacy then
r = r - 32205.5
else
r = r - math.floor( nY * 0.01 ) -- no leap day in century
+ math.floor( nY * 0.0025 ) -- but every 400 years
- 32167.5
end
if at.hour then -- divided by 24 hours per day
r = r + at.hour * 0.0416666666666667
else
r = r + 0.5
end
if at.min then -- divided by 1440 minutes per day
r = r + at.min * 0.000694444444
end
if at.sec then -- divided by 86400 seconds per day
r = r + at.min * 0.00001157407407
end
if at.bc then
r = 3442406 - r
if at.legacy then
r = r + 3
end
end
if advanced then
local slang = ( at.lang or World.slang )
local o = mw.language.new( slang )
r = o:formatNum( r )
end
return r
end -- Private.fixed()

Private.flow = function ( at1, at2 )
-- Compare two objects
-- Parameter:
-- at1 -- DateTime
-- at2 -- DateTime
-- Returns:
-- -1, 0, 1 or nil if not comparable
local r = 0
if at1.bc or at2.bc and at1.bc ~= at2.bc then
if at1.bc then
r = -1
else
r = 1
end
else
local life = false
local s, v1, v2
for i = 2, 10 do
s = Meta.order[ i ]
v1 = at1[ s ]
v2 = at2[ s ]
if v1 or v2 then
if v1 and v2 then
if v1 < v2 then
r = -1
elseif v1 > v2 then
r = 1
end
elseif life then
if v2 then
r = -1
else
r = 1
end
else
r = nil
end
if r ~= 0 then
if at1.bc and r then
r = r * -1
end
break -- for i
end
life = true
end
end -- for i
end
return r
end -- Private.flow()

Private.foreign = function ()
-- Retrieve localization submodule
if not Meta.localized then
local d = foreignModule( DateTime.suite,
false,
"local",
DateTime.item )
if type( d ) == "table" then
local wk
if d.slang then
Meta.suite = string.format( "%s %s",
Meta.suite, d.slang )
World.slang = d.slang
end
for k, v in pairs( d ) do
wk = World[ k ]
if wk and wk.en then
for subk, subv in pairs( v ) do
wk[ subk ] = subv
end -- for k, v
else
World[ k ] = v
end
end -- for k, v
end
Meta.localized = true
end
end -- Private.foreign()

Private.format = function ( at, ask, adapt )
-- Format object as string
-- Parameter:
-- at -- table, with numbers etc.
-- ask -- string, format spec, or nil
-- adapt -- table, with options, or nil
-- .lang -- string, with particular language code
-- .london -- true: UTC output; default: local
-- .lonely -- true: permit lonely hour
-- Returns:
-- string, or not
local slang = at.lang or "en"
local opts = { lang = slang }
local babel, r
if type( adapt ) == "table" then
if type( adapt.lang ) == "string" then
local i = adapt.lang:find( "-", 3, true )
if i then
slang = adapt.lang:lower()
opts.lang = slang:sub( 1, i - 1 )
else
opts.lang = adapt.lang:lower()
end
end
opts.london = adapt.london
opts.lonely = adapt.lonely
end
babel = mw.language.new( opts.lang:lower() )
if babel then
local shift, show, stamp, suffix, limit4, locally
if at.month then
stamp = World.monthsLong.en[ at.month ]
if at.year then
stamp = string.format( "%s %04d", stamp, at.year )
end
if at.dom then
stamp = string.format( "%d %s", at.dom, stamp )
end
if ask and ask:find( "Mon4", 1, true ) then
local mon4 = World.months4[ opts.lang:lower() ]
if mon4 and mon4[ at.month ] then
limit4 = true
end
end
elseif at.year then
stamp = string.format( "%04d", at.year )
end
if at.hour then
if stamp then
stamp = stamp .. " "
else
stamp = ""
end
stamp = string.format( "%s%02d:", stamp, at.hour )
if at.min then
stamp = string.format( "%s%02d", stamp, at.min )
if at.sec then
stamp = string.format( "%s:%02d",
stamp, at.sec )
if at.msec then
stamp = string.format( "%s.%03d",
stamp, at.msec )
if at.mysec then
stamp = string.format( "%s%03d",
stamp,
at.mysec )
end
end
end
else
stamp = stamp .. "00"
end
if at.zone then
stamp = stamp .. World.zones.formatter( at, "+-" )
end
end
show, suffix = World.templates.formatter( at, ask, opts )
if limit4 then
show = show:gsub( "M", "F" )
end
if type( opts.london ) == "boolean" then
locally = not opts.london
else
locally = true
end
r = babel:formatDate( show, stamp, locally )
r = r:gsub( " $", "" )
if at.year and at.year < 1000 then
r = r:gsub( string.format( "%04d", at.year ),
tostring( at.year ) )
end
if at.month then
local bucket, m, suite, x
if show:find( "F", 1, true ) then
suite = "monthsLong"
elseif show:find( "M", 1, true ) then
suite = "monthsAbbr"
end
bucket = World[ suite ]
if bucket then
m = bucket[ opts.lang:lower() ]
if slang then
x = bucket[ slang:lower() ]
end
if m then
local base = m[ at.month ]
local ex
if x then
ex = x[ at.month ]
end
if suite == "monthsAbbr" then
local stop
if ex then
stop = x.suffix
base = ex
else
stop = m.suffix
end
if base and stop then
local shift, std
std = string.format( "%s%%%s",
base[ 1 ], stop )
shift = string.format( "%s%s",
base[ 2 ], stop )
r = mw.ustring.gsub( r, std, shift )
end
elseif suite == "monthsLong" then
if base and ex then
r = mw.ustring.gsub( r, base, ex )
end
end
end
end
end
if suffix then
r = r .. suffix
end
end
return r
end -- Private.format()

Private.former = function ( at )
-- Analyze whether Julian calendar
-- Parameter:
-- at -- table, to be evaluated
-- Returns:
-- true, i
local r
if at.year then
if at.year < 1582 then
r = true
elseif at.year == 1582 then
if at.month then
if at.month < 10 then
r = true
elseif at.month == 10 then
r = ( at.dom <= 15 )
end
end
end
end
return r
end -- Private.former()

Private.from = function ( attempt )
-- Create valid raw table from arbitrary table
-- Parameter:
-- attempt -- table, to be evaluated
-- Returns:
-- table, with valid components, or nil
local data = { }
local r
for k, v in pairs( Meta.components ) do
if v then
v = ( type( attempt[ k ] ) == v )
else
v = true
end
if v then
data[ k ] = attempt[ k ]
end
end -- for k, v
if Prototypes.fair( data ) then
r = data
end
return r
end -- Private.from()

Private.future = function ( add )
-- Normalize move interval
-- Parameter:
-- add -- string or number, to be added
-- Returns:
-- table, with shift, or false/nil
local r
if add then
local s = type( add )
if s == "string" and add:match( "^%s*[+-]?%d+%.?%d*%s*$" ) then
r = tonumber( add )
s = "number"
end
if s == "number" then
if r == 0 then
r = false
else
r = string.format( "%d second", r or add )
end
elseif s == "string" then
r = add
else
r = false
end
if r then
r = Calc.future( r )
end
end
return r
end -- Private.future()

Prototypes.clone = function ( self )
-- Clone object
-- Parameter:
-- self -- table, with object, to be cloned
-- Returns:
-- table, with object
local r = { [ Meta.signature ] = self[ Meta.signature ] }
setmetatable( r, Meta.tableI )
return r
end -- Prototypes.clone()

Prototypes.failsafe = function ( self, atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- self -- table, or not, with DateTime object, unused
-- atleast -- string, with required version
-- or "wikidata" or "~" or "@" or false
-- Postcondition:
-- Returns string -- with queried version/item, also if problem
-- false -- if appropriate
-- 2020-08-17
local since = atleast
local last = ( since == "~" )
local linked = ( since == "@" )
local link = ( since == "item" )
local r
if last or link or linked or since == "wikidata" then
local item = Meta.item
since = false
if type( item ) == "number" and item > 0 then
local suited = string.format( "Q%d", item )
if linkedlink then
r = suited
else
local entity = mw.wikibase.getEntity( suited )
if type( entity ) == "table" then
local seek = Failsafe.serialProperty or "P348"
local vsn = entity:formatPropertyValues( seek )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and
vsn.value == ( Meta.serial or
DateTime.serial ) then
r = false
elseif linked then
if mw.title.getCurrentTitle().prefixedText
== mw.wikibase.getSitelink( suited ) then
r = false
else
r = suited
end
else
r = vsn.value
end
if last then
r = false
else
r = vsn.value
end
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Meta.serial then
r = Meta.serial
else
r = false
end
end
return r
end -- Prototypes.failsafe()

Prototypes.fair = function ( self, access, assign )
-- Check formal validity of table
-- Parameter:
-- self -- table, to be checked
-- access -- string or nil, single item to be checked
-- assign -- single access value to be checked
-- Returns:
-- true, if valid; false, if not
local r = ( type( self ) == "table" )
if r then
local defs = { year = { max = MaxYear },
month = { min = 1,
max = 12 },
week = { min = 1,
max = 53 },
dom = { min = 1,
max = 31 },
hour = { max = 23 },
min = { max = 59 },
sec = { max = 61 },
msec = { max = 999 },
mysec = { max = 999 }
}
local fNum =
function ( k, v )
local ret = true
local dk = defs[ k ]
if dk then
if type( dk.max ) == "number" then
ret = ( type( v ) == "number" )
if ret then
local min
if dk.min then
min = dk.min
else
min = 0
end
ret = ( v >= min and v <= dk.max
and math.floor( v ) == v )
if ret and dk.f then
ret = dk.f( v )
end
end
end
end
return ret
end -- fNum()
if self.bc then
defs.year.max = 999999
end
defs.dom.f =
function ()
local ret
local d
if access == "dom" then
d = assign
else
d = self.dom
end
if d then
ret = ( d <= 28 )
if not ret then
local m
if access == "month" then
m = assign
else
m = self.month
end
if m then
ret = ( d <= Calc.months[ m ] )
if ret then
local y
if access == "year" then
y = assign
else
y = self.year
end
if d == 29 and m == 2 and y then
if y % 4 ~= 0 or
( y % 100 == 0 and
y % 400 ~= 0 ) then
ret = false
end
end
end
end
end
else
ret = true
end
return ret
end -- defs.dom.f()
defs.sec.f =
function ()
local ret
local second
if access == "sec" then
second = assign
else
second = self.sec
end
if second then
ret = ( second <= 59 )
if not ret and self.leap then
ret = true
end
end
return ret
end -- defs.sec.f()
if access or assign then
r = ( type( access ) == "string" )
if r then
local def = defs[ access ]
if def then
r = fNum( access, assign )
if r then
if def == "dom" or
def == "month" or
def == "year" then
r = defs.dom.f()
end
end
elseif access == "lang" then
r = ( type( assign ) == "string" )
if r then
r = assign:match( "^%l%l%l?-?%a*$" )
end
elseif access == "london" then
r = ( type( assign ) == "boolean" )
end
end
else
local life = false
local leak = false
local s, v
for i = 1, 10 do
s = Meta.order[ i ]
v = self[ s ]
if v then
if not life and leak then
-- gap detected
r = false
break
else
if not fNum( s, v ) then
r = false
break -- for i
end
life = true
leak = true
end
elseif i == 3 then
if not self.week then
life = false
end
elseif i ~= 4 then
life = false
end
end -- for i
if self.week and ( self.month or self.dom ) then
r = false
end
end
end
return r
end -- Prototypes.fair()

Prototypes.figure = function ( self, assign )
-- Assign month by name
-- Parameter:
-- self -- table, to be filled
-- assign -- string, with month name
-- Returns:
-- number 1...12, if valid; false, if not
local r = false
if type( self ) == "table" and type( assign ) == "string" then
r = Parser.monthNumber( assign )
if r then
self.month = r
end
end
return r
end -- Prototypes.figure()

Prototypes.first = function ( self )
-- Retrieve abbreviated month name in current language
-- Parameter:
-- self -- table, to be evaluated
-- Returns:
-- string, if defined; false, if not
local r
if type( self ) == "table" and self.month then
local slang = ( self.lang or World.slang )
r = World.monthsLong[ slang ]
if r then
local brief = World.monthsAbbr[ slang ]
r = r[ self.month ]
if brief then
local ex = brief[ self.month ]
local s = brief.suffix
if ex then
r = ex[ 2 ]
else
local n = brief.n or 3
r = mw.ustring.sub( r, 1, n )
end
if s then
r = r .. s
end
end
end
else
r = false
end
return r
end -- Prototypes.first()

Prototypes.fix = function ( self )
-- Adapt this object to local time if no explicit zone given
-- Parameter:
-- self -- table, with numbers etc.
if type( self ) == "table" and
not self.zone then
local seconds = Prototypes.format( self, "Z" )
Prototypes.future( self, - tonumber( seconds ) )
end
end -- Prototypes.fix()

Prototypes.flow = function ( self, another, assert )
-- Compare this object with another timestamp
-- Parameter:
-- self -- table, with numbers etc.
-- another -- DateTime or string or nil (now)
-- assert -- nil, or string with operator
-- "lt", "le", "eq", "ne", "ge", "gt",
-- "<", "<=", "==", "~=", "<>", ">=", "=>", ">"
-- Returns:
-- if assert: true or false
-- else: -1, 0, 1
-- nil if invalid
local base, other, r
if type( self ) == "table" then
base = self
other = another
elseif type( another ) == "table" then
base = another
other = self
end
if base then
if type( other ) ~= "table" then
other = Meta.fiat( other )
end
if type( other ) == "table" then
r = Private.flow( base, other )
if r and type( assert ) == "string" then
local trsl = { lt = "<",
["<"] = "<",
le = "<=",
["<="] = "<=",
eq = "=",
["=="] = "=",
ne = "<>",
["<>"] = "<>",
["~="] = "<>",
ge = ">=",
[">="] = ">=",
["=>"] = ">=",
gt = ">",
[">"] = ">" }
local same = trsl[ assert:lower() ]
if same then
local s = "="
if r < 0 then
s = "<"
elseif r > 0 then
s = ">"
end
r = ( same:find( s, 1, true ) ~= nil )
else
r = nil
end
end
end
end
return r
end -- Prototypes.flow()

Prototypes.format = function ( self, ask, adapt )
-- Format object as string
-- Parameter:
-- self -- table, with numbers etc.
-- ask -- string, format spec, or nil
-- table, with multiple formats
-- string may contain multiple formats joined by "|||"
-- adapt -- table, with options, or nil
-- .lang -- string, with particular language code
-- .london -- true: UTC output; default: local
-- .lonely -- true: permit lonely hour
-- Returns:
-- string, or false, if invalid, or number for julian date
local r
if type( self ) == "table" then
local s = type( ask )
local poly
if s == "string" and ask:find( "|||", 1, true ) then
poly = mw.text.split( ask, "|||" )
elseif s == "table" then
poly = ask
end
if poly then
r = ""
for i = 1, #poly do
r = r .. Private.field( self, poly[ i ], adapt )
end -- for i
else
r = Private.field( self, ask, adapt )
end
end
return r or false
end -- Prototypes.format()

Prototypes.full = function ( self )
-- Retrieve month name in current language
-- Parameter:
-- self -- table, to be evaluated
-- Returns:
-- string, if defined; false, if not
local r
if type( self ) == "table" and self.month then
local slang = ( self.lang or World.slang )
r = World.monthsLong[ slang ]
if r then
r = r[ self.month ]
end
else
r = false
end
return r
end -- Prototypes.full()

Prototypes.future = function ( self, add, allocate )
-- Relative move by interval
-- Parameter:
-- self -- table, to be used as base
-- add -- string or number, to be added
-- allocate -- true, if a clone shall be returned
-- Returns:
-- table, with shift
local r, raw, rel, shift
if type( self ) == "table" then
r = self
shift = add
elseif type( add ) == "table" then
r = add
shift = self
end
if r then
if r[ Meta.signature ] then
raw = r[ Meta.signature ]
else
raw = r
end
if type( shift ) == "table" then
rel = shift
else
rel = Private.future( shift )
end
end
if raw and rel then
if allocate then
r = Prototypes.clone( r )
raw = r[ Meta.signature ]
end
for k, v in pairs( rel ) do
raw[ k ] = ( raw[ k ] or 0 ) + v
end -- for k, v
Calc.fair( raw )
r[ Meta.signature ] = raw
end
return r
end -- Prototypes.future()

Prototypes.tostring = function ( self )
-- Stringify yourself
-- Parameter:
-- self -- table, to be stringified
-- Returns:
-- string
local dels = { false, "", "-", "-", "", "", ":", ":", ".", "" }
local wids = { false, 4, 2, 2, 2, 2, 2, 2, 3, 3 }
local s = ""
local n, r, spec
local f = function ( a )
n = self[ Meta.order[ a ] ]
s = s .. dels[ a ]
if n then
spec = string.format( "%%s%%0%dd", wids[ a ] )
s = string.format( spec, s, n )
end
end -- f()
for i = 2, 5 do
f( i )
end -- for i
r = s
s = ""
for i = 6, 10 do
f( i )
end -- for i
if s == "::." then
r = r:gsub( "%-+$", "" )
else
if r == "--" then
r = s
else
r = string.format( "%sT%s", r, s )
end
end
r = r:gsub( "%.$", "" )
if self.bc then
if self.year then
r = "-" .. r
else
r = r .. " BC"
end
end
return r
end -- Prototypes.tostring()

Prototypes.valueOf = function ( self )
-- Returns yourselves primitive value (primitive table)
-- Parameter:
-- self -- table, to be dumped
-- Returns:
-- table, or false
local r
if type( self ) == "table" then
r = self[ Meta.signature ]
end
return r or false
end -- Prototypes.valueOf()

Templates.flow = function ( frame, action )
-- Comparison invokation
-- Parameter:
-- frame -- object
-- Returns:
-- string, either "" or "1"
local r
local s1 = frame.args[ 1 ]
local s2 = frame.args[ 2 ]
if s1 then
s1 = mw.text.trim( s1 )
if s1 == "" then
s1 = false
end
end
if s2 then
s2 = mw.text.trim( s2 )
if s2 == "" then
s2 = false
end
end
if s1 or s2 then
local l
Frame = frame
l, r = pcall( Prototypes.flow,
Meta.fiat( s1 ), s2, action )
if r == true then
r = "1"
end
end
return r or ""
end -- Templates.flow()

World.templates.formatter = function ( assigned, ask, adapt )
-- Retrieve format specification string
-- Parameter:
-- assigned -- table, with numbers etc.
-- ask -- string, format spec, or nil
-- adapt -- table, with options
-- .lang -- string, with particular language code
-- .lonely -- true: permit lonely hour
-- Returns:
-- 1 -- string
-- 2 -- string or nil; append suffix (zone)
local r1, r2
if not ask or ask == "" then
r1 = "c"
elseif ask == "*" then
if World.present then
if assigned.hour then
if assigned.dom or assigned.month or assigned.year then
if World.present.both and
World.present.date and
World.present.time then
r1 = World.present.both
:gsub( "$date", World.present.date )
:gsub( "$time", World.present.time )
else
r1 = World.present.date
end
end
r1 = r1 or World.present.time
else
r1 = World.present.date
end
end
r1 = r1 or "c"
else
local template = World.templates[ ask ]
r1 = ask
if not template then
local slang = ( adapt.lang or assigned.lang or World.slang )
local tmp = World.templates[ slang ]
if tmp then
template = tmp[ ask ]
end
if not template then
local i = slang:find( "-", 3, true )
if i then
slang = slang:sub( 1, i - 1 ):lower()
tmp = World.templates[ slang ]
if tmp then
template = tmp[ ask ]
end
end
end
end
if type( template ) == "table" then
local low = ( ask == "ISO" or ask == "ISO-T" )
r1 = template.spec
if assigned.year then
if not assigned.dom then
r1 = r1:gsub( "[ .%-]?[dDjlNwz][ .,%-]*", "" )
:gsub( "^ ", "" )
if not assigned.month then
r1 = r1:gsub( "[ .%-]?[FmMnt][ .%-]*", "" )
end
end
else
r1 = r1:gsub( " ?[yY] ?", "" )
if not assigned.dom then
r1 = r1:gsub( "[ .]?[dDjlNwz][ .,%-]*", "" )
:gsub( "^ ", "" )
end
end
if template.lift and
( assigned.dom or
not ( assigned.month or assigned.year or assigned.bc )
) then
local stamp = false
if assigned.hour then
if assigned.min then
stamp = "H:i"
if assigned.sec then
stamp = "H:i:s"
if assigned.msec then
stamp = string.format( "%s.%03d",
stamp,
assigned.msec )
if assigned.mysec then
stamp = string.format( "%s.%03d",
stamp,
assigned.mysec )
end
end
end
elseif adapt.lonely then
stamp = "H"
end
end
if low or ask:find( "hh:mm:ss", 1, true ) then
if stamp then
r1 = string.format( "%s %s", r1, stamp )
end
elseif ask:find( "hh:mm", 1, true ) and
stamp and
#stamp > 3 then
r1 = string.format( "%s H:i", r1 )
end
if stamp then
if low or template.long then
local scheme
if template.long then
scheme = mw.language.getContentLanguage()
scheme = scheme.code
end
r2 = World.zones.formatter( assigned, scheme )
end
end
end
if type ( assigned.bc ) == "boolean" then
local eras = World.era[ adapt.lang ] or World.era.en
local i
if not r2 then
r2 = ""
end
if assigned.bc then
i = 1
else
i = 2
end
r2 = string.format( "%s %s", r2, eras[ i ] )
end
end
end
return r1, r2
end -- World.templates.formatter()

World.zones.formatter = function ( assigned, align )
-- Retrieve time zone specification string
-- Parameter:
-- assigned -- table, with numbers etc.
-- .zone should be available
-- align -- string, format spec, or nil
-- nil, false, "+-" -- +/- 0000
-- "Z" -- single letter
-- "UTC" -- "UTC", if appropriate
-- "de" -- try localized
-- Returns:
-- string
local r = ""
local move = 0
if assigned.zone then
local s = type( assigned.zone )
if s == "string" then
s = assigned.zone:upper()
if #s == 1 then
-- "YXWVUTSRQPONZABCDEFGHIKLM"
move = World.zones[ "!" ]:find( s, 1, true )
if move then
move = ( move - 13 ) * 100
assigned.zone = move
else
assigned.zone = false
end
else
local code = World.zones[ s ]
if not code then
local slang = ( assigned.lang or
World.slang )
local tmp = World.zones[ slang ]
if tmp then
code = tmp[ s ]
end
if not code and
slang ~= "en" and
World.zones.en then
code = World.zones.en[ s ]
end
end
if code then
move = code
assigned.zone = move
end
end
elseif s == "number" then
move = assigned.zone
end
end
if move then
local spec = "+-"
if align then
if align == "Z" then
if move % 100 == 0 then
r = World.zones[ "!" ]:sub( move / 100 + 13, 1 )
spec = false
end
elseif align ~= "+-" then
if move == 0 then
r = " UTC"
spec = false
else
local part = World.zones[ align ]
if part then
for k, v in pairs( part ) do
if v == move then
r = string.format( " (%s)", k )
spec = false
break
end
end -- for k, v
end
end
end
end
if spec == "+-" then
if move < 0 then
spec = "%4.4d"
else
spec = "+%4.4d"
end
r = string.format( spec, move )
r = string.format( "%s:%s",
r:sub( 1, 3), r:sub( 4 ) )
end
end
return r
end -- World.zones.formatter()

-- Export
local p = { }

p.test = function ( args, alien )
local slang = args.lang or alien
local obj = Meta.fiat( args[ 1 ], false, args.shift )
local r
if type( obj ) == "table" then
local spec = args[ 2 ]
local opt
if spec then
spec = mw.text.trim( spec )
end
if slang then
opt = { lang = mw.text.trim( slang ) }
end
r = obj:format( spec, opt )
else
r = ( args.noerror or "0" )
if r == "0" then
r = fault( "Format invalid" )
else
r = ""
end
if args.errCat then
local cats = mw.text.split( args.errCat, "%s*|%s*" )
for i = 1, #cats do
r = string.format( "%s[[Category:%s]]", r, cats[ i ] )
end -- for i
end
end
return r
end -- p.test

p.failsafe = function ( frame )
local s = type( frame )
local r, since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Prototypes.failsafe( false, since ) or ""
end -- p.failsafe

p.format = function ( frame )
-- 1 -- stamp
-- 2 -- spec
-- lang
-- shift
-- noerror
local l, r
local v = { frame.args[ 1 ],
frame.args[ 2 ],
shift = frame.args.shift,
noerror = frame.args.noerror,
errCat = frame.args.errCat }
if not v[ 1 ] or v[ 1 ] == "now" then
v[ 1 ] = frame:callParserFunction( "#timel", "c", v.shift )
v.shift = false
end
Frame = frame
l, r = pcall( p.test, v, frame.args[ 3 ] or frame.args.lang )
if not l then
r = fault( r )
end
return r
end -- p.format

p.lt = function ( frame )
return Templates.flow( frame, "lt" )
end -- p.lt
p.le = function ( frame )
return Templates.flow( frame, "le" )
end -- p.le
p.eq = function ( frame )
return Templates.flow( frame, "eq" )
end -- p.eq
p.ne = function ( frame )
return Templates.flow( frame, "ne" )
end -- p.ne
p.ge = function ( frame )
return Templates.flow( frame, "ge" )
end -- p.ge
p.gt = function ( frame )
return Templates.flow( frame, "gt" )
end -- p.gt

p.DateTime = function ()
return DateTime
end -- p.DateTime

return p

Vorlage:ZuS

2022-02-23T14:42:25Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=zu|SCRIPTING=Latn|SERVICE=[[isiZulu|zulu]]|SOLE=[[isiZulu]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=zu|SPRACHE=isiZulu|EXAMPLE=kwaNogqaza}}

Vorlage:Zitatvorlage

2022-02-23T14:42:25Z

Admin: 1 Version importiert

<onlyinclude>Diese Vorlage dient der Auszeichnung von [[Zitat]]en{{#ifeq:{{{block|?}}}|1||, teilweise}} als [[Blockzitat]]. Auch bei Verwendung der Vorlage bleiben die [[Wikipedia:Zitate|Grundsätze des Zitierens]] zu beachten, insbesondere des sparsamen Zitierens, des nötigen Zitierzweckes und der [[Zitat#Zitate und Urheberrecht|Beschränkungen durch das Urheberrecht]], die ein Zitat nur dann erlauben, wenn es inhaltlich und vom Umfang her angemessen ''in eine eigene schöpferische Leistung eingebettet'' ist, also einen eigenen urheberrechtlich schutzwürdigen Text und Gedankengang, der durch das Zitat lediglich erläutert, untermauert oder veranschaulicht wird oder anderweitig darauf Bezug nimmt.

Somit ist jede kommentarlose Verwendung von Zitaten unerlaubt, obwohl sie oft geschieht, zum Beispiel bei der Verwendung von [[Rezension]]en als Blockzitat.</onlyinclude>

[[Kategorie:Vorlage:Einleitung]]
[[Kategorie:Vorlage:Metadokumentation]]
[[Kategorie:Vorlage:für Vorlagen]]

Vorlage:Zitat/XML

2022-02-23T14:42:25Z

Admin: 1 Version importiert

<?xml version="1.0" encoding="utf-8"?>




<?mediawiki "{{XML-Warnung|"}}"?>
<TemplateUsage output="collapse">
<Group>
<Parameter name="Text" label="Text" null="false" />
<Parameter name="Autor" label="Autor" />
<Parameter name="Quelle" label="Quelle" />
<Parameter name="lang" label="Sprache" />
<Parameter name="vor" label="Abweichende Anführungszeichen Anfang" />
<Parameter name="nach" label="Abweichende Anführungszeichen Ende" />
<Parameter name="Umschrift" label="Umschrift" />
<Parameter name="Übersetzung" label="Übersetzung" />
<Parameter name="ref" label="Ref-Angabe mit <ref> und </ref>">
</Parameter>
</Group>
</TemplateUsage>

Vorlage:Zitat/Test

2022-02-23T14:42:25Z

Admin: 1 Version importiert

<noinclude>{{Dokumentation/Testseite}}</noinclude>
== Basis ==
<pre>
{{Zitat
|Text=Eine Rose ist eine Rose ist eine Rose.}}
</pre>
{{Zitat
|Text=Eine Rose ist eine Rose ist eine Rose.}}

<pre>
{{Zitat
|Text=Eine Zeile.

Andere Zeile.}}
</pre>
{{Zitat
|Text=Eine Zeile.

Andere Zeile.}}

<pre>
{{Zitat
|Text=Wort. {{Kapitälchen|Kapitälchen}}. Wort.}}
</pre>
{{Zitat
|Text=Wort. {{Kapitälchen|Kapitälchen}}. Wort.}}

<pre>
{{Zitat
|Text={{Kapitälchen|Kapitälchen}}. Wort.}}
</pre>
{{Zitat
|Text={{Kapitälchen|Kapitälchen}}. Wort.}}

<pre>
{{Zitat
|Text={{Kapitälchen|Zeile. 
Andere Zeile.}} Wort.}}
</pre>
{{Zitat
|Text={{Kapitälchen|Zeile. 
Andere Zeile.}} Wort.}}

== Sprachen, vor/nach ==
<pre>
{{Zitat
|Text=Code is poetry.
|Sprache=en}}
</pre>
{{Zitat
|Text=Code is poetry.
|Sprache=en}}

<pre>
{{Zitat
|Text=Code is poetry.
|lang=en}}
</pre>
{{Zitat
|Text=Code is poetry.
|lang=en}}

<pre>
{{Zitat
|Text=Hopp Schwyz
|lang=de-CH}}
</pre>
{{Zitat
|Text=Hopp Schwyz
|lang=de-CH}}

<pre>
{{Zitat
|Text=Vorher – Nachher
|vor=<
|nach=>}}
</pre>
{{Zitat
|Text=Vorher – Nachher
|vor=<
|nach=>}}

<pre>
{{Zitat
|Text=An der Nase rumgeführt.
|vor=-
|nach=-}}
</pre>
{{Zitat
|Text=An der Nase rumgeführt.
|vor=-
|nach=-}}

<pre>
{{Zitat
|Text=Die Katze läuft im Schnee.
|ref=<ref name="EN">name="EN"</ref>}}
</pre>
{{Zitat
|Text=Die Katze läuft im Schnee.
|ref=<ref name="EN">name="EN"</ref>}}

== Autor Quelle Umschrift Übersetzung ==

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Autor=Oller Grieche}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Autor=Oller Grieche}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Quelle=Olle Klamotte}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Quelle=Olle Klamotte}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Übersetzung=alpha beta gamma delta}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Übersetzung=alpha beta gamma delta}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd
|Übersetzung=alpha beta gamma delta}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd
|Übersetzung=alpha beta gamma delta}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Latn=abgd
|de=alpha beta gamma delta}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Latn=abgd
|de=alpha beta gamma delta}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|ref=<ref name="EN2">name="EN2"</ref>}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|ref=<ref name="EN2">name="EN2"</ref>}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Autor=Oller Grieche
|ref=<ref name="EN3">name="EN3"</ref>}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Autor=Oller Grieche
|ref=<ref name="EN3">name="EN3"</ref>}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Quelle=Olle Klamotte
|ref=<ref name="EN4">name="EN4"</ref>}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Quelle=Olle Klamotte
|ref=<ref name="EN4">name="EN4"</ref>}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd
|ref=<ref name="EN5">name="EN5"</ref>}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd
|ref=<ref name="EN5">name="EN5"</ref>}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Übersetzung=alpha beta gamma delta
|ref=<ref name="EN6">name="EN6"</ref>}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Übersetzung=alpha beta gamma delta
|ref=<ref name="EN6">name="EN6"</ref>}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd
|Übersetzung=alpha beta gamma delta
|ref=<ref name="EN7">name="EN7"</ref>}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Umschrift=abgd
|Übersetzung=alpha beta gamma delta
|ref=<ref name="EN7">name="EN7"</ref>}}

<pre>
{{Zitat
|Text=αβγδ
|lang=el
|Latn=abgd
|de=alpha beta gamma delta
|ref=<ref name="EN8">name="EN8"</ref>}}
</pre>
{{Zitat
|Text=αβγδ
|lang=el
|Latn=abgd
|de=alpha beta gamma delta
|ref=<ref name="EN8">name="EN8"</ref>}}

== Unbenannte Parameter ==
Zitat ohne Autor und Quelle:

<nowiki>{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.}}</nowiki>
{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.}}

Zitat mit Autor:

<nowiki>{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.|Goethe}}</nowiki>
{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.|Goethe}}

Zitat mit Autor und Werk:

<nowiki>{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.|Goethe|''Faust: der Tragödie erster Teil''}}</nowiki>
{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.|Goethe|''Faust: der Tragödie erster Teil''}}

Zitat ohne Autor und mit Quelle:

<nowiki>{{Zitat|Du hast keine Chance – nutze Sie!|Quelle=[[Sponti-Spruch]]}}</nowiki>
<nowiki>{{Zitat|Du hast keine Chance – nutze Sie!|3=[[Sponti-Spruch]]}}</nowiki> (alternativ)
<nowiki>{{Zitat|Du hast keine Chance – nutze Sie!||[[Sponti-Spruch]]}}</nowiki> (alternativ)

{{Zitat|Du hast keine Chance – nutze Sie!|Quelle=[[Sponti-Spruch]]}}

Wikimarkup kann natürlich auch benutzt werden:

<nowiki>{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.|[[Johann Wolfgang von Goethe|Goethe]]|''Faust: der Tragödie erster Teil''}}</nowiki>
{{Zitat|Zwei Seelen wohnen, ach, in meiner Brust.|[[Johann Wolfgang von Goethe|Goethe]]|''Faust: der Tragödie erster Teil''}}

Ein etwas längeres Beispiel

<nowiki>{{Zitat|Durch viele Zitate vermehrt man seinen Anspruch auf
Gelehrsamkeit, vermindert aber den auf Originalität,
und was ist Gelehrsamkeit ohne Originalität! Man soll
sie also nur gebrauchen, wo man fremder Autorität
wirklich bedarf.|Arthur Schopenhauer}}</nowiki>
{{Zitat|Durch viele Zitate vermehrt man seinen Anspruch auf
Gelehrsamkeit, vermindert aber den auf Originalität,
und was ist Gelehrsamkeit ohne Originalität! Man soll
sie also nur gebrauchen, wo man fremder Autorität
wirklich bedarf.|Arthur Schopenhauer}}

== Unbenannt, knapp ==
<pre>
{{Zitat|Eine Rose ist eine Rose ist eine Rose.
|lang=de}}
</pre>
{{Zitat|Eine Rose ist eine Rose ist eine Rose.
|lang=de}}
<pre>
{{Zitat|Eine Zeile.

Andere Zeile.
|lang=de}}
</pre>
{{Zitat|Eine Zeile.

Andere Zeile.
|lang=de}}

== Fehler ==
<pre>
{{Zitat
|Text=Vorn ohne hinten
|vor=@}}
</pre>
{{Zitat
|Text=Vorn ohne hinten
|vor=@}}

<pre>
{{Zitat
|Text=Hinten ohne vorn
|nach=@}}
</pre>
{{Zitat
|Text=Hinten ohne vorn
|nach=@}}

<pre>
{{Zitat
|Text=An der Nase rumgeführt.
|ref=Ich bin kein ref.}}
</pre>
{{Zitat
|Text=An der Nase rumgeführt.
|ref=Ich bin kein ref.}}

<pre>
{{Zitat
|Text=1 + Text
|1=da capo}}
</pre>
{{Zitat
|Text=1 + Text
|1=da capo}}

<pre>
{{Zitat
|Text=2 + Autor
|Autor=Urheber
|2=von und zu G.}}
</pre>
{{Zitat
|Text=2 + Autor
|Autor=Urheber
|2=von und zu G.}}

<pre>
{{Zitat
|Text=3 + Quelle
|Quelle=Original
|3=Plagiat}}
</pre>
{{Zitat
|Text=3 + Quelle
|Quelle=Original
|3=Plagiat}}

<pre>
{{Zitat
|Text=Umschrift + Latn
|lang=und
|Umschrift=Klarname
|Latn=ISO}}
</pre>
{{Zitat
|Text=Umschrift + Latn
|lang=und
|Umschrift=Klarname
|Latn=ISO}}

<pre>
{{Zitat
|Text=Übersetzung + de
|de=ISO
|Übersetzung=Klarname}}
</pre>
{{Zitat
|Text=Übersetzung + de
|de=ISO
|Übersetzung=Klarname}}

<pre>
{{Zitat
|Text=lang + Sprache
|lang=de-CH
|Sprache=de-CH}}
</pre>
{{Zitat
|Text=lang + Sprache
|lang=de-CH
|Sprache=de-CH}}

----
<references />

Vorlage:Zitat/Editnotice

2022-02-23T14:42:24Z

Admin: 1 Version importiert

<noinclude>{{Dokumentation/Editnoticeseite}}</noinclude>
{{Tausendfach verwendet}}

Vorlage:Zitat/Doku

2022-02-23T14:42:24Z

Admin: 1 Version importiert

<noinclude>{{Dokumentation/Dokuseite}}</noinclude>
{{TemplateData|JSON=
{{TemplateData/JSON
|Beschreibung=Formatierung von zitierten Textpassagen als [[Blockzitat]]
|Parameter=
{{TemplateData/Parameter|Text
|Beschreibung=Zitat
|Typ=content
|Pflicht=ja
|Aliasse={{TemplateData/Aliasse|1}}
}}
{{TemplateData/Parameter|Sprache
|Beschreibung=Code nach RFC 5645 bzw. [[ISO 639]] für eine Fremdsprache, in der das Original verfasst ist<exportonly>. Das wäre etwa: „en“ für englisch, „fr“ für französisch usw.</exportonly>
|Typ=line
|Pflicht=nein
|Werte={{TemplateData/Werte
| {{TemplateData/JSON/val:lang|en}}
| {{TemplateData/JSON/val:lang|en|US}}
| {{TemplateData/JSON/val:lang|en|GB}}
| {{TemplateData/JSON/val:lang|fr}}
| {{TemplateData/JSON/val:lang|la}}
| {{TemplateData/JSON/val:lang|de|AT}}
| {{TemplateData/JSON/val:lang|de|CH}}
| {{TemplateData/JSON/val:lang|az}}
| {{TemplateData/JSON/val:lang|be}}
| {{TemplateData/JSON/val:lang|bg}}
| {{TemplateData/JSON/val:lang|br}}
| {{TemplateData/JSON/val:lang|bs}}
| {{TemplateData/JSON/val:lang|bug}}
| {{TemplateData/JSON/val:lang|ca}}
| {{TemplateData/JSON/val:lang|cs}}
| {{TemplateData/JSON/val:lang|cu}}
| {{TemplateData/JSON/val:lang|cy}}
| {{TemplateData/JSON/val:lang|da}}
| {{TemplateData/JSON/val:lang|dz}}
| {{TemplateData/JSON/val:lang|el}}
| {{TemplateData/JSON/val:lang|es}}
| {{TemplateData/JSON/val:lang|et}}
| {{TemplateData/JSON/val:lang|fi}}
| {{TemplateData/JSON/val:lang|fj}}
| {{TemplateData/JSON/val:lang|frr}}
| {{TemplateData/JSON/val:lang|fur}}
| {{TemplateData/JSON/val:lang|gl}}
| {{TemplateData/JSON/val:lang|gmh}}
| {{TemplateData/JSON/val:lang|grc}}
| {{TemplateData/JSON/val:lang|gsw}}
| {{TemplateData/JSON/val:lang|hr}}
| {{TemplateData/JSON/val:lang|hu}}
| {{TemplateData/JSON/val:lang|hy}}
| {{TemplateData/JSON/val:lang|id}}
| {{TemplateData/JSON/val:lang|is}}
| {{TemplateData/JSON/val:lang|it}}
| {{TemplateData/JSON/val:lang|ka}}
| {{TemplateData/JSON/val:lang|kk}}
| {{TemplateData/JSON/val:lang|ko}}
| {{TemplateData/JSON/val:lang|ksh}}
| {{TemplateData/JSON/val:lang|lt}}
| {{TemplateData/JSON/val:lang|lv}}
| {{TemplateData/JSON/val:lang|mt}}
| {{TemplateData/JSON/val:lang|ms}}
| {{TemplateData/JSON/val:lang|nb}}
| {{TemplateData/JSON/val:lang|nds}}
| {{TemplateData/JSON/val:lang|nl}}
| {{TemplateData/JSON/val:lang|nn}}
| {{TemplateData/JSON/val:lang|no}}
| {{TemplateData/JSON/val:lang|pl}}
| {{TemplateData/JSON/val:lang|pt}}
| {{TemplateData/JSON/val:lang|rm}}
| {{TemplateData/JSON/val:lang|ro}}
| {{TemplateData/JSON/val:lang|ru}}
| {{TemplateData/JSON/val:lang|sa}}
| {{TemplateData/JSON/val:lang|sk}}
| {{TemplateData/JSON/val:lang|smi}}
| {{TemplateData/JSON/val:lang|sq}}
| {{TemplateData/JSON/val:lang|sr}}
| {{TemplateData/JSON/val:lang|st}}
| {{TemplateData/JSON/val:lang|sv}}
| {{TemplateData/JSON/val:lang|th}}
| {{TemplateData/JSON/val:lang|tr}}
| {{TemplateData/JSON/val:lang|uk}}
| {{TemplateData/JSON/val:lang|vec}}
| {{TemplateData/JSON/val:lang|vi}}
| {{TemplateData/JSON/val:lang|zu}}
}}
|Vorgabe=deutschsprachig
|Beispiel=en-US
|Aliasse={{TemplateData/Aliasse|lang}}
}}
{{TemplateData/Parameter|Autor
|Beschreibung=Autoren (Vorname Nachname, Vorname Nachname …)
|Typ=content
|Pflicht=nein
|Empfohlen=ja
|Beispiel=Heinrich Heine
|Aliasse={{TemplateData/Aliasse|2}}
}}
{{TemplateData/Parameter|Quelle
|Beschreibung=Quelle, in der das Zitat zu finden ist
|Typ=content
|Pflicht=nein
|Empfohlen=ja
|Beispiel=Die Harzreise
|Aliasse={{TemplateData/Aliasse|3}}
}}
{{TemplateData/Parameter|Umschrift
|Beschreibung=Umschrift/Transkription: Übertragung der Zeichen des Originalschriftsystems in die Zeichen das lateinischen Alphabets
|Typ=content
|Pflicht=nein
}}
{{TemplateData/Parameter|Übersetzung
|Beschreibung=Deutsche Übersetzung des Zitats
|Typ=content
|Pflicht=nein
}}
{{TemplateData/Parameter|ref
|Kurz=Einzelnachweis
|Beschreibung=Einzelnachweis <ref> (nur <ref>-Elemente zulässig)
|Typ=content
|Pflicht=nein
|Empfohlen=ja
|Beispiel={{Char|60}}ref>''Hier steht’s!'' S. 42{{Char|60}}/ref>
}}
{{TemplateData/Parameter|vor
|Beschreibung=(historisch) von planmäßigen Anführungszeichen abweichende Auszeichnungen vor dem Zitat; vermeiden
|Typ=line
|Veraltet=entfernen
}}
{{TemplateData/Parameter|nach
|Beschreibung=(historisch) von planmäßigen Anführungszeichen abweichende Auszeichnungen nach dem Zitat; vermeiden
|Typ=line
|Veraltet=entfernen
}}
|Format=block indent compressed last
}}
|TOC=1}}


== Hinweise ==


{{Zitatvorlage|block=1}}

== Kopiervorlage ==

Häufig ist die folgende Kurzform hinreichend:
<pre>
{{Zitat
|Text=
|Sprache=
|Autor=
|Quelle=
|ref=<ref></ref>
}}
</pre>

Alle Parameter:
<pre>
{{Zitat
|Text=
|Sprache=
|Autor=
|Quelle=
|Umschrift=
|Übersetzung=
|vor=
|nach=
|ref=<ref></ref>
}}
</pre>

== Beispiel ==

<pre style="white-space:pre-wrap;">
{{Zitat
|Text=That’s one small step for man … one … giant leap for mankind.
|Sprache=en
|Autor=Neil Armstrong
|Quelle=O-Ton
|Übersetzung= Das ist ein kleiner Schritt für den Menschen … ein … riesiger Sprung für die Menschheit.
|ref=<ref>am [[21. Juli]] [[1969]] betrat [[Neil Armstrong]] als erster Mensch im Rahmen des [[Apollo-Programm]]s der [[NASA]] den [[Mond]] ([[:Datei:Neil Armstrong small step.wav|O-Ton]] von [http://science.ksc.nasa.gov/history/apollo/apollo-11/apollo-11-info.html science.ksc.nasa.gov])</ref>
}}
</pre>

{{Zitat
|Text=That’s one small step for man … one … giant leap for mankind.
|Sprache=en
|Autor=Neil Armstrong
|Quelle=O-Ton
|Übersetzung= Das ist ein kleiner Schritt für den Menschen … ein … riesiger Sprung für die Menschheit.
|ref=<ref>am [[21. Juli]] [[1969]] betrat [[Neil Armstrong]] als erster Mensch im Rahmen des [[Apollo-Programm]]s der [[NASA]] den [[Mond]] ([[:Datei:Neil Armstrong small step.wav|O-Ton]] von [http://science.ksc.nasa.gov/history/apollo/apollo-11/apollo-11-info.html science.ksc.nasa.gov])</ref>
}}

'''Einzelnachweise'''
<references />


== Vereinfachte Fremdspracheneinbindung ==
Früher benutzte man für Fremdsprachen jeweils eine eigene Vorlage.
* Inzwischen wird die Art des Anführungszeichens automatisch von der verwendeten Sprache abgeleitet.
* Langfristig sollen die besonderen Einzelvorlagen für einzelne Sprachen auslaufen.

Bei den nachstehenden Sprachen wird noch mit besonderen Schriften (insbesondere rechts nach links) gearbeitet; diese können einstweilen belassen werden:
{| class="wikitable sortable"
|-
! Vorlage !! Sprache / Einsatzzweck
|-
| [[Vorlage:Zitat-ar]] || {{arS}}
|-
| [[Vorlage:Zitat-fa]] || [[Persische Sprache|persisch]]
|-
| [[Vorlage:Zitat-he]] || [[Hebräische Sprache|(neu-)hebräisch]]
|-
| [[Vorlage:Zitat-ja]] || {{jaS}}
|-
| [[Vorlage:Zitat-yi]] || {{yiS}}
|-
| [[Vorlage:Zitat-zh-Hant]] || [[Traditionelles Chinesisch]]
|-
| [[Vorlage:Zitat-zh]] || [[Chinesische Sprachen|chinesisch]]
|}

Für lateinische Verschriftung gibt es noch einige besondere Vorlagen, die jedoch obsolet geworden sind und gelegentlich gegen die Basisversion ausgetauscht werden können.
{{Dokumentation/Siehe auch |Liste=
* [[Vorlage:"]] – Zitate im Fließtext (analoge Vorlage)
* [[Wikipedia:Lua/Modul/Text/Test#Anführungszeichen|bekannte Anführungszeichen in Fremdsprachen]]
}}
== Wartung ==
{{Vorlagenfehler-Wartungskat}}
* Es werden Fehlermeldungen angezeigt; bis zur Aufarbeitung des Altbestands ggf. nur für Benutzer mit Sichterrechten.
<includeonly>
[[Kategorie:Vorlage:Zitieren|!]]
</includeonly>

Vorlage:YiS

2022-02-23T14:42:23Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=yi |SCRIPTING=Hebr |SERVICE=[[jiddisch]]}}</onlyinclude>

{{lang/RTL/Doku |CODE=yi |SCRIPTING=Hebr |S=1 |he=1 |pl=1 |ru=1 |EXAMPLE=ייִדיש&lrm; |EXAMPLE-Latn=yidish |EXAMPLE-YIVO= |EXAMPLE-de=jiddisch |SieheAuch=* [[Vorlage:heS]] – {{heS}}
{{yi/Transkriptionen}}
}}

Vorlage:ViS

2022-02-23T14:42:23Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=vi|SCRIPTING=Latn|SERVICE=[[Vietnamesische Sprache|vietnamesisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=vi|SPRACHE=vietnamesischer Sprache|EXAMPLE=tiếng Việt|EXAMPLE-de=vietnamesische Sprache|EXAMPLE-en=vietnamese language}}

Vorlage:VecS

2022-02-23T14:42:23Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=vec|SCRIPTING=Latn|SERVICE=[[Venetische Sprache (romanisch)|venetisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=vec|SPRACHE=venetischer Sprache [romanisch]|EXAMPLE=Provìncia de Vicènsa|SieheAuch=
* [[Vorlage:itS]] – {{itS}}
}}

Vorlage:UkS-Cyrl

2022-02-23T14:42:23Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=uk|SCRIPTING=Cyrl|LONG=1|SERVICE=[[Ukrainische Sprache|ukrainisch]]}}</onlyinclude>

{{lang/Cyrl-nachgestellt/Doku|CODE=uk|LONG=1|SPRACHE=ukrainischer Sprache|EXAMPLE-Cyrl=Україна|EXAMPLE-Latn=Ukrajina|EXAMPLE-IPA=ukrɑˈjinɑ|EXAMPLE-de=Ukraine|EXAMPLE-en=Ukraine|SieheAuch=
* [[Vorlage:ukS-Latn]] – {{ukS-Latn}} (Romanisierung; nur lateinische Darstellung)
}}

Vorlage:UkS

2022-02-23T14:42:23Z

Admin: 1 Version importiert

#WEITERLEITUNG [[Vorlage:ukS-Cyrl]]

Die ukrainische Sprache wird in kyrillischer Schrift geschrieben und so auch in der deutschsprachigen Wikipedia dargestellt.

Romanisierung, also lateinische Umschrift, kommt nur sehr selten vor, insbesondere kaum im Zusammenhang mit der Nutzung dieser Vorlage.

In den Artikeln soll deshalb die Form <code>{{ukS}}</code> für kyrillische Schrift benutzt werden und die Weiterleitung nicht aufgelöst werden.

'''Diese Weiterleitung ist grundsätzlich kein Gegenstand von SLA.'''

Vorlage:TrS

2022-02-23T14:42:23Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=tr|SCRIPTING=Latn|SERVICE=[[Türkische Sprache|türkisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=tr|SPRACHE=türkischer Sprache|TAUSEND=1|EXAMPLE=Türkiye Büyük Millet Meclisi|EXAMPLE-de=Große Nationalversammlung der Türkei|SieheAuch=* [[Vorlage:otaS]], [[Vorlage:ota]] – für Texte in osmanischer Sprache und arabischer Schrift vor der Sprachreform 1928}}

Vorlage:ThS

2022-02-23T14:42:23Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full |CODE=th |SCRIPTING=Thai |SERVICE=[[Thailändische Sprache|thailändisch]]}}</onlyinclude>

{{lang/Zyyy/Doku |SCRIPTING=Thai |CODE=th |SPRACHE=Thai-Sprache |SCHRIFT=Thai-Schrift |RTGS=1 |EXAMPLE=ภาษาไทย |EXAMPLE-Latn=paasaa tai |EXAMPLE-RTGS=Phasa Thai |EXAMPLE-Audio=th-phaasaathai.ogg |EXAMPLE-IPA=pʰaːsǎː tʰaj |EXAMPLE-de=Thailändisch |EXAMPLE-en=Thai language}}

Vorlage:TemplateData/Werte

2022-02-23T14:42:23Z

Admin: 1 Version importiert

<onlyinclude><includeonly>{{#invoke:JSONutil|encodeArray|type=object|error=1}}</includeonly></onlyinclude>

{{Dokumentation}}

Vorlage:TemplateData/Parameter

2022-02-23T14:42:22Z

Admin: 1 Version importiert

<onlyinclude><includeonly>{{#if: {{{1|}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign={{{1}}}
|type=object
|value=
{{#if: {{{label|{{{Kurz|{{{Label|}}}}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=label|type=I18N
|value={{{label|{{{Kurz|{{{Label}}}}}}}}}
|indent=3|error=1}}
}}{{#if: {{{description|{{{Beschreibung|}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=description|type=I18N
|value={{{description|{{{Beschreibung}}}}}}
|error=1}}
}}{{#if: {{{type|{{{Typ|}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=type|type=string
|value={{#ifeq: {{{type|{{{Typ}}}}}} | I18N | string | {{{type|{{{Typ}}}}}} }}
|indent=3|error=1}}
}}{{#if: {{{required|{{{Pflicht|}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=required|type=boolean
|value={{#if: {{#invoke:TemplUtl|faculty|
{{{required|{{{Pflicht}}}}}} }}
| 1 }}
|indent=3|error=1}}
}}{{#if: {{{suggested|{{{Empfohlen|{{{Empfehlung|{{{Vorschlag|}}}}}}}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=suggested|type=boolean
|value={{#if: {{#invoke:TemplUtl|faculty|
{{{suggested|{{{Empfohlen|{{{Empfehlung|{{{Vorschlag}}}}}}}}}}}} }}
| 1 }}
|indent=3|error=1}}
}}{{#if: {{{Werte|{{{suggestedvalues|}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=suggestedvalues|type=Array
|value={{{Werte|{{{suggestedvalues}}}}}}
|indent=3|error=1}}
}}{{#if: {{{default|{{{Vorgabe|{{{Standard|{{{Default|}}}}}}}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=default|type=I18N
|value={{{default|{{{Vorgabe|{{{Standard|{{{Default|}}}}}}}}}}}}
|indent=3|error=1}}
}}{{#if: {{{example|{{{Beispiel|}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=example|type=I18N
|value={{{example|{{{Beispiel|}}}}}}
|indent=3|error=1}}
}}{{#if: {{{autovalue|{{{AutoWert|{{{Autowert|}}}}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=autovalue|type=I18N
|value={{{autovalue|{{{AutoWert|{{{Autowert}}}}}}}}}
|indent=3|error=1}}
}}{{#if: {{{deprecated|{{{Veraltet|{{{Obsolet|}}}}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=deprecated|type=boolean I18N
|value={{{deprecated|{{{Veraltet|{{{Obsolet}}}}}}}}}
|indent=3|error=1}}
}}{{#if: {{{aliases|{{{Aliasse|{{{Alias|}}}}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=aliases|type=Array
|value={{{aliases|{{{Aliasse|{{{Alias}}}}}}}}}
|indent=3|error=1}}
}}{{#if: {{{inherits|{{{Geerbt|{{{Erbt|}}}}}}}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=inherits|type=string
|value={{{inherits|{{{Geerbt|{{{Erbt|}}}}}}}}}
|indent=3|error=1}}
}}{{#if: {{{style|}}}
| <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=style|type=string object
|value={{{style}}}
|indent=3|error=1}}
}}
|indent=2}}
| {{#invoke:JSONutil|encodeComponent
|sign=FEHLER@JSON
|type=string
|value=Name des Parameters fehlt!}}
}}</includeonly></onlyinclude>

{{Dokumentation}}

Vorlage:TemplateData/JSON/val:lang

2022-02-23T14:42:22Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:JSONutil|encodeComponent
|sign=code|type=string
|value={{{1}}}{{#if: {{{2|}}} | -{{{2}}}}}
|indent=2
}}{{#invoke:JSONutil|encodeComponent
|sign=label|type=string
|value={{{{{1}}}S{{#if: {{{2|}}} | -{{{2}}}}}}}
|indent=2}}</onlyinclude>

{{Dokumentation}}

Vorlage:TemplateData/JSON

2022-02-23T14:42:22Z

Admin: 1 Version importiert

<onlyinclude><includeonly>{{#invoke:JSONutil|encodeObject
| {{#if: {{{description|{{{Beschreibung|}}}}}} | <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=description|type=I18N
|value={{{description|{{{Beschreibung}}}}}}
|indent=0
|error=1}}
}}{{#if: {{{params|{{{Parameterliste|{{{Parameter|}}}}}}}}} | <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=params|type=object
|value={{{params|{{{Parameterliste|{{{Parameter|}}}}}}}}}
|indent=0
|error=1}}
}}{{#if: {{{format|{{{Format|}}}}}} | <nowiki />
{{#invoke:JSONutil|encodeComponent
|sign=format|type=string
|value={{{format|{{{Format|}}}}}}}}
}}
|indent=0}}</includeonly></onlyinclude>

{{Dokumentation}}

Vorlage:TemplateData/Aliasse

2022-02-23T14:42:22Z

Admin: 1 Version importiert

<onlyinclude><includeonly>{{#invoke:JSONutil|encodeArray|type=string|error=1}}</includeonly></onlyinclude>

{{Dokumentation}}

Vorlage:SvS

2022-02-23T14:42:22Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=sv|SCRIPTING=Latn|SERVICE=[[Schwedische Sprache|schwedisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=sv|SPRACHE=schwedischer Sprache|EXAMPLE=Köpenhamn|EXAMPLE-Audio=Sv-Köpenhamn.ogg|EXAMPLE-de=Kopenhagen|EXAMPLE-en=Copenhagen}}

Vorlage:Str replace

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude><includeonly>{{#invoke:Str|replace|{{{1|}}}|{{{2|}}}|{{{3|}}}|{{{4|}}}|{{{5|}}}}}</includeonly></onlyinclude>
{{Dokumentation}}

Vorlage:StS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=st|SCRIPTING=Latn|SERVICE=[[Sesotho]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=st|SPRACHE=sesotho|EXAMPLE=bo-ntate ba ja nama|EXAMPLE-de=die Väter essen Fleisch|EXAMPLE-en=the fathers eat meat}}

Vorlage:SrS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full |CODE=sr |SCRIPTING=Cyrl |SERVICE=[[Serbische Sprache|serbisch]]{{#if:{{{1|}}}|{{#if:{{{2|}}}||-[[Kyrillisches Alphabet#Serbisch, Serbokroatisch und Montenegrinisch|kyrillisch]]}}}}}}</onlyinclude>

{{lang/Zyyy/Doku |CODE=sr |SCRIPTING=Cyrl |SPRACHE=serbischer Sprache |SCHRIFT=kyrillischer Schrift |CYRL=1 |EXAMPLE=министарство |EXAMPLE-Latn=Ministarstvo |NKsub=Kyrillisch |SieheAuch=
* [[Vorlage:srS-Latn]] – in lateinischer Schrift
* [[Vorlage:bsS]] – {{bsS}}
* [[Vorlage:cnrS-Cyrl]] – {{cnrS-Cyrl}}
* [[Vorlage:hbsS]] – {{hbsS}}
* [[Vorlage:hrS]] – {{hrS}}
}}

Vorlage:SqS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>[[Albanische Sprache|albanisch]]{{#if:{{{2|}}}| auch}}{{#if:{{{1|}}}| {{lang|sq|{{{1}}}}}|}}</onlyinclude>
{{lang/Doku-S|Sprache=albanisch|ParamTyp1=Çiftelia|Param2=x|Anmerkung1=Mit dem zusätzlichen zweiten Parameter <code>x</code> (auch <code>true</code> oder ein anderer Wert möglich) wird das Wort „auch“ eingeblendet.}}

[[Kategorie:Vorlage:Fremdsprachenunterstützung|SqS]]

Vorlage:SmiS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=fi|SCRIPTING=Latn|SERVICE=[[Samische Sprachen|samisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=fi|SPRACHE=sonstiger samischer Sprache|SieheAuch=
* [[Vorlage:seS]] – {{seS}}
* [[Vorlage:fiS]] – {{fiS}}}}

Vorlage:SkS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=sk|SCRIPTING=Latn|SERVICE=[[Slowakische Sprache|slowakisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=sk|SPRACHE=slowakischer Sprache|EXAMPLE=Lečo}}

Vorlage:SaS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=sa |SCRIPTING=Deva |SERVICE=[[Sanskrit]]}}</onlyinclude>

{{lang/Zyyy/Doku |CODE=sa |SCRIPTING=Deva |SPRACHE=Sanskrit |SCHRIFT=Devanagari-Schrift |EXAMPLE= |EXAMPLE-Latn= |EXAMPLE-IAST= |EXAMPLE-IPA= |EXAMPLE-de= |EXAMPLE-en=}}

Vorlage:RuS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=ru|SCRIPTING=Cyrl|SERVICE=[[Russische Sprache|russisch]]}}</onlyinclude>

{{lang/Cyrl-nachgestellt/Doku|CODE=ru|SPRACHE=russischer Sprache|EXAMPLE-Cyrl=Москва́ |EXAMPLE-Latn=moskwa|EXAMPLE-Audio=ru-Moskva.ogg|EXAMPLE-IPA=mʌs'kva|EXAMPLE-de=Moskau|EXAMPLE-en=Moscow}}

Vorlage:RoS

2022-02-23T14:42:21Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=ro|SCRIPTING=Latn|SERVICE=[[Rumänische Sprache|rumänisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=ro|SPRACHE=rumänischer Sprache|EXAMPLE=gospodar}}

Vorlage:RmS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=rm|SCRIPTING=Latn|SERVICE=[[Bündnerromanisch|rätoromanisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=rm|SPRACHE=rätoromanisch|EXAMPLE=Rumantsch Grischun}}

Vorlage:PtS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=pt|SCRIPTING=Latn|SERVICE=[[Portugiesische Sprache|portugiesisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=pt|SPRACHE=portugiesischer Sprache|EXAMPLE=Brasil |SieheAuch=* [[Vorlage:mwlS]] – {{mwlS}}}}

Vorlage:PlS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=pl|SCRIPTING=Latn|SERVICE=[[Polnische Sprache|polnisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=pl|SPRACHE=polnischer Sprache|EXAMPLE=Noteć |SieheAuch=* [[Vorlage:szlS]] – {{szlS}}}}

Vorlage:NoS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=no|SCRIPTING=Latn|SERVICE=[[Norwegische Sprache|norwegisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=no|SPRACHE=norwegische Sprache|EXAMPLE=banan|EXAMPLE-IPA=|EXAMPLE-Audio=|EXAMPLE-de=Banane|EXAMPLE-en=banana|SieheAuch=
* [[Vorlage:nbS]] – {{nbS}}
* [[Vorlage:nnS]] – {{nnS}}
}}

Vorlage:NnS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=nn|SCRIPTING=Latn|SERVICE=[[Nynorsk]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=nn|SPRACHE=Nynorsk|TAUSEND=|EXAMPLE=ein rev|EXAMPLE-IPA=|EXAMPLE-Audio=|EXAMPLE-de=ein Fuchs|EXAMPLE-en=a fox|SieheAuch=
* [[Vorlage:nbS]] – {{nbS}}
* [[Vorlage:noS]] – sonstige norwegische Sprache
}}

Vorlage:NlS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=nl|SCRIPTING=Latn|SERVICE=[[Niederländische Sprache|niederländisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=nl|SPRACHE=niederländischer Sprache|EXAMPLE=groen|EXAMPLE-Audio=nl-Groen.ogg|EXAMPLE-IPA=ɣrun|EXAMPLE-de=grün|EXAMPLE-en=green|SieheAuch=
* [[Vorlage:liS]] – {{liS}}
* [[Vorlage:fyS]] – {{fyS}}
* [[Vorlage:ndsS]] – {{ndsS}}
* [[Vorlage:vlsS]] – {{vlsS}}
* [[Vorlage:zeaS]] – {{zeaS}}
* [[Vorlage:ndsS-NL]] – {{ndsS-NL}}
}}

Vorlage:NdsS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=nds|SCRIPTING=Latn|SERVICE=[[Niederdeutsche Sprache|niederdeutsch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=nds|SPRACHE=niederdeutscher Sprache|EXAMPLE=Sleswig-Holsteen|SieheAuch=
* [[Vorlage:ndsS-NL]] – {{ndsS-NL}}
* [[Vorlage:fyS]] – {{fyS}}
* [[Vorlage:frsS]] – {{frsS}}
* [[Vorlage:frrS]] – {{frrS}}
* [[Vorlage:stqS]] – {{stqS}}
* [[Vorlage:wepS]] – {{wepS}}
* [[Vorlage:deS]] – {{deS}}
* [[Vorlage:nlS]] – {{nlS}}
}}

Vorlage:NbS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=nb|SCRIPTING=Latn|SERVICE=[[Bokmål]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=nb|SPRACHE=Bokmål|TAUSEND=|EXAMPLE=en rev|EXAMPLE-IPA=|EXAMPLE-Audio=|EXAMPLE-de=ein Fuchs|EXAMPLE-en=a fox|SieheAuch=
* [[Vorlage:nnS]] – {{nnS}}
* [[Vorlage:noS]] – sonstige norwegische Sprache
}}

Vorlage:MtS

2022-02-23T14:42:20Z

Admin: 1 Version importiert

<onlyinclude>{{#invoke:Vorlage:lang|full|CODE=mt|SCRIPTING=Latn|SERVICE=[[Maltesische Sprache|maltesisch]]}}</onlyinclude>

{{lang/Latn/Doku|CODE=mt|SPRACHE=maltesischer Sprache|EXAMPLE=Ta’ Marija Bambina|SieheAuch=
* [[Vorlage:enS]] – {{enS}}
}}