Module:mtev-pronunc - Revision history

Melinoë at 03:23, 6 June 2026

2026-06-06T03:23:42Z

← Older revision		Revision as of 03:23, 6 June 2026
Line 112:		Line 112:
	local tt = {		local tt = {
	-- vowels		-- vowels
	["अ"] = "ɐ", ["आ"] = "ɑː", ["इ"] = "i", ["ई"] = "iː", ["उ"] = "u", ["ऊ"] = "uː~~", ["ऋ"] = "r̩", ["ॠ"] = "r̩ː~~",		["अ"] = "ɑ", ["आ"] = "ɑː", ["इ"] = "i", ["ई"] = "iː", ["उ"] = "u", ["ऊ"] = "uː",
	~~["ऌ"] = "l̩", ["ॡ"] = "l̩ː",~~ ["ए"] = "ɐj", ["ऐ"] = "~~ɑːj~~", ["ओ"] = "ɐw", ["औ"] = "~~ɑːw~~",		["ए"] = "e", ["ऐ"] = "eː", ["ओ"] = "o", ["औ"] = "oː",
	-- visarga		-- visarga
	["ः"] = "h",		["ः"] = "h",
Line 124:		Line 124:
	--Vedic extensions		--Vedic extensions
	['ᳵ'] = "x", ['ᳶ'] = "ɸ",		['ᳵ'] = "x", ['ᳶ'] = "ɸ",
	}

	~~local accent_vowel = {~~
	~~["ɐ"] = "ɐ́", ["ɑː"] = "ɑ́ː", ["i"] = "í", ["iː"] = "íː", ["u"] = "ú", ["uː"] = "úː", ["r̩"] = "ŕ̩", ["r̩ː"] = "ŕ̩ː",~~
	~~["l̩"] = "ĺ̩", ["l̩ː"] = "ĺ̩ː", ["ɐj"] = "ɐ́j", ["ɑːj"] = "ɑ́ːj", ["ɐw"] = "ɐ́w", ["ɑːw"] = "ɑ́ːw",~~
	}		}

Line 203:		Line 198:

	-- it is not necessary to include 'l' in the pattern for short vowels as it doesn't occur as a vowel in syllable coda and as consonantal 'l' would then be erroneously included		-- it is not necessary to include 'l' in the pattern for short vowels as it doesn't occur as a vowel in syllable coda and as consonantal 'l' would then be erroneously included
	local short_vowel_patt = "^[~~ɐiur~~]" .. SYLLABIC .. "?" .. ACUTE .. "?$"		local short_vowel_patt = "^[ɑiur]" .. SYLLABIC .. "?" .. ACUTE .. "?$"

	-- Classic stress accent		-- Classic stress accent
Line 259:		Line 254:
	text = gsub(		text = gsub(
	text,		text,
	"([~~ɐɑiurleo~~])(" .. SYLLABIC .. "?)(" .. ACUTE .. "?)(ː?)([jw]?)ṃ",		"([ɑiurleo])(" .. SYLLABIC .. "?)(" .. ACUTE .. "?)(ː?)([jw]?)ṃ",
	"%1%2" .. NASAL .. "%3%4%5"		"%1%2" .. NASAL .. "%3%4%5"
	)		)
Line 276:		Line 271:
	table.insert(t, consonants[c])		table.insert(t, consonants[c])
	if not diacritics[chars[i + 1]] then		if not diacritics[chars[i + 1]] then
	table.insert(t, "ɐ")		table.insert(t, "ɑ")
	end		end
	elseif c == "्" then		elseif c == "्" then
Line 294:		Line 289:
	word = gsub(word, "ɭ̆([.']?)ɦ", "%1ɭ̆ʱ")		word = gsub(word, "ɭ̆([.']?)ɦ", "%1ɭ̆ʱ")

	~~-- chandrabindu~~
	~~word = gsub(~~
	~~word,~~
	~~"([ɐɑiurleo])(" .. SYLLABIC .. "?)(" .. ACUTE .. "?)(ː?)([jw]?)m̐",~~
	~~"%1%2" .. NASAL .. "%3%4%5"~~
	)
	return word		return word
	end		end
Line 349:		Line 338:

	local superscript = {		local superscript = {
	~~["ɐ"] = "ɐ̆",~~
	["ɑ"] = "ɑ̆",		["ɑ"] = "ɑ̆",
	["e"] = "ĕ",		["e"] = "ĕ",
Line 364:		Line 352:
	-- Classical		-- Classical
	local cla_phnm = text		local cla_phnm = text
	cla_phnm = gsub(cla_phnm, "[~~éóíúŕĺ~~" .. ACUTE .. "]", {		cla_phnm = gsub(cla_phnm, "[éóíú" .. ACUTE .. "]", {
	["é"] = "e", ["ó"] = "o", ["í"] = "i", ["ú"] = "u",		["é"] = "e", ["ó"] = "o", ["í"] = "i",
	~~["ŕ"] = "r", ["ĺ"] = "l~~", [ACUTE] = ""		["ú"] = "u", [ACUTE] = ""
	})		})
	~~cla_phnm = gsub(cla_phnm, "ɐ(" .. NASAL .. "?)j", "e%1ː")~~
	~~cla_phnm = gsub(cla_phnm, "ɐ(" .. NASAL .. "?)w", "o%1ː")~~
	~~cla_phnm = gsub(cla_phnm, "ɑ(" .. NASAL .. "?)ː([jw])", "ɑ%1%2")~~

	-- Add dental diacritic to t, d, tʰ, dʱ, n, l, s.		-- Add dental diacritic to t, d, tʰ, dʱ, n, l, s.
	cla_phnm = gsub(		cla_phnm = gsub(
Line 385:		Line 370:

	local cla_phnt = abhinidhana_phonetic(cla_phnm)		local cla_phnt = abhinidhana_phonetic(cla_phnm)
	~~-- cla_pron = gsub(cla_pron, "r̩(" .. NASAL .. "?)(" .. ACUTE .. "?)(ː?)", "ɾi%1%2%3")~~
	~~-- cla_pron = gsub(cla_pron, "l̩(" .. NASAL .. "?)(" .. ACUTE .. "?)(ː?)", "l̪i%1%2%3")~~

	cla_phnt = gsub(		cla_phnt = gsub(
	cla_phnt,		cla_phnt,
	"([~~ɐɑeoiu~~])(" .. NASAL .. "?)(ː?)([jw]?)h$",		"([ɑeoiu])(" .. NASAL .. "?)(ː?)([jw]?)h$",
	function (vow, nas, length, glide)		function (vow, nas, length, glide)
	return vow .. nas .. length .. glide .. "h" .. superscript[vow]		return vow .. nas .. length .. glide .. "h" .. superscript[vow]
Line 397:		Line 380:
	cla_phnt = gsub(		cla_phnt = gsub(
	cla_phnt,		cla_phnt,
	"([~~ɐɑeoiu~~])(" .. NASAL .. "?)(ː?)([jw]?)h ",		"([ɑeoiu])(" .. NASAL .. "?)(ː?)([jw]?)h ",
	function (vow, nas, length, glide)		function (vow, nas, length, glide)
	return vow .. nas .. length .. glide .. "h" .. superscript[vow] .. " "		return vow .. nas .. length .. glide .. "h" .. superscript[vow] .. " "

Melinoë at 03:16, 6 June 2026

2026-06-06T03:16:46Z

← Older revision		Revision as of 03:16, 6 June 2026
Line 412:		Line 412:
	end		end

	local function make_table(dialects~~, novedic~~, noclassical, nolabel)		local function make_table(dialects, noclassical, nolabel)
	local dial_types = {~~'rig',~~ 'cla'}		local dial_types = {'cla'}

	~~if novedic then~~
	~~table.remove(dial_types, 1)~~
	~~end~~

	if noclassical then		if noclassical then
Line 470:		Line 466:
	w = {default = mw.loadData("Module:headword/data").pagename},		w = {default = mw.loadData("Module:headword/data").pagename},
	a = {list = true, allow_holes = true, type = 'number'},		a = {list = true, allow_holes = true, type = 'number'},
	~~novedic = {type = 'boolean'},~~
	noclassical = {type = 'boolean'},		noclassical = {type = 'boolean'},
	nolabel = {type = 'boolean'},		nolabel = {type = 'boolean'},
Line 483:		Line 478:
	local dialects = make_dialects(text)		local dialects = make_dialects(text)

	return make_table(dialects~~, args.novedic~~, args.noclassical, args.nolabel)		return make_table(dialects, args.noclassical, args.nolabel)
	end		end

	return export		return export

Melinoë at 03:14, 6 June 2026

2026-06-06T03:14:26Z

← Older revision		Revision as of 03:14, 6 June 2026
Line 14:		Line 14:

	local m_IPA = require("Module:IPA")		local m_IPA = require("Module:IPA")
	local lang = require("Module:languages").getByCode("sa")		local lang = require("Module:languages").getByCode("mtev")
	local m_a = require("Module:accent qualifier")		local m_a = require("Module:accent qualifier")

Line 70:		Line 70:

	local vowel_list = {		local vowel_list = {
	["ɐ"] = true, ["ɑː"] = true, ["i"] = true, ["iː"] = true, ["u~~"] = true, ["uː"] = true, ["r̩"] = true, ["r̩ː~~"] = true,		["ɑ"] = true, ["ɑː"] = true, ["i"] = true, ["iː"] = true, ["u"] = true,
	["~~l̩"] = true, ["l̩ː~~"] = true, ["ɐj"] = true, ["~~ɑːj~~"] = true, ["ɐw"] = true, ["~~ɑːw~~"] = true,		["uː"] = true, ["e"] = true, ["eː"] = true, ["o"] = true, ["oː"] = true,
	}		}

Line 362:		Line 362:
	text = abhinidhana_phonemic(text)		text = abhinidhana_phonemic(text)

	~~-- Rigvedic Sanskrit~~		-- Classical
	~~local rig_phnm = text~~
	~~rig_phnm = gsub(rig_phnm, "^ˈ", "")~~
	~~rig_phnm = gsub(rig_phnm, "ˈ", ".")~~
	~~rig_phnm = gsub(rig_phnm, " %.", " ")~~

	~~local rig_phnt = abhinidhana_phonetic(rig_phnm)~~
	~~-- visarga alternation~~
	~~rig_phnt = gsub(rig_phnt, "h([ %.ˈ]?)([p])", "ɸ%1%2")~~
	~~rig_phnt = gsub(rig_phnt, "h([ %.ˈ]?)([k])", "x%1%2")~~
	~~-- nasalized semivowels~~
	~~rig_phnt = gsub(~~
	~~rig_phnt,~~
	~~"([ŋɲnɳm])(" .. DENTAL .. "?)([ %.ˈ]?)([lɭjʋ])([" .. DENTAL .. FLAP .. "]?)(ʱ?)",~~
	~~"%4%5" .. NASAL .. "%3%4%5%6"~~
	)

	~~dialects['rig'] = {~~
	~~label = "Vedic",~~
	~~phonemic = rig_phnm,~~
	~~phonetic = rig_phnt,~~
	}

	-- Classical ~~Sanskrit~~
	local cla_phnm = text		local cla_phnm = text
	cla_phnm = gsub(cla_phnm, "[éóíúŕĺ" .. ACUTE .. "]", {		cla_phnm = gsub(cla_phnm, "[éóíúŕĺ" .. ACUTE .. "]", {
Line 427:		Line 404:

	dialects['cla'] = {		dialects['cla'] = {
	label = "~~Classical Sanskrit~~",		label = "Middle Tevvic",
	phonemic = cla_phnm,		phonemic = cla_phnm,
	phonetic = cla_phnt,		phonetic = cla_phnt,

Melinoë: Created page with "local export = {} local u = require("Module:string/char") local gsub = mw.ustring.gsub local match = mw.ustring.match local ACUTE = u(0x0301) local COARTIC = u(0x0361) local DENTAL = u(0x032A) local FLAP = u(0x0306) local NORELEASE = u(0x031A) local SYLLABIC = u(0x0329) local NASAL = u(0x0303) local m_IPA = require("Module:IPA") local lang = require("Module:languages").getByCode("sa") local m_a = require("Module:accent qualifier") local consonants..."

2026-06-06T03:08:43Z

Created page with "local export = {} local u = require("Module:string/char") local gsub = mw.ustring.gsub local match = mw.ustring.match local ACUTE = u(0x0301) local COARTIC = u(0x0361) local DENTAL = u(0x032A) local FLAP = u(0x0306) local NORELEASE = u(0x031A) local SYLLABIC = u(0x0329) local NASAL = u(0x0303) local m_IPA = require("Module:IPA") local lang = require("Module:languages").getByCode("sa") local m_a = require("Module:accent qualifier") local consonants..."

New page

local export = {}

local u = require("Module:string/char")
local gsub = mw.ustring.gsub
local match = mw.ustring.match

local ACUTE = u(0x0301)
local COARTIC = u(0x0361)
local DENTAL = u(0x032A)
local FLAP = u(0x0306)
local NORELEASE = u(0x031A)
local SYLLABIC = u(0x0329)
local NASAL = u(0x0303)

local m_IPA = require("Module:IPA")
local lang = require("Module:languages").getByCode("sa")
local m_a = require("Module:accent qualifier")

local consonants = {
["क"] = "k",
["ग"] = "ɡ",
["ख"] = "kʰ",
["घ"] = "ɡʱ",
["ङ"] = "ŋ",
["च"] = "t͡ɕ",
["ज"] = "d͡ʑ",
["छ"] = "t͡ɕʰ",
["झ"] = "d͡ʑʱ",
["ञ"] = "ɲ",
["त"] = "t",
["द"] = "d",
["थ"] = "tʰ",
["ध"] = "dʱ",
["न"] = "n",
["ट"] = "ʈ",
["ड"] = "ɖ",
["ठ"] = "ʈʰ",
["ढ"] = "ɖʱ",
["ण"] = "ɳ",
["प"] = "p",
["ब"] = "b",
["फ"] = "pʰ",
["भ"] = "bʱ",
["म"] = "m",
["य"] = "j",
["र"] = "ɾ",
["ल"] = "l",
["व"] = "ʋ",
["श"] = "ɕ",
["ष"] = "ʂ",
["स"] = "s",
["ह"] = "ɦ",
["ज़"] = "z",
["झ़"] = "ʑ",
["ढ़"] = "ʐ",
}

local diacritics = {
["ा"] = "ɑː",
["ि"] = "i",
["ी"] = "iː",
["ु"] = "u",
["ू"] = "uː",
["े"] = "e",
["ै"] = "eː",
["ो"] = "o",
["ौ"] = "oː",
["्"] = "",
}

local vowel_list = {
["ɐ"] = true, ["ɑː"] = true, ["i"] = true, ["iː"] = true, ["u"] = true, ["uː"] = true, ["r̩"] = true, ["r̩ː"] = true,
["l̩"] = true, ["l̩ː"] = true, ["ɐj"] = true, ["ɑːj"] = true, ["ɐw"] = true, ["ɑːw"] = true,
}

local stop_list = {
["k"] = true, ["ɡ"] = true, ["kʰ"] = true, ["ɡʱ"] = true,
["t͡ɕ"] = true, ["d͡ʑ"] = true, ["t͡ɕʰ"] = true, ["d͡ʑʱ"] = true,
["t"] = true, ["d"] = true, ["tʰ"] = true, ["dʱ"] = true,
["ʈ"] = true, ["ɖ"] = true, ["ʈʰ"] = true, ["ɖʱ"] = true,
["p"] = true, ["b"] = true, ["pʰ"] = true, ["bʱ"] = true,
["z"] = true, ["ʑ"] = true, ["ʐ"] = true,
}

local consonant_sonority = {
-- voiceless stops and affricates
["k"] = 1, ["kʰ"] = 1,
["t͡ɕ"] = 1, ["t͡ɕʰ"] = 1,
["t"] = 1, ["tʰ"] = 1,
["ʈ"] = 1, ["ʈʰ"] = 1,
["p"] = 1, ["pʰ"] = 1,
-- voiceless fricatives
["ɕ"] = 2, ["ʂ"] = 2, ["s"] = 2, ["h"] = 2, ["x"] = 2, ["ɸ"] = 2,
-- voiced stops and affricates
["ɡ"] = 3, ["ɡʱ"] = 3,
["d͡ʑ"] = 3, ["d͡ʑʱ"] = 3,
["d"] = 3, ["dʱ"] = 3,
["ɖ"] = 3, ["ɖʱ"] = 3,
["b"] = 3, ["bʱ"] = 3,
-- voiced fricatives
["ɦ"] = 4,
-- nasals
["ŋ"] = 5, ["ɲ"] = 5, ["n"] = 5, ["ɳ"] = 5, ["m"] = 5, ["m̐"] = 5, ["ṃ"] = 5,
-- flaps
["ɾ"] = 6,
-- laterals
["l"] = 7, ["ɭ̆"] = 7, ["ɭ̆ʱ"] = 7,
-- glides
["j"] = 8, ["ʋ"] = 8,
}

local tt = {
-- vowels
["अ"] = "ɐ", ["आ"] = "ɑː", ["इ"] = "i", ["ई"] = "iː", ["उ"] = "u", ["ऊ"] = "uː", ["ऋ"] = "r̩", ["ॠ"] = "r̩ː",
["ऌ"] = "l̩", ["ॡ"] = "l̩ː", ["ए"] = "ɐj", ["ऐ"] = "ɑːj", ["ओ"] = "ɐw", ["औ"] = "ɑːw",
-- visarga
["ः"] = "h",
-- chandrabindu
["ँ"] = "m̐",
-- anusvara
["ं"] = "ṃ",
-- avagraha
['ऽ'] = "",
--Vedic extensions
['ᳵ'] = "x", ['ᳶ'] = "ɸ",
}

local accent_vowel = {
["ɐ"] = "ɐ́", ["ɑː"] = "ɑ́ː", ["i"] = "í", ["iː"] = "íː", ["u"] = "ú", ["uː"] = "úː", ["r̩"] = "ŕ̩", ["r̩ː"] = "ŕ̩ː",
["l̩"] = "ĺ̩", ["l̩ː"] = "ĺ̩ː", ["ɐj"] = "ɐ́j", ["ɑːj"] = "ɑ́ːj", ["ɐw"] = "ɐ́w", ["ɑːw"] = "ɑ́ːw",
}

local function shift_to_codas(syllables)
-- shift codas to previous syllable using the Weerasinghe-Wasala-Gamage method
local to_move = 0
for i, syll in ipairs(syllables) do
if i == 1 then
-- no need to shift to coda if in the first syllable
elseif #syll < 3 then
-- coda movement only needed for onset clusters of 2 or more
elseif #syll == 3 then
-- V.CCV => VC.CV
to_move = 1
elseif #syll == 4 then
if syll[#syll - 1] == "ɾ" or syll[#syll - 1] == "j" or (stop_list[syll[1]] and stop_list[syll[2]]) then
-- V.CCrV or V.CCyV => VC.CrV or VC.CyV
-- if the first two consonants are stops, VC.CCV
to_move = 1
else
-- V.CCCV => VCC.CV
to_move = 2
end
else
-- 4 consonants or more
if syll[#syll - 1] == "ɾ" or syll[#syll - 1] == "j" then
to_move = #syll - 3
else
-- find index of consonant of least sonority
to_move = #syll - 1
local min_son = consonant_sonority[syll[#syll - 1]]
for i = (#syll - 1), 1, -1 do
if consonant_sonority[syll[i]] < min_son then
to_move = i
min_son = consonant_sonority[syll[i]]
end
end
end
end

while to_move > 0 do
table.insert(syllables[i - 1], table.remove(syllables[i], 1))
to_move = to_move - 1
end
end
return syllables
end

local function syllabify(remainder, accent)
local syllables = {}
local syll = {}

while #remainder > 0 do
local phoneme = table.remove(remainder, 1)

if vowel_list[phoneme] then
table.insert(syll, phoneme)
table.insert(syllables, syll)
syll = {}
else
table.insert(syll, phoneme)
end
end
-- store whatever consonants remain
local final_cons = syll

-- Vedic pitch accent
if accent ~= nil and accent <= #syllables then
syll = syllables[accent]
syllables[accent][#syll] = accent_vowel[syll[#syll]]
end

syllables = shift_to_codas(syllables)

-- it is not necessary to include 'l' in the pattern for short vowels as it doesn't occur as a vowel in syllable coda and as consonantal 'l' would then be erroneously included
local short_vowel_patt = "^[ɐiur]" .. SYLLABIC .. "?" .. ACUTE .. "?$"

-- Classic stress accent
-- local num_sylls = #syllables
-- if num_sylls == 2 then
-- table.insert(syllables[1], 1, 'ˈ')
-- elseif num_sylls == 3 then
-- -- if the final segment of the second syllable is not a short vowel, stress the second syllable
-- if match(syllables[2][#syllables[2]], short_vowel_patt) == nil then
-- table.insert(syllables[2], 1, 'ˈ')
-- -- else stress the third
-- else
-- table.insert(syllables[1], 1, 'ˈ')
-- end
-- elseif num_sylls >= 4 then
-- if match(syllables[num_sylls - 1][#syllables[num_sylls - 1]], short_vowel_patt) == nil then
-- table.insert(syllables[num_sylls - 1], 1, 'ˈ')
-- elseif match(syllables[num_sylls - 2][#syllables[num_sylls - 2]], short_vowel_patt) == nil then
-- table.insert(syllables[num_sylls - 2], 1, 'ˈ')
-- else
-- table.insert(syllables[num_sylls - 3], 1, 'ˈ')
-- end
-- end

-- If there are phonemes left, then the word ends in a consonant
-- Add them to the last syllable
for _, phoneme in ipairs(final_cons) do
table.insert(syllables[#syllables], phoneme)
end

for i, _ in ipairs(syllables) do
syllables[i] = table.concat(syllables[i], "")
end

return table.concat(syllables, ".")
end

local anu_to_nasals = {
["k"] = "ŋ", ["ɡ"] = "ŋ", ["ŋ"] = "ŋ",
["t͡ɕ"] = "ɲ", ["d͡ʑ"] = "ɲ", [""] = "ɲ",
["t"] = "n", ["d"] = "n", ["n"] = "n",
["ʈ"] = "ɳ", ["ɖ"] = "ɳ", ["ɳ"] = "ɳ",
["p"] = "m", ["b"] = "m", ["m"] = "m",
}

local function anusvara(text)
text = gsub(text, "ṃ$", "m")
text = gsub(
text,
"ṃ([ %.ˈ]?)([kɡtdnʈɖpbm])([" .. DENTAL .. COARTIC .. "]?)([ɕʑ]?)",
function(div, cons, mark, fric)
return anu_to_nasals[cons .. mark .. fric] .. div .. cons .. mark .. fric
end
)
text = gsub(
text,
"([ɐɑiurleo])(" .. SYLLABIC .. "?)(" .. ACUTE .. "?)(ː?)([jw]?)ṃ",
"%1%2" .. NASAL .. "%3%4%5"
)
text = gsub(text, "ṃ", "ɴ")
return text
end

local function convert_word(word, accent)
local chars = {}
local t = {}

gsub(word, ".", function(c) table.insert(chars, c) end)

for i, c in ipairs(chars) do
if consonants[c] then
table.insert(t, consonants[c])
if not diacritics[chars[i + 1]] then
table.insert(t, "ɐ")
end
elseif c == "्" then
-- do nothing
elseif diacritics[c] then
table.insert(t, diacritics[c])
elseif tt[c] then
table.insert(t, tt[c])
end
end

word = syllabify(t, accent)

word = gsub(word, "%.ˈ", "ˈ")

-- correction for ळ्ह = ɭ̆ʱ
word = gsub(word, "ɭ̆([.']?)ɦ", "%1ɭ̆ʱ")

-- chandrabindu
word = gsub(
word,
"([ɐɑiurleo])(" .. SYLLABIC .. "?)(" .. ACUTE .. "?)(ː?)([jw]?)m̐",
"%1%2" .. NASAL .. "%3%4%5"
)
return word
end

local function convert_words(words, accents)
local result = {}

local word_num = 1
for word in mw.text.gsplit(words, " ") do
table.insert(result, convert_word(word, accents[word_num]))
word_num = word_num + 1
end

text = table.concat(result, " ")

return text
end

local function phon_procs(text)
-- Anusvāra
text = anusvara(text)

return text
end

local function abhinidhana_phonemic(text)
--de-aspirate and de-affricate before stops
text = gsub(
text,
"([kɡtdʈɖpb])(" .. DENTAL .. "?)[ʰʱ]?([ %.ˈ]?)([kɡtdʈɖpb])",
"%1%2%3%4"
)
text = gsub(
text,
"([td])" .. COARTIC .. "[ɕʑ][ʰʱ]?([ %.ˈ]?)([kɡtdʈɖpb])",
"%1%2%3"
)
return text
end

local function abhinidhana_phonetic(text)
text = gsub(
text,
"([kɡtdʈɖpb])(" .. DENTAL .. "?)([ %.ˈ]?)([kɡtdʈɖpb])",
"%1%2" .. NORELEASE .. "%3%4"
)
return text
end

local superscript = {
["ɐ"] = "ɐ̆",
["ɑ"] = "ɑ̆",
["e"] = "ĕ",
["o"] = "ŏ",
["i"] = "ĭ",
["u"] = "ŭ",
}

local function make_dialects(text)
local dialects = {}

text = abhinidhana_phonemic(text)

-- Rigvedic Sanskrit
local rig_phnm = text
rig_phnm = gsub(rig_phnm, "^ˈ", "")
rig_phnm = gsub(rig_phnm, "ˈ", ".")
rig_phnm = gsub(rig_phnm, " %.", " ")

local rig_phnt = abhinidhana_phonetic(rig_phnm)
-- visarga alternation
rig_phnt = gsub(rig_phnt, "h([ %.ˈ]?)([p])", "ɸ%1%2")
rig_phnt = gsub(rig_phnt, "h([ %.ˈ]?)([k])", "x%1%2")
-- nasalized semivowels
rig_phnt = gsub(
rig_phnt,
"([ŋɲnɳm])(" .. DENTAL .. "?)([ %.ˈ]?)([lɭjʋ])([" .. DENTAL .. FLAP .. "]?)(ʱ?)",
"%4%5" .. NASAL .. "%3%4%5%6"
)

dialects['rig'] = {
label = "Vedic",
phonemic = rig_phnm,
phonetic = rig_phnt,
}

-- Classical Sanskrit
local cla_phnm = text
cla_phnm = gsub(cla_phnm, "[éóíúŕĺ" .. ACUTE .. "]", {
["é"] = "e", ["ó"] = "o", ["í"] = "i", ["ú"] = "u",
["ŕ"] = "r", ["ĺ"] = "l", [ACUTE] = ""
})
cla_phnm = gsub(cla_phnm, "ɐ(" .. NASAL .. "?)j", "e%1ː")
cla_phnm = gsub(cla_phnm, "ɐ(" .. NASAL .. "?)w", "o%1ː")
cla_phnm = gsub(cla_phnm, "ɑ(" .. NASAL .. "?)ː([jw])", "ɑ%1%2")

-- Add dental diacritic to t, d, tʰ, dʱ, n, l, s.
cla_phnm = gsub(
cla_phnm,
"([td]" .. COARTIC .. "?[ɕʑ]?)([ʰʱ]?)",
function(base_consonant, aspiration)
if base_consonant == "t" or base_consonant == "d" then
return base_consonant .. DENTAL .. aspiration
end
end
)
cla_phnm = gsub(cla_phnm, "([nls])", "%1" .. DENTAL)

local cla_phnt = abhinidhana_phonetic(cla_phnm)
-- cla_pron = gsub(cla_pron, "r̩(" .. NASAL .. "?)(" .. ACUTE .. "?)(ː?)", "ɾi%1%2%3")
-- cla_pron = gsub(cla_pron, "l̩(" .. NASAL .. "?)(" .. ACUTE .. "?)(ː?)", "l̪i%1%2%3")

cla_phnt = gsub(
cla_phnt,
"([ɐɑeoiu])(" .. NASAL .. "?)(ː?)([jw]?)h$",
function (vow, nas, length, glide)
return vow .. nas .. length .. glide .. "h" .. superscript[vow]
end
)
cla_phnt = gsub(
cla_phnt,
"([ɐɑeoiu])(" .. NASAL .. "?)(ː?)([jw]?)h ",
function (vow, nas, length, glide)
return vow .. nas .. length .. glide .. "h" .. superscript[vow] .. " "
end
)

dialects['cla'] = {
label = "Classical Sanskrit",
phonemic = cla_phnm,
phonetic = cla_phnt,
}

return dialects
end

local function make_table(dialects, novedic, noclassical, nolabel)
local dial_types = {'rig', 'cla'}

if novedic then
table.remove(dial_types, 1)
end

if noclassical then
table.remove(dial_types, 2)
end

if #dial_types == 1 then
local dial = dial_types[1]
local IPA_args = {{pron = '/' .. dialects[dial].phonemic .. '/'}}
if dialects[dial].phonemic ~= dialects[dial].phonetic then
table.insert(IPA_args, {pron = '[' .. dialects[dial].phonetic .. ']'})
end
if nolabel then
return m_IPA.format_IPA_full { lang = lang, items = IPA_args }
else
return table.concat{
'\n* ',
m_a.format_qualifiers(lang, {dialects[dial].label}),
' ',
m_IPA.format_IPA_full { lang = lang, items = IPA_args },
}
end
else

local inline_args = {{pron = '/' .. dialects.cla.phonemic .. '/'}}

if dialects.cla.phonemic ~= dialects.cla.phonetic then
table.insert(inline_args, {pron = '['.. dialects.cla.phonetic ..']'})
end

local full = {}
for _, dial in ipairs(dial_types) do
local full_args = {{pron = '/' .. dialects[dial].phonemic .. '/'}}
if dialects[dial].phonemic ~= dialects[dial].phonetic then
table.insert(full_args, {pron = '['.. dialects[dial].phonetic ..']'})
end
table.insert(full, table.concat{
'\n* ',
m_a.format_qualifiers(lang, {dialects[dial].label}),
' ',
m_IPA.format_IPA_full { lang = lang, items = full_args },
})
end

return table.concat(full, "")
end
end

function export.show(frame)
local params = {
[1] = {alias_of = 'w'},
w = {default = mw.loadData("Module:headword/data").pagename},
a = {list = true, allow_holes = true, type = 'number'},
novedic = {type = 'boolean'},
noclassical = {type = 'boolean'},
nolabel = {type = 'boolean'},
}

local args = require("Module:parameters").process(frame:getParent().args, params)

local text = convert_words(args.w, args.a)

text = phon_procs(text)

local dialects = make_dialects(text)

return make_table(dialects, args.novedic, args.noclassical, args.nolabel)
end

return export