Modul:Vorlage:bibcode - Versionsgeschichte

PerfektesChaos: 2019-05-16

2019-05-16T08:41:12Z

2019-05-16

← Nächstältere Version		Version vom 16. Mai 2019, 10:41 Uhr
Zeile 1:		Zeile 1:
	local Export = { suite = "bibcode",		local Export = { suite = "bibcode",
	serial = "2019-05-14",		serial = "2019-05-16",
	item = 0 }		item = 0 }
	--[=[		--[=[
Zeile 133:		Zeile 133:


	Export.failsafe = function ( ~~attempt~~ )		Export.failsafe = function ( ask )
	-- Retrieve versioning and check for compliance		-- Retrieve versioning and check for compliance
	-- Precondition:		-- Precondition:
	-- ~~assert~~ -- string, with required version or "wikidata",		-- ask -- string, with required version or "wikidata", or false
	-- or false
	-- Postcondition:		-- Postcondition:
	-- Returns string with appropriate version, or false		-- Returns string with appropriate version, or false
	local since = ~~assert~~		local since = ask
	local r		local r
	if since == "wikidata" then		if since == "wikidata" then

PerfektesChaos: 2019-05-14

2019-05-14T14:10:11Z

2019-05-14

← Nächstältere Version		Version vom 14. Mai 2019, 16:10 Uhr
Zeile 1:		Zeile 1:
	local Export = { suite = "bibcode",		local Export = { suite = "bibcode",
	serial = "~~2017~~-01-15" }		serial = "2019-05-14",
			item = 0 }
	--[=[		--[=[
	Template:bibcode		Template:bibcode
Zeile 27:		Zeile 28:
	mode = 0,		mode = 0,
	showArticle = "Bibcode",		showArticle = "Bibcode",
	site = "~~http~~://adsabs.harvard.edu/abs/",		site = "https://ui.adsabs.harvard.edu/abs/",
	supply = { en = "full text available",		supply = { en = "full text available",
	de = "Volltext verfügbar" }		de = "Volltext verfügbar" }
Zeile 133:		Zeile 134:

	Export.failsafe = function ( attempt )		Export.failsafe = function ( attempt )
			-- Retrieve versioning and check for compliance
⚫	local since = ~~attempt~~
			-- Precondition:
			-- assert -- string, with required version or "wikidata",
			-- or false
			-- Postcondition:
			-- Returns string with appropriate version, or false
		⚫	local since = assert
	local r		local r
	if since then		if since == "wikidata" then
	~~since~~ = mw.~~text.trim( since )~~		local item = Export.item
	if since =~~= ""~~ ~~then~~		since = false
	~~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
	end		end
	if ~~since~~ then		if not r then
	if since > Export.serial then		if not since or since <= Export.serial then
	r = ""		r = Export.serial
	else		else
	r = ~~Export.serial~~		r = false
	end		end
⚫	~~else~~
	r = Export.serial
	end		end
	return r		return r
Zeile 324:		Zeile 339:

	p.failsafe = function ( frame )		p.failsafe = function ( frame )
			-- Versioning interface
⚫	return Export.failsafe( ~~frame.args[~~ 1 ] )
			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()		end -- p.failsafe()

PerfektesChaos: 2017-01-15

2017-01-15T23:27:58Z

2017-01-15

← Nächstältere Version		Version vom 16. Januar 2017, 01:27 Uhr
Zeile 1:		Zeile 1:
	local Export = { suite = "bibcode",		local Export = { suite = "bibcode",
	serial = "~~2016~~-06-20" }		serial = "2017-01-15" }
	--[=[		--[=[
	Template:bibcode		Template:bibcode
Zeile 9:		Zeile 9:

	local Config = {		local Config = {
	self = Export.suite,		self = Export.suite,
	errCat = false,		errCat = false,
	errClass = "error_bibcode",		errClass = "error_bibcode",
	errClasses = false,		errClasses = false,
	errHide = false,		errHide = false,
	errNS = false,		errNS = false,
	~~errEncoded~~ = { en = "ID with undesirable encoding",		errEncodedURL = { en = "ID with undesirable URL encoding",
	de = "ID mit unerwünschtem Encoding" },		de = "ID mit unerwünschtem [[URL-Encoding]]" },
	errInvalid = { en = "Invalid:",		errInvalid = { en = "Invalid:",
	de = "Ungültig:" },		de = "Ungültig:" },
	errLength = { en = "ID with bad length:",		errLength = { en = "ID with bad length:",
	de = "ID mit ungültiger Länge:" },		de = "ID mit ungültiger Länge:" },
	errMissing = { en = "Missing ID",		errMissing = { en = "Missing ID",
	de = "ID fehlt" },		de = "ID fehlt" },
	errUnkown = { en = "Unkown parameter:",		errUnkown = { en = "Unkown parameter:",
	de = "Parameter unbekannt:" },		de = "Parameter unbekannt:" },
	mode = 0,		mode = 0,
	showArticle = "Bibcode",		showArticle = "Bibcode",
	site = "http://adsabs.harvard.edu/abs/",		site = "http://adsabs.harvard.edu/abs/",
	supply = { en = "full text available",		supply = { en = "full text available",
	de = "Volltext verfügbar" }		de = "Volltext verfügbar" }
	}		}

Zeile 209:		Zeile 209:
	if less then		if less then
	r = string.format( "%s %s",		r = string.format( "%s %s",
	r, fault( "~~errEncoded~~" ) )		r, fault( "errEncodedURL" ) )
	end		end
	if all then		if all then

PerfektesChaos: 2016-06-20

2016-06-26T18:48:34Z

2016-06-20

← Nächstältere Version		Version vom 26. Juni 2016, 20:48 Uhr
Zeile 1:		Zeile 1:
	local Export = { suite = "bibcode",		local Export = { suite = "bibcode",
	serial = "2016-02-13" }		serial = "2016-06-20" }
	--[=[		--[=[
	Template:bibcode		Template:bibcode
Zeile 152:		Zeile 152:
	return r		return r
	end -- Export.failsafe()		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()


Zeile 164:		Zeile 176:
	local serial = article		local serial = article
	local s = type( article )		local s = type( article )
	local legal, less		local legal, less, r
	if s ~= "string" then		if s ~= "string" then
	-- Work-around; 2016-02 strange things		-- Work-around; 2016-02 strange things

NordNordWest: Schützte „Modul:Vorlage:bibcode“: Häufig eingebundenes Modul ([Bearbeiten=Nur Sichter] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

2016-02-29T10:44:45Z

Schützte „Modul:Vorlage:bibcode“: Häufig eingebundenes Modul ([Bearbeiten=Nur Sichter] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

← Nächstältere Version	Version vom 29. Februar 2016, 12:44 Uhr
(kein Unterschied)

PerfektesChaos: 2016-02-13

2016-02-15T13:34:05Z

2016-02-13

Änderungen zeigen

PerfektesChaos: 2016-02-11

2016-02-12T16:34:42Z

2016-02-11

← Nächstältere Version		Version vom 12. Februar 2016, 18:34 Uhr
Zeile 1:		Zeile 1:
	local Serial = "2016-02-10"		local Serial = "2016-02-11"
	--[=[		--[=[
	Template:bibcode		Template:bibcode
Zeile 26:		Zeile 26:
	mode = 0,		mode = 0,
	showArticle = "Bibcode",		showArticle = "Bibcode",
	site = "http://adsabs.harvard.edu/abs/"		site = "http://adsabs.harvard.edu/abs/",
			supply = { en = "full text available",
			de = "Volltext verfügbar" }
	}		}

Zeile 137:		Zeile 139:
	-- argsT -- table, with template parameters		-- argsT -- table, with template parameters
	-- Returns appropriate string, or table if argsF.mode = false		-- Returns appropriate string, or table if argsF.mode = false
	local r, stuff		local r, stuff, suffix
	if argsF then		if argsF then
	Config.errCat = argsF.errCat		Config.errCat = argsF.errCat
Zeile 162:		Zeile 164:
	if ( k == 1 ) then		if ( k == 1 ) then
	stuff = mw.text.trim( v )		stuff = mw.text.trim( v )
	if (stuff == "" ) then		if ( stuff == "" ) then
	stuff = false		stuff = false
	end		end
	k = false		k = false
	else		else
	k = tostring( k )		k = tostring( k )
	end		end
	elseif s == "string" then		elseif s == "string" then
	if ~~args~~.~~demo or faculty( args.NoCat )~~ 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.errCat = false
	Config.errHide = false		Config.errHide = false
Zeile 194:		Zeile 203:
	end		end
	if type( r ) == "table" then		if type( r ) == "table" then
	r = p.format( stuff )		r = p.format( stuff, suffix )
	end		end
	return r		return r
Zeile 201:		Zeile 210:


	p.format = function ( article )		p.format = function ( article, all )
	-- Analyze code, create URL, format		-- Analyze code, create URL, format
	-- article -- string, with bibcode ID		-- article -- string, with bibcode ID
			-- all -- full version available
			-- true or string with details
	-- Returns string, with external link or error message		-- Returns string, with external link or error message
	local serial = article		local serial = article
Zeile 232:		Zeile 243:
	r = string.format( "%s %s",		r = string.format( "%s %s",
	r, fault( "errEncoded" ) )		r, fault( "errEncoded" ) )
			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		end
	else		else

PerfektesChaos: 2016-02-10

2016-02-11T10:06:03Z

2016-02-10

← Nächstältere Version		Version vom 11. Februar 2016, 12:06 Uhr
Zeile 1:		Zeile 1:
	local Serial = "2016-02-07"		local Serial = "2016-02-10"
	--[=[		--[=[
	Template:bibcode		Template:bibcode
Zeile 14:		Zeile 14:
	errHide = false,		errHide = false,
	errNS = false,		errNS = false,
	errEncoded = { en = "(ID with undesirable encoding)",		errEncoded = { en = "ID with undesirable encoding",
	de = "(ID mit unerwünschtem Encoding)" },		de = "ID mit unerwünschtem Encoding" },
	errInvalid = { en = "Invalid:",		errInvalid = { en = "Invalid:",
	de = "Ungültig:" },		de = "Ungültig:" },
Zeile 206:		Zeile 206:
	-- Returns string, with external link or error message		-- Returns string, with external link or error message
	local serial = article		local serial = article
	local scan = "^([12][05-9]%d%d)~~[A-Z]~~[0-9a-zA-Z.&]+%%?$"		local scan = "^([12][05-9]%d%d)%a[0-9a-zA-Z.&]+%%?$"
	local ~~less~~ = serial:match( ~~"%%%x%x"~~ )		local legal = serial:match( scan )
	local ~~legal~~		local less
	if ~~less~~ then		if not legal then
	~~serial~~ = ~~mw.uri.decode~~( ~~serial~~ )		less = serial:match( "%%%x%x" )
			if less then
			serial = mw.uri.decode( serial )
		⚫	legal = serial:match( scan )
			end
	end		end
⚫	legal = serial:match( scan )
	if legal then		if legal then
	legal = ( tonumber( legal ) <= tonumber( os.date( "%Y" ) ) )		legal = ( tonumber( legal ) <= tonumber( os.date( "%Y" ) ) )
Zeile 227:		Zeile 230:
	end		end
	if less then		if less then
	r = string.format( " %s %s",		r = string.format( "%s %s",
	r, fault( "errEncoded" ) )		r, fault( "errEncoded" ) )
	end		end
	else		else
	r = string.format( "~~bibcode~~ %s ''%s''",		r = string.format( "%s ''%s''",
	fault( "errLength" ), serial )		fault( "errLength" ), serial )
	end		end
	else		else
	r = string.format( "~~bibcode~~ %s ''%s''",		r = string.format( "%s ''%s''",
	fault( "errInvalid" ), serial )		fault( "errInvalid" ), serial )
	end		end

PerfektesChaos: 2016-02-07

2016-02-07T18:06:25Z

2016-02-07

Neue Seite

local Serial = "2016-02-07"
--[=[
Template:bibcode
and other issues dealing with bibcode ID.
]=]

local Config = {
self = "bibcode",
errCat = false,
errClass = "error_bibcode",
errClasses = false,
errHide = false,
errNS = false,
errEncoded = { en = "(ID with undesirable encoding)",
de = "(ID mit unerwünschtem 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 = "http://adsabs.harvard.edu/abs/"
}

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( "????.%s.????",
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( "%s",
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
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
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 args.demo or faculty( args.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 = p.format( stuff )
end
return r
end -- p.main()

p.format = function ( article )
-- Analyze code, create URL, format
-- article -- string, with bibcode ID
-- Returns string, with external link or error message
local serial = article
local scan = "^([12][05-9]%d%d)[A-Z][0-9a-zA-Z.&]+%%?$"
local less = serial:match( "%%%x%x" )
local legal
if less then
serial = mw.uri.decode( serial )
end
legal = serial:match( scan )
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( "errEncoded" ) )
end
else
r = string.format( "bibcode %s ''%s''",
fault( "errLength" ), serial )
end
else
r = string.format( "bibcode %s ''%s''",
fault( "errInvalid" ), serial )
end
return r
end -- p.format()

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( "%s * %s",
frame:getTitle(), r )
end
return r
end -- p.f()

p.failsafe = function ()
return Serial
end -- p.failsafe()

return p