Módulo:Datas

local modulo = {}

function modulo.ISO_8601 (frame)
	local meses = {janeiro = 1, fevereiro = 2, ["março"] = 3, abril = 4, maio = 5, junho = 6, julho = 7, agosto = 8, setembro = 9, outubro = 10, novembro = 11, dezembro = 12}
	
	local function mes_em_numero (mes) -- função auxiliar que converte para minúscula antes de usar a tabela meses
		if mes == nil then
			return nil
		else
			mes = mw.ustring.lower (mes)
			return meses[mes]
		end
	end
	
	local dia, mes, ano, entrada
	
	entrada = frame.args[1]
	entrada = mw.text.trim (entrada) -- tira espaços do começo e do fim
	
	mes, ano = mw.ustring.match (entrada, "^(%a+) de (%d+)$") -- formato com mês e ano (primeiro pois é o mais comum)
	mes = mes_em_numero (mes)
	if mes ~= nil then
		return string.format ("%.4d-%.2d", ano, mes)
	else
		dia, mes, ano = mw.ustring.match (entrada, "^(%d%d?) de (%a+) de (%d+)$") -- formato com dia, mês e ano
		mes = mes_em_numero (mes)
		if dia ~= nil and mes ~= nil then
			return string.format ("%.4d-%.2d-%.2d", ano, mes, dia)
		else
			ano = mw.ustring.match (entrada, "^(%d+)$") -- formato com apenas ano
			if ano ~= nil then
				return string.format ("%.4d", ano)
			else
				error ("formato de data inesperado")
			end
		end		
	end		
end

return modulo