Module:xchc-noun: Difference between revisions

(29 intermediate revisions by the same user not shown)

Line 10:

local m_tr = require('Module:xchc-translit')

local m_ipa = require('Module:xchc-pron')

local c = require("Module:languages/data").chars

local lang = require('Module:languages').getByCode("xchc")

Line 17:

Line 19:

local export = {}

local voiced = "mnɲŋbdɡvzʒɣlr"

local voiced = "мньӈбдгвзжғлрй" --"mnɲŋbdɡvzʒɣlr"

local voiceless = "ptkfsʃxh"

local voiceless = "пткфсшӀчц" --"ptkfsʃxh"

local consonant = "[" .. voiced .. voiceless .. "]"

local vowel = "[aeɛioɔuyø]"

local vowel = "[ыиэеаяүөуюоёӯӣɜɔ]" --"[aeɛioɔuyø]"

local genders = {["a"] = "animate", ["i"] = "inanimate"}

~~local function pron(w)~~

~~return m_ipa.crux(w)~~

~~end~~

local function gsubh(word, pat, repl, def)

Line 46:

Line 44:

local word = NAMESPACE == "Template" and "өра̄" or parent_args["word"] or PAGENAME

local unc = parent_args["unc"] or false

local args = {}

Line 52:

Line 51:

data = {}

data.word = word

data.nocat = parent_args["nocat"] or false

data.g = g

data.sg = ""

~~local lastipa = match(pron(word), ".ː?$")~~

local pautable = {["a"] ~~= "н", ["e~~"] = "ч", ["ɛ"] = "н", ["~~i"] = "ч",~~ [~~"o"~~] ~~= "ӈ", ["ɔ~~"] = "ӈ", ~~["ø"]~~ = ~~"ч", ["u"]~~ = "ӈ", ["y"] = ~~"ч"}~~

local pautable = {

data.pau = ~~pautable[lastipa] or~~ gsubh(word, "Bӈ",{["b"]="о̆",["f"]="э̆", ["ab"]="о̆"})

["[эеыиӣөү]"] = "ч",

["[ɛая]"] = "н",

["[уӯоɔ]"] = "ӈ",

}

local simplified_word = m_ipa.simplify(word)

--data.pau = nil

if simplified_word:match(vowel .. "$") then

for pat, pau in pairs(pautable) do

if simplified_word:match(pat .. "$") then

data.pau = pau

break

end

else

data.pau = gsubh(word, "Bӈ",{["b"]="о̆",["f"]="э̆", ["ab"]="о̆"})

end

data.pl = {

["i"] = (match(~~pron(word)~~, voiceless .. "ː?$") and "ш" or "ж") .. gsubh(word, "Bд",{["b"]="о̆",["e"]="э̆", ["ab"]="о̆"}),

["i"] = (match(simplified_word, "[" .. voiceless .. "]$") and "ш" or "ж") .. gsubh(word, "Bд",{["b"]="о̆",["e"]="э̆", ["ab"]="о̆"}),

["a"] = (match(~~pron(word)~~, voiceless .. "ː?$") and "ф" or "в") .. gsubh(word, "Rд",{["r"]="ө",["u"]="э", ["ar"]="э"}),

["a"] = (match(simplified_word, "[" .. voiceless .. "]$") and "ф" or "в") .. gsubh(word, "Rд",{["r"]="ө",["u"]="э", ["ar"]="э"}),

}

Line 114:

Line 131:

local decl = {

["nom"] = "",

["acc"] = match~~(pron~~(w_number[n_sh]), vowel .. "ː?$") and "дза"

["acc"] = match(w_number[n_sh], vowel .. "$") and "дза"

or match~~(pron~~(w_number[n_sh]), voiced .. "ː?$") and "да"

or match(w_number[n_sh], voiced .. "$") and "да"

or "та",

["dat"] = match~~(pron~~(w_number[n_sh]), vowel .. "ː?$") and "ша"

["dat"] = match(w_number[n_sh], vowel .. "$") and "ша"

or match~~(pron~~(w_number[n_sh]), voiced .. "ː?$") and "за"

or match(w_number[n_sh], voiced .. "$") and "за"

or "са",

["gen"] = "ля",

["ins"] = match~~(pron~~(w_number[n_sh]), vowel .. "ː?$") and "~~лза~~"

["ins"] = match(w_number[n_sh], vowel .. "$") and "лз"

or gsubh(w_number[n_sh], "Rлз",{["r"]="ө",["u"]="э",["ar"]="ө"}),

["pro"] = gsubh(w_number[n_sh], "сRц",{["r"]="ө",["u"]="э", ["ar"]="ө"}),

Line 151:

Line 168:

after_title="[[:Category:Chiingimec " .. genders[data.g] .. " nouns|" .. genders[data.g] .. "]]",

all_cases=make_cases(data)

})

}) .. (data.nocat and "" or "[[Category:Chiingimec " .. genders[data.g] .. " nouns|" .. genders[data.g] .. "]]")

end

return export

@@ Line 10: / Line 10: @@
 local m_tr = require('Module:xchc-translit')
 local m_ipa = require('Module:xchc-pron')
+local c = require("Module:languages/data").chars
 local lang = require('Module:languages').getByCode("xchc")
@@ Line 17: / Line 19: @@
 local export = {}
-local voiced = "mnɲŋbdɡvzʒɣlr"
+local voiced = "мньӈбдгвзжғлрй" --"mnɲŋbdɡvzʒɣlr"
-local voiceless = "ptkfsʃxh"
+local voiceless = "пткфсшӀчц" --"ptkfsʃxh"
 local consonant = "[" .. voiced .. voiceless .. "]"
-local vowel = "[aeɛioɔuyø]"
+local vowel = "[ыиэеаяүөуюоёӯӣɜɔ]" --"[aeɛioɔuyø]"
 local genders = {["a"] = "animate", ["i"] = "inanimate"}
-local function pron(w)
-	return m_ipa.crux(w)
-end
 local function gsubh(word, pat, repl, def)
@@ Line 46: / Line 44: @@
 	local word = NAMESPACE == "Template" and "өра̄" or parent_args["word"] or PAGENAME
 	local unc = parent_args["unc"] or false
 	local args = {}
@@ Line 52: / Line 51: @@
 	data = {}
 	data.word = word
+	data.nocat = parent_args["nocat"] or false
 	data.g = g
 	data.sg = ""
-	local lastipa = match(pron(word), ".ː?$")
-	local pautable = {["a"] = "н", ["e"] = "ч", ["ɛ"] = "н", ["i"] = "ч", ["o"] = "ӈ", ["ɔ"] = "ӈ", ["ø"] = "ч", ["u"] = "ӈ", ["y"] = "ч"}
+	local pautable = {
-	data.pau = pautable[lastipa] or gsubh(word, "Bӈ",{["b"]="о̆",["f"]="э̆", ["ab"]="о̆"})
+		["[эеыиӣөү]"] = "ч",
+		["[ɛая]"] = "н",
+		["[уӯоɔ]"] = "ӈ",
+	}
+	local simplified_word = m_ipa.simplify(word)
+	--data.pau = nil
+	if simplified_word:match(vowel .. "$") then
+		for pat, pau in pairs(pautable) do
+			if simplified_word:match(pat .. "$") then
+				data.pau = pau
+				break
+			end
+		end
+	else
+		data.pau = gsubh(word, "Bӈ",{["b"]="о̆",["f"]="э̆", ["ab"]="о̆"})
+	end
 	data.pl = {
-		["i"] = (match(pron(word), voiceless .. "ː?$") and "ш" or "ж") .. gsubh(word, "Bд",{["b"]="о̆",["e"]="э̆", ["ab"]="о̆"}),
+		["i"] = (match(simplified_word, "[" .. voiceless .. "]$") and "ш" or "ж") .. gsubh(word, "Bд",{["b"]="о̆",["e"]="э̆", ["ab"]="о̆"}),
-		["a"] = (match(pron(word), voiceless .. "ː?$") and "ф" or "в") .. gsubh(word, "Rд",{["r"]="ө",["u"]="э", ["ar"]="э"}),
+		["a"] = (match(simplified_word, "[" .. voiceless .. "]$") and "ф" or "в") .. gsubh(word, "Rд",{["r"]="ө",["u"]="э", ["ar"]="э"}),
 	}
@@ Line 114: / Line 131: @@
 				local decl = {
 					["nom"] = "",
-					["acc"] = match(pron(w_number[n_sh]), vowel .. "ː?$") and "дза"
+					["acc"] = match(w_number[n_sh], vowel .. "$") and "дза"
-						      or match(pron(w_number[n_sh]), voiced .. "ː?$") and "да"
+						      or match(w_number[n_sh], voiced .. "$") and "да"
 						      or "та",
-					["dat"] = match(pron(w_number[n_sh]), vowel .. "ː?$") and "ша"
+					["dat"] = match(w_number[n_sh], vowel .. "$") and "ша"
-							  or match(pron(w_number[n_sh]), voiced .. "ː?$") and "за"
+							  or match(w_number[n_sh], voiced .. "$") and "за"
 							  or "са",
 					["gen"] = "ля",
-					["ins"] = match(pron(w_number[n_sh]), vowel .. "ː?$") and "лза"
+					["ins"] = match(w_number[n_sh], vowel .. "$") and "лз"
 							  or gsubh(w_number[n_sh], "Rлз",{["r"]="ө",["u"]="э",["ar"]="ө"}),
 					["pro"] = gsubh(w_number[n_sh], "сRц",{["r"]="ө",["u"]="э", ["ar"]="ө"}),
@@ Line 151: / Line 168: @@
 		after_title="[[:Category:Chiingimec " .. genders[data.g] .. " nouns|" .. genders[data.g] .. "]]",
 		all_cases=make_cases(data)
-		})
+		}) .. (data.nocat and "" or "[[Category:Chiingimec " .. genders[data.g] .. " nouns|" .. genders[data.g] .. "]]")
 end
 return export