查看“Module:Links”的源代码

local p = {}
local getArgs = require('Module:Arguments').getArgs

-- 将输入字符串转换为由 Unicode 码位构成的数组，仅支持第一平面字符
function p.str2codelist(strin)
    local listout = {}
    local strk = 1
    local listk = 1

    while strk <= #strin do
        -- 处理三字节 UTF-8 字符
        if (math.modf(string.byte(strin, strk) / 16) == 14) then
            listout[listk] = (string.byte(strin, strk) - 224) * 4096 +
                             (string.byte(strin, strk + 1) - 128) * 64 +
                             (string.byte(strin, strk + 2) - 128)
            listk = listk + 1
            strk = strk + 3
        -- 处理二字节 UTF-8 字符
        elseif (math.modf(string.byte(strin, strk) / 32) == 6) then
            listout[listk] = (string.byte(strin, strk) - 192) * 64 +
                             (string.byte(strin, strk + 1) - 128)
            listk = listk + 1
            strk = strk + 2
        -- 单字节字符（ASCII 范围）
        else
            listout[listk] = string.byte(strin, strk)
            listk = listk + 1
            strk = strk + 1
        end
    end
    return listout
end

-- 将 Unicode 码位数组转换回 UTF-8 字符串
function p.codelist2str(unicodeCodes)
    local utf8Str = ""
    if #unicodeCodes > 0 then
        for _, code in ipairs(unicodeCodes) do
            -- 处理 ASCII 范围字符
            if code <= 0x7F then
                utf8Str = utf8Str .. string.char(code)
            -- 处理二字节字符
            elseif code <= 0x7FF then
                utf8Str = utf8Str .. string.char(0xC0 + math.floor(code / 64), 0x80 + (code % 64))
            -- 处理三字节字符
            else
                utf8Str = utf8Str .. string.char(0xE0 + math.floor(code / 4096),
                                                  0x80 + math.floor((code % 4096) / 64),
                                                  0x80 + (code % 64))
            end
        end
    end
    return utf8Str
end

-- 生成复杂的链接表
function p.links(frame)
    local args = getArgs(frame)
    
    -- 计算 args 的长度 (由于某些神秘的原因不能用 #args)
    local count = 0
    for _, v in ipairs(args) do
        count = count + 1
    end

    local outstr = ""
    -- 遍历每个参数
    for k, v in ipairs(args) do
        local strli = p.str2codelist(v)
        local flag = 0
        local tag = ""
        local itag = ""
        
        -- 遍历字符转换后的 Unicode 码位
        for k2, v2 in ipairs(strli) do
            if v2 == p.str2codelist("#")[1] then
                flag = 1  -- 识别分隔符
            else
                -- 根据 flag 决定当前字符的标签存放位置
                if flag == 0 then
                    tag = tag .. p.codelist2str({v2})
                else
                    itag = itag .. p.codelist2str({v2})    
                end
            end
        end
        
        -- 组装输出字符串
        if flag == 0 then
            outstr = outstr .. "[[" .. tag .. "]]"
        else
            outstr = outstr .. "[[" .. tag .. "|" .. itag .. "]]"
        end
        -- 添加分隔符
        if k < count then
            outstr = outstr .. " • "
        end
    end
    return frame:preprocess(outstr)  -- 预处理 wikitext 结果
end

return p