มอดูล:bg-nominal

จาก วิกิพจนานุกรม พจนานุกรมเสรี
local export = {}


--[=[

Authorship: Ben Wing <benwing2>

]=]

--[=[

TERMINOLOGY:

-- "slot" = A particular case/number/definiteness (and gender for adjectives) combination.
	 Example slot names for nouns are "ind_pl" (indefinite plural), "def_obj_sg" (definite objective
	 singular), "voc_sg" (vocative singular). Example slot names for adjectives are "ind_pl"
	 (indefinite plural) and "def_obj_m_sg" (definite object masculine singular) Each slot is filled
	 with zero or more forms.

-- "form" = The declined Bulgarian form representing the value of a given slot. For example, мо́мко
	 is a form, representing the value of the voc_sg slot of the lemma мо́мък "youth".

-- "lemma" = The dictionary form of a given Bulgarian term. Generally the indefinite (masculine)
	 singular, but will be the indefinite plural of plurale tantum nouns (e.g. га́щи "pants"), and
	 may occasionally be another form if the indefinite (masculine) singular is missing.

-- "plurale tantum" (plural "pluralia tantum") = A noun that exists only in the plural. Examples are
	 очила́ "glasses" and три́ци "bran".

-- "singulare tantum" (plural "singularia tantum") = A noun that exists only in the singular.
	Examples are ори́з "rice" and Бълга́рия "Bulgaria".
]=]

local lang = require("Module:languages").getByCode("bg")
local m_table = require("Module:table")
local m_links = require("Module:links")
local m_string_utilities = require("Module:string utilities")
local iut = require("Module:inflection utilities")
local m_para = require("Module:parameters")
local com = require("Module:bg-common")

local current_title = mw.title.getCurrentTitle()
local NAMESPACE = current_title.nsText
local PAGENAME = current_title.text

local u = mw.ustring.char
local rsplit = mw.text.split
local rfind = mw.ustring.find
local rmatch = mw.ustring.match
local rgmatch = mw.ustring.gmatch
local rsubn = mw.ustring.gsub
local ulen = mw.ustring.len
local uupper = mw.ustring.upper

local AC = u(0x0301) -- acute =  ́

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

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


local noun_overriding_forms = {
	["pl"] = true,
	["ind"] = true,
	["def"] = true,
	["def_sub"] = true,
	["def_obj"] = true,
	["count"] = true,
	["voc"] = true,
	["acc"] = true,
	["gen"] = true,
	["dat"] = true,
	["ind_pl"] = true,
	["def_pl"] = true,
	["voc_pl"] = true,
	["acc_pl"] = true,
	["gen_pl"] = true,
	["dat_pl"] = true,
}


local boolean_noun_overriding_props = {
	["-pl"] = true,
	["-def"] = true,
	["-def_pl"] = true,
	["-count"] = true,
}


local boolean_adj_overriding_props = {
	["dva"] = true,
	["koj"] = true,
	["chij"] = true,
	["-voc"] = true,
}


local noun_slots = {
	["ind_sg"] = "indef|s",
	["def_sub_sg"] = "def|sbjv|s",
	["def_obj_sg"] = "def|objv|s",
	["voc_sg"] = "voc|s",
	["acc_sg"] = "acc|s",
	["gen_sg"] = "gen|s",
	["dat_sg"] = "dat|s",
	["voc_pl"] = "voc|p",
	["acc_pl"] = "acc|p",
	["gen_pl"] = "gen|p",
	["dat_pl"] = "dat|p",
	["ind_pl"] = "indef|p",
	["def_pl"] = "def|p",
	["count"] = "count|form",
}

local extra_noun_cases = {"acc", "gen", "dat"}

local adj_slots = {
	["ind_m_sg"] = "indef|m|s",
	["def_sub_m_sg"] = "def|sbjv|m|s",
	["def_obj_m_sg"] = "def|objv|m|s",
	["ind_f_sg"] = "indef|f|s",
	["def_f_sg"] = "def|f|s",
	["ind_n_sg"] = "indef|n|s",
	["def_n_sg"] = "def|n|s",
	["ind_pl"] = "indef|p",
	["def_pl"] = "def|p",
	["voc_m_sg"] = "voc|m|s",
	-- Extra slot for possessive forms.
	["short"] = "short|form",
	-- Extra slots for два and related words.
	["ind_m_pl"] = "indef|m|p",
	["def_m_pl"] = "def|m|p",
	["ind_fn_pl"] = "indef|f|p|;|indef|n|p",
	["def_fn_pl"] = "def|f|p|;|def|n|p",
	-- Extra slot for demonstrative and interrogative pronouns.
	["m_sg"] = "m|s",
	["nom_m_sg"] = "nom|m|s",
	["acc_m_sg"] = "acc|m|s",
	["dat_m_sg"] = "dat|m|s",
	["f_sg"] = "f|s",
	["n_sg"] = "n|s",
	["pl"] = "p",
}

local masc_adj_to_noun_slots = {
	["ind_m_sg"] = {"ind_sg", "acc_sg", "gen_sg", "dat_sg"},
	["def_sub_m_sg"] = "def_sub_sg",
	["def_obj_m_sg"] = "def_obj_sg",
	["voc_m_sg"] = "voc_sg",
}

local fem_adj_to_noun_slots = {
	["ind_f_sg"] = {"ind_sg", "voc_sg", "acc_sg", "gen_sg", "dat_sg"},
	["def_f_sg"] = {"def_sub_sg", "def_obj_sg"},
}

local neut_adj_to_noun_slots = {
	["ind_n_sg"] = {"ind_sg", "voc_sg", "acc_sg", "gen_sg", "dat_sg"},
	["def_n_sg"] = {"def_sub_sg", "def_obj_sg"},
}

local pl_adj_to_noun_slots = {
	["ind_pl"] = {"ind_pl", "count", "voc_pl", "acc_pl", "gen_pl", "dat_pl"},
	["def_pl"] = "def_pl",
}

local potential_noun_lemma_slots = {
	"ind_sg",
	"ind_pl"
}

local potential_adj_lemma_slots = {
	"ind_m_sg",
	"ind_pl"
}


-- Add a tracking category to the page.
local function track(page)
	require("Module:debug").track("bg-nominal/" .. page)
	return true
end


-- Given an alternating run of the format returned by `parse_balanced_segment_run`,
-- where the even-numbered segments are footnotes and the whole run describes an adjective
-- accent spec (e.g. "b*(я)" split as {"b*(я)"}), parse the accent spec and return an object
-- describing this spec. No footnotes are currently allowed in the accent spec and hence an
-- error will be thrown if there are any even-numbered segments. The returned object is e.g.
-- (for the above spec)
--
-- {
--   accents = {"b"},
--   reducible = true,
--   ya = true,
-- }
--
-- Other possible fields of the object:
--
-- soft_sign = BOOLEAN
-- nocomp = BOOLEAN
-- ch = BOOLEAN
-- che = BOOLEAN
-- ur = BOOLEAN
local function parse_adj_accent_spec(accent_run)
	if #accent_run ~= 1 then
		error("Bracketed footnotes not allowed in adjective accent specs: '" .. table.concat(accent_run) .. "'")
	end
	local retval = {accents = {}}
	local accents, rest = accent_run[1]:match("^([ab]*)(.-)$")
	for accent in accents:gmatch(".") do
		table.insert(retval.accents, accent)
	end
	rest, retval.reducible = rsubb(rest, "%*", "")
	rest, retval.nocomp = rsubb(rest, "!", "")
	rest, retval.soft_sign = rsubb(rest, "%(ь%)", "")
	rest, retval.ch = rsubb(rest, "%(ч%)", "")
	rest, retval.che = rsubb(rest, "%(че%)", "")
	rest, retval.ur = rsubb(rest, "%(ър%)", "")
	rest, retval.ya = rsubb(rest, "%(я%)", "")
	if rest ~= "" then
		error("Unrecognized indicator: '" .. rest .. "'")
	end
	return retval
end


-- Given an alternating run of the format returned by `parse_balanced_segment_run`,
-- where the even-numbered segments are footnotes and the whole run describes
-- a noun accent spec (e.g. "ad(v)+ове++и[a]" split as {"ad(v)+ове++и", "[a]", ""}),
-- parse the accent spec and return an object describing this spec. The returned
-- object is e.g. (for the above spec)
--
-- {
--   accents = {"a", "d"},
--   plurals = {{plural = "ове"}, {plural = "и", double_plus = true, footnotes = {"[a]"}}},
--   vocative = true,
-- }
--
-- Other possible fields of the object:
--
-- gender = STRING (either "m", "f" or "n")
-- reducible = BOOLEAN
-- reducible_vocative = BOOLEAN
-- reducible_count = BOOLEAN
-- reducible_definite = BOOLEAN
-- human = BOOLEAN
-- soft_sign = BOOLEAN
-- no_sign_sign = BOOLEAN
-- remove_in = BOOLEAN
-- ur = BOOLEAN
local function parse_noun_accent_spec(accent_run)
	local retval = {accents = {}, plurals = {}}
	local plurals = {}
	local plural_groups = iut.split_alternating_runs(accent_run, "%+")
	local double_plus = false
	for i, plural_group in ipairs(plural_groups) do
		if i > 1 and retval.is_adj then
			error("Explicit plurals not allowed with adjectival forms: '" .. table.concat(accent_run) .. "'")
		elseif i > 1 then
			if #plural_group == 1 and plural_group[1] == "" then
				if double_plus then
					error("Too many plus signs: '" .. table.concat(accent_run) .. "'")
				else
					double_plus = true
				end
			else
				local plural = {plural = plural_group[1], double_plus = double_plus}
				double_plus = false
				for j = 2, #plural_group - 1, 2 do
					if plural_group[j + 1] ~= "" then
						error("Extraneous text after bracketed footnotes: '" .. table.concat(plural_group) .. "'")
					end
					if not plural.footnotes then
						plural.footnotes = {}
					end
					table.insert(plural.footnotes, plural_group[j])
				end
				table.insert(retval.plurals, plural)
			end
		elseif #plural_group ~= 1 then
			error("Bracketed footnotes not allowed in accent specs: '" .. table.concat(plural_group) .. "'")
		else
			local rest
			rest, retval.is_adj = rsubb(plural_group[1], "#", "")
			if retval.is_adj then
				retval.nocomp = true
				rest, retval.has_vocative = rsubb(rest, "%(v%)", "")
				rest, retval.human = rsubb(rest, "%(h%)", "")
				local adj_accent_spec = parse_adj_accent_spec({rest})
				for prop, value in pairs(adj_accent_spec) do
					retval[prop] = value
				end
			else
				local accents
				local accents, rest = plural_group[1]:match("^([abcd]*)(.-)$")
				for accent in accents:gmatch(".") do
					table.insert(retval.accents, accent)
				end
				rest, retval.reducible_vocative = rsubb(rest, "%(v%*%)", "")
				rest, retval.reducible_count = rsubb(rest, "%(c%*%)", "")
				rest, retval.reducible_definite = rsubb(rest, "%(d%*%)", "")
				rest, retval.reducible = rsubb(rest, "%*", "")
				rest, retval.has_vocative = rsubb(rest, "%(v%)", "")
				rest, retval.human = rsubb(rest, "%(h%)", "")
				rest, retval.soft_sign = rsubb(rest, "%(ь%)", "")
				rest, retval.no_soft_sign = rsubb(rest, "%(%-ь%)", "")
				if retval.soft_sign and retval.no_soft_sign then
					error("Conflicting specs: Can't specify both (ь) and (-ь)")
				end
				rest, retval.remove_in = rsubb(rest, "%(ин%)", "")
				rest, retval.ur = rsubb(rest, "%(ър%)", "")
				rest, retval.ya = rsubb(rest, "%(я%)", "")
				rest, retval.no_ya = rsubb(rest, "%(%-я%)", "")
				if retval.ya and retval.no_ya then
					error("Conflicting specs: Can't specify both (я) and (-я)")
				end
				local masc, fem, neut, g
				rest, masc = rsubb(rest, "%(m%)", "")
				if masc then
					g = "m"
				end
				rest, fem = rsubb(rest, "%(f%)", "")
				if fem then
					if g then
						error("Conflicting gender specs: Can't specify both (m) and (f)")
					end
					g = "f"
				end
				rest, neut = rsubb(rest, "%(n%)", "")
				if neut then
					if g then
						error("Conflicting gender specs: Can't specify both (" .. g .. ") and (n)")
					end
					g = "n"
				end
				retval.gender = g
				if rest ~= "" then
					error("Unrecognized indicator: '" .. rest .. "'")
				end
			end
		end
	end
	return retval
end


-- Given an alternating run of the format returned by `parse_balanced_segment_run`,
-- where the even-numbered segments are footnotes and the whole run describes
-- a form spec (e.g. "pl:+:мо́мце:момци́[a][collective]" split as
-- {"pl:+:мо́мце:момци́", "[a]", "", "[collective]", ""}), parse the form spec and return
-- two values, e.g. (for the above spec)
--
-- "pl", {{value = "+"}, {value = "мо́мце"}, {value = "момци́", footnotes = {"[a]", "[collective]"}}}
--
-- As special cases, if the form name is "n", the second value will be a string, one of
-- "sg", "pl" or "both", and if the form name is in `negative_*_overriding_forms`, the second value
-- will be `true`. Only the following form names are allowed:
--   * if from_noun, "n"
--   * if not is_adj, the keys in `noun_overriding_forms` and `boolean_noun_overriding_props`
--   * if is_adj and not from_noun, the keys in `boolean_adj_overriding_props`
--   * if is_adj and not from_noun, the keys in `adj_slots`
--   * if is_adj and from_noun, the keys in `noun_slots`
-- Note than `from_noun` should be true if the overall declension is of a noun
-- (including adjectival nouns) and `is_adj` should be true if the particular term we're
-- declining is an adjective or adjectival noun.
local function parse_form_spec(form_run, from_noun, is_adj)
	local colon_separated_groups = iut.split_alternating_runs(form_run, ":")
	local form_name_group = colon_separated_groups[1]
	if #form_name_group ~= 1 then
		error("Bracketed footnotes not allowed after form name: '" .. table.concat(form_name_group) .. "'")
	end
	local form_name = form_name_group[1]
	if from_noun and form_name == "n" then
		if #colon_separated_groups == 2 and #colon_separated_groups[2] == 1 then
			local number = colon_separated_groups[2][1]
			if number == "sg" or number == "pl" or number == "both" then
				return "n", number
			end
		end
		error("Number spec should be 'n:sg', 'n:pl' or 'n:both': '" .. table.concat(form_run))
	elseif (
		not is_adj and boolean_noun_overriding_props[form_name] or
		is_adj and not from_noun and boolean_adj_overriding_props[form_name]
	) then
		if #colon_separated_groups > 1 then
			error("Cannot specify a value for boolean spec '" .. form_name .. "'")
		end
		return form_name, true
	elseif (
		not is_adj and noun_overriding_forms[form_name] or
		is_adj and not from_noun and adj_slots[form_name] or
		is_adj and from_noun and noun_slots[form_name]
	) then
		local forms = {}
		for i, colon_separated_group in ipairs(colon_separated_groups) do
			if i > 1 then
				local form = {value = colon_separated_group[1]}
				for j = 2, #colon_separated_group - 1, 2 do
					if colon_separated_group[j + 1] ~= "" then
						error("Extraneous text after bracketed footnotes: '" .. table.concat(colon_separated_group) .. "'")
					end
					if not form.footnotes then
						form.footnotes = {}
					end
					table.insert(form.footnotes, colon_separated_group[j])
				end
				table.insert(forms, form)
			end
		end
		return form_name, forms
	else
		error("Unrecognized form name: '" .. form_name .. "'")
	end
end


-- Given an angle-bracket spec (the entire spec following a lemma, including the angle brackets),
-- parse the noun accent and form specs inside the angle brackets. The return value is a list of
-- accent-and-form specs, where each such spec is an object with a field 'accent_spec' in the
-- format returned by parse_noun_accent_spec(), plus zero or more fields describing forms, where the
-- field name is the form name and the value is the second return value of parse_form_spec().
-- For example, given "<a*+ове+а[d],/pl:момци́[a][collective]>", the return value will be
-- 
-- {
--   {
--     accent_spec = {
--       accents = {"a"},
--       reducible = true,
--       plurals = {{plural = "ове"}, {plural = "а", footnotes = {"[d]"}}},
--     }
--   },
--   {
--     accent_spec = {
--       accents = {},
--       plurals = {},
--     },
--     pl = {{value = "момци́", footnotes = {"[a]", "[collective]"}}},
--   },
-- }
local function parse_noun_accent_and_form_specs(angle_bracket_spec)
	local inside = rmatch(angle_bracket_spec, "^<(.*)>$")
	assert(inside)
	local bracketed_runs = iut.parse_balanced_segment_run(inside, "[", "]")
	local comma_separated_groups = iut.split_alternating_runs(bracketed_runs, ",")
	local accent_and_form_specs = {}
	for _, comma_separated_group in ipairs(comma_separated_groups) do
		local accent_and_form_spec = {}
		local slash_separated_groups = iut.split_alternating_runs(comma_separated_group, "/")
		accent_and_form_spec.accent_spec = parse_noun_accent_spec(slash_separated_groups[1])
		for i, slash_separated_group in ipairs(slash_separated_groups) do
			if i > 1 then
				local form_name, forms = parse_form_spec(slash_separated_group,
					"from noun", accent_and_form_spec.accent_spec.is_adj)
				if accent_and_form_spec[form_name] then
					error("Cannot specify '" .. form_name .. "' twice")
				end
				accent_and_form_spec[form_name] = forms
			end
		end
		if accent_and_form_spec["count"] and accent_and_form_spec["-count"] then
			error("Can't specify both 'count' and '-count'")
		end
		if accent_and_form_spec["def"] and accent_and_form_spec["-def"] then
			error("Can't specify both 'def' and '-def'")
		end
		table.insert(accent_and_form_specs, accent_and_form_spec)
	end
	return accent_and_form_specs
end


-- Given an angle-bracket spec (the entire spec following a lemma, including the angle brackets),
-- parse the adjective accent and form specs inside the angle brackets. The return value is a list of
-- accent-and-form specs, where each such spec is an object with a field 'accent_spec' in the
-- format returned by parse_noun_accent_spec(). Currently there are no other fields describing forms;
-- that may change.
--
-- For example, given "<a*,b/def_f_sg:мо́ята:мо́йта[p]>", the return value will be
-- 
-- {
--   {
--     accent_spec = {
--       accents = {"a"},
--       reducible = true,
--     }
--   },
--   {
--     accent_spec = {
--       accents = {"b"},
--     },
--     def_f_sg = {{value = "мо́ята"}, {value = "мо́йта", footnotes = {"[p]"}}},
--   },
-- }
local function parse_adj_accent_and_form_specs(angle_bracket_spec)
	local inside = rmatch(angle_bracket_spec, "^<(.*)>$")
	assert(inside)
	local bracketed_runs = iut.parse_balanced_segment_run(inside, "[", "]")
	local comma_separated_groups = iut.split_alternating_runs(bracketed_runs, ",")
	local accent_and_form_specs = {}
	for _, comma_separated_group in ipairs(comma_separated_groups) do
		local accent_and_form_spec = {}
		local slash_separated_groups = iut.split_alternating_runs(comma_separated_group, "/")
		accent_and_form_spec.accent_spec = parse_adj_accent_spec(slash_separated_groups[1])
		for i, slash_separated_group in ipairs(slash_separated_groups) do
			if i > 1 then
				local form_name, forms = parse_form_spec(slash_separated_group, false, "is adj")
				if accent_and_form_spec[form_name] then
					error("Cannot specify '" .. form_name .. "' twice")
				end
				accent_and_form_spec[form_name] = forms
			end
		end
		table.insert(accent_and_form_specs, accent_and_form_spec)
	end
	return accent_and_form_specs
end


-- Parse a multiword spec such as "[[слънчев|слъ́нчева]]<#> [[систе́ма]]<>".
-- The return value is a table of the form
-- {
--   word_specs = {WORD_SPEC, WORD_SPEC, ...},
--   post_text = "TEXT-AT-END",
-- }
--
-- where WORD_SPEC describes an individual declined word and "TEXT-AT-END" is any raw text that
-- may occur after all declined words. Each WORD_SPEC is of the form
--
-- {
--   lemma = "LEMMA",
--   accent_and_form_specs = {ACCENT_AND_FORM_SPEC, ACCENT_AND_FORM_SPEC, ...}
--   before_text = "TEXT-BEFORE-WORD",
--   forms = {},
-- }
--
-- For example, the return value for "[[слънчев|слъ́нчева]]<#> [[систе́ма]]<>" is
-- {
--   word_specs = {
--     {
--       lemma = "[[слънчев|слъ́нчева]]",
--       accent_and_form_specs = {
--         {
--           accent_spec = {
--             is_adj = true,
--           }
--         },
--       }
--       before_text = "",
--       forms = {},
--     },
--     {
--       lemma = "[[систе́ма]]",
--       accent_and_form_specs = {
--         {
--           accent_spec = {
--           }
--         },
--       }
--       before_text = " ",
--       forms = {},
--     },
--   },
--   post_text = "",
-- }
local function parse_multiword_spec(segments, is_adj)
	local multiword_spec = {
		word_specs = {}
	}
	for i = 2, #segments - 1, 2 do
		local word_spec = {}
		local bracketed_runs = iut.parse_balanced_segment_run(segments[i - 1], "[", "]")
		local space_separated_groups = iut.split_alternating_runs(bracketed_runs, "[ %-]", "preserve splitchar")
		local before_text = {}
		for j, space_separated_group in ipairs(space_separated_groups) do
			if j == #space_separated_groups then
				word_spec.lemma = m_links.remove_links(table.concat(space_separated_group))
				if word_spec.lemma == "" then
					error("Word is blank: '" .. table.concat(segments) .. "'")
				end
			else
				table.insert(before_text, table.concat(space_separated_group))
			end
		end
		word_spec.before_text = m_links.remove_links(table.concat(before_text))
		word_spec.accent_and_form_specs = is_adj and parse_adj_accent_and_form_specs(segments[i]) or
			parse_noun_accent_and_form_specs(segments[i])
		word_spec.forms = {}
		table.insert(multiword_spec.word_specs, word_spec)
	end
	multiword_spec.post_text = m_links.remove_links(segments[#segments])
	return multiword_spec
end


-- Parse an alternant, e.g. "((мо́лив<>,моли́в<>))". The return value is a table of the form
-- {
--   alternants = {MULTIWORD_SPEC, MULTIWORD_SPEC, ...}
-- }
--
-- where MULTIWORD_SPEC describes a given alternant and is as returned by parse_multiword_spec().
local function parse_alternant(alternant, is_adj)
	local parsed_alternants = {}
	local alternant_text = rmatch(alternant, "^%(%((.*)%)%)$")
	local segments = iut.parse_balanced_segment_run(alternant_text, "<", ">")
	local comma_separated_groups = iut.split_alternating_runs(segments, ",")
	local alternant_spec = {alternants = {}}
	for _, comma_separated_group in ipairs(comma_separated_groups) do
		table.insert(alternant_spec.alternants, parse_multiword_spec(comma_separated_group, is_adj))
end
	return alternant_spec
end


-- Top-level parsing function. Parse a multiword spec that may have alternants in it.
-- The return value is a table of the form
-- {
--   alternant_or_word_specs = {ALTERNANT_OR_WORD_SPEC, ALTERNANT_OR_WORD_SPEC, ...}
--   post_text = "TEXT-AT-END",
-- }
--
-- where ALTERNANT_OR_WORD_SPEC is either an alternant spec as returned by parse_alternant()
-- or a word spec as described in the comment above parse_multiword_spec(). An alternant spec
-- looks as follows:
-- {
--   alternants = {MULTIWORD_SPEC, MULTIWORD_SPEC, ...},
--   before_text = "TEXT-BEFORE-ALTERNANT",
-- }
-- i.e. it is like what is returned by parse_alternant() but has an extra `before_text` field.
local function parse_alternant_multiword_spec(text, is_adj)
	local alternant_multiword_spec = {alternant_or_word_specs = {}}
	local alternant_segments = m_string_utilities.capturing_split(text, "(%(%(.-%)%))")
	local last_post_text
	for i = 1, #alternant_segments do
		if i % 2 == 1 then
			local segments = iut.parse_balanced_segment_run(alternant_segments[i], "<", ">")
			local multiword_spec = parse_multiword_spec(segments, is_adj)
			for _, word_spec in ipairs(multiword_spec.word_specs) do
				table.insert(alternant_multiword_spec.alternant_or_word_specs, word_spec)
			end
			last_post_text = multiword_spec.post_text
		else
			local alternant_spec = parse_alternant(alternant_segments[i], is_adj)
			alternant_spec.before_text = last_post_text
			table.insert(alternant_multiword_spec.alternant_or_word_specs, alternant_spec)
		end
	end
	alternant_multiword_spec.post_text = last_post_text
	return alternant_multiword_spec
end


local function map_word_specs(alternant_multiword_spec, fun)
	for _, alternant_or_word_spec in ipairs(alternant_multiword_spec.alternant_or_word_specs) do
		if alternant_or_word_spec.alternants then
			for _, multiword_spec in ipairs(alternant_or_word_spec.alternants) do
				for _, word_spec in ipairs(multiword_spec.word_specs) do
					fun(word_spec)
				end
			end
		else
			fun(alternant_or_word_spec)
		end
	end
end


-- Check that multisyllabic lemmas have stress, and add stress to monosyllabic
-- lemmas if needed.
local function check_lemma_stress(alternant_multiword_spec)
	map_word_specs(alternant_multiword_spec, function(word_spec)
		word_spec.lemma = com.add_monosyllabic_stress(word_spec.lemma)
		if not rfind(word_spec.lemma, AC) then
			error("Multisyllabic lemma '" .. word_spec.lemma .. "' needs an accent")
		end
	end)
end


-- Construct the "reduced" version of a stem. This removes an е or ъ followed by a word-final
-- consonant, stresses the final syllable of the result if necessary, and converts бое́ц into бо́йц- and бо́як into бо́йк-.
-- An error is thrown if the stem can't be reduced.
local function reduce_stem(stem)
	local vowel_ending_stem, final_cons = rmatch(stem, "^(.*" .. com.vowel_c .. AC .. "?)[ея]́?(" .. com.cons_c .. ")$")
	if vowel_ending_stem then
		-- бое́ц etc.
		return com.maybe_stress_final_syllable(vowel_ending_stem .. "й" .. final_cons)
	end
	local initial_stem, final_cons = rmatch(stem, "^(.*)[еъ]́?(" .. com.cons_c .. ")$")
	if initial_stem then
		return com.maybe_stress_final_syllable(initial_stem .. final_cons)
	end
	error("Unable to reduce stem: '" .. stem .. "'")
end


-- Return the stem of a given noun. This removes any endings -а/-я/-е/-о/-й, and if
-- the result lacks an accent, it is added onto the last syllable.
local function get_noun_stem(lemma)
	local stem
	stem = rmatch(lemma, "^(.*)[аеоя]́?$")
	if stem then
		return com.maybe_stress_final_syllable(stem)
	end
	stem = rmatch(lemma, "^(%u.*)и́?$")
	if stem then
		-- proper names like До́бри
		return com.maybe_stress_final_syllable(stem)
	end
	stem = rmatch(lemma, "^(.*)й$")
	if stem then
		return stem
	end
	return lemma
end


-- Return the stem of a given adjective. This does the following:
-- (1) removes an ending -и, and if the result lacks an accent, it is added onto the last syllable;
-- (2) if (ър) was given, converts -ъ́р- to -ръ́- and vice-versa;
-- (3) if (я) was given, converts -е́- to -я́-;
-- (4) reduces the stem if appropriate.
local function get_adj_stem(lemma, accent_and_form_spec, as_noun)
	local accent_spec = accent_and_form_spec.accent_spec
	if as_noun and (accent_and_form_spec.n == "pl" or accent_spec.gender ~= "m") then
		-- If we're dealing with a feminine singular, neuter singular or plural adjectival noun form,
		-- we need to remove the ending to get the stem. No need to do any further frobbing, as the
		-- resulting stem will be used for all forms.
		local stem = rsub(lemma, "[аяеои]́?$", "")
		return com.maybe_stress_final_syllable(stem)
	end
	local stem = rmatch(lemma, "^(.*)и́?$")
	if stem then
		stem = com.maybe_stress_final_syllable(stem)
	else
		stem = rmatch(lemma, "^(.*)й$") or lemma
	end
	if accent_spec.ur then
		if rfind(stem, "ъ́р") then
			stem = rsub(stem, "ъ́р", "ръ́")
		elseif rfind(stem, "ръ́") then
			stem = rsub(stem, "ръ́", "ъ́р")
		else
			error("Indicator (ър) specified but stem doesn't contain -ъ́р- or -ръ́-")
		end
	elseif accent_spec.ya then
		if rfind(stem, "е́") then
			stem = rsub(stem, "е́", "я́")
		elseif not rfind(stem, "я́") then
			error("Indicator (я) specified but stem doesn't contain -я́- or -е́-")
		end
	end
	if accent_spec.reducible then
		return reduce_stem(stem)
	else
		return stem
	end
end


-- Construct all the stems needed for declining an adjective. This does the following:
-- (1) adds stress to a monosyllabic lemma if needed;
-- (2) throws an error if a multisyllabic lemma is given without any stress;
-- (3) constructs the stem of each accent_spec using get_adj_stem().
local function construct_adj_stems(alternant_multiword_spec)
	map_word_specs(alternant_multiword_spec, function(word_spec)
		for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
			local accent_spec = accent_and_form_spec.accent_spec
			accent_spec.stem = get_adj_stem(word_spec.lemma, accent_and_form_spec)
		end
	end)
end


-- Construct all the stems needed for declining a noun. This does the following:
-- (1) constructs the stem using get_noun_stem();
-- (2) constructs the reduced stem using reduce_stem(), if needed.
-- We don't construct the reduced stem unless the user gave a reduction spec somewhere;
-- otherwise we'll get an error on non-reducible stems.
local function construct_noun_stems(alternant_multiword_spec)
	map_word_specs(alternant_multiword_spec, function(word_spec)
		word_spec.stem = get_noun_stem(word_spec.lemma)
		local needs_reduced_stem = false
		for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
			local accent_spec = accent_and_form_spec.accent_spec
			if accent_spec.is_adj then
				accent_spec.stem = get_adj_stem(word_spec.lemma, accent_and_form_spec, "as noun")
			elseif accent_spec.reducible or accent_spec.reducible_definite or accent_spec.reducible_count or
				accent_spec.reducible_vocative then
				needs_reduced_stem = true
				break
			end
		end
		if needs_reduced_stem then
			word_spec.reduced_stem = reduce_stem(word_spec.stem)
		end
	end)
end


-- Concatenate a stem and an ending. If the ending has an accent, any accent on the stem is removed.
-- If UR is specified, convert the sequence CръC to CърC, preserving any accent on -ъ-.
local function combine_stem_and_ending(stem, ending, accent_spec, is_adj)
	if not is_adj and accent_spec.ur and rfind(ending, "^" .. com.vowel_c) then
		stem = rsub(stem, "(" .. com.cons_c .. ")ръ(" .. AC .. "?)(" .. com.cons_c .. ")", "%1ъ%2р%3")
	end
	if not accent_spec.no_ya and (rfind(ending, AC) or (accent_spec.ya and rfind(ending, "^[еиь]"))) then
		stem = rsub(stem, "я́", "е́")
	end
	if rfind(ending, AC) then
		stem = rsub(stem, AC, "")
	end
	return stem .. ending
end


-- Given an adjective and an accent-and-form spec (an element of the list returned by parse_accent_and_form_specs()),
-- do any autodetection of gender, accent and indicators. This modifies the accent-and-form spec in place.
local function detect_adj_accent_and_form_spec(lemma, accent_and_form_spec)
	local accent_spec = accent_and_form_spec.accent_spec
	-- Detect accent if not specified.
	if #accent_spec.accents == 0 then
		local accent
		if rfind(lemma, "и́$") then
			accent = "b"
		elseif accent_spec.reducible and rfind(lemma, "[ъяе]́" .. com.cons_c .. "$") then
			-- Reducible adjective and accent on reducible vowel, e.g. добъ́р -> fem добра́
			accent = "b"
		else
			accent = "a"
		end
		table.insert(accent_spec.accents, accent)
	end
	-- Detect soft-sign indicator.
	local accent_spec = accent_and_form_spec.accent_spec
	if rfind(lemma, "и́?$") and accent_spec.soft_sign then
		accent_spec.soft_sign_i = true
	end
	if rfind(lemma, "й$") then
		-- мой, твой, etc.
		accent_spec.soft_sign = true
		accent_spec.soft_sign_i = true
	end
end


-- Given a noun and an accent-and-form spec (an element of the list returned by parse_accent_and_form_specs()),
-- do any autodetection of gender, accent and indicators. This modifies the accent-and-form spec in place.
local function detect_noun_accent_and_form_spec(lemma, accent_and_form_spec)
	local accent_spec = accent_and_form_spec.accent_spec
	if accent_spec.is_adj then
		-- Detect gender if not specified.
		if rfind(lemma, "[ая]́?$") then
			g = "f"
		elseif rfind(lemma, "[ео]́?$") then
			g = "n"
		else
			g = "m"
		end
		accent_spec.gender = g
		-- Detect has-vocative indicator.
		if accent_spec.human or accent_and_form_spec.voc_sg or accent_and_form_spec.voc_pl then
			accent_spec.has_vocative = true
		end
		-- Detect has-count indicator.
		if accent_and_form_spec.count then
			accent_spec.has_count = true
		end
		detect_adj_accent_and_form_spec(lemma, accent_and_form_spec)
	else
		-- Detect gender if not specified.
		local g = accent_spec.gender
		if not g then
			if rfind(lemma, "[ая]́?$") then
				g = "f"
			elseif rfind(lemma, "^%u.*и́?$") then
				-- proper names like До́бри
				g = "m"
			elseif rfind(lemma, "[еиоую]́?$") then
				g = "n"
			else
				g = "m"
			end
			accent_spec.gender = g
		end
		-- Detect accent if not specified.
		if #accent_spec.accents == 0 then
			local accent
			if g == "f" and rfind(lemma, com.cons_c .. "$") then
				accent = "d"
			elseif accent_spec.reducible and rfind(lemma, "[ъе]́" .. com.cons_c .. "$") then
				-- Reducible noun and accent on reducible vowel, e.g. чуждене́ц -> чужденци́
				accent = "c"
			elseif rfind(lemma, "[еоая]́$") then
				accent = "c"
			else
				accent = "a"
			end
			table.insert(accent_spec.accents, accent)
		end
		-- Detect soft-sign indicator.
		if g == "m" and not accent_spec.no_soft_sign and (
			rfind(lemma, "й$") or rfind(lemma, com.vowel_c .. AC .. "?тел$") or rfind(lemma, com.vowel_c .. AC .. "?" .. com.cons_c .. "+а́?р$")
		) then
			accent_spec.soft_sign = true
		end
		-- Detect plural if not specified.
		if #accent_spec.plurals == 0 then
			local plural
			if g == "f" then
				plural = "и"
			elseif g == "m" then
				if rfind(lemma, "^%u") then
					if rfind(lemma, "[ияй]́?$") then
						-- До́бри, Или́я, Благо́й
						plural = "евци"
					elseif rfind(lemma, "[ое]́?в$") then
						-- Ива́нов/Ивано́в, Пе́нчев
						plural = {"и", "ци"}
					else
						-- Пе́тър, Ива́н, Кру́м, Нико́ла
						plural = "овци"
					end
				elseif rfind(lemma, "о́?$") then
					-- дя́до, гле́зльо
					plural = "овци"
				elseif rfind(lemma, "е́?$") then
					-- аташе́
					plural = "ета"
				elseif not com.is_monosyllabic(lemma) then
					-- ези́к, друга́р, геро́й, etc.; баща́, коле́га
					plural = "и"
				elseif rfind(lemma, "й$") then
					-- край, брой
					plural = "еве"
				elseif accent_spec.soft_sign then
					-- кон, зет, цар
					plural = "ьове"
				else
					plural = "ове"
				end
			elseif rfind(lemma, "о́?$") or rfind(lemma, "[щц]е́?$") then
				plural = "а"
			elseif rfind(lemma, "и́?е$") then
				plural = "я"
			elseif rfind(lemma, "ане$") then
				-- ди́шане, схва́щане, пъту́ване, присти́гане, etc.
				plural = "ия"
			elseif rfind(lemma, "е́?$") then
				plural = "ета"
			else
				plural = "та"
			end
			if type(plural) == "table" then
				for _, p in ipairs(plural) do
					table.insert(accent_spec.plurals, {plural=p})
				end
			else
				table.insert(accent_spec.plurals, {plural=plural})
			end
		end
		-- Detect has-vocative indicator.
		if accent_and_form_spec.voc then
			-- If explicit override for vocative, we have a vocative regardless.
			accent_spec.has_vocative = true
		elseif accent_spec.gender == "n" then
			-- Otherwise if neuter, no vocative even if (v) or (h) is used.
			accent_spec.has_vocative = false
		elseif accent_spec.gender == "f" and rfind(lemma, com.cons_c .. "$") then
			-- Otherwise if feminine and ending in a consonant, no vocative even if (v) or (h) is used.
			accent_spec.has_vocative = false
		elseif accent_spec.reducible_vocative or accent_spec.human then
			-- Otherwise, respect (v*) and (h). Note that (v) already sets has_vocative = true.
			accent_spec.has_vocative = true
		end
		-- Detect reducible indicators.
		if g == "m" and rfind(lemma, com.vowel_c .. AC .. "?зъм$") then
			accent_spec.reducible = true
			accent_spec.reducible_definite = true
			if accent_spec.has_vocative then
				accent_spec.reducible_vocative = true
			end
		end
		-- Detect no-def-sg indicator.
		if rfind(lemma, "^%u") and not accent_and_form_spec.def then
			accent_and_form_spec["-def"] = true
		end
		-- Detect no-count indicator.
		if accent_spec.human and not accent_and_form_spec.count then
			accent_and_form_spec["-count"] = true
		end
		-- Detect has-count indicator.
		-- (1) Yes if an explicit count override is given.
		accent_spec.has_count = accent_and_form_spec.count or (
			-- Otherwise:
			-- (2) No if -count is explicitly given.
			not accent_and_form_spec["-count"] and
			-- (3) Only masculine nouns ending in a consonant normally have a count form.
			accent_spec.gender == "m" and
			rfind(lemma, com.cons_c .. "$")
		)
	end
end


-- Call detect_adj_accent_and_form_spec() on all accent-and-form specs in ALTERNANT_MULTIWORD_SPEC.
local function detect_all_adj_accent_and_form_specs(alternant_multiword_spec)
	map_word_specs(alternant_multiword_spec, function(word_spec)
		for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
			detect_adj_accent_and_form_spec(word_spec.lemma, accent_and_form_spec)
		end
	end)
end


-- Call detect_noun_accent_and_form_spec() on all accent-and-form specs in ALTERNANT_MULTIWORD_SPEC.
local function detect_all_noun_accent_and_form_specs(alternant_multiword_spec)
	map_word_specs(alternant_multiword_spec, function(word_spec)
		for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
			detect_noun_accent_and_form_spec(word_spec.lemma, accent_and_form_spec)
		end
	end)
end


local function init_active_adj_slots()
	local active_slots = {}
	return active_slots
end


local function set_active_adj_slots(active_slots, accent_and_form_spec)
	if accent_and_form_spec.koj then
		active_slots.nom_m_sg = true
		active_slots.acc_m_sg = true
		active_slots.dat_m_sg = true
		active_slots.f_sg = true
		active_slots.n_sg = true
		active_slots.pl = true
	elseif accent_and_form_spec.chij then
		active_slots.m_sg = true
		active_slots.f_sg = true
		active_slots.n_sg = true
		active_slots.pl = true
	elseif accent_and_form_spec.dva then
		active_slots.ind_m_pl = true
		active_slots.def_m_pl = true
		active_slots.ind_fn_pl = true
		active_slots.def_fn_pl = true
	else
		active_slots.ind_m_sg = true
		active_slots.def_sub_m_sg = true
		active_slots.def_obj_m_sg = true
		active_slots.ind_f_sg = true
		active_slots.def_f_sg = true
		active_slots.ind_n_sg = true
		active_slots.def_n_sg = true
		active_slots.ind_pl = true
		active_slots.def_pl = true
		if not accent_and_form_spec.accent_spec.nocomp then
			active_slots.comp = true
		end
	end
	if accent_and_form_spec["-voc"] then
		active_slots.no_voc = true
	end
	if accent_and_form_spec.short then
		active_slots.short = true
	end
end


-- Determine overall active adjective slots.
local function compute_overall_active_adj_slots(alternant_multiword_spec)
	local active_slots = init_active_adj_slots()
	map_word_specs(alternant_multiword_spec, function(word_spec)
		for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
			set_active_adj_slots(active_slots, accent_and_form_spec)
		end
	end)
	if not active_slots.no_voc then
		active_slots.voc_m_sg = true
	end
	return active_slots
end


local function init_active_noun_slots()
	local active_slots = {}
	-- Set the always-active slots.
	active_slots.ind_sg = true
	return active_slots
end


local function set_active_noun_slots(active_slots, accent_and_form_spec)
	-- NOTE: We currently treat singular and plural as always active, and
	-- separately calculate the overall number, which is passed into places
	-- like make_noun_table() to determine which slots to actually use.

	-- The calculations to determine whether there's a vocative and/or a count
	-- form were done in detect_noun_accent_and_form_spec().
	if accent_and_form_spec.accent_spec.has_vocative then
		active_slots.voc_sg = true
		active_slots.voc_pl = true
	end
	if accent_and_form_spec.accent_spec.has_count then
		active_slots.count = true
	end
	for _, case in ipairs(extra_noun_cases) do
		-- Adjectival noun overrides currently use acc_sg, gen_sg, dat_sg,
		-- while regular noun overrides just use acc, gen, dat.
		if accent_and_form_spec[case] or accent_and_form_spec[case .. "_sg"] then
			active_slots[case .. "_sg"] = true
		end
		if accent_and_form_spec[case .. "_pl"] then
			active_slots[case .. "_pl"] = true
		end
	end
	if accent_and_form_spec["-def"] then
		active_slots.no_def = true
	end
	if accent_and_form_spec["-pl"] then
		active_slots.no_pl = true
	end
	if accent_and_form_spec["-def_pl"] then
		active_slots.no_def_pl = true
	end
	if accent_and_form_spec.n then
		if not active_slots.n then
			active_slots.n = accent_and_form_spec.n
		elseif active_slots.n ~= accent_and_form_spec.n then
			active_slots.n = "both"
		end
	end
end


local function convert_active_noun_slots_to_active_adj_slots(active_noun_slots)
	local active_adj_slots = init_active_adj_slots()
	if active_noun_slots.voc_sg then
		active_adj_slots.voc_m_sg = true
	end
	return active_adj_slots
end


-- Determine overall active noun slots.
local function compute_overall_active_noun_slots(alternant_multiword_spec)
	local active_slots = init_active_noun_slots()
	map_word_specs(alternant_multiword_spec, function(word_spec)
		for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
			set_active_noun_slots(active_slots, accent_and_form_spec)
		end
	end)
	if not active_slots.no_def then
		active_slots.def_sub_sg = true
		active_slots.def_obj_sg = true
	end
	if not active_slots.no_pl then
		active_slots.ind_pl = true
		if not active_slots.no_def_pl then
			active_slots.def_pl = true
		end
	end
	return active_slots
end


-- Construct the plural of the lemma specified in WORD_SPEC, given the accent spec
-- (as returned by parse_noun_accent_spec()), the plural ending (e.g. "ове"), and the accent indicator
-- (e.g. "a" or "d"). Return value is a string. This handles accenting the plural ending as necessary,
-- fetching the reduced stem if appropriate, removing final -ин if called for, and applying the
-- second palatalization if appropriate (e.g. ези́к -> ези́ци).
local function generate_noun_plural(word_spec, accent_spec, plural, accent)
	local ending = plural.plural
	if accent == "b" or accent == "c" then
		if accent == "b" and (ending == "ове" or ending == "ьове" or ending == "йове" or ending == "еве") or
			ending == "еса" or ending == "ена" then
			ending = ending .. AC
		else
			-- for any other plurals, put the stress on the first vowel if a stress isn't already present
			ending = com.maybe_stress_initial_syllable(ending)
		end
	end

	local stem = accent_spec.reducible and word_spec.reduced_stem or word_spec.stem
	
	if accent_spec.remove_in then
		local new_stem, removed = rsubb(stem, "и́?н$", "")
		if not removed then
			error("(ин) specified but stem '" .. stem .. "' doesn't end in -ин")
		end
		stem = com.maybe_stress_final_syllable(new_stem)
	end

	if not plural.double_plus and not rfind(word_spec.lemma, "нг$") and (
		-- ези́к -> ези́ци
		rfind(ending, "^и́?$") and rfind(word_spec.lemma, "[кгх]$") or
		-- ръка́ -> ръце́
		rfind(ending, "^е́?$") and rfind(word_spec.lemma, "[кгх]а́?$")
	) then
		local initial, last_cons = rmatch(stem, "^(.*)([кгх])$")
		if initial then
			return combine_stem_and_ending(initial .. com.second_palatalization[last_cons], ending, accent_spec)
		end
	end

	return combine_stem_and_ending(stem, ending, accent_spec)
end


-- Construct the definite singular of the lemma specified in WORD_SPEC, given the accent spec
-- (as returned by parse_noun_accent_spec()) and the accent indicator (e.g. "a" or "d").
-- Return value is a string. This handles determining the appropriate ending (handling the
-- soft sign spec (ь) as needed), accenting the ending as necessary, and fetching the
-- reduced stem if appropriate.
local function generate_noun_definite_singular(word_spec, accent_spec, accent)
	local function stressed_ending()
		return accent == "b" or accent == "d"
	end
	if accent_spec.gender == "m" then
		if rfind(word_spec.lemma, "[ая]́?$") then
			return word_spec.lemma .. "та"
		elseif rfind(word_spec.lemma, "[ео]́?$") then
			return word_spec.lemma .. "то"
		else
			local ending
			if accent_spec.soft_sign then
				ending = stressed_ending() and "я́т" or "ят"
			elseif stressed_ending() then
				ending = "ъ́т"
			else
				ending = "ът"
			end
			local stem = accent_spec.reducible_definite and word_spec.reduced_stem or word_spec.stem
			return combine_stem_and_ending(stem, ending, accent_spec)
		end
	elseif accent_spec.gender == "f" then
		return combine_stem_and_ending(word_spec.lemma, stressed_ending() and "та́" or "та", accent_spec)
	else
		return combine_stem_and_ending(word_spec.lemma, "то", accent_spec)
	end
end
	

-- Construct the definite objective singular given the definite subjective singular form.
local function generate_noun_definite_objective_singular(def_sg)
	local stem, ending = rmatch(def_sg, "^(.*)(ъ́?т)$") 
	if stem then
		return stem .. (ending == "ъ́т" and "а́" or "а")
	end
	stem = rmatch(def_sg, "^(.*я́?)т$") 
	if stem then
		return stem
	end
	if rfind(def_sg, "т[ао]́?$") then
		return def_sg
	end
	error("Unrecognized ending for definite subjective singular: '" .. def_sg .. "'")
end


-- Construct the definite plural given the indefinite plural form.
local function generate_noun_definite_plural(plural_form)
	if rfind(plural_form, "[еи]́?$") then
		return plural_form .. "те"
	else
		return plural_form .. "та"
	end
end


-- Construct the count form of the lemma specified in WORD_SPEC, given the accent spec
-- (as returned by parse_noun_accent_spec()). Return value is a string, or nil if no count
-- form can be constructed (not a masculine lemma ending in a consonant). This handles
-- determining the appropriate ending (handling the soft sign spec (ь) as needed) and
-- fetching the reduced stem if appropriate.
local function generate_noun_count_form(word_spec, accent_spec)
	if accent_spec.gender ~= "m" or not rfind(word_spec.lemma, com.cons_c .. "$") then
		return nil
	end
	local stem = accent_spec.reducible_count and word_spec.reduced_stem or word_spec.stem
	if accent_spec.soft_sign then
		return combine_stem_and_ending(stem, "я", accent_spec)
	else
		return combine_stem_and_ending(stem, "а", accent_spec)
	end
end


-- Construct the vocative of the lemma specified in WORD_SPEC, given the accent spec
-- (as returned by parse_noun_accent_spec()). Return value is a string, or nil if no vocative
-- form can be constructed. This applies the rules described in [[w:Bulgarian nouns]].
local function generate_noun_vocative(word_spec, accent_spec)
	if accent_spec.gender == "n" or not accent_spec.has_vocative then
		return nil
	end
	local lemma = word_spec.lemma
	if accent_spec.gender == "f" and rfind(lemma, com.cons_c .. "$") then
		return nil
	end
	local stem = accent_spec.reducible_vocative and word_spec.reduced_stem or word_spec.stem
	local ending
	if accent_spec.soft_sign then
		ending = "ю"
	elseif rfind(lemma, com.vowel_c .. AC .. "?я́?$") then
		ending = "йо"
	elseif rfind(lemma, "я́?$") then
		ending = "ьо"
	elseif rfind(lemma, "ца́?$") or rfind(lemma, "[рч]ка́?$") or rfind(lemma, "^%u.*ка́?$") then
		ending = "е"
	elseif rfind(lemma, "а́?$") or rfind(lemma, "[кчцх]$") or rfind(lemma, "и́?н$") then
		ending = "о"
	elseif rfind(lemma, "[гз]$") then
		return combine_stem_and_ending(rsub(stem, "[гз]$", "ж"), "е", accent_spec)
	else
		ending = "е"
	end
	return combine_stem_and_ending(stem, ending, accent_spec)
end


-- Construct the indefinite adjective forms.
local function generate_indefinite_adj_forms(formtable, accent_spec, accent, active_slots)
	local stem = accent_spec.stem
	local accent = accent == "b" and AC or ""
	iut.insert_form(formtable, "ind_f_sg",
		{form=combine_stem_and_ending(stem, (accent_spec.soft_sign and "я" or "а") .. accent, accent_spec, "is adj")})
	if accent_spec.ch then
		iut.insert_form(formtable, "ind_n_sg",
			{form=combine_stem_and_ending(stem, "е" .. accent, accent_spec, "is adj")})
		iut.insert_form(formtable, "ind_n_sg",
			{form=combine_stem_and_ending(stem, "о" .. accent, accent_spec, "is adj")})
	else
		iut.insert_form(formtable, "ind_n_sg",
			{form=combine_stem_and_ending(stem,
				((accent_spec.che or accent_spec.soft_sign_i) and "е" or accent_spec.soft_sign and "ьо" or "о") .. accent,
				accent_spec, "is adj")})
	end
	local ind_pl = combine_stem_and_ending(stem, "и" .. accent, accent_spec, "is adj")
	iut.insert_form(formtable, "ind_pl", {form=ind_pl})
	if active_slots.voc_m_sg then
		iut.insert_form(formtable, "voc_m_sg", {form=ind_pl})
		iut.insert_form(formtable, "voc_m_sg", {form=ind_pl .. "й"})
	end
end


-- Construct the definite adjective forms based on the indefinite ones.
local function generate_definite_adj_forms(formtable, include_definite)
	if include_definite then
		iut.insert_forms(formtable, "def_sub_m_sg", iut.map_forms(formtable["ind_pl"],
			function(form) return form .. "ят" end))
		iut.insert_forms(formtable, "def_obj_m_sg", iut.map_forms(formtable["ind_pl"],
			function(form) return form .. "я" end))
		iut.insert_forms(formtable, "def_f_sg", iut.map_forms(formtable["ind_f_sg"],
			function(form) return form .. "та" end))
		iut.insert_forms(formtable, "def_n_sg", iut.map_forms(formtable["ind_n_sg"],
			function(form) return form .. "то" end))
		iut.insert_forms(formtable, "def_pl", iut.map_forms(formtable["ind_pl"],
			function(form) return form .. "те" end))
	else
		iut.insert_forms(formtable, "def_sub_m_sg", formtable["ind_m_sg"])
		iut.insert_forms(formtable, "def_obj_m_sg", formtable["ind_m_sg"])
		iut.insert_forms(formtable, "def_f_sg", formtable["ind_f_sg"])
		iut.insert_forms(formtable, "def_n_sg", formtable["ind_n_sg"])
		iut.insert_forms(formtable, "def_pl", formtable["ind_pl"])
	end
end


-- Handle a list of overriding forms (e.g. the forms specified by "/pl:мо́мце:момци́[a][collective]").
-- FORMS is the list of default forms generated according to the accent spec, and OVERRIDING_FORMS
-- is the list of overriding forms. Both of them are lists of objects of the form
-- {form=FORM, footnotes=FOOTNOTES}. Return the same sort of list. If there are no overriding
-- forms (OVERRIDING_FORMS is nil), the list in FORMS will be returned directly; otherwise a new
-- list of forms will be constructed from OVERRIDING_FORMS. If an element of OVERRIDING_FORMS has
-- the value "+", the forms in FORMS are inserted in its place. LEMMA and STEM are used in handling
-- forms in OVERRIDING_FORMS containing ~ or ~~ in them, replaced respectively lemma and stem.
-- FORMS may be a string such as "dat" or "gen", specifying the name of the overriding form. This
-- indicates that there are no default forms for this slot, and any use of "+" in OVERRIDING_FORMS
-- will cause an error (where the string is inserted into the error message).
local function handle_overriding_forms(lemma, stem, forms, overriding_forms)
	if not overriding_forms then
		if type(forms) == "table" then
			return forms
		else
			return nil
		end
	else
		local retforms = {}
		for _, overriding_spec in ipairs(overriding_forms) do
			local form = overriding_spec.value
			if form == "+" then
				if type(forms) == "string" then
					error("'/" .. forms .. "+' not supported, no default value")
				end
				for _, f in ipairs(forms) do
					iut.insert_form_into_list(retforms, {form=f.form, footnotes=overriding_spec.footnotes})
				end
			else
				form = rsub(form, "~~", stem)
				form = rsub(form, "~", lemma)
				iut.insert_form_into_list(retforms, {form=form, footnotes=overriding_spec.footnotes})
			end
		end
		return retforms
	end
end


-- Decline a single adjective term in WORD_SPEC (an object as returned by parse_simplified_specification())
-- corresponding to the accent-and-form spec in `accent_and_form_spec` (see parse_noun_accent_and_form_specs()).
-- This sets the form values in `WORD_SPEC.forms` (and `WORD_SPEC.compforms` and `WORD_SPEC.supforms`
-- if the adjective has comparative forms) for all slots. (If a given slot has no values,
-- it will not be present in `WORD_SPEC.forms`.) If `as_noun` is true, we're declining an adjectival noun
-- rather than an adjective as such.
local function decline_one_adj(word_spec, accent_and_form_spec, active_slots, active_noun_slots, include_definite)
	local accent_spec = accent_and_form_spec.accent_spec
	local lemma = word_spec.lemma
	local stem = accent_spec.stem
	local formtable = {[
		accent_and_form_spec.dva and "ind_m_pl" or
		accent_and_form_spec.koj and "nom_m_sg" or
		accent_and_form_spec.chij and "m_sg" or
		"ind_m_sg"
	] = {{form=lemma}}}
	for _, accent in ipairs(accent_spec.accents) do
		generate_indefinite_adj_forms(formtable, accent_spec, accent, active_slots)
	end
	generate_definite_adj_forms(formtable, include_definite)
	if active_noun_slots then
		local noun_formtable = {}
		local function copy_forms(forms_to_copy)
			for from_form, to_forms in pairs(forms_to_copy) do
				if type(to_forms) ~= "table" then
					to_forms = {to_forms}
				end
				for _, to_form in ipairs(to_forms) do
					if active_noun_slots[to_form] then
						iut.insert_forms(noun_formtable, to_form, formtable[from_form])
					end
				end
			end
		end
		if active_noun_slots.n ~= "pl" then
			local forms_to_copy =
				accent_spec.gender == "m" and masc_adj_to_noun_slots or
				accent_spec.gender == "f" and fem_adj_to_noun_slots or
				neut_adj_to_noun_slots
			copy_forms(forms_to_copy)
		end
		if active_noun_slots.n ~= "sg" then
			copy_forms(pl_adj_to_noun_slots)
		end
		for slot, _ in pairs(noun_slots) do
			iut.insert_forms(word_spec.forms, slot, handle_overriding_forms(lemma, stem, noun_formtable[slot],
				accent_and_form_spec[slot]))
		end
	else
		for slot, _ in pairs(adj_slots) do
			local forms = handle_overriding_forms(lemma, stem, formtable[slot], accent_and_form_spec[slot])
			iut.insert_forms(word_spec.forms, slot, forms)
			if active_slots.comp and not accent_spec.nocomp then
				if not word_spec.compforms then
					word_spec.compforms = {}
				end
				iut.insert_forms(word_spec.compforms, slot,
					iut.map_forms(forms, function(form) return "по́-" .. form end))
				if not word_spec.supforms then
					word_spec.supforms = {}
				end
				iut.insert_forms(word_spec.supforms, slot,
					iut.map_forms(forms, function(form) return "на́й-" .. form end))
			end
		end
	end
end


-- Decline the adjective in WORD_SPEC (an object as returned by parse_simplified_specification()).
-- This sets the form values in `WORD_SPEC.forms` (and `WORD_SPEC.compforms` and `WORD_SPEC.supforms`
-- if the adjective has comparative forms) for all slots. (If a given slot has no values,
-- it will not be present in `WORD_SPEC.forms`.)
local function decline_adj(word_spec, active_slots, include_definite)
	for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
		decline_one_adj(word_spec, accent_and_form_spec, active_slots, nil, include_definite)
	end
end


-- Decline a single noun term in WORD_SPEC (an object as returned by parse_simplified_specification())
-- corresponding to the accent-and-form spec in `accent_and_form_spec` (see parse_noun_accent_and_form_specs()).
-- This sets the form values in `WORD_SPEC.forms` for all slots. (If a given slot has no values,
-- it will not be present in `WORD_SPEC.forms`.)
local function decline_one_noun(word_spec, accent_and_form_spec, active_slots, include_definite)
	local lemma = word_spec.lemma
	local stem = word_spec.stem
	if active_slots.n == "pl" then
		for _, overriding_form in ipairs(noun_overriding_forms) do
			if not overriding_form:find("_pl$") and accent_and_form_spec[overriding_form] then
				error("'/" .. overriding_form .. ":' not allowed for plurale tantum")
			end
		end

		-- Maybe set indefinite plural.
		local indefinite_plurals = {{form=lemma}}
		if active_slots.ind_pl then
			iut.insert_forms(word_spec.forms, "ind_pl",
				handle_overriding_forms(lemma, stem, indefinite_plurals, accent_and_form_spec.ind_pl))
		end

		-- Maybe set definite plural.
		if active_slots.def_pl then
			iut.insert_forms(word_spec.forms, "def_pl",
				handle_overriding_forms(lemma, stem,
					include_definite and iut.map_forms(indefinite_plurals, generate_noun_definite_plural) or indefinite_plurals,
					accent_and_form_spec.def_pl))
		end

		-- Maybe set "extra cases".
		for _, case in ipairs(extra_noun_cases) do
			local pl_slot = case .. "_pl"
			if active_slots[pl_slot] then
				iut.insert_forms(word_spec.forms, pl_slot, handle_overriding_forms(lemma, stem, indefinite_plurals, accent_and_form_spec[pl_slot]))
			end
		end
	else
		local accent_spec = accent_and_form_spec.accent_spec

		-- Always generate indefinite singulars since may be needed for the "extra cases" below.
		local indefinite_singulars = {{form = lemma}}

		-- Always generate indefinite plurals since may be needed for the "extra cases" below.
		local indefinite_plurals = {}
		for _, plspec in ipairs(accent_spec.plurals) do
			for _, accent in ipairs(accent_spec.accents) do
				iut.insert_form_into_list(indefinite_plurals,
					{form=generate_noun_plural(word_spec, accent_spec, plspec, accent), footnotes=plspec.footnotes}
				)
			end
		end
		indefinite_plurals = handle_overriding_forms(lemma, stem, indefinite_plurals, accent_and_form_spec.pl)

		-- Maybe set indefinite singular.
		if active_slots.ind_sg then
			iut.insert_forms(word_spec.forms, "ind_sg",
				handle_overriding_forms(lemma, stem, indefinite_singulars, accent_and_form_spec.ind))
		end

		-- Maybe set definite singular.
		if active_slots.def_sub_sg or active_slots.def_obj_sg then
			local definite_singulars
			if include_definite then
				definite_singulars = {}
				for _, accent in ipairs(accent_spec.accents) do
					iut.insert_form_into_list(definite_singulars,
						{form=generate_noun_definite_singular(word_spec, accent_spec, accent)}
					)
				end
			else
				definite_singulars = indefinite_singulars
			end
			definite_singulars = handle_overriding_forms(lemma, stem, definite_singulars, accent_and_form_spec.def)
			if active_slots.def_sub_sg then
				iut.insert_forms(word_spec.forms, "def_sub_sg",
					handle_overriding_forms(lemma, stem, definite_singulars, accent_and_form_spec.def_sub))
			end
			if active_slots.def_obj_sg then
				iut.insert_forms(word_spec.forms, "def_obj_sg",
					handle_overriding_forms(lemma, stem,
						include_definite and iut.map_forms(definite_singulars, generate_noun_definite_objective_singular) or
						definite_singulars,
						accent_and_form_spec.def_obj))
			end
		end

		-- Maybe set indefinite plural.
		if active_slots.ind_pl then
			iut.insert_forms(word_spec.forms, "ind_pl",
				handle_overriding_forms(lemma, stem, indefinite_plurals, accent_and_form_spec.ind_pl))
		end

		-- Maybe set definite plural.
		if active_slots.def_pl then
			iut.insert_forms(word_spec.forms, "def_pl",
				handle_overriding_forms(lemma, stem,
					include_definite and iut.map_forms(indefinite_plurals, generate_noun_definite_plural) or
					indefinite_plurals,
					accent_and_form_spec.def_pl))
		end

		-- Maybe set count.
		if active_slots.count then
			local count_forms = {}
			iut.insert_form_into_list(count_forms, {form=generate_noun_count_form(word_spec, accent_spec)})
			iut.insert_forms(word_spec.forms, "count", handle_overriding_forms(lemma, stem, count_forms, accent_and_form_spec.count))
		end

		-- Maybe set vocative singular.
		if active_slots.voc_sg then
			local vocatives = {}
			iut.insert_form_into_list(vocatives, {form=generate_noun_vocative(word_spec, accent_spec)})
			iut.insert_forms(word_spec.forms, "voc_sg", handle_overriding_forms(lemma, stem, vocatives, accent_and_form_spec.voc))
		end

		-- Maybe set vocative plural.
		if active_slots.voc_pl then
			iut.insert_forms(word_spec.forms, "voc_pl", handle_overriding_forms(lemma, stem, indefinite_plurals, accent_and_form_spec.voc_pl))
		end

		-- Maybe set "extra cases".
		for _, case in ipairs(extra_noun_cases) do
			local sg_slot = case .. "_sg"
			if active_slots[sg_slot] then
				iut.insert_forms(word_spec.forms, sg_slot, handle_overriding_forms(lemma, stem, indefinite_singulars, accent_and_form_spec[case]))
			end
			local pl_slot = case .. "_pl"
			if active_slots[pl_slot] then
				iut.insert_forms(word_spec.forms, pl_slot, handle_overriding_forms(lemma, stem, indefinite_plurals, accent_and_form_spec[pl_slot]))
			end
		end
	end
end


-- Decline the noun in WORD_SPEC (an object as returned by parse_simplified_specification()).
-- This sets the form values in `WORD_SPEC.forms` for all slots. (If a given slot has no values,
-- it will not be present in `WORD_SPEC.forms`.)
local function decline_noun(word_spec, active_slots, include_definite)
	for _, accent_and_form_spec in ipairs(word_spec.accent_and_form_specs) do
		if accent_and_form_spec.accent_spec.is_adj then
			local active_adj_slots = convert_active_noun_slots_to_active_adj_slots(active_slots)
			decline_one_adj(word_spec, accent_and_form_spec, active_adj_slots, active_slots, include_definite)
		else
			decline_one_noun(word_spec, accent_and_form_spec, active_slots, include_definite)
		end
	end
end


local decline_multiword_or_alternant_multiword_spec


-- Decline the noun or adjective alternants in ALTERNANT_SPEC (an object as returned by
-- parse_simplified_specification_allowing_alternants()). This sets the form values
-- in `ALTERNANT_SPEC.forms` for all slots. (If a given slot has no values, it will
-- not be present in `ALTERNANT_SPEC.forms`). It also sets `ALTERNANT_SPEC.forms.lemma`,
-- which is a list of strings to use as lemmas (e.g. in the title of the generated table
-- and in accelerators).
local function decline_alternants(alternant_spec, active_slots, is_adj, include_definite)
	alternant_spec.forms = {}
	if active_slots.comp then
		alternant_spec.compforms = {}
		alternant_spec.supforms = {}
	end
	local include_definite_at_end = include_definite
	for _, multiword_spec in ipairs(alternant_spec.alternants) do
		include_definite_at_end = decline_multiword_or_alternant_multiword_spec(
			multiword_spec, active_slots, is_adj, include_definite)
		for slot, _ in pairs(active_slots) do
			iut.insert_forms(alternant_spec.forms, slot, multiword_spec.forms[slot])
			if is_adj and active_slots.comp then
				iut.insert_forms(alternant_spec.compforms, slot, multiword_spec.compforms[slot])
				iut.insert_forms(alternant_spec.supforms, slot, multiword_spec.supforms[slot])
			end
		end
	end
	return include_definite_at_end
end


local function append_forms(formtable, slot, forms, before_text)
	local old_forms = formtable[slot]
	if #forms == 1 then
		-- If there's only one new form, destructively modify the existing
		-- forms and notes for this new form and its footnotes.
		local form = forms[1]
		for _, old_form in ipairs(old_forms) do
			old_form.form = old_form.form .. before_text .. form.form
			if form.footnotes and #form.footnotes > 0 then
				if not old_form.footnotes then
					old_form.footnotes = {}
				end
				for _, footnote in ipairs(form.footnotes) do
					m_table.insertIfNot(old_form.footnotes, footnote)
				end
			end
		end
	else
		-- If there are multiple new forms, we need to loop over all
		-- combinations of new and old forms. In that case, use a new table
		-- for the combined forms.
		local ret_forms = {}
		for _, old_form in ipairs(old_forms) do
			for _, form in ipairs(forms) do
				-- Do a shallow copy of the footnotes because we may modify them in-place.
				local new_form = {form=old_form.form .. before_text .. form.form,
					footnotes=m_table.shallowcopy(old_form.footnotes)}
				if form.footnotes and #form.footnotes > 0 then
					if not new_form.footnotes then
						new_form.footnotes = {}
					end
					for _, footnote in ipairs(form.footnotes) do
						m_table.insertIfNot(new_form.footnotes, footnote)
					end
				end
				table.insert(ret_forms, new_form)
			end
		end
		formtable[slot] = ret_forms
	end
end


decline_multiword_or_alternant_multiword_spec = function(multiword_spec, active_slots, is_adj, include_definite)
	multiword_spec.forms = {}
	if active_slots.comp then
		multiword_spec.compforms = {}
		multiword_spec.supforms = {}
	end
	for slot, _ in pairs(active_slots) do
		multiword_spec.forms[slot] = {{form=""}}
		if active_slots.comp then
			multiword_spec.compforms[slot] = {{form=""}}
			multiword_spec.supforms[slot] = {{form=""}}
		end
	end

	local is_alternant_multiword = not not multiword_spec.alternant_or_word_specs
	for _, word_spec in ipairs(is_alternant_multiword and multiword_spec.alternant_or_word_specs or multiword_spec.word_specs) do
		if word_spec.alternants then
			include_definite = decline_alternants(word_spec, active_slots, is_adj, include_definite)
		elseif is_adj then
			decline_adj(word_spec, active_slots, include_definite)
			include_definite = false
		else
			decline_noun(word_spec, active_slots, include_definite)
			include_definite = not word_spec.accent_and_form_specs[1].accent_spec.is_adj
		end
		for slot, _ in pairs(active_slots) do
			if word_spec.forms[slot] then
				append_forms(multiword_spec.forms, slot, word_spec.forms[slot], word_spec.before_text)
			end
			if word_spec.compforms and word_spec.compforms[slot] then
				append_forms(multiword_spec.compforms, slot, word_spec.compforms[slot], word_spec.before_text)
			end
			if word_spec.supforms and word_spec.supforms[slot] then
				append_forms(multiword_spec.supforms, slot, word_spec.supforms[slot], word_spec.before_text)
			end
		end
	end
	if multiword_spec.post_text ~= "" then
		local pseudoform = {{form=""}}
		for slot, _ in pairs(active_slots) do
			append_forms(multiword_spec.forms, slot, pseudoform, multiword_spec.post_text)
			if active_slots.comp then
				append_forms(multiword_spec.compforms, slot, pseudoform, multiword_spec.post_text)
				append_forms(multiword_spec.supforms, slot, pseudoform, multiword_spec.post_text)
			end
		end
	end

	if is_alternant_multiword then
		multiword_spec.n = active_slots.n
		local lemma_slot =
			multiword_spec.forms.ind_m_pl and "ind_m_pl" or -- два
			multiword_spec.forms.nom_m_sg and "nom_m_sg" or -- кой, то́зи, etc.
			multiword_spec.forms.m_sg and "m_sg" or -- чий, какъ́в, такъ́в, etc.
			is_adj and "ind_m_sg" or
			multiword_spec.n == "pl" and "ind_pl" or
			"ind_sg"
		multiword_spec.forms.lemma = {}
		for _, form in ipairs(multiword_spec.forms[lemma_slot]) do
			m_table.insertIfNot(multiword_spec.forms.lemma, form.form)
		end
	end

	return include_definite
end


-- Convert `ALTERNANT_MULTIWORD_SPEC.forms[SLOT]` (for ALTERNANT_MULTIWORD_SPEC as returned by
-- parse_simplified_specification_allowing_alternants()) for all slots into displayable text.
-- This also sets ALTERNANT_MULTIWORD_SPEC.combined_def_sg to true if the definite subjective and
-- objective singular forms are the same (and hence should be combined in the generated table),
-- and sets ALTERNANT_MULTIWORD_SPEC.forms.footnote to the combined string to insert as a footnote
-- (if there are no footnotes, it will be the empty string).
local function show_forms(alternant_multiword_spec, is_adj)
	local lemmas = {}
	for _, lemma in ipairs(alternant_multiword_spec.forms.lemma) do
		table.insert(lemmas, com.remove_monosyllabic_stress(lemma))
	end
	local accel_lemma = lemmas[1]
	alternant_multiword_spec.forms.lemma = table.concat(lemmas, ", ")

	local function get_slot_to_accel_form(combined_def_sg)
		return function(slot)
			local accel_form = is_adj and adj_slots[slot] or noun_slots[slot]
			-- HACK!
			if combined_def_sg and slot == "def_sub_sg" then
				accel_form = "def|s"
			end
			return accel_form
		end
	end

	local footnote_obj = com.init_footnote_obj()

	if is_adj then
		local slot_to_accel_form = get_slot_to_accel_form(false)
		com.display_forms(footnote_obj, alternant_multiword_spec.forms, alternant_multiword_spec.forms,
			adj_slots, false, accel_lemma, slot_to_accel_form)
		if alternant_multiword_spec.compforms then
			com.display_forms(footnote_obj, alternant_multiword_spec.compforms, alternant_multiword_spec.compforms,
				adj_slots, false, accel_lemma, slot_to_accel_form)
		end
		if alternant_multiword_spec.supforms then
			com.display_forms(footnote_obj, alternant_multiword_spec.supforms, alternant_multiword_spec.supforms,
				adj_slots, false, accel_lemma, slot_to_accel_form)
		end
	else
		-- For def_sub_sg and def_obj_sg, first compute "raw" (unlinked) forms so we can
		-- compare them properly; linked forms have accelerator info in them which differs
		-- between sub and obj.
		local raw_forms = {}
		com.display_forms(footnote_obj, alternant_multiword_spec.forms, raw_forms, {"def_sub_sg", "def_obj_sg"},
			"is list", accel_lemma, get_slot_to_accel_form(true), "raw")
		-- Then generate the linked forms, using a special accelerator form if the def_sub_sg and def_obj_sg are the same.
		alternant_multiword_spec.combined_def_sg = raw_forms.def_sub_sg == raw_forms.def_obj_sg
		com.display_forms(footnote_obj, alternant_multiword_spec.forms, alternant_multiword_spec.forms, noun_slots,
			false, accel_lemma, get_slot_to_accel_form(alternant_multiword_spec.combined_def_sg))
	end
	if alternant_multiword_spec.footnote then
		table.insert(footnote_obj.notes, alternant_multiword_spec.footnote)
	end
	alternant_multiword_spec.forms.footnote = table.concat(footnote_obj.notes, "<br />")
end


-- Generate the displayable table of all noun forms, given ALTERNANT_MULTIWORD_SPEC (as returned
-- by parse_alternant_multiword_spec()) where show_forms() has already been called to convert
-- `ALTERNANT_MULTIWORD_SPEC.forms` into a table of strings.
local function make_noun_table(alternant_multiword_spec)
	local num = alternant_multiword_spec.n
	local forms = alternant_multiword_spec.forms

	local table_begin = [=[
<div class="NavFrame" style="width: 50em;">
<div class="NavHead" style="background: #eff7ff;">{title}</div>
<div class="NavContent">
{\op}| border="1px solid #000000" style="border-collapse: collapse; background: #F9F9F9; width: 100%;" class="inflection-table"
! style="width: 33%; background: #d9ebff; " |
! style="font-size: 90%; background: #d9ebff;" | singular
! style="font-size: 90%; background: #d9ebff;" | plural
|-
! style="font-size:90%; background: #eff7ff;" | indefinite
| {ind_sg}
| {ind_pl}
|-
]=]

	local table_cont_def_split = [=[
! style="font-size: 90%; background: #eff7ff;" | definite<br>(subject form)
| {def_sub_sg}
| rowspan="2" | {def_pl}
|-
! style="font-size: 90%; background: #eff7ff;" | definite<br>(object form)
| {def_obj_sg}
]=]

	local table_cont_def_combined = [=[
! style="font-size: 90%; background: #eff7ff;" | definite
| {def_sub_sg}
| {def_pl}
]=]

	local table_cont_count = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | count form
| —
| {count}
]=]

	local table_cont_voc = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | vocative form
| {voc_sg}
| {voc_pl}
]=]

	local table_cont_acc = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | accusative form
| {acc_sg}
| {acc_pl}
]=]

	local table_cont_gen = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | genitive form
| {gen_sg}
| {gen_pl}
]=]

	local table_cont_dat = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | dative form
| {dat_sg}
| {dat_pl}
]=]

	local table_end = [=[
|{\cl}{notes_clause}</div></div>]=]

	local table_sg_begin = [=[
<div class="NavFrame" style="width: 30em;">
<div class="NavHead" style="background: #eff7ff;">{title}</div>
<div class="NavContent">
{\op}| border="1px solid #000000" style="border-collapse: collapse; background: #F9F9F9; width: 100%;" class="inflection-table"
! style="width: 50%; background: #d9ebff; " |
! style="font-size: 90%; background: #d9ebff;" | singular
|-
! style="font-size:90%; background: #eff7ff;" | indefinite
| {ind_sg}
|-
]=]

	local table_sg_cont_def_split = [=[
! style="font-size: 90%; background: #eff7ff;" | definite<br>(subject form)
| {def_sub_sg}
|-
! style="font-size: 90%; background: #eff7ff;" | definite<br>(object form)
| {def_obj_sg}
]=]

	local table_sg_cont_def_combined = [=[
! style="font-size: 90%; background: #eff7ff;" | definite
| {def_sub_sg}
]=]

	local table_sg_cont_voc = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | vocative form
| {voc_sg}
]=]

	local table_sg_cont_acc = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | accusative form
| {acc_sg}
]=]

	local table_sg_cont_gen = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | genitive form
| {gen_sg}
]=]

	local table_sg_cont_dat = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | dative form
| {dat_sg}
]=]

	local table_pl = [=[
<div class="NavFrame" style="width: 30em;">
<div class="NavHead" style="background: #eff7ff;">{title}</div>
<div class="NavContent">
{\op}| border="1px solid #000000" style="border-collapse: collapse; background: #F9F9F9; width: 100%;" class="inflection-table"
! style="width: 50%; background: #d9ebff; " |
! style="font-size: 90%; background: #d9ebff;" | plural
|-
! style="font-size:90%; background: #eff7ff;" | indefinite
| {ind_pl}
|-
! style="font-size: 90%; background: #eff7ff;" | definite
| {def_pl}
]=]

	local table_pl_cont_voc = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | vocative form
| {voc_pl}
]=]

	local table_pl_cont_acc = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | accusative form
| {acc_pl}
]=]

	local table_pl_cont_gen = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | genitive form
| {gen_pl}
]=]

	local table_pl_cont_dat = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | dative form
| {dat_pl}
]=]

	local table_spec
	if num == "sg" then
		table_spec = table_sg_begin ..
			(alternant_multiword_spec.combined_def_sg and table_sg_cont_def_combined or table_sg_cont_def_split) ..
			(forms.voc_sg ~= "—" and table_sg_cont_voc or "") ..
			(forms.acc_sg ~= "—" and table_sg_cont_acc or "") ..
			(forms.gen_sg ~= "—" and table_sg_cont_gen or "") ..
			(forms.dat_sg ~= "—" and table_sg_cont_dat or "") ..
			table_end
	elseif num == "pl" then
		table_spec = table_pl ..
			(forms.voc_pl ~= "—" and table_pl_cont_voc or "") ..
			(forms.acc_pl ~= "—" and table_pl_cont_acc or "") ..
			(forms.gen_pl ~= "—" and table_pl_cont_gen or "") ..
			(forms.dat_pl ~= "—" and table_pl_cont_dat or "") ..
			table_end
	else
		table_spec = table_begin ..
			(alternant_multiword_spec.combined_def_sg and table_cont_def_combined or table_cont_def_split) ..
			(forms.count ~= "—" and table_cont_count or "") ..
			((forms.voc_sg ~= "—" or forms.voc_pl ~= "—") and table_cont_voc or "") ..
			((forms.acc_sg ~= "—" or forms.acc_pl ~= "—") and table_cont_acc or "") ..
			((forms.gen_sg ~= "—" or forms.gen_pl ~= "—") and table_cont_gen or "") ..
			((forms.dat_sg ~= "—" or forms.dat_pl ~= "—") and table_cont_dat or "") ..
			table_end
	end

	local notes_template = [===[
<div style="width:100%;text-align:left;background:#d9ebff">
<div style="display:inline-block;text-align:left;padding-left:1em;padding-right:1em">
{footnote}
</div></div>
]===]

	forms.notes_clause = forms.footnote ~= "" and m_string_utilities.format(notes_template, forms) or ""
	forms.title = alternant_multiword_spec.title or "Declension of " .. forms.lemma
	return m_string_utilities.format(table_spec, forms)
end


-- Generate the displayable table of all adjective forms, given ALTERNANT_MULTIWORD_SPEC (as returned
-- by parse_alternant_multiword_spec()) where show_forms() has already been called to convert
-- `ALTERNANT_MULTIWORD_SPEC.forms` into a table of strings.
local function make_adj_table(alternant_multiword_spec)
	local forms = alternant_multiword_spec.forms
	local table_normal_koj_begin = [=[
<div class="NavFrame" style="width: 50em;">
<div class="NavHead" style="background: #eff7ff;">{title}</div>
<div class="NavContent">
{\op}| border="1px solid #000000" style="border-collapse: collapse; background: #F9F9F9; width: 100%;" class="inflection-table"
! style="width: 33%; background: #d9ebff; " |
! style="font-size: 90%; background: #d9ebff;" | masculine
! style="font-size: 90%; background: #d9ebff;" | feminine
! style="font-size: 90%; background: #d9ebff;" | neuter
! style="font-size: 90%; background: #d9ebff;" | plural
|-
]=]

	local table_cont_indef_def = [=[
! style="font-size: 90%; background: #eff7ff;" | indefinite
| {ind_m_sg}
| {ind_f_sg}
| {ind_n_sg}
| {ind_pl}
|-
! style="font-size: 90%; background: #eff7ff;" | definite<br />(subject form)
| {def_sub_m_sg}
| rowspan="2" | {def_f_sg}
| rowspan="2" | {def_n_sg}
| rowspan="2" | {def_pl}
|-
! style="font-size: 90%; background: #eff7ff;" | definite<br />(object form)
| {def_obj_m_sg}
]=]

	local table_cont_koj = [=[
! style="font-size: 90%; background: #eff7ff;" | nominative
| {nom_m_sg}
| rowspan="3" | {f_sg}
| rowspan="3" | {n_sg}
| rowspan="3" | {pl}
|-
! style="font-size: 90%; background: #eff7ff;" | accusative
| {acc_m_sg}
|-
! style="font-size: 90%; background: #eff7ff;" | dative
| {dat_m_sg}
]=]

	local table_cont_short = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | short form
| colspan="4" | {short}
]=]

	local table_cont_voc = [=[
|-
! style="font-size: 90%; background: #eff7ff;" | extended<br />(vocative form)
| {voc_m_sg}
]=]

	local table_dva_begin = [=[
<div class="NavFrame" style="width: 25em;">
<div class="NavHead" style="background: #eff7ff;">{title}</div>
<div class="NavContent">
{\op}| border="1px solid #000000" style="border-collapse: collapse; background: #F9F9F9; width: 100%;" class="inflection-table"
! style="width: 33%; background: #d9ebff; " |
! style="font-size: 90%; background: #d9ebff;" | masculine
! style="font-size: 90%; background: #d9ebff;" | feminine/<br />neuter
|-
! style="font-size: 90%; background: #eff7ff;" | indefinite
| {ind_m_pl}
| {ind_fn_pl}
|-
! style="font-size: 90%; background: #eff7ff;" | definite
| {def_m_pl}
| {def_fn_pl}
]=]

	local table_chij_begin = [=[
<div class="NavFrame" style="width: 35em;">
<div class="NavHead" style="background: #eff7ff;">{title}</div>
<div class="NavContent">
{\op}| border="1px solid #000000" style="border-collapse: collapse; background: #F9F9F9; width: 100%;" class="inflection-table"
! style="font-size: 90%; background: #d9ebff;" | masculine
! style="font-size: 90%; background: #d9ebff;" | feminine
! style="font-size: 90%; background: #d9ebff;" | neuter
! style="font-size: 90%; background: #d9ebff;" | plural
|-
| {m_sg}
| {f_sg}
| {n_sg}
| {pl}
]=]

	local table_end = [=[
|{\cl}{notes_clause}</div></div>]=]

	local notes_template = [===[
<div style="width:100%;text-align:left;background:#d9ebff">
<div style="display:inline-block;text-align:left;padding-left:1em;padding-right:1em">
{footnote}
</div></div>
]===]

	local special_title = alternant_multiword_spec.title or "Declension of " .. forms.lemma
	forms.notes_clause = forms.footnote ~= "" and m_string_utilities.format(notes_template, forms) or ""
	if forms.ind_m_pl ~= "—" then -- два
		local table_spec = table_dva_begin .. table_end
		forms.title = special_title
		return m_string_utilities.format(table_spec, forms)
	elseif forms.nom_m_sg ~= "—" then -- кой, etc.
		local table_spec = table_normal_koj_begin .. table_cont_koj .. table_end
		forms.title = special_title
		return m_string_utilities.format(table_spec, forms)
	elseif forms.m_sg ~= "—" then -- чий, etc.
		local table_spec = table_chij_begin .. table_end
		forms.title = special_title
		return m_string_utilities.format(table_spec, forms)
	else
		local table_spec = table_normal_koj_begin ..
			table_cont_indef_def ..
			(forms.short ~= "—" and table_cont_short or "") ..
			(forms.voc_m_sg ~= "—" and table_cont_voc or "") ..
			table_end
		if alternant_multiword_spec.compforms or alternant_multiword_spec.supforms then
			forms.title = alternant_multiword_spec.title or "Positive forms of " .. forms.lemma
		else
			forms.title = special_title .. " (no comparative)"
		end
		local postable = m_string_utilities.format(table_spec, forms)
		local comptable = ""
		local suptable = ""
		if alternant_multiword_spec.compforms then
			alternant_multiword_spec.compforms.notes_clause = forms.notes_clause
			alternant_multiword_spec.compforms.title = "Comparative forms of " .. forms.lemma
			comptable = m_string_utilities.format(table_spec, alternant_multiword_spec.compforms)
		end
		if alternant_multiword_spec.supforms then
			alternant_multiword_spec.supforms.notes_clause = forms.notes_clause
			alternant_multiword_spec.supforms.title = "Superlative forms of " .. forms.lemma
			suptable = m_string_utilities.format(table_spec, alternant_multiword_spec.supforms)
		end
		return postable .. comptable .. suptable
	end
end


-- Concatenate all forms of all slots into a single string of the form
-- "SLOT=FORM,FORM,...|SLOT=FORM,FORM,...|...". Embedded pipe symbols (as might occur
-- in embedded links) are converted to <!>. If INCLUDE_PROPS is given, also include
-- additional properties (currently, only "|n=NUMBER"). This is for use by bots.
local function concat_forms(alternant_multiword_spec, include_props, is_adj)
	local ins_text = {}
	local n = alternant_multiword_spec.n
	local function skip_slot(slot)
		return n == "sg" and rfind(slot, "_pl$") or n == "pl" and (slot == "count" or rfind(slot, "_sg$"))
	end
	for slot, _ in pairs(is_adj and adj_slots or noun_slots) do
		if not skip_slot(slot) then
			local formtext = com.concat_forms_in_slot(alternant_multiword_spec.forms[slot])
			if formtext then
				table.insert(ins_text, slot .. "=" .. formtext)
			end
		end
	end
	for _, slot in ipairs(is_adj and potential_adj_lemma_slots or potential_noun_lemma_slots) do
		if not skip_slot(slot) then
			slot = "linked_" .. slot
			local formtext = com.concat_forms_in_slot(alternant_multiword_spec.forms[slot])
			if formtext then
				table.insert(ins_text, slot .. "=" .. formtext)
			end
		end
	end
	if include_props then
		if is_adj then
			table.insert(ins_text, "comp=" .. (alternant_multiword_spec.comparable and "1" or "0"))
		else
			if alternant_multiword_spec.n then
				table.insert(ins_text, "n=" .. alternant_multiword_spec.n)
			end
		end
	end
	return table.concat(ins_text, "|")
end


-- Externally callable function to parse and decline a noun given user-specified arguments.
-- Return value is ALTERNANT_MULTIWORD_SPEC, an object where the declined forms are in
-- `ALTERNANT_MULTIWORD_SPEC.forms` for each slot. If there are no values for a slot, the
-- slot key will be missing. The value for a given slot is a list of objects
-- {form=FORM, footnotes=FOOTNOTES}.
function export.do_generate_noun_forms(parent_args, pos, from_headword, def, support_num_type)
	local params = {
		[1] = {required = true, default = def or "бряг<b>"},
		footnote = {},
		title = {},
	}
	if from_headword then
		params.lemma = {list = true}
		params.id = {}
		params.pos = {default = pos}
		params.cat = {list = true}
		params.indecl = {type = "boolean"}
		params.m = {list = true}
		params.f = {list = true}
		params.g = {list = true}
	end
	if support_num_type then
		params["type"] = {}
	end

	local args = m_para.process(parent_args, params)

	pos = args.pos or pos -- args.pos only set when from_headword
	
	local alternant_multiword_spec = parse_alternant_multiword_spec(args[1])
	check_lemma_stress(alternant_multiword_spec)
	detect_all_noun_accent_and_form_specs(alternant_multiword_spec)
	local active_slots = compute_overall_active_noun_slots(alternant_multiword_spec)
	construct_noun_stems(alternant_multiword_spec)
	decline_multiword_or_alternant_multiword_spec(alternant_multiword_spec, active_slots, false,
		"include definite")
	alternant_multiword_spec.forms.lemma = args.lemma and #args.lemma > 0 and args.lemma or alternant_multiword_spec.forms.lemma
	alternant_multiword_spec.title = args.title
	return alternant_multiword_spec
end


-- Externally callable function to parse and decline an adjective given user-specified arguments.
-- Return value is ALTERNANT_MULTIWORD_SPEC, an object where the declined forms are in
-- `ALTERNANT_MULTIWORD_SPEC.forms` for each slot. If there are no values for a slot, the slot
-- key will be missing. The value for a given slot is a list of objects
-- {form=FORM, footnotes=FOOTNOTES}.
function export.do_generate_adj_forms(parent_args, pos, from_headword, def, support_num_type)
	local params = {
		[1] = {required = true, default = def or "бял<(я)>"},
		footnote = {},
		title = {},
	}
	if from_headword then
		params.lemma = {list = true}
		params.id = {}
		params.pos = {default = pos}
		params.cat = {list = true}
		params.indecl = {type = "boolean"}
	end
	if support_num_type then
		params["type"] = {}
	end

	local args = m_para.process(parent_args, params)

	pos = args.pos or pos -- args.pos only set when from_headword
	
	local alternant_multiword_spec = parse_alternant_multiword_spec(args[1], "is adj")
	check_lemma_stress(alternant_multiword_spec)
	detect_all_adj_accent_and_form_specs(alternant_multiword_spec)
	local active_slots = compute_overall_active_adj_slots(alternant_multiword_spec)
	construct_adj_stems(alternant_multiword_spec)
	decline_multiword_or_alternant_multiword_spec(alternant_multiword_spec, active_slots, "is adj",
		"include definite")
	alternant_multiword_spec.forms.lemma = args.lemma and #args.lemma > 0 and args.lemma or alternant_multiword_spec.forms.lemma
	alternant_multiword_spec.title = args.title
	return alternant_multiword_spec
end


-- Main entry point for nouns. Template-callable function to parse and decline a noun given
-- user-specified arguments and generate a displayable table of the declined forms.
function export.show_noun(frame)
	local parent_args = frame:getParent().args
	local alternant_multiword_spec = export.do_generate_noun_forms(parent_args, "nouns")
	show_forms(alternant_multiword_spec)
	return make_noun_table(alternant_multiword_spec)
end


-- Main entry point for adjectives. Template-callable function to parse and decline an adjective given
-- user-specified arguments and generate a displayable table of the declined forms.
function export.show_adj(frame)
	local parent_args = frame:getParent().args
	local alternant_multiword_spec = export.do_generate_adj_forms(parent_args, "adjectives")
	show_forms(alternant_multiword_spec, "is adj")
	return make_adj_table(alternant_multiword_spec)
end


-- Template-callable function to parse and decline a noun given user-specified arguments and return
-- the forms as a string "SLOT=FORM,FORM,...|SLOT=FORM,FORM,...|...". Embedded pipe symbols (as might
-- occur in embedded links) are converted to <!>. If |include_props=1 is given, also include
-- additional properties (currently, only "|n=NUMBER"). This is for use by bots.
function export.generate_noun_forms(frame)
	local include_props = frame.args["include_props"]
	local parent_args = frame:getParent().args
	local alternant_multiword_spec = export.do_generate_noun_forms(parent_args, "nouns")

	return concat_forms(alternant_multiword_spec, include_props)
end


-- Template-callable function to parse and decline an adjective given user-specified arguments and return
-- the forms as a string "SLOT=FORM,FORM,...|SLOT=FORM,FORM,...|...". Embedded pipe symbols (as might
-- occur in embedded links) are converted to <!>. If |include_props=1 is given, also include
-- additional properties (currently, only "|comp=1" if comparable). This is for use by bots.
function export.generate_adj_forms(frame)
	local include_props = frame.args["include_props"]
	local parent_args = frame:getParent().args
	local alternant_multiword_spec = export.do_generate_adj_forms(parent_args, "adjectives")

	return concat_forms(alternant_multiword_spec, include_props)
end


return export