模組:Nihongo title

local p = {}

local getArgs = require('Module:Arguments').getArgs
local yesno = require('Module:Yesno')

local function varCase(t)
	local case = 'CHT'
	
	if t.cn == '' or t.tw == '' then
		case = ''
	
	elseif t.hk == '' or t.hk == 'tw' or t.hk == t.tw then
		case = 'CTT'

	elseif t.hk == 'cn' or t.hk == t.cn then
		case = 'CCT'

	elseif t.tw == 'cn' or t.tw == t.cn then
		case = 'CHC'

	elseif t.cn == 'tw' or t.cn == t.tw then
		case = 'THT'
	end
	
	return case
end

local function chi(t)
	local ret = ''
	local _list = {}
	local case = varCase(t)
	
	local list = {
		{'C', "中國大陸", t.cn},
		{'H', "香港", t.hk},
		{'T', "臺灣", t.tw},
		{'CH', "中國大陸和香港", t.cn},
		{'HT', "香港和臺灣", t.tw},
		{'CT', "中國大陸和臺灣", t.cn},
		{'CT2', "中國大陸和臺灣", t.tw},
	}
	local varTag = {}

		
	for i, v in ipairs(list) do
		if v[3] == "en" then
			varTag[v[1]] = v[2] .. "使用英文"
		else
			varTag[v[1]] = v[2] .. "譯作“<b>" .. v[3] .. '</b>”'
		end
	end

	local function gen(a)
		local listVar = { '', '-hans', '-hant', '-cn', '-hk', '-mo', '-sg', '-tw', }
		local r = '-{ '
		for i, v in ipairs(listVar) do
			r = r .. 'zh' .. v .. ':-{zh; zh-hans; zh-hant;|' .. a[i] ..  '}-; '
		end
		r = r .. '}-'
		
		return r
	end
	
	if case == '' then
 		return ''
	elseif case == 'CHT' then
		_list = { 
			varTag.C .. '，' ..  varTag.H .. '，' ..  varTag.T, -- zh
			varTag.C .. '，' ..  varTag.H .. '，' ..  varTag.T, -- zh-hans
			varTag.C .. '，' ..  varTag.H .. '，' ..  varTag.T, -- zh-hant
			varTag.H .. '，' ..  varTag.T, -- zh-cn
			varTag.C .. '，' .. varTag.T, -- zh-hk
			varTag.C .. '，' .. varTag.T, -- zh-mo
			varTag.C .. '，' ..  varTag.H .. '，' ..  varTag.T, -- zh-sg
			varTag.C .. '，' ..  varTag.H -- zh-tw
		}
		
	elseif case == 'CTT' then
		_list = { 
			varTag.C .. '，' ..  varTag.HT, -- zh
			varTag.C .. '，' ..  varTag.HT, -- zh-hans
			varTag.C .. '，' ..  varTag.HT, -- zh-hant
			varTag.HT, -- zh-cn
			varTag.C, -- zh-hk
			varTag.C, -- zh-mo
			varTag.C .. '，' ..  varTag.HT, -- zh-sg
			varTag.C -- zh-tw
		}
				
	elseif case == 'CCT' then
		_list = { 
			varTag.CH .. '，' ..  varTag.T, -- zh
			varTag.CH .. '，' ..  varTag.T, -- zh-hans
			varTag.CH .. '，' ..  varTag.T, -- zh-hant
			varTag.T, -- zh-cn
			varTag.T, -- zh-hk
			varTag.T, -- zh-mo
			varTag.CH .. '，' ..  varTag.T, -- zh-sg
			varTag.CH -- zh-tw
		}
	
	elseif case == 'CHC' then
		_list = { 
			varTag.CT .. '，' ..  varTag.H, -- zh
			varTag.CT .. '，' ..  varTag.H, -- zh-hans
			varTag.CT .. '，' ..  varTag.H, -- zh-hant
			varTag.H, -- zh-cn
			varTag.CT, -- zh-hk
			varTag.CT, -- zh-mo
			varTag.CT .. '，' ..  varTag.H, -- zh-sg
			varTag.H -- zh-tw
		}	

	elseif case == 'THT' then
		_list = { 
			varTag.CT2 .. '，' ..  varTag.H, -- zh
			varTag.CT2 .. '，' ..  varTag.H, -- zh-hans
			varTag.CT2 .. '，' ..  varTag.H, -- zh-hant
			varTag.H, -- zh-cn
			varTag.CT2, -- zh-hk
			varTag.CT2, -- zh-mo
			varTag.CT2 .. '，' ..  varTag.H, -- zh-sg
			varTag.H -- zh-tw
		}
	end
	
	return gen(_list)
end

local function link(cont)

	if yesno(_link, true) then
		if yesno(_lead) then
			cont = '[[' .. cont .. ']]'
		end
		cont = cont .. '：'
	else
		cont = ''
	end

	return cont

end

function p.nihongo_title(frame)
	
	local ret 
	local _ret
	
	local args = getArgs(frame, {
		frameOnly= true;
		valueFunc = function (key, value)
			if value == nil and value ~= 'no' then 
				return ''
			else
				return value
			end
		end;
	})
	
	_link = args.link
	_lead = args.lead

	if args[1] ~= '' and args[2] ~= '' then
		
		ret = '《<b>' .. args[1] .. '</b>》' .. '<span style="font-weight: normal">（' .. link('日語') .. '<span lang="ja" xml:lang="ja">-{' .. args[2] .. '}-</span>'
		
		if args[3] ~= '' then
			
			ret = ret .. '，' .. link('英語') .. '<span lang="en" xml:lang="en">-{<i>' .. args[3] .. '</i>}-</span>'
			
		end
		
		if args.cn ~= '' and args.tw ~= '' then
			
			ret = ret .. '，' .. chi(args)
			
		end
		
		if args[4] ~= '' then
			
			ret = ret .. '，' .. args[4]
			
		end
		
		ret = ret .. '）'
		
		if args[5] ~= '' then
			
			ret = ret .. '　' .. args[5]
			
		end
		
		ret = ret .. '</span>'
	end
	

	return ret
	
end
	
return p