Para entender a criação desta página visite Especial:Páginas_pedidas

---

-- Isso implementa a Predefinição:Tlg/Testes
local getArgs = require('Módulo:Arguments').getArgs
local p = {}

-- Uma string não está vazia?
local function _ne(s) 
    return s ~= nil and s ~= ""
end

local nw = mw.text.nowiki

local function addTemplate(s)
    local i, _ = s:find(':', 1, true)
    if i == nil then
        return 'Predefinição:' .. s
    end
    local ns = s:sub(1, i - 1)
    if ns == '' or mw.site.namespaces[ns] then
        return s
    else
        return 'Predefinição:' .. s
    end
end

local function trimTemplate(s)
    local needle = 'Predefinição:'
    if s:sub(1, needle:len()):lower() == needle then
        return s:sub(needle:len() + 1)    
    else
        return s
    end
end

local function linkTitle(args)
    if _ne(args.nolink) then
        return args['1']
    end
    
    local titleObj
    local titlePart = '[['
    if args['1'] then
        -- Isso lida com :Page e outros NS
        titleObj = mw.title.new(args['1'], 'Predefinição')
    else
        titleObj = mw.title.getCurrentTitle()
    end
    
    titlePart = titlePart .. (titleObj ~= nil and titleObj.fullText or
                addTemplate(args['1']))
    
    local textPart = args.alttext
    if not _ne(textPart) then
        if titleObj ~= nil then
            textPart = titleObj:inNamespace("Predefinição") and args['1'] or titleObj.fullText
        else
            -- ligação vermelha
            textPart = args['1']
        end
    end
    
    if _ne(args.subst) then
        -- hack: a coisa do ns acima provavelmente está quebrada
        textPart = 'subst:' .. textPart
    end
    
    if _ne(args.brace) then
        textPart = nw('{{') .. textPart .. nw('}}')
    elseif _ne(args.braceinside) then
        textPart = nw('{') .. textPart .. nw('}')
    end
    
    titlePart = titlePart .. '|' .. textPart .. ']]'
    if _ne(args.braceinside) then
        titlePart = nw('{') .. titlePart .. nw('}')
    end
    return titlePart
end

function p.main(frame)
    local args = getArgs(frame, {
        trim = true,
        removeBlanks = false
    })
    return p._main(args)
end

function p._main(args)
    local bold = _ne(args.bold) or _ne(args.boldlink) or _ne(args.boldname)
    local italic = _ne(args.italic) or _ne(args.italics)
    local dontBrace = _ne(args.brace) or _ne(args.braceinside)
    local code = _ne(args.code) or _ne(args.tt)
    local show_result = _ne(args._show_result)
    local expand = _ne(args._expand)
    
    -- Constrói a parte do link
    local titlePart = linkTitle(args)
    if bold then titlePart = "'''" .. titlePart .. "'''" end
    if _ne(args.nowrapname) then titlePart = '<span class="nowrap">' .. titlePart .. '</span>' end
    
    -- Constrói os argumentos
    local textPart = ""
    local textPartBuffer = "&#124;"
    local codeArguments = {}
    local codeArgumentsString = ""
    local i = 2
    local j = 1
    while args[i] do
        local val = args[i]
        if val ~= "" then
            if _ne(args.nowiki) then
                -- Remove as marcações nowiki primeiro porque chamar nw em algo que já contém marcações nowiki irá
                -- desmontar o marcador de faixa nowiki e resultará na exibição literal de UNIQ...QINU
                val = nw(mw.text.unstripNoWiki(val))
            end
            local k, v = string.match(val, "(.*)=(.*)")
            if not k then
                codeArguments[j] = val
                j = j + 1
            else
                codeArguments[k] = v
            end
            codeArgumentsString = codeArgumentsString .. textPartBuffer .. val
            if italic then
                val = '<span style="font-style:italic;">' .. val .. '</span>'
            end
            textPart = textPart .. textPartBuffer .. val
        end
        i = i + 1
    end

    -- envoltório final
    local ret = titlePart .. textPart
    if not dontBrace then ret = nw('{{') .. ret .. nw('}}') end
    if _ne(args.a) then ret = nw('*') .. '&nbsp;' .. ret end
    if _ne(args.kbd) then ret = '<kbd>' .. ret .. '</kbd>' end
    if code then
        ret = '<code>' .. ret .. '</code>'
    elseif _ne(args.plaincode) then
        ret = '<code style="border:none;background:transparent;">' .. ret .. '</code>'
    end
    if _ne(args.nowrap) then ret = '<span class="nowrap">' .. ret .. '</span>' end
    
    --[[ Embrulhar como linguagem de marcação de hipertexto (L.M.Ht., Ht.M.L.)? 
    local span = mw.html.create('span')
    span:wikitext(ret)
    --]]
    if _ne(args.debug) then ret = ret .. '\n<pre>' .. mw.text.encode(mw.dumpObject(args)) .. '</pre>' end

    if show_result then
        local result = mw.getCurrentFrame():expandTemplate{title = addTemplate(args[1]), args = codeArguments}
        ret = ret .. " → " .. result
    end

    if expand then
        local query = mw.text.encode('{{' .. addTemplate(args[1]) .. string.gsub(codeArgumentsString, textPartBuffer, "|") .. '}}')
        local url = mw.uri.fullUrl('special:ExpandTemplates', 'wpInput=' .. query)
        mw.log()
        ret = ret .. " [" .. tostring(url) .. "]"
    end

    return ret
end

return p