Module:pine-pron - Revision history

Sware at 13:22, 27 November 2025

2025-11-27T13:22:03Z

← Older revision		Revision as of 13:22, 27 November 2025
Line 47:		Line 47:

	local export = {}		local export = {}

			function export.vowel_harmony(term)
			local polarity = {
			["au"] = "back", ["[ei]?u[oa]?"] = "back", ["o[ai]?"] = "back", ["[ủỏ]"] = "back",
			["a[iy]"] = "front", ["ey"] = "front", ["ů[aei]?"] = "front", ["[ei]ů"] = "front", ["[ủỷả]"] = "front"
			}

			for pat, harmony in pairs(polarity) do
			if find(term, pat) then return harmony end
			end

			return "neutral"
			end

	-- exportable to be used by [[Module:pine-noun]]		-- exportable to be used by [[Module:pine-noun]]

Sware at 16:46, 26 November 2025

2025-11-26T16:46:24Z

← Older revision		Revision as of 16:46, 26 November 2025
Line 72:		Line 72:
	end		end

	return ~~is_ipa and~~ term ~~or split(term, "·")~~		return term
	end		end

Sware at 12:47, 26 November 2025

2025-11-26T12:47:30Z

← Older revision		Revision as of 12:47, 26 November 2025
Line 49:		Line 49:

	-- exportable to be used by [[Module:pine-noun]]		-- exportable to be used by [[Module:pine-noun]]
	function export.syllabify_from_spelling(term)		function export.syllabify_from_spelling(term, is_ipa)
	local vowels = "[" .. vowels_spelling .. "]"		local vowels = "[" .. vowels_spelling .. "]"
	local consonants = consonants_spelling --lazy_consonants		local consonants = consonants_spelling --lazy_consonants
Line 76:		Line 76:

	function export.crux(term)		function export.crux(term)
	term = export.syllabify_from_spelling(term)		term = export.syllabify_from_spelling(term, true)

	-- default to short lax vowels		-- default to short lax vowels

Sware at 12:46, 26 November 2025

2025-11-26T12:46:51Z

← Older revision		Revision as of 12:46, 26 November 2025
Line 62:		Line 62:
	word = gsub(word, "(" .. consonants .. ")·%1", "·%1%1")		word = gsub(word, "(" .. consonants .. ")·%1", "·%1%1")
	word = gsub(word, "(" .. vowels .. ")(" .. consonants .. ")·v(" .. vowels .. ")", "%1·%2v%3")		word = gsub(word, "(" .. vowels .. ")(" .. consonants .. ")·v(" .. vowels .. ")", "%1·%2v%3")
			word = gsub(word, "(" .. vowels .. ")t·([ʦʧ])(" .. vowels .. ")", "%1·t%2%3")
	word = gsub(word, "·", ".")
	words[i] = word		words[i] = word
	end		end

	~~return~~ table.concat(words, " ")		term = table.concat(words, " ")

			if not is_ipa then
			term = gsub(term, "([ʦʧ])", {["ʦ"] = "ts", ["ʧ"] = "tṡ"})
			end

			return is_ipa and term or split(term, "·")
	end		end

Line 94:		Line 99:
	term = gsub(term, "(.)%1", "%1ː"); term = gsub(term, "ng", "ŋː")		term = gsub(term, "(.)%1", "%1ː"); term = gsub(term, "ng", "ŋː")

	~~-- final substitutions~~
	local final_subs = {		local final_subs = {
	["ʧ"] = "t͡ʃ",		["ʧ"] = "t͡ʃ",
Line 103:		Line 107:
	["ṇ"] = "n" .. c.ringbelow,		["ṇ"] = "n" .. c.ringbelow,
	["ṛ"] = "r" .. c.ringbelow,		["ṛ"] = "r" .. c.ringbelow,
			["·"] = ".",
	}		}

	term = gsub(term, "[~~ʧʦgƛṃṇṛ~~]", final_subs)		term = gsub(term, "[ʧʦgƛṃṇṛ·]", final_subs)

	return term		return term

Sware at 00:12, 26 November 2025

2025-11-26T00:12:04Z

← Older revision		Revision as of 00:12, 26 November 2025
Line 20:		Line 20:
	["y"] = "ʏ", ["i"] = "ɪ", ["e"] = "ɛ",		["y"] = "ʏ", ["i"] = "ɪ", ["e"] = "ɛ",
	["u"] = "ʊ", ["o"] = "ɔ", ["a"] = "ɑ",		["u"] = "ʊ", ["o"] = "ɔ", ["a"] = "ɑ",
			["ů"] = "œ"
	}		}

Line 44:		Line 45:
	end		end
	end		end


	local export = {}		local export = {}

	~~local word_internal_clusters = require("Module:table").listToSet({~~		-- exportable to be used by [[Module:pine-noun]]
	~~"m·pp", "m·p", "m·b", "n·tt", "n·t", "n·d", "n·dv",~~
	~~"n·ts", "n·tsv", "n·tsġ", "n·tsġv", "n·ttṡ", "n·tṡ",~~
	~~"n·tṡv", "n·ƛƛ", "n·ƛ", "n·ƛv", "n·kk", "n·kkv", "n·k", "n·kv",~~
	~~"p·ṃ",~~
	})

	--[[~~m ṃ p b v~~
	~~t d ḍ s ṡ ts tṡ r ṛ l ḷ ƛ lį ḷį n ṇ nį ṇį dn ng kn~~
	~~k g ġ h hį ḥ kṇ tġ~~]]

	function export.syllabify_from_spelling(term)		function export.syllabify_from_spelling(term)
	local vowels = "[" .. vowels_spelling .. "]"		local vowels = "[" .. vowels_spelling .. "]"
Line 82:		Line 72:
	function export.crux(term)		function export.crux(term)
	term = export.syllabify_from_spelling(term)		term = export.syllabify_from_spelling(term)
	~~local debug_syllables = false~~
	~~if debug_syllables then~~
	~~return term~~
	~~end~~

	-- default to short lax vowels		-- default to short lax vowels
	term = gsub(term, "[~~aeiouy~~]", laxen~~); term = gsub(term, "ů", "œ"~~)		term = gsub(term, "[aeiouyů]", laxen)
	-- long vowels		-- long vowels
	term = gsub(term, "([ảẻỉỏủỷ])", long_vowels)		term = gsub(term, "([ảẻỉỏủỷ])", long_vowels)

Sware at 23:46, 25 November 2025

2025-11-25T23:46:45Z

← Older revision		Revision as of 23:46, 25 November 2025
Line 12:		Line 12:
	local m_IPA = require("Module:IPA")		local m_IPA = require("Module:IPA")

	local vowels_spelling = "~~aeiouyůảẻỉỏủỷv~~"		local vowels_spelling = "aeiouyůảẻỉỏủỷ"
	local vowels = "[aɑæɔoʊuʏyɛœøiɪe]"		local vowels = "[aɑæɔoʊuʏyɛœøiɪe]"
	local lazy_consonants = "[^" .. vowels_spelling .."]"		local lazy_consonants = "[^" .. vowels_spelling .."]"
Line 23:		Line 23:

	local long_vowels = {		local long_vowels = {
	~~["a"] = "æː", ["e"] = "eː", ["i"] = "iː",~~
	~~["o"] = "oː", ["u"] = "uː", ["y"] = "yː",~~
	["ả"] = "æː", ["ẻ"] = "eː", ["ỉ"] = "iː",		["ả"] = "æː", ["ẻ"] = "eː", ["ỉ"] = "iː",
	["ỏ"] = "oː", ["ủ"] = "uː", ["ỷ"] = "yː",		["ỏ"] = "oː", ["ủ"] = "uː", ["ỷ"] = "yː",
Line 73:		Line 71:
	word = gsub(word, "·(" .. consonants .. ")(" .. consonants .. "+)", "%1·%2")		word = gsub(word, "·(" .. consonants .. ")(" .. consonants .. "+)", "%1·%2")
	word = gsub(word, "(" .. consonants .. ")·%1", "·%1%1")		word = gsub(word, "(" .. consonants .. ")·%1", "·%1%1")
			word = gsub(word, "(" .. vowels .. ")(" .. consonants .. ")·v(" .. vowels .. ")", "%1·%2v%3")

			word = gsub(word, "·", ".")
	words[i] = word		words[i] = word
	end		end
Line 82:		Line 82:
	function export.crux(term)		function export.crux(term)
	term = export.syllabify_from_spelling(term)		term = export.syllabify_from_spelling(term)
	local debug_syllables = ~~true~~		local debug_syllables = false
	if debug_syllables then		if debug_syllables then
	return term		return term
Line 90:		Line 90:
	term = gsub(term, "[aeiouy]", laxen); term = gsub(term, "ů", "œ")		term = gsub(term, "[aeiouy]", laxen); term = gsub(term, "ů", "œ")
	-- long vowels		-- long vowels
	~~local nfd_term = mw.ustring.toNFD(~~term)		term = gsub(term, "([ảẻỉỏủỷ])", long_vowels)
	~~nfd_term~~ = gsub(~~nfd_term~~, "([~~aeiouy~~])" ~~.. c.hook~~, ~~function(v)~~
	~~return~~ long_vowels~~[v] or long_vowels[v .. c.hook]~~
	~~end)~~
	~~term = mw.ustring.toNFC(nfd_term~~)
	term = gsub(term, "ɔɑ", "ɑː"); term = gsub(term, "ɛœ", "øː")		term = gsub(term, "ɔɑ", "ɑː"); term = gsub(term, "ɛœ", "øː")
	-- diphthongized vowels		-- diphthongized vowels

Sware: Undo revision 478954 by Sware (talk)

2025-11-25T23:39:55Z

Undo revision 478954 by Sware (talk)

← Older revision		Revision as of 23:39, 25 November 2025
Line 15:		Line 15:
	local vowels = "[aɑæɔoʊuʏyɛœøiɪe]"		local vowels = "[aɑæɔoʊuʏyɛœøiɪe]"
	local lazy_consonants = "[^" .. vowels_spelling .."]"		local lazy_consonants = "[^" .. vowels_spelling .."]"
	local consonants_spelling = "[~~rṛtįpsṡdḍgġhḥkḳlḷƛbnṇmṃʧʦ~~]"		local consonants_spelling = "[rṛtįpsṡdḍgġhḥkḳlḷƛvbnṇmṃʧʦ]"

	local laxen = {		local laxen = {

Sware at 23:38, 25 November 2025

2025-11-25T23:38:25Z

← Older revision		Revision as of 23:38, 25 November 2025
Line 12:		Line 12:
	local m_IPA = require("Module:IPA")		local m_IPA = require("Module:IPA")

	local vowels_spelling = "~~aeiouyůảẻỉỏủỷ~~"		local vowels_spelling = "aeiouyůảẻỉỏủỷv"
	local vowels = "[aɑæɔoʊuʏyɛœøiɪe]"		local vowels = "[aɑæɔoʊuʏyɛœøiɪe]"
	local lazy_consonants = "[^" .. vowels_spelling .."]"		local lazy_consonants = "[^" .. vowels_spelling .."]"
	local consonants_spelling = "[~~rṛtįpsṡdḍgġhḥkḳlḷƛvbnṇmṃʧʦ~~]"		local consonants_spelling = "[rṛtįpsṡdḍgġhḥkḳlḷƛbnṇmṃʧʦ]"

	local laxen = {		local laxen = {

Sware at 23:32, 25 November 2025

2025-11-25T23:32:49Z

← Older revision		Revision as of 23:32, 25 November 2025
Line 70:		Line 70:
	for i, word in ipairs(words) do		for i, word in ipairs(words) do
	word = gsub(word, "(" .. consonants .. ")(" .. vowels .. "+)(" .. consonants .. ")", "%1%2·%3")		word = gsub(word, "(" .. consonants .. ")(" .. vowels .. "+)(" .. consonants .. ")", "%1%2·%3")
	word = ~~word:~~gsub("·(" .. consonants .. "?)$", "%1")		word = gsub(word, "·(" .. consonants .. "?)$", "%1")
			word = gsub(word, "·(" .. consonants .. ")(" .. consonants .. "+)", "%1·%2")
			word = gsub(word, "(" .. consonants .. ")·%1", "·%1%1")

	words[i] = word		words[i] = word
Line 86:		Line 88:

	-- default to short lax vowels		-- default to short lax vowels
	term = ~~term:~~gsub("[aeiouy]", laxen); term = ~~term:~~gsub("ů", "œ")		term = gsub(term, "[aeiouy]", laxen); term = gsub(term, "ů", "œ")
	-- long vowels		-- long vowels
	local nfd_term = mw.ustring.toNFD(term)		local nfd_term = mw.ustring.toNFD(term)
	nfd_term = ~~nfd_term:~~gsub("([aeiouy])" .. c.hook, function(v)		nfd_term = gsub(nfd_term, "([aeiouy])" .. c.hook, function(v)
	return long_vowels[v] or long_vowels[v .. c.hook]		return long_vowels[v] or long_vowels[v .. c.hook]
	end)		end)
	term = mw.ustring.toNFC(nfd_term)		term = mw.ustring.toNFC(nfd_term)
	term = ~~term:~~gsub("ɔɑ", "ɑː"); term = ~~term:~~gsub("ɛœ", "øː")		term = gsub(term, "ɔɑ", "ɑː"); term = gsub(term, "ɛœ", "øː")
	-- diphthongized vowels		-- diphthongized vowels
	term = ~~term:~~gsub("ʊɔ", "ʊu"); term = ~~term:~~gsub("œɑ", "øy"); term = ~~term:~~gsub("œɛ", "ʏy")		term = gsub(term, "ʊɔ", "ʊu"); term = gsub(term, "œɑ", "øy"); term = gsub(term, "œɛ", "ʏy")
	-- labiodiphthongized vowels		-- labiodiphthongized vowels
	term = ~~term:~~gsub("vʏy", "ᶣy"); term = ~~term:~~gsub("vøy", "ᶣø"); term = ~~term:~~gsub("vʊu", "ʷu") -- different in eastern		term = gsub(term, "vʏy", "ᶣy"); term = gsub(term, "vøy", "ᶣø"); term = gsub(term, "vʊu", "ʷu") -- different in eastern
	term = ~~term:~~gsub("^ᶣ", "ɥ"); term = ~~term:~~gsub("^ʷ", "w")		term = gsub(term, "^ᶣ", "ɥ"); term = gsub(term, "^ʷ", "w")
	-- diphthongs		-- diphthongs
	term = ~~term:~~gsub("([ɛɑ])ʏ", "%1y"); term = ~~term:~~gsub("ɑy", "æy")		term = gsub(term, "([ɛɑ])ʏ", "%1y"); term = gsub(term, "ɑy", "æy")
	term = ~~term:~~gsub("([ɛɑɪ]ʊ)", "%1u"); term = ~~term:~~gsub("ɪœ", "ɪy")		term = gsub(term, "([ɛɑɪ]ʊ)", "%1u"); term = gsub(term, "ɪœ", "ɪy")

	-- simple consonant subtitutions		-- simple consonant subtitutions
	term = ~~term:~~gsub("ṡ", "ʃ")		term = gsub(term, "ṡ", "ʃ")
	term = ~~term:~~gsub("ḷ", "ɬ"); term = ~~term:~~gsub("ḥ", "ʔ");		term = gsub(term, "ḷ", "ɬ"); term = gsub(term, "ḥ", "ʔ");

	-- geminate consonants		-- geminate consonants
	term = ~~term:~~gsub("(.)%1", "%1ː"); term = ~~term:~~gsub("ng", "ŋː")		term = gsub(term, "(.)%1", "%1ː"); term = gsub(term, "ng", "ŋː")

	-- final substitutions		-- final substitutions
Line 121:		Line 123:
	}		}

	term = ~~term:~~gsub("[ʧʦgƛṃṇṛ]", final_subs)		term = gsub(term, "[ʧʦgƛṃṇṛ]", final_subs)

	return term		return term

Sware at 23:27, 25 November 2025

2025-11-25T23:27:24Z

← Older revision		Revision as of 23:27, 25 November 2025
Line 66:		Line 66:

	term = gsub(term, "(t[sṡ])", {["ts"] = "ʦ", ["tṡ"] = "ʧ"})		term = gsub(term, "(t[sṡ])", {["ts"] = "ʦ", ["tṡ"] = "ʧ"})
	~~--term = term:gsub("([ṛḍḥḳḷṇṃ])", function(c) return mw.ustring.toNFC(mw.ustring.toNFD(c)) end)~~
	~~--term = term:gsub("([ṡ])", function(c) return mw.ustring.toNFC(mw.ustring.toNFD(c)) end)~~

	local words = split(term, "%s")		local words = split(term, "%s")
	for i, word in ipairs(words) do		for i, word in ipairs(words) do
	word = gsub(word, "(" .. consonants .. ")(" .. vowels .. "+)(" .. consonants .. ")", "%1%2.%3")		word = gsub(word, "(" .. consonants .. ")(" .. vowels .. "+)(" .. consonants .. ")", "%1%2·%3")
	~~word = gsub(word, "%.$", "") --~~word = word:gsub("%.(" .. consonants .. "?)$", "%1")		word = word:gsub("·(" .. consonants .. "?)$", "%1")
	~~--word = word:gsub("%.(" .. consonants .. ")(" .. consonants .. "+)", "%1.%2~~")

	words[i] = word		words[i] = word
	end		end



	~~--[[ substitutions for easier processing~~
	~~local digraphs = {~~
	~~["tṡ"] = "ʧ", ["ng"] = "ŋ", ["ts"] = "ʦ",~~
	~~["gį"] = "ɟ", ["nį"] = "ɲ", ["ṇį"] = "ɳ",~~
	~~["kį"] = "c", ["ḥį"] = "ʔ", ["ḍį"] = "θ",~~
	~~["hį"] = "ɕ", ["lį"] = "ʎ", ["ḷį"] = "ʟ",~~
	}

	~~term = term:gsub("(.)%1į", "%1įː") -- e.g. nnį > nį:~~
	~~for digraph, repl in pairs(digraphs) do~~
	~~term = term:gsub(digraph, repl)~~
	~~end~~

	~~-- Split between spaces if term is multiword~~
	~~local words = split(term, "%s")~~
	~~for i, word in ipairs(words) do~~
	~~word = word:gsub("(" .. consonants .. "ː?)(" .. consonants .. "+)", "%1·%2")~~
	~~word = word:gsub("^(" .. consonants .. ")·", "%1"); word = word:gsub("·(" .. consonants .. ")$", "%1")~~

	~~words[i] = word~~
	~~end]]~~

	return table.concat(words, " ")		return table.concat(words, " ")
Line 106:		Line 79:

	function export.crux(term)		function export.crux(term)
	~~--term = mw.ustring.toNFC(mw.ustring.toNFD(term))~~

	term = export.syllabify_from_spelling(term)		term = export.syllabify_from_spelling(term)
	local debug_syllables = true		local debug_syllables = true