Modulo:Lingue/sandbox: differenze tra le versioni

Versione delle 21:25, 18 set 2013

Versione attuale delle 18:07, 31 mar 2022

(16 versioni intermedie di 3 utenti non mostrate)

Riga 1:

local language = {}

local getArgs = require('Module:Arguments').getArgs

-- File di configurazione contenente due tabelle:

Line 5 ⟶ 6:

-- lg.codici: che dato un codice restituisce un array contente

-- nome della lingua e collegamento all'articolo su it.wiki dedicato alla lingua

local lg = mw.loadData( 'Modulo:LinguaggiLingue/Configurazione');

-- ritorna il nome della voce corrispondente a "code". Se "code" non corrisponde a nessuna

-- lingua inserita in tabella ritorna una stringa nulla

function language.get_voce(code)

if code == nil then return '' end

local code = mw.ustring.lower(code)

if lg.alias[code] then code = lg.alias[code] end

lingua = lg.codici[code]

if lingua then

return lingua[2]

end

return ''

end

-- ritorna vero se "code" corrisponde a un linguaggio, falso altrimenti

function language.esiste(code)

if code == nil or code=='' then return false end

if lg.alias[code] then code= lg.alias[code] end

if lg.codici[code] then return true end

return false

end

-- ritornaRestituisce il nome standard della lingua corrispondente a "code" e il codice normalizzato

-- a quella della tabella codici.

-- Se "code" non corrisponde a nessuna lingua inserita in tabella, ritornarestituisce la coppiail valore di default

-- o stringa nulla se questo non è indicato e il codice richiesto. Se maiuscolo è vero il

-- nome viene ritornatorestituito con la prima lettera maiuscola.

function language.get_nome(code, maiuscolo, default)

local nome = default or ''

if code ~= nil and code ~= '' then

code = mw.ustring.lower(code)

if lg.alias[code] then code = lg.alias[code] end

-- toglie la seconda parte da codici del tipo it-IT

local lingua = lg.codici[code]

code = mw.ustring.gsub(code, '(%l+)%-.*', '%1')

if lingua then nome = lingua[1] end

local lingua = lg.codici[code]

end

if lingua then nome = lingua[1] end

if maiuscolo then

end

nome = mw.ustring.gsub(nome, '^%l', mw.ustring.upper)

if maiuscolo then

end

nome = mw.ustring.gsub(nome, '^%l', mw.ustring.upper)

return nome, code

end

return nome, code

end

-- funzione di interfaccia per template:Nomelingua/voce

function language.voce(frame)

local code = frame.args[1]

if code == nil or code == '' then

return ''

end

return language.get_voce(code)

end

-- funzione di interfaccia per template:Nomelingua/nome

function language.nome(frame)

local maiuscolo = false

local code = frame.args[1] or ''

local default = (frame.args[2] == 'v' and '') or code

if frame.args['M']~=nil and frame.args['M']~='' then

maiuscolo = true

end

return language.get_nome(code, maiuscolo, default), _

end

Line 70 ⟶ 73:

--funzione di interfaccia per template:Nomelingua

function language.nomecompleto(frame)

local code = frame.args[1]

if code == nil or code == '' then

return ''

end

local maiuscolo = false

if frame.args['M']~=nil and frame.args['M']~='' then

maiuscolo = true

end

local voce = language.get_voce(code)

local nome = language.get_nome(code, maiuscolo, code)

if nome == "" and voce ~="" then

if maiuscolo then

nome = mw.ustring.gsub(voce, '^%l', mw.ustring.upper)

else

nome = voce

end

end

if voce == "" then

return nome

else

return table.concat({'[[', voce, "|", nome, "]]"})

end

end

Line 98 ⟶ 101:

--viene normalizzato a quello standard della lingua, piuttosto che essere quello

--passato

--In aggiunta può ricevere se il parametro return_error è vero ritorna in caso di

--codici lingua non ritrovati in tabella una tabella aggiuntiva con i codici errati

--return_error viene controllato solo se la funzione è richiamata da un modulo Lua

--se è richiamata da un template è sempre falsa

function language.lingue(frame)

local lingue_list = { }

-- Se chiamata mediante #invoke, usa gli argomenti passati al template invocante.

-- Altrimenti a scopo di test assume che gli argomenti siano passati direttamente

local args

local return_error = false

local error_list = {}

if frame == mw.getCurrentFrame() then

args = frame:getParent().args

else

args = frame

return_error = args['return_error'] or Falsefalse

end

local lingua, codice_normalizzato, code_to_show

local usa_codice = false

local lingua, codice_normalizzato, code_to_show

local usa_codice = (args['usacodice'] ~= nil)

local yet_processed = {}

for _,code in ipairs(args) do

lingua, codice_normalizzato = language.get_nome(code)

codice_normalizzato = mw.ustring.upper(codice_normalizzato)

if not yet_processed[ codice_normalizzato ] then

if lingua ~= "" then

lingue_list[#lingue_list+1] = '<abbr title="' .. lingua .. '">' ..codice_normalizzato .. "</abbr>"

yet_processed[ codice_normalizzato ] = true

else

lingue_list[#lingue_list+1] = code

if return_error then error_list[#error_list+1] = code end

end

end

end

local reply

if #lingue_list > 0 then

reply = '(<span style="font-weight:bolder; font-size:80%">' .. table.concat(lingue_list, ",&nbsp;") .. "</span>)"

else

reply = ''

end

reply = reply

if #error_list>0 then

return reply, error_list

else

return reply

end

end

-- ========================================================

for _,code in ipairs(args) do

-- Ritorna la stringa txt inserita in un tag <span> con indicato

lingua, codice_normalizzato = language.get_nome(code)

-- il codice linguaggio del testo (language_code) e il senso

code_to_show = mw.ustring.upper((usa_codice and codice_normalizzato) or code)

-- di lettura (sinistro o destro).

if lingua ~= "" then

-- Il parametro "corsivo" permette di indicare se il testo

lingue_list[#lingue_list+1] = '<abbr title="' .. lingua .. '">' ..code_to_show .. "</abbr>"

-- deve essere messo in corsivo, ha tre valori:

else

-- -- d: consulta le tabelle di configurazione per il linguaggio

lingue_list[#lingue_list+1] = code

-- -- s: forza corsivo attivo

if return_error then error_list[#error_list+1] = code end

-- -- n: forza corsivo disattivo (è il valore di default)

end

-- ========================================================

end

function language._lang_testo(args)

local reply

local txt = args.txt or args[2]

if #lingue_list > 0 then

if not txt then return '' end

reply = '(<span style="font-weight:bolder; font-size:80%">' .. table.concat(lingue_list, ",&nbsp;") .. "</span>)"

local language_code = args.lang or args[1]

else

local direction = "ltr"

reply = ''

if language_code then

end

language_code = mw.ustring.lower(language_code)

reply = reply .. " - " .. tostring(return_error)

language_code = lg.alias[language_code] or language_code

if #error_list>0 then

local writing = lg.scrittura[language_code]

return reply, error_list

if writing then

else

direction = writing[1]

return reply

if #writing > 1 then language_code = writing[2] end

end

end

end

local set_italic = args.corsivo or "n"

if set_italic ~= "n" then

local italic = false

if set_italic:lower() == 's' then

italic = true

elseif language_code and lg.codici[language_code] then

italic = not lg.codici[language_code][3]

else

italic = true

end

if italic then

if txt[1]=="'" then txt = "<nowiki />" .. txt end

if txt[#txt] =="'" then txt = txt .. "<nowiwiki />" end

txt = mw.ustring.format("''%s''", txt)

end

end

local span = mw.html.create('span'):wikitext(txt):addClass(args.class)

if lg.codici[language_code] then

span

:attr('dir', direction)

:attr('lang', language_code)

:attr('xml:lang', language_code)

end

return tostring(span)

end

-- ========================================================

-- Funzione di interfaccia per _lang_testo

-- richiamabile nei template

-- ========================================================

function language.lang_testo(frame)

local args = getArgs(frame)

return language._lang_testo(args)

end

-- Restituisce una tabella con tutti i codici riconosciuti dal modulo

function language.tabella(frame)

local HtmlBuilder = require('Module:HtmlBuilder')

-- genera una tabella codici -> lista alias e una di codici per ordinarla

local alias_table = {}

-- genera una tabella codici -> lista alias e una di codici per ordinarla

local alias_tablecodici_sorted = {}

for code, _ in pairs(lg.codici) do

local codici_sorted = {}

alias_table[code] = {"'''" .. code .. "'''"}

for code, _ in pairs(lg.codici) do

codici_sorted[#codici_sorted+1] = code

alias_table[code] = {"'''" .. code .. "'''"}

end

codici_sorted[#codici_sorted+1] = code

for alias, code in pairs(lg.alias) do

end

if alias_table[code] then table.insert(alias_table[code], alias) end

for alias, code in pairs(lg.alias) do

end

if alias_table[code] then table.insert(alias_table[code], alias) end

table.sort(codici_sorted)

end

table.sort(codici_sorted)

local root = mw.html.create('table')

root

root = HtmlBuilder.create('table')

:addClass('wikitable sortable')

root

:tag('tr')

.addClass('wikitable sortable')

:tag('th'):wikitext('Codici'):done()

.tag('tr')

. :tag('th').:wikitext('Codici[[template:Nomelingua/nome]]').:done()

. :tag('th').:wikitext('[[template:Nomelingua/voce]]').:done()

. :tag('th').:wikitext('[[template:Nomelingua/voceLingue]]').done()

.tag('th').wikitext('[[template:Lingue]]')

for _,code in ipairs(codici_sorted) do

local code_string = table.concat(alias_table[code], ", ")

for _,code in ipairs(codici_sorted) do

local nome, voce = language.get_nome(code), language.get_voce(code)

local code_string = table.concat(alias_table[code], ", ")

if voce ~= '' then voce = '[[' .. voce .. ']]' end

local nome, voce = language.get_nome(code), language.get_voce(code)

root

if voce ~= '' then voce = '[[' .. voce .. ']]' end

:tag('tr')

root

:tag('td'):wikitext(code_string):done()

.tag('tr')

. :tag('td').:wikitext(code_stringnome).:done()

. :tag('td').:wikitext(nomevoce).:done()

. :tag('td').:css('text-align', 'center'):wikitext(voce)language.donelingue({code}))

end

.tag('td').css('text-align', 'center').wikitext(language.lingue({code}))

return tostring(root)

end

return tostring(root)

end

-- Restituisce una tabella degli alias in formato alias;codice

function language.tabella_alias(frame)

local HtmlBuilder = require('Module:HtmlBuilder')

local root = HtmlBuildermw.html.create('table')

root

. :addClass('wikitable sortable')

. :tag('tr')

. :tag('th').:wikitext('Alias').:done()

. :tag('th').:wikitext('codice').:done()

for alias, code in pairs(lg.alias) do

root

. :tag('tr')

. :tag('td').:wikitext(alias).:done()

. :tag('td').:wikitext(code)

end

return tostring(root)

end

-- Restituisce una tabella dei codici in formato codice;nome;voce

function language.tabella_codici(frame)

local HtmlBuilder = require('Module:HtmlBuilder')

local root = HtmlBuildermw.html.create('table')

root

. :addClass('wikitable sortable')

. :tag('tr')

. :tag('th').:wikitext('Codice').:done()

. :tag('th').:wikitext('Nome').:done()

. :tag('th').:wikitext('Voce').:done()

for code, valore in pairs(lg.codici) do

root

. :tag('tr')

. :tag('td').:wikitext(code).:done()

. :tag('td').:wikitext(valore[1]).:done()

. :tag('td').:wikitext(valore[2])

end

return tostring(root)

end

-- ritorna una whitelist di tutti i codici riconosciuti ad uso bot in python

function language.whitelist(frame)

local rows = { 'WHITELIST_LINGUE = set( [' }

-- genera una tabella codici -> lista alias e una di codici per ordinarla

local codici = {}

for code, _ in pairs(lg.codici) do

codici[#codici+1] = code

end

for alias, _ in pairs(lg.alias) do

codici[#alias+1] = alias

end

table.sort(codici)

for _, codice in ipairs(codici) do

rows[#rows+1] = " '" .. codice .."',"

end

rows[#rows+1] = "])"

return table.concat(rows, '\n')

end