Module:User:Zhnka/zlw-ocs-pronunciation

This module lacks a documentation subpage. You may create it.

Useful links: root page • root page’s subpages • links • transclusions • testcases • user page • user talk page • userspace

This is a private module sandbox of Zhnka, for his own experimentation. Items in this module may be added and removed at Zhnka's discretion; do not rely on this module's stability.

---

local export = {}

local m_IPA = require("Module:IPA")
local m_table = require("Module:table")
local lang = require("Module:languages").getByCode("zlw-ocs")

local U = mw.ustring.char
local rsub = mw.ustring.gsub
local rlower = mw.ustring.lower
local rfind = mw.ustring.find

local raised = U(0x031D)
local syllabic = U(0x0329)
local consonants = "bdcɟfɡɣxjkɫlmnɲprstʋzʒʃɲʲ"
local sconsonants = "bdcɟfɡɣxjkɫmnɲpstʋzʒʃɲʲ"
local C = "[" .. consonants .. "]"
local sC = "[" .. sconsonants .. "]"
local vowels = "aɛiɨou"
local V = "[" .. vowels .. "]"
local voiceless_consonant = "ptsʃckxf"
local voiced_consonant = "bdzʒɟɡɣʋ"
local syllabic_consonant = "[mnrlɫ]" .. syllabic

local function track(page)
	require("Module:debug").track("zlw-ocs-IPA/" .. page)
	return true
end

local function rsub_repeatedly(term, foo, bar)
	while true do
		local new_term = rsub(term, foo, bar)
		if new_term == term then
			return term
		end
		term = new_term
	end
end
	
local digraphs = {
	["ch"] = "x",
	["dž"] = "d͡ʒ",
	["ie"] = "i̯ɛː",
}

local devoicing = {
	["d͡z"] = "t͡s",
	["d͡ʒ"] = "t͡ʃ",
	["b"] = "p",
	["d"] = "t",
	["z"] = "s",
	["ʒ"] = "ʃ",
	["ɣ"] = "x",
	["g"] = "k",
	["ʋ"] = "f",
	["ɟ"] = "c",
}

local voicing = {
	["t͡s"] = "d͡z",
	["t͡ʃ"] = "d͡ʒ",
	["p"] = "b",
	["t"] = "d",
	["s"] = "z",
	["ʃ"] = "ʒ",
	["x"] = "ɣ",
	["k"] = "ɡ",
	["f"] = "ʋ",
	["c"] = "ɟ",
}


	local function voice_backward(sound, following)
		return voicing[sound] .. following
	end

	local function devoice_backward(sound, following)
		return devoicing[sound] .. following
	end

	local function voice_forward(preceding, sound)
		return preceding .. voicing[sound]
	end

	local function devoice_forward(preceding, sound)
		return preceding .. devoicing[sound]
	end

	local function final_devoicing(sound, following)
		return devoicing[sound] .. following .. "#"
	end 

local function flatmap(items, fun)
	local new = {}
	for _, item in ipairs(items) do
		local results = fun(item)
		mw.logObject(results, "results")
		for _, result in ipairs(results) do
			table.insert(new, result)
		end
		mw.logObject(new, "new")
	end
	return new
end

local phon = {
	["a"] = "a",
	["á"] = "aː",
	["b"] = "b",
	["b́"] = "bʲ",
	["c"] = "t͡s",
	["č"] = "t͡ʃ",
	["ć"] = "cʲ",
	["d"] = "d",
	["ď"] = "ɟ",
	["e"] = "ɛ",
	["é"] = "ɛː",
	["ě"] = "i̯ɛ",
	["f"] = "f",
	["f́"] = "fʲ",
	["g"] = "ɡ",
	["h"] = "ɣ",
	["i"] = "i",
	["í"] = "iː",
	["j"] = "j",
	["k"] = "k",
	["l"] = "l",
	["ľ"] = "ʎ",
	["ł"] = "ɫ",
	["m"] = "m",
	["ḿ"] = "mʲ",
	["n"] = "n",
	["ň"] = "ɲ",
	["o"] = "o",
	["ó"] = "oː",
	["p"] = "p",
	["ṕ"] = "pʲ",
	["r"] = "r",
	["ř"] = "r"..raised,
	["s"] = "s",
	["š"] = "ʃ",
	["ś"] = "sʲ", 
	["t"] = "t",
	["ť"] = "c",
	["u"] = "u",
	["ú"] = "uː",
	["v"] = "ʋ",
	["v́"] = "ʋʲ",
	["y"] = "ɨ",
	["ý"] = "ɨː",
	["z"] = "z",
	["ž"] = "ʒ",
	["ź"] = "zʲ",
	[":"] = "ː",
	["?"] = "ʔ"
}

function export.phonemic(text, post)
	text = rlower(text)

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

	-- basic phonology
	for digraph, replacement in pairs(digraphs) do
		text = rsub(text, digraph, replacement)
	end
	text = rsub(text, ".", phon)
	text = rsub(text, "l([aɨou])", "ɫ%1")
	text = rsub(text, "l#", "ɫ#")
	text = rsub(text, "(l)(" .. C .. ")", "ɫ%2")
	text = rsub(text, "ʎ", "l")
	-- palatalisation
	text = rsub(text, "ni", "ɲi")
	text = rsub(text, "ti", "ci")
	text = rsub(text, "di", "ɟi")
	
	text = rsub(text, "(" .. C .. ")([rlɫ])#", "%0"..syllabic.."#")
	text = rsub(text, "(" .. C .. ")([rlɫ])(" .. C .. ")", "%1%2"..syllabic.."%3")
	text = rsub(text, "(" .. sC .. ")([mn])#", "%0"..syllabic.."#")
	text = rsub(text, "(" .. sC .. ")([mn])(" .. sC .. ")", "%1%2"..syllabic.."%3")

	text = rsub(text, "([" .. voiceless_consonant .. "])r̝", "%1r̝̊")
	
	text = rsub(text, "'", "ˈ")
	text = rsub(text, "-", "");
	-- suffixes
	text = rsub(text, "^ˈ%-", "-")
	if not rfind(text, " ") then
	text = rsub(text, text, "ˈ" .. text)
	end

	local variants = {text}

	local function flatmap_and_sub_pre(from, to1, to2)
		variants =
			flatmap(
			variants,
			function(item)
				if rfind(item, from) then
					local retval = {rsub_repeatedly(item, from, to1)}
					if to2 then
						m_table.insertIfNot(retval, rsub_repeatedly(item, from, to2))
					end
					return retval
				else
					return {item}
				end
			end
		)
	end
	
	if post ~= nil then
		
	if args.desc == "no" then
	
	else
		if args.desc ~= nil then
		
	desc = args.desc
	
	desc = rlower(desc)
	
	desc = rsub(desc, " | ", "# | #")
	desc = "##" .. rsub(desc, " ", "# #") .. "##"

	-- basic phonology
	for digraph, replacement in pairs(digraphs) do
		desc = rsub(desc, digraph, replacement)
	end
	desc = rsub(desc, ".", phon)
	desc = rsub(desc, "l([aɨou])", "ɫ%1")
	text = rsub(text, "l#", "ɫ#")
	text = rsub(text, "(l)(" .. C .. ")", "ɫ%2")
	text = rsub(text, "ʎ", "l")
	-- palatalisation
	desc = rsub(desc, "ni", "ɲi")
	desc = rsub(desc, "ti", "ci")
	desc = rsub(desc, "di", "ɟi")

	desc = rsub(desc, "(" .. C .. ")([rlɫ])#", "%0"..syllabic.."#")
	desc = rsub(desc, "(" .. sC .. ")([mn])#", "%0"..syllabic.."#")
	
	desc = rsub(desc, "'", "ˈ")
	desc = rsub(desc, "-", "");
	-- suffixes
	desc = rsub(desc, "^ˈ%-", "-")
	if not rfind(desc, " ") then
	desc = rsub(desc, desc, "ˈ" .. desc)
	end

	variants = {desc}
	end
	
	text = flatmap_and_sub_pre("(" .. C .. ")([rlɫ])(" .. C .. ")", "%1%2"..syllabic.."%3")
	text = flatmap_and_sub_pre("(" .. sC .. ")([mn])(" .. sC .. ")", "%1%2"..syllabic.."%3")
	
	text = flatmap_and_sub_pre("([" .. voiced_consonant .. "])([r̝]?)#", final_devoicing)
	text = flatmap_and_sub_pre("v([" .. voiceless_consonant .. "])", "f%1")
	text = flatmap_and_sub_pre("f([" .. voiced_consonant .. "])", "v%1")

	text = flatmap_and_sub_pre("([" .. voiced_consonant .. "])([f])", voice_forward)
	text = flatmap_and_sub_pre("([" .. voiceless_consonant .. "])([v])", devoice_forward)

	text = flatmap_and_sub_pre("d͡z([" .. voiceless_consonant .. "])", "t͡s%1")
	text = flatmap_and_sub_pre("t͡s([bdzʒɟɡɣ])", "d͡z%1")
	text = flatmap_and_sub_pre("d͡ʒ([" .. voiceless_consonant .. "])", "t͡ʃ%1")
	text = flatmap_and_sub_pre("t͡ʃ([bdzʒɟɡɣ])", "d͡ʒ%1")
	text = flatmap_and_sub_pre("([" .. voiced_consonant .. "])([" .. voiceless_consonant .. "])", devoice_backward)
	text = flatmap_and_sub_pre("([" .. voiceless_consonant .. "])([bdzʒɟɡɣ])", voice_backward)

		flatmap_and_sub_pre("-", "")
		flatmap_and_sub_pre("ɨː", "iː", "ɛj")
		flatmap_and_sub_pre("ɨ", "i")
		flatmap_and_sub_pre("lu", "li")
		flatmap_and_sub_pre("ɫ", "l")
		flatmap_and_sub_pre("ʲu", "i")
		flatmap_and_sub_pre("([sz])ʲ", "%1")
		flatmap_and_sub_pre("ʲ", "j")
		flatmap_and_sub_pre("([ʒʃjɟcɲ])u", "%1i")
		flatmap_and_sub_pre("t͡su", "t͡si")
		flatmap_and_sub_pre("(r"..raised..")u", "%1i")
		flatmap_and_sub_pre("oː", "u̯o")
		flatmap_and_sub_pre("uː", "ou̯")
		flatmap_and_sub_pre("ie", "iː")
		flatmap_and_sub_pre("ʋ", "v")
		flatmap_and_sub_pre("i̯ɛː", "iː")
		flatmap_and_sub_pre("([bpfvm])i̯", "%1j")
		flatmap_and_sub_pre("([ʒʃj])ɛː", "%1iː")
		flatmap_and_sub_pre("(r"..raised..")ɛː", "%1iː")
		flatmap_and_sub_pre("ɣ", "ɦ")
		flatmap_and_sub_pre("i̯", "")
		flatmap_and_sub_pre("r̝#", "r̝̊")
		flatmap_and_sub_pre("r̝([" .. voiceless_consonant .. "])", "r̝̊%1")
	end
	end
	
	flatmap_and_sub_pre("#", "")

	return variants
end

function export.IPA(frame)
	local terms = {}

	args = frame:getParent().args
	local currentTitle = mw.title.getCurrentTitle().text

	for _, term in ipairs(args) do
		if term == currentTitle then track("redundant") end
		table.insert(terms, term)
	end

	if #terms == 0 then
		terms = {currentTitle}
	end

	local results1, results2 = {}, {}

	for _, term in ipairs(terms) do
		local variantsPre = export.phonemic(term)
		for _, variant in ipairs(variantsPre) do
			table.insert(results1, {pron = "/" .. variant .. "/"})
		end
		local variantsPost = export.phonemic(term, true)
		for _, variant in ipairs(variantsPost) do
			table.insert(results2, {pron = "/" .. variant .. "/"})
		end
	end

	if args.desc == "no" then
	results1[1].qualifiers = {"13<sup>th</sup> CE"}

	return "*" .. m_IPA.format_IPA_full(lang, results1)
	
	else
	results1[1].qualifiers = {"13<sup>th</sup> CE"}
	results2[1].qualifiers = {"15<sup>th</sup> CE"}

	return "*" .. m_IPA.format_IPA_full(lang, results1)
		.. "\n*" .. m_IPA.format_IPA_full(lang, results2)
	end
end

return export