模組:沙盒/Eflyjason/地区用词

模块文档[创建]

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