Modul:JSTOR
| Vorlagenprogrammierung | Diskussionen | Lua | Unterseiten | |||
| Modul | Deutsch | English
|
Modul: | Dokumentation | ||
Diese Seite enthält Code in der Programmiersprache Lua. Einbindungszahl Cirrus
Dies ist die (produktive) Mutterversion eines global benutzten Lua-Moduls.
Wenn die serial-Information nicht übereinstimmt, müsste eine Kopie hiervon in das lokale Wiki geschrieben werden.
Wenn die serial-Information nicht übereinstimmt, müsste eine Kopie hiervon in das lokale Wiki geschrieben werden.
Versionsbezeichnung auf WikiData:
2024-09-22local JSTOR = { suite = "JSTOR",
serial = "2024-09-22",
setup = "config.json",
item = 71782977 }
--[=[
Template:JSTOR
and other issues dealing with JSTOR ID.
]=]
local Failsafe = JSTOR
local Externals
JSTOR.config = { self = JSTOR.suite }
local function factory( apply )
-- Localization of messages
-- apply -- string, with message key
-- Returns message text; at least english
local entry = JSTOR.config[ apply ]
local r
if entry then
r = entry[ mw.language.getContentLanguage():getCode() ]
if not r then
r = entry.en
end
else
local e = mw.html.create( "span" )
:addClass( "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" )
elseif s == "boolean" then
r = adjust
else
r = false
end
return r
end -- faculty()
local function fault( alert, about )
-- Format message with class="error" or similar
-- alert -- string, with message key
-- about -- string, with explanation
-- Returns message with markup
local e = mw.html.create( "span" )
local r
JSTOR.config.first()
if JSTOR.config.suite and
JSTOR.config.suite ~= "" then
e:wikitext( " * " )
:wikitext( JSTOR.config.suite )
end
e:wikitext( factory( alert ) )
if not JSTOR.config.frame then
JSTOR.config.frame = mw.getCurrentFrame()
end
r = JSTOR.config.frame:callParserFunction( "REVISIONID",
{ [1] = "" } )
if JSTOR.config.errClass then
e:addClass( JSTOR.config.errClass )
end
if r == "" then
JSTOR.config.errCat = false
e:addClass( "error" )
elseif JSTOR.config.errHide then
e:css( { display = "none" } )
end
if JSTOR.config.errClasses then
e:addClass( JSTOR.config.errClasses )
end
r = tostring( e )
if about then
r = string.format( "%s %s", r, about )
end
if JSTOR.config.errCat then
if JSTOR.config.errNS then
local ns = mw.title.getCurrentTitle().namespace
local st = type( JSTOR.config.errNS )
if st == "string" then
local space = string.format( ".*%%s%d%%s.*", ns )
local spaces = string.format( " %s ",
JSTOR.config.errNS )
if spaces:match( space ) then
JSTOR.config.errNS = false
end
elseif st == "number" then
if JSTOR.config.errNS == ns then
JSTOR.config.errNS = false
end
elseif st == "table" then
for i = 1, #JSTOR.config.errNS do
if JSTOR.config.errNS[ i ] == ns then
JSTOR.config.errNS = false
break -- for i
end
end -- for i
end
end
if not JSTOR.config.errNS then
r = string.format( "%s[[Category:%s]]",
r, JSTOR.config.errCat )
end
end
return r
end -- fault()
local function fetch( auxilary )
-- Fetch module
-- auxilary -- URIutil library, or false
-- Returns table of library, or string with error message
local r
if Externals then
r = Externals.URIutil
else
Externals = { }
if type( auxilary ) == "table" then
Externals.URIutil = auxilary
r = Externals.URIutil
end
end
if not r then
local lucky
lucky, r = pcall( require, "Module:URIutil" )
if type( r ) == "table" then
Externals.URIutil = r()
r = Externals.URIutil
else
local e = mw.html.create( "span" )
:addClass( "error" )
:wikitext( r )
r = tostring( e )
end
end
return r
end -- fetch()
JSTOR.config.first = function ()
-- Initialize configuration
if not JSTOR.config.loaded then
local s = string.format( "Module:%s/%s",
JSTOR.suite, JSTOR.setup )
local lucky, json
JSTOR.config.loaded = true
lucky, json = pcall( mw.loadJsonData, s )
if type( json ) ~= "table" and
type( JSTOR.item ) == "number" and
JSTOR.item > 0 then
s = string.format( "Q%d", JSTOR.item )
s = mw.wikibase.getSitelink( s )
if type( s ) == "string" then
s = string.format( "%s/%s", s, JSTOR.setup )
lucky, json = pcall( mw.loadJsonData, s )
end
end
if type( json ) == "table" then
for k, v in pairs( json ) do
if not JSTOR.config[ k ] then
JSTOR.config[ k ] = v
end
end -- for k, v
end
end
end -- JSTOR.config.first()
JSTOR.feasible = function ( article, area, auxilary )
-- Check code, normalize
-- article -- string, with JSTOR ID
-- area -- string, with "stable", "journals", or false
-- auxilary -- URIutil library, or false
-- Returns string, with improved ID, or false
local r = article
local suite = area or "stable"
local legal, URIutil
if suite == "stable" then
if r:find( "/", 1, true ) then
URIutil = fetch( auxilary )
if type( URIutil ) == "table" then
legal = URIutil.isDOI( r )
end
else
legal = r:match( "^community%.%d+$" ) or
r:match( "^[ie]?[1-9]%d*$" ) or
r:match( "^j%.%w+%.?%d*$" ) or
r:match( "^resrep%d+$" )
end
elseif suite == "journals" then
URIutil = fetch( auxilary )
if type( URIutil ) == "table" then
legal = URIutil.isISSNvalid( r )
r = r:gsub( "-", "" )
:gsub( "x", "X" )
end
end
if not legal then
r = false
end
return r
end -- JSTOR.feasible()
JSTOR.format = function ( article, area, appear, auxilary )
-- Analyze code, create URL, format
-- article -- string, with JSTOR ID
-- area -- string, with "stable", "journals", or false
-- appear -- string, with link title, or false
-- auxilary -- URIutil library, or false
-- Returns string, with external link or error message
local r = JSTOR.feasible( article, area, auxilary )
local suite = area or "stable"
if r then
local show = appear
if type( show ) == "string" then
show = mw.text.trim( show )
if show == "" or show == "-" then
show = false
end
end
if not show then
show = article
end
r = string.format( "[http://www.jstor.org/%s/%s %s]",
suite, r, show )
if not appear then
JSTOR.config.first()
if JSTOR.config.showArticle and
JSTOR.config.showArticle ~= "-" then
r = string.format( "[[%s|JSTOR]]:%s",
JSTOR.config.showArticle, r )
else
r = "JSTOR:" .. r
end
end
else
r = string.format( "%s %s/''%s''",
fault( "errInvalid" ), suite, article )
end
return r
end -- JSTOR.format()
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
-- 2024-03-01
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
elseif link then
r = false
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()
-- JSTOR
local p = { }
p.main = function ( argsF, argsT )
-- Invocation
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
-- Returns appropriate string
local r, show, stuff, suite
JSTOR.config.first()
if argsF then
JSTOR.config.errCat = argsF.errCat
JSTOR.config.errClasses = argsF.errClasses
JSTOR.config.errHide = faculty( argsF.errHide )
JSTOR.config.errNS = argsF.errNS
if argsF.showArticle ~= nil then
if argsF.showArticle == "" or
argsF.showArticle == "-" then
JSTOR.config.showArticle = false
else
JSTOR.config.showArticle = argsF.showArticle
end
end
end
if type( argsT ) == "table" then
local s, unknown
r = { }
for k, v in pairs( argsT ) do
s = type( k )
if s == "number" then
if ( k == 1 ) then
stuff = mw.text.trim( v )
if ( stuff == "" ) then
stuff = false
end
k = false
elseif ( k == 2 ) then
k = false
else
k = tostring( k )
end
elseif s == "string" then
if argsT.show then
if ( argsT.show ~= "" ) then
show = argsT.show
end
k = false
elseif argsT.suite then
if ( argsT.suite ~= "" ) then
suite = argsT.suite
end
k = false
elseif argsT.demo or faculty( argsT.NoCat ) then
JSTOR.config.errCat = false
JSTOR.config.errHide = false
k = false
end
end
if k then
if not unknown then
unknown = { }
end
table.insert( unknown, k )
end
end -- for k, v
if unknown then
r = string.format( "'<code>%s</code>' in Template:JSTOR",
table.concat( unknown, " " ) )
r = fault( "errUnkown", r )
elseif not stuff then
r = fault( "errMissing" )
end
else
r = false
end
if type( r ) == "table" then
r = JSTOR.format( stuff, suite, show )
end
return r
end -- p.main()
p.f = function ( frame )
local lucky, r
JSTOR.config.frame = frame
lucky, r = pcall( p.main, frame.args, frame:getParent().args )
if not lucky then
local e = mw.html.create( "span" )
:addClass( "error" )
:wikitext( string.format( "%s * %s",
frame:getTitle(),
r ) )
r = tostring( e )
end
return r
end -- p.f()
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.JSTOR = function ()
return JSTOR
end -- p.JSTOR()
setmetatable( p, { __call = function ( func, ... )
setmetatable( p, nil )
return Failsafe
end } )
return p -- JSTOR
Content Disclaimer
Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.
- The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
- There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
- It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
- Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
- Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.