模組:Sport orgs alias
 | 此模块已评为通行版，稳定可靠，可各处使用无误。已可在帮助页面和其他维基百科资源中提及，以帮助新用户学习。为降低服务器负载和错误输出，改善本模块前应进行沙盒测试，而不是重复的试错性编辑。 |
本模块为{{sport orgs alias}}所使用，需要了解更详细的用法请查阅该模板的文档。
使用方法
本模块为{{sport orgs alias}}所使用，主要用于根据由三个或四个大写字母组成的国家和地区代码、年份和赛事返回与国家和地区及赛事相对应的体育组织及其网站。
{{#invoke:Sport orgs alias|main|alias=|website=|fullName=}}
数据模块
本模块所依赖的数据模块共有三个：
- Module:Sport orgs alias/NOC：各国家和地区的NOC或CGA（英联邦运动会协会）
- Module:Sport orgs alias/NPC：各国家和地区的NPC
- Module:Sport orgs alias/NUSF：各国家和地区的大学生体育联合会
本模块根据fullName参数的不同调用不同的数据模块，例如fullName参数为“2008年夏季奥林匹克运动会”，调用NOC数据模块，fullName参数为“2008年夏季残疾人奥林匹克运动会”，则调用NPC数据模块。具体的赛事所对应的数据模块请参阅本模块的代码。
每个数据模块分为以下两部分：
- countryAliases
- 单个国家和地区所使用的其他代码
- countryOrg
- 存储各个缩写所对应的国家和地区体育组织的名称（orgname）、网站（website）以及网站语言（website_lang）
| 上述文档嵌入自Module:Sport orgs alias/doc。 (编辑 | 历史) 编者可以在本模块的沙盒 (创建 | 镜像)和测试样例 (创建)页面进行实验。 本模块的子页面。 |
local orgs_data
local data_type
-- 各运动会所对应的国家组织类型；NOC：国家奥林匹克委员会；CGA：英联邦运动会协会；NPC：国家残疾人奥林匹克委员会；NUSF：国家大学生体育联合会
-- 请确保输入的参数非繁简混用（例如：“夏季奥林匹克運動會”）或使用对应语言变种不存在的用字（例如：“亚洲帕拉运动会”）
local data_types = {
["奥林匹克运动会"] = "NOC",
["奧林匹克運動會"] = "NOC",
["夏季奥林匹克运动会"] = "NOC",
["夏季奧林匹克運動會"] = "NOC",
["冬季奥林匹克运动会"] = "NOC",
["冬季奧林匹克運動會"] = "NOC",
["青年奥林匹克运动会"] = "NOC",
["青年奧林匹克運動會"] = "NOC",
["夏季青年奥林匹克运动会"] = "NOC",
["夏季青年奧林匹克運動會"] = "NOC",
["冬季青年奥林匹克运动会"] = "NOC",
["冬季青年奧林匹克運動會"] = "NOC",
["东南亚运动会"] = "NOC",
["東南亞運動會"] = "NOC",
["东南亚半岛运动会"] = "NOC",
["東南亞半島運動會"] = "NOC",
["南亚运动会"] = "NOC",
["南亞運動會"] = "NOC",
["东亚运动会"] = "NOC",
["東亞運動會"] = "NOC",
["东亚青年运动会"] = "NOC",
["東亞青年運動會"] = "NOC",
["亚洲运动会"] = "NOC",
["亞洲運動會"] = "NOC",
["亚洲冬季运动会"] = "NOC",
["亞洲冬季運動會"] = "NOC",
["亚洲青年运动会"] = "NOC",
["亞洲青年運動會"] = "NOC",
["亚洲室内暨武艺运动会"] = "NOC",
["亞洲室內暨武藝運動會"] = "NOC",
["亚洲室内运动会"] = "NOC",
["亞洲室內運動會"] = "NOC",
["亚洲武艺运动会"] = "NOC",
["亞洲武藝運動會"] = "NOC",
["亚洲沙滩运动会"] = "NOC",
["亞洲沙灘運動會"] = "NOC",
["欧洲运动会"] = "NOC",
["歐洲運動會"] = "NOC",
["地中海运动会"] = "NOC",
["地中海運動會"] = "NOC",
["泛美运动会"] = "NOC",
["泛美運動會"] = "NOC",
["全非运动会"] = "NOC",
["全非運動會"] = "NOC",
["非洲运动会"] = "NOC",
["非洲運動會"] = "NOC",
["英联邦运动会"] = "CGA",
["英聯邦運動會"] = "CGA",
["大英國協運動會"] = "CGA",
["共和联邦运动会"] = "CGA",
["英联邦青年运动会"] = "CGA",
["英聯邦青年運動會"] = "CGA",
["大英國協青年運動會"] = "CGA",
["共和联邦青年运动会"] = "CGA",
["大英帝国运动会"] = "CGA",
["大英帝國運動會"] = "CGA",
["大英帝国和联邦运动会"] = "CGA",
["大英帝國和聯邦運動會"] = "CGA",
["不列颠联邦运动会"] = "CGA",
["不列顛聯邦運動會"] = "CGA",
["不列颠英联邦运动会"] = "CGA",
["不列顛英聯邦運動會"] = "CGA",
["残疾人奥林匹克运动会"] = "NPC",
["殘疾人奧林匹克運動會"] = "NPC",
["帕拉林匹克運動會"] = "NPC",
["夏季残疾人奥林匹克运动会"] = "NPC",
["夏季殘疾人奧林匹克運動會"] = "NPC",
["夏季帕拉林匹克運動會"] = "NPC",
["冬季残疾人奥林匹克运动会"] = "NPC",
["冬季殘疾人奧林匹克運動會"] = "NPC",
["冬季帕拉林匹克運動會"] = "NPC",
["亚洲残疾人运动会"] = "NPC",
["亞洲殘疾人運動會"] = "NPC",
["亞洲帕拉運動會"] = "NPC",
["亚洲青年残疾人运动会"] = "NPC",
["亞洲青年殘疾人運動會"] = "NPC",
["亞洲青年帕拉運動會"] = "NPC",
["世界大学生运动会"] = "NUSF",
["世界大學生運動會"] = "NUSF",
["世界大學運動會"] = "NUSF",
["夏季世界大学生运动会"] = "NUSF",
["夏季世界大學生運動會"] = "NUSF",
["夏季世界大學運動會"] = "NUSF",
["冬季世界大学生运动会"] = "NUSF",
["冬季世界大學生運動會"] = "NUSF",
["冬季世界大學運動會"] = "NUSF",
}
local data_check = {"奥林匹克运动会", "奧林匹克運動會", "青年奥林匹克运动会", "青年奧林匹克運動會", "东南亚运动会", "東南亞運動會", "东南亚半岛运动会", "東南亞半島運動會", "亚洲运动会", "亞洲運動會", "亚洲青年运动会", "亞洲青年運動會", "亚洲室内暨武艺运动会", "亞洲室內暨武藝運動會", "亚洲室内运动会", "亞洲室內運動會", "亚洲武艺运动会", "亞洲武藝運動會", "亚洲沙滩运动会", "亞洲沙灘運動會", "残疾人奥林匹克运动会", "殘疾人奧林匹克運動會", "帕拉林匹克運動會", "傷殘奧林匹克運動會", "亚洲残疾人运动会", "亞洲殘疾人運動會", "亞洲帕拉運動會", "亚洲青年残疾人运动会", "亞洲青年殘疾人運動會", "世界大学生运动会", "世界大學生運動會", "世界大學運動會", "Olympics", "Paralympics", "Universiade", "Asian Games"}
local function stripToNil(text)
-- If text is a string, return its trimmed content, or nil if empty.
-- Otherwise return text (which may, for example, be nil).
if type(text) == 'string' then
text = text:match('(%S.-)%s*$')
end
return text
end
local function yes(parameter)
-- Return true if parameter should be interpreted as "yes".
return ({ y = true, yes = true, on = true, [true] = true })[parameter]
end
local function load_data(fullName)
local games = stripToNil(fullName:gsub('^%d+年?', ''))
if not data_types[games] then
error('fullName参数错误：不支持的赛事、繁简混用或对应的中文变体不存在的用字：' .. fullName)
end
data_type = data_types[games]
orgs_data = mw.loadData('Module:Sport orgs alias/' .. data_type)
end
local function getAlias(args)
-- Return alias parameter, possibly modified for exceptional cases.
local alias = stripToNil(args.alias)
local fullName = stripToNil(args.fullName)
local year = tonumber(fullName:match('^%d+'))
local games = stripToNil(fullName:gsub('^%d+年?', ''))
if alias == 'ANG' then
if data_type == 'CGA' then
alias = 'ANG_CGF'
end
elseif alias == 'AUS' then
if data_type == 'CGA' then
alias = 'AUS_CGF'
end
elseif alias == 'BAH' then
if (data_type == 'NOC' or data_type == 'CGA') and year and year <= 2012 then
alias = 'BAH_2012'
end
elseif alias == 'CAN' then
if data_type == 'CGA' then
alias = 'CAN_CGF'
end
elseif alias == 'COK' then
if data_type == 'NOC' and year and year <= 1973 then
alias = 'COK_1968'
end
elseif alias == 'GHA' then
if (data_type == 'NOC' or data_type == 'CGA') and year and year <= 1956 then
alias = 'GCO'
end
elseif alias == 'HKG' then
if data_type == 'CGA' then
alias = 'HKG_CGF'
elseif year == 1997 and (games == '东亚运动会' or games == '東亞運動會') then
alias = 'HKG_CGF'
elseif data_type == 'NPC' and year and year < 2005 then
alias = 'HKG_2005'
elseif data_type == 'NPC' and year and year >= 2005 and year < 2022 then
alias = 'HKG_2022'
elseif (data_type == 'NOC' or data_type == 'NUSF') and year and year < 1997 then
alias = 'HKG_CGF'
end
elseif alias == 'IRL' then
if data_type == 'NOC' and year and year <= 2018 then
alias = 'IRL_2018'
end
elseif alias == 'LIE' then
if data_type == 'NOC' and year and year <= 2013 then
alias = 'LIE_2013'
end
elseif alias == 'MAL' then
if data_type == 'NOC' and year and year > 1963 then
alias = 'MAS'
end
elseif alias == 'MAC' then
if data_type == 'NOC' and year and year <= 2008 then
alias = 'MAC_2008'
elseif data_type == 'NPC' and year and year <= 1999 then
alias = 'MAC_1999'
end
elseif alias == 'MKD' then
if year and year <= 2018 then
alias = 'MKD_2018'
end
elseif alias == 'SAM' then
if (data_type == 'NOC' or data_type == 'CGA') and year and year <= 1996 then
alias = 'WSM'
end
elseif alias == 'SVK' then
if data_type == 'NOC' and year and year <= 2018 then
alias = 'SVK_2018'
end
elseif alias == 'SWZ' then
if year == 2018 and (games == '英联邦运动会' or games == '英聯邦運動會' or games == '大英國協運動會' or games == '共和联邦运动会') then
alias = 'SWZ'
elseif year == nil or year >= 2018 then
alias = 'SWZ_YO2018'
end
elseif alias == 'USA' then
if (data_type == 'NOC' or data_type == 'NPC') and year and year <= 2018 then
alias = 'USA_2019'
end
elseif alias == 'ROC' then
if data_type == 'NOC' and year and year >= 2020 and year <= 2022 then
alias = 'RUS'
end
end
--[[RPC的处理位于“Module:Sport_orgs_alias/NPC”页面]]
return alias
end
local function getWebsite(frame, country)
if not country.website then
return ''
end
local website = frame:expandTemplate{title = 'url', args = {country.website} }
if country.website_lang then
if type(country.website_lang) == 'table' then
for _, item in ipairs(country.website_lang) do
website = website .. frame:expandTemplate{title = item .. ' icon'}
end
else
website = website .. frame:expandTemplate{title = country.website_lang .. ' icon'}
end
end
return website
end
local function sportOrgsAlias(frame, args)
local fullName = stripToNil(args.fullName)
if not fullName then
return ''
end
load_data(fullName)
local alias = getAlias(args)
local country = orgs_data.countryOrg[alias] or orgs_data.countryOrg[orgs_data.countryAliases[alias]]
if not country then
return ''
end
if yes(args.website) then
return getWebsite(frame, country)
else
return country.orgname or ''
end
end
local function main(frame)
return sportOrgsAlias(frame, frame.args)
end
local function detect(frame)
local args = frame.args
local games = args.games
games = games:gsub('^%d+', '')
games = games:gsub('^年?', '')
games = games:gsub('Summer?', '')
games = games:gsub('Winter?', '')
games = games:gsub('夏季?', '')
games = games:gsub('冬季?', '')
games = games:gsub('%s+', ' ')
games = stripToNil(games)
local det = nil
for _, item in ipairs(data_check) do
if item == games then
det = item
break
end
end
return ''
end
return {
main = main,
detect = detect,
}