Modul:Link utilities

Die Dokumentation für dieses Modul kann unter Modul:Link utilities/doc erstellt werden

-- documentation
local LinkBase = {
	suite  = 'LinkBase',
	serial = '2020-08-06',
	item   = 65228027
}

-- module variable
local lb = {}

-- module import
local fs = require( 'Module:Failsafe' )

-- split separate items like numbers
function lb.splitItems( s, delimiters, defaultDelimiter )
	defaultDelimiter = defaultDelimiter or ','

	-- wrap delimiters with zero marks
	s = mw.ustring.gsub( s, defaultDelimiter, '\0' .. defaultDelimiter .. '\0' );

	-- substitude delimiters
	for _, delimiter in ipairs( delimiters ) do
		s = mw.ustring.gsub( s, delimiter, '\0' .. delimiter .. '\0' );
		-- remove zero marks from inside parentheses ()
		s =	s:gsub( '%b()', function( t ) return t:gsub( '%z', '' ) end )
		-- replace delimeters by the default delimiter
		s = mw.ustring.gsub( s, '\0' .. delimiter .. '\0', '\0' .. defaultDelimiter .. '\0' );
	end

	-- results to an array
	s = mw.text.split( s, '\0' .. defaultDelimiter .. '\0' )
	for i = #s, 1, -1 do
		s[ i ] = mw.text.trim( s[ i ] )
		if s[ i ] == '' then 
			table.remove( s, i )
		end
	end
	return s
end

-- extract comment written in parentheses
-- remove spaces between value like phone numbers and comment
function lb.extractComment( s )
	local comment = ''
	if s:find( '(', 1, true ) then
		local t = s:gsub( '^.*(%b())$', '%1' )
		if t ~= s then
			comment = t
			s = s:gsub( '[%s%c]*%b()$', '' )
		end
	end
	return s, comment
end

-- add error category and hint
-- catPrefix contains opening squared brackets
function lb.errorInfo( catPrefix, aCat, aClass, styles )
	aClass = aClass or 'error'
	styles = styles or ''
	return catPrefix .. aCat .. ']]'
		.. '<span class="' .. aClass .. '" title="' .. aCat .. '"'
		.. ( styles ~= '' and ( ' style="' .. styles .. '"' ) or '' )
		.. '>' .. aCat .. '</span>'
end

-- module administration
function lb.LinkBase()
	return LinkBase
end

function lb.failsafe( version )
	return fs._failsafe( version, LinkBase ) or ''
end

return lb