local p = {}
local variants = {
cn = 'hans',
hk = 'hant',
mo = 'hant',
-- my = 'hans',
sg = 'hans',
tw = 'hant',
}
local lc = require( 'Module:WikitextLC' )
function p.main( frame )
local debuglog=""
local args = frame.args
local values = {}
local terms = {}
for region, defaultScript in pairs( variants ) do
if args['zh-hans-' .. region] ~= '' or args['zh-hant-' .. region] ~= '' or args['zh-' .. region] ~= '' then
local term = { regions = { region } }
if args['zh-hans-' .. region] ~= '' then
term.hans = args['zh-hans-' .. region]
elseif args['zh-' .. region] ~= '' then
term.hans = lc.converted( args['zh-' .. region], 'zh-hans' )
else
term.hans = lc.converted( args['zh-hant-' .. region], 'zh-hans' )
end
if args['zh-hant-' .. region] ~= '' then
term.hant = args['zh-hant-' .. region]
elseif args['zh-' .. region] ~= '' then
term.hant = lc.converted( args['zh-' .. region], 'zh-hant' )
else
term.hant = lc.converted( args['zh-hans-' .. region], 'zh-hant' )
end
table.insert( terms, term )
values[region] = { script = defaultScript, term = #terms }
end
end
debuglog = debuglog .. "values=" .. mw.dumpObject(values)
for region, defaultScript in pairs( variants ) do
if values[region] == nil and values[args['equiv-' .. region]] ~= nil then
table.insert( terms[values[args['equiv-' .. region]].term].regions, region )
values[region] = { script = defaultScript, term = values[args['equiv-' .. region]].term }
end
end
debuglog = debuglog .. "values=" .. mw.dumpObject(values)
local localName = {}
for region, value in pairs( values ) do
localName['zh-' .. region] = terms[value.term][value.script]
end
localName = args.beforeTerm .. lc.selective( localName ) .. args.afterTerm
debuglog = debuglog .. "localName=" .. mw.dumpObject(localName)
local foreignName = {}
for region, script in pairs( variants ) do
local snippets = {}
for _, term in pairs( terms ) do
local termRegions = {}
for _, termRegion in pairs( term.regions ) do
if not args.stripLocal or args.stripLocal == '' or termRegion ~= region then
table.insert( termRegions, termRegion )
end
end
if #termRegions > 0 then
table.sort( termRegions )
local maybeNameKey = 'name-' .. table.concat( termRegions, '-' )
local name
if args[maybeNameKey] and args[maybeNameKey] ~= '' then
name = args[maybeNameKey]
else
local names = {}
for _, termRegion in pairs( termRegions ) do
table.insert( names, args['name-' .. termRegion] )
end
name = mw.text.listToText( names, args.nameComma, args.nameLastComma )
end
name = lc.converted( name .. args.colon, 'zh-' .. region )
table.insert( snippets, name .. args.beforeTerm .. term[script] .. args.afterTerm )
end
end
foreignNameText = mw.text.listToText( snippets, lc.converted( args.comma, 'zh-' .. region ), lc.converted( args.lastComma, 'zh-' .. region ) )
if foreignNameText ~= '' then
local openBracket = ""
local closeBracket = ""
if args.showLocal and args.showLocal ~= 'no' then
openBracket = lc.converted( args.openBracket, 'zh-' .. region )
closeBracket = lc.converted( args.closeBracket, 'zh-' .. region )
end
foreignNameText = openBracket .. foreignNameText .. closeBracket
end
foreignName['zh-' .. region] = foreignNameText
end
foreignName = lc.selective( foreignName )
debuglog = debuglog .. "foreignName=" .. mw.dumpObject(foreignName)
ret = ''
if args.showLocal and args.showLocal ~= 'no' then
ret = ret .. localName
end
if args.showForeign and args.showForeign ~= 'no' then
ret = ret .. foreignName
end
return ret..debuglog
end
return p
