Módulo:etimología

La documentación para este módulo puede ser creada en Módulo:etimología/doc

local export = {}
local insert = table.insert
local concat = table.concat

local m_str = require("Módulo:String")
local ucfirst = m_str.ucfirst
local lcfirst = m_str.lcfirst
local substr = m_str.sub
local strlen = m_str.ulen
local strfind = m_str.find

local obtener_idioma = require("Módulo:lenguas").cod_a_idioma
local generar_error = require("Módulo:traza")
local sortkey = require("Módulo:sortkey").generarSortkey

-- por ahora sin uso
--local function normalizar_cat(x)
--    if x == "latín" then
--        return "latino"
--    end
--    return x
--end

-- Equivalente de l+
local function l_iteracion(p, Idioma, num, tr, alt, glosa, glosa_alt, nl)
    if not p then
        return ""
    end
    
    local t = {}
    
    if p:find("[^a-zA-ZÀ-ž-]+$") then
    	generar_error("etimo")	
    end

	if nl then
		insert(t, alt and " "..alt or " ''"..p.."''")
	else
    	insert(t, " [["..p.."#"..Idioma..(num and " "..num or "").."|''"..(alt and alt or p).."'']]")
	end

    if num then
        insert(t, "<sub>"..num.."</sub>")
    end
    
    if glosa then
        glosa = "[["..glosa.."#Español|\""..(glosa_alt and glosa_alt or glosa).."\"]]"
    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

local function l_palabras(t, args, i_, l_, k_, sufijo)
	local i = i_ or 2
	local l = l_ or #args
	local k = k_ or 1
	local poner_coma = false
	while i <= l do
		if poner_coma then
			if i == #args then
				if args["e"] and args["e"] ~= "" then
					insert(t, " e")
				else
					insert(t, " y")
				end
			else
				insert(t, ",")
			end
		end
		
		insert(t, l_iteracion(args[i], args["Idioma"], args["num"][k], args["tr"][k], args["alt"][k], args["glosa"][k], args["glosa-alt"][k], args["nl"][k]))
		if sufijo then
			insert(t, sufijo) -- caso de las marcas registradas	
		end

		i = i + 1
		k = k + 1
		poner_coma = true
	end
end

local function compuesto(args)
	assert(args[2] and args[3], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Compuesto")
	if args["nota"] and args["nota"] ~= "" then
		insert(t, " ("..args["nota"]..")")	
	end
	insert(t, " de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por composición|"..sk.."]]")
		if args["nota"] == "acronímico" then
			insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por composición acronímica|"..sk.."]]")
		elseif args["nota"] == "cruce" then
			insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por cruce|"..sk.."]]")
		end
	end
	return concat(t)
end

local function sigla(args)
	assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Sigla"..(args["nota"] and " ("..args["nota"]..")" or "").." de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		insert(t, "[[Categoría:"..args["LENG"]..":Siglas|"..sk.."]]")
	end
	return concat(t)
end

local function expresiva(args)
	local t = {}
	insert(t, "Voz [[expresión|expresiva]]")
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras de origen expresivo|"..sk.."]]")
	end
	return concat(t)
end

local function regresiva(args)
	assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Derivación regresiva de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por derivación regresiva|"..sk.."]]")
	end
	return concat(t)
end

local function metatesis(args)
	assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Metátesis"..(args["nota"] and " ("..args["nota"]..")" or "").." de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por metátesis|"..sk.."]]")
	end
	return concat(t)
end

local function fonetica(args)
	assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Alteración fonética"..(args["nota"] and " ("..args["nota"]..")" or "").." de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por alteración fonética|"..sk.."]]")
	end
	return concat(t)
end

local function acortamiento(args)
	assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Acortamiento"..(args["nota"] and " ("..args["nota"]..")" or "").." de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por acortamiento|"..sk.."]]")
	end
	return concat(t)
end

local function diminutivo(args)
	assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Diminutivo"..(args["nota"] and " ("..args["nota"]..")" or "").." de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		-- insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por sufijación|"..sk.."]]")
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por sufijo diminutivo|"..sk.."]]")
	end
	return concat(t)
end

local function aumentativo(args)
	assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Aumentativo"..(args["nota"] and " ("..args["nota"]..")" or "").." de")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		-- insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por sufijación|"..sk.."]]")
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por sufijo aumentativo|"..sk.."]]")
	end
	return concat(t)
end

local function sufijo(args)
	assert(args[2] and args[3], "El número de argumentos recibidos es insuficiente")
	if substr(args[3], 1, 1) ~= "-" then
		args[3] = "-"..args[3]
	end
	local t = {}
	insert(t, "De")
	l_palabras(t, args, 2, 2, 1)
	insert(t, " y el sufijo")
	l_palabras(t, args, 3, 3, 2)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		--insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por sufijación|"..sk.."]]")
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras con el sufijo "..args[3].."|"..sk.."]]")
	end
	return concat(t)
end

local function prefijo(args)
	assert(args[2] and args[3], "El número de argumentos recibidos es insuficiente")
	local L = strlen(args[2])
	if substr(args[2], L, L) ~= "-" then
		args[2] = args[2].."-"
	end
	local t = {}
	insert(t, "Del prefijo")
	l_palabras(t, args, 2, 2, 1)
	insert(t, " y")
	l_palabras(t, args, 3, 3, 2)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		--insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por prefijación|"..sk.."]]")
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras con el prefijo "..args[2].."|"..sk.."]]")
	end
	return concat(t)
end

local function infijo(args)
	assert(args[2] and args[3], "El número de argumentos recibidos es insuficiente")
	if substr(args[3], 1, 1) ~= "-" then
		args[3] = "-"..args[3]
	end
	local L = strlen(args[3])
    if substr(args[3], L, L) ~= "-" then
		args[3] = args[3].."-"
	end
	local t = {}
	insert(t, "De")
	l_palabras(t, args, 2, 2, 1)
	insert(t, " y el infijo")
	l_palabras(t, args, 3, 3, 2)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
		--insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por infijación|"..sk.."]]")
		insert(t, "[[Categoría:"..args["LENG"]..":Palabras con el infijo "..args[3].."|"..sk.."]]")
	end
	return concat(t)
end

local function confijo(args)
	assert(args[2] and args[3], "El número de argumentos recibidos es insuficiente")
	local L = strlen(args[2])
	if substr(args[2], L, L) ~= "-" then
		args[2] = args[2].."-"
	end
	local t = {}
	insert(t, "Del prefijo")
	l_palabras(t, args, 2, 2, 1)
	if args[4] and args[4] ~= "" then
		insert(t, ",")
		l_palabras(t, args, 3, 3, 2)
		if substr(args[4], 1, 1) ~= "-" then
			args[4] = "-"..args[4]
		end
		insert(t, " y el sufijo")
		l_palabras(t, args, 4, 4, 3)
		if args["ns"] == 0 then
	        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
			--insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por prefijación|"..sk.."]]")
			insert(t, "[[Categoría:"..args["LENG"]..":Palabras con el prefijo "..args[2].."|"..sk.."]]")
			--insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por sufijación|"..sk.."]]")
			insert(t, "[[Categoría:"..args["LENG"]..":Palabras con el sufijo "..args[4].."|"..sk.."]]")
		end
	else		
		if substr(args[3], 1, 1) ~= "-" then
			args[3] = "-"..args[3]
		end
		insert(t, " y el sufijo")
		l_palabras(t, args, 3, 3, 2)		
		if args["ns"] == 0 then
	        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
			--insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por prefijación|"..sk.."]]")
			insert(t, "[[Categoría:"..args["LENG"]..":Palabras con el prefijo "..args[2].."|"..sk.."]]")
			--insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por sufijación|"..sk.."]]")
			insert(t, "[[Categoría:"..args["LENG"]..":Palabras con el sufijo "..args[3].."|"..sk.."]]")
		end
	end
	return concat(t)
end

local function onomatopeya(args)
	local t = {}
	insert(t, "Onomatopéyica")
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras de origen onomatopéyico|"..sk.."]]")
	end
	return concat(t)
end

local function incierta(args)
	local t = {}
	insert(t, "Incierta")
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras de origen incierto|"..sk.."]]")
	end
	return concat(t)
end

local function eponimo(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Epónimo: "..args[2])
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras de origen epónimo|"..sk.."]]")
	end
	return concat(t)
end

local function pronominal(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "De")
	l_palabras(t, args, 2, 2, 1)
	insert(t, " con el [[pronombre reflexivo]] [[átono]]")
	return concat(t)
end

local function femenino(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
    if args[3] and not substr(args[3],1,1) == "-" then
        args[3] = "-"..args[3]
    end
	local t = {}
	insert(t, "De")
	l_palabras(t, args, 2, 2, 1)
	insert(t, " y el [[sufijo flexivo]]")
	if args[3] then
        if substr(args[3],1,1) ~= "-" then
            args[3] = "-"..args[3]
        end
        l_palabras(t, args, 3, 3, 2)
    else
        insert(t, " -a")
	end
	insert(t, " para el femenino")
	return concat(t)
end

local function masculino(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
    if args[3] and not substr(args[3],1,1) == "-" then
        args[3] = "-"..args[3]
    end
	local t = {}
	insert(t, "De")
	l_palabras(t, args, 2, 2, 1)
	insert(t, " y el [[sufijo flexivo]]")
	if args[3] then
        if substr(args[3],1,1) ~= "-" then
            args[3] = "-"..args[3]
        end
        l_palabras(t, args, 3, 3, 2)
    else
        insert(t, " -o")
	end
	insert(t, " para el masculino")
	return concat(t)
end

local function plural(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
    if args[3] and not substr(args[3],1,1) == "-" then
        args[3] = "-"..args[3]
    end
	local t = {}
	insert(t, "De")
	l_palabras(t, args, 2, 2, 1)
	insert(t, " y el [[sufijo flexivo]]")
	if args[3] then
        if substr(args[3],1,1) ~= "-" then
            args[3] = "-"..args[3]
        end
        l_palabras(t, args, 3, 3, 2)
    else
        insert(t, " -s")
	end
	insert(t, " para el plural")
	return concat(t)
end

local function calco(args)
    assert(args[2] and args[3], "El número de argumentos recibidos es insuficiente")
	local t = {}
	local id = (obtener_idioma(args[2]))[1]
	local Id = ucfirst(id)
	insert(t, "Calco"..(args["nota"] and " ("..args["nota"]..")" or "").." del "..id)
    if (not args["glosa"][1]) and args[4] then -- En la versión anterior hacía esto sólo para esta función, por qué?
    	args["glosa"][1] = args[4]
    end
	insert(t, l_iteracion(args[3], Id, args["num"][1], args["tr"][1], args["alt"][1], args["glosa"][1], args["glosa-alt"][1], args["nl"][1]))
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras formadas por calco|"..sk.."]]")
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras provenientes del "..id.."|"..sk.."]]")
	end
	return concat(t)
end

local function marca(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	local L = #args
	if L > 2 then
		insert(t, "De las marcas registradas")
	else
		insert(t, "De la marca registrada")
	end
		
	l_palabras(t, args, 2, L, 1, "<sup>®</sup>")
    if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras de marcas registradas|"..sk.."]]")
	end
	return concat(t)
end

local function endogena(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "De")
	l_palabras(t, args)
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras endógenas|"..sk.."]]")	
	end
	return concat(t)
end

local function artificial(args)
	generar_error("invento")
	local t = {}
    if args[2] then
	    insert(t, "Término artificial, inventado por "..args[2])
    else
        insert(t, "Palabra artificial")
    end
    if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras artificales|"..sk.."]]")	
	end
	return concat(t)
end

local function autor(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Acuñado por "..args[2])
	return concat(t)
end

local function popularizado_por(args)
    assert(args[2], "El número de argumentos recibidos es insuficiente")
	local t = {}
	insert(t, "Populariazado por "..args[2])
	return concat(t)
end

local function metaforica(args)
	local t = {}
	insert(t, "De origen metafórico")
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras de origen metafórico|"..sk.."]]")	
	end
	return concat(t)
end

local function biblica(args)
	local t = {}
	insert(t, "De origen bíblico")
	if args["ns"] == 0 then
        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
        insert(t, "[[Categoría:"..args["LENG"]..":Palabras de origen bíblico|"..sk.."]]")	
	end
	return concat(t)
end

local function sumadepartes(args)
	error("Parámetro obsoleto (utilice “no aplica” en su lugar)")
end

local function noaplica(args)
    return "Consulte las etimologías de cada palabra"
end

local function origen(args)
    assert(args[1], "El número de argumentos recibidos es insuficiente")
    local t = {"Del "}
    local i = 1
    local L = #args
    
    local idioma = (obtener_idioma(args[3*i-2]))[1]
    local idioma_d = idioma..(args["d"][i] and " ("..args["d"][i]..")" or "")
    local Idioma = ucfirst(idioma)    
    insert(t, idioma_d)
    
    while true do
        insert(t, l_iteracion(args[3*i-1], Idioma, args["num"][i], args["tr"][i], args["alt"][i], args["glosa"][i] and args["glosa"][i] or args[3*i], args["glosa-alt"][i], args["nl"][i]))
		if args["ns"] == 0 then
	        local sk = sortkey(args["tit"], args["leng"], args["idioma_obj"])
	        insert(t, "[[Categoría:"..args["LENG"]..":Palabras provenientes del "..idioma.."|"..sk.."]]")
		end
    
        i = i + 1
        if 3*i-2 > L then
            break
        end
        
        if 3*i-2 >= L-2 then
            if args["e"] and args["e"] ~= "" then
                insert(t, " e")
            else
                insert(t, " y")
            end
        else            
            insert(t, ",")
        end
        
        local nuevo_idioma = (obtener_idioma(args[3*i-2]))[1]
        local nuevo_idioma_d = nuevo_idioma..(args["d"][i] and " ("..args["d"][i]..")" or "")
        if nuevo_idioma_d ~= idioma_d then
            idioma = nuevo_idioma
            idioma_d = nuevo_idioma_d
            Idioma = ucfirst(idioma)
            insert(t, " del "..idioma_d)
        end        
    end
    return concat(t)
end

local callbacks = {
	["compuesto"] = compuesto,
    ["compuesta"] = compuesto,
    ["COMP"] = compuesto,
    ["sigla"] = sigla,
    ["voz expresiva"] = expresiva,
    ["expresiva"] = expresiva,
    ["EXPR"] = expresiva,
    ["derivación regresiva"] = regresiva,
    ["regresiva"] = regresiva,
    ["REG"] = regresiva,
    ["metátesis"] = metatesis,
    ["trasposición"] = metatesis,
    ["MET"] = metatesis,
    ["fone"] = fonetica,
    ["FONE"] = fonetica,
    ["fonética"] = fonetica,
    ["alteración fonética"] = fonetica,
    ["adición"] = fonetica,
    ["epéntesis"] = fonetica,
    ["prótesis"] = fonetica,
    ["metaplasmo"] = fonetica,
    ["FON"] = fonetica,
    ["acortamiento"] = acortamiento,
    ["apócope"] = acortamiento,
    ["síncopa"] = acortamiento,
    ["aféresis"] = acortamiento,
    ["abreviación"] = acortamiento,
    ["abreviatura"] = acortamiento,
    ["supresión"] = acortamiento,
    ["acort"] = acortamiento,
    ["ACORT"] = acortamiento,
    ["diminutivo"] = diminutivo,
    ["dimi"] = diminutivo,
    ["DIMI"] = diminutivo,
    ["aumentativo"] = aumentativo,
    ["aume"] = aumentativo,
    ["AUME"] = aumentativo,
    ["sufijo"] = sufijo,
    ["SUF"] = sufijo,
    ["prefijo"] = prefijo,
    ["PREF"] = prefijo,
    ["infijo"] = infijo,
    ["INF"] = infijo,
    ["confijo"] = confijo,
    ["circunfijo"] = confijo,
    ["CIRCUNF"] = confijo,
    ["CONF"] = confijo,
    ["onomatopeya"] = onomatopeya,
    ["onomatopéyico"] = onomatopeya,
    ["onomatopéyica"] = onomatopeya,
    ["ONOM"] = onomatopeya,
    ["incierto"] = incierta,
    ["incierta"] = incierta,
    ["INC"] = incierta,
    ["epónimo"] = eponimo,
    ["epónima"] = eponimo,
    ["epon"] = eponimo,
    ["EPON"] = eponimo,
    ["pronominal"] = pronominal,
    ["PRON"] = pronominal,
    ["femenino"] = femenino,
    ["masculino"] = masculino,
    ["FEM"] = femenino,
    ["plural"] = plural,
    ["PLUR"] = plural,
    ["calco"] = calco,
    ["CALC"] = calco,
    ["marca"] = marca,
    ["endógeno"] = endogena,
    ["endógena"] = endogena,
    ["endo"] = endogena,
    ["ENDO"] = endogena,
    ["artificial"] = artificial,
    ["invento"] = artificial,
    ["autor"] = autor,
    ["acuñado"] = autor,
    ["pop"] = popularizado_por,
    ["popularizado"] = popularizado_por,
    ["metafórico"] = metaforica,
    ["metafórica"] = metaforica,
    ["meta"] = metaforica,
    ["META"] = metaforica,
    ["bíblico"] = biblica,
    ["bíblica"] = biblica,
    ["suma de partes"] = sumadepartes,
    ["suma"] = sumadepartes,
    ["no aplica"] = noaplica,
}

-- Entrada para {{etimología}}
function export.mostrar(frame)
	local params = {
		[1] = {},
		["e"] = {},
		["leng"] = {},
		["d"] = {lista=true},
		["glosa"] = {lista=true},
		["glosa-alt"] = {lista=true},
		["nl"] = {lista = true},
		["nolink"] = {alias_de="nl"},
		["num"] = {lista=true},
		["núm"] = {alias_de="num"},
		["tr"] = {lista=true},
		["transcripción"] = {alias_de="tr"},
		["alt"] = {lista=true},
		["diacrítico"] = {alias_de="alt"},
		["nota"] = {},
		["tilde"] = {},
		["texto-prefijo"] = {},
		["otro"] = {},
	}

    local parent_frame = frame:getParent()
	local args = require("Módulo:parámetros").obtener_parametros(parent_frame.args, params)
	
	local e = false
	for k,v in ipairs(args) do
		if strfind(v, "[%[%]%{%}%|%=]") then
			e = true
			break
		end
	end
	
	for k,v in pairs(args) do
		if strfind(v, "[%[%]%{%}%|%=]") then
			e = true
			break
		end
	end
	
	if (args[1] and (strfind(args[1], " para") or strfind(args[1], " y"))) or
	(args[2] and (strfind(args[2], " para") or strfind(args[2], " y"))) then
		generar_error("sufijopara")	
	end
	
	if e then
		generar_error("etimo")
	end

	if args["tilde"] and args["tilde"] ~= "" then
		generar_error("tilde")
	end
	
	if args["texto-prefijo"] and args["texto-prefijo"] ~= "" then
		generar_error("texto-prefijo")
	end
	
    if args["otro"] and args["otro"] ~= "" then
		generar_error("otro")
	end

    if not args["leng"] then
    	args["leng"] = "es"
    end
    args["LENG"] = args["leng"]:upper()

    if not args[1] then
    	return frame:extensionTag('span', "''Si puedes, incorpórala: [[Plantilla:etimología|ver cómo]]''"..(args["ns"] == 0 and "[[Categoría:Wikcionario:"..args["LENG"]..":Palabras de etimología sin precisar]]" or ""), {style ="color:green; font-size:90%"})
    end
    
    args["idioma_obj"] = obtener_idioma(args["leng"])
    args["idioma"] = args["idioma_obj"][1]
    args["Idioma"] = ucfirst(args["idioma"])
    args["ns"] = mw.title.getCurrentTitle().namespace
    args["tit"] = mw.title.getCurrentTitle().fullText

    local cb = callbacks[args[1]]
    if not cb then
    	cb = origen
    end

    return cb(args)
end

-- Entrada para {{etim}}
function export.mostrar_etim(frame)
	local params = {
		[1] = {},
		["e"] = {},
		["leng"] = {},
		["d"] = {lista=true},
		["glosa"] = {lista=true},
		["glosa-alt"] = {lista=true},
		["nl"] = {lista = true},
		["nolink"] = {alias_de="nl"},
		["num"] = {lista=true},
		["núm"] = {alias_de="num"},
		["tr"] = {lista=true},
		["transcripción"] = {alias_de="tr"},
		["alt"] = {lista=true},
		["diacrítico"] = {alias_de="alt"},
		["nota"] = {},
		["tilde"] = {},
		["texto-prefijo"] = {},
		["otro"] = {},
	}

    local parent_frame = frame:getParent()
	local args = require("Módulo:parámetros").obtener_parametros(parent_frame.args, params)
	
	local e = false
	for k,v in ipairs(args) do
		if strfind(v, "[%[%]%{%}%|%=]") then
			e = true
			break
		end
	end
	
	for k,v in pairs(args) do
		if strfind(v, "[%[%]%{%}%|%=]") then
			e = true
			break
		end
	end
	
	if e then
		generar_error("etimo")
	end

	if args["tilde"] and args["tilde"] ~= "" then
		generar_error("tilde")
	end
	
	if args["texto-prefijo"] and args["texto-prefijo"] ~= "" then
		generar_error("texto-prefijo")
	end
	
    if args["otro"] and args["otro"] ~= "" then
		generar_error("otro")
	end

    if not args["leng"] then
    	args["leng"] = "es"
    end
    args["LENG"] = args["leng"]:upper()

    if not args[1] then
    	error("El número de parámetros recibidos es insuficiente.")
    end
    
    args["idioma_obj"] = obtener_idioma(args["leng"])
    args["idioma"] = args["idioma_obj"][1]
    args["Idioma"] = ucfirst(args["idioma"])
    args["ns"] = mw.title.getCurrentTitle().namespace
    args["tit"] = mw.title.getCurrentTitle().fullText

    local cb = callbacks[args[1]]
    if not cb then
    	cb = origen
    end

    return lcfirst(cb(args))
end


local strfind = m_str.find

function export.etimologia2(frame)
	local parent_frame = frame:getParent()
	local args = parent_frame.args
	local x = args[1]
	
	local PALABRA = "['“”«»‘’\"%[%]%{%}%|a-zA-ZÀ-ž%*%-=]+"
	local PREFIJO = "['“”«»‘’\"%[%]%{%}%|a-zA-ZÀ-ž%*%-=]+%-['%]]*"
	local SUFIJO = "['%[]*%-['“”«»‘’\"%[%]%{%}%|a-zA-ZÀ-ž%*%-=]+"
	
	if not x or x == "" then
		generar_error("vacia")
		return frame:extensionTag('span', "''Si puedes, incorpórala: [[Plantilla:etimología|ver cómo]]''"..(args["ns"] == 0 and "[[Categoría:Wikcionario:"..args["LENG"]..":Palabras de etimología sin precisar]]" or ""), {style ="color:green; font-size:90%"})	
	end
	
	if strfind(x, "^ *[Dd]e *"..PALABRA.." *$") or strfind(x, "^ *[vV]er *"..PALABRA.." *$") or strfind(x, "^ *[vV].ase *"..PALABRA.." *$") then
		generar_error("endo")
		return x
	end
	if strfind(x, "^ *[Dd]el *"..PALABRA.." *"..PALABRA.." *$") 
	or strfind(x, "^ *[Dd]el *"..PALABRA.." *"..PALABRA.." *"..PALABRA.." *$") 
	or strfind(x, "^ *[Dd]el "..PALABRA.." *$") 
	or strfind(x, "^ *[Dd]e *origen *"..PALABRA.." *$")  then
		generar_error("origen")
		return x
	end

	if strfind(x, "^ *[dD]el *prefijo *"..PALABRA.." *y *el *sufijo *"..PALABRA.." *$")
	or strfind(x, "^ *[dD]e *"..PREFIJO.." *[%+y]* *"..SUFIJO.." *$") then
		generar_error("confijo2")
		return x
	end
	
	if strfind(x, "^ *[dD]el *prefijo *"..PALABRA.." *,? *"..PALABRA.." *y *el *sufijo *"..PALABRA.." *$") then
		generar_error("confijo3")
		return x
	end
	
	if strfind(x, "^ *[dD]el *prefijo *"..PALABRA.." *y *"..PALABRA.." *$") 
	or strfind(x, "^ *[dD]e *"..PREFIJO.." *[%+y]* *"..PALABRA.." *$") then
		generar_error("prefijo")
		return x
	end

	if strfind(x, "^ *[dD]e *"..PALABRA.." *,? *y *el *sufijo *"..PALABRA.." *$") 
	or strfind(x, "^ *[dD]e *"..PALABRA.." *%+* *"..SUFIJO.." *$") then
		generar_error("sufijo")
		return x
	end
	
	if strfind(x, "^ *[dD]?e?l? *[Dd]iminutivo *de *"..PALABRA.." *$") or strfind(x, "^ *[dD]e *"..PALABRA.." *,? *y *el *sufijo diminutivo *"..PALABRA.." *$") then
		generar_error("diminutivo")
		return x
	end
	
	if strfind(x, "^ *[dD]?e?l? *[Aa]umentativo *de *"..PALABRA.." *$") or strfind(x, "^ *[dD]e *"..PALABRA.." *,? *y *el *sufijo aumentativo *"..PALABRA.." *$") then
		generar_error("aumentativo")
		return x
	end
	
	if strfind(x, "^ *[cC]ompuesto *de *"..PALABRA.." *y *"..PALABRA.." *$") 
	or strfind(x, "^ *[cC]omposici.n *de *"..PALABRA.." *y *"..PALABRA.." *$") 
	or strfind(x, "^ *[dD]e *"..PALABRA.." *,? *y *"..PALABRA.." *$") then
		generar_error("compuesto")
		return x
	end
	
	if strfind(x, "^ *[pP]?o?r? *[cC]alco *[Dd]el *"..PALABRA.." *"..PALABRA.." *$") then
		generar_error("calco")
		return x
	end
	
	if strfind(x, "^ *[pP]?o?r? *[mM]et.tesis *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[tT]ran?sposici.n *[Dd]e *"..PALABRA.." *$") 
	or strfind(x, "^ *[pP]?o?r? *[vV]esre *[Dd]e *"..PALABRA.." *$") then
		generar_error("meta")
		return x
	end
	
	if strfind(x, "^ *[pP]?o?r? *[Aa]lteraci.n *[fF]on.tica *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[Pp]r.tesis *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[Pp]aragoge *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[eE]p.ntesis *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[Mm]etaplasmo *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[aA]dici.n *[Dd]e *"..PALABRA.." *$") then
		generar_error("fone")
		return x
	end
	
	if strfind(x, "^ *[pP]?o?r? *[Aa]cortamiento *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[Aa]p.cope *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[Ss].ncopa *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[aA]f.resis *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[Aa]breviaci.n *[Dd]e *"..PALABRA.." *$")
	or strfind(x, "^ *[pP]?o?r? *[Aa]breviatura *[Dd]e *"..PALABRA.." *$") then
		generar_error("abrev")
		return x
	end
	
	if strfind(x, "^ *[Dd]?e? *o?r?i?g?e?n? *[Oo]nomatop?.?y?i?c?.? *$") then
		generar_error("onom")
		return x
	end
	
	if strfind(x, "^ *[Dd]?e? *o?r?i?g?e?n? *[Ee]xpresiv.? *$") then
		generar_error("expr")
		return x
	end
	
	if strfind(x, "^ *[Dd]?e? *o?r?i?g?e?n? *[Ii]nciert.? *$") then
		generar_error("incerta")
		return x
	end
	
	generar_error("otro")
	return x
end

return export