বিষয়বস্তুতে চলুন

মডিউল:fro-verb

উইকিঅভিধান, মুক্ত অভিধান থেকে

এই মডিউলের জন্য মডিউল:fro-verb/নথি-এ নথিপত্র তৈরি করা হয়ে থাকতে পারে

--[[

Author: User:benwing

Todo:

1. Possibly, make it possible to specify multiple stems to stem parameters
   separated by commas. This is easiest for fut= but gets trickier for all the
   rest because there are multiple parameters per stem.
2. Should write a routine that extracts the present stems (pres, press, ier,
   plus equivalent for 2 .. 9, and handles the special-casing for 'pres/steme'
   and 'ier', and checks to make sure a multipart spec wasn't given, and uses
   the corresponding prese if so), and uses them in handle_imperfect() and
   handle_pres_part(). Also need to handle 'prese' in the subjunctive and
   imperative code, which should probably be rewritten along the lines of
   handle_imperfect().
3. Create separate categories for verbs ending in various consonants, e.g.
   g, c, ch, ill, gn, etc.
4. Figure out how to create a category for verbs that are missing their
   conjugation (but are still identified as verbs because of {{head|fro|verb}},
   which puts them into Category:Old French verbs). Possibly this isn't
   possible except using a bot.
5. Intro to Old French by Kibler claims that -lm requires a supporting vowel.
   Possibly -ln as well. What about -lf? Evidently -ld does not require a
   supporting vowel, due to 'chaud' < 'calidus'. Should we try to handle -lm
   specially? We might want to also handle -aum, -eum (but not -oum as in
   'noumer', where 'ou' represents earlier 'o' rather than an 'l'). These
   verbs are rare enough, though, and hard enough to handle correctly that
   perhaps we should just require explicitly specifying supe= (or equivalently,
   using {{temp|fro-conj-er-e}} etc.).
--]]

local m_links = require("Module:links")
local m_utilities = require("Module:utilities")

local lang = require("Module:languages").getByCode("fro")

local export = {}

-- Functions that do the actual inflecting by creating the forms of a basic term.
local inflections = {}

local rfind = mw.ustring.find
local rsub = mw.ustring.gsub
local rmatch = mw.ustring.match
local usub = mw.ustring.sub

local function ine(x) -- If Not Empty
	if x == nil then
		return nil
	elseif rfind(x, '^".*"$') then
		local ret = rmatch(x, '^"(.*)"$')
		return ret
	elseif rfind(x, "^'.*'$") then
		local ret = rmatch(x, "^'(.*)'$")
		return ret
	elseif x == "" then
		return nil
	else
		return x
	end
end

local function contains(tab, item)
	for _, value in pairs(tab) do
		if value == item then
			return true
		end
	end
	return false
end

local function insert_if_not(tab, item)
	if not contains(tab, item) then
		table.insert(tab, item)
	end
end

----------------------------------------------------------------------------
-- Functions for working with stems

-- Given the stem as it appears before e/i, generate the corresponding
-- stem for a/o.
function steme_to_stema(steme)
	if rfind(steme, "c$") then
		-- Need to assign to a var because rsub returns 2 values, and
		-- assigning to one var fetches only the first one
		local stema = rsub(steme, "c$", "ç")
		return stema
	elseif rfind(steme, "g$") then
		local stema = rsub(steme, "g$", "j")
		return stema
	else
		return steme
	end
end

-- Given the stem as it appears before a/o, generate the corresponding
-- stem for e/i.
function stema_to_steme(stema)
	if rfind(stema, "c$") then
		-- Need to assign to a var because rsub returns 2 values, and
		-- assigning to one var fetches only the first one
		local steme = rsub(stema, "c$", "qu")
		return steme
	elseif rfind(stema, "g$") then
		local steme = rsub(stema, "g$", "gu")
		return steme
	elseif rfind(stema, "ç$") then
		local steme = rsub(stema, "ç$", "c")
		return steme
	else
		return stema
	end
end

-- Given the stem as it appears before a/o, generates the corresponding
-- stem for u.
function stema_to_stemu(stema)
	if rfind(stema, "qu$") then
		-- Need to assign to a var because rsub returns 2 values, and
		-- assigning to one var fetches only the first one
		local stemu = rsub(stema, "qu$", "c")
		return stemu
	elseif rfind(stema, "gu$") then
		local stemu = rsub(stema, "gu$", "g")
		return stemu
	else
		return stema
	end
end

-- Given the stem as it appears before e/i, generates the corresponding
-- stem for u.
function steme_to_stemu(steme)
	return stema_to_stemu(steme_to_stema(steme))
end

-- Get the stem from the infinitive. Return stem and whether stem is
-- soft-vowel (true except for -re and -oir verbs).
--
-- Currently we rely on the IER argument being set in order to remove
-- -ier from an infinitive. An alternative is to always check for -ier
-- and assume that cases like 'signifier' which is an '-er' verb with a
-- stem 'signifi' are handled by explicitly specifying the stem. (We
-- assume this anyway in the case of any '-ir' verb whose stem ends
-- in '-o', such as 'oir' "to hear".)
local function get_stem_from_inf(inf, ier, ir)
	local nsub = 0
	-- if 'ier' arg given and stem ends in -ier, strip it off.
	if ier then
		stem, nsub = rsub(inf, "ier$", "")
		if nsub > 0 then
			return stem, "ier", true
		end
	end
	-- Check for -er, -oir, -eir, -ir, -ïr, -re in sequence.
	-- Must check for -oir, -eir before -ir.
	stem, nsub = rsub(inf, "er$", "")
	if nsub > 0 then
		return stem, "er", true
	end
	if not ir then
		stem, nsub = rsub(inf, "oir$", "")
		if nsub > 0 then
			return stem, "oir", false
		end
		stem, nsub = rsub(inf, "eir$", "")
		if nsub > 0 then
			return stem, "eir", true
		end
	end
	stem, nsub = rsub(inf, "ir$", "")
	if nsub > 0 then
		return stem, "ir", true
	end
	stem, nsub = rsub(inf, "ïr$", "")
	if nsub > 0 then
		return stem, "ir", true
	end
	stem, nsub = rsub(inf, "re$", "")
	if nsub > 0 then
		return stem, "re", false
	end
	error("Unrecognized infinitive '" .. inf .. "'")
end

-- Get the present stem, either explicitly passed in as the first arg or
-- implicitly through the page name, assumed to be the same as the
-- infinitive. Currently we rely on the 'ier' argument being set in
-- order to remove -ier from an infinitive. An alternative is to
-- always check for -ier an assume that cases like 'signifier' which
-- is an '-er' verb with a stem 'signifi' are handled by explicitly
-- specifying the stem. (We assume this anyway in the case of any '-ir'
-- verb whose stem ends in '-o', such as 'oir' "to hear".)
local function get_stem_from_frame(frame)
	local stem = ine(frame.args[1])
	-- if stem passed in and non-blank, use it.
	if stem then
		return stem
	end
	local inf = mw.title.getCurrentTitle().text
	local ier = ine(frame.args["ier"])
	local ir = ine(frame.args["ir"])
	local stem, ending, is_soft = get_stem_from_inf(inf, ier, ir)
	return stem
end

-- External entry point for get_stem_from_frame(). Optional stem is first
-- argument, optional 'ier' argument is used for -ier verbs (see
-- get_stem_from_frame()).
function export.get_stem(frame)
	return get_stem_from_frame(frame)
end

-- Joins a stem to an ending, automatically handling the stem changes needed
-- before different vowels (steme/stema/stemu), and automatically adding umlauts
-- to the stem and/or ending when necessary. The stem form passed in is steme
-- (the form before e/i).
function join(stem, ending)
	local firstend = usub(ending, 1, 1)
	-- change the stem as appropriate
	if firstend == "a" or firstend == "o" then
		stem = steme_to_stema(stem)
	elseif firstend == "u" then
		stem = steme_to_stemu(stem)
	end
	-- add an umlaut to i or u at beginning of ending if there's a vowel
	-- at the end of the stem, unless it's the same vowel, or a diphthong
	-- ending in i/u, or gu/qu.
	if firstend == "i" and
		(rfind(stem, "[aeoü]$") or
		 rfind(stem, "u$") and not rfind(stem, "[gqaäeëéiïoö]u$")) then
		ending = rsub(ending, "^i", "ï")
	elseif firstend == "u" and
		(rfind(stem, "[aeïo]$") or
		 rfind(stem, "i$") and not rfind(stem, "[aäeëéoöuü]i$")) then
		ending = rsub(ending, "^u", "ü")
	-- add an umlaut to i or u at end of stem if ending begins with e/é and
	-- stem doesn't end in diphthong, or gu/qu.
	elseif firstend == "e" or firstend == "é" then
		if rfind(stem, "i$") and not rfind(stem, "[aäeëéoöuü]i$") then
			stem = rsub(stem, "i$", "ï")
		elseif rfind(stem, "u$") and not rfind(stem, "[gqaäeëéiïoö]u$") then
			stem = rsub(stem, "u$", "ü")
		end
	end
	return stem .. ending
end

----------------------------------------------------------------------------
-- Functions for generating arrays of endings

-- Generate an ending array (five-element, see below), where a supporting ''e''
-- is needed.
local function supporting_e(extra)
local text = "In the present tense an extra supporting ''e'' is needed in the first-person singular indicative and throughout the singular subjunctive, and the third-person singular subjunctive ending ''-t'' is lost. "
	text = text .. extra
	return {"", "e", "es", "e", text}
end

-- Generate a general ending array (five-element, see below).
local function mod3(ending, zero, s, t)
	local text = nil
	if ending == zero then
		text = string.format("The forms that would normally end in *''-%ss'', *''-%st'' are modified to ''%s'', ''%s''. ",
		ending, ending, s, t)
	else
		text = string.format("The forms that would normally end in *''-%s'', *''-%ss'', *''-%st'' are modified to ''%s'', ''%s'', ''%s''. ",
		ending, ending, ending, zero, s, t)
	end
	return {ending, zero, s, t, text}
end

-- Return the stem and an array of five elements. In the array, the first
-- is the ending to be substitute, the second is the add_zero ending to
-- substitute, the third is the add_s ending to substitute, the fourth is
-- the add_t ending to substitute and the fifth is the text going into the
-- comment at the top of the conj table. IER should be specified for -ier
-- verbs, which only occur with palatal(ized) final consonants, and causes
-- a different interpretation of certain consonants, esp. final l.
-- If SUPE is specified, force a supporting -e to be added (normally this
-- is inferred automatically from the stem). If OLD is specified, don't
-- convert l before consonant to u.
local function get_endings(stem, ier, supe, old)
	local ret = {"", "", "s", "t", ""}
	local ending = nil
	-- canonicalize ngn to gn when after vowel or r, l
	if rfind(stem, "[aeiouyäëïöüÿrl]ngn$") then
		ending = "ngn"
		stem = rsub(stem, "ngn$", "gn")
	end
	-- canonicalize double letter to single after vowel, except for l
	-- we need to treat Cill and Cil differently
	if rfind(stem, "[aeéiouyäëïöüÿ]([bcdfghjkmnpqrstvwxz])%1$") then
		ending = rmatch(stem, "(..)$")
		stem = rsub(stem, "([bcdfghjkmnpqrstvwxz])%1$", "%1")
	end
	if supe then
		ret = supporting_e("")
	elseif rfind(stem, "mb$") then
		ret = mod3("mb", "mp", "ns", "nt")
	elseif rfind(stem, "mp$") then
		ret = mod3("mp", "mp", "ns", "nt")
	elseif rfind(stem, "([aeéiouyäëïöüÿrlmn])[bpdtḍṭfvczk]$") then
		local lastchar = rmatch(stem, "(.)$")
		ending = ending or lastchar
		if lastchar == "b" or lastchar == "p" then
			ret = mod3(ending, "p", "s", "t")
		elseif lastchar == "d" or lastchar == "t" then
			ret = mod3(ending, "t", "z", "t")
		elseif lastchar == "ḍ" or lastchar == "ṭ" then
			ret = mod3(ending, "ṭ", "z", "t")
		elseif lastchar == "f" or lastchar == "v" then
			ret = mod3(ending, "f", "s", "t")
		elseif lastchar == "c" then
			ret = mod3(ending, "z", "z", "zt")
			ret[5] = ret[5] .. "In addition, ''c'' becomes ''ç'' before an ''a, o'' or ''u'' to keep the /ts/ sound intact. "
		-- at least in bauptizer, 'z' appears to represent /z/, like 's'
		-- in the same position
		elseif lastchar == "z" then
			ret = mod3(ending, "s", "s", "st")
		elseif lastchar == "k" then
			ret = mod3(ending, "k", "s", "t")
		else
			error("Logic error! Unhandled case for character '" .. lastchar .. "'")
		end
	elseif rfind(stem, "([aeéiouyäëïöüÿrlmn])c?qu$") then
		ending = rmatch(stem, "(c?qu)$")
		ret = mod3(ending, "c", "s", "t")
	elseif rfind(stem, "([aeéiouyäëïöüÿrlmn])g?gu$") then
		ending = rmatch(stem, "(g?gu)$")
		ret = mod3(ending, "c", "s", "t")
	elseif rfind(stem, "([aeéiouyäëïöüÿrlmn])ct$") then
		-- convicter, paincter. Best guess here
		ret = mod3("ct", "ct", "cz", "ct")
	elseif rfind(stem, "([aeéiouyäëïöüÿrlmn])s[bpdtczk]$") then
		local lastchar = rmatch(stem, "(.)$")
		ending = "s" .. (ending or lastchar)
		if lastchar == "b" or lastchar == "p" then
			-- Best guess here, esp. for 'sb'
			ret = mod3(ending, "sp", "s", "st")
		elseif lastchar == "d" or lastchar == "t" then
			-- croster, etc.
			-- brosder. Best guess here
			ret = mod3(ending, "st", "z", "st")
		elseif lastchar == "c" or lastchar == "z" then
			-- drescier, laiszier(?). Best guess here
			ret = mod3(ending, "z", "z", "zt")
			if lastchar == "c" then
				ret[5] = ret[5] .. "In addition, ''c'' becomes ''ç'' before an ''a, o'' or ''u'' to keep the /ts/ sound intact. "
			end
		elseif lastchar == "k" then
			ret = mod3(ending, "sk", "s", "st")
		else
			error("Logic error! Unhandled case for character '" .. lastchar .. "'")
		end
	elseif rfind(stem, "([aeéiouyäëïöüÿrlmn])s[qg]u$") then
		-- Best guess here
		ending = rmatch(stem, "(s[qg]u)$")
		ret = mod3(ending, "sc", "s", "st")
	elseif old and (rfind(stem, "([aeéouäëöü])[iy]ll?$") or (rfind(stem, "[aeéouäëöü]ll?$") and ier)) then
		ending = rmatch(stem, "(.[iy]?ll?)$")
		local prev = rmatch(stem, "(.[iy]?)ll?$")
		ret = mod3(ending, prev .. "l", prev .. "lz", prev .. "lt")
	elseif rfind(stem, "([aeéoäëö])[iy]ll?$") or (rfind(stem, "[aeéoäëö]ll?$") and ier) then
		ending = rmatch(stem, "(.[iy]?ll?)$")
		local i = ine(rmatch(stem, "([iy]?)ll?$")) or "i"
		local prev = rmatch(stem, "(.)[iy]?ll?$")
		ret = mod3(ending, prev .. i .. "l", prev .. "uz", prev .. "ut")
	elseif rfind(stem, "[uü][iy]ll?$") or (rfind(stem, "[uü]ll?$") and ier) then
		ending = rmatch(stem, "([uü][iy]?ll?)$")
		local i = ine(rmatch(stem, "([iy]?)ll?$")) or "i"
		local u = rmatch(stem, "([uü])[iy]?ll?$")
		ret = mod3(ending, u .. i .. "l", u .. "z", u .. "t")
	elseif rfind(stem, "[iïyÿ]ll$") or (rfind(stem, "[iïyÿ]l$") and ier) then
		ending = rmatch(stem, "([iïyÿ]ll?)$")
		local i = rmatch(stem, "([iïyÿ])ll?$")
		ret = old and mod3(ending, i .. "l", i .. "lz", i .. "lt")
			or mod3(ending, i .. "l", i .. "z", i .. "t")
	elseif rfind(stem, "([^iu])[eé]ll?$") or rfind(stem, "ëll?$") then
		-- first rfind() above should not have ïü or ë in it
		ending = rmatch(stem, "([eéë]ll?)$")
		local e = rmatch(stem, "([eéë])ll?$")
		-- FIXME: Should this be eals, ealt when old?
		ret = old and mod3(ending, e .. "l", e .. "ls", e .. "lt")
			or mod3(ending, e .. "l", e .. "aus", e .. "aut")
	elseif rfind(stem, "([aeéoäö])ll?$") then -- not ë, handled above
		-- first rmatch below should not have ïü or ë in it
		ending = rmatch(stem, "([iu][eé]ll?)$") or rmatch(stem, "([aoäö]ll?)$")
		local prev = rmatch(stem, "([iu][eé])ll?$") or rmatch(stem, "([aoäö])ll?$")
		ret = old and mod3(ending, prev .. "l", prev .. "ls", prev .. "lt")
			or mod3(ending, prev .. "l", prev .. "us", prev .. "ut")
	elseif rfind(stem, "([iuyïüÿ])ll?$") then
		ending = rmatch(stem, "(.ll?)$")
		local prev = rmatch(stem, "(.)ll?$")
		ret = old and mod3(ending, prev .. "l", prev .. "ls", prev .. "lt")
			or mod3(ending, prev .. "l", prev .. "s", prev .. "t")
	elseif rfind(stem, "[iyïÿl]gn$") then
		local prev = rmatch(stem, "([iyïÿl])gn$")
		ret = mod3(prev .. (ending or "gn"), prev .. "ng", prev .. "nz", prev .. "nt")
	elseif rfind(stem, "rgn$") then
		ret = mod3("r" .. (ending or "gn"), "rng", "rz", "rt")
	elseif rfind(stem, "([aeéouäëöü])gn$") then
		local prev = rmatch(stem, "(.)gn$")
		ret = mod3(prev .. (ending or "gn"), prev .. "ing", prev .. "inz", prev .. "int")
	elseif rfind(stem, "rm$") then
		ret = mod3("rm", "rm", "rs", "rt")
	elseif rfind(stem, "rn$") then
		ret = mod3("rn", "rn", "rz", "rt")
	elseif rfind(stem, "[aeéiouyäëïöüÿl]m$") then
		ret = mod3(ending or "m", "m", "ns", "nt")
	elseif rfind(stem, "s$") then
		ret = mod3(ending or "s", "s", "s", "st")
	elseif rfind(stem, "g$") then
		ret = supporting_e("In addition, ''g'' becomes ''j'' before an ''a'' or an ''o'' to keep the /dʒ/ sound intact. ")
	elseif rfind(stem, "j$") or rfind(stem, "x$")
			or rfind(stem, "[^aeéiouyäëïöüÿ][bcdfghjklmnpqrtvwxz]$") then
		ret = supporting_e("")
	elseif ending then
		-- doubled rr, nn, hh
		local lastchar = rmatch(stem, "(.)$")
		ret = mod3(ending, lastchar, lastchar .. "s", lastchar .. "t")
	end
	return ret
end

----------------------------------------------------------------------------
-- Functions for handling particular sorts of endings

-- Convert a stressed verb stem to the form used with a zero ending
-- (1st sing pres indic, also, 1st sing pres subj of -er verbs).
-- See get_endings() for meaning of IER and SUPE.
function add_zero(stem, ier, supe, old)
	local e = get_endings(stem, ier, supe, old)
	-- We need to assign to a variable here because rsub() returns multiple
	-- values and we want only the first returned. Return rsub() directly
	-- and all values get returned and appended to the string.
	local ret, nsub = rsub(stem, e[1] .. "$", e[2])
	assert(nsub == 1)
	return ret
end

-- Convert a stressed verb stem to the form used with a -s ending
-- (2nd sing pres indic of -ir/-oir/-re verbs, 2nd sing pres subj of
-- -er verbs). Same code could be used to add -s to nouns except that
-- handling of -c stems needs to be different (need to treat as hard /k/
-- not /ts/). See get_endings() for meaning of IER, SUPE and OLD.
function add_s(stem, ier, supe, old)
	local e = get_endings(stem, ier, supe, old)
	-- We need to assign to a variable here because rsub() returns multiple
	-- values and we want only the first returned. Return rsub() directly
	-- and all values get returned and appended to the string.
	local ret, nsub = rsub(stem, e[1] .. "$", e[3])
	assert(nsub == 1)
	return ret
end

-- Convert a stressed verb stem to the form used with a -t ending
-- (3rd sing pres indic of -ir/-oir/-re verbs, 3rd sing pres subj of
-- -er verbs). See get_endings() for meaning of IER, SUPE and OLD.
function add_t(stem, ier, supe, old)
	local e = get_endings(stem, ier, supe, old)
	-- We need to assign to a variable here because rsub() returns multiple
	-- values and we want only the first returned. Return rsub() directly
	-- and all values get returned and appended to the string.
	local ret, nsub = rsub(stem, e[1] .. "$", e[4])
	assert(nsub == 1)
	return ret
end

-- Add -r, for the group-iii future
function add_r(stem, old)
	local ret = stem .. "r"
	if rfind(stem, "ss$") then
		ret = rsub(stem, "ss$", "str")
	elseif rfind(stem, "is$") then
		ret = rsub(stem, "is$", "ir")
	elseif rfind(stem, "ïs$") then
		ret = rsub(stem, "ïs$", "ïr")
	elseif rfind(stem, "s$") then
		ret = stem .. "dr"
	elseif rfind(stem, "g?n$") then
		ret = rsub(stem, "g?n$", "ndr")
	elseif rfind(stem, "m$") then
		ret = stem .. "br"
	elseif rfind(stem, "i?ll?$") then
		ret = old and rsub(stem, "ll?$", "ldr") or rsub(stem, "i?ll?$", "udr")
	elseif rfind(stem, "qu$") then
		ret = rsub(stem, "qu$", "cr")
	elseif rfind(stem, "gu$") then
		ret = rsub(stem, "gu$", "gr")
	elseif rfind(stem, "[^aeiouäëïöü]r$") then
		ret = stem .. "er"
	end
	return ret
end

----------------------------------------------------------------------------
-- Functions for handling comments at the top of conjugation tables

-- Return true if this is an irregular verb, due to stems or particular
-- forms being explicitly specified
function irreg_verb(args, skip)
	if skip == nil then skip = {}
	elseif type(skip) == "string" then skip = {skip}
	end
	
	for k,v in pairs(args) do
		if k == "pres" and rfind(v, "/") or
				k ~= "pres" and k ~= "prese" and k ~= "presa" and
				k ~= "ier" and k ~= "supe" and k ~= "aux" and k ~= "refl" and
				k ~= "repl" and k ~= "prefix" and k ~= "suffix" and
				k ~= "old" and k ~= "ei" and k ~= "ir" and
				k ~= "impers" and k ~= "inf" and k ~= "comment" and
				not contains(skip, k) and v ~= '' then
			return true
		end
	end
	return false
end

-- Return comment describing phonetic changes to the verb in the present
-- tense. Appears near the top of the conjugation chart. STEM is the stressed
-- stem. See get_endings() for meaning of IER, SUPE and OLD.
function phonetic_verb_comment(stem, ier, supe, old)
	local e = get_endings(stem, ier, supe, old)
	return e[5]
end

-- Return comment describing phonetic and stem changes to the verb in the
-- present tense. Appears near the top of the conjugation chart. STEME is
-- the unstressed stem before e/i, STEMS the stressed stem.
-- See get_endings() for meaning of IER, SUPE and OLD.
function verb_comment(args, group, steme, stems, ier, supe, old)
	if args["comment"] then
		return args["comment"] .. " "
	end
	local com = group == "i" and phonetic_verb_comment(stems, ier, supe, old) or ""
	local irreg = irreg_verb(args, 'press')
	if steme ~= stems then
		if args["repl"] then
			-- If there's a search/replace, it might change the stressed or
			-- unstressed stems. FIXME: apply search/replace to the stems
			-- themselves.
			com = com .. "This verb has a distinct stressed present stem"
		else
			com = com .. "This verb has a stressed present stem ''" ..
			    (args["prefix"] or "") .. stems .. (args["suffix"] or "") ..
				"'' distinct from the unstressed stem ''" .. 
				(args["prefix"] or "") .. steme .. (args["suffix"] or "") .. "''"
		end
		com = com ..
			(irreg and ", as well as other irregularities. " or ". ")
	elseif irreg then
		com = com .. "This verb has irregularities in its conjugation. "
	end
	return com
end

----------------------------------------------------------------------------
-- Main inflection-handling functions

-- Main entry point
function export.show(frame)
	local origargs = frame:getParent().args
	local args = {}
	-- Convert empty arguments to nil, and "" or '' arguments to empty
	for k, v in pairs(origargs) do
		args[k] = ine(v)
	end

	-- Create the forms
	local data = {forms = {}, categories = {}, group = {}, comment = "",
	refl = args["refl"],
	impers = args["impers"],
	ier = args["ier"] or ine(frame.args["ier"]),
	supe = args["supe"] or ine(frame.args["supe"])
	}

	data.forms.infinitive =
		{args["inf"] or mw.title.getCurrentTitle().text}
	data.inf_from_title = not args["inf"]
	data.inf_no_affix = data.forms.infinitive[1]
	if args["prefix"] and data.inf_from_title then
		data.inf_no_affix = rsub(data.inf_no_affix, "^" .. args["prefix"], "")
	end
	if args["suffix"] and data.inf_from_title then
		data.inf_no_affix = rsub(data.inf_no_affix, args["suffix"] .. "$", "")
	end
	
	

	-- Set the soft vowel ('pres') and hard vowel ('presa') present stems.
	-- They can be explicitly set using 'pres' and 'presa' params.
	-- If one is set, the other is inferred from it. If neither is set,
	-- both are inferred from the infinitive.
	data.prese = args["pres"] and not rfind(args["pres"], "/") and args["pres"] or
		args["prese"]
	local inf_stem, inf_ending, inf_is_soft =
		get_stem_from_inf(data.inf_no_affix, data.ier, args["ir"])
	if not data.prese then
		if inf_is_soft then
			data.prese = inf_stem
		else
			data.prese = stema_to_steme(inf_stem)
		end
	end

	data.old = args["old"]
	data.ei = args["ei"] or data.old or inf_ending == "eir"
	data.forms.aux = {data.refl and "estre" or args["aux"] or
		data.ei and "aveir" or "avoir"}

	-- Find what type of verb is it (hard-coded in the template).
	-- Generate standard conjugated forms for each type of verb.
	local infl_type = ine(frame.args["type"])
	if not infl_type then
		error("Verb type ('type' arg) not specified.")
	elseif inflections[infl_type] then
		inflections[infl_type](args, data)
	else
		error("Verb type '" .. infl_type .. "' not supported.")
	end

	for _, group in ipairs(data.group) do
		table.insert(data.categories, "Old French " .. group .. " group verbs")
	end
	table.insert(data.categories, "Old French verbs ending in -" .. inf_ending)
	if data.impers then
		table.insert(data.categories, "Old French impersonal verbs")
	end

	-- Get overridden forms
	process_overrides(args, data)

	-- Add a prefix if specified
	if args["prefix"] then
		add_affix(data, args["prefix"], true)
	end

	-- Add a suffix if specified
	if args["suffix"] then
		add_affix(data, args["suffix"], false)
	end

	-- Apply any replacements
	local repl = args["repl"]
	if repl then
		replace_all(data, repl)
	end

	-- Add links
	add_links(data)

	-- Add reflexive pronouns
	if data.refl then
		add_reflexive_pronouns(args, data)
	end

	return make_table(data) .. m_utilities.format_categories(data.categories, lang)
end

-- Version of main entry point meant for calling from the debug console.
function export.show2(args, parargs)
	local frame = {args = args, getParent = function() return {args = parargs} end}
	return export.show(frame)
end

-- If ARGBASE == "foo", return an array of
-- {{args["foo"]},{args["foo2"]},...,{args["foo9"]}}.
-- If ARGBASE is a sequence of strings, return an array of sequences, e.g.
-- if ARGBASE == {"foo", "bar"}, return an array of
-- {{{args["foo"]},{args["bar"]}},{{args["foo2"]},{args["bar2"]}},...,{{args["foo9"]},{args["bar9"]}}}
-- There is an extra level of {}'s because nil can't be inserted into an array
function get_args(args, argbase)
	if type(argbase) == "string" then
		local theargs = {{args[argbase]}}
		for j = 2, 9 do
			table.insert(theargs, {args[argbase .. j]})
		end
		return theargs
	else
		local theargs = {}
		local onearg = {}
		for i, item in ipairs(argbase) do
			table.insert(onearg, {args[item]})
		end
		table.insert(theargs, onearg)
		for j = 2, 9 do
			onearg = {}
			for i, item in ipairs(argbase) do
				table.insert(onearg, {args[item .. j]})
			end
			table.insert(theargs, onearg)
		end
		return theargs
	end
end

-- Replaces terms with overridden ones that are given as additional named parameters.
function process_overrides(args, data)
	-- Each term in current is overridden by one in overN, if it exists.
	local function override(current, over)
		current = current or {}
		local ret = {}

		local i = 1

		local function getover(n)
			return args[over .. n]
		end
		
		-- Insert an override entry, possibly splitting on commas and
		-- inserting multiple forms.
		local function insert_override(entry)
			if entry ~= "-" then
				if rfind(entry, ",") then
					local forms = mw.text.split(entry, ",")
					for _, form in ipairs(forms) do
						table.insert(ret, form)
					end
				else
					table.insert(ret, entry)
				end
			end
		end

		-- Look for overrides at the beginning
		if getover(0) then
			insert_override(getover(0))
		end
		
		-- Look for override of all current forms
		if getover("") then
			current = {}
			insert_override(getover(""))
		end
		
		-- See if any of the existing items in current have an override specified.
		while current[i] do
			if getover(i) then
				insert_if_not(data.categories, "Old French verbs with partial overrides")
				insert_override(getover(i))
			else
				table.insert(ret, current[i])
			end

			i = i + 1
		end

		-- We've reached the end of current.
		-- Look in the override list to see if there are any extra forms to
		-- add on to the end. NOTE: We've deprecated this and made it an error.
		-- Use ...n to insert forms at the end.
		while i <= 9 do
			if getover(i) then
				error("Attempt to partially override a non-existent form: arg "
					.. over .. i .. "=" .. getover(i) ..
					": use " .. over .. "n=" .. getover(i) .. " instead.")
				-- insert_override(getover(i))
			end

			i = i + 1
		end

		-- Look for overrides at the end
		if getover("n") then
			insert_override(getover("n"))
		end
		
		return ret
	end

	-- Mark terms with any additional parameters as irregular, except for
	-- certain ones that we consider normal variants.
	if irreg_verb(args) then
		table.insert(data.categories, "Old French irregular verbs")
	end
	--[[
	This function replaces former code like this:

	data.forms.pret_indc_1sg = override(data.forms.pret_indc_1sg, "pret1s")
	data.forms.pret_indc_2sg = override(data.forms.pret_indc_2sg, "pret2s")
	data.forms.pret_indc_3sg = override(data.forms.pret_indc_3sg, "pret3s")
	data.forms.pret_indc_1pl = override(data.forms.pret_indc_1pl, "pret1p")
	data.forms.pret_indc_2pl = override(data.forms.pret_indc_2pl, "pret2p")
	data.forms.pret_indc_3pl = override(data.forms.pret_indc_3pl, "pret3p")
	--]]
	local function handle_tense_override(tense, short)
		local pnums = {"1sg", "2sg", "3sg", "1pl", "2pl", "3pl"}
		local pnums_short = {"1s", "2s", "3s", "1p", "2p", "3p"}
		for pn = 1, #pnums do
			local pnum = pnums[pn]
			local pnum_short = pnums_short[pn]
			local tensepnum = tense .. "_" .. pnum
			data.forms[tensepnum] =
				override(data.forms[tensepnum], short .. pnum_short)
		end
	end


	-- Non-finite forms
	-- data.forms.infinitive = override(data.forms.infinitive, "inf")
	data.forms.pres_ptc = override(data.forms.pres_ptc, "presp")
	data.forms.past_ptc = override(data.forms.past_ptc, "pastp")

	handle_tense_override("pres_indc", "pres") -- Present
	handle_tense_override("impf_indc", "imperf") -- Imperfect
	handle_tense_override("pret_indc", "pret") -- Preterite
	handle_tense_override("futr_indc", "fut") -- Future
	handle_tense_override("cond", "cond") -- Conditional
	handle_tense_override("pres_subj", "sub") -- Present subjunctive
	handle_tense_override("impf_subj", "impsub") -- Imperfect subjunctive

	-- Imperative
	data.forms.impr_2sg = override(data.forms.impr_2sg, "imp2s")
	data.forms.impr_1pl = override(data.forms.impr_1pl, "imp1p")
	data.forms.impr_2pl = override(data.forms.impr_2pl, "imp2p")
end

-- Adds reflexive pronouns to the appropriate forms
function add_reflexive_pronouns(args, data)
	-- Gather pronoun parameters
	local cprons = {}
	local vprons = {}

	cprons["1sg"] = args["me"] or "me "
	cprons["2sg"] = args["te"] or "te "
	cprons["3sg"] = args["se"] or "se "
	cprons["1pl"] = args["nos"] or "nos "
	cprons["2pl"] = args["vos"] or "vos "
	cprons["3pl"] = cprons["3sg"]

	vprons["1sg"] = args["me"] or "m'"
	vprons["2sg"] = args["te"] or "t'"
	vprons["3sg"] = args["se"] or "s'"
	vprons["1pl"] = args["nos"] or "nos "
	vprons["2pl"] = args["vos"] or "vos "
	vprons["3pl"] = vprons["3sg"]

	function add_refl(person, form)
		-- FIXME! YUCK! This hard-codes knowledge of how the links are formatted.
		-- Perhaps we should go back to the old way of having the reflexive code
		-- also insert links.
		if rfind(form, "^<span.*>[^a-zA-Z]*[aeiouAEIOU]") then
			return vprons[person] .. form
		else
			return cprons[person] .. form
		end
	end

	-- Go over all the forms in the list
	for key, subforms in pairs(data.forms) do
		-- Extract the person/number from the last 3 characters of the key
		local person = key:sub(-3)

		-- Skip these three, as they already had pronouns added earlier
		if cprons[person] and key ~= "impr_2sg" and key ~= "impr_1pl" and key ~= "impr_2pl" then
			-- Go through each of the alternative subforms and add the pronoun
			for key2, subform in ipairs(subforms) do
				data.forms[key][key2] = add_refl(person, subform)
			end
		end

	end

	-- Handle infinitive
	for key, subform in ipairs(data.forms.infinitive) do
		data.forms.infinitive[key] = add_refl("3sg", subform)
	end

	-- Handle imperatives
	for key, subform in ipairs(data.forms.impr_2sg) do
		data.forms.impr_2sg[key] = subform .. (data.ei and "-tei" or "-toi")
	end
	for key, subform in ipairs(data.forms.impr_1pl) do
		data.forms.impr_1pl[key] = subform .. "-nos"
	end
	for key, subform in ipairs(data.forms.impr_2pl) do
		data.forms.impr_2pl[key] = subform .. "-vos"
	end
end

-- Add links to all forms
function add_links(data)
	for key, subforms in pairs(data.forms) do
		for key2, subform in ipairs(subforms) do
			data.forms[key][key2] = make_link(subform)
		end
	end
end

-- Add a prefix or suffix to all forms. AFFIX is what to add; IS_PREFIX is
-- true if it's a prefix, otherwise a suffix.
function add_affix(data, affix, is_prefix)
	for key, subforms in pairs(data.forms) do
		-- Don't add affix to aux, nor infinitive
		-- that comes from the page title.
		if key ~= "aux" and (key ~= "infinitive" or not data.inf_from_title) then
			for key2, subform in ipairs(subforms) do
				data.forms[key][key2] =
					(is_prefix and affix .. subform or subform .. affix)
			end
		end
	end
end

-- Apply all replacements
function replace_all(data, repl)
	for splitrepl in mw.text.gsplit(repl, ",") do
		local fromto = mw.text.split(splitrepl, "/")
		if #fromto ~= 2 then
			error("Replace spec '" .. splitrepl .. "' needs exactly one / in it")
		end
		local from = fromto[1]
		local to = fromto[2]
		for key, subforms in pairs(data.forms) do
			-- Don't search/replace on aux, nor on infinitive
			-- that comes from the page title. Don't want e.g. infinitive
			-- 'offrir' to become 'offffrir'.
			if key ~= "aux" and (key ~= "infinitive" or not data.inf_from_title) then
				for key2, subform in ipairs(subforms) do
					data.forms[key][key2] = rsub(data.forms[key][key2], from, to)
				end
			end
		end
	end
end

-- Inflection functions

-- Implementation of inflect_tense(). See that function. Also used directly
-- to add the imperative, which has only three forms.
function inflect_tense_1(data, tense, stems, endings, pnums)

	-- First, initialize any nil entries to sequences.
	for i, pnum in ipairs(pnums) do
		if data.forms[tense .. "_" .. pnum] == nil then
			data.forms[tense .. "_" .. pnum] = {}
		end
	end

	-- Now add entries
	for i = 1, #pnums do
		-- Extract endings for this person-number combo
		local ends = endings[i]
		if type(ends) == "string" then ends = {ends} end
		-- Extract stem for this person-number combo
		local stem = stems
		if type(stem) == "table" then stem = stem[i] end
		-- Add entries for stem + endings
		for j, ending in ipairs(ends) do
			local form = join(stem, ending)
			if ine(form) and form ~= "-" and
					(not data.impers or pnums[i] == "3sg") then
				table.insert(data.forms[tense .. "_" .. pnums[i]], form)
			end
		end
	end
end

-- Add to DATA the inflections for the tense indicated by TENSE (the prefix
-- in the data.forms names, e.g. 'impf_subj'), formed by combining the STEMS
-- (either a single string or a sequence of six strings) with the
-- ENDINGS (a sequence of six values, each of which is either a string
-- or a sequence of one or more possible endings). If existing
-- inflections already exist, they will be added to, not overridden.
function inflect_tense(data, tense, stems, endings)
	local pnums = {"1sg", "2sg", "3sg", "1pl", "2pl", "3pl"}
	inflect_tense_1(data, tense, stems, endings, pnums)
end

-- Like inflect_tense() but for the imperative, which has only three forms
-- instead of six.
function inflect_tense_impr(data, tense, stems, endings)
	local pnums = {"2sg", "1pl", "2pl"}
	inflect_tense_1(data, tense, stems, endings, pnums)
end

function inflect_pres(data, tense, group, steme, stems, ier, supe)
	local i = ier and "i" or ""
	if steme ~= stems then
		insert_if_not(data.categories, "Old French verbs with stem alternations")
	end
	local oldt = data.old and "ṭ" or ""
	if tense == "impr" and group == "i" then
		inflect_tense_impr(data, tense,
			{stems, steme, steme},
			{"e", "ons", i .. "ez"})
	elseif tense == "impr" and group == "ii" then
		inflect_tense_impr(data, tense, steme, 
			{"is", "issons", "issez"})
	elseif tense == "impr" and group == "iii" then
		inflect_tense_impr(data, tense,
			{add_zero(stems, ier, supe, data.old), steme, steme},
			{"", "ons", i .. "ez"})
	elseif tense == "pres_indc" and group == "i" then
		inflect_tense(data, tense,
			{add_zero(stems, ier, supe, data.old), stems, stems, steme, steme, stems},
			{"", "es", "e".. oldt, "ons", i .. "ez", "ent"})
	elseif tense == "pres_indc" and group == "ii" then
		inflect_tense(data, tense, steme,
			{"is", "is", "ist", "issons", "issez", "issent"})
	elseif tense == "pres_subj" and group == "ii" then
		inflect_tense(data, tense, steme,
			{"isse", "isses", "isse" .. oldt, "issons", "issez", "issent"})
	elseif tense == "pres_subj" and group == "iii" then
		inflect_tense(data, tense, {stems, stems, stems, steme, steme, stems},
			{"e", "es", "e" .. oldt,
			 ier and {"iens", "ons"} or "ons", i .. "ez", "ent"})
	else -- pres_indc group iii or pres_subj group i
		inflect_tense(data, tense,
			{add_zero(stems, ier, supe, data.old),
			 add_s(stems, ier, supe, data.old),
			 add_t(stems, ier, supe, data.old), steme, steme, stems},
			{"", "", "", "ons", i .. "ez", "ent"})
	end
end

-- Split a string into entries separated by slashes, each representing one
-- of the possible person/number combinations. Each entry in turn may consist
-- of one or more forms, separated by commas. NUMREQ is how many entries need
-- to be present, defaulting to 6.
function split_multipart(str, numreq)
	local entries = mw.text.split(str, "/")

	numreq = numreq or 6
	if #entries ~= numreq then
		error("Expected " .. numreq .. " entries in multipart string '" .. str .. "'")
	end

	for i, entry in ipairs(entries) do
		if rfind(entry, ",") then
			entries[i] = mw.text.split(entry, ",")
		else
			entries[i] = {entry}
		end
	end
		
	return entries
end

function handle_pres(args, data, group, steme, stems)
	local ier = data.ier
	local supe = data.supe
	if args["pres"] and rfind(args["pres"], "/") then
		inflect_tense(data, "pres_indc", "", split_multipart(args["pres"]))
	else
		inflect_pres(data, "pres_indc", group, steme, stems, ier, supe)
	end
	-- If sub not set, derive from indicative.
	-- If subs not set, derive from sub if set, else from indicative.
	local sub_steme = args["sub"]
	local sub_dash = sub_steme == "-"
	local sub_specified = sub_steme
	if sub_steme and rfind(sub_steme, "/") then
		inflect_tense(data, "pres_subj", "", split_multipart(sub_steme))
	elseif not sub_dash then
		if not sub_specified then
			sub_steme = steme
		end
		local sub_stems = args["subs"]
		if not sub_stems then
			sub_stems = sub_specified and sub_steme or stems
		end
		inflect_pres(data, "pres_subj", group, sub_steme, sub_stems,
			args["subier"] or (not sub_specified and ier),
			args["subsupe"] or (not sub_specified and supe))
	end

	-- Repeat exactly for the imperative.
	local imp_steme = args["imp"]
	local imp_dash = imp_steme == "-"
	local imp_specified = imp_steme
	if imp_steme and rfind(imp_steme, "/") then
		inflect_tense_impr(data, "impr", "", split_multipart(imp_steme, 3))
	elseif not imp_dash then
		if not imp_specified then
			imp_steme = steme
		end
		local imp_stems = args["imps"]
		if not imp_stems then
			imp_stems = imp_specified and imp_steme or stems
		end
		inflect_pres(data, "impr", group, imp_steme, imp_stems,
			args["impier"] or (not imp_specified and ier),
			args["impsupe"] or (not imp_specified and supe))
	end

	-- If indic stem specified, we add indic values, and also corresponding
	-- subj values if separate subj stem not specified.
	for i = 2, 9 do
		steme = args["pres" .. i]
		local multi_indic = steme and rfind(steme, "/")
		local indic_specified = not multi_indic and steme
		if multi_indic then
			inflect_tense(data, "pres_indc", "", split_multipart(steme))
		elseif indic_specified then
			stems = args["press" .. i] or steme
			ier = args["ier" .. i]
			supe = args["supe" .. i]
			inflect_pres(data, "pres_indc", group, steme, stems, ier, supe)
		end

		-- Handle subjunctive as above.
		sub_steme = args["sub" .. i]
		sub_dash = sub_steme == "-"
		sub_specified = sub_steme
		if sub_steme and rfind(sub_steme, "/") then
			inflect_tense(data, "pres_subj", "", split_multipart(sub_steme))
		elseif not sub_dash and (indic_specified or sub_specified) then
			if not sub_specified then
				sub_steme = steme
			end
			sub_stems = args["subs" .. i]
			if not sub_stems then
				sub_stems = sub_specified and sub_steme or stems
			end
			inflect_pres(data, "pres_subj", group, sub_steme,
				sub_stems,
				args["subier" .. i] or (not sub_specified and ier),
				args["subsupe" .. i] or (not sub_specified and supe))
		end

		-- Repeat for the imperative.
		imp_steme = args["imp" .. i]
		imp_dash = imp_steme == "-"
		imp_specified = imp_steme
		if imp_steme and rfind(imp_steme, "/") then
			inflect_tense_impr(data, "impr", "", split_multipart(imp_steme, 3))
		elseif not imp_dash and (indic_specified or imp_specified) then
			if not imp_specified then
				imp_steme = steme
			end
			imp_stems = args["imps" .. i]
			if not imp_stems then
				imp_stems = imp_specified and imp_steme or stems
			end
			inflect_pres(data, "impr", group, imp_steme,
				imp_stems,
				args["impier" .. i] or (not imp_specified and ier),
				args["impsupe" .. i] or (not imp_specified and supe))
		end
	end
end

-- Add to DATA the endings for the preterite and imperfect
-- subjunctive, with unstressed e/i stem STEME, stressed e/i stem STEMS,
-- conjugation type PTY and corresponding value of IMPSUB.
function inflect_pret_impf_subj(data, stem, pty, pret, pretu, prets, impsub)
	local steme = pretu or pret or stem
	local stems = prets or pretu or pret or stem
	if pret and rfind(pret, "/") then
		inflect_tense(data, "pret_indc", "", split_multipart(pret))
		inflect_impf_subj(data, impsub, nil, nil, nil)
	elseif pty then
		insert_if_not(data.categories, "Old French verbs with " .. pty .. " preterite")
		-- WARNING: If the second person singular of any of these is not a
		-- simple string, you will need to modify the handling below of
		-- the imperfect subjunctive, which relies on this form.
		local oldt = data.old and "ṭ" or ""
		local all_endings =
	pty == "weak-a" and {"ai","as","a" .. oldt,"ames","astes","erent"} or
	pty == "weak-a2" and {"ai","as","a" .. oldt,"ames","astes","ierent"} or
	pty == "weak-i" and {"i","is","i" .. oldt,"imes","istes","irent"} or
	-- FIXME: "Grammatik des Altfranzösischen I-III" (Dr. E. Schwan and
	-- Dr. D. Behrens), p. 229, claims that the old form of the weak-i2
	-- ending is "ieḍrent", e.g. "rendieḍrent" < "rendęderunt", whereas the
	-- early 12th-century forms of E. Einhorn "Old French: A Concise Handbook"
	-- p.43 have only "ierent". I trust the latter because Schwan and Behrens
	-- also have the 3rd-singular as "rendiet" with a hard -t < "rendędit",
	-- but in reality it should be "rendieṭ" (i.e. "rendiéṭ") with a soft -ṭ,
	-- as per Einhorn and also William Kibler "An Introduction to Old French".
	-- Schwan and Behrens' forms would be correct if the underlying Vulgar
	-- Latin forms are correct, but I think haplology has deleted the second
	-- -d- so you should really have 3rd-singular "rendęt" > "rendiéṭ" and
	-- 3rd-plural "rendęrunt" > "rendierent".
	pty == "weak-i2" and {"i","is","ié" .. oldt,"imes","istes","ierent"} or
	pty == "strong-i" and {"","is","t","imes","istes","rent"} or
	pty == "strong-id" and {"","is","t","imes","istes",{"drent","rent"}} or
	pty == "weak-u" and {"ui","us","u" .. oldt,"umes","ustes","urent"} or
	pty == "strong-u" and {"ui","eüs","ut","eümes","eüstes","urent"} or
	pty == "strong-o" and {"oi","eüs","ot","eümes","eüstes","orent"} or
	pty == "strong-st" and {"s","sis","st","simes","sistes","strent"} or
	pty == "strong-sd" and {"s","ṣis","st","ṣimes","ṣistes","sdrent"} or
	error("Unrecognized prettype value '" .. pty .. "'")

		-- Always use one of the weak stems unless we have strong-stem endings
		local all_stems =
rfind(pty, "^strong-") and {stems, steme, stems, steme, steme, stems} or
{steme, steme, steme, steme, steme, steme}

		inflect_tense(data, "pret_indc", all_stems, all_endings)
		inflect_impf_subj(data, impsub, steme,
			join(all_stems[2], all_endings[2]), pty)
	elseif impsub then
		inflect_impf_subj(data, impsub, nil, nil, nil)
	end
end

function inflect_impf_subj(data, impsub, steme, pret2s, pty)
	-- Handle imperfect subj, which follows the same types as the preterite
	-- and is built off of the 2nd person singular form, although we need to
	-- special-case weak-a and weak-a2
	local impsub_endings =
		{"se","ses","t",{"sons","siens"},
			{data.ei and "seiz" or "soiz","sez","siez"},"sent"}
	if impsub and rfind(impsub, "/") then
		inflect_tense(data, "impf_subj", "", split_multipart(impsub))
	elseif impsub == "-" then
		return
	elseif impsub then
		inflect_tense(data, "impf_subj", impsub, impsub_endings)
	-- need the % here to escape the dash, which otherwise stands for a
	-- character range???????
	elseif pty and rfind(pty, "^weak%-a") then
		inflect_tense(data, "impf_subj", steme,
			{"asse","asses","ast", {"issons","issiens"},
				{data.ei and "isseiz" or "issoiz","issez","issiez"},"assent"})
	elseif pty then
		inflect_tense(data, "impf_subj", pret2s, impsub_endings)
	end
end

-- Add to DATA the endings for the preterite and imperfect subjunctive,
-- based on the strong and weak stems and preterite ending type(s) given in
-- ARGS. For each weak preterite ending type 'prettypeN' there should be a
-- corresponding stem in 'pretN' (defaulting to STEM) and for each strong
-- preterite ending type 'prettypeN' there should be corresponding unstressed
-- and stressed stems in 'pretuN' and 'pretsN' (defaulting to 'pretN' or STEM).
-- If specifically 'pret' and 'prettype' are unspecified, substitute defaults,
-- specifically the fallback preterite type FBPTY and stressed/unstressed
-- fallback stem FBSTEM.
function handle_pret_impf_subj(args, data, stem, fbstem, fbpty)
	local all_props =
		get_args(args, {"prettype", "pret", "pretu", "prets", "impsub"})
	for i, props in ipairs(all_props) do
		local thestem = stem
		local pty = props[1][1]
		local pret = props[2][1]
		local pretu = props[3][1]
		local prets = props[4][1]
		local impsub = props[5][1]
		if i == 1 and not pty and not pret then
			thestem = fbstem
			pty = fbpty
			pret = fbstem
			pretu = fbstem
			prets = fbstem
		end
		inflect_pret_impf_subj(data, thestem, pty, pret, pretu, prets, impsub)
	end
end

-- Add to DATA the forms for up to one paradigm of the future and conditional,
-- based on the future stem in STEM (possibly nil).
function inflect_future_cond(data, stem)
	if stem then
		if rfind(stem, "/") then
			inflect_tense(data, "futr_indc", "", split_multipart(stem))
		else
			if data.old then
				inflect_tense(data, "futr_indc", stem,
					{"ai","as","aṭ","ons",{"eiz", "ez"},"ont"})
				inflect_tense(data, "cond", stem,
					{"eie","eies","eit", "iiens","iiez","eient"})
			elseif data.ei then
				inflect_tense(data, "futr_indc", stem,
					{"ai","as","a","ons",{"eiz", "ez"},"ont"})
				inflect_tense(data, "cond", stem,
					{"eie","eies","eit",
					{"iiens","iens"},{"iiez","iez"},"eient"})
			else
				inflect_tense(data, "futr_indc", stem,
					{"ai","as","a","ons",{"oiz","eiz", "ez"},"ont"})
				inflect_tense(data, "cond", stem,
					{{"oie","eie"},{"oies","eies"},{"oit","eit"},
					{"iiens","iens"},{"iiez","iez"},{"oient","eient"}})
			end
		end
	end
end

-- Add to DATA all the forms for the future and conditional based on the
-- future stem(s) in ARGS. Use If no future stems given, use STEM.
function handle_future_cond(args, data, stem)
	local fut_args = get_args(args, "fut")
	-- Just override the value from args["fut"] if necessary
	if not args["fut"] then
		fut_args[1][1] = stem
	end
	for _, futarg in ipairs(fut_args) do
		local stem = futarg[1]
		inflect_future_cond(data, stem)
	end
end

-- Add to DATA the forms for up to one imperfect paradigm, corresponding to
-- the imperfect stem in IMPERF (possibly nil), the corresponding ier= value
-- in IMPERFIER, the corresponding present stem in PRES (possibly nil), and
-- its corresponding ier= value in PRESIER. Only do something if either IMPERF
-- or PRES is non-nil.
function inflect_imperfect(data, group, imperf, imperfier, pres, presier)
	if imperf and rfind(imperf, "/") then
		inflect_tense(data, "impf_indc", "", split_multipart(imperf))
	else
		if not imperf and pres and not rfind(pres, "/") then
			imperf = pres
			imperfier = presier
		end
		if imperf and imperf ~= "-" then
			local steme = imperf
			local stema = steme_to_stema(steme)
		    local i = imperfier and "i" or ""
			if group == "i" and data.old then
				inflect_tense(data, "impf_indc", steme,
					{{"eie", "oue", i .. "eve"},
					 {"eies", "oues", i .. "eves"},
					 {"eit", "out", i .. "eveṭ"},
					 {"iiens"},
					 {"iiez"},
					 {"eient", "ouent", i .. "event"}
					})
			elseif group == "i" and data.ei then
				inflect_tense(data, "impf_indc", steme,
					{{"eie", "oe", i .. "eve"},
					 {"eies", "oes", i .. "eves"},
					 {"eit", "ot", i .. "eve"},
					 {"iiens", "iens"},
					 {"iiez", "iez"},
					 {"eient", "oent", i .. "event"}
					})
			elseif group == "i" then
				inflect_tense(data, "impf_indc", steme,
					{{"oie", "eie", "oe", i .. "eve"},
					 {"oies", "eies", "oes", i .. "eves"},
					 {"oit", "eit", "ot", i .. "eve"},
					 {"iiens", "iens"},
					 {"iiez", "iez"},
					 {"oient", "eient", "oent", i .. "event"}
					})
			elseif group == "ii" and data.old then
				inflect_tense(data, "impf_indc", join(steme, "iss"),
					{"eie",
					 "eies",
					 "eit",
					 "iiens",
					 "iiez",
					 "eient"
					})
			elseif group == "ii" and data.ei then
				inflect_tense(data, "impf_indc", join(steme, "iss"),
					{"eie",
					 "eies",
					 "eit",
					 {"iiens", "iens"},
					 {"iiez", "iez"},
					 "eient"
					})
			elseif group == "ii" then
				inflect_tense(data, "impf_indc", join(steme, "iss"),
					{{"oie", "eie"},
					 {"oies", "eies"},
					 {"oit", "eit"},
					 {"iiens", "iens"},
					 {"iiez", "iez"},
					 {"oient", "eient"}
					})
			elseif group == "iii" and data.old then
				inflect_tense(data, "impf_indc", steme,
					{"eie",
					 "eies",
					 "eit",
					 "iiens",
					 "iiez",
					 "eient"
					})
			elseif group == "iii" and data.ei then
				inflect_tense(data, "impf_indc", steme,
					{"eie",
					 "eies",
					 "eit",
					 {"iiens", "iens"},
					 {"iiez", "iez"},
					 "eient"
					})
			elseif group == "iii" then
				inflect_tense(data, "impf_indc", steme,
					{{"oie", "eie"},
					 {"oies", "eies"},
					 {"oit", "eit"},
					 {"iiens", "iens"},
					 {"iiez", "iez"},
					 {"oient", "eient"}
					})
			end
		end
	end
end

-- Add to DATA all the forms for the imperfect based on the
-- imperfect stem(s) in ARGS. If no imperfect stems given, use
-- corresponding present stems if they exist, but use STEME and IER
-- for the first present stem and ier= value, since they're computed
-- specially.
function handle_imperfect(args, data, group, steme, ier)
	local imperf_args = get_args(args, {"imperf","imperfier","pres","ier"})
	-- Just override the values from args["pres"] and args["ier"]
	imperf_args[1][3][1] = steme
	imperf_args[1][4][1] = ier
	for _, stem in ipairs(imperf_args) do
		local imperf = stem[1][1]
		local imperfier = stem[2][1]
		local pres = stem[3][1]
		local presier = stem[4][1]
		inflect_imperfect(data, group, imperf, imperfier, pres, presier)
	end
end

-- Add to DATA up to one form of the present participle based on the
-- present stem in PRES. Only do anything if PRES is non-nil and not a
-- multipart specification.
function inflect_pres_part(data, group, pres)
	if pres and not rfind(pres, "/") then
		if group == "ii" then
			table.insert(data.forms.pres_ptc, join(pres, "issant"))
		else
			table.insert(data.forms.pres_ptc, join(pres, "ant"))
		end
	end
end

-- Add to DATA the forms of the present participle based on the
-- present stem(s) in ARGS. Use STEME for the first present stem,
-- since it's computed specially.
function handle_pres_part(args, data, group, steme)
	if data.forms.pres_ptc == nil then
		data.forms.pres_ptc = {}
	end
	local ppart_args = get_args(args, {"pres"})
	-- Just override the value from args["pres"]
	ppart_args[1][1][1] = steme
	for _, stem in ipairs(ppart_args) do
		local pres = stem[1][1]
		inflect_pres_part(data, group, pres)
	end
end
	
-- Add to DATA the endings for an -er or -ier verb, based on the arguments
-- in ARGS.
inflections["i"] = function(args, data)
	local prese = data.prese
	local press = args["press"] or prese
	local i = data.ier and "i" or ""

	if data.ier then
		data.comment = "This verb conjugates as a first-group verb ending in ''-ier'', with a palatal stem. These verbs are conjugated mostly like verbs in ''-er'', but there is an extra ''i'' before the ''e'' of some endings. "
	else
		data.comment = "This verb conjugates as a first-group verb ending in ''-er''. "
	end
	data.comment = data.comment ..
		verb_comment(args, "i", prese, press, data.ier, data.supe, data.old)
	data.group = {"first"}
	handle_pres_part(args, data, "i", prese)
	data.forms.past_ptc = {join(prese, i .. "é" .. (data.old and "ṭ" or ""))}

	handle_pres(args, data, "i", prese, press)
	handle_imperfect(args, data, "i", prese, data.ier)
	handle_pret_impf_subj(args, data, prese, prese,
		data.ier and "weak-a2" or "weak-a")
	handle_future_cond(args, data, join(prese, "er"))
end

-- Add to DATA the endings for a type 2 verb (-ir, with -iss- infix),
-- based on the arguments in ARGS.
inflections["ii"] = function(args, data)
	local prese = data.prese
	local press = args["press"] or prese

	data.comment = "This verb conjugates as a second-group verb (ending in ''-ir'', with an ''-iss-'' infix). "
	data.group = {"second"}

	handle_pres_part(args, data, "ii", prese)
	local oldt = data.old and "ṭ" or ""
	data.forms.past_ptc = {join(prese, "i" .. oldt)}

	handle_pres(args, data, "ii", prese, press)
	handle_imperfect(args, data, "ii", prese, data.ier)
	handle_pret_impf_subj(args, data, prese, prese, "weak-i")
	handle_future_cond(args, data, join(prese, "ir"))
end

-- Add to DATA the endings for a type 3 verb (-ir without -iss- infix, or
-- -re or -oir), based on the arguments in ARGS.
inflections["iii"] = function(args, data)
	local prese = data.prese
	local press = args["press"] or prese
	local i = data.ier and "i" or ""

	data.comment = "This verb conjugates as a third-group verb. "
	if data.ier then
		data.comment = data.comment .. "This verb ends in a palatal stem, so there is an extra ''i'' before the ''e'' of some endings. "
	end
	data.comment = data.comment ..
		verb_comment(args, "iii", prese, press, data.ier, data.supe, data.old)
	data.group = {"third"}

	handle_pres_part(args, data, "iii", prese)
	-- retrieve the infinitive without any affix, so that when
	-- we put the affix back on, we don't get a doubled affix
	local infinitive = data.inf_no_affix
	local oldt = data.old and "ṭ" or ""
	if rfind(infinitive, "[^eo]ir$") then
		data.forms.past_ptc = {join(prese, "i" .. oldt)}
	elseif rfind(infinitive, "ïr$") then
		data.forms.past_ptc = {join(prese, "ï" .. oldt)}
	else
		data.forms.past_ptc = {join(prese, "u" .. oldt)}
	end

	handle_pres(args, data, "iii", prese, press)
	handle_imperfect(args, data, "iii", prese, data.ier)
	if rfind(infinitive, "[dt]re$") then
		handle_pret_impf_subj(args, data, prese, prese, "weak-i2")
	elseif rfind(infinitive, "re$") then
		local pretstem = add_s(prese, false, false, data.old)
		pretstem = rsub(pretstem, "s$", "")
		handle_pret_impf_subj(args, data, prese, pretstem, "strong-st")
	elseif rfind(infinitive, "[eo]ir$") then
		handle_pret_impf_subj(args, data, prese, prese, "weak-u")
	else
		handle_pret_impf_subj(args, data, prese, prese, "weak-i")
	end
	if rfind(infinitive, "[^eolrs]ir$") then
		handle_future_cond(args, data, join(prese, "ir"))
	else -- -re, -oir, -eir, -ïr, -lir, -sir, -rir
		handle_future_cond(args, data, add_r(prese, data.old))
	end
end

-- Add to DATA the endings for a type 3/2 verb (-ir without or with
-- -iss- infix), based on the arguments in ARGS.
inflections["iii-ii"] = function(args, data)
	local prese = data.prese
	local press = args["press"] or prese
	local i = data.ier and "i" or ""

	data.comment = "This verb conjugates as a third-group or second-group verb (ending in ''-ir'', without or with an ''-iss-'' infix). "
	if data.ier then
		data.comment = data.comment .. "This verb ends in a palatal stem, so there is an extra ''i'' before the ''e'' of some endings. "
	end
	data.comment = data.comment ..
		verb_comment(args, "iii", prese, press, data.ier, data.supe, data.old)
	data.group = {"third", "second", "third-second"}

	handle_pres_part(args, data, "iii", prese)
	handle_pres_part(args, data, "ii", prese)
	-- retrieve the infinitive without any affix, so that when
	-- we put the affix back on, we don't get a doubled affix
	local infinitive = data.inf_no_affix
	local oldt = data.old and "ṭ" or ""
	data.forms.past_ptc = {join(prese, "i" .. oldt)}

	handle_pres(args, data, "iii", prese, press)
	handle_pres(args, data, "ii", prese, press)
	handle_imperfect(args, data, "iii", prese, data.ier)
	handle_imperfect(args, data, "ii", prese, data.ier)
	handle_pret_impf_subj(args, data, prese, prese, "weak-i")
	handle_future_cond(args, data, join(prese, "ir"))
end

-- Shows the table with the given forms
function make_table(data)
	return data.comment .. [=[Old French conjugation varies significantly by date and by region. The following conjugation should be treated as a guide.
<div class="NavFrame" style="clear:both">
<div class="NavHead" align=left>&nbsp; &nbsp; Conjugation of ]=] .. m_links.full_link({lang = lang, alt = data.forms.infinitive[1]}, "term") .. [=[
<span style="font-size:90%;"> (see also [[Appendix:Old French verbs]])</span></div>
<div class="NavContent" align=center>
{| style="width: 100%; background:#F0F0F0;border-collapse:separate;border-spacing:2px" class="inflection-table"
|-
! colspan="2" style="background:#e2e4c0" |
! colspan="3" style="background:#e2e4c0" | simple
! colspan="3" style="background:#e2e4c0" | compound
|-
! colspan="2" style="background:#e2e4c0" | infinitive
| colspan="3" |  ]=] .. show_form(data.forms.infinitive) .. [=[

| colspan="3" |  ]=] .. show_form(data.forms.aux) .. " " .. show_form(data.forms.past_ptc) .. [=[

|-
! colspan="2" style="background:#e2e4c0" | gerund
| colspan="3" |  en ]=] .. show_form(data.forms.pres_ptc) .. [=[

| colspan="3" |  Use the gerund of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! colspan="2" style="background:#e2e4c0" | present participle
| colspan="3" |  ]=] .. show_form(data.forms.pres_ptc) .. [=[

|-
! colspan="2" style="background:#e2e4c0" | past participle
| colspan="3" |  ]=] .. show_form(data.forms.past_ptc) .. [=[

|-
! colspan="2" rowspan="2" style="background:#C0C0C0" | person
! colspan="3" style="background:#C0C0C0" | singular
! colspan="3" style="background:#C0C0C0" | plural
|-
! style="background:#C0C0C0;width:12.5%" | first
! style="background:#C0C0C0;width:12.5%" | second
! style="background:#C0C0C0;width:12.5%" | third
! style="background:#C0C0C0;width:12.5%" | first
! style="background:#C0C0C0;width:12.5%" | second
! style="background:#C0C0C0;width:12.5%" | third
|-
! style="background:#c0cfe4" colspan="2" | indicative
! style="background:#c0cfe4" | jo
! style="background:#c0cfe4" | tu
! style="background:#c0cfe4" | il
! style="background:#c0cfe4" | nos
! style="background:#c0cfe4" | vos
! style="background:#c0cfe4" | il
|-
! rowspan="5" style="background:#c0cfe4" | simple<br>tenses
! style="height:3em;background:#c0cfe4" | present
| ]=] .. show_form(data.forms.pres_indc_1sg) .. [=[

| ]=] .. show_form(data.forms.pres_indc_2sg) .. [=[

| ]=] .. show_form(data.forms.pres_indc_3sg) .. [=[

| ]=] .. show_form(data.forms.pres_indc_1pl) .. [=[

| ]=] .. show_form(data.forms.pres_indc_2pl) .. [=[

| ]=] .. show_form(data.forms.pres_indc_3pl) .. [=[

|-
! style="height:3em;background:#c0cfe4" | imperfect
| ]=] .. show_form(data.forms.impf_indc_1sg) .. [=[

| ]=] .. show_form(data.forms.impf_indc_2sg) .. [=[

| ]=] .. show_form(data.forms.impf_indc_3sg) .. [=[

| ]=] .. show_form(data.forms.impf_indc_1pl) .. [=[

| ]=] .. show_form(data.forms.impf_indc_2pl) .. [=[

| ]=] .. show_form(data.forms.impf_indc_3pl) .. [=[

|-
! style="height:3em;background:#c0cfe4" | preterite
| ]=] .. show_form(data.forms.pret_indc_1sg) .. [=[

| ]=] .. show_form(data.forms.pret_indc_2sg) .. [=[

| ]=] .. show_form(data.forms.pret_indc_3sg) .. [=[

| ]=] .. show_form(data.forms.pret_indc_1pl) .. [=[

| ]=] .. show_form(data.forms.pret_indc_2pl) .. [=[

| ]=] .. show_form(data.forms.pret_indc_3pl) .. [=[

|-
! style="height:3em;background:#c0cfe4" | future
| ]=] .. show_form(data.forms.futr_indc_1sg) .. [=[

| ]=] .. show_form(data.forms.futr_indc_2sg) .. [=[

| ]=] .. show_form(data.forms.futr_indc_3sg) .. [=[

| ]=] .. show_form(data.forms.futr_indc_1pl) .. [=[

| ]=] .. show_form(data.forms.futr_indc_2pl) .. [=[

| ]=] .. show_form(data.forms.futr_indc_3pl) .. [=[

|-
! style="height:3em;background:#c0cfe4" | conditional
| ]=] .. show_form(data.forms.cond_1sg) .. [=[

| ]=] .. show_form(data.forms.cond_2sg) .. [=[

| ]=] .. show_form(data.forms.cond_3sg) .. [=[

| ]=] .. show_form(data.forms.cond_1pl) .. [=[

| ]=] .. show_form(data.forms.cond_2pl) .. [=[

| ]=] .. show_form(data.forms.cond_3pl) .. [=[

|-
! rowspan="5" style="background:#c0cfe4" | compound<br>tenses
! style="height:3em;background:#c0cfe4" | present perfect
! colspan="6" style="background:#C0C0C0" |  Use the present tense of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! style="height:3em;background:#c0cfe4" | pluperfect
! colspan="6" style="background:#C0C0C0" |  Use the imperfect tense of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! style="height:3em;background:#c0cfe4" | past anterior
! colspan="6" style="background:#C0C0C0" |  Use the preterite tense of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! style="height:3em;background:#c0cfe4" | future perfect
! colspan="6" style="background:#C0C0C0" |  Use the future tense of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! style="height:3em;background:#c0cfe4" | conditional perfect
! colspan="6" style="background:#C0C0C0" |  Use the conditional tense of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! style="background:#c0e4c0" colspan="2" | subjunctive
! style="background:#c0e4c0" | que jo
! style="background:#c0e4c0" | que tu
! style="background:#c0e4c0" | qu’il
! style="background:#c0e4c0" | que nos
! style="background:#c0e4c0" | que vos
! style="background:#c0e4c0" | qu’il
|-
! rowspan="2" style="background:#c0e4c0" | simple<br>tenses
! style="height:3em;background:#c0e4c0" | present
| ]=] .. show_form(data.forms.pres_subj_1sg) .. [=[

| ]=] .. show_form(data.forms.pres_subj_2sg) .. [=[

| ]=] .. show_form(data.forms.pres_subj_3sg) .. [=[

| ]=] .. show_form(data.forms.pres_subj_1pl) .. [=[

| ]=] .. show_form(data.forms.pres_subj_2pl) .. [=[

| ]=] .. show_form(data.forms.pres_subj_3pl) .. [=[

|-
! style="height:3em;background:#c0e4c0" rowspan="1" | imperfect
| ]=] .. show_form(data.forms.impf_subj_1sg) .. [=[

| ]=] .. show_form(data.forms.impf_subj_2sg) .. [=[

| ]=] .. show_form(data.forms.impf_subj_3sg) .. [=[

| ]=] .. show_form(data.forms.impf_subj_1pl) .. [=[

| ]=] .. show_form(data.forms.impf_subj_2pl) .. [=[

| ]=] .. show_form(data.forms.impf_subj_3pl) .. [=[

|-
! rowspan="2" style="background:#c0e4c0" | compound<br>tenses
! style="height:3em;background:#c0e4c0" | past
! colspan="6" style="background:#C0C0C0" |  Use the present subjunctive of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! rowspan="1" style="height:3em;background:#c0e4c0" | pluperfect
! colspan="6" style="background:#C0C0C0" |  Use the imperfect subjunctive of ]=] .. show_form(data.forms.aux) .. [=[ followed by the past participle

|-
! colspan="2" rowspan="2" style="height:3em;background:#e4d4c0" | imperative
! style="background:#e4d4c0" | –
! style="background:#e4d4c0" | tu
! style="background:#e4d4c0" | –
! style="background:#e4d4c0" | nos
! style="background:#e4d4c0" | vos
! style="background:#e4d4c0" | –
|-
| —
| ]=] .. show_form(data.forms.impr_2sg) .. [=[

| —
| ]=] .. show_form(data.forms.impr_1pl) .. [=[

| ]=] .. show_form(data.forms.impr_2pl) .. [=[

| —
|-
|}</div></div>]=]
end

-- Create a link for a form
function make_link(subform)
	return m_links.full_link({lang = lang, term = subform})
end

-- Shows forms, or a dash if empty
function show_form(subforms)
	if not subforms then
		return "&mdash;"
	elseif type(subforms) ~= "table" then
		error("a non-table value was given in the list of inflected forms.")
	elseif #subforms == 0 then
		return "&mdash;"
	end

	-- Concatenate results, omitting duplicates
	local ret = {}
	for key, subform in ipairs(subforms) do
		insert_if_not(ret, subform)
	end
	return table.concat(ret, ", ")
end

return export

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