跳转到内容

模組:Pi-conj/verb

維基詞典,自由的多語言詞典
local export = {}

local links = require("Module:links")
local lang = require("Module:languages").getByCode("pi")
local m_parameters = require("Module:parameters")
local m_noun =       require("Module:pi-decl/noun")
local m_scripts =    require("Module:scripts")
local to_script =    require("Module:pi-Latn-translit").tr
local debug_outer = ''
local gsub = mw.ustring.gsub
local match = mw.ustring.match
local sub = mw.ustring.sub
local asub = string.sub   -- quicker for ASCII, but works on bytes.
local u = mw.ustring.char -- uses this for readability.
local ti = table.insert


local function dc(x) -- Use this to make marks legible.  The name 'dc' means 'drop carrier'.
	return gsub(x, "[𑀓कকකကกᨠកກ]", "") -- These are the letter ka in the 9 supported Indic scripts.
end

local endings = {
-- pa endings
	["ati"] = "ati",		["ติ"] = "ati",			["ति"] = "ati",			["তি"] = "ati",
	["တိ"] = "ati",									["ᨲᩥ"] = "ati",
	["តិ"] = "ati",			["ති"] = "ati",			["𑀢𑀺"] = "ati",  	["ຕິ"] = "ati",

	["ayati"] = "ayati",	["ยติ"] = "ayati",		["यति"] = "ayati",			["যতি"] = "ayati",
	["ယတိ"] = "ayati",		["ะยะติ"] = "ayati",		["ᨿᨲᩥ"] = "ayati",	["ຢຕິ"] = "ayati",
	["យតិ"] = "ayati",		["යති"] = "ayati",		["𑀬𑀢𑀺"] = "ayati",	["ະຢະຕິ"] = "ayati",
	["ຍຕິ"] = "ayati",		["ະຍະຕິ"] = "ayati",

	["āti"] = "āti",		["าติ"] = "āti",			[dc("काति")] = "āti",	[dc("কাতি")] = "āti",
	["ာတိ"] = "āti",		["ါတိ"] = "āti",		["ᩣᨲᩥ"] = "āti",		["ᩤᨲᩥ"] = "āti",
	[dc("កាតិ")] = "āti",	[dc("කාති")] = "āti",	[dc("𑀓𑀸𑀢𑀺")] = "āti", ["າຕິ"] = "āti",

	["eti"] = "eti",								[dc("केति")] = "eti",	[dc("কেতি")] = "eti",
	["ေတိ"] = "eti",								[dc("ᨠᩮᨲᩥ")] = "eti",
	[dc("កេតិ")] = "eti",	[dc("කෙති")] = "eti",	[dc("𑀓𑁂𑀢𑀺")] = "eti",

	["oti"] = "oti",								[dc("कोति")] = "oti",	[dc("কোতি")] = "oti",
	["ောတိ"] = "oti",		["ေါတိ"] = "oti",		["ᩮᩣᨲᩥ"] = "oti",		["ᩮᩤᨲᩥ"] = "oti",
	[dc("កោតិ")] = "oti",	[dc("කොති")] = "oti",	[dc("𑀓𑁄𑀢𑀺")] = "oti",
-- pm endings
	["ate"] = "ate",		["เต"] = "ate",			["ते"] = "ate",			["তে"] = "ate",
	["တေ"] = "ate",									["ᨲᩮ"] = "ate",
	["តេ"] = "ate",			["තෙ"] = "ate",			["𑀢𑁂"] = "ate",   ["ເຕ"] = "ate",

	["ayate"] = "ayate",	["ยเต"] = "ayate",		["यते"] = "ayate",			["যতে"] = "ayate",
	["ယတေ"] = "ayate",		["ะยะเต"] = "ayate",		["ᨿᨲᩮ"] = "ayate",	["ຢເຕ"] = "ayate",
	["យតេ"] = "ayate",		["යතෙ"] = "ayate",		["𑀬𑀢𑁂"] = "ayate",	["ະຢະເຕ"] = "ayate",
	["ຍເຕ"] = "ayate",		["ະຍະເຕ"] = "ayate",

	["āte"] = "āte",		["าเต"] = "āte",		[dc("काते")] = "āte",	[dc("কাতে")] = "āte",
	["ာတေ"] = "āte",		["ါတေ"] = "āte",		["ᩣᨲᩮ"] = "āte",		["ᩤᨲᩮ"] = "āte",
	[dc("កាតេ")] = "āte",	[dc("කාතෙ")] = "āte",	[dc("𑀓𑀸𑀢𑁂")] = "āte",  ["າເຕ"] = "āte",

	["ete"] = "ete",								[dc("केते")] = "ete",	[dc("কেতে")] = "ete",
	["ေတေ"] = "ete",								[dc("ᨠᩮᨲᩮ")] = "ete",
	[dc("កេតេ")] = "ete",	[dc("කෙතෙ")] = "ete",	[dc("𑀓𑁂𑀢𑁂")] = "ete",

	["ute"] = "ute",		[dc("กุเต")] = "ute",		[dc("कुते")] = "ute",	[dc("কুতে")] = "ute",
	[dc("ကုတေ")] = "ute",							[dc("ᨠᩩᨲᩮ")] = "ute",	
	[dc("កុតេ")] = "ute",	[dc("කුතෙ")] = "ute",	[dc("𑀓𑀼𑀢𑁂")] = "ute",  [dc("ກຸເຕ")] = "ute",
-- optative endings
	["eyya"] = "eyya",		["ยฺย"] = "eyya",		[dc("केय्य")] = "eyya",	[dc("কেয্য")] = "eyya",
	["ေယျ"] = "eyya",		["ยยะ"] = "eyya",		[dc("ᨠᩮᨿ᩠ᨿ")] = "eyya",	["ຢຢະ"] = "eyya",
	[dc("កេយ្យ")] = "eyya",	[dc("කෙය්‍ය")] = "eyya",	[dc("𑀓𑁂𑀬𑁆𑀬")] = "eyya",	["ຢ຺ຢ"] = "eyya",
	["ຍ຺ຍ"] = "eyya",		["ຍຍະ"] = "eyya",

	["ā"] = "ā",			["า"] = "ā",			[dc("का")] = "ā",	[dc("কা")] = "ā",
	["ာ"] = "ā",			["ါ"] = "ā",			["ᩣ"] = "ā",		["ᩤ"] = "ā",
	[dc("កា")] = "ā",		[dc("කා")] = "ā",		[dc("𑀓𑀸")] = "ā",    ["າ"] = "ā",

	["etha"] = "etha",		["ถ"] = "etha",			[dc("केथ")] = "etha",	[dc("কেথ")] = "etha",
	["ေထ"] = "etha",		["ถะ"] = "etha",		[dc("ᨠᩮᨳ")] = "etha",	["ຖ"] = "etha",
	[dc("កេថ")] = "etha",	[dc("කෙථ")] = "etha",	[dc("𑀓𑁂𑀣")] = "etha",	["ຖະ"] = "etha",
-- imperfect endings
	["attha"] = "attha",	["ตฺถ"] = "attha",		["त्थ"] = "attha",	["ত্থ"] = "attha",
	["တ္ထ"] = "attha",		["ᨲ᩠ᨳ"] = "attha",		["ตถะ"] = "attha",	["ຕຖະ"] = "attha",
	["ត្ថ"] = "attha",		["ත්‍ථ"] = "attha",		["𑀢𑁆𑀣"] = "attha",  ["ຕ຺ຖ"] = "attha",
	["a"] = "a",          ["ะ"] = "a",             ["ະ"] = "a", -- Only good for alphabets!
}

local aorist_endings = {
-- aorist endings.  Only active seems predictable enough.
	["i"] = "i",		[dc("กิ")] = "i",		 [dc("कि")] = "i",		 [dc("কি")] = "i",
	[dc("ကိ")] = "i",	[dc("ᨠᩥ")] = "i",
	[dc("កិ")] = "i",	[dc("කි")] = "i",		 [dc("𑀓𑀺")] = "i",	 [dc("ກິ")] = "i",

	["esi"] = "esi",		["สิ"] = "esi",		[dc("केसि")] = "esi",	[dc("কেসি")] = "esi",
	[dc("ကေသိ")] = "esi",	 [dc("ᨠᩮᩈᩥ")] = "esi",
	[dc("កេសិ")] = "esi",	[dc("කෙසි")] = "esi",	[dc("𑀓𑁂𑀲𑀺")] = "esi",   ["ສິ"] = "esi",

	["āsi"] = "āsi",		["าสิ"] = "āsi",	[dc("कासि")] = "āsi",	 [dc("কাসি")] = "āsi",
	[dc("ကာသိ")] = "āsi", [dc("ကါသိ")] = "āsi", [dc("ᨠᩣᩈᩥ")] = "āsi", [dc("ᨠᩤᩈᩥ")] = "āsi",
	[dc("កាសិ")] = "āsi",	[dc("කාසි")] = "āsi",	[dc("𑀓𑀸𑀲𑀺")] = "āsi",	[dc("ກາສິ")] = "āsi",  

	["ayi"] = "ayi",		["ยิ"] = "ayi",	["यि"] = "ayi",	 ["যি"] = "ayi",
	["ယိ"] = "ayi", ["ᨿᩥ"] = "ayi",	["ะยิ"] = "ayi",	["ະຍິ"] = "ayi",	["ະຢິ"] = "ayi",
	["យិ"] = "ayi",	["යි"] = "ayi",	["𑀬𑀺"] = "ayi",	["ຍິ"] = "ayi",	["ຢິ"] = "ayi",
}

local detectEndingFromList = function(cite3s, endings, latinise)
	if latinise then
		local cfin = cite3s		                     -- In general, this logic would need the
		cite3s = lang:transliterate(cfin, latinise)  -- trwo() function from the transliterator.
	end
	local len
	local ending
	local cons = "^[ก-ฮअक-हঅক-হက-ဢᨠ-ᩌᩔ-ᩖᩚ-ᩞក-អඅක-ෆ𑀅𑀓-𑀷ກ-ຮໜ-ໟ]"
	for len = 5, 1, -1 do
		wordEnd = sub(cite3s, -len)
		ending = endings[wordEnd]
		if not ending then
			-- Try again
		elseif wordEnd == "ติ" then
			if match(cite3s, 'เ.ติ$') then
				return "eti"
			elseif match(cite3s, 'โ.ติ$') then
				return "oti"
			elseif match(cite3s, dc('เ.กฺ.ติ$')) then
				return "eti"
			elseif match(cite3s, dc('โ.กฺ.ติ$')) then
				return "oti"
			else
				return ending
			end
		elseif wordEnd == "เต" then
			if match(cite3s, 'เ.เต$') then
				return "ete"
			elseif match(cite3s, dc('เ.กฺ.เต$')) then
				return "ete"
			else
				return ending
			end
		elseif wordEnd == "ຕິ" then
			if match(cite3s, 'ເ.ຕິ$') then
				return "eti"
			elseif match(cite3s, 'ໂ.ຕິ$') then
				return "oti"
			elseif match(cite3s, dc('ເ.ກ຺.ຕິ$')) then
				return "eti"
			elseif match(cite3s, dc('ໂ.ກ຺.ຕິ$')) then
				return "oti"
			else
				return ending
			end
		elseif wordEnd == "ເຕ" then
			if match(cite3s, 'ເ.ເຕ$') then
				return "ete"
			elseif match(cite3s, dc('ເ.ກ຺.ເຕ$')) then
				return "ete"
			else
				return ending
			end
		elseif wordEnd == "สิ" then
			if match(cite3s, 'เ.สิ$') then
				return "esi"
			elseif match(cite3s, dc('เ.กฺ.สิ$')) then
				return "esi"
			else
				-- Try again
			end
		elseif wordEnd == "ສິ" then
			if match(cite3s, 'ເ.ສິ$') then
				return "esi"
			elseif match(cite3s, dc('ເ.ກ຺.ສິ$')) then
				return "esi"
			else
				-- Try again
			end
		elseif ending == 'ayati' and len == 3 then
			if match(sub(cite3s,-4,-4), cons) then
				return ending
			else
				return "ati"
			end
		elseif ending == 'ayate' and len == 3 then
			if match(sub(cite3s,-4,-4), cons) then
				return ending
			else
				return "ate"
			end
		elseif ending == 'ayi' and len == 2 then
			if match(sub(cite3s,-3,-3), cons) then
				return ending
			else
				return "i"
			end
		else
--			if ending == "i" and not allowi then
--				ending = "ati" -- For brūti and similar
--			end
-- debug_outer = debug_outer..'\n'..cite3s..'='..ending..'\n'
			return ending
		end
	end
	if match(sub(cite3s, -1, -1), cons) then
-- debug_outer = debug_outer..'\n'..cite3s..'='.."a"..'\n'
		return "a"
	else
-- debug_outer = debug_outer..'\n'..cite3s..'='.."ati"..'\n'
		return "ati"
	end
end

export.detectEnding = function(cite3s, latinise)
	return detectEndingFromList(cite3s, endings, latinise)
end

export.detectAoristEnding = function(cite3s, latinise)
	return detectEndingFromList(cite3s, aorist_endings, latinise)
end


local active_optative = {
	{"⌫⌫⌫eyyāmi", "⌫⌫⌫eyyaṃ", "⌫⌫⌫e"}, {"⌫⌫⌫eyyāma"},
	{"⌫⌫⌫eyyāsi", "⌫⌫⌫e"},             {"⌫⌫⌫eyyātha"},
	{"⌫⌫⌫eyya",   "⌫⌫⌫e"},             {"⌫⌫⌫eyyuṃ"}
}
local active_optative_ati  = mw.clone(active_optative)
local active_optative_aati = mw.clone(active_optative)
active_optative_aati[1] = {"⌫⌫⌫eyyāmi", "⌫⌫⌫eyyaṃ"}
active_optative_aati[3] = {"⌫⌫⌫eyyāsi"}
local active_optative_eti  = mw.clone(active_optative_aati)
active_optative_eti[5] = {"⌫⌫⌫eyya"}
local active_optative_oti  = mw.clone(active_optative_eti)
local active_optative_ute  = mw.clone(active_optative_eti)
local middle_optative = {
	{"⌫⌫⌫eyyaṃ"}, {"⌫⌫⌫eyyāmhe"},
	{"⌫⌫⌫etho"},  {"⌫⌫⌫eyyavho"},
	{"⌫⌫⌫etha"},  {"⌫⌫⌫eraṃ"}
}
local middle_optative_ati  = mw.clone(middle_optative)
local middle_optative_aati = mw.clone(middle_optative)
local middle_optative_eti  = mw.clone(middle_optative)
local middle_optative_oti  = mw.clone(middle_optative)
local middle_optative_ute  = mw.clone(middle_optative)

local empty = {{}, {}, {}, {}, {}, {}}

local pattern = {
	["ati"] = {
		{"⌫⌫⌫āmi"}, {"⌫⌫⌫āma"},   {"⌫⌫si"}, {"⌫ha"},    {""}, {"⌫⌫nti"},
		mid = "ate",
		imperfect = {
			{"⌫⌫", "⌫⌫ṃ"},	{"⌫⌫mhā"},
			{"⌫⌫⌫o"},		{"⌫tha"},
			{"⌫⌫", "⌫⌫⌫ā"},	{"⌫⌫⌫u", "⌫⌫⌫ū"},
		},
		imperative = {
			{"⌫⌫⌫āmi"}, {"⌫⌫⌫āma"}, {"⌫⌫", "⌫⌫⌫āhi"}, {"⌫ha"}, {"⌫u"}, {"⌫⌫ntu"}
		},
		optative_active = active_optative_ati,
		optative_middle = middle_optative_ati,
		participle = {{"⌫⌫nt"}},
	},
	["āti"] = { 
		{"⌫⌫mi"}, {"⌫⌫ma"},   {"⌫⌫si"}, {"⌫ha"},    {""}, {"⌫⌫⌫anti"},
		mid = "āte",
		imperfect = {
			{"⌫⌫⌫a", "⌫⌫⌫aṃ"},	{"⌫⌫⌫amhā"},
			{"⌫⌫⌫o"},			{"⌫⌫⌫attha"},
			{"⌫⌫⌫a", "⌫⌫"},		{"⌫⌫⌫u", "⌫⌫⌫ū"},
		},
		imperative = {
			{"⌫⌫mi"}, {"⌫⌫ma"},  {"⌫⌫", "⌫⌫hi"}, {"⌫ha"},  {"⌫u"}, {"⌫⌫⌫antu"},
		},
		optative_active = active_optative_aati,
		optative_middle = middle_optative_aati,
		participle = {{"⌫⌫⌫ant"}},
	},
	["eti"] = {
		{"⌫⌫mi"}, {"⌫⌫ma"},   {"⌫⌫si"}, {"⌫ha"},    {""}, {"⌫⌫nti"},
		mid = nil, -- "ete",
		imperfect = empty,
		imperative = {
			{"⌫⌫mi"}, {"⌫⌫ma"},   {"⌫⌫hi"}, {"⌫ha"},    {"⌫u"}, {"⌫⌫ntu"},
		},
		optative_active = active_optative_eti,
		optative_middle = middle_optative_eti,
		participle = {{"⌫⌫nt"}},
	},
	["oti"] = {
		{"⌫⌫mi"}, {"⌫⌫ma"},   {"⌫⌫si"}, {"⌫ha"},    {""}, {"⌫⌫nti"},
		mid = "oti_ute",
		imperfect = empty,
		imperative = {
			{"⌫⌫mi"}, {"⌫⌫ma"},   {"⌫⌫hi"}, {"⌫ha"},    {"⌫u"}, {"⌫⌫ntu"},
		},
		optative_active = active_optative_oti,
		optative_middle = middle_optative_oti,
		participle = {{"⌫⌫nt"}},
	},
	["ate"] = { -- Also services "ati"
		{"⌫⌫⌫e"}, {"⌫⌫⌫āmhe"},  {"⌫⌫se"}, {"⌫⌫vhe"},  {"⌫e"}, {"⌫⌫nte", "⌫⌫re"},
		mid = "ate",
		imperfect = {
			{"⌫⌫⌫iṃ"},	{"⌫⌫⌫āmhase", "⌫⌫mhase"},
			{"⌫⌫se"},	{"⌫⌫vhaṃ"},
			{"⌫tha"},	{"⌫thuṃ"},
		},
		imperative = {
			{"⌫⌫⌫e"}, {"⌫⌫⌫āmase"},  {"⌫⌫ssu"}, {"⌫⌫vho"},  {"⌫aṃ"}, {"⌫⌫ntaṃ"},
		},
		optative_active = active_optative_ati,
		optative_middle = middle_optative_ati,
		participle = {{"⌫⌫māna"}},
	},
	["āte"] = { -- Also services "āti"
		{"⌫⌫⌫e"},	{"⌫⌫mhe"},
		{"⌫⌫se"},	{"⌫⌫⌫avhe"},
		{"⌫e"},		{"⌫⌫⌫ante", "⌫⌫re"},
		mid = "āte",
		imperfect = empty,
		optative_active = active_optative_aati,
		optative_middle = middle_optative_aati,
		participle = {{"⌫⌫⌫amāna"}},
	},
	["ete"] = { -- Also services "eti"
		{"⌫⌫⌫aye"},		{"⌫⌫⌫ayāmhe"},
		{"⌫⌫⌫ayase"},	{"⌫⌫⌫ayavhe"},
		{"⌫⌫⌫ayate"},	{"⌫⌫⌫ayante", "⌫⌫⌫ayare"},
		mid = "ete",
		imperfect = empty,
		imperative = {
			{"⌫⌫⌫aye"},		{"⌫⌫⌫ayāmase"},
			{"⌫⌫⌫ayassu"},	{"⌫⌫⌫ayavho"},
			{}, -- {"⌫⌫⌫ayataṃ", "⌫aṃ"}, -- 3s needs review
			{"⌫⌫⌫ayantaṃ"}
		},
		optative_active = active_optative_eti,
		optative_middle = middle_optative_eti,
		participle = {{"⌫⌫⌫ayamāna"}},
	},
	["ute"] = { -- Actual ending is "oti" when copied to "oti_ute".
		{"⌫⌫⌫ve"},	{"⌫⌫⌫umhe"},
		{"⌫⌫⌫use"},	{"⌫⌫⌫uvhe"},
		{"⌫⌫⌫ute"},	{"⌫⌫⌫unte", "⌫⌫⌫ure"},
		mid = "ute",
		imperfect = empty,
		imperative = {
			{"⌫⌫⌫ve"},		{"⌫⌫⌫vāmase"},
			{"⌫⌫⌫ussu"},	{"⌫⌫⌫uvho"},
			{"⌫⌫⌫utaṃ"},	{"⌫⌫⌫untaṃ"}
			-- 1s, 1pl and 3pl will often need manual repair.
		},
		optative_active = active_optative_ute,
		optative_middle = middle_optative_ute,
	},
	["eyya"] = {
		optative_active = { -- '-e' is not included!
			{"⌫āmi", "⌫aṃ"}, {"⌫āma"},
			{"⌫āsi"},        {"⌫ātha"},
			{""},           {"⌫uṃ"}
		},
		optative_middle = {
			{"ṃ"},       {"⌫āmhe"},
			{"⌫⌫⌫tho"},  {"vho"},
			{"⌫⌫⌫tha"},  {"⌫⌫⌫raṃ"}
		},
	},
	["ā"] = {
		optative_active = {
			{"mi"}, {"ma"},  {"si"}, {"tha"},  {""}, {"⌫uṃ"}
		}
	},
	["etha"] = {
		mid = "etha",
		optative_middle = {
			{"⌫⌫⌫yyaṃ"}, {"⌫⌫⌫yyāmhe"},
			{"⌫o"},      {"⌫⌫⌫yyavho"},
			{""},        {"⌫⌫⌫raṃ"}
		},
	},
	["a"] = {
		mid="a_attha",
		imperfect = {
			{"", "ṃ"},	{"mhā"},
			{"⌫o"},		{"ttha"},
			{"", "⌫ā"},	{"⌫u", "⌫ū"},
		}
	},
	["ā2"] = { -- imperfect form
		mid="ā_attha",
		imperfect = {
			{"⌫a", "⌫aṃ"},	{"⌫amhā"},
			{"⌫o"},			{"⌫attha"},
			{"⌫a", ""},		{"⌫u", "⌫ū"},
		}
	},
	["attha"] = {
		mid = "attha",
		imperfect = {
			{"⌫⌫⌫⌫⌫iṃ"}, {"⌫⌫⌫⌫⌫āmhase", "⌫⌫⌫⌫mhase"},
            {"⌫⌫⌫⌫se"}, {"⌫⌫⌫⌫vhaṃ"}, {""}, {"⌫uṃ"}
		}
	},
	["a_attha"] = {
		mid = "a_attha",
		imperfect = {
			{"⌫iṃ"}, {"⌫āmhase", "mhase"},
            {"se"}, {"vhaṃ"}, {"ttha"}, {"tthuṃ"}
		}
	},
	["ā_attha"] = {
		mid = "ā_attha",
		imperfect = {
			{"⌫iṃ"}, {"mhase", "⌫amhase"},
            {"⌫ase"}, {"⌫avhaṃ"}, {"⌫attha"}, {"⌫atthuṃ"}
		}
	},
	["i"] = {
		mid = nil,
		aorist = {{"ṃ"}, {"mha"}, {""}, {"ttha"}, {""}, {"ṃsu"}} -- 3p might be wrong too often
		-- However, -ayi seems to consistently yield -ayiṃsu rather than ayuṃ.
	},
	["esi"] = {
		mid = nil,
		aorist = {{"ṃ"}, {}, {""}, {}, {""}, {"⌫uṃ"}} -- 3p might be wrong too often
	},
	["āsi"] = { -- A common mix of sigmatic and thematic aorists!
		mid = nil,
		aorist = {{"ṃ"}, {"⌫⌫⌫amha", "⌫⌫⌫amhā"}, {""}, {"⌫⌫⌫attha"}, {""}, {"⌫⌫⌫aṃsu"}}
	},
}

-- -oti is too different from -ute in some scripts.
pattern.oti_ute = mw.clone(pattern.ute)
pattern.oti_ute.mid = "oti_ute"

pattern.ayati = mw.clone(pattern.ati)
pattern.ayati.mid = "ayate"
-- Lose some of the shorter forms.
pattern.ayati.imperative[3] = {"⌫⌫⌫āhi"}
pattern.ayati.optative_active[1] = {"⌫⌫⌫eyyāmi", "⌫⌫⌫eyyaṃ"}
pattern.ayati.optative_active[3] = {"⌫⌫⌫eyyāsi"}
pattern.ayate = mw.clone(pattern.ate)
pattern.ayate.mid = "ayate"
pattern.ayate.imperative[5] = {} -- {"⌫aṃ", "⌫⌫⌫⌫⌫etaṃ"} -- 3s needs review
pattern.ayate.optative_active = pattern.ayati.optative_active

pattern.ayi = mw.clone(pattern.i)
pattern.ayi.aorist = mw.clone(pattern.i.aorist)
pattern.ayi.aorist[6] = {"ṃsu"}

-- convert Latin script inflections to another script
-- Ⓓ deletes last preposed vowel (for Thai and Lao)
-- Ⓣ toggles last preposed vowel between 'e' and 'o' (for Thai and Lao)
local convert_suffixes = function(stem, nstrip, suffixes, sc, impl, yopt)
	local form, pre, stem_pre
	local yung, yaa
	local xlitend = {}
	local strip = string.rep("⌫", nstrip)
	local altstem, as1
	local option = {impl = impl}
	if sc == 'Thai' or sc == 'Laoo' then
		altstem = to_script(stem, sc)
		stem_pre = match(altstem, "^[เโເໂ]")
		as1 = sub(altstem, 1, 1)
		if yopt and sc == 'Laoo' then
			if yopt == 'yung' or yopt == 'ຍ' then
				yung = 1
			elseif yopt == 'yaa' or yopt == 'ຢ' then
				yaa = 1
			elseif yopt == 'both' then
				yung = 1 yaa = 1
			else
				error('Parameter yaa has invalid value "'..yopt..'"')
			end
		end
	end
	for k = 1, #suffixes do
		xlitend[k] = {}
		form = export.joinSuffix('Latn', stem, suffixes[k])
		local altforms = {}
		for ia, va in pairs(form) do
			altform = to_script(va, sc, option)
			if yung or yaa then
				local y1, y2
				if yung then y1 = gsub(altform, 'ຢ', 'ຍ') end
				if yaa  then y2 = gsub(altform, 'ຍ', 'ຢ') end
				if y1 then
					table.insert(altforms, y1)
					if y2 then
						if y1 ~= y2 then table.insert(altforms, y2) end
					end
				else
					table.insert(altforms, y2)
				end
			else
				table.insert(altforms, altform)
			end
		end
		local ib = 1 -- Conversion is not one-to-one!
		for ia, altform in pairs(altforms) do
			local ibin = ib
-- Special handling is needed for a preposed vowel.
			pre = match(altform, "^[เโເໂ]")
			if pre then
				if stem_pre then
					if sub(altform, 1, 1) == as1 then
						xlitend[k][ib] = sub(strip, 2) .. sub(altform, 3)
						ib = ib + 1
					else
--						mw.addWarning("Cannot abstract derivation "..altstem.." > "..altform)
						xlitend[k].voi = true
						xlitend[k][ib] = sub(strip, 2) .. 'Ⓣ' .. sub(altform, 3)
						ib = ib + 1
					end -- Don't generate gibberish
				else
					xlitend[k][ib] = strip .. "↶" .. pre .. sub(altform, 3)
					ib = ib + 1
				end
			else
				if stem_pre then
					xlitend[k].voi = true
					xlitend[k][ib] = sub(strip, 2) .. 'Ⓓ' .. sub(altform, 2)
					ib = ib + 1
				else
					xlitend[k][ib] = strip .. sub(altform, 2)
					ib = ib + 1
				end
			end
-- Add alternative Thai/Lao endings
-- A lot of data is needed to decide whether the disabled logic is needed.
-- Any dead code here must be kept around in case facts later show that it is
-- needed for some spelling variant.
			if (sc == 'Thai' or sc == 'Laoo') and impl == 'yes' and ib > ibin then
				local altend
				if impl=='yes' then
					altend = gsub(xlitend[k][ibin], dc("([มวມວ][กฺກ຺])([เโເໂ])([หຫ])"), "%2%1%3")
				else
					xlitend[k][ibin] = gsub(xlitend[k][ibin], "ัว", "ะว") -- TBC!
					altend = gsub(xlitend[k][ibin], dc("([มวມວ])([เโເໂ])([หຫ])"), "%2%1%3")
				end
				if altend ~= xlitend[k][ibin] then
					xlitend[k][ib] = xlitend[k][ibin]
					xlitend[k][ibin] = altend
					ib = ib + 1
				end
			end
		end
	end
	return xlitend
end

function export.getSuffixes(sc, ending, tense, option)
	local impl = option and option.impl or 'yes'
	local yopt = option and option.y
	local pat
	if not pattern[ending] then
		error('No verb pattern for ending "'..ending..'".')
	end
	if tense then
		pat = pattern[ending][tense]
	else
		pat = pattern[ending]
	end
	if 'Latn' == sc then
		return pat
	elseif not pat then
		return nil
	elseif pat[sc] then
		return pat[sc]
	else
		local olen = {Mymr = 2, Lana = 2} -- Assume NFC
		local attha_len = {Latn = 5, Sinh = 4}
		eyya_len = {Mymr = 3, Sinh = 5}
		local alen
		if impl == 'no' and (sc == 'Thai' or sc == 'Laoo') then
			alen = 1
		else
			alen = 0
		end
		local way = {
			["ati"]  = {pseudostem = "kati", ndel = 2 + alen},
			["ayati"]  = {pseudostem = "kayati", ndel = 3 + 2 * alen},
			["āti"]  = {pseudostem = "kāti", ndel = 3},
			["eti"]  = {pseudostem = "keti", ndel = 3},
			["oti"]  = {pseudostem = "soti", ndel = 2 + (olen[sc] or 1)},
			["oti_ute"]  = {pseudostem = "soti", ndel = 2 + (olen[sc] or 1)},
			["ate"]  = {pseudostem = "kate", ndel = 2 + alen},
			["ayate"]  = {pseudostem = "kayate", ndel = 3 + 2 * alen},
			["āte"]  = {pseudostem = "kāte", ndel = 3},
			["ete"]  = {pseudostem = "kete", ndel = 3},
			["ute"]  = {pseudostem = "sute", ndel = 3},
			["eyya"] = {pseudostem = "keyya", ndel = eyya_len[sc] or 4},
			["ā"]    = {pseudostem = "kā", ndel = 1},
			["ā2"]   = {pseudostem = "kā", ndel = 1},
			["a"]    = {pseudostem = "ka", ndel = alen},
			["a_attha"] = {pseudostem = "ka", ndel = alen},
			["ā_attha"] = {pseudostem = "kā", ndel = 1},
			["etha"] = {pseudostem = "ketha", ndel = 2 + alen},
			["attha"] = {pseudostem = "kattha", ndel = (attha_len[sc] or 3) + alen},
			["i"]     = {pseudostem = "ki", ndel = 1},
			["esi"]   = {pseudostem = "kesi", ndel = 3},
			["āsi"]   = {pseudostem = "kāsi", ndel = 3},
			["ayi"]   = {pseudostem = "kayi", ndel = 2 + alen},
		}
		way = way[ending]
		if way then
			pat[sc] = convert_suffixes(way.pseudostem, way.ndel, pat, sc,
									   impl, yopt)
			if ending == 'etha' then
				debug_outer=debug_outer..'tr:'..pat[sc][1][1]
			end
		else
			error('Cannot convert derivations from suffix '..ending..' for '..sc)
		end
		return pat[sc]
	end
end

local function dump_table(name, futargs) -- For debugging only!
	for k, v in pairs(futargs) do
		local t = type(v)
		if t == 'string' then
			mw.addWarning(name..'.'..k..'='..v)
		elseif t == 'table' then
			mw.addWarning(name..'.'..k..' is a table of '..#v)
		else
			mw.addWarning(name..'.'..k..' is a '..type(v))
		end
	end
end

local function define_overrides(params, prefix, mod_default)
	for _, pn in pairs({"1s", "2s", "3s", "1p", "2p", "3p"}) do
		params[prefix.."a"..pn] = {list = true}
		params[prefix.."m"..pn] = {list = true}
		params[prefix.."a"..pn.."_mod"] = {default = mod_default}
		params[prefix.."m"..pn.."_mod"] = {default = mod_default}
	end
end

local function addFutureParams(params) -- i.e. future specific
	params.cond = {list = true} -- Only forms including augment
	params.cond_midl = {list = true} -- Only forms including augment
	params.cond_voice = {} -- defaults to (corrected) value of voice
	params.fap_mod = {default = mod_default}
	params.fap = {list = true}
	params.fmp_mod = {default = mod_default}
	params.fmp = {list = true}
	define_overrides(params, 'cond_', mod_default)
end

function export.parse(args)
	mod_default = 'after'
	if args.impf_midl and not args.midl then
		error("Argument impf_midl may only be used if argument midl is.")
	end
	local params = {
		[1] = {}, -- Just ignore
		cite = {list = true},
		midl = {list = true},
		label = {},
		impl = {},
		y = {},
		aa = {},
		showtr = {},
		subst = {},
		sc = {},
   		voice = {default = 'both'}, -- Overridden by cite and midl
		impf_voice = {default = 'none'},
		augment = {default = 'both_made'},
		impf = {list = true}, -- Only forms including augment
		impf_midl = {list = true}, -- Only forms including augment
		impr_voice = {}, -- defaults to (corrected) value of voice
		opta_voice = {}, -- defaults to (corrected) value of voice
		opta_mod = {default = mod_default},
		opta = {list = true},
		opta_midl = {list = true},
		aori = {list = true},
		aor2 = {list = true},
		aori_voice = {default = 'act'}, -- paradigms only generate active forms!
		aori_augment = {}, -- No default!
		perf = {list = true},
		perf_voice = {default = 'both'},
		part_voice = {}, -- defaults to (corrected) value of voice
		pap_mod = {default = mod_default},
		pap = {list = true},
		pmp_mod = {default = mod_default},
		pmp = {list = true},
-- Options for future system:
		futu = {list = true},
		futu_midl = {list = true},
		futu_voice = {},
		cond_augment = {},
		futu_part_voice = {},
	}
	addFutureParams(params)
	define_overrides(params, '',      mod_default)
	define_overrides(params, 'impf_', mod_default)
	define_overrides(params, 'impr_', mod_default)
	define_overrides(params, 'opta_', mod_default)
	define_overrides(params, 'aori_', mod_default)
	define_overrides(params, 'perf_', mod_default)
-- Options for future system:
	define_overrides(params, 'futu_', mod_default)
	define_overrides(params, 'cond_', mod_default)
	return m_parameters.process(args, params)
end

function export.futureParse(args, subset)
	mod_default = 'after'
	if args.cond_midl and not args.midl then
		error("Argument cond_midl may only be used if argument midl is.")
	end
	local params = {
		[1] = {}, -- Just ignore
		cite = {list = true},
		midl = {list = true},
		label = {},
		impl = {},
		y = {},
		aa = {},
		showtr = {},
		subst = {},
		sc = {},
   		voice = {default = 'both'}, -- Overridden by cite and midl
		augment = {default = 'with_made'},
		part_voice = {} -- defaults to (corrected) value of voice
	}
	addFutureParams(params)
	define_overrides(params, '',      mod_default)
	if subset then -- Lists have already been formed.
		define_overrides(params, 'futu_', mod_default)
		local futargs = {}
		local replaced = {
			[1] = 1, cite = 1, midl = 1, voice = 1, augment = 1, part_voice = 1
		}
		for k, v in pairs(args) do
			if params[k] and not replaced[k] then
				if type(k) ~= 'string' then
					-- Weird!  Just skip.
				elseif match(k,  '^futu_[am][123]') then
					futargs[sub(k, 6)] = args[k]
				elseif match(k, '^[am][123][sp]') then
					-- Don't copy
				else
					futargs[k] = args[k]
				end
			end
		end
		futargs.cite		= args.futu
		futargs.midl		= args.futu_midl
		futargs.voice		= args.futu_voice or 'both'
		futargs.augment		= args.cond_augment or
			match(args.augment, '^with') and args.augment or 'with_made' 
		futargs.part_voice	= args.futu_part_voice or args.part_voice
--		dump_table('futargs', futargs)
		return futargs
	else
		return m_parameters.process(args, params)
	end
end

local arrcat_nodup = m_noun.arrcat_nodup

local function kill_final_vole(stem)
	return gsub(stem, "([เโເໂ])([^เโເໂ]*)$", "%2")
end

local function toggle_vo(stem)
	local toggle = {["เ"]="โ", ["โ"]="เ", ["ເ"]="ໂ", ["ໂ"]="ເ"}
	local function f_toggle(m1, m2) return toggle[m1]..m2 end
	return gsub(stem, "([เโເໂ])([^เโເໂ]*)$", f_toggle)
end

function export.joinSuffix(sc, base, pattern, option)
	if pattern.voi then
		local res = {}
		for _,v in ipairs(pattern) do
			local forms, rest
			local base2 = nil
			if match(v, '⌫⌫⌫⌫⌫Ⓓ') then
				base2 = kill_final_vole(sub(base, 1, -6))
				rest = sub(v,7)
			elseif match(v, '⌫⌫⌫⌫Ⓓ') then
				base2 = kill_final_vole(sub(base, 1, -5))
				rest = sub(v,6)
			elseif match(v, '⌫⌫⌫Ⓓ') then
				base2 = kill_final_vole(sub(base, 1, -4))
				rest = sub(v,5)
			elseif match(v, '⌫⌫Ⓓ') then
				base2 = kill_final_vole(sub(base, 1, -3))
				rest = sub(v,4)
			elseif match(v, '⌫Ⓓ') then
				base2 = kill_final_vole(sub(base, 1, -2))
				rest = sub(v,3)
			elseif match(v, 'Ⓓ') then
				base2 = kill_final_vole(sub(base, 1, -1))
				rest = sub(v,2)
			elseif match(v, '⌫⌫⌫⌫⌫Ⓣ') then
				base2 = toggle_vo(sub(base, 1, -6))
				rest = sub(v,7)
			elseif match(v, '⌫⌫⌫⌫Ⓣ') then
				base2 = toggle_vo(sub(base, 1, -5))
				rest = sub(v,6)
			elseif match(v, '⌫⌫⌫Ⓣ') then
				base2 = toggle_vo(sub(base, 1, -4))
				rest = sub(v,5)
			elseif match(v, '⌫⌫Ⓣ') then
				base2 = toggle_vo(sub(base, 1, -3))
				rest = sub(v,4)
			elseif match(v, '⌫Ⓣ') then
				base2 = toggle_vo(sub(base, 1, -2))
				rest = sub(v,3)
			elseif match(v, 'Ⓣ') then
				base2 = toggle_vo(sub(base, 1, -1))
				rest = sub(v,2)
			end
			if base2 then
				forms = m_noun.joinSuffix(sc, base2, {rest})
			else
				forms = m_noun.joinSuffix(sc, base, {v})
			end
			res = arrcat_nodup(res, forms)
		end
		return res
	elseif pattern.kill_final_preposed then
		return m_noun.joinSuffix(sc, kill_final_vole(base), pattern, option)
	else
		return m_noun.joinSuffix(sc, base, pattern, option)
	end
end

function export.joinSuffixes(scriptCode, stem, pattern, option)
	local forms = {}
	for i = 1, 6 do
		forms[i] = export.joinSuffix(scriptCode, stem, pattern[i], option)
	end
	return forms
end

function export.modify_voice(forms, prefix, args)
	-- Only null action is implemented.
		for i, pn in pairs({"1s", "1p", "2s", "2p", "3s", "3p"}) do
			local flag = pn..'_mod'
			if #args[pn] > 0 then
				if args[flag] == 'after' then
					forms[i] = arrcat_nodup(forms[i], args[pn])
					forms.isnil = false
				elseif args[flag] == 'replace' then
					forms[i] = args[pn]
					forms.isnil = false
				elseif args[flag] == 'before' then
					forms[i] = arrcat_nodup(args[pn], forms[i])
					forms.isnil = false
				elseif args[flag] == 'blank' then
					forms[i] = {}
				else
					error('Argument '..prefix..pn..' has invalid value '..args[flag])
				end
			elseif args[flag] == 'blank' then
				forms[i] = {}
			end
		end
end

function export.modify_voice(forms, prefix, args)
		for i, pn in pairs({"1s", "1p", "2s", "2p", "3s", "3p"}) do
			local flag = pn..'_mod'
			local added = nil;
			if args[pn] and #args[pn] > 0 then
				added = true;
				if args[flag] == 'after' then
					forms[i] = arrcat_nodup(forms[i], args[pn])
					forms.isnil = false
				elseif args[flag] == 'replace' then
					forms[i] = args[pn]
					forms.isnil = false
				elseif args[flag] == 'before' then
					forms[i] = arrcat_nodup(args[pn], forms[i])
					forms.isnil = false
				elseif args[flag] == 'blank' then
					forms[i] = {}
					added = nil; 
				else
					error('Argument '..prefix..pn..' has invalid value '..args[flag])
				end
				if added and (i == 2) then forms.add1p = true end
			elseif args[flag] == 'blank' then
				forms[i] = {}
			end
		end
end

function export.present(cite, tense, formsa, formsm)
	local rows = {"1st", "2nd", "3rd"}
	local forms1
	local output = {}
	ti(output, '<div class="NavFrame" style="min-width:30%">'..
				'<div class="NavHead" style="background:#d9ebff">'..tense..
				' forms of "' .. cite .. '"' ..'</div><div class="NavContent">')
	ti(output,
	'<table class="inflection-table" style="background:#F9F9F9;'..
		'text-align:center;width:100%">')

	if formsa and formsm then
		ti(output, '<tr style="background:#eff7ff"><th></th><th colspan=2>Active</th><th colspan=2>Middle</th></tr>')
		ti(output, '<tr style="background:#eff7ff"><th></th><th>Singular</th><th>Plural</th><th>Singular</th><th>Plural</th></tr>')
		for i,v in ipairs(rows) do
			if #formsa[2*i-1] > 0 or #formsa[2*i] > 0 or #formsm[2*i-1] > 0 or #formsm[2*i] > 0 then
				ti(output, "<tr><th style=\"background-color:#eff7ff;\">" .. v .. "</th>")
				ti(output, "<td>" .. m_noun.orJoin(currentScript, formsa[2 * i - 1]) .. "</td>")
				ti(output, "<td>" .. m_noun.orJoin(currentScript, formsa[2 * i]) .. "</td>")
				ti(output, "<td>" .. m_noun.orJoin(currentScript, formsm[2 * i - 1]) .. "</td>")
				ti(output, "<td>" .. m_noun.orJoin(currentScript, formsm[2 * i]) .. "</td>")
				ti(output, "</tr>")
			end
		end
	else
		if formsa then
			forms1 = formsa
		else
			forms1 = formsm
		end
		ti(output, '<tr style="background:#eff7ff"><th></th><th>Singular</th><th>Plural</th></tr>')
		for i,v in ipairs(rows) do
			if #forms1[2*i-1] > 0 or #forms1[2*i] > 0 then
				ti(output, "<tr><td style=\"background-color:#eff7ff;\">" .. v .. "</td>")
				ti(output, "<td>" .. m_noun.orJoin(currentScript, forms1[2 * i - 1]) .. "</td>")
				ti(output, "<td>" .. m_noun.orJoin(currentScript, forms1[2 * i]) .. "</td>")
				ti(output, "</tr>")
			end
		end
	end
	ti(output, "</table></div></div>")
	return table.concat(output)
end

-- Basic form of augment:
local augment = {
	Latn="a",
	Thai="อ",
	Deva="अ",
	Beng="অ",
	Mymr="အ",
	Lana="ᩋ",
	Khmr="អ",
	Sinh="අ",
	Brah="𑀅",
	Laoo="ອ",
}
local augment_alph= {
	Thai = "อะ",
	Laoo = "ອະ"
}

local enda3s = {
	Latn="ti",
	Thai="ติ",
	Deva="ति",
	Beng="তি",
	Mymr="တိ",
	Lana="ᨲᩥ",
	Khmr="តិ",
	Sinh="ති",
	Brah="𑀢𑀺",
	Laoo="ຕິ",
}

local function select_args(old, prefix) -- prefix must be in ASCII
	local new = {}
	local pattern = '^'..prefix
	local follow = string.len(pattern)
	for i, v in pairs(old) do
		if string.match(i,pattern) then
			new[asub(i, follow)] = v
		end
	end
	return new
end

function export.modify(formsa, formsm, prefix, args)
	local subprefix
	if not formsa then formsa = {{}, {}, {}, {}, {}, {}, isnil=true} end
	subprefix = prefix..'a'
	export.modify_voice(formsa, subprefix, select_args(args,subprefix))
	if formsa.isnil then formsa = nil end
	if not formsm then formsm = {{}, {}, {}, {}, {}, {}, isnil=true} end
	subprefix = prefix..'m'
	export.modify_voice(formsm, subprefix, select_args(args,subprefix))
	if formsm.isnil then formsm = nil end
	return formsa, formsm
end

local hike = true -- Whether heading for voices and numbers should be in common for tables. 
local function rows2v(tense, formsa, formsm, x0)
	local rows = {"第一人稱", "第二人稱", "第三人稱"}
	local output = {}

    formsa = formsa or empty
    formsm = formsm or empty
	ti(output, '<tr style="background:#d9ebff"><th colspan=5>'..tense..'</th></tr>')
	if not hike then
		ti(output, '<tr style="background:#eff7ff"><th></th><th colspan=2>主動態</th><th colspan=2>中間態</th></tr>')
		ti(output, '<tr style="background:#eff7ff"><th></th><th>單數</th><th>複數</th><th>單數</th><th>複數</th></tr>')
	end	
	for i,v in ipairs(rows) do
		if #formsa[2*i-1] > 0 or #formsa[2*i] > 0 or #formsm[2*i-1] > 0 or #formsm[2*i] > 0 then
			ti(output, "<tr><th style=\"background-color:#eff7ff;\">" .. v .. "</th>")
			ti(output, "<td>")
			ti(output, m_noun.orJoin(currentScript, formsa[2 * i - 1], x0))
			ti(output, "</td>")
			ti(output, "<td>")
			ti(output, m_noun.orJoin(currentScript, formsa[2 * i], x0))
			ti(output, "</td>")
			ti(output, "<td>")
			ti(output, m_noun.orJoin(currentScript, formsm[2 * i - 1], x0))
			ti(output, "</td>")
			ti(output, "<td>")
			ti(output, m_noun.orJoin(currentScript, formsm[2 * i], x0))
			ti(output, "</td>")
			ti(output, "</tr>")
		end
	end
	return table.concat(output)
end

local function rows1v(tense, formsa, formsm, xo)
	local rows = {"第一人稱", "第二人稱", "第三人稱"}
	local output = {}

	forms1 = formsa or formsm or empty
	ti(output, '<tr style="background:#d9ebff"><th colspan=3>'..tense..'</th></tr>')
	if not hike then
		ti(output, '<tr style="background:#eff7ff"><th></th><th>單數</th><th>複數</th></tr>')
	end
	for i,v in ipairs(rows) do
		if #forms1[2*i-1] > 0 or #forms1[2*i] > 0 then
			ti(output, "<tr><td style=\"background-color:#eff7ff;\">")
			ti(output, v)
			ti(output, "</td>")
			ti(output, "<td>")
			ti(output, m_noun.orJoin(currentScript, forms1[2 * i - 1], xo))
			ti(output, "</td>")
			ti(output, "<td>")
			ti(output, m_noun.orJoin(currentScript, forms1[2 * i], xo))
			ti(output, "</td>")
			ti(output, "</tr>")
		end
	end
	return table.concat(output)
end

function export.present_conj(label, currentScript, parts, xo)
	output = {}
	parts.cat = parts.cat or {}
	havea = parts.presa or parts.impra or parts.impfa or parts.optaa
	havea = havea or parts.aoria or parts.futua or parts.conda or parts.perfa
	havem = parts.presm or parts.imprm or parts.impfm or parts.optam
	havem = havem or parts.aorim or parts.futum or parts.condm or parts.perfa
	have2 = parts.presa and parts.presm  or  parts.impra and parts.imprm or
			parts.impfa and parts.impfm  or  parts.optaa and parts.optam or
			parts.aoria and parts.aorim  or  parts.futua and parts.futum or
			parts.conda and parts.condm  or  parts.perfa and parts.perfm
	ti(output, '<div class="NavFrame" style="min-width:30%">'..
				'<div class="NavHead" style="background:#d9ebff">'..
				'“' .. label .. '”的變位</div><div class="NavContent">')
	ti(output, '<table class="inflection-table" style="background:#F9F9F9;'..
		'text-align:center;width:100%">')
	if have2 then
		if hike then
			ti(output, '<tr style="background:#eff7ff"><th></th><th colspan=2>主動態</th><th colspan=2>中間態</th></tr>')
			ti(output, '<tr style="background:#eff7ff"><th></th><th>單數</th><th>複數</th><th>單數</th><th>複數</th></tr>')
		end	
		if parts.presa or parts.presm then
			ti(output, rows2v('現在時', parts.presa, parts.presm, xo))
		end
		if parts.impfa or parts.impfm then
			ti(output, rows2v('過去進行時', parts.impfa, parts.impfm, xo))
		end
		if parts.impra or parts.imprm then
			ti(output, rows2v('命令式', parts.impra, parts.imprm, xo))
		end
		if parts.optaa or parts.optam then
			ti(output, rows2v('希求式', parts.optaa, parts.optam, xo))
		end
		if parts.aoria or parts.aorim then
			ti(output, rows2v('不定過去式', parts.aoria, parts.aorim, xo))
		end
		if parts.futua or parts.futum then
			ti(output, rows2v('將來時', parts.futua, parts.futum, xo))
		end
		if parts.conda or parts.condm then
			ti(output, rows2v('條件式', parts.conda, parts.condm, xo))
		end
		if parts.perfa or parts.perfm then
			ti(output, rows2v('完成時', parts.perfa, parts.perfm, xo))
		end
	else
		if hike then
			ti(output, '<tr style="background:#eff7ff"><th></th><th>Singular</th><th>Plural</th></tr>')
		end
		if parts.presa or parts.presm then
			ti(output, rows1v('現在時', parts.presa, parts.presm, xo))
		end
		if parts.impfa or parts.impfm then
			ti(output, rows1v('過去進行時', parts.impfa, parts.impfm, xo))
		end
		if parts.impra or parts.imprm then
			ti(output, rows1v('命令式', parts.impra, parts.imprm, xo))
		end
		if parts.optaa or parts.optam then
			ti(output, rows1v('希求式', parts.optaa, parts.optam, xo))
		end
		if parts.aoria or parts.aorim then
			ti(output, rows1v('不定過去式', parts.aoria, parts.aorim, xo))
		end
		if parts.futua or parts.futum then
			ti(output, rows1v('將來時', parts.futua, parts.futum, xo))
		end
		if parts.conda or parts.condm then
			ti(output, rows1v('條件式', parts.conda, parts.condm, xo))
		end
		if parts.perfa or parts.perfm then
			ti(output, rows1v('完成時', parts.perfa, parts.perfm, xo))
		end
	end
	if parts.conda or parts.condm then
		ti(parts.cat, "[[category:以條件式表現的巴利語動詞]]")
		if parts.conda and parts.conda.add1p then
			ti(parts.cat, "[[category:有手動第一人稱複數條件式的巴利語動詞]]")
		end
	end
	ti(output, "</table></div></div>")
	if parts.pap and #parts.pap > 0 then
		table.insert(output, '\n* 現在主動分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.pap, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.pmp and #parts.pmp > 0 then
		table.insert(output, '\n* 現在中間態分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.pmp, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.fap and #parts.fap > 0 then
		table.insert(output, '\n* 將來主動分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.fap, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.fmp and #parts.fmp > 0 then
		table.insert(output, '\n* 將來中間態分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.fmp, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.debug then table.insert(output, parts.debug) end
	if parts.cat then ti(output, table.concat(parts.cat)) end
	return table.concat(output)
end

function export.present_special_oldway(label, currentScript, parts, xo)
	output = {}
	parts.cat = parts.cat or {}
	if parts.presa or parts.presm then
		table.insert(output, export.present(label, '現在時', parts.presa, parts.presm, xo))
	end
	if parts.impfa or parts.impfm then
		table.insert(output, export.present(label, '過去進行時', parts.impfa, parts.impfm, xo))
	end
	if parts.impra or parts.imprm then
		table.insert(output, export.present(label, '命令式', parts.impra, parts.imprm, xo))
	end
	if parts.optaa or parts.optam then
		table.insert(output, export.present(label, '希求式', parts.optaa, parts.optam, xo))
	end
	if parts.futua or parts.futum then
		ti(output, export.present(label, '將來時', parts.futua, parts.futum, xo))
	end
	if parts.conda or parts.condm then
		ti(output, export.present(label, '條件式', parts.conda, parts.condm, xo))
		ti(parts.cat, "[[category:以條件式表現的巴利語動詞]]")
		if parts.conda and parts.conda.add1p then
			ti(parts.cat, "[[category:有手動第一人稱複數條件式的巴利語動詞]]")
		end
	end
	if parts.pap and #parts.pap > 0 then
		table.insert(output, '\n* 現在主動分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.pap, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.pmp and #parts.pmp > 0 then
		table.insert(output, '\n* 現在中間態分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.pmp, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.fap and #parts.fap > 0 then
		table.insert(output, '\n* 將來主動分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.fap, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.fmp and #parts.fmp > 0 then
		table.insert(output, '\n* 將來中間態分詞: ')
		table.insert(output, m_noun.orJoin(currentScript, parts.fmp, xo))
		table.insert(output, ',具體形式及使用,請參見該詞條')
	end
	if parts.debug then table.insert(output, parts.debug) end
	if parts.cat then ti(output, table.concat(parts.cat)) end
	return table.concat(output)
end

function export.present_future(label, currentScript, parts, xo)
	if true then -- Newer table format
	return export.present_conj(label, currentScript, parts, xo)
	else
	return export.present_special_oldway(label, currentScript, parts, xo)
	end
end

function export.present_special(label, currentScript, parts, xo)
	if true then -- Newer table format
	return export.present_conj(label, currentScript, parts, xo)
	else
	return export.present_special_oldway(label, currentScript, parts, xo)
	end
end

function export.special_forms(cite, args)
	currentScript =	lang:findBestScript(cite)
	scriptCode = currentScript:getCode()
	local latinise = nil
	if scriptCode == "None" and args.sc then -- Resort to sc
		scriptCode = args["sc"]
		currentScript = m_scripts.getByCode(scriptCode, "No such script as "..scriptCode)
		latinise = currentScript
		augment[scriptCode] = to_script("a", scriptCode)
	end
	args = export.parse(args)
	args.cite = arrcat_nodup({cite}, args.cite)
	local debug = '\n\nAt (1), args.cite = '..table.concat(args.cite, ' ')
	local patpa, patpm, basepa, basepm
	local parts = {}
	local option = {}
	option.aa = args.aa

-- Handle present tense.  This forms a base for others.
	local ending = export.detectEnding(cite, latinise)
--	mw.addWarning('ending='..ending)
	patpa = export.getSuffixes(scriptCode, ending, nil, args)
	basepa = cite
	local mset = nil
	local forBoth = false
	local aset = args.cite
	local voice = "both"
	if 'e' == asub(ending, -1) then -- No active inflection
		patpm = patpa
		patpa = nil
		basepm = cite
		aset = nil
		mset = args.cite
		voice = "midl"
	elseif args.midl and args.midl[1] then
		basepm = args.midl[1]
		mset = args.midl
		local midend = export.detectEnding(basepm, latinise)
		patpm = pattern[midend].mid and
		        export.getSuffixes(scriptCode, pattern[midend].mid, nil, args)
	elseif args.voice == 'act' then
		patpm = nil
		voice = "act"
	else
		patpm = pattern[ending].mid and
				export.getSuffixes(scriptCode, pattern[ending].mid, nil, args)
		basepm = cite
		forBoth = true
		mset = args.cite
	end
	local formsa = nil
	local formsm = nil
	if patpa then
		formsa = export.joinSuffixes(scriptCode, basepa, patpa, option)
		for k = 2, #aset do
			basepa = aset[k]
			patpa = export.getSuffixes(
				scriptCode, export.detectEnding(basepa, latinise), nil, args)
			local extras = export.joinSuffixes(scriptCode, basepa, patpa, option)
			for ip = 1, 6 do
				formsa[ip] = arrcat_nodup(formsa[ip], extras[ip])
			end
		end
	end
	if patpm or forBoth then
		if patpm then
			formsm = export.joinSuffixes(scriptCode, basepm, patpm, option)
		else
			formsm = {{}, {}, {}, {}, {}, {}}
		end
		for k = 2, #mset do
			basepm = mset[k]
			local kend = export.detectEnding(basepm, latinise)
			kend = pattern[kend].mid
			if kend then
				patpm = export.getSuffixes(scriptCode, kend, nil, args)
				local extras = export.joinSuffixes(scriptCode, basepm, patpm, option)
				for ip = 1, 6 do
					formsm[ip] = arrcat_nodup(formsm[ip], extras[ip])
				end
			end
		end
	end
	if args.voice == "act" or args.voice == "both" then
		-- handled already
	elseif args.voice == "none" then
		formsa = nil
		formsm = nil
		voice = "none"
	elseif args.voice then
		error('Argument voice has bad value "'..args.voice..'.')
	end
	formsa, formsm = export.modify(formsa, formsm, '', args)

	parts.presa = formsa
	parts.presm = formsm

-- Form imperative from present
    formsa = nil
    formsm = nil
    local imperativeVoice = args.impr_voice or voice
    if imperativeVoice == 'act' or imperativeVoice == 'both' then
    	local patma
    	formsa = {{}, {}, {}, {}, {}, {}}
    	for k = 1, #aset do
    		kend = export.detectEnding(aset[k], latinise)
    		patma = export.getSuffixes(scriptCode, kend, 'imperative', args)
    		if patma then 
	   			local extras = export.joinSuffixes(scriptCode, aset[k], patma, option)
    			for ip = 1, 6 do
    				formsa[ip] = arrcat_nodup(formsa[ip], extras[ip])
    			end
    		end
    	end
    end
    if imperativeVoice == 'midl' or imperativeVoice == 'both' then
    	local patmm
    	formsm = {{}, {}, {}, {}, {}, {}}
    	local nstem, form3s
    	if forBoth then
    		nstem = #aset
    	else
    		nstem = #mset
    	end
    	for k = 1, nstem do
   			form3s = mset[k]
    		kend = export.detectEnding(form3s, latinise)
    		if pattern[kend].mid then
    			kend = pattern[kend].mid
    		elseif kend == "eti" then
    			kend = nil
    		else
    			error('No middle endings for ending "'..kend..'".')
    			kend = nil
    		end
    		patmm = kend and export.getSuffixes(scriptCode, kend, 'imperative', args)
    		if patmm then 
	   			local extras = export.joinSuffixes(scriptCode, form3s, patmm, option)
    			for ip = 1, 6 do
    				formsm[ip] = arrcat_nodup(formsm[ip], extras[ip])
    			end
    		end
    	end
    end
    debug = debug..'\n\nAt (8), formsa='..tostring(formsa)
	formsa, formsm = export.modify(formsa, formsm, 'impr_', args)
	if formsa then
		debug = debug..'\n\nAt (9), formsa='..tostring(formsa)..
				' formsa.isnil='..tostring(formsa.isnil)
	else
		debug = debug..'\n\nAt (9), formsa='..tostring(formsa)
	end
	parts.impra = formsa
	parts.imprm = formsm

-- Form imperfect from present.  Existence defaults to false for both voices.
	local aug
	if args["impl"] == 'no' then
		aug = augment_alph[scriptCode] or augment[scriptCode]
	else
		aug = augment[scriptCode]
	end
--	error("impl="..tostring(args["impl"]).." aug="..aug)
	impf = {}
	if (args.impf_voice ~= 'none') then
		if args.augment == 'without' then
			impf = aset or {}
		elseif args.augment == 'with_made' then
			if aset then
				for k = 1, #aset do
					impf[k] = aug .. aset[k]
				end
			end
		elseif args.augment == 'with_given' then
			impf = args.impf
		elseif args.augment == 'both_made' then
			if aset then
				for k = 1, #aset do
					impf[k] = aug .. aset[k]
				end
				for k = 1, #aset do
					impf[#aset+k] = aset[k]
				end
			end
		elseif args.augment == 'both_given' then
			impf = arrcat_nodup(args.impf or {}, aset or {})
		else
			error('Argument augment has bad value "'..args.augment..'".')
		end
	end
	if (args.impf_voice == 'both' or args.impf_voice == 'act')
--	and (voice == 'both' or voice == 'act')
	then
		formsa = {{}, {}, {}, {}, {}, {}}
		for k = 1, #impf do
			kend = export.detectEnding(impf[k], latinise)
			if kend == "ā" then kend = "ā2" end
			patma = export.getSuffixes(scriptCode, kend, 'imperfect', args)
--			mw.addWarning('impf['..k..']='..impf[k]..' kend='..kend..' patma[5][1]='..patma[5][1])
			if patma then
				local extras = export.joinSuffixes(scriptCode, impf[k], patma, option)
				for ip = 1, 6 do
					formsa[ip] = arrcat_nodup(formsa[ip], extras[ip])
				end
			end
		end
	elseif (args.impf_voice == 'none' or args.impf_voice == 'midl') then
		formsa = nil
	else
		error('Argument impf_voice has bad value "'..args.impf_voice..'".')
	end
	if (args.impf_voice == 'both' or args.impf_voice == 'midl')
--	and (voice == 'both' or voice == 'midl')
	then
		formsm = {{}, {}, {}, {}, {}, {}}
		if not forBoth then
			impf = {}
			if args.augment == 'without' then
				impf = mset
			elseif args.augment == 'with_made' then
				for k = 1, #mset do
					impf[k] = aug .. mset[k]
				end
			elseif args.augment == 'with_given' then
				impf = args.midl and args.midl[1] and args.impf_midl or args.midl
			elseif args.augment == 'both_made' then
				for k = 1, #mset do
					impf[k] = aug .. mset[k]
				end
				for k = 1, #mset do
					impf[#mset+k] = mset[k]
				end
			elseif args.augment == 'both_given' then
				impf = arrcat_nodup(
					args.midl and args.midl[1] and (args.impf_midl or {}) or
					args.impf or {},
					mset or {})
			else
				error('Argument augment has bad value "'..args.augment..'".')
			end
		end
		for k = 1, #impf do
			kend = export.detectEnding(impf[k], latinise)
			debug=debug..'\n\nAt (7) impf[k]='..impf[k]
			if kend == "ā" then kend = "ā2" end
			if forBoth then
	    		if pattern[kend].mid then
	    			kend = pattern[kend].mid
	    		elseif kend == "eti" then
	    			kend = nil
				else
	    			error('No middle endings for ending "'..kend..'".')
	    			kend = nil
	    		end
			end
			local pat = kend and export.getSuffixes(scriptCode, kend, 'imperfect', args)
			if not kend then
				-- nothng to do
			elseif pat then
				local extras = export.joinSuffixes(scriptCode, impf[k], pat, option)
				for ip = 1, 6 do
					formsm[ip] = arrcat_nodup(formsm[ip], extras[ip])
				end
			else
				mw.addWarning('No imperfect middle suffixes for '..impf[k]..
					' ('..kend..')')
			end
		end
	else
		formsm = nil
	end
	formsa, formsm = export.modify(formsa, formsm, 'impf_', args)
	parts.impfa = formsa
	parts.impfm = formsm
-- Form optative from present citation forms.
	args.opta_voice = args.opta_voice or voice
	debug = debug .. '\n\nAt (2), args.cite = '..table.concat(args.cite, ' ')
	local opta = args.cite
	debug = debug .. '\n\nAt (3), opta = '..table.concat(opta, ' ')
	if args.opta then
		debug = debug..'\n\nAt (4), args.opta='..table.concat(args.opta)..', args.opta_mod='..args.opta_mod
		if args.opta_mod == 'replace' then
			opta = args.opta
		elseif args.opta_mod == 'after' then
		opta = arrcat_nodup(opta, args.opta)
		elseif args.opta_mod == 'before' then
			opta = arrcat_nodup(args.opta, opta)
		elseif args.opta_mod == 'blank' then
			args.opta_voice = 'none'
		else
			error('Argument opta_mod has bad value "'..args.opta_mode..'".')
		end
	end
	debug = debug .. '\n\nAt (5), opta = '..table.concat(opta, ' ')..
			', args.opta_voice='..args.opta_voice
	if args.opta_voice == 'both' or args.opta_voice == 'act' then
		formsa = {{}, {}, {}, {}, {}, {}}
		for k = 1, #opta do
			kend = export.detectEnding(opta[k], latinise)
			patma = export.getSuffixes(scriptCode, kend, 'optative_active', args)
			if patma then
				local extras = export.joinSuffixes(scriptCode, opta[k], patma, option)
				for ip = 1, 6 do
					formsa[ip] = arrcat_nodup(formsa[ip], extras[ip])
				end
			end
		end
	elseif args.opta_voice == 'midl' or args.opta_voice == 'none' then
		formsa = nil
	else
		error('Argument opta_voice has bad value "'..args.opta_voice..'".')
	end
	if #args.opta_midl > 0 then opta = args.opta_midl end
	formsm = nil

	if args.opta_voice == 'both' or args.opta_voice == 'midl' then
		formsm = {{}, {}, {}, {}, {}, {}}
		debug=debug..'\n\nAt (6), opta='..table.concat(opta)
		for k = 1, #opta do
			kend = export.detectEnding(opta[k], latinise)
			patma = export.getSuffixes(scriptCode, kend, 'optative_middle', args)
			if patma then
				local extras = export.joinSuffixes(scriptCode, opta[k], patma, option)
				for ip = 1, 6 do
					formsm[ip] = arrcat_nodup(formsm[ip], extras[ip])
				end
			else
				debug = debug.."\n\nNo "..kend..".optative_middle"
			end
		end
	else
		formsm = nil
	end

	formsa, formsm = export.modify(formsa, formsm, 'opta_', args)
		parts.optaa = formsa
	parts.optam = formsm

-- Generate aorist forms - currently only from aorist specific parameters.
	formsa = nil
	formsm = nil
	if args.aori and #args.aori > 0 or args.aor2 and #args.aor2 > 0 then
		formsa = { {}, {}, {}, {}, {}, {} }
		local aori = {} -- List of *aorist* 3s.  Cannnot tell -ati from -i!
		for k = 1, #(args.aor2 or {}) do
			aori[k] = aug .. args.aor2[k]
		end
		aori = arrcat_nodup(aori, args.aor2 or {})
		aori = arrcat_nodup(aori, args.aori)
		for k = 1, #aori do
			local kend = export.detectAoristEnding(aori[k], latinise)
			if kend == "āsi" then
				parts.cat = parts.cat or {}
				ti(parts.cat, "[[category:Pali verbs with aorist in -āsi/-a]]")
			end
			local patma = export.getSuffixes(scriptCode, kend, 'aorist', args)
			if patma then
				local extras = export.joinSuffixes(scriptCode, aori[k], patma, option)
				for ip = 1, 6 do
					formsa[ip] = arrcat_nodup(formsa[ip], extras[ip])
				end
			else
				debug = debug.."\n\nNo "..kend..".aorist"
			end
		end
		if #formsa[1] == 0 and #formsa[2] == 0 and #formsa[3] == 0 and
		   #formsa[4] == 0 and #formsa[5] == 0 and #formsa[6] == 0 then 	
			formsa = nil
		end
	end
	parts.aoria, parts.aorim = export.modify(formsa, formsm, 'aori_', args)

-- Generate perfect tense by write in
	formsa = nil
	formsm = nil
	parts.perfa, parts.perfm = export.modify(formsa, formsm, 'perf_', args)
	
--	List present participles.
	local pap, pmp = {}, {}
	args.part_voice = args.part_voice or voice
	if args.part_voice == 'both' or args.part_voice == 'act' then
		if voice == 'both' or voice == 'act' then
			for k = 1, aset and #aset or 0 do
				local kend = export.detectEnding(aset[k], latinise)
				local pat = kend and export.getSuffixes(scriptCode, kend, "participle", args)
				if pat then
					local extra = export.joinSuffix(scriptCode, aset[k], pat[1])
					pap = arrcat_nodup(pap, extra)
				end
			end
		end
		if args.pap_mod == 'blank' then
			pap = {}
		elseif args.pap_mod == 'after' then
			pap = arrcat_nodup(pap, args.pap)
		elseif args.pap_mod == 'before' then
			pap = arrcat_nodup(args.pap, pap)
		elseif args.pap_mod == 'replace' then
			pap = args.pap
		else
			error('Argument pap_mod has invalid value '..args.pap_mod)
		end
		parts.pap = pap
	elseif args.part_voice == 'midl' or args.part_voice == 'none' then
		-- permissible
	else
		error('Argument part_voice has invalid value '..args.part_voice)
	end
	if args.part_voice == 'both' or args.part_voice == 'midl' then
		local list
		local from_active = forBoth or voice == 'act'
		if from_active then
			list = aset
		else
			list = mset
		end
		for k = 1, list and #list or 0 do
			local kend = export.detectEnding(list[k], latinise)
			if from_active then kend = pattern[kend].mid end
			local pat = kend and export.getSuffixes(scriptCode, kend, "participle", args)
			if pat then
				local extra = export.joinSuffix(scriptCode, list[k], pat[1])
				pmp = arrcat_nodup(pmp, extra)
			end
		end
		if args.pmp_mod == 'blank' then
			pmp = {}
		elseif args.pmp_mod == 'after' then
			pmp = arrcat_nodup(pmp, args.pmp)
		elseif args.pmp_mod == 'before' then
			pmp = arrcat_nodup(args.pmp, pmp)
		elseif args.pmp_mod == 'replace' then
			pmp = args.pmp
		else
			error('Argument pmp_mod has invalid value '..args.pmp_mod)
		end
		parts.pmp = pmp
	end
	
	-- parts.debug = debug..'\n\n'..debug_outer
	return parts
end

function export.show(frame)
	local args = mw.clone(frame:getParent().args)
	local cite = args[1] or args["cite"] or mw.title.getCurrentTitle().text
	local xo = {impl = args.impl, y = args.y, showtr = args.showtr, subst = args.subst}
	local parts = export.special_forms(cite, args)
	parts.cat = parts.cat or {}
	if args.futu then
		local fuparts = export.future_forms(args.futu, args, true)
		fuparts.cat = fuparts.cat or {}
		for k, v in pairs(fuparts) do
			if k == 'cat' then
				parts.cat = arrcat_nodup(parts.cat, fuparts.cat)
			else
				parts[k] = fuparts[k]
			end
		end
--		dump_table('parts', parts)
	end
	local label = args.label or cite
	return export.present_special(label, currentScript, parts, xo)
end

local future_endings = {
-- fa endings
	["ati"] = "ati",		["ติ"] = "ati",			["ति"] = "ati",			["তি"] = "ati",
	["တိ"] = "ati",									["ᨲᩥ"] = "ati",
	["តិ"] = "ati",			["ති"] = "ati",			["𑀢𑀺"] = "ati",  	["ຕິ"] = "ati",

	["iti"] = "iti",		[dc("กิติ")]="iti",			[dc("किति")]="iti",		[dc("কিতি")]="iti",
	[dc("ကိတိ")]="iti",									[dc("ᨠᩥᨲᩥ")]="iti",
	[dc("កិតិ")]="iti",		[dc("කිති")]="iti",			[dc("𑀓𑀺𑀢𑀺")]="iti",		[dc("ກິຕິ")]="iti",

	["heti"] = "heti",		["เหติ"] = "heti",			["हेति"] = "heti",		["হেতি"] = "heti",
	["ဟေတိ"] = "heti",									["ᩉᩮᨲᩥ"] = "heti",
	["ហេតិ"] = "heti",		["හෙති"] = "heti",			["𑀳𑁂𑀢𑀺"] = "heti",		["ເຫຕິ"] = "heti",
	
	["kāhiti"] = "kāhiti",	["กาหิติ"] = "kāhiti",		["काहिति"] = "kāhiti",	["কাহিতি"] = "kāhiti",
	["ကာဟိတိ"] = "kāhiti",							["ᨠᩣᩉᩥᨲᩥ"] = "kāhiti",
	["កាហិតិ"] = "kāhiti",	["කාහිති"] = "kāhiti",		["𑀓𑀸𑀳𑀺𑀢𑀺"] = "kāhiti",	["ກາຫິຕິ"] = "kāhiti",

-- fm endings
	["ate"] = "ate",		["เต"] = "ate",			["ते"] = "ate",			["তে"] = "ate",
	["တေ"] = "ate",									["ᨲᩮ"] = "ate",
	["តេ"] = "ate",			["තෙ"] = "ate",			["𑀢𑁂"] = "ate",   ["ເຕ"] = "ate",

-- ca ending.
	["ā"] = "ā",			["า"] = "ā",			[dc("का")] = "ā",	[dc("কা")] = "ā",
	["ာ"] = "ā",			["ါ"] = "ā",			["ᩣ"] = "ā",		["ᩤ"] = "ā",
	[dc("កា")] = "ā",		[dc("කා")] = "ā",		[dc("𑀓𑀸")] = "ā",    ["າ"] = "ā",

	["a"] = "a",
-- cm ending
	["atha"] = "atha",		["ถ"] = "atha",			["थ"] = "atha",	["থ"] = "atha",
	["ထ"] = "atha",		["ถะ"] = "atha",		[dc("ᨳ")] = "atha",	["ຖ"] = "atha",
	["ថ"] = "atha",	["ථ"] = "atha",	[dc("𑀣")] = "atha",	["ຖະ"] = "atha",
}

function export.detectFutureEnding(cite3s, latinise)
	if latinise then
		local cfin = cite3s
		cite3s = lang:transliterate(cfin, latinise)
	end
	local len
	local ending
	for len = 6, 1, -1 do
		wordEnd = sub(cite3s, -len)
		ending = future_endings[wordEnd]
		if not ending then
			-- Try again
		else
-- debug_outer = debug_outer..'\n'..cite3s..'='..ending..'\n'
			return ending
		end
	end
-- debug_outer = debug_outer..'\n'..cite3s..'='.."a"..'\n'
	return "a"
end

local future_pattern = {
	["ati"] = {
		{"⌫⌫⌫āmi"}, {"⌫⌫⌫āma"},   {"⌫⌫si"}, {"⌫ha"},    {""}, {"⌫⌫nti"},
		mid = "ate",
		conditional = {
			{"⌫⌫ṃ"},  -- Collins also has 1s {"⌫⌫⌫āmi"}
							{},					 -- Kaccayano, Aggavamsa and Duroiselle have -amhā
												 -- while Warder and Collins have -āma.
--	                        {"⌫⌫mhā", "⌫⌫⌫āma"}, -- We need to gather evidence and then decide.  
			{"⌫⌫", "⌫⌫⌫i"},	{"⌫ha"},             -- Duroiselle also has 2s "⌫⌫⌫e", which Collins says is middle.
			{"⌫⌫⌫ā", "⌫⌫"},	{"⌫⌫ṃsu"},           -- Duroiselle also has 3s as in future.
		},
		participle = {{"⌫⌫nt"}},
	},
	["ate"] = { -- Also services "ati"
		{"⌫⌫ṃ"}, {"⌫⌫⌫āmhe"},  {"⌫⌫se"}, {"⌫⌫vhe"},  {"⌫e"}, {"⌫⌫nte"},
		conditional = {
			{"⌫⌫ṃ"},	        {"⌫⌫⌫āmhase"},
			{"⌫⌫⌫e", "⌫⌫se"},	{"⌫⌫vhe"}, -- Duroiselle has first 2s as active.
			{"⌫ha"},	        {"⌫⌫⌫iṃsu"},
		},
		participle = {{"⌫⌫māna", "⌫⌫⌫āna"}},
		mid = "ate"
	},
	["ā"] = {
		conditional = {
			{"⌫aṃ"},  -- Collins also has 1s {"mi"}
	        {}, --          {"⌫amhā", "ma"},  -- See above for controversy.  
			{"⌫a", "⌫i"},	{"⌫atha"},        -- Duroiselle also has 2s "⌫⌫⌫e", which Collins says is middle.
			{"", "⌫a"},  	{"⌫aṃsu"},        -- Duroiselle also has 3s as in future.
		},
        mid = "atha_for_aa",
	},
	["a"] = {
		conditional = {
			{"ṃ"},  -- Collins also has 1s {"āmi"}
	        {}, --         {"mhā", "⌫āma"}, -- See above for controversy.  
			{"", "⌫i"},	    {"tha"},        -- Duroiselle also has 2s "⌫⌫⌫e", which Collins says is middle.
			{"⌫ā", ""},  	{"ṃsu"},        -- Duroiselle also has 3s as in future.
		},
        mid = "atha_for_a",
	},
	["atha"] = {
		conditional = {
			{"⌫⌫⌫ṃ"},	        {"⌫⌫⌫⌫āmhase"},
			{"⌫⌫⌫⌫e", "⌫⌫⌫se"},	{"⌫⌫⌫vhe"}, -- Duroiselle has first 2s as active.
			{""},	            {"⌫⌫⌫⌫iṃsu"},
		},
		mid = "atha"
	},
    ["atha_for_a"] = {
       	conditional = {
			{"ṃ"},	        {"⌫āmhase"},
			{"⌫e", "se"},	{"vhe"}, -- Duroiselle has first 2s as active.
			{"tha"},	    {"⌫iṃsu"},
		},
		mid = "atha_for_a"
	},
	atha_for_aa = {
		conditional = {
			{"aṃ"},	        {"mhase"},
			{"⌫e", "⌫ase"},	{"⌫avhe"}, -- Duroiselle has first 2s as active.
			{"⌫atha"},	    {"⌫iṃsu"},
		},
		mid = "atha_for_aa"
	},
	iti = {
		{"⌫⌫⌫āmi"}, {"⌫⌫⌫āma"}, {"⌫⌫si"}, {"⌫ha"}, {""}, {"⌫⌫nti"},
		mid = "void"
	},
	heti = {
		{"⌫⌫mi"}, {"⌫⌫ma"}, {"⌫⌫si"}, {"⌫ha"}, {""}, {"⌫⌫nti"},
		mid = "void"
	},
	["kāhiti"] = {
		{"⌫⌫⌫āmi"}, {"⌫⌫⌫āma"}, {"⌫⌫si"}, {}, {""}, {"⌫⌫nti"},
		mid = "void"
	},
	void = { {}, {}, {}, {}, {}, {}, mid = "void"}
}

-- convert Latin script inflections to another script
-- ⒹⓉ

function export.getFutureSuffixes(sc, ending, tense, option)
	local impl = option and option.impl or 'yes'
	local yopt = option and option.y
	local pat
	if not future_pattern[ending] then
		error('No verb pattern for ending "'..ending..'".')
	end
	if tense then
		pat = future_pattern[ending][tense]
	else
		pat = future_pattern[ending]
	end
	if 'Latn' == sc then
		return pat
	elseif not pat then
		return nil
	elseif pat[sc] then
		return pat[sc]
	else
		local olen = {Mymr = 2, Lana = 2} -- Assume NFC
		local attha_len = {Latn = 5, Sinh = 4}
		eyya_len = {Mymr = 3, Sinh = 5}
		local alen
		if impl == 'no' and (sc == 'Thai' or sc == 'Laoo') then
			alen = 1
		else
			alen = 0
		end
		local way = {
			["ati"]  = {pseudostem = "kati", ndel = 2 + alen},
			["heti"]  = {pseudostem = "heti", ndel = 3}, -- Tricky code
			["iti"]  = {pseudostem = "kiti", ndel = 3},
			["ate"]  = {pseudostem = "kate", ndel = 2 + alen},
			["ā"]    = {pseudostem = "kā", ndel = 1},
			["atha"] = {pseudostem = "katha", ndel = 1 + 2 * alen},
			["kāhiti"]  = {pseudostem = "kāhiti", ndel = 5}, --Tricky code
			void = {pseudostem = "ku", ndel = 1}, -- rhubarb
		}
		way = way[ending]
		if way then
			pat[sc] = convert_suffixes(way.pseudostem, way.ndel, pat, sc,
									   impl, yopt)
			if ending == 'etha' then
				debug_outer=debug_outer..'tr:'..pat[sc][1][1]
			end
		else
			error('Cannot convert derivations from suffix '..ending..' for '..sc)
		end
		return pat[sc]
	end
end

function export.future_forms(cite, args, subset)
	currentScript =	lang:findBestScript(cite)
	scriptCode = currentScript:getCode()
	local latinise = nil
	if scriptCode == "None" and args.sc then -- Resort to sc
		scriptCode = args["sc"]
		currentScript = m_scripts.getByCode(scriptCode, "No such script as "..scriptCode)
		latinise = currentScript
		augment[scriptCode] = to_script("a", scriptCode)
	end
	if subset then args = export.parse(args) end
	args = export.futureParse(args, subset)
	args.cite = arrcat_nodup({cite}, args.cite)
	local debug = '\n\nAt (1), args.cite = '..table.concat(args.cite, ' ')
	local patpa, patpm, basepa, basepm
	local parts = {}
	local option = {}
	option.aa = args.aa

-- Handle future tense.  This forms a base for others.
	local ending = export.detectFutureEnding(cite, latinise)
	patpa = export.getFutureSuffixes(scriptCode, ending, nil, args)
	basepa = cite
	local mset = nil
	local forBoth = false
	local aset = args.cite
	local voice = "both"
	if 'e' == asub(ending, -1) then -- No active inflection
		patpm = patpa
		patpa = nil
		basepm = cite
		aset = nil
		mset = args.cite
		voice = "midl"
	elseif args.midl and args.midl[1] then
		basepm = args.midl[1]
		mset = args.midl
		local midend = export.detectFutureEnding(basepm, latinise)
		patpm = future_pattern[midend].mid and
				export.getFutureSuffixes(scriptCode, future_pattern[midend].mid, nil, args)
	elseif args.voice == 'act' then
		patpm = nil
		voice = "act"
	else
		patpm = future_pattern[ending].mid and
				export.getFutureSuffixes(scriptCode, future_pattern[ending].mid, nil, args)
		basepm = cite
		forBoth = true
		mset = args.cite
	end
	local formsa = nil
	local formsm = nil
	if patpa then
		formsa = export.joinSuffixes(scriptCode, basepa, patpa, option)
		for k = 2, #aset do
			basepa = aset[k]
			patpa = export.getFutureSuffixes(
				scriptCode, export.detectFutureEnding(basepa, latinise), nil, args)
			local extras = export.joinSuffixes(scriptCode, basepa, patpa, option)
			for ip = 1, 6 do
				formsa[ip] = arrcat_nodup(formsa[ip], extras[ip])
			end
		end
	end
	if patpm or forBoth then
		if patpm then
			formsm = export.joinSuffixes(scriptCode, basepm, patpm, option)
		else
			formsm = {{}, {}, {}, {}, {}, {}}
		end
		for k = 2, #mset do
			basepm = mset[k]
			local kend = export.detectFutureEnding(basepm, latinise)
			kend = future_pattern[kend].mid
			if kend then
				patpm = export.getFutureSuffixes(scriptCode, kend, nil, args)
				local extras = export.joinSuffixes(scriptCode, basepm, patpm, option)
				for ip = 1, 6 do
					formsm[ip] = arrcat_nodup(formsm[ip], extras[ip])
				end
			end
		end
	end
	if args.voice == "act" or args.voice == "both" then
		-- handled already
	elseif args.voice == "none" then
		formsa = nil
		formsm = nil
		voice = "none"
	elseif args.voice then
		error('Argument voice has bad value "'..args.voice..'.')
	end
	formsa, formsm = export.modify(formsa, formsm, '', args)

	parts.futua = formsa
	parts.futum = formsm

-- Form conditional from future.
	local aug
	if args["impl"] == 'no' then
		aug = augment_alph[scriptCode] or augment[scriptCode]
	else
		aug = augment[scriptCode]
	end
--	error("impl="..tostring(args["impl"]).." aug="..aug)
--	error("impl="..tostring(args["impl"]).." aug="..aug.." aset="..tostring(aset[1])..
--		" args.augment="..args.augment)
	args.cond_voice = args.cond_voice or voice
--	error("args.cond_voice="..tostring(args.cond_voice))
	cond = {}
	if (args.cond_voice ~= 'none') then
		if args.augment == 'without' then
			if aset then cond = aset end
		elseif args.augment == 'with_made' then
			if aset then
				for k = 1, #aset do
					cond[k] = aug .. aset[k]
				end
			end
		elseif args.augment == 'with_given' then
			cond = args.cond
		elseif args.augment == 'both_made' then
			if aset then
				for k = 1, #aset do
					cond[k] = aug .. aset[k]
				end
				for k = 1, #aset do
					cond[#aset+k] = aset[k]
				end
			end
		elseif args.augment == 'both_given' then
			cond = arrcat_nodup(args.cond or {}, aset or {})
		else
			error('Argument augment has bad value "'..args.augment..'".')
		end
	end
--	mw.addWarning('args.cite[1]='..args.cite[1]..', args.cond_voice='..args.cond_voice)
	if (args.cond_voice == 'both' or args.cond_voice == 'act')
	then
		formsa = {{}, {}, {}, {}, {}, {}}
		for k = 1, #cond do
			kend = export.detectFutureEnding(cond[k], latinise)
			patma = export.getFutureSuffixes(scriptCode, kend, 'conditional', args)
			if patma then
				local extras = export.joinSuffixes(scriptCode, cond[k], patma, option)
				for ip = 1, 6 do
					formsa[ip] = arrcat_nodup(formsa[ip], extras[ip])
				end
			end
		end
	elseif (args.cond_voice == 'none' or args.cond_voice == 'midl') then
		formsa = nil
	else
		error('Argument cond_voice has bad value "'..args.cond_voice..'".')
	end
	if (args.cond_voice == 'both' or args.cond_voice == 'midl')
	then
		formsm = {{}, {}, {}, {}, {}, {}}
		if not forBoth then
			cond = {}
			if args.augment == 'without' then
				cond = mset
			elseif args.augment == 'with_made' then
				for k = 1, #mset do
					cond[k] = aug .. mset[k]
				end
			elseif args.augment == 'with_given' then
				cond = args.midl and args.midl[1] and args.cond_midl or args.cond
			elseif args.augment == 'both_made' then
				for k = 1, #mset do
					cond[k] = aug .. mset[k]
				end
				for k = 1, #mset do
					cond[#mset+k] = mset[k]
				end
			elseif args.augment == 'both_given' then
				cond = arrcat_nodup(
					args.midl and args.midl[1] and (args.cond_midl or {}) or
					args.cond or {},
					mset or {})
			else
				error('Argument augment has bad value "'..args.augment..'".')
			end
		end
		for k = 1, #cond do
			kend = export.detectFutureEnding(cond[k], latinise)
			debug=debug..'\n\nAt (7) cond[k]='..cond[k]
			if forBoth then
	    		if future_pattern[kend].mid then
	    			kend = future_pattern[kend].mid
	    		elseif kend == "eti" then
	    			kend = nil
				else
					mw.addWarning('No middle endings for ending "'..kend..'".')
	    			kend = nil
	    		end
			end
			local pat = kend and export.getFutureSuffixes(scriptCode, kend, 'conditional', args)
			if not kend then
				-- nothing to do
			elseif pat then
				local extras = export.joinSuffixes(scriptCode, cond[k], pat, option)
				for ip = 1, 6 do
					formsm[ip] = arrcat_nodup(formsm[ip], extras[ip])
				end
			else
				mw.addWarning('No conditional middle suffixes for '..cond[k]..
					' ('..kend..')')
			end
		end
	else
		formsm = nil
	end
	formsa, formsm = export.modify(formsa, formsm, 'cond_', args)
	parts.conda = formsa
	parts.condm = formsm

--	List present participles.
	local pap, pmp = {}, {}
	args.part_voice = args.part_voice or voice
	if args.part_voice == 'both' or args.part_voice == 'act' then
		if voice == 'both' or voice == 'act' then
			for k = 1, aset and #aset or 0 do
				local kend = export.detectFutureEnding(aset[k], latinise)
				local pat = kend and export.getFutureSuffixes(scriptCode, kend, "participle", args)
				if pat then
					local extra = export.joinSuffix(scriptCode, aset[k], pat[1])
					pap = arrcat_nodup(pap, extra)
				end
			end
		end
		if args.fap_mod == 'blank' then
			pap = {}
		elseif args.fap_mod == 'after' then
			pap = arrcat_nodup(pap, args.fap)
		elseif args.fap_mod == 'before' then
			pap = arrcat_nodup(args.fap, pap)
		elseif args.fap_mod == 'replace' then
			pap = args.fap
		else
			error('Argument fap_mod has invalid value '..args.fap_mod)
		end
		parts.fap = pap
	elseif args.part_voice == 'midl' or args.part_voice == 'none' then
		-- permissible
	else
		error('Argument part_voice has invalid value '..tostring(args.part_voice))
	end
	if args.part_voice == 'both' or args.part_voice == 'midl' then
		local list
		local from_active = forBoth or voice == 'act'
		if from_active then
			list = aset
		else
			list = mset
		end
		for k = 1, list and #list or 0 do
			local kend = export.detectFutureEnding(list[k], latinise)
			if from_active then kend = future_pattern[kend].mid end
			local pat = kend and export.getFutureSuffixes(scriptCode, kend, "participle", args)
			if pat then
--				if 2 == k then
--					error("k="..k.."list[k]="..list[k])
--				end
				local extra = export.joinSuffix(scriptCode, list[k], pat[1])
				pmp = arrcat_nodup(pmp, extra)
			end
		end
		if args.fmp_mod == 'blank' then
			pmp = {}
		elseif args.fmp_mod == 'after' then
			pmp = arrcat_nodup(pmp, args.fmp)
		elseif args.fmp_mod == 'before' then
			pmp = arrcat_nodup(args.fmp, pmp)
		elseif args.fmp_mod == 'replace' then
			pmp = args.fmp
		else
			error('Argument fmp_mod has invalid value '..args.fmp_mod)
		end
		parts.fmp = pmp
	end

	-- parts.debug = debug..'\n\n'..debug_outer
	return parts
end

function export.show_future(frame)
	local args = mw.clone(frame:getParent().args)
	local cite = args[1] or args["cite"] -- or mw.title.getCurrentTitle().text
	local xo = {impl = args.impl, y = args.y, showtr = args.showtr, subst = args.subst}
	local parts = export.future_forms(cite, args, false)
	local label = args.label or cite
	return export.present_future(label, currentScript, parts, xo)
end

return export