モジュール:mnc-IPA

このモジュールについての説明文ページを モジュール:mnc-IPA/doc に作成できます

local export = {}

local lang = require("モジュール:languages").getByCode("mnc")
local sc = require("モジュール:scripts").getByCode("mnc-Mong")
local m_IPA = require("モジュール:IPA")

local gsub = mw.ustring.gsub
local sub = mw.ustring.sub
local gmatch = mw.ustring.gmatch
local find = mw.ustring.find
local len = mw.ustring.len

local correspondences = {
	["ñ"] = "ɲ", ["y"] = "j", ["š"] = "ʃ", ["h"] = "χ",
	["t"] = "tʰ", ["d"] = "t", ["g"] = "k", ["b"] = "p", ["j"] = "t͡ʃ", 
	["k"] = "kʰ", ["p"] = "pʰ", ["c"] = "t͡ʃʰ",
	["e"] = "ə", ["o"] = "ɔ", ["ū"] = "ʊ",
}

local function transliterate(text)
	return (lang:transliterate(text, sc))
end

local dialects = {
	[1] = { name = "peking", link = "[[w:北京市|北京]]" },
	[2] = { name = "alcuka", link = "[[w:阿城区|阿城]]" },
	[3] = { name = "sibe", link = "[[w:シベ語|シベ語]]" },
	[4] = { name = "ningguta", link = "[[w:寧安市|寧安]]" },
	[5] = { name = "mukden", link = "[[w:瀋陽市|瀋陽]]" },
	[6] = { name = "sanjiazi", link = "[[w:en:Sanjiazi|三家子村]]" },
}

function export.link(term)
	if find(term, "[A-Za-z]") then
		term = require("モジュール:mnc-Latn-translit").tr(term)
	end
	return require("モジュール:links").full_link{ term = term, lang = lang, sc = sc }
end

local function syllabify(term)
	for i = 1, 2 do
		term = gsub(term, "([aeiouū])([^aeiouū%.]+)([aeiouū])", function(a, b, c)
			return len(b) > 1 and a .. sub(b, 1, 1) .. "." .. sub(b, 2, -1) .. c or a .. "." .. b .. c end)
	end
	return term
end

function export.toIPA(text, style)
	text = gsub(text, "[᠋᠌᠍]", "")
	local text = transliterate(text)
	text = mw.ustring.lower(text)
	text = gsub(text, "niy", "ñ")
	text = gsub(text, "uw", "w")
	text = gsub(text, "ūw", "w")
	text = gsub(text, "iya", "ya")
	text = gsub(text, "iye", "ye")
	text = gsub(text, "iyo", "yo")
	text = gsub(text, "iyoo", "yoo") --iy + V need  to be specified since there are Chinese loanwords that use a different approach in transliteration
	
	for original in gmatch(text, "[a-zñšū]+") do
		word = gsub(original, "ng", "ŋ")
		word = syllabify(word)
		word = gsub(word, ".", correspondences)
		word = gsub(word, "ɔɔ", "oː")
		word = gsub(word, "ŋ%.k", "ŋ.ŋ")
        word = gsub(word, "ŋ%.ŋʰ", "ŋ.kʰ")
		word = gsub(word, "χi", "xi")
		word = gsub(word, "[sʃ](ʰ?)([ij])", "ɕ%1%2")
		word = gsub(word, "k(ʰ?)([aɔʊ])", "q%1%2")
		word = gsub(word, "tʰ([s'])", "t͡sʰ")
		word = gsub(word, "t([z])", "t͡s")
        text = gsub(text, "k'", "k")
        text = gsub(text, "s'", "s")
        text = gsub(text, "h'", "x")
        text = gsub(text, "ž", "ʐ")
		text = gsub(text, original, word, 1)
	end
	
	text = gsub(text, "%.? %.?", ".")
    text = gsub(text, "χj", "xj")
    text = gsub(text, "t͡ɕj", "ʈ͡ʂʐ.")
    text = gsub(text, "ɕj", "sz̩.")
    text = gsub(text, "t.z", ".t͡s")
    text = gsub(text, ".t͡sj", ".t͡sz̩")
    text = gsub(text, "t͡ʃ.j", ".t͡ɕi")
    text = gsub(text, "iɔi", "y")
	text = gsub(text, "\n", "")
	return text
end

function export.make(frame)
	local args = frame:getParent().args
	local pagetitle = mw.title.getCurrentTitle().text
	
	local p, output_t = {}, {}
	local results = {
		["standard"] = {},
		["peking"] = {},
		["alcuka"] = {},
		["sibe"] = {},
		["ningguta"] = {},
		["mukden"] = {},
		["sanjiazi"] = {},
	}
	
	if args[1] then
		for index, item in ipairs(args) do
			table.insert(p, (item ~= "") and item or nil)
		end
	else
		p = { pagetitle }
	end
	
	for _, Manchu in ipairs(p) do
		table.insert(results["standard"], { pron = "[" .. export.toIPA(Manchu, "standard") .. "]" })
	end
	
	table.insert(output_t, "* ([[w:満洲語|標準]]) " .. m_IPA.format_IPA_full(lang, results["standard"]))
	
	for _, data in pairs(dialects) do
		if args[data.name] then
			for dial_pronunciation in mw.text.gsplit(args[data.name], "/") do
				table.insert(results[data.name], { pron = "[" .. dial_pronunciation .. "]" })
			end
			table.insert(output_t, "* (''" .. data.link .. "'') " .. m_IPA.format_IPA_full(lang, results[data.name]))
		end
	end
	
	return table.concat(output_t, "\n")
end

return export