模組:Vgname/sandbox

require('Module:No globals')

local getArgs = require('Module:Arguments').getArgs
local yesno = require('Module:Yesno')
local lc = require('Module:WikitextLC')
local regions = mw.loadData('Module:Vgname/languages')

--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------

-- 中文變种列表
local variants = {
	{'cn'; simp = '中国大陆', trad = '中國大陸'; script = 'hans' },
	{'hk'; simp = '香港',     trad = '香港';     script = 'hant' },
	{'mo'; simp = '澳门',     trad = '澳門';     script = 'hant' },
	{'my'; simp = '马来西亚', trad = '馬來西亞'; script = 'hans' },
	{'sg'; simp = '新加坡',   trad = '新加坡';   script = 'hans' },
	{'tw'; simp = '台湾',     trad = '臺灣';     script = 'hant' },
}

-- 分割文字和<ref>標籤（泛用）
local function splitRef(str)
	local refPattern = '\127\'"`UNIQ%-%-[Rr][Ee][Ff]%-%x+%-QINU`"\'\127' -- [[:w:en:WP:UNIQ]]
	local text, ref = '', ''
	str = str or ''
	
	local s, _ = str:find(refPattern)
	if s then
		text, ref = str:sub(1, s-1), str:sub(s)
	else
		text = str
	end

	return text, ref
end

-- 加粗（用于标题组、各译名组）
local function boldText(args, str)
	local isBold = true
	str = str or ''

	if yesno(args.bold) == false then
		isBold = false
	end

	if isBold == true then
		str = "'''" .. str .. "'''"
	end
	
	return str
end

-- 文字套書名號或引號（用于标题组、各译名组）
local function bracketText(args, str, prefix, suffix)
	local bracketType = (args.bracketType == nil) and "" or args.bracketType
	
	if prefix and suffix then
		-- nothing to do
	elseif mw.ustring.lower(bracketType) == 'q' then -- 'q'爲了引號（quotation marks）
		prefix, suffix = '「', '」'
	elseif mw.ustring.lower(bracketType) == 's' then -- 's'爲了單書名號（single book title marks）
		prefix, suffix = '〈', '〉'
	elseif yesno(bracketType) == false then
		prefix, suffix = '', ''
	else
		prefix, suffix = "《", "》"
	end
	
	return prefix .. str .. suffix
end

-- 判定外语标签模式（用于原文名组、英文名组）
local function getLanguageLabelMode(args)
	local mode = 'same'
	
	if yesno(args.label) == true then
		mode = 'none'
	elseif yesno(args.diff) == true then
		mode = 'diff'
	elseif args.na or args.eu or args.au then
		mode = 'diff'
	end
	
	return mode
end

-- 斜体（用于原文名组、英文名组）
local function italicText(args, str, languageUsesItalic)
	local isItalic = false
	str = str or ''
	
	if yesno(args.italic) == false then
		isItalic = false
	elseif yesno(languageUsesItalic) == true then
		isItalic = true
	end
	
	if isItalic == true then
		str = "''" .. str .. "''"
	end
	
	return str
end

-- 语言变种继承（用于主译名组）
local variantsFallback = {
	['cn'] = { 'sg', 'my' },
	['hk'] = { 'mo', 'tw' },
	['mo'] = { 'hk', 'tw' },
	['my'] = { 'sg', 'cn' },
	['sg'] = { 'my', 'cn' },
	['tw'] = { 'hk', 'mo' },
}

--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------

-- 标题组
local function title(args)
	local title, ref = splitRef(args[1])
	
	title = boldText(args, title)
	title = bracketText(args, title, args["bracket-left"], args["bracket-right"])
	
	return title .. ref
end

-- 原文名组
local function original(args)
	local returnStr = ''
	local title, ref, titleLatin, refLatin = '', '', '', ''
	local language
	
	-- 检查原文名字段
	for _, v in ipairs(regions) do
		if args[v.langcode] then
			language = v
			break
		end
	end
	
	-- 若没有检测到原文名参数，则函数返回空字串
	if language then
		local t = mw.text.split(args[language.langcode], '，')
		title, ref = splitRef(t[1])
		titleLatin, refLatin = splitRef(t[2])
	else
		return ''
	end
	
	-- 加入原文名标签
	
	if getLanguageLabelMode(args) ~= 'none' then
		returnStr = language[getLanguageLabelMode(args)] .. '：'
	end
	
	-- 加入原文名及脚注
	title = mw.ustring.format('<span lang="%s"%s>-{%s}-</span>',
				language.langcode,
				(language.dir) == 'rtl' and ' dir="rtl"' or '',
				italicText(args, title, language.italic)
			)
	returnStr = returnStr .. title .. ref
	
	-- 加入原文名的拉丁字母写法及脚注（多用于日韩文游戏）
	if titleLatin ~= '' then
		titleLatin = mw.ustring.format('<span lang="%s">-{%s}-</span>', language.langcode, titleLatin)
		returnStr = returnStr .. '，' .. titleLatin .. refLatin
	end
	
	-- 此两参数用于除错，不在模板说明文档中介绍
	if args['original-before'] then
		returnStr = args['original-before'] .. returnStr
	end
	
	if args['original-after'] then
		returnStr = returnStr .. args['original-after']
	end 
	
	-- 告一段落
	return returnStr
end


-- 英文名组
local function englishes(args)
	local returnStr = ''
	
	-- 处理北美、欧洲、澳洲版名
	-- 澳洲版（au）名为除错用，不在模板说明文档中介绍
	for _, v in ipairs{'na', 'eu', 'au'} do
		if args[v] then
			returnStr = (returnStr == '') and '' or (returnStr .. '，')
			local title, ref = splitRef(args[v])
			
			if getLanguageLabelMode(args) ~= 'none' then
				returnStr = returnStr .. regions[v][getLanguageLabelMode(args)] .. '：'
			end
			
			title = mw.ustring.format('<span lang="%s"%s>-{%s}-</span>',
				regions[v].langcode,
				(regions[v].dir) == 'rtl' and ' dir="rtl"' or '',
				italicText(args, title, regions[v].italic)
			)
			
			returnStr = returnStr .. title .. ref
		end
	end
	
	-- 如果没有填北美、欧洲、澳洲版名……
	if (returnStr == '') and (args.en) then
		local title, ref = splitRef(args.en)
		
		if getLanguageLabelMode(args) ~= 'none' then
			returnStr = regions.en[getLanguageLabelMode(args)] .. '：'
		end
		
		title = mw.ustring.format('<span lang="%s"%s>-{%s}-</span>',
			regions.en.langcode,
			(regions.en.dir) == 'rtl' and ' dir="rtl"' or '',
			italicText(args, title, regions.en.italic)
		)
		
		returnStr = returnStr .. title .. ref
	end
	
	-- 此两参数用于除错，不在模板说明文档中介绍
	if args['englishes-before'] then
		returnStr = args['englishes-before'] .. returnStr
	end
	
	if args['englishes-after'] then
		returnStr = returnStr .. args['englishes-after']
	end 

	return returnStr
end

-- 中文译名主组
local function translations(args)
	local returnStr = ''

	local translationArray, availableVartiants = {}, ''
	for _, v in ipairs(variants) do
		if args[v[1]] then
			translationArray[v[1]] = args[v[1]]
			availableVartiants = availableVartiants .. v[1]
		end
	end

end


--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------

local p = {}

function p.vgname(frame)
	local args = getArgs(frame)
	return p._vgname(args)
end

function p._vgname(args)
	local args = args
	return translations(args)
end

return p