Module:Fr-verb/core

local export = {}

local m_conj = require("Module:fr-conj") local m_links = require("Module:links") local lang = require("Module:languages").getByCode("fr") local IPA = function(str) return require("Module:IPA").format_IPA(nil,str) end

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

local pref_sufs = {} export.pref_sufs = pref_sufs

-- 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

local function verb_slot_to_accel(slot) return rsub(slot, "^([a-z_]+)_([123])([sp])$",		function(mood_tense, person, number)			local mood_tense_to_infl = {				["ind_p"] = "pres|indc",				["ind_i"] = "impf|indc",				["ind_ps"] = "phis",				["ind_f"] = "futr",				["cond_p"] = "cond",				["sub_p"] = "pres|subj",				["sub_pa"] = "impf|subj",				["imp_p"] = "impr"			}			return person .. "|" .. number .. "|" .. mood_tense_to_infl[mood_tense]		end	) end

local function map(seq, fun) if type(seq) == "table" then local ret = {} for _, s in ipairs(seq) do			-- Handle stem of the form {"STEM", RESPELLING="RESPELLING"} if type(s) == "table" then s = s[1] end -- store in separate var in case fun has multiple retvals local retval = fun(s) table.insert(ret, retval) end return ret else -- store in separate var in case fun has multiple retvals local retval = fun(seq) return retval end end

local function add(source, appendix) return map(source, function(s) return s .. appendix end) end

function export.make_ind_p_e(data, stem, stem2, stem3) stem2 = stem2 or stem stem3 = stem3 or stem

data.forms.ind_p_1s = add(stem,"e") data.forms.ind_p_2s = add(stem,"es") data.forms.ind_p_3s = add(stem,"e") data.forms.ind_p_3p = add(stem,"ent") data.forms.ind_p_1p = add(stem2,"ons") -- stem3 is used in -ger and -cer verbs data.forms.ind_p_2p = add(stem3,"ez")

export.make_ind_i(data, stem2, stem3) export.make_ind_ps_a(data, stem2, stem3) export.make_sub_p(data, stem, stem3) export.make_imp_p_ind(data) export.make_ind_f(data, add(stem, "er")) data.forms.ppr = add(stem2,"ant") end

function export.make_ind_p(data, stem, stem2, stem3) stem2 = stem2 or stem stem3 = stem3 or stem2 data.forms.ind_p_1s = add(stem,"s") data.forms.ind_p_2s = add(stem,"s") -- add t unless stem ends in -t (e.g. met), -d (e.g. vend, assied) or -- -c (e.g. vainc). data.forms.ind_p_3s = map(stem, function(s)		return add(s, rmatch(s, "[tdc]$") and "" or "t")	end) data.forms.ind_p_1p = add(stem2,"ons") data.forms.ind_p_2p = add(stem2,"ez") data.forms.ind_p_3p = add(stem3,"ent")

export.make_ind_i(data, stem2) export.make_sub_p(data, stem3, stem2) export.make_imp_p_ind(data) data.forms.ppr = add(stem2,"ant") end

function export.make_ind_i(data, stem, stem2) stem2 = stem2 or stem data.forms.ind_i_1s = add(stem,"ais") data.forms.ind_i_2s = add(stem,"ais") data.forms.ind_i_3s = add(stem,"ait") data.forms.ind_i_1p = add(stem2,"ions") data.forms.ind_i_2p = add(stem2,"iez") data.forms.ind_i_3p = add(stem,"aient") end

function export.make_ind_ps_a(data, stem, stem2) stem2 = stem2 or stem data.forms.ind_ps_1s = add(stem,"ai") data.forms.ind_ps_2s = add(stem,"as") data.forms.ind_ps_3s = add(stem,"a") data.forms.ind_ps_1p = add(stem,"âmes") data.forms.ind_ps_2p = add(stem,"âtes") data.forms.ind_ps_3p = add(stem2,"èrent")

export.make_sub_pa(data,add(stem,"a"))

data.forms.pp = data.forms.pp or add(stem2,"é") end

local function fix_circumflex(val) return rsub(val, "[aiïu]n?%^",{["a^"]="â", ["i^"]="î", ["ï^"]="ï", ["in^"]="în", ["u^"]="û"}) end

function export.make_ind_ps(data, stem) data.forms.ind_ps_1s = add(stem,"s") data.forms.ind_ps_2s = add(stem,"s") data.forms.ind_ps_3s = add(stem,"t") data.forms.ind_ps_1p = map(add(stem,"^mes"), fix_circumflex) data.forms.ind_ps_2p = map(add(stem,"^tes"), fix_circumflex) data.forms.ind_ps_3p = add(stem,"rent")

export.make_sub_pa(data,stem)

data.forms.pp = data.forms.pp or stem end

function export.make_ind_f(data, stem) data.forms.ind_f_1s = add(stem,"ai") data.forms.ind_f_2s = add(stem,"as") data.forms.ind_f_3s = add(stem,"a") data.forms.ind_f_1p = add(stem,"ons") data.forms.ind_f_2p = add(stem,"ez") data.forms.ind_f_3p = add(stem,"ont")

export.make_cond_p(data, stem) end

function export.make_cond_p(data, stem) data.forms.cond_p_1s = add(stem,"ais") data.forms.cond_p_2s = add(stem,"ais") data.forms.cond_p_3s = add(stem,"ait") data.forms.cond_p_1p = add(stem,"ions") data.forms.cond_p_2p = add(stem,"iez") data.forms.cond_p_3p = add(stem,"aient") end

function export.make_sub_p(data, stem, stem2) stem2 = stem2 or stem data.forms.sub_p_1s = add(stem,"e") data.forms.sub_p_2s = add(stem,"es") data.forms.sub_p_3s = add(stem,"e") data.forms.sub_p_3p = add(stem,"ent") data.forms.sub_p_1p = add(stem2,"ions") data.forms.sub_p_2p = add(stem2,"iez") end

function export.make_sub_pa(data, stem) data.forms.sub_pa_1s = add(stem,"sse") data.forms.sub_pa_2s = add(stem,"sses") data.forms.sub_pa_3s = map(add(stem,"^t"), fix_circumflex) data.forms.sub_pa_1p = add(stem,"ssions") data.forms.sub_pa_2p = add(stem,"ssiez") data.forms.sub_pa_3p = add(stem,"ssent") end

function export.make_imp_p_ind(data) data.forms.imp_p_2s = map(data.forms.ind_p_2s, function(form)		return rsub(form, "([ae])s$", "%1")	end) data.forms.imp_p_1p = data.forms.ind_p_1p data.forms.imp_p_2p = data.forms.ind_p_2p end

function export.make_imp_p_ind_sub(data) data.forms.imp_p_2s = map(data.forms.ind_p_2s, function(form)		return rsub(form, "([ae])s$", "%1")	end) data.forms.imp_p_1p = map(data.forms.sub_p_1p, function(form)		return rsub(form, "ions$", "ons")	end) data.forms.imp_p_2p = map(data.forms.sub_p_2p, function(form)		return rsub(form, "iez$", "ez")	end) end

function export.make_imp_p_sub(data) data.forms.imp_p_2s = map(data.forms.sub_p_2s, function(form)		return rsub(form, "es$", "e")	end) data.forms.imp_p_1p = map(data.forms.sub_p_1p, function(form)		return rsub(form, "ions$", "ons")	end) data.forms.imp_p_2p = map(data.forms.sub_p_2p, function(form)		return rsub(form, "iez$", "ez")	end) end

function export.clear_imp(data) data.forms.imp_p_2s = "—" data.forms.imp_p_1p = "—" data.forms.imp_p_2p = "—" end

local function add_prefix_suffix(data, key, val, pref_v, pref_c, pron_v, pron_c, imp, pron_imp, join_imp_dash) if key == "pp" or rmatch(key, "_nolink") then return end local imp_joiner, imp_pron_joiner if join_imp_dash then imp_joiner = "-" imp_pron_joiner = "." else imp_joiner = "" imp_pron_joiner = "" end local pref, suf, pref_pron, suf_pron local function get_pref_suf(v) pref, suf, pref_pron, suf_pron = "", "", "", "" if not rmatch(key, "imp") then if rmatch(v, "^[aeéêiouhywjɑɛœø]") then pref, pref_pron = pref_v, pron_v else pref, pref_pron = pref_c, pron_c end else suf, suf_pron = imp_joiner .. imp, imp_pron_joiner .. pron_imp end end if key == "inf" or key == "ppr" then data.forms[key .. '_nolink'] = map(data.forms[key], function(val)				get_pref_suf(val)				return pref .. val .. suf			end) end data.forms[key] = map(val, function(v)		get_pref_suf(v)		return rsub(pref .. "" .. v .. "" .. suf, "%.h", "h")	end) if data.prons[key] then data.prons[key] = map(data.prons[key], function(v)			get_pref_suf(v)			return pref_pron .. v .. suf_pron		end) end end

pref_sufs["y"] = function(data, key, val) local imp = rmatch(key, "2s") and not rmatch(val, "s$") and "s-y" or "-y" add_prefix_suffix(data, key, val, "y ", "y ", "i.j‿", "i ", imp, ".zi", false) end

pref_sufs["en"] = function(data, key, val) local imp = rmatch(key, "2s") and not rmatch(val, "s$") and "s-en" or "-en" add_prefix_suffix(data, key, val, "en ", "en ", "ɑ̃.n‿", "ɑ̃ ", imp, ".zɑ̃", false) end

pref_sufs["yen"] = function(data, key, val) local imp = rmatch(key, "2s") and not rmatch(val, "s$") and "s-y en" or "-y-en" add_prefix_suffix(data, key, val, "y en ", "y en ", "i.j‿ɑ̃.n‿", "i.j‿ɑ̃ ", imp, ".zi.jɑ̃", false) end

pref_sufs["le"] = function(data, key, val) add_prefix_suffix(data, key, val, "l'", rmatch(key, "2p") and "le or la " or "le ", "l", "lə ", "-le", ".lə", false) end

pref_sufs["la"] = function(data, key, val) add_prefix_suffix(data, key, val, "l'", "la ", "l", "la ", "-la", ".la", false) end

pref_sufs["l"] = function(data, key, val) add_prefix_suffix(data, key, val, "l'", "l'", "l", "l", "-le or -la", ".lə or .la", false) end

pref_sufs["les"] = function(data, key, val) add_prefix_suffix(data, key, val, "les ", "les ", "le.z‿", "le", "-les", ".le", false) end

pref_sufs["l_y"] = function(data, key, val) add_prefix_suffix(data, key, val, "l'y ", "l'y ", "li.j‿", "li ", "-l'y", ".li", false) end

pref_sufs["l_en"] = function(data, key, val) data.aux = "l'en avoir" add_prefix_suffix(data, key, val, "l'en ", "l'en ", "lɑ̃.n‿", "lɑ̃ ", "l'en", "lɑ̃", true) end

pref_sufs["lesen"] = function(data, key, val) data.aux = "les en avoir" add_prefix_suffix(data, key, val, "les en ", "les en ", "le.z‿ɑ̃.n‿", "le.z‿ɑ̃ ", "-les-en", "le.zɑ̃", true) end

pref_sufs["lesy"] = function(data, key, val) add_prefix_suffix(data, key, val, "les y ", "les y ", "le.z‿i.j‿", "le.z‿i ", "-les-y", ".le.zi", false) end

pref_sufs["l_yen"] = function(data, key, val) data.aux = "l'y en avoir" add_prefix_suffix(data, key, val, "l'y en ", "l'y en ", "li.j‿ɑ̃.n‿", "li.j‿ɑ̃ ", "l'y-en", "li.jɑ̃", true) end

pref_sufs["lesyen"] = function(data, key, val) data.aux = "les y en avoir" add_prefix_suffix(data, key, val, "les y en ", "les y en ", "le.z‿i.j‿ɑ̃.n‿", "le.z‿i.j‿ɑ̃ ", "-les-y-en", "le.zi.jɑ̃", true) end

-- Add reflexive prefixes and suffixes to verb forms. KEY is the form to add to, and VAL is the value -- without prefixes and suffixes. PREF_V is the prefix to add to non-imperative forms that begin with a -- vowel, and PREF_C is the corresponding prefix for non-imperative forms beginning with a consonant. -- PRON_V is the prefix to add to the pronunciation of non-imperative forms that begin with a vowel, and -- PRON_C is the corresponding prefix for pronunciations beginning with a consonant. IMP is the suffix to -- add to imperative forms, and PRON_IMP is the corresponding suffix to add to the pronunciation of -- imperative forms. All prefixes and suffixes are added directly, without an intervening space. -- -- Since the prefixes and suffixes vary depending on the person and number, the specified prefixes and -- suffixes should contain "%c" and/or "%v" specs in them. "%c" represents the appropriate pronominal -- form to add before a consonant (or when nothing follows, in the case of suffixes), and "%v" represents -- the corresponding form to add before a vowel. The actual forms substituted depend on both the person -- and number of KEY and the type of prefix (i.e. whether it's a spelled prefix, pronunciation prefix, -- spelled imperative suffix or pronunciation imperative suffix). For example, if key contains "2s" -- (i.e. it represents a second person singular form), a "%v" in a spelled prefix will be replaced with -- "t'" and a "%c" in a pronounced prefix will be replaced with "tə ". Note that it's not always the -- case that %c should occur in a pre-consonant prefix/suffix and correspondingly for %v. For example, -- if the prefix occurs before "en" or "y" you should use %v in both the pre-vowel and pre-consonant -- prefixes. local function add_refl_prefix_suffix(data, key, val, pref_v, pref_c, pron_v, pron_c, imp, pron_imp) local sub_pref_v, sub_pref_c, sub_pron_v, sub_pron_c local sub_imp_v, sub_imp_c, sub_pron_imp_v, sub_pron_imp_c = "", "", "", "" if rmatch(key, "1s") then sub_pref_v, sub_pref_c, sub_pron_v, sub_pron_c = "m'", "me ", "m", "mə " elseif rmatch(key, "2s") then sub_pref_v, sub_pref_c, sub_pron_v, sub_pron_c = "t'", "te ", "t", "tə " sub_imp_v, sub_imp_c, sub_pron_imp_v, sub_pron_imp_c = "t'", "toi", "t", "twa" elseif rmatch(key, "1p") then sub_pref_v, sub_pref_c, sub_pron_v, sub_pron_c = "nous ", "nous ", "nu.z‿", "nu " sub_imp_v, sub_imp_c, sub_pron_imp_v, sub_pron_imp_c = "nous-", "nous", "nu.z", "nu" elseif rmatch(key, "2p") then sub_pref_v, sub_pref_c, sub_pron_v, sub_pron_c = "vous ", "vous ", "vu.z‿", "vu " sub_imp_v, sub_imp_c, sub_pron_imp_v, sub_pron_imp_c = "vous-", "vous", "vu.z", "vu" else sub_pref_v, sub_pref_c, sub_pron_v, sub_pron_c = "s'", "se ", "s", "sə " end local function dosub(spec, dotype) if type(spec) == "table" then local sing, plur = spec[1], spec[2] if rmatch(key, "[12]p") then spec = plur else spec = sing end end spec = rsub(spec, "%%v",			dotype == "pron" and sub_pron_v or			dotype == "imp" and sub_imp_v or			dotype == "pron-imp" and sub_pron_imp_v or			sub_pref_v		) spec = rsub(spec, "%%c",			dotype == "pron" and sub_pron_c or			dotype == "imp" and sub_imp_c or			dotype == "pron-imp" and sub_pron_imp_c or			sub_pref_c		) return spec end add_prefix_suffix(data, key, val, dosub(pref_v), dosub(pref_c), dosub(pron_v, "pron"), dosub(pron_c, "pron"),		dosub(imp, "imp"), dosub(pron_imp, "pron-imp"), true) end

pref_sufs["refl"] = function(data, key, val) data.aux = "s'être" add_refl_prefix_suffix(data, key, val, "%v", "%c", "%v", "%c", "%c", "%c") end

pref_sufs["reflen"] = function(data, key, val) data.aux = "s'en être" add_refl_prefix_suffix(data, key, val, "%ven ", "%ven ", "%vɑ̃.n‿", "%vɑ̃ ", "%ven", "%vɑ̃") end

pref_sufs["refly"] = function(data, key, val) data.aux = "s'y être" add_refl_prefix_suffix(data, key, val, "%vy ", "%vy ", "%vi.j‿", "%vi ", "%vy", "%vi") end

pref_sufs["reflyen"] = function(data, key, val) data.aux = "s'y en être" add_refl_prefix_suffix(data, key, val, "%vy en ", "%vy en ", "%vi.j‿ɑ̃.n‿", "%vi.j‿ɑ̃ ", "%v'y-en", "%vi.jɑ̃") end

pref_sufs["reflle"] = function(data, key, val) data.aux = "se l'être" add_refl_prefix_suffix(data, key, val, "%cl'", "%cle ", "%cl", "%clə ", "le-%c", "lə.%c") end

pref_sufs["refll"] = function(data, key, val) data.aux = "se l'être" add_refl_prefix_suffix(data, key, val, "%cl'", "%cl'", "%cl", "%cl", "le-%c or -la-%c", "lə.%c or .la.%c") end

pref_sufs["reflla"] = function(data, key, val) data.aux = "se l'être" add_refl_prefix_suffix(data, key, val, "%cl'", "%cla ", "%cl", "%cla ", "la-%c", "la.%c") end

pref_sufs["reflles"] = function(data, key, val) data.aux = "se les être" add_refl_prefix_suffix(data, key, val, "%cles ", "%cles ", "%cle.z‿", "%cle ", "les-%c", "le.%c") end

pref_sufs["reflly"] = function(data, key, val) data.aux = "se l'y être" add_refl_prefix_suffix(data, key, val, "%cl'y ", "%cl'y ", "%cli.j‿", "%cli ", "le-%cy or -la-%cy", "lə.%ci or .la.%ci") end

pref_sufs["refllesy"] = function(data, key, val) data.aux = "se les y être" add_refl_prefix_suffix(data, key, val, "%cles y ", "%cles y ", "%cle.z‿i.j‿", "%cle.z‿i ", "les-%cy", "le.%ci") end

function export.link(data) for key, val in pairs(data.forms) do		if type(val) ~= "table" then val = {val} end -- don't destructively modify data.forms[key][i] because it might -- be shared among different keys local newval = {} for i,form in ipairs(val) do			local newform = form if not rmatch(key,"nolink") and not rmatch(form,"—") then newform = m_links.full_link({term = form, lang = lang,					accel = { form = verb_slot_to_accel(key) }				}) end if rmatch(form, "—") then newform = "—" end table.insert(newval, newform) end data.forms[key] = table.concat(newval, " or ") end for key, val in pairs(data.prons) do		if not rmatch(key,"nolink") then if type(val) ~= "table" then val = {val} end -- don't destructively modify data.forms[key][i] because it might -- be shared among different keys local newprons = {} for i,form in ipairs(val) do				if not rmatch(form,"—") then table.insert(newprons, IPA('/' .. form .. '/'))				end end if #newprons > 0 and data.forms[key] ~= "—" then data.forms[key] = data.forms[key] .. ' ' .. table.concat(newprons, " or ") .. ' '			end end end end

-- not sure if it's still used by something so I'm leaving a stub function instead of removing it entirely function export.make_table(data) return m_conj.make_table(data) end

function export.extract(data, args) if args.inf then data.forms.inf = args.inf export.make_ind_f(data, rsub(args.inf,"e$","")) export.make_cond_p(data, rsub(args.inf,"e$","")) end if args.pp then data.forms.pp = args.pp		if rmatch(args.pp, "[iu]$") then export.make_ind_ps(data, args.pp) export.make_sub_pa(data, args.pp) end end for _,form in ipairs({"ind_p","ind_i","ind_ps","ind_f","cond_p","sub_p","sub_pa","imp_p"}) do		local dot_form = rsub(form,"_",".") if args[dot_form] then if form == "ind_p" then local stem = args[dot_form] local stem2 = stem local stem3 = stem if rmatch(stem, "^[^/]+/[^/]+/[^/]+$") then stem = rsub(stem, "^([^/]+)/([^/]+)/([^/]+)$", "%1") stem2 = rsub(stem2, "^([^/]+)/([^/]+)/([^/]+)$", "%2") stem3 = rsub(stem3, "^([^/]+)/([^/]+)/([^/]+)$", "%3") elseif rmatch(stem, "^[^/]+/[^/]+$") then stem = rsub(stem, "^([^/]+)/([^/]+)$", "%1") stem2 = rsub(stem2, "^([^/]+)/([^/]+)$", "%2") stem3 = stem2 end if args["ind.p_e"] then export.make_ind_p_e(data, stem, stem2, stem3) else export.make_ind_p(data, stem, stem2, stem3) end for _,person in ipairs({"1s","2s","3s","1p","2p","3p"}) do data.forms[form .. "_" .. person] = args[dot_form .. "." .. person] or data.forms[form .. "_" .. person] end export.make_imp_p_ind(data) elseif form == "ind_i" then export.make_ind_i(data, args[dot_form]) elseif form == "ind_ps" then if rmatch(args["ind.ps"], "a$") then local stem = rsub(args[dot_form],"a$","") export.make_ind_ps_a(data, stem) else export.make_ind_ps(data, args[dot_form]) end export.make_sub_pa(data, args[dot_form]) elseif form == "ind_f" then export.make_ind_f(data, args[dot_form]) elseif form == "cond_p" then export.make_cond_p(data, args[dot_form]) elseif form == "sub_p" then local stem = args[dot_form] local stem2 = stem if rmatch(stem, "^[^/]+/[^/]+$") then stem = rsub(stem, "^([^/]+)/([^/]+)$", "%1") stem2 = rsub(stem2, "^([^/]+)/([^/]+)$", "%2") end export.make_sub_p(data, stem, stem2) elseif form == "sub_pa" then export.make_sub_pa(data, args[dot_form]) elseif form == "imp_p" then if args[dot_form] == "sub" then export.make_imp_p_sub(data) elseif args[dot_form] == "ind_sub" then export.make_imp_p_ind_sub(data) else export.make_imp_p_ind(data) end end end for _,person in ipairs({"1s","2s","3s","1p","2p","3p"}) do data.forms[form .. "_" .. person] = args[dot_form .. "." .. person] or data.forms[form .. "_" .. person] end end

data.forms.ppr = args.ppr or data.forms.ppr if not data.forms.ppr then if data.forms.ind_p_1p then data.forms.ppr = map(data.forms.ind_p_1p, function(val)				return rsub(val, "ons$", "ant")			end) else data.forms.ppr = "" end end data.forms.pp = args.pp or data.forms.pp end

return export

-- For Vim, so we get 4-space tabs -- vim: set ts=4 sw=4 noet: