Module:曲师列表

此模块的文档可以在Module:曲师列表/doc创建

-- 模块:曲师列表
-- 数据源: 模板:曲目列表.json (歌曲的 曲师 字段) + 模板:曲师映射.json (显示名/简介/排序键)
-- 结构参照 Arcaea 中文维基 曲师列表: 按名字顺序分节, 每节 = 手工简介 + 作品表
-- 排序: 分组为 符号 → 拉丁字母 → 假名 → 汉字, 组内按名字; 可用映射表 "排序键" 覆盖
local p = {}

local DATA_TITLE = '模板:曲目列表.json'
local validator = require('模块:数据页校验')

local MAP_TITLE = '模板:曲师映射.json'
local INTRO_TITLE = '模板:曲师简介'   -- 手工简介数据页(可编辑 wikitext)

local DIFFS = { 'CASUAL', 'TOUGH', 'INSANE', 'PRO' }

-- 拆词与归一化统一由 模块:署名解析 提供（本模块不再自带一份，避免规则漂移）
local parse = require('模块:署名解析')
local norm = parse.norm

-- ===== 两段式名义表（映射页新结构: 主名义 / 合作名义）=====
-- 新结构下: 署名整串查表 → 归并到主名义; 查不到则原样。旧结构(平表)保持原逻辑，便于平滑切换。
local function buildLookup(data)
	if type(data) ~= 'table' or type(data['主名义']) ~= 'table' then return nil end
	local alias, collab, extra = {}, {}, {}
	for _, m in pairs(data['主名义']) do                     -- 第一趟: 显示名/写法
		if type(m) == 'table' and m['显示名'] then
			local dn = m['显示名']
			extra[parse.norm(dn)] = m
			alias[parse.norm(dn)] = dn
			for _, w in ipairs(m['_写法'] or {}) do alias[parse.norm(w)] = dn end
		end
	end
	for _, m in pairs(data['主名义']) do                     -- 第二趟: 马甲优先（后写覆盖）
		if type(m) == 'table' and m['显示名'] then
			for _, a in ipairs(m['马甲'] or {}) do alias[parse.norm(a)] = m['显示名'] end
		end
	end
	for _, c in pairs(data['合作名义']) do
		if type(c) == 'table' and c['名义'] then
			collab[parse.norm(c['名义'])] = c['组合'] or {}
		end
	end
	return { alias = alias, collab = collab, extra = extra }
end

-- 把一个署名原串解析成归属列表: 合作名义 → 每位成员; 马甲 → 主名义(备注里标出名义); 其余 → 原样
local function attribute(lk, raw)
	if not lk then return nil end
	local key = parse.norm(raw)
	local c = lk.collab[key]
	if c then
		local out = {}
		for _, m in ipairs(c) do out[#out + 1] = { base = m, ann = '', other = c } end
		return out
	end
	local m = lk.alias[key]
	if m then return { { base = m, ann = '名义：' .. raw } } end
	return { { base = raw, ann = '' } }
end

-- ===== 工具 =====
local function esc(s)
	return (tostring(s or ''):gsub('|', '|'))
end

-- 链接目标: # 是 MediaWiki 的锚点分隔符, 标题里一律换成全角 ＃
-- 优先用「链接名」字段; 没有就回退到曲名并自动替换 (与 模块:曲目列表 保持一致)
local function pageName(song, suffix)
	local n = song['链接名'] or song['曲名']
	if suffix then
		n = n .. '（' .. suffix .. '）'
	end
	return (n:gsub('#', '＃'))
end


-- 排序分组: 0=符号/数字 1=拉丁 2=假名 3=汉字 4=其他
local function groupRank(name)
	local cp = mw.ustring.codepoint(name, 1, 1)
	if not cp then return 9 end
	if (cp >= 0x30 and cp <= 0x39) or cp < 0x30 then return 0 end
	if (cp >= 0x41 and cp <= 0x5A) or (cp >= 0x61 and cp <= 0x7A) then return 1 end
	if (cp >= 0x3040 and cp <= 0x30FF) then return 2 end
	if (cp >= 0x3400 and cp <= 0x9FFF) then return 3 end
	return 4
end

local function langWrap(song)
	local lang = song['lang']
	if lang == 'ja' then
		return '{{lang|ja|' .. esc(song['曲名']) .. '}}'
	elseif lang == 'zh-Hant' then
		return '{{lang|zh-Hant|' .. esc(song['曲名']) .. '}}'
	end
	return esc(song['曲名'])
end

local function loadJson(title)
	local t = mw.title.new(title)
	if not t or not t.exists then return nil end
	local ok, data = pcall(mw.text.jsonDecode, t:getContent())
	if not ok then return nil end
	return data
end

-- 解析简介数据页: 每个 == 名字 == 小节为该名字的介绍(wikitext 原样输出)
local function loadIntros()
	local t = mw.title.new(INTRO_TITLE)
	if not t or not t.exists then return {} end
	local content = (t:getContent() or ''):gsub('<noinclude>.-</noinclude>', '')
	local map, cur = {}, nil
	for line in mw.text.gsplit(content, '\n') do
		local h = line:match('^==%s*(.-)%s*==%s*$')
		if h then
			cur = norm(h)
			map[cur] = ''
		elseif cur then
			map[cur] = map[cur] .. line .. '\n'
		end
	end
	for k, v in pairs(map) do
		v = mw.text.trim(v)
		v = v:gsub('<!%-%-.-%-%->', '')   -- 去掉占位注释
		map[k] = mw.text.trim(v)
	end
	return map
end

local function loadSongs()
	local data, err = validator.load(DATA_TITLE)
	if not data then return nil, err end
	return data.songs
end

-- ===== 主渲染 =====
function p.render(frame)
	local songs, songsErr = loadSongs()
	if not songs then
		return songsErr
	end
	local map = loadJson(MAP_TITLE) or {}
	local lk = buildLookup(map)
	local intros = loadIntros()

	-- 归集: key -> { display, intro, sort, songs = { {song=..., ann=...} } }
	local artists, order = {}, {}
	for _, song in ipairs(songs) do
		local raw = song['曲师']
		if type(raw) == 'table' then raw = raw[1] end
		local parts = attribute(lk, raw) or parse.parts(raw)
		local seen = {}
		for _, pt in ipairs(parts) do
			local key = norm(pt.base)
			if key ~= '' and not seen[key] then
				seen[key] = true
				if not artists[key] then
					local m = (lk and lk.extra[key]) or map[key] or {}
					artists[key] = {
						display = m['显示名'] or pt.base,
						intro = (m['简介'] and m['简介'] ~= '') and m['简介']
							or intros[key] or intros[norm(m['显示名'] or pt.base)] or '',
						sort = m['排序键'] or '',
						songs = {},
					}
					table.insert(order, key)
				end
				table.insert(artists[key].songs, { song = song, ann = pt.ann, base = pt.base })
			end
		end
	end

	local function sortKey(key)
		local a = artists[key]
		if a.sort ~= '' then return '0' .. a.sort end
		return string.format('%d_%s', groupRank(a.display), mw.ustring.lower(a.display))
	end
	table.sort(order, function(x, y) return sortKey(x) < sortKey(y) end)

	local out = {}
	table.insert(out, "'''曲师列表'''：本列表按名字顺序整理了参与游戏曲目制作的曲师及其作品。")
	table.insert(out, '若某首歌曲由多人合作完成，会分别列在每位曲师的条目下；'
		.. '同一人的不同写法（含马甲）统一列在最常见的名称之下。')
	table.insert(out, '曲包与曲目一览见[[曲目列表]]与[[曲包列表]]。\n')

	for _, key in ipairs(order) do
		local a = artists[key]
		table.insert(out, '\n==' .. esc(a.display) .. '==')
		-- 曲目数实时统计（替代此前映射表里无法维护的 _曲目数）
		table.insert(out, '<div style="font-size:92%;color:#555">共 ' .. "'''" .. #a.songs .. "'''" .. ' 首曲目</div>')
		if a.intro ~= '' then
			table.insert(out, a.intro)
		end
		table.insert(out, '{| class="wikitable sortable" style="width:100%"')
		table.insert(out, '! 曲目名称 !! 时长 !! BPM !! 曲包 !! 备注')
		for _, item in ipairs(a.songs) do
			local s = item.song
			-- 备注: 合作者 + 括号注释
			local notes = {}
			local rawS = type(s['曲师']) == 'table' and s['曲师'][1] or s['曲师']
			local allParts = parse.parts(rawS)
			for _, pt in ipairs(allParts) do
				if norm(pt.base) ~= key then table.insert(notes, pt.base) end
			end
			local note = ''
			if #notes > 0 then note = '与 ' .. table.concat(notes, '、') .. ' 合作' end
			if item.ann ~= '' and item.ann ~= nil then
				note = (note ~= '' and (note .. '；') or '') .. item.ann
			end
			table.insert(out, '|-')
			table.insert(out, '| [[' .. '曲目:' .. esc(pageName(s)) .. '|' .. langWrap(s) .. ']] || '
				.. esc(s['时长'] or '') .. ' || ' .. esc(s['BPM'] or '') .. ' || '
				.. '[[' .. '曲包列表#' .. esc(s['曲包'] or '') .. '|' .. esc(s['曲包'] or '') .. ']] || '
				.. esc(note))
		end
		table.insert(out, '|}')
	end

	table.insert(out, '\n[[Category:曲师]]')
	return frame:preprocess(table.concat(out, '\n'))
end

return p