Jump to content

Module:Intsym

From Wikipedia, the free encyclopedia

local p = {}

local dir_text = {
    ['a'] = 'anticlockwise',
    ['c'] = 'clockwise',
    ['e'] = 'eastbound',
    ['n'] = 'northbound',
    ['s'] = 'southbound',
    ['w'] = 'westbound',
}

local noquad = {
    ['123'] = '4',
    ['124'] = '3',
    ['134'] = '2',
    ['234'] = '1',
}

local valid_dirs = { 'ns', 'sn', 'ew', 'we', 'ca', 'ac' };
local valid_quads = {
	'1', '2', '3', '4',
	'12', '13', '14', '23', '24', '34',
	'123', '124', '134', '234'
};

local function contains(list, x)
	for _, v in pairs(list) do
		if v == x then return true end
	end
	return false
end

local function get_quad_info(dir, quad)
    if quad == '1' then
        return dir_text[dir:sub(2,2)], 'exit'
    elseif quad == '2' then
        return dir_text[dir:sub(1,1)], 'entrance'
    elseif quad == '3' then
        return dir_text[dir:sub(1,1)], 'exit'
    elseif quad == '4' then
        return dir_text[dir:sub(2,2)], 'entrance'
    else
        error('Invalid argument quad=' .. quad)
    end
end

local function get_alt_text(dir, quads, noonly)
	noonly = noonly or false
	
    if quads == nil then
        return 'complete interchange'
    elseif #quads == 1 then
        quad_dir, quad_type = get_quad_info(dir, quads:sub(1,1))
        local alt_text = quad_dir .. ' ' .. quad_type
        if not noonly then
        	alt_text = alt_text .. ' only'
        end
        return alt_text
    elseif #quads == 2 then
        quad_dir1, quad_type1 = get_quad_info(dir, quads:sub(1,1))
        quad_dir2, quad_type2 = get_quad_info(dir, quads:sub(2,2))
        local alt_text = ''
        if quad_type1 == quad_type2 then
            alt_text = quad_dir1 .. ' and ' .. quad_dir2 .. ' ' .. quad_type1 .. 's'
        elseif quad_dir1 == quad_dir2 then
            alt_text = quad_dir1 .. ' entrance and exit'
        else
            alt_text = quad_dir1 .. ' ' .. quad_type1 .. ' and ' .. quad_dir2 .. ' ' .. quad_type2
        end
        if not noonly then
        	alt_text = alt_text .. ' only'
        end
        return alt_text
    elseif #quads == 3 then
        noquad_dir, noquad_type = get_quad_info(dir, noquad[quads])
        return 'no ' .. noquad_dir .. ' ' .. noquad_type
    else
        error('Invalid length for argument quads=' .. quads)
    end
end

local function get_bullet_fn(quads)
	if quads == nil then
		return 'File:Intsym-LHT-Full.svg'
	end
	return 'File:Intsym-LHT-' .. quads .. '.svg'
end

function p._intsym(args)
	local dir = nil
	if args['dir'] ~= nil then
		dir = args['dir']
		if not contains(valid_dirs, dir) then
			error('Invalid input: dir=' .. dir)
		end
	end
	
	local quads = nil
	if args['quads'] ~= nil then
		quads = tostring(args['quads'])
		if not contains(valid_quads, quads) then
			error('Invalid input: quads=' .. quads)
		end
	end

	local text = args['text']
	local noonly = args['noonly']
	local bullet_link = '[[' .. get_bullet_fn(quads) .. '|24px|link=|' .. get_alt_text(dir, quads, noonly) .. ']]'
	
	if text == nil then
		return bullet_link
	else
		local root = mw.html.create()
		local tbl = root:tag('table')
			:css('border-collapse', 'collapse')
			:css('border-spacing', '0px')
		local row = tbl:tag('tr')
		local symbol_cell = row:tag('td')
			:css('border-collapse', 'collapse')
			:css('padding', '0px')
			:css('padding-right', '5px')
			:css('vertical-align', 'middle')
			:wikitext(bullet_link)
		local text_cell = row:tag('td')
			:css('border-collapse', 'collapse')
			:css('padding', '0px')
			:wikitext(text)
		return tostring(root)
	end
end

function p._intsym_legend(args)
	local dir = nil
	if args['dir'] ~= nil then
		dir = args['dir']
		if not contains(valid_dirs, dir) then
			error('Invalid input: dir=' .. dir)
		end
	end
	
	local alt_text1 = get_alt_text(dir, '1', true)
	local alt_text2 = get_alt_text(dir, '2', true)
	local alt_text3 = get_alt_text(dir, '3', true)
	local alt_text4 = get_alt_text(dir, '4', true)
	
	local quad1 = '[[' .. get_bullet_fn('1') .. '|24px|link=|' .. alt_text1 .. ']] ' .. alt_text1
	local quad2 = '[[' .. get_bullet_fn('2') .. '|24px|link=|' .. alt_text2 .. ']] ' .. alt_text2
	local quad3 = '[[' .. get_bullet_fn('3') .. '|24px|link=|' .. alt_text3 .. ']] ' .. alt_text3
	local quad4 = '[[' .. get_bullet_fn('4') .. '|24px|link=|' .. alt_text4 .. ']] ' .. alt_text4
	
	return quad1 .. '   ' .. quad2 .. '   ' .. quad3 .. '   ' .. quad4
end

function p.intsym(frame)
	local getArgs = require('Module:Arguments').getArgs
	local args = getArgs(frame)
	return p._intsym(args)
end

function p.intsym_legend(frame)
	local getArgs = require('Module:Arguments').getArgs
	local args = getArgs(frame)
	return p._intsym_legend(args)
end

return p