မဝ်ဂျူ:tru-translit

This is the unit-testing module for Module:tru-translit.

All tests passed. (refresh)

testcases for tr function in Module:tru-translit:

	လိက်	ဗွဲမရံၚ်လၟဳ	မဇေတ်ဍာံ	ဒၞာဲတၞဟ်ခြာ
	ܐܰܕܡܐ	admo	admo
	ܐܰܒܪܐ	abro	abro
	ܐܰܕ݂ܢܐ	aḏno	aḏno
	ܐܷܫܬܐ	ëšto	ëšto
	ܫܰܘܥܐ	šawco	šawco
	ܬܡܰܢܝܐ	tmanyo	tmanyo
	ܬܷܫܥܐ	tëšco	tëšco
	ܚܰܡܫܐ	ḥamšo	ḥamšo
	ܐܰܪܒܥܐ	arbco	arbco
	ܬܠܳܬ݂ܐ	tloṯo	tloṯo
	ܬܪܶܐ	tre	tre
	ܚܰܐ	ḥa	ḥa
	ܬܡܝܢܳܝܐ	tminoyo	tminoyo
	ܕܰܬ ܬܡܰܢܝܐ	dat tmanyo	dat tmanyo
	ܬܡܳܢܰܥܣܰܪ	tmonacsar	tmonacsar
	ܐܰܕܥܰܨܪܝـܝܶܐ	adcaṣriye	adcaṣriye
	ܐܰܕܠܰܠܝܐ	adlalyo	adlalyo
	ܐܰܕܨܰܦܪܐ	adṣafro	adṣafro
	ܐܰܕܝܰܘܡܰܐ	adyawma	adyawma
	ܐܰܬ݂ܡܷܠ	aṯmël	aṯmël
	ܐܰܬ݂ܝܳܢܐ	aṯyono	aṯyono
	ܐܰܙܙܝ	azzi	azzi
	ܒܰܛܝܠܶܐ ܢܶܐ	baṭile ne	baṭile ne
	ܒܢܳܝܐ	bnoyo	bnoyo
	ܕܰܪܓ݂ܶܐ	darġe	darġe
	ܕܘܥܪܝܢܰܐ	ducrina	ducrina
	ܕܘܪܳܫܶܐ ܓܘܫܡܳܢܳܝܶܐ	duroše gušmonoye	duroše gušmonoye
	ܦܰܠܩܐ	falqo	falqo
	ܠܰܫܰܢ	lašan	lašan
	ܡܶܐ ܙܰܒܢܐ ܠܙܰܒܢܐ	me zabno lzabno	me zabno lzabno
	ܩܷܛܪܐ	qëṭro	qëṭro
	ܣܚܳܝܐ	sḥoyo	sḥoyo
	ܬܰܡܐ	tamo	tamo
	ܘܰܥܕܐ	wacdo	wacdo
	ܙܰܒܢܐ	zabno	zabno
	ܢܚܝܪܐ	nḥiro	nḥiro
	ܢܳܫܐ	nošo	nošo
	ܪܝܫܐ	rišo	rišo
	ܫܰܒܬ݂ܐ	šabṯo	šabṯo
	ܐܘܥܕܐ	ucdo	ucdo
	ܘܳܠܝܬ݂ܐ	woliṯo	woliṯo
	ܙܥܘܪܐ	zcuro	zcuro
	ܙܥܘܪܬܐ	zcurto	zcurto
	ܕܰܫܷܫܬܐ	dašëšto	dašëšto
	ܥܷܢܘܶܐ	cënwe	cënwe
	ܨܷܪܬܐ	ṣërto	ṣërto
	ܘܰܟ݂ܰܡ	waxam	waxam
	ܙܷܒܕܐ	zëbdo	zëbdo
	ܐܰܝ ܝܰܘܡܰܢܝ	ay yawmani	ay yawmani
	ܫ̰ܰܢܛܰܐ	čanṭa	čanṭa
	ܙ̰ܱܒܰܫܶܐ	žäbaše	žäbaše
	ܙܱ̰ܒܰܫܶܐ	žäbaše	žäbaše
	ܦ݁ܠܰܢ	plan	plan
	ܒ݂ܝܠܠܰܐ	villa	villa
	ܐܳܢܳܐ	ono	ono
	ܗܰܬܘ	hatu	hatu
	ܐܝـܝܰܪ	iyar	iyar
	ܐܰܘ	aw	aw
	”ܝܐ.“	“yo.”	“yo.”
	ܒܷܬ݂ܷܪ	bëṯër	bëṯër
	ܒܷܬܷ݂ܪ	bëṯër	bëṯër
	ܐܰܘܪܘܦ݁ܰܐ	awrupa	awrupa
	ܐܰܘܪܘܦܰ݁ܐ	awrupa	awrupa
	(ܣܘܪܝܳܝܐ)	(suryoyo)	(suryoyo)
	ܣܘܪܝܳܝܐ܆	suryoyo;	suryoyo;
	ܡܳܪܝ	mor	mor
	ܕܡܳܪܝ	dmor	dmor
	ܛܒܷܥܥܶܗ	ṭbëceh	ṭbëceh
	ܦܬܷܚܚܶܗ	ftëḥeh	ftëḥeh
	ܘܡܰܠܘܰܫܫܶܗ	umalwašeh	umalwašeh
	ܝܘܠܦܳܢܰܬ݂ܬ݂ܶܗ	yulfonaṯeh	yulfonaṯeh
	ܡܰܠܰܟ݂ܟ݂ܶܗ	malaxeh	malaxeh
	ܡ̈ܶܠܐ	melo	melo

---

local export = {}

local U = mw.ustring.char
local U = mw.ustring.char
local rsub = mw.ustring.gsub

local rbasa_below = U(0x737)
local pthaha_below = U(0x731)
local rbasa = U(0x736)
local zqapha = U(0x733)
local pthaha = U(0x730)
local vowel_diacritics_capture = "([" .. rbasa_below .. pthaha_below .. rbasa .. zqapha .. pthaha .. "])"

-- we declare consonants representing vowels (matres lectionis) as constants to mitigate differences in how mixing
-- right-to-left and left-to-right characters in the same line appears in an IDE vs wiktionary.  Since matres is used in
-- concatenation via the .. operator,  "ܘ" .. "ܐ" on wiktionary would render as "ܐ" .. "ܘ" in an IDE
local alaph = U(0x710)
local waw = U(0x718)
local yudh = U(0x71D)

local combining_diaeresis = U(0x308)
local combining_tilde_below = U(0x330)
local qushshaya = U(0x741)
local rukkakha = U(0x742)

local tt_transpose_punc = {
	-- left/right single/double quotes
	["“"] = "”",
	["”"] = "“",
	["‘"] = "’",
	["’"] = "‘",
	["؟"] = "?", -- question mark
	["«"] = '“', -- quotation mark
	["»"] = '”', -- quotation mark
	["،"] = ",", -- comma
	["؛"] = ";", -- semicolon
	-- skewed colons from https://r12a.github.io/scripts/syrc/tru.html#phrase
	["܇"] = ',',
	["܆"] = ';'
}

local tt_transpose_punc_keys = ''
for key, _ in pairs(tt_transpose_punc) do tt_transpose_punc_keys = tt_transpose_punc_keys .. key end

local fix = {
	{ vowel_diacritics_capture .. qushshaya, qushshaya .. "%1" },
	{ vowel_diacritics_capture .. rukkakha, rukkakha .. "%1" },
	{ vowel_diacritics_capture .. combining_tilde_below, combining_tilde_below .. "%1" },
	-- partition punctuation marks so "starts with" and "ends with" substitutions work
	{"([".. tt_transpose_punc_keys .. "()!.:\"'])", "#%1#"},
}

local tt = {
	["ܦ"] = "f", ["ܒ"] = "b", ["ܬ"] = "t", ["ܛ"] = "ṭ", ["ܕ"] = "d", ["ܟ"] = "k",
	["ܓ"] = "g", ["ܩ"] = "q", ["ܔ"] = "j", ["ܣ"] = "s", ["ܨ"] = "ṣ", ["ܙ"] = "z",
	["ܫ"] = "š", ["ܚ"] = "ḥ", ["ܥ"] = "c", ["ܗ"] = "h", ["ܡ"] = "m", ["ܢ"] = "n",
	["ܪ"] = "r", ["ܠ"] = "l",
}

local tt_next = {
	[waw] = "w",
	[yudh] = "y",

	[rbasa_below] = "ë",
	[pthaha_below] = "ä",
	[rbasa] = "e",
	[zqapha] = "o",
	[pthaha] = "a",
}

local consonants = "fbtṭdkgqjsṣzšḥchmnrlvžpvṯḏxġ" .. yudh .. waw
local consonants_group = "([" .. consonants .. "])"

local special_cases = {
	-- { matching_aii_text, latin_substitution }
	--
	-- the # symbol pads the start and end of a word, consider the follow examples for matching_aii_text
	-- #float#    only float matches
	-- #float     words starting with float like float or floats match
	-- float#     words ending with float like float or afloat match
	-- float      words containing float like float, floats, afloat and refloats match
	{"ܡܳܪܝ#", "mor#"},
}

function export.tr(text, lang, sc)

	text = rsub(text, " | ", "# | #")
	text = "##" .. rsub(text, " ", "# #") .. "##"
	text = rsub(text, "ـ", "")
	text = rsub(text, combining_diaeresis, "")
	for _, sub in ipairs(fix) do text = rsub(text, unpack(sub)) end

	-- Special cases
	for _, sub in ipairs(special_cases) do text = rsub(text, unpack(sub)) end

	text = rsub(text, "ܫ" .. combining_tilde_below, "č")
	text = rsub(text, "ܙ" .. combining_tilde_below, "ž")

	text = rsub(text, "ܦ" .. qushshaya, "p")

	text = rsub(text, "ܒ" .. rukkakha, "v")
	text = rsub(text, "ܬ" .. rukkakha, "ṯ")
	text = rsub(text, "ܕ" .. rukkakha, "ḏ")
	text = rsub(text, "ܟ" .. rukkakha, "x")
	text = rsub(text, "ܓ" .. rukkakha, "ġ")

	text = rsub(text, ".", tt_transpose_punc)
	text = rsub(text, ".", tt)

	text = rsub(text, consonants_group .. waw .. consonants_group, "%1u%2")
	text = rsub(text, consonants_group .. yudh .. consonants_group, "%1i%2")
	text = rsub(text, "#" .. waw .. consonants_group, "#u%1")
	text = rsub(text, "#" .. yudh .. consonants_group, "#i%1") -- this needs a test case

	text = rsub(text, alaph .. pthaha ..  waw .. "#", "#aw")
	text = rsub(text, alaph .. pthaha .. yudh .. "#", "#ay")

	text = rsub(text, "#" .. alaph .. waw, "#u")
	text = rsub(text, "#" .. alaph .. yudh, "#i")

	text = rsub(text, waw .. "#", "u#")
	text = rsub(text, yudh .. "#", "i#")

	text = rsub(text, pthaha .. alaph .. "#", "a#")
	text = rsub(text, rbasa .. alaph .. "#", "e#")
	text = rsub(text, zqapha .. alaph .. "#", "o#")
	text = rsub(text, alaph .. "#", "o#")
	text = rsub(text, alaph, "")

	text = rsub(text, ".", tt_next)

	text = rsub(text, "cc", "c")
	text = rsub(text, "ḥḥ", "ḥ")
	text = rsub(text, "šš", "š")
	text = rsub(text, "ṯṯ", "ṯ")
	text = rsub(text, "xx", "x")

	text = rsub(text, "#", "")

	return text
end

return export