Module:ábḫ-ipa/remake

From Linguifex
< Module:ábḫ-ipa
Revision as of 14:19, 10 April 2021 by Sware (talk | contribs)
Jump to navigation Jump to search


--[[
	Hi! If you ever happen to read this, I'm trying to friendly *deobfuscate* your module.
	I've learned some Scribunto Lua the hard way, after months of messing with it for Avendonian, Siwa, and High Valyrian modules.
	You can check out my Module:siwa-pron and Module:qhv-pron if you're curious; let's say it took me many many
	attempts to make them functional :þ. Thanks for adding your language to Linguifex, cheers!
]]

local sub = mw.ustring.sub
local find = mw.ustring.find
local gmatch = mw.ustring.gmatch
local gsub = mw.ustring.gsub
local match = mw.ustring.match
local u = mw.ustring.char
local split = mw.text.split
local gsplit = mw.text.gsplit

local PAGENAME = mw.title.getCurrentTitle().text
local CIRCUMFLEX = u(0x0302)
local HACEK = u(0x030C)
local ACUTE = u(0x0301)
local NONSYLL = u(0x032F)
local DENTAL = u(0x032A)
local SYLL = u(0x030D)

local export = {}

local vowels = "[aäeɛʊiɪɔɐ]"
local consonants = "[βðɺɕθʑɲjxɦDGPTKBmnpkɟt]"
local tones = "[ˆˇ´]"

local start_rules = {
	{"á", "a´"},
		
	{"aá", "aaˇ"}, {"áa", "aaˆ"}, {"ií", "iiˇ"}, {"íi", "iiˆ"},
	{"eí", "eːˇi"}, {"oú", "oːˇu"}, {"aa", "aː"}, {"ii", "iː"}, {"o", "ɔ"},
	
	{"(" .. vowels .. "ː?" .. tones .. "?).", "%1ɪ" .. NONSYLL}, 	{"(" .. vowels .. "ː?" .. tones .. "?o)", "%1" .. NONSYLL},
	{"(" .. vowels .. "ː?" .. tones .. "?)u", "%1ʊ" .. NONSYLL},
	
	{"(.)", {
		["r"] = "ɺ",
		["b"] = "β",
		["g"] = "ɡ", -- double- to single-storey
		["o"] = "ɔ",
		["a"] = "ä",
		["s"] = "ɕ",
		["z"] = "θ",
		["d"] = "ð",
	}}, {"jh", "ʑ"}, {"j", "ɲ"}, {"y", "j"}, {"ḫ", "x"}, {"h", "ɦ"}, {"nð", "D"}, 
	{"nɡ", "G"}, {"mp", "P"}, {"nt", "T"}, {"nk", "K"}, {"^mβ", "B"},



	{"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, 
	{"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""},
	{"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"´", "˦"}, {"ˆ", "˥˩"}, {"ˇ", "˩˥"},
	 
}

local end_rules = {
	{"", ""},
}

local function syllable_and_stress(word)
	local syllables = {}
	word = word:gsub("(" .. consonants .. vowels .. ")", "·%1")
	--word = word:gsub("^([mnjɲβDGPpTtKkBθdɕʑxɦɺ]?" .. vowels .. "ː?" .. tones .. ")", "ˈ%1")
	
	
	return word
end

function export.show(word)
	--local word = frame.args[1] or word
	
	for _, srule in ipairs(start_rules) do
		word = word:gsub(srule[1], srule[2])	
	end
	
	word = syllable_and_stress(word)
	
	for _, erule in ipairs(end_rules) do
		word = word:gsub(erule[1], erule[2])	
	end
	
	return word
end



return export