Module:kip-IPA

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

Sheshi Kham IPA pronunciation module. See {{kip-IPA}}.


local export = {}

local lang = require("Module:languages").getByCode("kip")
local sc = require("Module:scripts").getByCode("Deva")
local m_IPA = require("Module:IPA")

local gsub = mw.ustring.gsub
local gmatch = mw.ustring.gmatch
local find = mw.ustring.find

local correspondences = {
	["ṅ"] = "ŋ", ["g"] = "ɡ", ["c"] = "t͡s", 
        ["j"] = "d͡z", ["ċ"] = "t͡s", ["j̈"] = "d͡z", 
        ["ṭ"] = "t", ["ḍ"] = "d", ["t"] = "t",
        ["d"] = "d", ["y"] = "j", ["r"] = "r",
        ["w"] = "w", ["l"] = "l", ["ś"] = "ç", 
        ["ṣ"] = "s", ["h"] = "h", ["n"] = "n",
        ["r̥"] = "ri", ["ṃ"] = "̃", [","] = ",", 
        ["z"] = "z", ["ẏ"] = "ɥ", 
         
         --
        ["ġ"] = "ɣ", ["q"] = "q", 
        ["x"] = "x", ["θ"] = "θ", ["ð"] = "ð", 
        ["f"] = "f", ["ḻ"] = "ɭ", ["ṟ"] = "ɹ", 
        ["V"] = "v", ["ṛ"] = "ɽ", ["ñ"] = "n",
        ["ṇ"] = "n", ["ž"] = "ʒ",

	    ["a"] = "ə", ["ā"] = "ɐ", ["i"] = "i",
	    ["ī"] = "iː", ["o"] = "o", ["e"] = "e",
        ["ō"] = "o", ["ē"] = "e", ["u"] = "u",
        ["ū"] = "uː", ["ai"] = "ɐj", ["au"] = "ɐw", 
        ["ü"] = "y", ["ï"] = "ɯ", ["ø"] = "ø",
        ["ŏ"] = "ɒ", ["ĕ"] = "æ", 

        ["ũ"] = "ũ", ["õ"] = "õ", ["ã"] = "ə̃", 
        ["ā̃"] = "ɐ̃", ["ẽ"] = "ẽ",

	["ḥ"] = "̤",  [" "] = " ", ["’"] = "ʔ", ["'"] = "ː" 
}

local vowels = "aāā̃ẽõiīuūeī̃ū̃ĩoɐøø̃ỹyɐ̃i̤ḥãũ"
local weak_h_c = "gjdḍb"
local weak_h = "([" .. weak_h_c .. "])h"
local aspirate = "([kctṭp])"
local syllabify_pattern = "([" .. vowels .. "]+)([^" .. vowels .. "%.]+)([" .. vowels .."]+)"

local function find_consonants(text)
	local current = ""
	local cons = {}
	for cc in mw.ustring.gcodepoint(text .. " ") do
		local ch = mw.ustring.char(cc)
		if find(current .. ch, "^[kgṅcjñṭḍṇtdnpbmyrlɳwvɾjwẏɥśṣshqxġzžḻṛṟfθðṉ]$") or find(current .. ch, "^[kgcjṭḍṇtdpbɥẏṛṟ]h$") then
			current = current .. ch
		else
			table.insert(cons, current)
			current = ch
		end
	end
	return cons
end

local function syllabify(text)
	for count = 1, 2 do
		text = gsub(text, syllabify_pattern, function(a, b, c)
			b_set = find_consonants(b)
			table.insert(b_set, #b_set > 1 and 2 or 1, ".")
			return a .. table.concat(b_set) .. c
			end)
end
return text
end


local identical = "knlsfzθð"
for character in gmatch(identical, ".") do
	correspondences[character] = character
end

local function transliterate(text)
	return (lang:transliterate(text))
end

function export.link(term)
	return require("Module:links").full_link{ term = term, lang = lang, sc = sc }
end

function export.toIPA(text, phonetic)
	local translit = transliterate(text)
	if not translit then
		error('The term "' .. Kham .. '" could not be transliterated.')
	end

	if phonetic then
	end
	local result = gsub(translit, ".", correspondences)
		
	
        translit = gsub(translit, "͠", "̃")
        translit = gsub(translit, "(...)*$", "%1ə")  
	translit = gsub(translit, "%-", " ")
	translit = gsub(translit, "r̥", "ri")
        translit = gsub(translit, "([aāiīuūeēoō])(ḥ?)([uū])", "%1%2w")
        translit = gsub(translit, "([aāiīuūeēoō])(ḥ?)([iī])", "%1%2y")
        translit = gsub(translit, "gh([yrwẏɥl]?)(l?)([aāiīuūeēoōüø])", "ɡ%1%2%3̤")
        translit = gsub(translit, "jh([yrwẏɥl]?)(l?)([aāiīuūeēoōüø])", "d͡z%1%2%3̤")
        translit = gsub(translit, "zh([yrwẏɥl]?)(l?)([aāiīuūeēoōüø])", "z%1%2%3̤")
        translit = gsub(translit, "ḍh([yrwẏɥl]?)(l?)([aāiīuūeēoōüø])", "d%1%2%3̤")
        translit = gsub(translit, "dh([yrwẏɥl]?)(l?)([aāiīuūeēoōüø])", "d%1%2%3̤")
	translit = gsub(translit, "hw", "ʍ")
    translit = gsub(translit, "h([ẏɥ])", "ɥ̊")
	translit = gsub(translit, "nh", "n̥")
	translit = gsub(translit, "mh", "m̥")
	translit = gsub(translit, "hl", "ɬ")
	translit = syllabify(translit)
	
	
	-- aspiration rules
	translit = gsub(translit, aspirate .. "h", '%1ʰ')
	translit = gsub(translit, aspirate .. '%.h', '.%1ʰ')

        translit = gsub(translit, "%.ː", "ː.")
	local result = gsub(translit, ".", correspondences)
	
	-- formatting
result = gsub(result, "ː̃", "̃ː")
result = gsub(result, "ː.̃", "̃ː.")
result = gsub(result, "ː%.̃", "̃ː.")
	return result
end

function export.make(frame)
	local args = frame:getParent().args
	local pagetitle = mw.title.getCurrentTitle().text
	
	local p, results = {}, {}
	
	if args[1] then
		for index, item in ipairs(args) do
			table.insert(p, (item ~= "") and item or nil)
		end
	else
		p = { pagetitle }
	end
	
	for _, Kham in ipairs(p) do
		table.insert(results, { pron = "/" .. export.toIPA(Kham) .. "/" })
		if export.toIPA(Kham, true) ~= export.toIPA(Kham) then
			table.insert(results, { pron = "[" .. export.toIPA(Kham, true) .. "]" })
		end
	end
	
	return m_IPA.format_IPA_full { lang = lang, items = results }
end

return export