モジュール:Sports color

--
-- 以下のモジュールを実装
-- , 
-- , , , 
-- , , ,
--
local p = {}
local data_module = 'モジュール:Sports color/バスケットボール'
local function stripwhitespace(text)
	return text:match("^%s*(.-)%s*$")
end
local function bordercss(c, w)
	local s = 'inset ' .. w .. 'px ' .. w .. 'px 0 #' .. c 
		.. ', inset -' .. w .. 'px -' .. w .. 'px 0 #' .. c
	return 'box-shadow: ' .. s .. ';'
end
local function get_colors(team, unknown)
	team = stripwhitespace(team or )
	unknown = unknown or {"DCDCDC", "000000", "000000", "FFFFFF"}
	
	local use_default = {
		"" = 1,
	}
	
	local colors = nil
	
	if ( team and use_defaultteam:lower() ) then
		colors = {"DCDCDC", "000000", "DCDCDC", "000000"}
	else
		local all_colors = mw.loadData(data_module)
		colors = all_colorsteam
		if ( colors and type(colors) == 'string' ) then
			colors = all_colorscolors
		end
	end
	return colors or unknown
end
local function team_check(team, unknown)
	local colors = get_colors(team, unknown)
	if type(colors) == 'table' then
		return 'known'
	else
		return unknown
	end
end
local function team_color(team, num)
	local colors = get_colors(team, nil)
	num = tonumber(num:match('1-4') or '0')
	if ( num ) then
		return colorsnum
	else
		return 
	end
end
local function team_colorcell(team, borderwidth, bg, fg, bd, simple)
	local colors = get_colors(team, nil)
	local border = 
	borderwidth = borderwidth or 
	
	if (borderwidth ~= ) then
		local bordercolor = stripwhitespace(colorsbd) or 'FFFFFF'
		if bordercolor ~= 'FFFFFF' then
			if simple then
				border = 'border: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'
			else
				border = bordercss(bordercolor, borderwidth)
			end
		end
	end
	
	return 'background-color: #' .. stripwhitespace(colorsbg) .. '; color: #' .. stripwhitespace(colorsfg) .. '; ' .. border
end
local function team_titlestripe(team, topc, botc, borderwidth)
	local colors = get_colors(team, nil)
	local border = 
	borderwidth = borderwidth or 
	if (borderwidth ~= ) then
		local bordercolor = stripwhitespace(colorstopc) or 'FFFFFF'
		if bordercolor ~= 'FFFFFF' then
			border = border .. 'border-top: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'
		end
		bordercolor = stripwhitespace(colorsbotc) or bordercolor
		if bordercolor ~= 'FFFFFF' then
			border = border .. 'border-bottom: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'
		end
	end
	return 'background-color: #FFFFFF; ' .. border
end
local function team_cellborder(team, pri, sec, ter, borderwidth, simple)
	local colors = get_colors(team, nil)
	local border = 
	borderwidth = borderwidth or 
	if (borderwidth ~= ) then
		local bordercolor = stripwhitespace(colorspri or colorssec or colorster) or 'FFFFFF'
		if bordercolor ~= 'FFFFFF' then
			if simple then
				border = 'border: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'
			else
				border = bordercss(bordercolor, borderwidth)
			end
		end
	end
	return 'background-color: #FFFFFF; ' .. border
end
function p.check(frame)
	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args
	data_module = 'モジュール:Sports color/' .. (frame.args'スポーツ' or frame:getParent().args'スポーツ' or 'バスケットボール')
	return team_check(args1 or , args2 or )
end
function p.color(frame)
	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args
	data_module = 'モジュール:Sports color/' .. (frame.args'スポーツ' or frame:getParent().args'スポーツ' or 'バスケットボール')
	return team_color(args1 or , args2 or )
end
function p.colorcell(frame)
	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args
	data_module = 'モジュール:Sports color/' .. (frame.args'スポーツ' or frame:getParent().args'スポーツ' or 'バスケットボール')
	return team_colorcell(args1 or , args'border' or , 1, 2, 3, args'simple' and 1 or nil )
end
function p.colorcell2(frame)
	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args
	data_module = 'モジュール:Sports color/' .. (frame.args'スポーツ' or frame:getParent().args'スポーツ' or 'バスケットボール')
	return team_colorcell(args1 or , args'border' or , 3, 4, 1, args'simple' and 1 or nil )
end
function p.titlestripe(frame)
	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args
	data_module = 'モジュール:Sports color/' .. (frame.args'スポーツ' or frame:getParent().args'スポーツ' or 'アイスホッケー')
	return team_titlestripe(args1 or , 1, 3, args'width' or '5')
end
function p.cellborder(frame)
	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args
	data_module = 'モジュール:Sports color/' .. (frame.args'スポーツ' or frame:getParent().args'スポーツ' or 'アイスホッケー')
	return team_cellborder(args1 or , 3, 1, 4, args'width' or '2', args'simple' and 1 or nil )
end
function p.cellborder2(frame)
	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args
	data_module = 'モジュール:Sports color/' .. (frame.args'スポーツ' or frame:getParent().args'スポーツ' or 'アイスホッケー')
	return team_cellborder(args1 or , 4, 3, 1, args'width' or '2', args'simple' and 1 or nil )
end
return p