模組:Country alias/sandbox
 | 这是Module:Country alias（差异）的沙盒。 |
 | 此模块sandbox被引用於約5,300個頁面。 為了避免造成大規模的影響，所有對此模块sandbox的編輯應先於沙盒或測試樣例上測試。 測試後無誤的版本可以一次性地加入此模块sandbox中，但是修改前請務必於討論頁發起討論。 模板引用數量會自動更新。 |
 | 此模块sandbox已评为通行版，稳定可靠，可各处使用无误。已可在帮助页面和其他维基百科资源中提及，以帮助新用户学习。为降低服务器负载和错误输出，改善本模块前应进行沙盒测试，而不是重复的试错性编辑。 |
本模块为{{country alias}}所使用，需要了解更详细的用法请查阅该模板的文档。
- Module:Country alias · Module:Country alias/sandbox · different (diff)
- Module:Country alias/data · Module:Country alias/data/sandbox · same content
使用方法
本模块为{{country alias}}所使用，主要用于根据由三个或四个大写字母组成的国家和地区代码、年份和赛事返回相对应的旗帜或者国家和地区名称。
{{#invoke:Country alias|main|alias=|flag=|games=|year=|lan=}}
| 上述文档嵌入自Module:Country alias/doc。 (编辑 | 历史) 编者可以在本模块的沙盒 (编辑 | 差异)和测试样例 (创建)页面进行实验。 请在/doc子页面中添加分类。本模块的子页面。 |
-- 该模块根据国家和地区代码、年份和赛事返回相应的国家名称或旗帜
-- 国家和地区代码基于国际奥委会、英联邦和国际游泳联合会的代码
--[[
以下国家和地区代码为一个代码根据赛事或年份的不同，可以代表两个或以上不同的国家/地区：
ANG（ANG在其他赛事代表安哥拉，在英联邦运动会代表安圭拉，该情况通过加入ANG_CGF进行处理）
COK（COK在1968年时代表刚果金沙萨，之后的年份代表库克群岛）
ROC（1976年之前代表“中华民国”，在俄罗斯于2020年底被裁定两年内禁止以国家名义参赛后，国际奥委会宣布该国会以“俄罗斯奥林匹克委员会”的名义参加2020年东京奥运和2022年北京冬奥）
以下国家和地区代码为同一个代码根据赛事或年份的不同，拥有不同的旗帜/名称：
香港（Hong Kong） HKG、HKG_CGF（香港在1997年7月1日后以中国香港的名义参赛，同时不再参加英联邦运动会）
澳门（Macau） MAC、MAC_1999（澳门在1999年12月回归（当时距离年底仅有数日，期间应无主要的综合性赛事），2000年开始以中国澳门名义参赛）
个人/独立奥林匹克运动员（Individual/Independent Olympic Athlete） IOA、IOA_2000（IOA在2000年时为个人奥林匹克运动员，2012年起为独立奥林匹克运动员）
个人/独立残奥/帕运运动员（Individual/Independent Paralympic Athlete） IPA、IPA_2000（IPA在2000年时为个人残奥/帕运运动员，2016年起为独立残奥/帕运运动员）
斯威士兰（Swaziland/Eswatini） SWZ、SWZ_YO2018（斯威士兰在2018年英联邦运动会后国名改为“Eswatini”，台湾方面跟进将该国国名翻译为“史瓦帝尼”）
马其顿（Macedonia/North Macedonia） MKD、MKD_2018（马其顿在2019年更改国名为北马其顿）
以下国家和地区代码为同一国家和地区视乎年份或赛事的不同使用两个或多个不同的代码：
Anguilla AIA, ANG_CGF
Antigua and Barbuda ANT, ATG
Bahrain BHN, BHR, BRN
Curaçao CUR, CUW
East Timor TLS, TMP
Faroe Islands FAR, FRO
Guernsey GGY, GUE
Iran IRI, IRN
Ireland IRE, IRL - IRE is *only* for CGF apps
Jersey JER, JEY
Lebanon LBN, LIB
Montserrat MNT, MSR
Nicaragua NCA, NIC
Netherlands HOL, NED
Norfolk Island NFI, NFK
Oman OMA, OMN
Refugee Olympic Team ROA, ROT, EOR
Romania ROM, ROU
Saint Helena SHE, SHN
Saint Vincent and the Grenadines SVG, VIN
Sarawak SAR, SWK
Saudi Arabia KSA, SAU
Singapore SGP, SIN
South Africa RSA, SAF
Tonga TGA, TON
Trinidad and Tobago TRI, TTO
Turks and Caicos Islands TCA, TCI, TKS
Oddity that needs to be revisited
French Polynesia PYF, TAH - TAH has been converted to Tahiti per SILENCE
]]
-- 代表团写法
local linksuffix = {
['zh'] = "代表团",
['zh-hans'] = "代表团",
['zh-cn'] = "代表团",
['zh-sg'] = "代表团",
['zh-my'] = "代表团",
['zh-hant'] = "代表團",
['zh-hk'] = "代表團",
['zh-mo'] = "代表團",
['zh-tw'] = "代表團",
}
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 getAlias(args)
-- Return alias parameter, possibly modified for exceptional cases.
local alias = stripToNil(args.alias)
local games = stripToNil(args.games)
local year = tonumber(args.year)
local fullName = stripToNil(args.fullName)
if fullName then
year = tonumber(fullName:match('^%d+')) -- ignore args.year
games = stripToNil(fullName:gsub('^%d+年?', ''))
end
if alias == 'ANG' then
if games == '英联邦运动会' or games == '英聯邦運動會' or games == '大英國協運動會' or games == '共和联邦运动会' then
alias = 'ANG_CGF'
end
elseif alias == 'ART' then
if games == '亚洲室内暨武艺运动会' or games == '亞洲室內暨武藝運動會' then
alias = 'ART_AIMAG'
end
elseif alias == 'HKG' then
if games == '英联邦运动会' or games == '英聯邦運動會' or games == '大英國協運動會' or games == '共和联邦运动会'
or games == '大英帝國運動會' or games == '大英帝国运动会' or games == '大英帝國和聯邦運動會' or games == '大英帝国和联邦运动会'
or games == '不列顛聯邦運動會' or games == '不列颠联邦运动会' or games == '不列顛英聯邦運動會' or games == '不列颠英联邦运动会' then
alias = 'HKG_CGF'
elseif (year == 1997 and (games == '东亚运动会' or games == '東亞運動會')) or (fullName == '1997年东亚运动会' or fullName == '1997年東亞運動會') then
alias = 'HKG_CGF'
elseif year and year < 1997 then
alias = 'HKG_CGF'
end
elseif alias == 'IOA' then
if year == 2000 then
alias = 'IOA_2000'
elseif year == 2016 and (games == '亚洲沙滩运动会' or games == '亞洲沙灘運動會') then
alias = 'IOA_ABG2016'
end
elseif alias == 'IPA' then
if year == 2000 then
alias = 'IPA_2000'
end
elseif alias == 'MAL' then
if year and year > 1963 then
alias = 'MAS'
end
elseif alias == 'MAC' then
if year and year <= 1999 then
alias = 'MAC_1999'
end
elseif alias == 'SWZ' then
if fullName then
if year == nil or (year >= 2018 and (fullName ~= '2018年英联邦运动会' and fullName ~= '2018年英聯邦運動會' and fullName ~= '2018年大英國協運動會' and fullName ~= '2018年共和联邦运动会')) then
alias = 'SWZ_YO2018'
end
elseif 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 == 'MKD' then
if year and year <= 2018 then
alias = 'MKD_2018'
end
elseif alias == 'SAM' then
if year and year <= 1996 then
alias = 'WSM'
end
-- 1992年中华台北残奥代表团使用五环版，1996年至2004年使用1994年至2004年版残奥旗帜，2008年开始使用现在的版本
elseif alias == 'TPE' then
if games == '亚洲残疾人运动会' or games == '亞洲殘疾人運動會' or games == '亞洲帕拉運動會'
or games == '亚洲青年残疾人运动会' or games == '亞洲青年殘疾人運動會' or games == '亞洲青年帕拉運動會'
or games == '夏季残疾人奥林匹克运动会' or games == '夏季殘疾人奧林匹克運動會' or games == '夏季帕拉林匹克運動會'
or games == '残疾人奥林匹克运动会' or games == '殘疾人奧林匹克運動會' or games == '帕拉林匹克運動會' then
alias = 'TPE_PAR'
end
elseif alias == 'COK' then
if year and year <= 1973 then
alias = 'COK_1968'
end
elseif alias == 'GHA' then
if year and year <= 1956 then
alias = 'GCO'
end
elseif alias == 'VNM' then
if year and year <= 1954 then
alias = 'VIE'
end
elseif alias == 'ROC' then
if year and year >= 2020 and year <= 2022 then
alias = 'ROC_RUS'
end
end
return alias
end
local function getFlag(args, country)
-- Return name of flag selected from country data (nil if none defined).
local year = tonumber(args.year)
local games = stripToNil(args.games)
local fullName = stripToNil(args.fullName)
if fullName then
year = tonumber(fullName:match('^%d+')) -- ignore args.year
games = stripToNil(fullName:gsub('^%d+年?', ''))
end
if games then
local gdata = country[games]
if gdata then
if type(gdata) == 'string' then
return gdata
end
if gdata[1] then
return gdata[1]
end
if gdata[year] then
if type(gdata[year]) == 'string' then
return gdata[year]
end
return gdata[year][1]
end
end
end
for _, item in ipairs(country) do
if type(item) == 'string' then
return item
end
if year and year <= item[1] then
return item[2]
end
end
end
local function getName(args, country, frame)
local lan = stripToNil(args.lan)
if lan == nil then
lan = frame:callParserFunction{ name = 'int', args = {'Conversionname'} }
end
if lan == 'zh-my' then
lan = 'zh-sg'
end
local temp = linksuffix[lan]
if temp == nil then
lan = 'zh'
end
if country[lan] == nil then
if lan == 'zh-hans' or lan == 'zh-hant' then
lan = 'zh'
elseif lan == 'zh-cn' or lan == 'zh-sg' then
if country['zh-hans'] ~= nil then
lan = 'zh-hans'
else
lan = 'zh'
end
elseif lan == 'zh-tw' or lan == 'zh-hk' or lan == 'zh-mo' then
if country['zh-hant'] ~= nil then
lan = 'zh-hant'
else
lan = 'zh'
end
end
end
return country[lan]
end
local data = mw.loadData('Module:Country alias/data/sandbox')
local function getGames(games, lan)
if lan == nil or lan == 'zh-hans' or lan == 'zh-cn' then
lan = 'zh'
elseif lan == 'zh-mo' then
lan = 'zh-hk'
elseif lan == 'zh-my' then
lan = 'zh-sg'
end
if games == nil then
return games
end
if data.event[lan][games] == nil then
if lan == 'zh' or lan == 'zh-hant' then
games = games
elseif lan == 'zh-cn' or lan == 'zh-sg' then
if data.event['zh'][games] == nil then
games = games
else
games = data.event['zh'][games]
end
elseif lan == 'zh-hk' or lan == 'zh-tw' then
if data.event['zh-hant'][games] == nil then
games = games
else
games = data.event['zh-hant'][games]
end
end
else
games = data.event[lan][games]
end
return games
end
local function countryAlias(args, frame)
local alias = getAlias(args)
local country = data.countries[alias] or data.countries[data.countryAliases[alias]]
local function quit(message)
return args.error or error(message)
end
if not country then
return quit('Invalid country alias: ' .. tostring(alias))
end
if yes(args.flag) then
return getFlag(args, country) or quit('No flag defined for ' .. alias)
else
return getName(args, country, frame) or quit('No name defined for ' .. alias)
end
end
-- 调用该模板前必须先确保args.lan参数不为空
local function countryAlias2(args, frame)
local alias = getAlias(args)
local country = data.countries[alias] or data.countries[data.countryAliases[alias]]
local function quit(message)
return args.error or error(message)
end
if not country then
return quit('Invalid country alias: ' .. tostring(alias))
end
-- 当country.single不为空的时候，需要临时改变args.lan的值，在调用完getName后需要把args.lan的值改回来，以免影响下一次调用
local original_lan = args.lan
local new_lan = country.single or args.lan
args.lan = new_lan
local name = getName(args, country, frame) or quit('No name defined for ' .. alias)
args.lan = original_lan
return {name, new_lan}
end
local function getSingle(args)
local alias = getAlias(args)
local country = data.countries[alias] or data.countries[data.countryAliases[alias]]
if not country then
return nil
end
return country.single
end
local function getAllName(args)
local alias = getAlias(args)
local country = data.countries[alias] or data.countries[data.countryAliases[alias]]
if not country then
return nil
end
local strZhhans = country['zh']
if country['zh-hans'] then
strZhhans = country['zh-hans']
end
local strZhhant = country['zh']
if country['zh-hant'] then
strZhhant = country['zh-hant']
end
local strStart = '-{zh-hans:' .. strZhhans .. '; zh-hant:' .. strZhhant .. ';'
if country['zh-cn'] then
strStart = strStart .. ' zh-cn:' .. country['zh-cn'] .. ';'
end
if country['zh-sg'] then
strStart = strStart .. ' zh-sg:' .. country['zh-sg'] .. '; zh-my:' .. country['zh-sg'] .. ';'
end
if country['zh-hk'] then
strStart = strStart .. ' zh-hk:' .. country['zh-hk'] .. ';'
end
if country['zh-mo'] then
strStart = strStart .. ' zh-mo:' .. country['zh-mo'] .. ';'
end
if country['zh-tw'] then
strStart = strStart .. ' zh-tw:' .. country['zh-tw'] .. ';'
end
local strEnd = '}-'
return strStart .. strEnd
end
local function flagIOC(frame)
-- Implement {{flagIOC}} and {{flagIOC2}} which previously called this module three times.
-- Returns <flag> <country link> <athletes>, with the third value optional
local args = frame.args
local code = stripToNil(args[1]) or error('flagIOC parameter 1 should be a country code')
local games = stripToNil(args[2])
local athletes = stripToNil(args[3])
local lan = stripToNil(args[4])
local altname = stripToNil(args.name)
local parms = {
alias = code,
fullName = games,
year = games:match('^%d+'),
games = games:gsub('^%d+年?', ''),
}
if lan == nil then
lan = frame:callParserFunction{ name = 'int', args = {'Conversionname'} }
end
local temp = linksuffix[lan]
if temp == nil then
lan = 'zh'
end
local single = getSingle(parms)
local lang
if single then
lang = single
else
lang = lan
end
parms.lan = lang
local fullName = countryAlias(parms, frame)
if altname == nil or altname == '' then
if single then
altname = getAllName(parms)
else
altname = fullName
end
end
local year = games:match('^%d+')
games = games:gsub('^%d+年?', '')
games = getGames(games, lang)
if year then
games = year .. '年' .. games
end
parms.flag = true
if yes(args.rt) then
return (('[[{games}{name}{suffix}|{altname}]] [[File:{flag}|22x20px|border|alt=|link=]]')
:gsub('{(%w+)}', {
flag = countryAlias(parms, frame),
games = games,
name = fullName,
suffix = linksuffix[lang],
altname = altname
}))
else
return (('[[File:{flag}|22x20px|border|alt=|link=]] [[{games}{name}{suffix}|{altname}]]{athletes}')
:gsub('{(%w+)}', {
athletes = athletes and
('<span style="font-size:90%;">（' .. athletes .. '）</span>') or
'',
flag = countryAlias(parms, frame),
games = games,
name = fullName,
suffix = linksuffix[lang],
altname = altname
}))
end
end
local function flagIOCathlete(frame)
-- Implement {{flagIOCathlete}}, {{flagIOCmedalist}}, {{flagIOC2athlete}} and {{flagIOC2medalist}} which previously called this module three times.
-- Returns <flag> <athlete/medalist> <country link>
local args = frame.args
local athlete = stripToNil(args[1])
if athlete == nil then
athlete = ''
end
local code = stripToNil(args[2]) or error('flagIOCathlete/medalist parameter 2 should be a country code')
local games = stripToNil(args[3])
local lan = stripToNil(args[4])
local parms = {
alias = code,
fullName = games,
year = games:match('^%d+'),
games = games:gsub('^%d+年?', ''),
}
if lan == nil then
lan = frame:callParserFunction{ name = 'int', args = {'Conversionname'} }
end
local temp = linksuffix[lan]
if temp == nil then
lan = 'zh'
end
local single = getSingle(parms)
local lang
local altname
if single then
lang = single
else
lang = lan
end
parms.lan = lang
local fullName = countryAlias(parms, frame)
if single then
altname = getAllName(parms)
else
altname = fullName
end
local year = games:match('^%d+')
games = games:gsub('^%d+年?', '')
games = getGames(games, lang)
if year then
games = year .. '年' .. games
end
parms.flag = true
if yes(args.medalist) then
return (('{athlete}<br/>[[File:{flag}|22x20px|border|alt=|link=]] [[{games}{name}{suffix}|{altname}]]<span style="font-size:90%;">（{code}）</span>')
:gsub('{(%w+)}', {
flag = countryAlias(parms, frame),
athlete = athlete,
code = code,
games = games,
name = fullName,
suffix = linksuffix[lang],
altname = altname
}))
else
return (('[[File:{flag}|22x20px|border|alt=|link=]] {athlete}<small>（[[{games}{name}{suffix}|{altname}]]）</small>')
:gsub('{(%w+)}', {
flag = countryAlias(parms, frame),
athlete = athlete,
games = games,
name = fullName,
suffix = linksuffix[lang],
altname = altname
}))
end
end
local function main(frame)
return countryAlias(frame.args, frame)
end
local function flagCaption(frame)
local args = frame.args
local alias = getAlias(args)
local country = data.countries[alias] or data.countries[data.countryAliases[alias]]
local function quit(message)
return args.error or error(message)
end
if not country then
return quit('Invalid country alias: ' .. tostring(alias))
end
-- Return name of flag selected from country data (nil if none defined).
local captionsuffix = {
['zh'] = "国旗",
['zh-hans'] = "国旗",
['zh-cn'] = "国旗",
['zh-sg'] = "国旗",
['zh-my'] = "国旗",
['zh-hant'] = "國旗",
['zh-hk'] = "國旗",
['zh-mo'] = "國旗",
['zh-tw'] = "國旗",
}
local year = tonumber(args.year)
local games = stripToNil(args.games)
local fullName = stripToNil(args.fullName)
local name = getName(args, country, frame)
if fullName then
year = tonumber(fullName:match('^%d+')) -- ignore args.year
games = stripToNil(fullName:gsub('^%d+年?', ''))
end
if games then
local gdata = country[games]
if gdata then
if gdata[2] then
return gdata[2]
end
if gdata[year] then
if gdata[year][2] then
return gdata[year][2]
end
end
end
end
for _, item in ipairs(country) do
if type(item) == 'table' and year and year <= item[1] then
if item[3] then
return item[3]
else
break
end
end
end
if country.flagname then
return country.flagname
end
if args.lan == nil then
args.lan = frame:callParserFunction{ name = 'int', args = {'Conversionname'} }
end
local temp = linksuffix[args.lan]
if temp == nil then
args.lan = 'zh'
end
return "[[" .. name .. captionsuffix[args.lan] .. "]]"
end
-- 调用了Module:Ilh判断条目是否存在，注意Module:Ilh提到相关函数需要更好实现
local ilh = require('Module:Ilh')
local function overviewlink(frame)
-- 以后这个可以定义一个linkleft，linkright
-- Returns <country link>
local args = frame.args
local code = stripToNil(args[1]) or error('flagIOC parameter 1 should be a country code')
local games = stripToNil(args[2])
games = games:gsub('^%d+年?', '')
local parms = {
alias = code,
fullName = games,
}
local overview
for key, value in pairs(linksuffix) do
parms.lan = key
local fullName = countryAlias(parms, frame)
local gameName = getGames(games, key)
local link = gameName .. fullName .. value
local isExist = ilh.isExist(link)
if isExist == true then
overview = link
break
end
end
if overview then
return "（[[" .. overview .. "|总结]]）"
else
return ""
end
end
return {
flagIOC = flagIOC,
flagIOCathlete = flagIOCathlete,
flagCaption = flagCaption,
overviewlink = overviewlink,
main = main,
countryAlias2 = countryAlias2,
getGames = getGames,
}