模块:Quote

当前模块文档缺失，需要扩充。

local p = {}

-- 缓存全局变量以减少重复调用
local quoteLast = ""

-- 内部函数：分割引文文本（高度优化版本）
local function splitQuote(text)
    -- 快速检查：如果文本为空，返回空结果
    if not text or text == "" then
        return "", ""
    end

    -- 使用更高效的方式：先找第一个冒号，再检查是否有第二个
    local firstColonPos = mw.ustring.find(text, "：")
    if not firstColonPos then
        return "", text  -- 没有冒号，整个文本作为引文内容
    end

    -- 检查是否有第二个冒号（从第一个冒号之后开始查找）
    local secondColonPos = mw.ustring.find(text, "：", firstColonPos + 1)
    if secondColonPos then
        return "", text  -- 有多个冒号，整个文本作为引文内容
    end

    -- 现在确定只有一个冒号，检查冒号前面是否有中文逗号或中文句号
    local beforeColon = mw.ustring.sub(text, 1, firstColonPos - 1)
    if mw.ustring.find(beforeColon, "[，。]") then
        return "", text  -- 不符合条件，整个文本作为引文内容
    end

    -- 分割文本
    local afterColon = mw.ustring.sub(text, firstColonPos + 1)

    -- 处理特例：'''123：'''456 格式和星号开头（优化：对ASCII字符使用string函数）
    -- 检查开头是否为ASCII字符（单引号或星号）
    if afterColon:sub(1, 1) == "'" then
        -- 检查是否为三个单引号
        if afterColon:sub(1, 3) == "'''" then
            -- 移除冒号后的三个单引号，在冒号前添加三个单引号
            afterColon = afterColon:sub(4)
            beforeColon = beforeColon .. "'''"
        end
    elseif afterColon:sub(1, 1) == "*" then
        -- 处理冒号后文本开头的星号
        afterColon = "<span>*</span>" .. afterColon:sub(2)
    end

    return beforeColon, afterColon
end

-- 主要的 squote 函数，处理整个引文模板逻辑（高度优化版本）
function p.squote(frame)
    local text = frame.args[1] or "引文"
    local source = frame.args[2] or ""
    local textStyle = frame.args.text or ""

    -- 分割引文
    local quoteBefore, quoteAfter = splitQuote(text)

    -- 检查是否需要清除说话人名称（使用缓存的变量，避免重复调用）
    local shouldClearBefore = false
    if quoteBefore ~= "" and quoteBefore == quoteLast then
        -- 检查引文内容是否包含性别标记（优化：使用普通字符串查找）
        local afterText = quoteAfter
        if not (afterText:find("（男）", 1, true) or afterText:find("（女）", 1, true)) then
            shouldClearBefore = true
        end
    end

    -- 预计算样式类名（避免重复字符串拼接）
    local textClass = textStyle == "english" and "squotetextenglish" or "squotetext"
    local sourceClass = textStyle == "english" and "quotesourceenglish" or "quotesource"

    -- 构建HTML结果（使用字符串拼接，减少函数调用开销）
    local html = '<table class="quotetable"><tr><td rowspan="2" class="decorativesquote"></td><td class="' .. textClass .. '">'

    -- 添加说话人和引文内容
    if quoteBefore ~= "" and not shouldClearBefore then
        html = html .. quoteBefore .. '：'
        -- 更新缓存的说话人
        quoteLast = quoteBefore
        -- 只在必要时设置全局变量（这是最大的性能瓶颈）
        frame:callParserFunction('#vardefine', {'quote_last', quoteBefore})
    end

    -- 添加引文内容
    html = html .. '“'
    if quoteAfter ~= "" then
        html = html .. quoteAfter
    else
        html = html .. text -- 如果没有成功分割，使用原文本
    end
    html = html .. '”</td></tr>'

    -- 添加来源行（如果提供了来源）
    if source ~= "" then
        html = html .. '<tr><td class="' .. sourceClass .. '">&mdash; ' .. source .. '</td></tr>'
    end

    html = html .. '</table>'

    return html
end

return p