模組:PatternedCandidateUtils/sandbox

这是Module:PatternedCandidateUtils（差异）的沙盒。
参见本模块的测试样例。
--[=[

  已知以下幾種情況會導致錯誤，但是我們可以善意地認為沒有人會故意這樣做：

  1. 只有一個標題，後面沒有文字（或者是緊接著下一個標題）
  2. <nowiki>
     ...
     == aaa ==
     ...
     </nowiki>
  3. 放一個大小寫混用的HTML標籤  // Special:Redirect/revision/43073725 真的有人故意这么做
  4. 在標題中使用<ref>
  5. 標題沒有文字
  6. 标题中使用了[[User:Example|{{^}}]]这样的变态链接
  7. 標題位於模板內部

  還有
  1. 没有人连续使用标题
  2. 大家都会空行
 
 當然Flow也不適用
]=]--

local z = {}
local HTMLTAGS = {'b', '[Bb][Ii][Gg]', 'blockquote', 'br', 'caption', 'center', 'code', 'del', 'div', 'em', 'font', 'i', 'kbd', 'mark', 'p', 'q', 'rp', 'rt', 'ruby', 's', 'small', 'span', 'strong', 'sub', 'sup', 'time', 'tt',
'B', 'BLOCKQUOTE', 'BR', 'CAPTION', 'CENTER', 'CODE', 'DEL', 'DIV', 'EM', 'FONT', 'I', 'KBD', 'MARK', 'P', 'Q', 'RP', 'RT', 'RUBY', 'S', 'SMALL', 'SPAN', 'STRONG', 'SUB', 'SUP', 'TIME', 'TT'
}

local function getCandidates( frame )
    -- 检查 frame 和 frame.args 是否存在
    if not frame or not frame.args or not frame.args.title or not frame.args.pattern then
        mw.log("PatternedCandidateUtils:getCandidates - Error: frame, frame.args, title, or pattern is nil.")
        if frame and frame.args and not frame.args.title then
             mw.log("PatternedCandidateUtils: Missing title argument.")
        end
        if frame and frame.args and not frame.args.pattern then
             mw.log("PatternedCandidateUtils: Missing pattern argument.")
        end
        return {} -- 返回空表以防止进一步错误
    end

    local page_content
    -- 添加对 title 对象的检查
    local title_obj = mw.title.new( frame.args.title )
    if not title_obj then
        -- 可以选择记录错误或返回空，这里返回空以避免下游错误
        mw.log("PatternedCandidateUtils: Invalid title provided: " .. tostring(frame.args.title))
        return {}
    end

    page_content = title_obj:getContent()
    if not page_content then
        -- 标题有效但页面可能不存在或无内容
        -- 某些情况下，如新条目推荐列表页本身，这可能是正常的（例如，如果列表页为空）
        -- 但如果期望有内容而没有，这也是一个问题。
        -- mw.log("PatternedCandidateUtils: No content for title: " .. tostring(frame.args.title))
        return {} -- 如果页面无内容，则没有候选者
    end

    local matches = {}
    local black = {}
    if frame.args.black then
        for b in mw.text.gsplit( frame.args.black, '|', true ) do
            if type(b) == "string" and b ~= "" then -- 确保 b 是非空字符串
                 black[b] = true
            end
        end
    end

    -- 确保 pattern 是字符串
    if type(frame.args.pattern) ~= "string" then
        mw.log("PatternedCandidateUtils: Pattern is not a string: " .. tostring(frame.args.pattern))
        return {}
    end

    for m in mw.ustring.gmatch( page_content, frame.args.pattern ) do
        if not black[m] and not ( frame.args.blackregex and type(frame.args.blackregex) == "string" and mw.ustring.match( m, frame.args.blackregex ) ) then
            table.insert( matches, m )
        end
    end
    return matches
end

function z.count( frame )
    return #getCandidates( frame )
end

local function encodetitle( frame, text )
	-- 该函数将标题转化为锚点文字
	frame=frame or mw.getCurrentFrame()
    local r = text

    -- 提取<nowiki>和<pre>內容
    local nowikis = {}
    local extract = function (s)
        nowikis[#nowikis+1] = s
        return '__NOWIKI_UNIT_' .. #nowikis
    end
    r = string.gsub(r, '<[Nn][Oo][Ww][Ii][Kk][Ii]>(.-)</[Nn][Oo][Ww][Ii][Kk][Ii]>', extract)
    r = string.gsub(r, '<pre>(.-)</pre>', extract)

    -- 解析wikitext
    r = frame:preprocess(r)

    -- 粗體與斜體
    r = string.gsub(r, "'''''(.-)'''''", '%1')
    r = string.gsub(r, "'''(.-)'''", '%1')
    r = string.gsub(r, "''(.-)''", '%1')

    -- 去除圖片
    r = string.gsub(r, '%[%[[Ff]ile:(.-)%]%]', '')
    r = string.gsub(r, '%[%[[Ii]mage:(.-)%]%]', '')
    r = string.gsub(r, '%[%[文件:(.-)%]%]', '')
    r = string.gsub(r, '%[%[檔案:(.-)%]%]', '')

    -- 去除分类
    r = string.gsub(r, '%[%[[Cc]ategory:(.-)%]%]', '')
    r = string.gsub(r, '%[%[分类:(.-)%]%]', '')

    -- 去除ref和math等標籤
    r = mw.text.killMarkers(r)

    -- 展開連結
    r = string.gsub(r, '%[%[[^%]]-%|(.-)%]%]', '%1')
    r = string.gsub(r, '%[%[:?(.-)%]%]', '%1')
    r = string.gsub(r, '%[[^%]]-% (.-)%]', '%1')

    -- 去除HTML標籤
    for i, t in ipairs(HTMLTAGS) do
        r = string.gsub(r, '</?' .. t.. '.->', '')
    end

    -- 將pre與nowiki內容放回文字之中
    for i, t in ipairs(nowikis) do
        local u = mw.text.encode(t)
        r = string.gsub(r, '__NOWIKI_UNIT_' .. i, u)
    end

    -- 更換特殊字元
    r = mw.text.encode(r, '%[%]%|{}')

    return mw.text.trim(r)
end

function z.encodetitle(text) 
	return encodetitle(mw.getCurrentFrame(),text)
end --便于其他模块借用此函数

function z.list( frame )
    local list = getCandidates( frame )
    local linkprefix = mw.text.trim(frame.args.linkprefix)
    local anchorno = {}
    for i = 1, #list do
        if linkprefix then
            local title = encodetitle(frame, mw.text.trim(list[i]))

            -- 記錄標題文字，如果重複，那麼在後面附加「_2」、「_3」……
            anchorno[title] = (anchorno[title] or 0) + 1
            local postfix = (anchorno[title] > 1 and '_' .. anchorno[title]) or ''

            list[i] = '[[:' .. linkprefix .. title .. postfix .. '|' .. title .. ']]'
        else
            list[i] = '[[:' .. list[i] .. ']]'
        end
    end
    if #list > 0 then
        return table.concat( list, '－' or frame.args.concat )
    else
        return '暂无'
    end
end

function z.listtalk( frame )
	-- 假设!
    frame.args.pattern = '\n==([^=][^\n]-)== -\n'
    if frame.args[1] and not frame.args.title then
        frame.args.title = frame.args[1]
    end
    frame.args.linkprefix = mw.text.trim(frame.args.title or '') .. '#'
    return z.list(frame)
end

return z
例子

参见
