Módulo:forma

local export = {}

local insert = table.insert
local concat = table.concat
local unpack = unpack or table.unpack

local m_norm = mw.loadData("Módulo:forma/normalizar")
local generar_error = require("Módulo:traza")
local m_str = require("Módulo:String")
local strucfirst = m_str.ucfirst

local function insertar(t, a, i)
	if i == 2 then
		insert(t, " ")
	elseif i > 2 then
		insert(t, ", ")
	end
	insert(t, a)
end

local function obtener_categorias(cats, cod, k, cat_pref)
	local t_cats = {}
	local COD = cod:upper()
	for i, cat in ipairs(cats) do
		insert(t_cats, "]")
	end
	return concat(t_cats)
end

local function l_iteracion(p, Idioma, num, tr, alt, glosa, glosa_alt, nl, lglosa)
    if not p then
        return ""
    end
    
    local t = {}
    
    if p:find("+$") then
    	generar_error("etimo")	
    end

	if nl then
		insert(t, alt and " "..alt or " ''"..p.."''")
	else
    	insert(t, " ]")
	end

    if num then
        insert(t, "<sub>"..num.."</sub>")
    end
    
    if glosa then
    	if lglosa then
        	glosa = "]"
    	else
    		glosa = "\""..(glosa_alt and glosa_alt or glosa).."\""
    	end
    end

    if tr or glosa then
        insert(t, " (")
        if tr then
            insert(t, "''"..tr.."''")
            if glosa then
                insert(t, ", "..glosa)
            end
        else
            insert(t, glosa)
        end
        insert(t, ")")
    end

    return concat(t)
end

function export.forma(frame)
	if mw.title.getCurrentTitle().namespace == 10 then
		return "Esta es una plantilla para escribir definiciones. Úsela en el espacio principal, al escribir una nueva definición iniciada con punto y coma, seguido de un número y dos puntos.]"
	end

	if mw.title.getCurrentTitle().namespace ~= 0 then
		return "Esta es una plantilla para escribir definiciones. Úsela en el espacio principal, al escribir una nueva definición iniciada con punto y coma, seguido de un número y dos puntos."
	end
	
	local params = {
		 = {},
		 = {alias_de = "num"},
		 = {por_defecto = "es"},
		 = {}, -- no debería existir
		 = {}, -- no debería existir
		 = {}, -- no debería existir
		 = {},
		 = {},
		 = {},
		 = {alias_de = "tr"},
		 = {},
		 = {},
	}
	
	local parent_frame = frame:getParent()
	local args = require("Módulo:parámetros").obtener_parametros(parent_frame.args, params)
	
	if args then
		generar_error("canon")
	end
	if args then
		generar_error("texto_pre")
	end
	if args then
		generar_error("texto_pos")
	end
	
	local cod = args
	local idioma = require("Módulo:lenguas").cod_a_idioma(cod)
	local Idioma = strucfirst(idioma)
	local t = {}
	local cats = {}
	
	local k = args:gsub("^d?e?%s+(.*)$", "%1")
	:gsub("^(.*)ale?s?$", "%1")
	:gsub("^(.*)iv?s?$", "%1")
	:gsub("^(.*)ione?s?$", "%1")
	:gsub("^(.*)ióne?s?$", "%1")
	:gsub("^(.*)?s?$", "%1")
	local norm = m_norm or args
	insert(t, strucfirst(norm))
	insert(cats, norm)
	for i=3, #args do
		k = args:gsub("^d?e?%s+(.*)$", "%1")
		:gsub("^(.*)ale?s?$", "%1")
		:gsub("^(.*)iv?s?$", "%1")
		:gsub("^(.*)ione?s?$", "%1")
		:gsub("^(.*)ióne?s?$", "%1")
		:gsub("^(.*)?s?$", "%1")
		norm = m_norm or args
		insert(t, norm)
		insert(cats, " en "..norm)
	end
	insert(t, "de")
	insert(t, l_iteracion(args, Idioma, args, args, args, args, args, nil, nil))
	
	local cat_pref = "Formas"
	local tipo = frame.args or args
	if tipo then
		cat_pref = cat_pref.." "..tipo:gsub("ón$", "ones"):gsub("()$", "%1s"):gsub("()$", "%1es")
	end
	insert(cats, "") -- para que categorice en la categoría "Formas xxx" a secas
	local k = require("Módulo:sortkey").generarSortkey(mw.title.getCurrentTitle().text, cod, idioma)
	return concat(t, " ")..obtener_categorias(cats, cod, k, cat_pref)
end

function export.contraccion(frame)
	if mw.title.getCurrentTitle().namespace == 10 then
		return "Esta es una plantilla para escribir definiciones. Úsela en el espacio principal, al escribir una nueva definición iniciada con punto y coma, seguido de un número y dos puntos.]"
	end

	if mw.title.getCurrentTitle().namespace ~= 0 then
		return "Esta es una plantilla para escribir definiciones. Úsela en el espacio principal, al escribir una nueva definición iniciada con punto y coma, seguido de un número y dos puntos."
	end
	
	local params = {
		 = {lista = true},
		 = {alias_de = "c"},
		 = {alias_de = "c"},
		 = {lista = true},
		 = {alias_de = "num"},
		 = {por_defecto = "es"},
		 = {}, -- no debería existir
		 = {}, -- no debería existir
		 = {}, -- no debería existir
		 = {lista = true},
		 = {lista = true},
		 = {lista = true},
		 = {alias_de = "tr"},
		 = {lista = true},
	}
	
	local parent_frame = frame:getParent()
	local args = require("Módulo:parámetros").obtener_parametros(parent_frame.args, params)
	
	if args then
		generar_error("canon")
	end
	if args then
		generar_error("texto_pre")
	end
	if args then
		generar_error("texto_pos")
	end
	
	local cod = args
	local idioma = require("Módulo:lenguas").cod_a_idioma(cod)
	local Idioma = strucfirst(idioma)
	
	local t = {"Contracción de "}
	local cats = {}
	local i = 1
	for j, a in ipairs(args) do
		if i > 1 then
			insert(t, ", ")
		end
		local c = args
		local cg = ""
		if c then
			if c:find("$a") or c:find("ión$") then
				cg = "la "..c.." "
			else
				cg = "el "..c.." "
			end
			insert(cats, " de "..c:gsub("ón$", "ones"):gsub("()$", "%1s"):gsub("()$", "%1es"))
		end
		insert(t, cg..l_iteracion(args, Idioma, args, args, args, args, args, nil, nil))
		i = i + 1
	end
	
	local L = 2*(i-1)
	if t == ", " then
		t = t:find("^i") and " e " or " y "
	end
	
	insert(cats, "") -- para que categorice en "Contracciones" a secas
	
	local k = require("Módulo:sortkey").generarSortkey(mw.title.getCurrentTitle().text, cod, idioma)
	return concat(t)..obtener_categorias(cats, cod, k, "Contracciones")
end

return export