Module:kjl-IPA

local export = {}

local lang = require("Module:languages").getByCode("kjl") 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ñṭḍṇtdnẏɥpbmyrlɳ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([yrẏwɥ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