Módulo:Testes

Origem: Wikipédia, a enciclopédia livre.
Documentação do módulo[ver] [editar] [histórico] [purgar]

Área de Teste de Scribunto[editar código-fonte]

Este é um módulo Lua com o nome de Testes, não serve para utilizar em artigos na página principal, e deve ser usado de modo temporário pare que os outros usuários também o possam modificar e fazer testes rápidos de código. O módulo serve também para prevenir que o espaço nominal Módulo: encha de experimentos, visto que módulos Lua não podem existir como subpáginas no espaço nominal Usuário:, e não tem mensagens nem "maneira" de pedir a eliminação.

Se for necessário utilize um submódulo existente de ...módulo existente/Testes ou crie um submódulo experimental no seguinte formato para ajudar a manter as coisas arrumadas:

Módulo:Testes/Seu Nome de Utilizador/Nome do Módulo

Pode usar Special:PrefixIndex/Módulo:Testes para listar módulos nesta área.

-- Página liberada, edite a vontade :)
 
-- Comentário de linha
--[[
    Comentário de várias
linhas

]]--

require ('Module:No globals');

--[[--------------------------< _ I N _ L A N G >--------------------------------------------------------------

implements {{in lang}}

Module entry point from another module

|link=yes - creates wikilinked language names
|template=<template name> - customizes error messages created by Module:lang
|list-cats=yes - documentation tool returns language-category names of cats populated by this template

<span class="languageicon">(em <língua>)</span>

]]

local function _in_lang (args)
    local synonym_table = mw.loadData ('Module:Lang/ISO 639 synonyms');            -- ISO 639-2/639-2T code translation to 639-1 code
    local list_cats = 'yes' == args['list-cats'];                                -- make a boolean
    local list = {};
    local cats = {};
    local maint_msgs = {};
   
    if not args[1] then
        local template = (args['predefinição'] and table.concat ({'{{', args['predefinição'], '}}: '})) or '';    -- make template name (if provided by the template)
        return table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">erro: ', template, 'tag de língua em falta</span>'});
    end

--    local module = 'Module:Lang' .. (mw.getCurrentFrame():getTitle():match ('/Testes') or '');    -- if this module is the sandbox,

--    local name_from_tag = require (module)._name_from_tag;
      local name_from_tag = require ('Module:Lang')._name_from_tag;

    local namespace = mw.title.getCurrentTitle().namespace;                        -- used for categorization
    local this_wiki_lang = mw.language.getContentLanguage().code;                -- get this wiki's language code

    for i, lang in ipairs (args) do
        local code = args[i]:lower();
        local t = {code, ['link'] = args['link'], ['predefinição'] = args['predefinição']};    -- build an 'args' table
        lang = name_from_tag (t)                                                -- get the language name
        table.insert (list, lang)                                                -- add this language or error message to the list

        if 'ca-valencia' ~= code then                                            -- except for valencian
            code = code:match ('^%a%a%a?%f[^%a]');                                -- strip off region, script, and variant tags so that they aren't used to make category names
        end
        if synonym_table[code] then                                                -- if 639-2/639-2T code has a 639-1 synonym
            if (0 == namespace) and not list_cats then                            -- when listing cats don't include this cat; TODO: right choice?
--                table.insert (cats, table.concat ({'[[Categoria:!Lang and lang-xx code promoted to ISO 639-1|', code ..']]'}));
            end
            table.insert (maint_msgs, ' <span class="lang-comment" style="font-style:normal; display:none; color:#33aa33; margin-left:0.3em">')
            table.insert (maint_msgs, table.concat ({'code: ', code, ' promoted to code: ', synonym_table[code]}));
            table.insert (maint_msgs, '</span>;');
            code = synonym_table[code];                                            -- use the synonym
        end

        if (0 == namespace) or list_cats then                                                -- when in article space
            if lang:find ('error') then                                            -- add error category (message provided by Module:Lang)
                if not list_cats then                                            -- don't include this cat when listin cats; TODO: right choice?
--                    table.insert (cats, '[[Categoria:!Erros na predefinição in lang]]');
                end
            elseif this_wiki_lang ~= code then                                    -- categorize article only when code is not this wiki's language code
                if lang:match ('%[%[.-|.-%]%]') then                            -- wikilinked individual language name
                    lang = lang:match ('%[%[.-|(.-)%]%]');
                elseif lang:match ('%[%[.-%]%]') then                            -- wikilinked collective languages name
                    lang = lang:match ('%[%[(.-)%]%]');
                end                                                                -- neither of these then plain-text language name

                if lang:find ('languages') then                                    -- add appropriate language-name category
--                    table.insert (cats, table.concat ({'[[Categoria:!Artigos com ', lang, '-collective sources (', code, ')]]'}));
                else
                    table.insert (cats, table.concat ({'[[Categoria:!Artigos com fontes de língua ', lang, ' (', code, ')]]'}));
                end
            end
        end
    end
   
    if list_cats then
        local cats = table.concat (cats, ', '):gsub ('[%[%]]', '');                -- make a string of categories and then strip wikilink markup
        return cats
    end

    local result = {'<span class="languageicon">('};                            -- opening span and (
    table.insert (result, 'yes' == args['cap'] and 'Em ' or 'em ');                -- add capitalized or uncapitalized 'in'
    table.insert (result, mw.text.listToText (list, ', ', (2 < #list) and ', e ' or ' e ' ));    -- and concatenate the language list

    table.insert (result, ')</span>');                                            -- add closing ) and closing span
    table.insert (result, table.concat (maint_msgs) or '');                -- add maint messages, if any
    table.insert (result, table.concat (cats));                                    -- add categories
    return table.concat (result);                                                -- make a big string and done
end


--[[--------------------------< I N _ L A N G >----------------------------------------------------------------

implements {{in lang}}

Module entry point from an {{#invoke:lang/utilities/sanbox|in_lang|<code>|<code2>|<code3>|<code...>|link=yes|template=in lang|list-cats=yes}}

]]

local function in_lang (frame)
    local args = require ('Module:Arguments').getArgs (frame);
    return _in_lang (args);
    end


--[[--------------------------< E X P O R T E D   F U N C T I O N S >------------------------------------------
]]

return {
    in_lang = in_lang,                                                            -- module entry from {{#invoke:}}

    _in_lang = _in_lang,                                                        -- module entry from another module
    }