查看“模块:Lyrics/multi”的源代码

local p = {}

local getArgs = require("Module:Arguments").getArgs
local lang = require("Module:Lang")
local errmsg = require("Module:Error")
local lrcmod = require("Module:Lyrics/colors")

local getCharaBlock = require("Module:Lyrics/colors/sub")._charaBlock

local showErrorMessage = function(msg, args)
    if args.errMsg ~= "off" then
        return errmsg.error{ message = msg }
    end
end

local ce_cache = {}
local apply_ce = function(text)
	text = mw.ustring.gsub(text, '%$([%d%$%[@])', function(s)
		if not ce_cache[s] then ce_cache[s] = mw.getCurrentFrame():expandTemplate{ title = 'ce', args = {s} } end
		return ce_cache[s]
	end)
	text = mw.ustring.gsub(text, '@%[([^%[]-)%]', function(match) return '@' .. (customArgs.map_aliases[match] and customArgs.map_aliases[match] or '['..match..']') end)
	return text
end

function p._lyrics(args)
    ------------------------ 处理参数 ------------------------
    local colorsMode = args.colorsMode == "on" -- 是否开启彩色显示开关。
    
    local colors, map_aliases, charas = lrcmod.parseArgs(args.colors or '', args.charas or '', args.charaBlock)
    
    local versions = {}
    for k, v in pairs(args) do
        if type(k) == "number" then
            local def = mw.text.trim(mw.ustring.gsub(v or "", "\n", "")) -- 删除名称定义语句中的所有换行及首尾空白字符。
            local key, aliases = mw.ustring.match(def, "^([^%[]*)%[([^%]]*)%]$") -- 匹配名称和缩写列表。
            if key == nil then
                if mw.ustring.find(def, "[%[%]]") then -- 有意定义缩写列表，因此为格式错误。
                    if args.errMsg ~= "off" then
                        return errmsg.error{ message = mw.ustring.format("格式错误：第%d个名称定义语句“%s”中括号“[”和“]”不配对。", k, v) }
                    end
                else
                    key = def -- 无意定义缩写列表，将整个字符串视为名称。
                end
            end
            key = mw.text.trim(key) -- 去除首尾空白字符。
            if key == "" then
                if args.errMsg ~= "off" then
                    return errmsg.error{ message = mw.ustring.format("格式错误：在第%d个名称定义语句“%s”中未找到名称或者全部为空白字符。", k, v) }
                end
            else
                -- 获取所有缩写名称
                local inter = mw.text.gsplit(aliases or "", ",")
                aliases = {}
                for alias in inter do
                    alias = mw.text.trim(alias)
                    if alias ~= "" and aliases[alias] == nil then
                        table.insert(aliases, alias)
                        aliases[alias] = true
                    end
                end
                
                -- 获取名称及缩写对应参数值的通用函数。
                local getParam = function(postfix)
                    local temp = args[key..postfix] -- 以名称优先。
                    if mw.text.trim(temp or "") == "" then -- 名称对应参数不存在，则按顺序检查缩写对应参数。
                        temp = nil
                        for _, alias in ipairs(aliases) do
                            if mw.text.trim(args[alias..postfix] or "") ~= "" then -- 这个缩写对应的参数符合条件。
                                if temp ~= nil then -- 已有符合条件的对应参数。
                                    if args.errMsg ~= "off" then
                                        return false, errmsg.error{ message = mw.ustring.format("检测到重复的参数“%s”和“%s”，它们使用的名称缩写“%s”和“%s”都表示“%s”。", temp..postfix, alias..postfix, temp, alias, key) }
                                    end
                                    --temp = alias -- 顺序后的覆盖顺序前的。
                                end
                                temp = alias
                            end
                        end
                        if temp ~= nil then
                            temp = args[temp..postfix]
                        end
                    end
                    return true, temp
                end
                
                local success, result
                -- 获取语言代码。
                success, result = getParam("lang")
                if not success then
                    return result
                end
                local lang = result
                
                -- 获取自定义样式。
                success, result = getParam("style")
                if not success then
                    return result
                end
                local style = result
                
                -- 获取歌词的所有行。
                local lines = mw.text.split(apply_ce(args[key] or ""):match("^(.-)%s*$"), "\n")
                if colorsMode then -- 开启颜色模式。
                    -- 检查该列是否需要颜色处理。
                    success, result = getParam("Colors")
                    if not success then
                        return result
                    end
                    -- 默认第一列需要颜色处理。
                    if #versions == 0 then
                        result = result or "on"
                        lines = lrcmod.parse(colors, charas, args.chorusName or '', lines)
                    elseif result == "on" then
                        -- 解析颜色歌词。
                        lines = lrcmod.parse(colors, charas, args.chorusName or '', lines)
                    end
                end
                
                -- 将每一个翻译版本创建成项。
                if args[key] ~= nil then
                    table.insert(versions, key)
                    local entry = {
                        lines = lines,
                        lang = lang,
                        style = style
                    }
                    if #versions == 1 then entry.lang = entry.lang or "ja" -- 默认第一列时日文。
                    else entry.lang = entry.lang or "zh" -- 默认第二列时中文。
                    end
                    
                    versions[key] = entry
                end
            end
        end
    end
    
    ------------------------ 核心代码 ------------------------
    local html = mw.html.create("div")
        :addClass("Lyrics")
        :css("width", args.width)
        :cssText(args.containerstyle)
    
    -- 检查任何一列歌词是否包含ruby。
    if mw.text.trim(args.hasRuby or "") ~= "" then
        html:addClass("Lyrics-has-ruby")
    else
        local hasRuby = false
        for i = 1, #versions do
            if args[versions[i]]:find("<ruby") then
                hasRuby = true
                break
            end
        end
        
        if hasRuby then
            html:addClass("Lyrics-has-ruby")
        else
            html:addClass("Lyrics-no-ruby")
        end
    end

    -- 创建charaBlock。
    if args.charaBlock == "on" then
        html:tag("p"):node(getCharaBlock{
            colors = args.colors,
            charas = args.charas,
            groupName = args.groupName,
            groupColor = versions[versions[1]].style -- 默认为第1列的样式
        })
    end

    local len = 0 -- 行数的最大值
    for i = 1, #versions do
        len = math.max(len, #(versions[versions[i]].lines))
    end

    for line = 1, len do
        local div = html:tag("div"):addClass("Lyrics-line")
        
        local emptyline = true -- 是否为空行。
        for i = 1, #versions do
            if (versions[versions[i]].lines[line] or "") ~= "" then
                emptyline = false
            end
        end
        if emptyline then
            div:tag("div")
                :attr("data-column", 1) -- 当前的列编号。
                :attr("data-column-count", 1) -- 列的总数。
                :addClass("Lyrics-column") -- 通用列样式。
                :newline()
        else
            for i = 1, #versions do
                local entry = versions[versions[i]]
                local nlang = lang.wrap(entry.lines[line] or "", entry.lang)
                div:tag("div")
                    :attr("data-column", i) -- 当前的列编号。
                    :attr("data-column-count", #versions) -- 列的总数。
                    :addClass("Lyrics-column") -- 通用列样式。
                    :addClass("Lyrics-column-"..entry.lang) -- 针对语言的样式。
                    :addClass("Lyrics-col"..tostring(i)) -- 针对特定列的样式。
                    :addClass("Lyrics-column-suppressed") -- 宽屏时压缩在一行内的列的样式。
                    :cssText(entry.style)
                    :css("width", "calc(95% / "..tostring(#versions)..")") -- 在一行内放下所有列。
                    :node(nlang)
                div:tag("div")
                    :attr("data-column", i) -- 当前的列编号。
                    :attr("data-column-count", #versions) -- 列的总数。
                    :addClass("Lyrics-column") -- 通用列样式。
                    :addClass("Lyrics-column-"..entry.lang) -- 针对语言的样式。
                    :addClass("Lyrics-col"..tostring(i)) -- 针对特定列的样式。
                    :addClass("Lyrics-column-wrapped") -- 窄屏时拆分为多行的列的样式。
                    :cssText(entry.style)
                    :node(nlang)
            end
        end
    end

    -- Clear the floating
    html:tag("div"):css("clear", "both")

    local css = mw.getCurrentFrame():extensionTag{ name = "templatestyles", args = { src = "Template:LyricsKai/multi/styles.css" } }
    
    return css .. tostring(html)
end

function p.lyrics(frame)
    local args = getArgs(frame, { wrappers = "Template:LyricsKai/multi" })
    return p._lyrics(args)
end

return p