Module:Authority control/auxiliary - Revision history

Kurt at 13:12, 27 August 2024

2024-08-27T13:12:03Z

← Older revision		Revision as of 08:12, 27 August 2024
Line 1:		Line 1:
	require('strict')		-- require('strict')
	local p = {}		local p = {}
	--[[======================================================]]		--[[======================================================]]

Kurt: 1 revision imported

2024-08-27T13:04:52Z

1 revision imported

← Older revision	Revision as of 08:04, 27 August 2024
(No difference)

en>MSGJ: remove unnecessary spans and add some spacing

2024-08-27T06:19:50Z

remove unnecessary spans and add some spacing

← Older revision		Revision as of 01:19, 27 August 2024
Line 1:		Line 1:
	--require('strict')		require('strict')
	local p = {}		local p = {}
	--[[======================================================]]		--[[======================================================]]
Line 83:		Line 83:
	return false		return false
	end		end
	for _,prefix in ipairs({'AT','AU','BE','CA','CH','DE','FI','FR','IT','KR','NZ','US','ZDB'}) do		for _, prefix in ipairs({'AT', 'AU', 'BE', 'CA', 'CH', 'DE', 'FI', 'FR', 'IT', 'KR', 'NZ', 'US', 'ZDB'}) do
	if id:match('^'..prefix..'%-') then		if id:match('^'..prefix..'%-') then
	return '~~<span class="uid">~~[https://w3id.org/isil/'..id..' ' .. (label or 'ISIL') .. ']~~</span>~~'		return '[https://w3id.org/isil/'..id..' ' .. (label or 'ISIL') .. ']'
	end		end
	end		end
	return '[[International Standard Identifier for Libraries and Related Organizations\|ISIL]]~~\n**<span class="uid">~~' .. id ~~.. '</span>'~~		return '[[International Standard Identifier for Libraries and Related Organizations\|ISIL]]: ' .. id
	end		end

Line 94:		Line 94:
	local id2 = id:match( '^[1-7]%-%d%d?%d?%d?%d?$' ) or id:match( '^[1-7]%-%d%d?%d?%d?%d?%.%d*[1-9]$' )		local id2 = id:match( '^[1-7]%-%d%d?%d?%d?%d?$' ) or id:match( '^[1-7]%-%d%d?%d?%d?%d?%.%d*[1-9]$' )
	if id2 then		if id2 then
	return '~~<span class="uid">~~[https://www.navcen.uscg.gov/pdf/lightlists/LightList%20V'..mw.ustring.sub(id2,1,1)..'.pdf '..id2..']~~</span>~~'		return '[https://www.navcen.uscg.gov/pdf/lightlists/LightList%20V'..mw.ustring.sub(id2,1,1)..'.pdf '..id2..']'
	else		else
	return false		return false
Line 109:		Line 109:
	local v		local v
	if prefix=='N' then		if prefix=='N' then
	local int = interval({1,7.5,14.4,100,121,173,211,235,269.99,326,396,450.1,471.7,499,n=suffix})		local int = interval({1, 7.5, 14.4, 100, 121, 173, 211, 235, 269.99, 326, 396, 450.1, 471.7, 499, n=suffix})
	if int=='1-2' then v = 1		if int=='1-2' then v = 1
	elseif int=='2-3' then v = 75		elseif int=='2-3' then v = 75
Line 127:		Line 127:
	link = link .. 'publications/list-lights/newfoundland/n' .. v .. '-en'		link = link .. 'publications/list-lights/newfoundland/n' .. v .. '-en'
	elseif prefix=='A' then		elseif prefix=='A' then
	local int = interval({5,114.5,145,163,268,271,301.5,327,686.5,704.85,883.2,942,1085,1169.1,1584.5,1773,1823.55,2190,2369,2389,n=suffix})		local int = interval({5, 114.5, 145, 163, 268, 271, 301.5, 327, 686.5, 704.85, 883.2, 942, 1085, 1169.1, 1584.5, 1773, 1823.55, 2190, 2369, 2389, n=suffix})
	if int=='1-2' then v = 5		if int=='1-2' then v = 5
	elseif int=='2-3' then v = 1145		elseif int=='2-3' then v = 1145
Line 151:		Line 151:
	link = link .. 'publications/list-lights/atl/a' .. v .. '-en'		link = link .. 'publications/list-lights/atl/a' .. v .. '-en'
	elseif prefix=='I' then		elseif prefix=='I' then
	local int = interval({0.05,401.1,403.4,551.06,552,624,708,731.2,768,814,983,1046,1059.6,1082,1162,1204.7,1233.3,1328,1330,1346.2,1377.8,1408,1410,1420,1445,1470,1520,1534,1540.6,1554,1557.7,1558.8,1563.1,1625.5,1671.7,1716.96,2545,n=suffix})		local int = interval({0.05, 401.1, 403.4, 551.06, 552, 624, 708, 731.2, 768, 814, 983, 1046, 1059.6, 1082, 1162, 1204.7, 1233.3, 1328, 1330, 1346.2, 1377.8, 1408, 1410, 1420, 1445, 1470, 1520, 1534, 1540.6, 1554, 1557.7, 1558.8, 1563.1, 1625.5, 1671.7, 1716.96, 2545, n=suffix})
	if int=='1-2' then v = '01'		if int=='1-2' then v = '01'
	elseif int=='2-3' then v = 4011		elseif int=='2-3' then v = 4011
Line 196:		Line 196:
	link = link .. 'list-lights'		link = link .. 'list-lights'
	end		end
	return '[[CCG (identifier)\|CCG]] ~~<span class="uid">~~[' .. link .. ' ' .. id .. ']~~</span>~~'		return '[[CCG (identifier)\|CCG]]: [' .. link .. ' ' .. id .. ']'
	end		end

	return p		return p

Kurt at 16:45, 14 July 2024

2024-07-14T16:45:52Z

← Older revision		Revision as of 11:45, 14 July 2024
Line 1:		Line 1:
	require('strict')		--require('strict')
	local p = {}		local p = {}
	--[[======================================================]]		--[[======================================================]]

Kurt: 1 revision imported

2024-07-13T17:10:49Z

1 revision imported

← Older revision	Revision as of 12:10, 13 July 2024
(No difference)

en>Uzume: package function syntax

2024-03-30T14:38:28Z

package function syntax

Show changes

Kurt: 1 revision imported

2023-03-30T21:49:31Z

1 revision imported

← Older revision	Revision as of 16:49, 30 March 2023
(No difference)

en>MSGJ: add customlink function for ccg

2023-03-24T23:17:20Z

add customlink function for ccg

@@ Line 55: / Line 55: @@
 	local lccnType = parts[1] ~= 'sh' and 'names' or 'subjects'
 	return lccnType .. '/' .. parts[1] .. parts[2] .. append( parts[3], '0', 6 )
 end
@@ Line 126: / Line 117: @@
 		return false
 	end
 end
 return p

Kurt: 1 revision imported

2023-03-06T19:24:18Z

1 revision imported

← Older revision	Revision as of 14:24, 6 March 2023
(No difference)

en>MSGJ: rearrange functions, remove BNF, add label to ISIL

2023-03-06T10:50:14Z

rearrange functions, remove BNF, add label to ISIL

New page

require('strict')
local p = {}
--[[======================================================]]
--[[ Format validation functions ]]
--[[======================================================]]
p.botanistV = function(id)
return mw.ustring.match(id,"^[%u%l%d%. '-]+$")
end

p.validateIsni = function(id) --Validate ISNI (and ORCID) and retuns it as a 16 characters string or returns false if it's invalid. See http://support.orcid.org/knowledgebase/articles/116780-structure-of-the-orcid-identifier
id = id:gsub( '[ %-]', '' ):upper()
if not id:match( '^%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d[%dX]$' ) then
return false
end
local total = 0
for i = 1, 15 do
local digit = id:byte( i ) - 48 --Get integer value
total = (total + digit) * 2
end
local remainder = total % 11
local result = (12 - remainder) % 11
local checkdigit
if result == 10 then
checkdigit = 'X'
else
checkdigit=tostring( result )
end
if checkdigit ~= string.char( id:byte( 16 ) ) then
return false
end
return id
end

local function splitLccn(id)
if id:match( '^%l%l?%l?%d%d%d%d%d%d%d%d%d?%d?$' ) then
id = id:gsub( '^(%l+)(%d+)(%d%d%d%d%d%d)$', '%1/%2/%3' )
end
if id:match( '^%l%l?%l?/%d%d%d?%d?/%d+$' ) then
return mw.text.split( id, '/' )
end
return false
end

p.lccnV = function(id)
local function append(str, c, length)
while str:len() < length do
str = c..str
end
return str
end
local parts = splitLccn(id) --e.g. n78039510
if not parts then
return false
end
local lccnType = parts[1] ~= 'sh' and 'names' or 'subjects'
return lccnType .. '/' .. parts[1] .. parts[2] .. append( parts[3], '0', 6 )
end

p.WorldCatLCCN = function(id)
local lccnParts = splitLccn(id)
if lccnParts and lccnParts[1] ~= 'sh' then
return lccnParts[1]..lccnParts[2]..'-'..lccnParts[3]
else
return false
end
end

p.orcidV = function(id)
id = p.validateIsni(id)
if not id then
return false
end
return id:sub( 1, 4 )..'-'..id:sub( 5, 8 )..'-'..id:sub( 9, 12 )..'-'..id:sub( 13, 16 )
end

p.tlsV = function(id)
id = id:gsub(' +', '_')
local idlen = mw.ustring.len(id)
if idlen < 4 or idlen > 90 then
return false
end
local regex = '^%u'..string.rep("[%w_',%.%-%(%)%*%/–&]", idlen - 1)..'$'
if not mw.ustring.match(id,regex ) then
return false
end
return id
end

p.worldcatidV = function(id)
if not id:match( '^viaf%-%d+$' ) and
not id:match( '^lccn%-n[a-z]?[0-9%-]+$' ) and
not id:match( '^n[cps]%-.+$' ) then
return false
end
return mw.uri.encode(id, 'PATH')
end

p.zbmathV = function(id)
local ps = {'%l[%l%-]*', '%.%l[%l%-]*', '%.%d*'}
return id:match( '^'..ps[1]..'$' ) -- prefix with no capture options
or id:match( '^'..ps[1]..ps[2]..'$' ) -- prefix with first capture option
or id:match( '^'..ps[1]..ps[3]..'$' ) -- prefix with second capture option
or id:match( '^'..ps[1]..ps[2]..ps[3]..'$' ) -- prefix and both capture options
end

--[[======================================================]]
--[[ Custom link functions ]]
--[[======================================================]]
p.ISILlink = function(id,label)
if not id:match('^%D%D?%D?%D?%-.+$') then
return false
end
for _,prefix in ipairs({'AT','AU','BE','CA','CH','DE','FI','FR','IT','KR','NZ','US','ZDB'}) do
if id:match('^'..prefix..'%-') then
return '[https://w3id.org/isil/'..id..' ' .. (label or 'ISIL') .. ']'
end
end
return '[[International Standard Identifier for Libraries and Related Organizations|ISIL]]\n**' .. id .. ''
end

p.uscgLink = function(id)
local id2 = id:match( '^[1-7]%-%d%d?%d?%d?%d?$' ) or id:match( '^[1-7]%-%d%d?%d?%d?%d?%.%d*[1-9]$' )
if id2 then
return '[https://www.navcen.uscg.gov/pdf/lightlists/LightList%20V'..mw.ustring.sub(id2,1,1)..'.pdf '..id2..']'
else
return false
end
end

return p