Modulo:Poesia
Da Wikipedia, l'enciclopedia encyclopedia
require('strict')
local getArgs = require('Module:Arguments').getArgs local p = {}
local function agg(t, ...)
local args = {...} for _, s in ipairs(args) do table.insert(t, s) end
end
local function separa(ss) local t = false if (ss:find("*") and (ss:find("*") == 1)) then ss = ss:sub(2) t = true end local dd = { } string.gsub(ss,"([^\/]+)", function(c) dd[#dd+1] = mw.text.trim(c) end) for i=1,3 do if (dd[i]) then if (dd[i] == '-') then dd[i] = end else dd[i]= (i==1) and or false end end
return { t, dd[1], dd[2], dd[3] } end
function p.main(frame) local args = getArgs(frame, { valueFunc = function (key, value) if type(key) == "number" then if value == nil then return nil else value = mw.text.trim(value) end else if value == then return nil end
end
return value end }) local titolo = args['titolo'] local colore = args['colore'] or 'ccc' local numera = args['numera'] and tonumber(args['numera']) or 5 local inizio = args['inizio'] and tonumber(args['inizio']) or 1 inizio = inizio-1 local ret = {} local n = 1 local vv
if (args[1]) then
agg(ret,'
') if (titolo) then vv = separa(titolo) agg(ret,'') if (vv[3]) then agg(ret,'') if (vv[4]) then agg(ret,'') end end agg(ret,'') end while (args[n]) do vv = separa(args[n]) if (vv[1]) then -- nuova strofa agg(ret,'') end agg(ret,'<td',(n == 1) and ' style="width:30px"' or ) if ((n+inizio) % numera == 0) then -- mostra numero agg(ret,' align=right>',(n+inizio),' ') else agg(ret,'>') end agg(ret,'') if (vv[3]) then agg(ret,'') if (vv[4]) then agg(ret,'') end end agg(ret,'') n = n+1 end agg(ret,'
',vv[2],' | ',vv[3],' | ',vv[4],' | |||
',vv[2],' | ',vv[3],' | ',vv[4],' |
')
return table.concat(ret) else return 'Errore nel template Poesia' end end
return p