Passive Sichter, Bürokraten, developer, Sichter, Oberflächenadministratoren, Prüfer, Administratoren
7.756
Bearbeitungen
Nicht angemeldeter Benutzer - Bearbeiten von Seiten ist nur als angemeldeter Benutzer möglich.
Änderungen
Zur Navigation springen
Zur Suche springen
Zeile 1:
Zeile 1: − + + Zeile 22:
Zeile 23: + Zeile 31:
Zeile 33: + Zeile 38:
Zeile 41: + + Zeile 152:
Zeile 157: − + Zeile 158:
Zeile 163: − + + + Zeile 179:
Zeile 186: − + − + + + + + + + + + + + + + + + Zeile 198:
Zeile 219: − + + + Zeile 226:
Zeile 249: + + + + + + + + + + + + Zeile 263:
Zeile 298: − + Zeile 302:
Zeile 337: + − + + + + + + Zeile 435:
Zeile 476: − + + − + Zeile 517:
Zeile 559: − r = ( fair( assert ) == assert[ 8 ] ); + + + + + + Zeile 721:
Zeile 768: − + Zeile 739:
Zeile 786: − local s = fetch( "urn" ).sns; − + − r = string.format( ":%s:", area );+ − if s:match( r ) then+ − s = "[^%w%(%)%+,%-%.:=@;%$_!%*'].*$";+ − r = acquire:match( s );+ − else+ − r = string.format( ":%s:", area );+ − end+ − if not r then+ − r = false;+ − if area == "isbn" then+ − if not URIutil.isISBNvalid( acquire ) then+ − r = acquire;+ − end+ − elseif area == "issn" then+ − if not URIutil.isISSNvalid( acquire ) then+ − r = acquire;+ + + + + + Zeile 906:
Zeile 957: − + Zeile 913:
Zeile 964: − -- 2013-09-01 Zeile 925:
Zeile 975: − + − + Zeile 937:
Zeile 987: + + + + + + + + + + + + + + Zeile 962:
Zeile 1.026: − + Zeile 1.074:
Zeile 1.138: + + + + + Zeile 1.096:
Zeile 1.165: + + + + + Zeile 1.146:
Zeile 1.220: − + − + − + − + − + + + + + + + + − local s = about; − s = about; + − s = "DNB " .. attempt; + − + − + − + − r, + − s ); + + + + − + + + + + + + Zeile 1.189:
Zeile 1.278: − r = mw.text.decode( mw.text.trim( attempt ), "PATH" ); + − + − + + + + + + + − + Zeile 1.215:
Zeile 1.310: + + Zeile 1.220:
Zeile 1.317: − + Zeile 1.233:
Zeile 1.330: − + Zeile 1.257:
Zeile 1.354: − + − r = string.format( "<span class='invalid-ISBN'>%s</span>%s", + − r, fault( "(?!?!)" ) );+ + + Zeile 1.278:
Zeile 1.377: + Zeile 1.284:
Zeile 1.384: − + − + Zeile 1.308:
Zeile 1.408: − + − local issn = ISSNfactory( attempt );+ − local lapsus, r;+ − if type( issn ) == "table" then+ − local lenient;+ − if type( allow ) == "string" then+ − lenient = ( allow ~= "0" );+ − else+ − lenient = allow;+ − end − if lenient then − lapsus = false; − else − lapsus = ( not ISSNfaith( issn ) ); − end − r = ISSNformat( issn, issn.type ); − if type( cnf.issn ) == "string" then − r = string.format( "[%s %s]", − cnf.issn:gsub( "%$1", r ), − r ); − end − else − lapsus = true; − r = attempt; − end − if lapsus then − r = string.format( "<span class='invalid-ISSN'>%s</span>%s", − r, fault( "(?!?!)" ) ); − if alert then − r = r .. flop( alert ); − end − end − − − − − − − + Zeile 1.355:
Zeile 1.426: − + − + + + + + − + Zeile 1.388:
Zeile 1.463: − + − + − + − + − + − + − + − + − -- 1. linked ID, or plain string if bad URN + − -- 2. true, if to be preceded by "urn:"+ − local r2 = true; + − local r; + − + − local s = attempt:match( "^%s*[uU][rR][nN]:(%S+)%s*$" ); + − + − + − + − local defs = fetch( "urn" ); + − + − local resolver = defs.resolver;+ − space = space:lower();+ − resolver = resolver[ space ]; + − r2 = ( resolver ~= true );+ − + − r, sign = URNresolve( resolver, sign, alter );+ − + − if r then + − r = r:gsub( "%$1", "urn:" .. s );+ − r = string.format( "[%s %s]", r, s );+ − + − elseif r2 then + − + − s = string.format( ":%s:", space );+ − + − + − end + − else+ − s = false;+ − end+ − if s then+ − r = string.format( "%s:%s", space, sign );+ + + + + + + + + + + + + + − r = string.format( "%s:%s", + − space, sign ); − + − r = URIutil[ s ]( sign, alter, nil, nil, alert ); + − r = fault( "Bad structure in Module:URIutil/urn" ); + + + + + + − + + + + + − + − if attempt then − r = attempt .. r; − end − else − r = mw.text.trim( attempt ); − + − + − + − + − + + + + + + + − + − + − + + − + − + − + − r = URIutil.isDOI( attempt ); + − elseif #s == 0 then + − r = 0;+ − else + − + + + + + − r = false; + − end+ − return r;+ − end -- URIutil.mayDOI()+ − + − + − + − function URIutil.mayHandle( attempt )+ − -- Is this a meaningful handle, or empty?+ − -- Precondition:+ − -- attempt -- string with presumable handle+ − -- Postcondition:+ − -- Returns number of organization+ − -- 0 if empty+ − -- false if not empty and not a DOI+ − local r;+ − if type( attempt ) == "string" then+ − local s = mw.text.trim( attempt );+ − if #s > 5 then+ − r = URIutil.isHandle( attempt );+ − elseif #s == 0 then+ − r = 0;+ − else+ − r = false;+ + + + + + + + + + + + + + + + + + + + + + + + + + − else − r = false; − + − + − + − + + + + + + + + + + − + − + + + − + − + − -- 13 if 13 digits and hyphens; beginning with bookland − + − + Zeile 1.535:
Zeile 1.670: − + − + − + − + − + − -- 13 if 13 digits and hyphens; beginning with issnland − + − + − + Zeile 1.562:
Zeile 1.696: − + − + − + − + − + + − + + − + + + − + Zeile 1.585:
Zeile 1.723: − + − + − + − + − -- ascii -- limit to ASCII (no IRI) − + − + − + − + + + − r = s:match( "%s(.+)$" ); + − if not r then+ − + − if r then+ − r = "#" .. r;+ − elseif ascii then + − local p = string.format( "[%s].+$", − mw.ustring.char( 128,45,255 ) ); − r = mw.ustring.match( s, p ); − end + + − + − + − + − + − + − + − local r = URIutil.mayURI( attempt, true ); + − if not r then+ − local s = attempt:match( "^%s*[uU][rR][nN]:(.+)$" );+ − if s then + − local space, id = s:match( "^(%w+):(.+)$" );+ − if space then − r = URNnamespace( space:lower(), id ); − else − r = s; − end − elseif mw.text.trim( attempt ) == "" then − − + + + − + − + − + − + + − + − + − + − + − if type( isbn ) == "table" then+ − r = ISBNflat( isbn );+ − else+ − r = false; + + + + + + + + + − + − + − + − + − + − + − + − + − + − + − + − s = abbr; + + + − + − r = string.format( "[[%s|doi]]:%s", s, r ); − + + + + + + + + − + − + − + − + − + − + − + − if r then + − local s;+ − if type( abbr ) == "string" then+ − s = abbr;+ − end + − if s then+ − r = string.format( "[[%s|hdl]]:%s", s, r ); − else − r = "hdl:" .. r; − end − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Zeile 1.834:
Zeile 2.143: + + + Zeile 1.861:
Zeile 2.173: + + + Zeile 1.871:
Zeile 2.186: − function p.failsafe()+ − + − + − + − + + + + + + + + + + + + + + + + + + + +
Links to ISBN and ISSN to wikipedia
local URIutil = { suite = "URIutil",
local URIutil = { suite = "URIutil",
serial = "2016-03-24" };
serial = "2020-05-09",
item = 19644443 };
--[=[
--[=[
Utilities for URI etc.
Utilities for URI etc.
* linkISSN()
* linkISSN()
* linkLCCN()
* linkLCCN()
* linkPMID()
* linkURN()
* linkURN()
* mayDOI()
* mayDOI()
* mayURN()
* mayURN()
* plainISBN()
* plainISBN()
* targetISSN()
* uriDOI()
* uriDOI()
* uriHandle()
* uriHandle()
loadData: URIutil/config URIutil/isbn URIutil/urn
loadData: URIutil/config URIutil/isbn URIutil/urn
]=]
]=]
local Failsafe = URIutil
local CurrentPageName
local function fault( alert )
local fault = function ( alert )
-- Format error message by class=error
-- Format error message by class=error
-- Parameter:
-- Parameter:
-- Returns:
-- Returns:
-- string, HTML span
-- string, HTML span
return string.format( "<span class=\"error\">%s</span>", alert );
return tostring( mw.html.create( "span" )
:addClass( "error" )
:wikitext( alert ) );
end -- fault()
end -- fault()
end
end
if not r then
if not r then
local lucky;
local lucky, storage;
lucky, r = pcall( mw.loadData, "Module:URIutil/" .. acquire );
storage = "Module:URIutil/" .. acquire;
lucky, r = pcall( mw.loadData, storage );
if not lucky then
if not URIutil.suited and
type( URIutil.item ) == "number" then
local suited = string.format( "Q%d", URIutil.item );
URIutil.suited = mw.wikibase.getSitelink( suited )
or true;
end
if type( URIutil.suited ) == "string" then
storage = string.format( "%s/%s",
URIutil.suited, acquire );
lucky, r = pcall( mw.loadData, storage );
end
end
if type( r ) ~= "table" then
if type( r ) ~= "table" then
r = { };
r = { };
-- Returns link, or false
-- Returns link, or false
local r;
local r;
if type( alert ) == "string" and alert ~= "" then
if type( alert ) == "string" and
alert ~= "-" and
alert ~= "" then
r = string.format( "[[Category:%s]]", alert );
r = string.format( "[[Category:%s]]", alert );
end
end
return r;
return r;
end -- format()
end -- format()
local fullPageName = function ()
-- Retrieve current page name
-- Postcondition:
-- Returns string: current page name
if not CurrentPageName then
CurrentPageName = mw.title.getCurrentTitle().fullText;
end
return CurrentPageName;
end -- fullPageName()
lead = false;
lead = false;
else -- even
else -- even
r = r + k + k;
r = r + k + k;
lead = true;
lead = true;
end
end
local r;
local r;
if type( attempt ) == "string" then
if type( attempt ) == "string" then
local s;
r = factory( attempt, 10 );
r = factory( attempt, 10 );
if type( r ) == "table" then
s = type( r );
if s == "number" and r ~= 10 and r > 6 and r < 13 then
r = factory( attempt, r );
s = type( r );
end
if s == "table" then
if r.type == 13 then
if r.type == 13 then
if r[1] ~= 9 or
if r[1] ~= 9 or
else
else
k = 2;
k = 2;
if assigned[ j + 1 ] > 4 then
if assigned[ j ] == 9 and
assigned[ j + 1 ] > 4 then
k = 3;
k = 3;
if assigned[ j + 1 ] > 8 then
if assigned[ j + 1 ] > 8 then
k = 4;
k = 4;
if assigned[ j + 2 ] > 8 then
if assigned[ j + 2 ] > 8 then
k = false; -- invalid
k = 5;
end
end
end
end
local r;
local r;
if assert.type == 8 then
if assert.type == 8 then
local k = fair( assert );
if k == 11 then
r = ( assert[ 8 ] == 0 );
else
r = ( assert[ 8 ] == k );
end
elseif assert.type == 13 then
elseif assert.type == 13 then
r = GTINfaith( assert );
r = GTINfaith( assert );
s = r;
s = r;
end
end
r = string.format( "[http://lccn.loc.gov/%s %s]", r, s );
r = string.format( "[https://lccn.loc.gov/%s %s]", r, s );
end
end
else
else
-- Returns false if no problem detected
-- Returns false if no problem detected
-- string with violation
-- string with violation
local r;
local r;
if type( s ) == "string" then
if area == "urn" then
r = "urn:";
else
local s = fetch( "urn" ).sns;
if type( s ) == "string" then
r = string.format( ":%s:", area );
if s:match( r ) then
s = "[^%w%(%)%+,%-%.:=/@;%$_!%*'].*$";
r = acquire:match( s );
else
r = string.format( ":%s:", area );
end
if not r then
r = false;
if area == "isbn" then
if not URIutil.isISBNvalid( acquire ) then
r = acquire;
end
elseif area == "issn" then
if not URIutil.isISSNvalid( acquire ) then
r = acquire;
end
end
end
end
end
-- attempt -- string with any presumable DNB code
-- attempt -- string with any presumable DNB code
-- also -- string or nil; optional requirement DMA GND SWD
-- also -- string or nil; optional requirement DMA GND SWD
-- currently not implemented
-- "ZDB" -- permit hyphen, but use >2011 rule
-- DMA starting with 3 and no hyphen
-- DMA starting with 3 and no hyphen
-- GND not DNB2011
-- GND not DNB2011
-- Returns number of digits or 2011, if valid
-- Returns number of digits or 2011, if valid
-- false if not correct, bad data or check digit wrong
-- false if not correct, bad data or check digit wrong
local s = mw.text.trim( attempt );
local s = mw.text.trim( attempt );
local j = s:find( "/", 5, true );
local j = s:find( "/", 5, true );
if j > 3 and j <= 8 then
if j > 3 and j <= 8 then
if s:match( "^[0-9]+-[0-9xX]$" ) then
if s:match( "^[0-9]+-[0-9xX]$" ) then
dnb = factory( s, #s );
dnb = factory( s, true );
end
end
end
end
elseif #s > 7 then
elseif #s > 6 then
if s:match( "^[0-9]+[0-9xX]$" ) then
if s:match( "^[0-9]+[0-9xX]$" ) then
dnb = factory( s, #s );
dnb = factory( s, #s );
if DNBfaith( dnb, true ) then
if DNBfaith( dnb, true ) then
r = 2011;
r = 2011;
elseif type( also ) == "string" then
s = mw.text.trim( also );
if s == "ZDB" then
if DNBfaith( dnb, false ) then
r = dnb.type;
end
end
end
end
else
else
if DNBfaith( dnb, false ) then
if DNBfaith( dnb, false ) then
r = dnb.type;
r = dnb.type;
elseif type( also ) == "string" then
s = mw.text.trim( also );
if s == "ZDB" then
if DNBfaith( dnb, true ) then
r = dnb.type;
end
end
end
end
end
end
if k >= 1000 and k < 100000000 then
if k >= 1000 and k < 100000000 then
local pc = "^[0-9A-Za-z%(%[<%./]"
local pc = "^[0-9A-Za-z%(%[<%./]"
.. "[%-0-9/A-Z%.a-z%(%)_%[%];:<>%+]*"
.. "[%-0-9/A-Z%.a-z%(%)_%[%];,:<>%+]*"
.. "[0-9A-Za-z%)%]>%+#]$"
.. "[0-9A-Za-z%)%]>%+#]$"
s = mw.uri.decode( mw.text.decode( s ), "PATH" );
s = mw.uri.decode( mw.text.decode( s ), "PATH" );
-- false if not an ISBN
-- false if not an ISBN
-- 2 -- internal table, if (1)
-- 2 -- internal table, if (1)
-- number; no string or bad length or data
-- 0 -- no string
-- >0 -- unexpected char at position (trimmed)
-- -1 -- bad digit count
-- -2 -- bad bookland
local r;
local r;
local isbn = ISBNfactory( attempt );
local isbn = ISBNfactory( attempt );
-- false if not correct, bad data or check digit wrong
-- false if not correct, bad data or check digit wrong
-- 2 -- internal table, if (1)
-- 2 -- internal table, if (1)
-- number; no string or bad length or data
-- 0 -- no string
-- >0 -- unexpected char at position (trimmed)
-- -1 -- bad digit count
-- -2 -- bad bookland
local r = false;
local r = false;
local isbn = ISBNfactory( attempt );
local isbn = ISBNfactory( attempt );
function URIutil.linkDNBopac( attempt, about, any1, any2, alert )
function URIutil.linkDNBopac( attempt, about, allow, abbr, alert )
-- Retrieve bracketed titled external DNB opac link
-- Retrieve bracketed titled external DNB opac link
-- Precondition:
-- Precondition:
-- attempt -- string with presumable DNB ID
-- attempt -- string with presumable DNB ID
-- about -- title, or false
-- about -- title, or false
-- any1 -- intentionally dummy parameter
-- allow -- true: permit invalid ID
-- any2 -- intentionally dummy parameter
-- abbr -- true: link DNB abbreviation
-- alert -- string with title of maintenance category, or nil
-- alert -- string with title of maintenance category, or nil
-- Postcondition:
-- Postcondition:
-- Returns link, or false if bad DNB
-- Returns link, or plain string if bad DNB
local r = URIutil.isDNBvalid( attempt );
local r = allow or URIutil.isDNBvalid( attempt );
local s = "DNB";
if abbr and not about then
local cnf = fetch( "config" );
if cnf.supportDNB and cnf.supportDNB ~= fullPageName() then
s = string.format( "[[%s|DNB]]", cnf.supportDNB );
end
end
if r then
if r then
if about then
if about then
r = about;
else
else
r = attempt;
end
end
r = string.format( "[%s%s%s %s]",
r = string.format( "%s [%s%s%s%s%s %s]",
"//portal.dnb.de/",
s,
"opac.htm?method=simpleSearch&query=",
"https://portal.dnb.de/opac.htm",
"?referrer=Wikipedia",
"&method=simpleSearch&cqlMode=true",
"&query=idn%3D",
attempt,
r );
else
else
r = flop( alert );
r = string.format( "%s %s", s, attempt );
if about then
r = string.format( "%s %s", r, about );
end
if alert then
r = r .. flop( alert );
end
end
end
return r;
return r;
local r = URIutil.isDOI( attempt );
local r = URIutil.isDOI( attempt );
if r then
if r then
local e = mw.html.create( "span" )
r = string.format( "[%s%s %s]",
:addClass( "uri-handle" );
"https://dx.doi.org/",
local s;
s, r = attempt:match( "^%s*(10%.[1-9][0-9]+/)(.+)%s*$" );
r = mw.text.decode( r, "PATH" );
r = string.format( "[%s/%s%s %s%s]",
"https://doi.org",
s,
mw.uri.encode( r ),
mw.uri.encode( r ),
s,
mw.text.encode( r, "<>&%]" ) );
mw.text.encode( r, "<>&%]" ) );
r = string.format( "<span class='uri-handle'>%s</span>", r );
r = tostring( e:wikitext( r ) );
else
else
r = flop( alert );
r = flop( alert );
local r = URIutil.isHandle( attempt );
local r = URIutil.isHandle( attempt );
if r then
if r then
local e = mw.html.create( "span" )
:addClass( "uri-handle" );
r = mw.text.decode( mw.text.trim( attempt ), "PATH" );
r = mw.text.decode( mw.text.trim( attempt ), "PATH" );
r = string.format( "[%s%s %s]",
r = string.format( "[%s%s %s]",
mw.uri.encode( r ),
mw.uri.encode( r ),
mw.text.encode( r, "<>&%]" ) );
mw.text.encode( r, "<>&%]" ) );
r = string.format( "<span class='uri-handle'>%s</span>", r );
r = tostring( e:wikitext( r ) );
else
else
r = flop( alert );
r = flop( alert );
-- Precondition:
-- Precondition:
-- attempt -- string with presumable ISBN
-- attempt -- string with presumable ISBN
-- allow -- true: permit invalid check digit
-- allow -- true: permit invalid check digit or digit count
-- abbr -- true or string: link ISBN abbreviation
-- abbr -- true or string: link ISBN abbreviation
-- adhere -- true: use else: use simple space
-- adhere -- true: use else: use simple space
r = r .. ISBNformat( attempt, isbn );
r = r .. ISBNformat( attempt, isbn );
else
else
lapsus = true;
lapsus = not allow;
r = r .. source;
r = r .. source;
end
end
r = r .. "]]";
r = r .. "]]";
if lapsus then
if lapsus then
local e = mw.html.create( "span" )
:addClass( "invalid-ISBN" )
:wikitext( r );
r = tostring( e ) .. fault( "(?!?!)" );
if alert then
if alert then
r = r .. flop( alert );
r = r .. flop( alert );
if s then
if s then
if type( s ) ~= "string"
if type( s ) ~= "string"
or s == "-"
or s == "" then
or s == "" then
s = false;
s = false;
s = "International Standard Book Number";
s = "International Standard Book Number";
end
end
if s then
if s and s ~= fullPageName() then
s = string.format( "[[%s|ISBN]]", s );
s = string.format( "[[wikipedia:%s|ISBN]]", s );
else
else
s = "ISBN";
s = "ISBN";
-- Postcondition:
-- Postcondition:
-- Returns link
-- Returns link
local cnf = fetch( "config" );
local r = URIutil.targetISSN( attempt, allow, nil, nil, alert );
if adhere then
r = " " .. r;
else
r = " " .. r;
end
if abbr then
local cnf = fetch( "config" );
local s = cnf.supportISSN;
if adhere then
r = " " .. r;
else
r = " " .. r;
end
if abbr then
local s = cnf.supportISSN;
if s then
if s then
if type( s ) ~= "string"
if type( s ) ~= "string"
or s == "-"
or s == "" then
or s == "" then
s = false;
s = false;
s = "International Standard Serial Number";
s = "International Standard Serial Number";
end
end
if s then
if s and s ~= fullPageName() then
s = string.format( "[[%s|ISSN]]", s );
if s == "ISSN" then
s = "[[ISSN]]";
else
s = string.format( "[[wikipedia:%s|ISSN]]", s );
end
else
else
s = "ISSN";
s = "ISSN";
end
end
r = string.format( "%s %s", s, r );
r = string.format( "%s%s", s, r );
else
else
r = "ISSN" .. r;
r = "ISSN" .. r;
function URIutil.linkURN( attempt, alter, any1, any2, alert )
function URIutil.linkPMID( attempt, any, abbr, adhere, alert )
-- Retrieve bracketed titled external URN link
-- Retrieve external PMID link with "PMID"
-- Precondition:
-- Precondition:
-- attempt -- string, with presumable URN, starting with "urn:"
-- attempt -- string or number with presumable PMID
-- alter -- alternative handler
-- any -- intentionally dummy parameter
-- any1 -- intentionally dummy parameter
-- abbr -- true: link PMID abbreviation
-- any2 -- intentionally dummy parameter
-- adhere -- true: use else: use simple space;
-- alert -- string, with title of maintenance category, or nil
-- alert -- string with title of maintenance category, or nil
-- Postcondition:
-- Postcondition:
-- Returns
-- Returns link
local s = type( attempt );
local legal, r;
if s == "string" then
r = mw.text.trim( attempt );
if not URIutil.mayURI( attempt, true ) then
if r == "" then
r = "PMID";
if s then
s = "empty";
local space, sign = s:match( "^(%w+):(.+)$" );
end
if space then
elseif s == "number" then
r = tostring( attempt );
if type( defs ) == "table" then
s = "string";
else
r = "PMID";
end
if s == "string" then
if type( resolver ) == "table" then
legal = r:match( "^[1-9]%d*$" );
if legal then
s = string.format( "%s:%s", space, sign );
local cnf = fetch( "config" );
if cnf then
s = cnf.pmid;
if type( s ) == "string" and
end
s ~= "-" and
s ~= "" then
if type( defs.sns ) == "string" then
local sep;
if s:find( "$1", 5, true ) then
if not defs.sns:find( s, 1, true ) then
s = s:gsub( "%$1", r );
s = false;
else
s = s .. r;
end
r = string.format( "[%s %s]", s, r );
if adhere then
sep = " ";
else
sep = " ";
end
if abbr then
s = cnf.supportPMID;
if type( s ) == "string" and
s ~= "-" and
s ~= "" and
s ~= fullPageName() then
if s == "PMID" then
s = "[[PMID]]";
else
s = string.format( "[[%s|PMID]]", s );
end
else
else
s = "PMID";
end
end
else
else
s = "link" .. space:upper();
s = "PMID";
end
end
r = string.format( "%s%s%s", s, sep, r );
else
else
cnf = false;
end
end
end
end
if not cnf then
r = string.format( "PMID %s", r );
end
else
r = string.format( "PMID %s", r );
end
end
end
end
if not r then
if not legal then
local e = mw.html.create( "span" )
:addClass( "invalid-PMID" )
:wikitext( r );
r = tostring( e ) .. fault( "(?!?!)" );
if alert then
if alert then
r = flop( alert ) or "";
r = r .. flop( alert );
end
end
end
end
return r, r2;
return r;
end -- URIutil.linkURN()
end -- URIutil.linkPMID()
function URIutil.mayDOI( attempt )
function URIutil.linkURN( attempt, alter, any1, any2, alert, at, alone )
-- Is this a syntactically correct DOI, or empty?
-- Retrieve bracketed titled external URN link
-- Precondition:
-- Precondition:
-- attempt -- string with presumable DOI
-- attempt -- string, with presumable URN, starting with "urn:"
-- alter -- alternative handler
-- any1 -- intentionally dummy parameter
-- any2 -- intentionally dummy parameter
-- alert -- string, with title of maintenance category, or nil
-- at -- fragment, or nil
-- alone -- true, if link text not preceded by "urn:"
-- Postcondition:
-- Postcondition:
-- Returns number of organization
-- Returns
-- 0 if empty
-- 1. linked ID, or plain string if bad URN
-- false if not empty and not a DOI
-- 2. true, if to be preceded by "urn:"
local r2 = true;
local r;
local r;
if type( attempt ) == "string" then
if URIutil.mayURN( attempt ) then
local s = mw.text.trim( attempt );
local e = mw.html.create( "span" )
if #s >= 10 then
:addClass( "invalid-URN" );
local serial = attempt;
local suffix = flop( alert );
if serial:sub( 1, 4 ):lower() == "urn:" then
serial = serial:sub( 5 );
r = false;
end
e:wikitext( serial );
r = tostring( e ) .. fault( "(?!?!)" );
if suffix then
r = r .. suffix;
end
end
else
else
local s = attempt:match( "^%s*[uU][rR][nN]:(%S+)%s*$" );
if s then
local space, sign = s:match( "^(%w+):(.+)$" );
if space then
local defs = fetch( "urn" );
if type( defs ) == "table" then
local resolver = defs.resolver;
space = space:lower();
resolver = resolver[ space ];
r2 = ( resolver ~= true );
if type( resolver ) == "table" then
r, sign = URNresolve( resolver, sign, alter );
s = string.format( "%s:%s", space, sign );
if r then
r = r:gsub( "%$1", "urn:" .. s );
if at then
r = string.format( "%s#%s", r, at );
end
if alone then
r2 = true;
else
s = "urn:" .. s;
end
r = string.format( "[%s %s]", r, s );
end
elseif r2 then
if type( defs.sns ) == "string" then
s = string.format( ":%s:", space );
if not defs.sns:find( s, 1, true ) then
s = false;
end
else
s = false;
end
if s then
r = string.format( "%s:%s", space, sign );
else
r = string.format( "%s:%s",
space, sign );
end
r2 = not alone;
else
s = "link" .. space:upper();
r = URIutil[ s ]( sign, alter, nil, nil, alert );
end
else
r = fault( "Bad structure in Module:URIutil/urn" );
end
end
end
end
end
end
return r;
if not r then
end -- URIutil.mayHandle()
if alert then
r = flop( alert ) or "";
if attempt then
r = attempt .. r;
end
else
r = mw.text.trim( attempt );
end
r2 = false;
end
return r, r2;
end -- URIutil.linkURN()
function URIutil.mayISBN( attempt )
-- Is this a syntactically correct ISBN, or empty?
function URIutil.mayDOI( attempt )
-- Is this a syntactically correct DOI, or empty?
-- Precondition:
-- Precondition:
-- attempt -- string with presumable ISBN
-- attempt -- string with presumable DOI
-- Postcondition:
-- Postcondition:
-- Returns 10 if 10 digits and hyphens; also X at end of ISBN-10
-- Returns number of organization
-- 0 if empty
-- 0 if empty
-- false if not empty and not an ISBN
-- false if not empty and not a DOI
local r;
local r;
if type( attempt ) == "string" then
if type( attempt ) == "string" then
local s = mw.text.trim( attempt );
local s = mw.text.trim( attempt );
if #s >= 10 then
if #s >= 10 then
r = URIutil.isISBN( attempt );
r = URIutil.isDOI( attempt );
elseif #s == 0 then
elseif #s == 0 then
r = 0;
r = 0;
end
end
return r;
return r;
end -- URIutil.mayISBN()
end -- URIutil.mayDOI()
function URIutil.mayISSN( attempt )
function URIutil.mayHandle( attempt )
-- Is this a correct ISSN, or empty?
-- Is this a meaningful handle, or empty?
-- Precondition:
-- Precondition:
-- attempt -- string with presumable ISSN
-- attempt -- string with presumable handle
-- Postcondition:
-- Postcondition:
-- Returns 8 if 8 digits and hyphens; also X at end
-- Returns number of organization
-- 0 if empty
-- 0 if empty
-- false if not empty and not an ISSN
-- false if not empty and not a DOI
local r;
local r;
if type( attempt ) == "string" then
if type( attempt ) == "string" then
local s = mw.text.trim( attempt );
local s = mw.text.trim( attempt );
if #s >= 8 then
if #s > 5 then
r = URIutil.isISSNvalid( attempt );
r = URIutil.isHandle( attempt );
elseif #s == 0 then
elseif #s == 0 then
r = 0;
r = 0;
end
end
return r;
return r;
end -- URIutil.mayISSN()
end -- URIutil.mayHandle()
function URIutil.mayLCCN( attempt )
function URIutil.mayISBN( attempt )
-- Is this a syntactically correct LCCN?
-- Is this a syntactically correct ISBN, or empty?
-- Precondition:
-- Precondition:
-- attempt -- string with presumable LCCN
-- attempt -- string with presumable ISBN
-- Postcondition:
-- Postcondition:
-- Returns string with LCCN formatted aa9999-99999999
-- Returns 10 if 10 digits and hyphens; also X at end of ISBN-10
-- 13 if 13 digits and hyphens; beginning with bookland
-- 0 if empty
-- 0 if empty
-- false if not recognized
-- false if not empty and not an ISBN
local r;
if type( attempt ) == "string" then
if type( attempt ) == "string" then
local s = mw.text.trim( attempt );
local s = mw.text.trim( attempt );
if s == "" then
if #s >= 10 then
r = URIutil.isISBN( attempt );
elseif #s == 0 then
r = 0;
r = 0;
else
else
r = URIutil.isLCCN( s );
r = false;
end
end
else
else
end
end
return r;
return r;
end -- URIutil.mayLCCN()
end -- URIutil.mayISBN()
function URIutil.mayURI( attempt, ascii )
function URIutil.mayISSN( attempt )
-- Is this a syntactically correct URI, or empty?
-- Is this a correct ISSN, or empty?
-- Precondition:
-- Precondition:
-- attempt -- string with presumable URI
-- attempt -- string with presumable ISSN
-- Postcondition:
-- Postcondition:
-- Returns false if no problem
-- Returns 8 if 8 digits and hyphens; also X at end
-- string with violation
-- 13 if 13 digits and hyphens; beginning with issnland
local r = URIutil.isEscValid( attempt );
-- 0 if empty
if not r then
-- false if not empty and not an ISSN
local r;
if type( attempt ) == "string" then
local s = mw.text.trim( attempt );
local s = mw.text.trim( attempt );
if #s >= 8 then
r = URIutil.isISSNvalid( attempt );
r = s:match( "#(.*)$" );
elseif #s == 0 then
r = 0;
else
r = false;
end
end
else
r = false;
end
end
return r;
return r;
end -- URIutil.mayURI()
end -- URIutil.mayISSN()
function URIutil.mayURN( attempt )
function URIutil.mayLCCN( attempt )
-- Is this a syntactically correct URN, or empty?
-- Is this a syntactically correct LCCN?
-- Precondition:
-- Precondition:
-- attempt -- string with presumable URN, starting with "urn:"
-- attempt -- string with presumable LCCN
-- Postcondition:
-- Postcondition:
-- Returns false if no problem
-- Returns string with LCCN formatted aa9999-99999999
-- string with violation
-- 0 if empty
-- false if not recognized
if type( attempt ) == "string" then
local s = mw.text.trim( attempt );
if s == "" then
r = 0;
r = false;
else
else
r = "urn:";
r = URIutil.isLCCN( s );
end
end
else
r = false;
end
end
return r;
return r;
end -- URIutil.mayURN()
end -- URIutil.mayLCCN()
function URIutil.plainISBN( attempt )
function URIutil.mayURI( attempt, ascii )
-- Format ISBN as digits (and 'X') only string
-- Is this a syntactically correct URI, or empty?
-- Precondition:
-- Precondition:
-- attempt -- string with presumable ISBN
-- attempt -- string with presumable URI
-- ascii -- limit to ASCII (no IRI)
-- Postcondition:
-- Postcondition:
-- Returns string with 10 or 13 chars
-- Returns false if no problem
-- false if not empty and not an ISBN
-- string with violation
local r;
local r = URIutil.isEscValid( attempt );
local isbn = ISBNfactory( attempt );
if not r then
local s = mw.text.trim( attempt );
r = s:match( "%s(.+)$" );
if not r then
r = s:match( "#(.*)$" );
if r then
r = "#" .. r;
elseif ascii then
local p = string.format( "[%s].+$",
mw.ustring.char( 128,45,255 ) );
r = mw.ustring.match( s, p );
end
end
end
end
return r;
return r;
end -- URIutil.plainISBN()
end -- URIutil.mayURI()
function URIutil.uriDOI( attempt, anything, abbr )
function URIutil.mayURN( attempt )
-- Retrieve linked URI on DOI resolver
-- Is this a syntactically correct URN, or empty?
-- Precondition:
-- Precondition:
-- attempt -- string with presumable DOI
-- attempt -- string with presumable URN, starting with "urn:"
-- anything -- intentionally dummy parameter
-- Postcondition:
-- abbr -- true or string: link doi: abbreviation
-- Returns false if no problem
local r = URIutil.linkDOI( attempt );
-- string with violation
if r then
local r = URIutil.mayURI( attempt, true );
if abbr then
if not r then
local s;
local s = attempt:match( "^%s*[uU][rR][nN]:(.+)$" );
if type( abbr ) == "string" then
if s then
local space, id = s:match( "^(%w+):(.+)$" );
if space then
r = URNnamespace( space:lower(), id );
else
else
s = "Digital Object Identifier";
r = s;
end
end
else
else
r = "doi:" .. r;
s = mw.text.trim( attempt );
if s == "" then
r = false;
elseif s:match( "^https?://" ) then
r = "http:";
else
r = "urn:";
end
end
end
end
end
return r;
return r;
end -- URIutil.uriDOI()
end -- URIutil.mayURN()
function URIutil.uriHandle( attempt, anything, abbr )
function URIutil.plainISBN( attempt )
-- Retrieve linked URI on handle resolver
-- Format ISBN as digits (and 'X') only string
-- Precondition:
-- Precondition:
-- attempt -- string with presumable handle
-- attempt -- string with presumable ISBN
-- anything -- intentionally dummy parameter
-- Postcondition:
-- abbr -- true or string: link hdl: abbreviation
-- Returns string with 10 or 13 chars
local r = URIutil.linkHandle( attempt );
-- false if not empty and not an ISBN
local r;
local isbn = ISBNfactory( attempt );
if type( isbn ) == "table" then
r = ISBNflat( isbn );
else
r = false;
end
end
return r;
return r;
end -- URIutil.uriHandle()
end -- URIutil.plainISBN()
function URIutil.uriURN( attempt, anything, alter, alert )
function URIutil.targetISSN( attempt, allow, any1, any2, alert )
-- Retrieve linked URI on URN resolver
-- Retrieve bracketed titled external link on ISSN DB without "ISSN"
-- Precondition:
-- Precondition:
-- attempt -- string with presumable URN, starting with "urn:"
-- attempt -- string with presumable ISSN
-- anything -- intentionally dummy parameter
-- allow -- true: permit invalid check digit
-- alter -- string with alternative handler, or nil
-- any1 -- intentionally dummy parameter
-- alert -- string with title of maintenance category, or nil
-- any2 -- intentionally dummy parameter
-- Postcondition:
-- alert -- string with title of maintenance category, or nil
-- Returns link, or plain string if bad URN
-- Postcondition:
local r, l = URIutil.linkURN( attempt, alter, false, false, alert );
-- Returns link
if l then
local cnf = fetch( "config" );
local s = fetch( "config" ).supportURN;
local issn = ISSNfactory( attempt );
if s then
local lapsus, r;
if type( s ) ~= "string"
if type( issn ) == "table" then
or s == "" then
local lenient;
s = false;
if type( allow ) == "string" then
end
lenient = ( allow ~= "0" );
else
else
s = "Uniform Resource Name";
lenient = allow;
end
end
if s then
if lenient then
r = string.format( "[[%s|urn]]:%s", s, r );
lapsus = false;
else
else
r = "urn:" .. r;
lapsus = ( not ISSNfaith( issn ) );
end
end
else
r = ISSNformat( issn, issn.type );
end
if type( cnf.issn ) == "string" then
return r;
local s = cnf.issn
end -- URIutil.uriURN()
if s:find( "$1", 5, true ) then
s = s:gsub( "%$1", r );
else
s = s .. r;
local Template = function ( frame, action )
end
-- Retrieve library result for template access
r = string.format( "[%s %s]", s, r );
-- Precondition:
end
-- frame -- object
else
-- action -- string; function name
lapsus = true;
-- Postcondition:
r = attempt;
-- Returns appropriate string, or error message (development)
end
local lucky, r = pcall( URIutil[ action ],
if lapsus then
frame.args[ 1 ] or "",
local e = mw.html.create( "span" )
frame.args[ 2 ],
:addClass( "invalid-ISSN" )
faculty( frame.args.link, true ),
:wikitext( r );
faculty( frame.args.nbsp, true ),
r = tostring( e ) .. fault( "(?!?!)" );
frame.args.cat );
if alert then
if lucky then
r = r .. flop( alert );
end
end
return r;
end -- URIutil.targetISSN()
function URIutil.uriDOI( attempt, anything, abbr )
-- Retrieve linked URI on DOI resolver
-- Precondition:
-- attempt -- string with presumable DOI
-- anything -- intentionally dummy parameter
-- abbr -- true or string: link doi: abbreviation
local r = URIutil.linkDOI( attempt );
if r then
if abbr then
local s;
if type( abbr ) == "string" then
s = abbr;
else
s = "Digital Object Identifier";
end
if s ~= fullPageName() then
r = string.format( "[[%s|doi]]:%s", s, r );
else
r = "doi:" .. r;
end
else
r = "doi:" .. r;
end
end
return r;
end -- URIutil.uriDOI()
function URIutil.uriHandle( attempt, anything, abbr )
-- Retrieve linked URI on handle resolver
-- Precondition:
-- attempt -- string with presumable handle
-- anything -- intentionally dummy parameter
-- abbr -- true or string: link hdl: abbreviation
-- Postcondition:
-- Returns combined linked URI, or false
local r = URIutil.linkHandle( attempt );
if r then
local s;
if type( abbr ) == "string" then
s = abbr;
else
local cnf = fetch( "config" );
if cnf then
s = cnf.supportHandle;
if type( s ) ~= "string" or
s == "-" or
s == "" or
s == fullPageName() then
s = false;
end
end
end
if s then
r = string.format( "[[%s|hdl]]:%s", s, r );
else
r = "hdl:" .. r;
end
end
return r;
end -- URIutil.uriHandle()
function URIutil.uriURN( attempt, anything, alter, alert, at )
-- Retrieve linked URI on URN resolver
-- Precondition:
-- attempt -- string with presumable URN, starting with "urn:"
-- anything -- intentionally dummy parameter
-- alter -- string with alternative handler, or nil
-- alert -- string with title of maintenance category, or nil
-- at -- fragment, or nil
-- Postcondition:
-- Returns link, or plain string if bad URN
local r, l =
URIutil.linkURN( attempt, alter, false, false, alert, at, true );
if l then
local s = fetch( "config" ).supportURN;
if s then
if type( s ) ~= "string"
or s == "-"
or s == "" then
s = false;
end
else
s = "Uniform Resource Name";
end
if s and s ~= fullPageName() then
r = string.format( "[[%s|urn]]:%s", s, r );
else
r = "urn:" .. r;
end
end
return r;
end -- URIutil.uriURN()
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()
local Template = function ( frame, action )
-- Retrieve library result for template access
-- Precondition:
-- frame -- object
-- action -- string; function name
-- Postcondition:
-- Returns appropriate string, or error message (development)
local lucky, r = pcall( URIutil[ action ],
frame.args[ 1 ] or "",
frame.args[ 2 ],
faculty( frame.args.link, true ),
faculty( frame.args.nbsp, true ),
frame.args.cat,
frame.args.fragment );
if lucky then
if r then
if r then
r = tostring( r );
r = tostring( r );
function p.linkLCCN( frame )
function p.linkLCCN( frame )
return Template( frame, "linkLCCN" );
return Template( frame, "linkLCCN" );
end
function p.linkPMID( frame )
return Template( frame, "linkPMID" );
end
end
function p.linkURN( frame )
function p.linkURN( frame )
function p.plainISBN( frame )
function p.plainISBN( frame )
return Template( frame, "plainISBN" );
return Template( frame, "plainISBN" );
end
function p.targetISSN( frame )
return Template( frame, "targetISSN" );
end
end
function p.uriDOI( frame )
function p.uriDOI( frame )
return Template( frame, "uriURN" );
return Template( frame, "uriURN" );
end
end
p.failsafe = function ( frame )
return URIutil.serial;
local s = type( frame );
end
local since;
function p.URIutil()
if s == "table" then
return URIutil;
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()
function p.URIutil( arg )
local r;
if arg then
r = "";
else
r = URIutil;
end
return r;
end
end
return p;
return p;