Module:xchc-pron - Revision history

Sware at 22:08, 19 October 2025

2025-10-19T22:08:18Z

← Older revision		Revision as of 22:08, 19 October 2025
Line 17:		Line 17:
	local nb_cons = "mnŋɲptbdkɡfvszʃʒxɣhʧʦʤʣlrɾʎ"		local nb_cons = "mnŋɲptbdkɡfvszʃʒxɣhʧʦʤʣlrɾʎ"
	local consonants = "[" .. nb_cons .. "]"		local consonants = "[" .. nb_cons .. "]"

			local consonantsAsIs = "[мньӈбдгвзжғлрйпткфсшӀчц]"
	local vowels = "[ыиэеаяүөуюоёӯӣɜɔ]"		local vowels = "[ыиэеаяүөуюоёӯӣɜɔ]"

Line 124:		Line 126:
	if exception then		if exception then
	termR = term:gsub(neutralR, ""); termB = term:gsub(neutralB, "")		termR = term:gsub(neutralR, ""); termB = term:gsub(neutralB, "")
	termR = termR:match("(".. vowels .. ~~consonants~~ .. ")$") or termR; termB = termB:match("(" .. vowels .. consonants .. ")$") or termB		termR = termR:match("(".. vowels .. consonantsAsIs .. ")$") or termR; termB = termB:match("(" .. vowels .. consonants .. ")$") or termB
	end		end

Sware at 21:50, 19 October 2025

2025-10-19T21:50:00Z

← Older revision		Revision as of 21:50, 19 October 2025
Line 123:		Line 123:
	local exception = (term:match(unrounded) and term:match(rounded)) or (term:match(front) and term:match(back))		local exception = (term:match(unrounded) and term:match(rounded)) or (term:match(front) and term:match(back))
	if exception then		if exception then
	termR = ~~termR~~:gsub(neutralR, ""); termB = ~~termB~~:gsub(neutralB, "")		termR = term:gsub(neutralR, ""); termB = term:gsub(neutralB, "")
	termR = termR:match(vowels .. consonants .. "$"); termB = termB:match(vowels .. consonants .. "$")		termR = termR:match("(".. vowels .. consonants .. ")$") or termR; termB = termB:match("(" .. vowels .. consonants .. ")$") or termB
	end		end

Sware at 21:45, 19 October 2025

2025-10-19T21:45:16Z

← Older revision		Revision as of 21:45, 19 October 2025
Line 123:		Line 123:
	local exception = (term:match(unrounded) and term:match(rounded)) or (term:match(front) and term:match(back))		local exception = (term:match(unrounded) and term:match(rounded)) or (term:match(front) and term:match(back))
	if exception then		if exception then
	termR = ~~term~~:gsub(neutralR, ""); termB = ~~term~~:gsub(neutralB, "")		termR = termR:gsub(neutralR, ""); termB = termB:gsub(neutralB, "")
	termR = termR:match(vowels .. consonants .. "$"); termB = termB:match(vowels .. consonants .. "$")		termR = termR:match(vowels .. consonants .. "$"); termB = termB:match(vowels .. consonants .. "$")
	end		end

Sware at 21:31, 19 October 2025

2025-10-19T21:31:08Z

← Older revision		Revision as of 21:31, 19 October 2025
Line 17:		Line 17:
	local nb_cons = "mnŋɲptbdkɡfvszʃʒxɣhʧʦʤʣlrɾʎ"		local nb_cons = "mnŋɲptbdkɡfvszʃʒxɣhʧʦʤʣlrɾʎ"
	local consonants = "[" .. nb_cons .. "]"		local consonants = "[" .. nb_cons .. "]"
			local vowels = "[ыиэеаяүөуюоёӯӣɜɔ]"

	local export = {}		local export = {}
Line 114:		Line 115:
	function export.harmony(term)		function export.harmony(term)
	term = export.simplify(term)		term = export.simplify(term)
	--[[local ~~ret~~ = {		local termR, termB = term, term
	["~~roundness~~"] = (~~(not~~ term:match(~~"о" .. c.macron .. "?" .. c.breve~~) and term:match(~~"[үуӯюөоё]"~~)) or term:match(~~"е" .. c.macron .. c.diaer)~~) and ~~"r"~~
	or term:match(~~"[ыиӣэе]"~~) ~~and "u" or "ar",~~		local unrounded = "[ыиӣеэ]"; local rounded = "[үөуӯюоё]"; local neutralR = "[ɛɔая]"
	["~~backness~~"] = term:~~match~~("э") ~~and "f" or term~~:match(~~"о"~~ .. ~~c.macron~~ .. "?" .. c.~~breve) and~~ "b" ~~or "ab",~~		local front = "ɛ"; local back = "ɔ"; local neutralB = "[ыиӣеэүөуӯюоёая]"
	~~}]]~~
			-- for words that violate vowel harmony (compounds and loanwords)
			local exception = (term:match(unrounded) and term:match(rounded)) or (term:match(front) and term:match(back))
			if exception then
			termR = term:gsub(neutralR, ""); termB = term:gsub(neutralB, "")
			termR = termR:match(vowels .. consonants .. "$"); termB = termB:match(vowels .. consonants .. "$")
			end

	local ret = {		local ret = {
	["roundness"] = ~~term~~:match(~~"[ыиӣеэ]"~~) and "u" or ~~term~~:match(~~"[үөуӯюоё]"~~) and "r" or "ar",		["roundness"] = termR:match(unrounded) and "u" or termR:match(rounded) and "r" or "ar",
	["backness"] = ~~term~~:match(~~"ɜ"~~) and "f" or ~~term~~:match(~~"ɔ"~~) and "b" or "ab",		["backness"] = termB:match(front) and "f" or termB:match(back) and "b" or "ab",
	}		}
	return ret		return ret

Sware at 20:09, 19 October 2025

2025-10-19T20:09:29Z

← Older revision		Revision as of 20:09, 19 October 2025
Line 19:		Line 19:

	local export = {}		local export = {}

	~~local function same(foo, bar)~~
	~~foo, bar = mw.ustring.toNFD(foo), mw.ustring.toNFD(bar) -- decompose diacritics~~
	~~foo, bar = match(foo, "^."), match(bar, "^.") -- sort out the letter~~
	~~return foo == bar and true or false~~
	~~end~~

	local first_rules = {		local first_rules = {

Sware at 20:08, 19 October 2025

2025-10-19T20:08:18Z

← Older revision		Revision as of 20:08, 19 October 2025
Line 7:		Line 7:
	local split = mw.text.split		local split = mw.text.split
	local gsplit = mw.text.gsplit		local gsplit = mw.text.gsplit

	~~local M = u(0x0304) -- COMBINING MACRON~~
	~~local B = u(0x0306) -- COMBINING BREVE~~
	~~local D = u(0x0308) -- COMBINING DIAERESIS~~

	local lang = require("Module:languages").getByCode("xchc")		local lang = require("Module:languages").getByCode("xchc")
Line 16:		Line 12:
	local m_IPA = require("Module:IPA")		local m_IPA = require("Module:IPA")

			local M = c.macron
			local B = c.breve
			local D = c.diaer
	local nb_cons = "mnŋɲptbdkɡfvszʃʒxɣhʧʦʤʣlrɾʎ"		local nb_cons = "mnŋɲptbdkɡfvszʃʒxɣhʧʦʤʣlrɾʎ"
	local consonants = "[" .. nb_cons .. "]"		local consonants = "[" .. nb_cons .. "]"

	local export = {}		local export = {}

	~~local function laxen(v)~~
	~~local otc = {}~~
	~~local switch = {["e"] = "ɛ", ["i"] = "ɪ", ["o"] = "ɔ", ["u"] = "ʊ"}~~

	~~for vc in gmatch(v, ".") do~~
	~~if switch[vc] then vc = gsub(vc, vc, switch[vc]) end~~
	~~table.insert(otc, vc)~~
	~~end~~
	~~return table.concat(otc)~~
	~~end~~

	local function same(foo, bar)		local function same(foo, bar)
Line 78:		Line 66:
	{"l[ьі]", "ʎ"}, {"n[ьі]", "ɲ"}, {"[ьі]", "j"},		{"l[ьі]", "ʎ"}, {"n[ьі]", "ɲ"}, {"[ьі]", "j"},

	{"(" .. consonants .. ")(" ~~.. consonants .. ")", function(c1,c2) return same(c1~~, ~~c2) and c1 ..~~ "ː" ~~or c1 .. c2 end~~},		{"(" .. consonants .. ")%1", "%1ː"},
	{"r$", "ɾ"}, {"([ŋkɡxɣh])a", "%1ɑ"}, {"a(ː?[ŋkɡxɣh])", "ɑ%1"}		{"r$", "ɾ"}, {"([ŋkɡxɣh])a", "%1ɑ"}, {"a(ː?[ŋkɡxɣh])", "ɑ%1"}
	}		}

Sware at 19:12, 19 October 2025

2025-10-19T19:12:18Z

← Older revision		Revision as of 19:12, 19 October 2025
Line 111:		Line 111:
	-- Remove diacritics for module calculations based on vowels		-- Remove diacritics for module calculations based on vowels
	function export.simplify(term)		function export.simplify(term)
	term = mw.~~usting~~.toNFD(term):gsub(c.macron, "") -- vowel length		term = mw.ustring.toNFD(term):gsub(c.macron, "") -- vowel length
	term = term:gsub("э" .. c.breve, "ɛ"); term = term:gsub("о" .. c.breve, "ɔ")		term = term:gsub("э" .. c.breve, "ɛ"); term = term:gsub("о" .. c.breve, "ɔ")
	term = mw.ustring.toNFC(term):gsub("ё", "о"); term = term:gsub("е" .. c.diaer, "о")		term = mw.ustring.toNFC(term):gsub("ё", "о"); term = term:gsub("е" .. c.diaer, "о")

Sware: Undo revision 474002 by Sware (talk)

2025-10-19T18:53:17Z

Undo revision 474002 by Sware (talk)

← Older revision		Revision as of 18:53, 19 October 2025
Line 108:		Line 108:
	{"(" .. consonants .. ")([iyeø])", "%1ʲ%2"},		{"(" .. consonants .. ")([iyeø])", "%1ʲ%2"},
	}		}

			-- Remove diacritics for module calculations based on vowels
			function export.simplify(term)
			term = mw.usting.toNFD(term):gsub(c.macron, "") -- vowel length
			term = term:gsub("э" .. c.breve, "ɛ"); term = term:gsub("о" .. c.breve, "ɔ")
			term = mw.ustring.toNFC(term):gsub("ё", "о"); term = term:gsub("е" .. c.diaer, "о")

			return term
			end

	function export.crux(term)		function export.crux(term)
Line 122:		Line 131:

	function export.harmony(term)		function export.harmony(term)
			term = export.simplify(term)
			--[[local ret = {
			["roundness"] = ((not term:match("о" .. c.macron .. "?" .. c.breve) and term:match("[үуӯюөоё]")) or term:match("е" .. c.macron .. c.diaer)) and "r"
			or term:match("[ыиӣэе]") and "u" or "ar",
			["backness"] = term:match("э") and "f" or term:match("о" .. c.macron .. "?" .. c.breve) and "b" or "ab",
			}]]

	local ret = {		local ret = {
	["roundness"] = ~~((not term:match("о%W?%W") and~~ term:match("[~~үуӯюөоё~~]"~~)) or term:match("е%W%W")~~) and "r"		["roundness"] = term:match("[ыиӣеэ]") and "u" or term:match("[үөуӯюоё]") and "r" or "ar",
	or term:match("[~~ыиӣэе~~]") and "u" or "ar",		["backness"] = term:match("ɜ") and "f" or term:match("ɔ") and "b" or "ab",
	["backness"] = term:match("э") and "f" or term:match("~~о%W?%W~~") and "b" or "ab",
	}		}
	return ret		return ret

Sware at 18:31, 19 October 2025

2025-10-19T18:31:28Z

← Older revision		Revision as of 18:31, 19 October 2025
Line 123:		Line 123:
	function export.harmony(term)		function export.harmony(term)
	local ret = {		local ret = {
	["roundness"] = ((not term:match("о~~" .. c.macron .. "~~?" ~~.. c.breve~~) and term:match("[үуӯюөоё]")) or term:match("е" ~~.. c.macron .. c.diaer~~)) and "r"		["roundness"] = ((not term:match("о%W?%W") and term:match("[үуӯюөоё]")) or term:match("е%W%W")) and "r"
	or term:match("[ыиӣэе]") and "u" or "ar",		or term:match("[ыиӣэе]") and "u" or "ar",
	["backness"] = term:match("э") and "f" or term:match("о~~" .. c.macron .. "~~?" ~~.. c.breve~~) and "b" or "ab",		["backness"] = term:match("э") and "f" or term:match("о%W?%W") and "b" or "ab",
	}		}
	return ret		return ret

Sware at 21:49, 12 October 2025

2025-10-12T21:49:54Z

← Older revision		Revision as of 21:49, 12 October 2025
Line 122:		Line 122:

	function export.harmony(term)		function export.harmony(term)
	local roundness~~, backness~~		local ret = {
			["roundness"] = ((not term:match("о" .. c.macron .. "?" .. c.breve) and term:match("[үуӯюөоё]")) or term:match("е" .. c.macron .. c.diaer)) and "r"
	if (not term:match("о" .. c.macron .. "?" .. c.breve) and term:match("[үуӯюөоё]"))		or term:match("[ыиӣэе]") and "u" or "ar",
	or term:match("е" .. c.macron .. c.diaer) ~~then~~		["backness"] = term:match("э") and "f" or term:match("о" .. c.macron .. "?" .. c.breve) and "b" or "ab",
	~~roundness =~~ "r"		}
	~~elseif~~ term:match("[ыиӣэе]") ~~then~~		return ret
	~~roundness =~~ "u"		end
	~~else~~
	~~roundness =~~ "ar"
	~~end~~

	if term:match("э") ~~then~~
	~~backness =~~ "f"
	~~elseif~~ term:match("о" .. c.macron .. "?" .. c.breve) ~~then~~
	~~backness =~~ "b"
	~~else~~
	~~backness =~~ "ab"
	end

	~~return { roundness = roundness, backness = backness }~~
	~~end~~

	function separate_word(term)		function separate_word(term)