Module:User:Benwing2/gl-reinteg-common

local export = {}

local romut_module = "Module:romance utilities"

local rsubn = mw.ustring.gsub local rfind = mw.ustring.find local rmatch = mw.ustring.match

local unaccented_vowel = "aeiouàAEIOUÀ" local accented_vowel = "áéíóúýâêôÁÉÍÓÚÝÂÊÔ" local maybe_accented_vowel = "ãõÃÕ" local vowel = unaccented_vowel .. accented_vowel .. maybe_accented_vowel local V = "[" .. vowel .. "]" export.V = V local AV = "[" .. accented_vowel .. "]" export.AV = AV local NAV = "[^" .. accented_vowel .. "]" export.NAV = NAV local C = "[^" .. vowel .. ".]" export.C = C local remove_accent = { ["á"]="a", ["é"]="e", ["í"]="i", ["ó"]="o", ["ú"]="u", ["ý"]="y", ["â"]="a", ["ê"]="e", ["ô"]="o", ["Á"]="A", ["É"]="E", ["Í"]="I", ["Ó"]="O", ["Ú"]="U", ["Ý"]="Y", ["Â"]="A", ["Ê"]="E", ["Ô"]="O" } export.remove_accent = remove_accent

-- version of rsubn that discards all but the first return value local function rsub(term, foo, bar) local retval = rsubn(term, foo, bar) return retval end

export.rsub = rsub

-- version of rsubn that returns a 2nd argument boolean indicating whether -- a substitution was made. local function rsubb(term, foo, bar) local retval, nsubs = rsubn(term, foo, bar) return retval, nsubs > 0 end

export.rsubb = rsubb

-- apply rsub repeatedly until no change local function rsub_repeatedly(term, foo, bar) while true do		local new_term = rsub(term, foo, bar) if new_term == term then return term end term = new_term end end

export.rsub_repeatedly = rsub_repeatedly

function export.remove_final_accent(stem) return rsub(stem, "(" .. AV .. ")(" .. C .. "*)$", function(v, c) return (remove_accent[v] or v) .. c end) end

local prepositions = { -- a + optional article "a ", "às? ", "aos? ", -- com + optional article "com ", "coa?s? ", "d'", -- de + optional article "de ", "d[oa]s? ", "d'", -- en/em + optional article "em ", "n[oa]s? ", -- por + optional article "por ", "pol[oa]s? ", -- others "para ", "at[áé] ", "com[oa] ", "entre ", "se[nm] ", "sob? ", "sobre ", }

local function call_handle_multiword(term, special, make_fun, fun_name) local retval = require(romut_module).handle_multiword(term, special, make_fun, prepositions) if retval then if #retval ~= 1 then error("Internal error: Should have one return value for " .. fun_name .. ": " .. table.concat(retval, ",")) end return retval[1] end return nil end

local function make_try(word) return function(from, to) local newval, changed = rsubb(word, from, to) if changed then return newval end return nil end end

function export.make_plural(term, special) local retval = call_handle_multiword(term, special, export.make_plural, "make_plural") if retval then return retval end

local try = make_try(term) -- This is ported from Module:pt-common and based off of http://agal-gz.org/faq/doku.php?id=pt_agal:normas:norma_da_agal:morfologia:o_nome. return try("ão$", "ões") or		try("aõ$", "oens") or try("(" .. AV .. ".*)[ei]l$", "%1eis") or -- final unstressed -el or -il try("el$", "éis") or -- final stressed -el try("il$", "is") or -- final stressed -il try("(" .. AV .. ".*)ol$", "%1ois") or -- final unstressed -ol try("ol$", "óis") or -- final stressed -ol try("(" .. V .. ")l$", "%1is") or -- any other vowel + -l try("m$", "ns") or -- final -m try("(" .. V .. ")$", "%1s") or -- final vowel try("([ºª])$", "%1s") or -- ordinal indicator try("([íú]s)$", "%1es") or -- país -> países try("(" .. AV .. ")s$", function(av) return (remove_accent[av] or av) .. "ses" end) or -- final -ês, -ós etc. try("^(" .. NAV .. "*" .. C .. "[ui]s)$", "%1es") or -- final stressed -us or -is after consonant try("^(" .. NAV .. "*[aeo][ui]s)$", "%1es") or -- final stressed diphthong + -s e.g. deus try("([aeo])iz$", "%1ízes") or -- raiz -> raízes try("([aeo])uz$", "%1úzes") or -- same for u; not sure if there are any examples try("([rzn])$", "%1es") or -- final -r, -z, -n: hífen, flor, pior, cruz, rapaz try("([sx])$", "%1") or -- unstressed final -s, final cluster with -s or final -x: no change term .. "s" end

function export.make_feminine(term, is_noun, special) local retval = call_handle_multiword(term, special, function(term) return export.make_feminine(term, is_noun) end,		"make_feminine") if retval then return retval end

local try = make_try(term)

-- This is ported from Module:pt-common and based off of http://agal-gz.org/faq/doku.php?id=pt_agal:normas:norma_da_agal:morfologia:o_nome. return -- Exceptions: afegão (afegã), alazão (alazã), alemão (alemã), ancião (anciã), --            anglo-saxão (anglo-saxã), beirão (beirã/beiroa), bretão (bretã), cão (cã), --            castelão (castelã/castelona[rare]/casteloa[rare]), catalão (catalã), chão (chã), --            cristão (cristã), fodão (fodão since from foda), grão (grã), lapão (lapoa), --            letão (letã), meão (meã), órfão (órfã), padrão (padrão), pagão (pagã), --            paleocristão (paleocristã), parmesão (parmesã), romão (romã), são (sã), --            saxão (saxã), temporão (temporã), teutão (teutona/teutã/teutoa), vão (vã), --            varão (varoa), verde-limão (invariable), vilão (vilã/viloa) try("ám$", "á") or		try("ao$", "á") or		try("om$", "ona") or		try("ão$", "ona") or		try("o$", "a") or		-- ordinal indicator try("º$", "ª") or -- francês, português, inglês, holandês etc.		try("ês$", "esa") or		-- francez, portuguez, inglez, holandez (archaic) try("ez$", "eza") or		-- adjectives in: -- * -ador, -edor (amortecedor, comovedor, etc.), -idor (inibidor, etc.) -- * -tor (condutor, construtor, coletor, etc.) -- * -sor (admissor, censor, decisor, etc.) -- but not: -- * anterior/posterior/inferior/maior/pior/melhor -- * bicolor/incolor/multicolor/etc., indolor, etc.		try("([dts][oô]r)$", "%1a") or		-- amebeu, aqueu, aquileu, arameu, cananeu, cireneu, egeu, eritreu, -- europeu, galileu, indo-europeu/indoeuropeu, macabeu, mandeu, pigmeu, -- proto-indo-europeu -- Exceptions: judeu (judia), sandeu (sandia) try("eu$", "eia") or		is_noun and try("e$", "a") or -- note: espanhol (espanhola), but this is the only case in -ol (vs. bemol, mongol with no		-- change in the feminine) term end

function export.make_masculine(term, special) local retval = call_handle_multiword(term, special, export.make_masculine, "make_masculine") if retval then return retval end

local try = make_try(term)

return try("([dts])ora$", "%1or") or		try("a$", "o") or		-- ordinal indicator try("ª$", "º") or		term end

-- FIXME: Next two copied from Module:es-common. Move to a utilities module.

-- Add links around words. If multiword_only, do it only in multiword terms. function export.add_links(term, multiword_only) if term == "" or term == " " then return term end if not term:find("%[%[") then if rfind(term, "[%s%p]") then --optimization to avoid loading Module:headword on single-word terms local m_headword = require("Module:headword") if m_headword.head_is_multiword(term) then term = m_headword.add_multiword_links(term) end end if not multiword_only and not term:find("%[%[") then term = "" .. term .. "" end end return term end

function export.strip_redundant_links(term) -- Strip redundant brackets surrounding entire term. return rmatch(term, "^%[%[([^%[%]]*)%]%]$") or term end

return export