Module:kfb-IPA

From Wiktionary, the free dictionary
Jump to navigation Jump to search


local export = {}

local m_IPA = require("Module:IPA")
local m_scripts_util = require("Module:script utilities")
local m_q = require("Module:qualifier")
local lang = require("Module:languages").getByCode("kfb")

local consonants = {
	['క']='k', ['ఖ']='kʰ', ['గ']='ɡ', ['ఘ']='ɡʱ', ['ఙ']='ŋ',
	['చ']='t͡ɕ', ['ఛ']='t͡ɕʰ', ['జ']='d͡ʑ', ['ఝ']='d͡ʑʱ', ['ఞ']='ɲ',
	['ట']='ʈ', ['ఠ']='ʈʰ', ['డ']='ɖ', ['ఢ']='ɖʱ', ['ణ']='ɳ',
	['త']='t̪', ['థ']='t̪ʰ', ['ద']='d̪', ['ధ']='d̪ʱ', ['న']='n̪',
	['ప']='p', ['ఫ']='pʰ', ['బ']='b', ['భ']='bʱ', ['మ']='m',
	['య']='j', ['ర']='ɾ', ['ల']='l', ['వ']='ʋ', ['ళ']='ɭ',
	['శ']='ɕ', ['ష']='ʂ', ['స']='s', ['హ']='h', ['ఱ']='r',
	['ఴ']='ɻ', ['ౘ']='t͡s', ['ౙ']='d͡z', ['ౚ']='d', 
	['క఼']='q', ['ఖ఼']='x', ['గ఼']='ɣ', ['జ఼']='z', ['ఝ఼']='ʒ', ['ఫ఼']='f', ['డ఼']='ɽ', ['ఢ఼']='ɽʱ',
	['఼']=''
}

local vowel_diacritics = {
	['ా']= 'aː', ['ి']='i', ['ీ']='iː', ['ు']='u', ['ూ']='uː',
	['ృ']= 'ɾu', ['ౄ']='ɾuː', ['ౢ']='lu', ['ౣ']='luː',
	['ె']='e', ['ే']='eː', ['ై']='ai', ['ొ']='o', ['ో']='oː', ['ౌ']='au',
	['్']='',	-- Virama - suppresses the inherent vowel "a"
	[''] = 'a'	-- No diacritic; inherent vowel
}

local other = {
	-- Independent vowels
	['అ']='a', ['ఆ']='aː', ['ఇ']='i', ['ఈ']='iː', ['ఉ']='u', ['ఊ']='uː',
	['ఋ']= 'ɻ̍', ['ౠ']='ɻ̍ː', ['ఌ']='l̩', ['ౡ']='l̩ː',
	['ఎ']='e', ['ఏ']='eː', ['ఐ']='ai',
	['ఒ']='o', ['ఓ']='oː', ['ఔ']='au',
	-- Other symbols
	['ం']='m̃', ['ః']='h',
	['ఁ']='',	-- Chandrabindu - indicates elided nasal; has no effect on pronunciation
	['ౝ']='n',	-- Nakaara pollu - vowelless n
	['ఽ']=''	-- Avagraha - indicates elided vowel due to sandhi; has no effect on pronunciation
--	['఼']=''
}

local adjust1 = {
	-- Assimilate the anusvara
	['m̃([kɡŋ])']='ŋ%1',
	['m̃([td]͡[ɕʑ])']='ɲ%1', ['m̃(ɲ)']='ɲ%1',
	['m̃([ʈɖɳ])']='ɳ%1',
	['m̃([td]̪)']='n̪%1', ['m̃([td]͡[sz])']='n̪%1', ['m̃(n)']='n̪%1',
	['m̃([pbm])']='m%1',
	['ː̃']='̃ː',
}

local adjust2 = {
	-- Account for differences in phonemes vs. phones
}

function export.to_IPA(text)

	text = mw.ustring.gsub(
		text,
		'([క-హౘ-ౚ])(఼?)([ా-్]?)',
		function(c, n, d)
			return ((consonants[c..n] or consonants[c]) or c) .. vowel_diacritics[d]
		end)

	text = mw.ustring.gsub(text, '[ఁ-ౡ]', other)

	for k, v in pairs(adjust1) do
		text = mw.ustring.gsub(text, k, v)
	end

	-- Account for consonant gemination
	text = mw.ustring.gsub(text, "([kɡŋɲʈɖɳnpbmjlʋɭɕʂshrɻqxzf][ʰʱ]?)%1", "%1ː")
	text = mw.ustring.gsub(text, "([td]̪[ʰʱ]?)%1", "%1ː")
	text = mw.ustring.gsub(text, "([td]͡[ɕʑ][ʰʱ]?)%1", "%1ː")
	text = mw.ustring.gsub(text, "([td]͡[sz])%1", "%1ː")
	text = mw.ustring.gsub(text, "([ɾ])%1", "r")
	text = mw.ustring.gsub(text, "[ɾr]ː?[ɾr]ː?", "rː")
	text = mw.ustring.gsub(text, "ɭː?lː?", "ɭː")
	text = mw.ustring.gsub(text, "lː?ɭː?", "ɭː")

	-- If an independent vowel is after another vowel, assume diphthong
	text = mw.ustring.gsub(text, "([aeiou]ː?)•", "%1")

	-- Phonetic transcription
	text2 = text
	for k, v in pairs(adjust2) do
		text2 = mw.ustring.gsub(text2, k, v)
	end

	return (text == text2 and { text } or { text, text2 })

end

function export.show(frame)
	local args = frame:getParent().args
	local page_title = mw.title.getCurrentTitle().text
	local text = args[1] or page_title
	local qualifier = args["q"] or nil

	m_scripts_util.checkScript(text, "Telu")
	
	local transcriptions = export.to_IPA(text)
	local IPA_text
	
	if not transcriptions[2] then
		IPA_text = m_IPA.format_IPA_full {
			lang = lang,
			items = {{ pron = "/" .. transcriptions[1] .. "/" }},
		}
	else
		IPA_text = m_IPA.format_IPA_full {
			lang = lang,
			items = {{ pron = "/" .. transcriptions[1] .. "/" }, { pron = "[" .. transcriptions[2] .. "]" }},
		}
	end

	return "* " .. (qualifier and m_q.format_qualifier{qualifier} .. " " or "")
		.. IPA_text
end

return export