Modul:Vorlage:bibcode
Modul:Vorlage:bibcode
| Vorlagenprogrammierung | Diskussionen | Lua | Test | Unterseiten | |||
| Modul | Deutsch | English
|
Modul: | Dokumentation | |||
Diese Seite enthält Code in der Programmiersprache Lua. Einbindungszahl Cirrus
local Export = { suite = "bibcode",
serial = "2019-05-16",
item = 0 }
--[=[
Template:bibcode
and other issues dealing with bibcode ID.
]=]
local Config = {
self = Export.suite,
errCat = false,
errClass = "error_bibcode",
errClasses = false,
errHide = false,
errNS = false,
errEncodedURL = { en = "ID with undesirable URL encoding",
de = "ID mit unerwünschtem [[URL-Encoding]]" },
errInvalid = { en = "Invalid:",
de = "Ungültig:" },
errLength = { en = "ID with bad length:",
de = "ID mit ungültiger Länge:" },
errMissing = { en = "Missing ID",
de = "ID fehlt" },
errUnkown = { en = "Unkown parameter:",
de = "Parameter unbekannt:" },
mode = 0,
showArticle = "Bibcode",
site = "https://ui.adsabs.harvard.edu/abs/",
supply = { en = "full text available",
de = "Volltext verfügbar" }
}
local function factory( apply )
-- Localization of messages
-- apply -- string, with message key
-- Returns message text; at least english
local r
entry = Config[ apply ]
if entry then
r = entry[ mw.language.getContentLanguage():getCode() ]
if not r then
r = entry.en
end
else
r = string.format( "<span class=\"error\">????.%s.????</span>",
apply )
end
return r
end -- factory()
local function faculty( adjust )
-- Test template arg for boolean
-- adjust -- string or nil
-- Returns boolean
local r = false
if adjust then
r = mw.text.trim( adjust )
if r ~= "" and r ~= "0" then
r = true
end
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 story = factory( alert )
local r, scope, style
if Config.self then
story = string.format( "%s * %s", Config.self, story )
end
if not Config.frame then
Config.frame = mw.getCurrentFrame()
end
if Config.frame:preprocess( "{{REVISIONID}}" ) == "" then
Config.errCat = false
Config.errHide = false
scope = string.format( "%s error", Config.errClass )
else
scope = Config.errClass
end
if Config.errHide then
style = "style='display:none'"
else
style = ""
end
if Config.errClasses then
scope = string.format( "%s %s",
scope, Config.errClasses )
end
r = string.format( "<span class=\"%s\" %s>%s</span>",
scope, style, story )
if about then
r = string.format( "%s %s", r, about )
end
if Config.errCat 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()
Export.failsafe = function ( ask )
-- Retrieve versioning and check for compliance
-- Precondition:
-- ask -- string, with required version or "wikidata", or false
-- Postcondition:
-- Returns string with appropriate version, or false
local since = ask
local r
if since == "wikidata" then
local item = Export.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
r = vsn.value
end
end
end
end
if not r then
if not since or since <= Export.serial then
r = Export.serial
else
r = false
end
end
return r
end -- Export.failsafe()
Export.features = function ( assign )
-- Configure appearance
-- assign -- table, with components
if type( assign ) == "table" then
for k, v in pairs( assign ) do
assign[ k ] = v
end -- for k, v
end
end -- Export.features()
Export.format = function ( article, all )
-- Analyze code, create URL, format
-- article -- string, with bibcode ID
-- all -- full version available
-- true or string with details
-- Returns string, with external link or error message
local scan = "^([12][05-9]%d%d)%a[0-9a-zA-Z.&]+%%?$"
local serial = article
local s = type( article )
local legal, less, r
if s ~= "string" then
-- Work-around; 2016-02 strange things
if s == "table" then
serial = article[ 1 ]
else
serial = tostring( serial )
end
mw.log( "bibcode.format() 2016-02", s, article )
end
legal = serial:match( scan )
if not legal then
less = serial:match( "%%%x%x" )
if less then
serial = mw.uri.decode( serial )
legal = serial:match( scan )
end
end
if legal then
legal = ( tonumber( legal ) <= tonumber( os.date( "%Y" ) ) )
end
if legal then
if #serial == 19 then
r = string.format( "[%s%s %s]",
Config.site, serial, serial )
if Config.showArticle then
r = string.format( "[[%s|bibcode]]:%s",
Config.showArticle, r )
else
r = "bibcode:" .. r
end
if less then
r = string.format( "%s %s",
r, fault( "errEncodedURL" ) )
end
if all then
local suffix = factory( "supply" )
if type( all ) == "string" then
suffix = string.format( "%s / %s", suffix, all )
end
r = string.format( "%s (%s)", r, suffix )
end
else
r = string.format( "%s ''%s''",
fault( "errLength" ), serial )
end
else
r = string.format( "%s ''%s''",
fault( "errInvalid" ), serial )
end
return r
end -- Export.format()
-- Export
local p = { }
p.main = function ( argsF, argsT )
-- Invocation
-- argsF -- table, with #invoke parameters, or false
-- argsT -- table, with template parameters
-- Returns appropriate string, or table if argsF.mode = false
local r, stuff, suffix
if argsF then
Config.errCat = argsF.errCat
Config.errClasses = argsF.errClasses
Config.errHide = faculty( argsF.errHide )
Config.errNS = argsF.errNS
if argsF.mode ~= nil then
Config.mode = argsF.mode
end
if argsF.showArticle ~= nil then
if argsF.showArticle == "" then
Config.showArticle = false
else
Config.showArticle = argsF.showArticle
end
end
end
if type( argsT ) == "table" then
local 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
else
k = tostring( k )
end
elseif s == "string" then
if argsT.full then
if ( argsT.full == "" ) then
suffix = true
else
suffix = argsT.full
end
k = false
elseif argsT.demo or faculty( argsT.NoCat ) then
Config.errCat = false
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:bibcode",
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 = Export.format( stuff, suffix )
end
return r
end -- p.main()
p.f = function ( frame )
local lucky, r
Config.frame = frame
lucky, r = pcall( p.main, frame.args, frame:getParent().args )
if not lucky then
r = string.format( "<span class=\"error\">%s * %s</span>",
frame:getTitle(), r )
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 Export.failsafe( since ) or ""
end -- p.failsafe()
p.bibcode = function ()
return Export
end -- p.bibcode()
return p
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.