模組:Dialect synonyms



--[==[
mod: intitle:dial -intitle:data -intitle:documentation -intitle:zh
Module:zh-Christian-syn
]==]

local export = {}
local m_links = require("Module:links")
local m_languages = require("Module:languages")
local m_scripts = require("Module:scripts")
local m_etymology_languages = require("Module:etymology languages")
local m_table = require("Module:table")

local langs = {}

local elements = {}

elements.table = function(data)
	return mw.html.create("table")
		:addClass("dial-syn")
		:addClass("wikitable")
		:addClass("mw-collapsible")
		:addClass("mw-collapsed")
	:done()
end

elements.head_a = function(data)
	return mw.html.create("tr")
		:tag("th")
			:attr("colspan", #data.columns)
			:css("background-color", data.colour)
			:wikitext(data.title)
		:done()
	:done()
end

elements.head_b = function(data)
	local tr = mw.html.create("tr")
	:done()

	for i, _ in ipairs(data.columns) do
		tr
			:tag("th")
				:css("background-color", data.colour)
				:wikitext(data.columns[i])
			:done()
		:done()
	end

	return tr
end

elements.row_view_map = function(data)
	local tr = mw.html.create("tr")
	:done()

	tr
		:tag("td")
			:attr("colspan", #data.columns)
			:css("text-align", "right")
			:css("background-color", data.colour)
			:wikitext(("[[%s|檢視地圖]];[[%s|編輯資料]]"):format(data.view_map, data.edit_link))
		:done()
	:done()

	return tr
end

local function prompt_create_data(dpath, preload_path)
	local url = mw.uri.fullUrl(dpath, {action='edit', preload=preload_path})
	return ("→Create [%s %s]?"):format(tostring(url), dpath)
end

function export.format_word(data_variety, data)
	-- XXX: $ety_n assumes that $language is the first section on a page
	-- and that we can safely say "foo_2" and link to [[foo#Etymology_2]].
	-- this is a fucking stupid assumption,
	-- and we should be using [[T:senseid]].
	--[==[
		data = {"Word", ety_n=5, tr="tr", q="qual"}
		data = "Word_5/tr:qual"
	]==]

	if type(data) == 'string' then
		data = { word = data }
		local temp_a, temp_b = mw.ustring.match(data.word, '^(.+):(.+)$')
		if temp_a then data.word, data.q = temp_a, temp_b end
		local temp_a, temp_b = mw.ustring.match(data.word, '^(.+)/(.+)$')
		if temp_a then data.word, data.tr = temp_a, temp_b end
		local temp_a, temp_b = mw.ustring.match(data.word, '^(.+)_(%d+)$')
		if temp_a then data.word, data.ety_n = temp_a, temp_b end
	end

	-- re-use language objects if possible
	-- $langs is a global
	if not langs[data_variety.code] then
		langs[data_variety.code] = m_languages.getByCode(data_variety.code, nil, true)
	end

	data.lang = langs[data_variety.code]
	data.term, data.alt = data.word, data.word
	if data.ety_n then data.term = ('%s#詞源%s'):format(data.term, data.ety_n) end
	if data_variety.nolink then data.term = nil end
	data.alt = data.alt .. (data.ety_n and ('<sub>%s</sub>'):format(data.ety_n) or '')

	-- XXX: this code probably shouldn't be located in this module, or at least wholly in this function
	if (data_variety.code_main == 'ar') then
		-- verify script validity
		local valid_script = nil
		local best_script = m_scripts.findBestScriptWithoutLang(data.term):getCode()
		for _,sc in ipairs(data_variety.scripts) do
			if best_script == sc then
				valid_script = sc
				break
			end
		end
		assert(valid_script, ("Invalid script for term `%s` of the dialect `%s`"):format(data.term,data_variety.name))
		data.sc = m_scripts.getByCode(valid_script)

	-- [[Module:ko-dial-syn]]
	-- [[Template:ko-dial-syn#To-do]]
	elseif (data_variety.code_main == 'ko') then
		-- add IPA font for 계림유사
		if (data_variety.name == 'Old Korean-JLLS') and (data.tr) then
			data.tr = tostring(mw.html.create('span')
				:wikitext(data.tr)
				:addClass('IPA')
			:done())
		end

		local bool_no_auto_translit = (
			({['oko']=1, ['okm']=1, ['jje']=1})[data_variety.code]
		)
		local bool_ae_e_merger = (
			(data_variety.name == 'Seoul') or
			(data_variety.code == 'ko-se' and not ({['Jinju']=1, ['Sancheong']=1, ['Hamyang']=1, ['Namhae']=1, ['Hadong']=1, ['Sacheon']=1, ['Goseong']=1, ['Tongyeong']=1})[data_variety.name]) or
			(data_variety.name == 'Samcheok') or
			(data_variety.name == 'Gochang') or
			(data_variety.parent.name == 'South Jeolla' and not ({['Gurye']=1, ['Gwangyang']=1, ['Goheung']=1, ['Boseong']=1})[data_variety.name])
		)
		local bool_eo_eu_merger = (
			(data_variety.code == 'ko-se' and not ({['Uljin']=1, ['Bonghwa']=1, ['Hamyang']=1})[data_variety.name])
		)
		local bool_nasal = (
			(data_variety.code == 'ko-se') or
			(data_variety.parent.name == 'Yeongdong') or
			(data_variety.parent.name == 'South Hwanghae') or
			(data_variety.parent.name == 'North Hwanghae') or
			(data_variety.code == 'ko-nw') or
			(data_variety.code == 'ko-ne')
		)
		local bool_pitch = (
			({['ko-ne']=1, ['ko-se']=1, ['ko-yuk']=1})[data_variety.code] or
			({['Donghae']=1, ['Samcheok']=1, ['Taebaek']=1, ['Yeongwol']=1, ['Gangneung']=1})[data_variety.name]
		)
		local bool_length = true

		if (not data.tr) and (not bool_no_auto_translit) and (bool_ae_e_merger or bool_eo_eu_merger or bool_pitch or bool_length) then
			local m_ko_translit = require("Module:ko-translit")
			local term_for_translit = data.term

			-- transform text in preparation for transliteration
			if (bool_ae_e_merger) then
				term_for_translit = mw.ustring.toNFC(
					mw.ustring.gsub(mw.ustring.toNFD(term_for_translit), "[ᅢᅫ]", {["ᅢ"]="ᅦ", ["ᅫ"]="ᅰ"})
				)
			end
			if (bool_eo_eu_merger) then
				term_for_translit = mw.ustring.toNFC(
					mw.ustring.gsub(mw.ustring.toNFD(term_for_translit), "ᅥ", "ᅳ")
				)
			end
			if (bool_nasal) then
				data.term = mw.ustring.toNFC(
					mw.ustring.gsub(mw.ustring.toNFD(data.term), "~", "ᆼ")
				)
				data.alt = mw.ustring.toNFC(
					mw.ustring.gsub(mw.ustring.toNFD(data.alt), "~", "ᆼ")
				)
			end
			if (bool_pitch) then
				data.term = mw.ustring.gsub(data.term, "'", "")
				data.alt = mw.ustring.gsub(data.alt, "'", "")

				-- assume pitch accent
				if not string.find(term_for_translit, "'") then
					-- gyeongsang
					if data_variety.code == 'ko-se' then
						term_for_translit = mw.ustring.gsub(term_for_translit, "([^~@][~@]*)([^~@][~@]*)$", "'%1%2") -- penultimate
					-- hamgyong
					elseif data_variety.code == 'ko-ne' then
						term_for_translit = mw.ustring.gsub(term_for_translit, "([^~@][~@]*)$", "'%1") -- final
					end
				end

				if (bool_length) then
					term_for_translit = mw.ustring.gsub(term_for_translit, "'@", "@'") -- fix a weird markup order, just in case
				end
				term_for_translit = mw.ustring.gsub(term_for_translit, "('?)([^~@][~@]*)", function(bool_is_high, syllable)
					return syllable .. (bool_is_high ~= "" and "↑" or "↓")
				end)
			end
			if (bool_length) then
				-- XXX: ":" is currently used for word notes; this code tentatively uses "@" instead for development
				data.term = mw.ustring.gsub(data.term, "@", "")
				data.alt = mw.ustring.gsub(data.alt, "@", "")
			end

			-- transliterate
			data.tr = m_ko_translit.tr(term_for_translit)
			-- order diacritics for aesthetics
			data.tr = mw.ustring.gsub(data.tr, "([@↓↑~]+)", function(d)
				return ""
					.. (mw.ustring.match(d, "~") or "")
					.. (mw.ustring.match(d, "[↓↑]") or "")
					.. (mw.ustring.match(d, "@") or "")
			end)
			-- digraph vowels; closed syllables; other modified syllables
			--                                   1 v1     2 v2      3 c                       4         5
			data.tr = mw.ustring.gsub(data.tr, "([aeiou])([aeiou]?)([bcdfghjklmnpqrstvwxyz]*)([↓↑~]+)(@?)", "%1%4%2%5%3")
			-- transform
			data.tr = mw.ustring.gsub(data.tr, "[@↓↑~]", {["@"]=":", ["↑"]="́", ["↓"]="̀", ["~"]="̃"})
		end
	end

	-- create full link
	-- place annotation after the word due to
	-- notes such as those found at [[舅父]],
	-- which appear to rely on direction
	word = m_links.full_link(data)
	if data.q then
		word = word .. " " .. require("Module:qualifier").format_qualifier({ data.q })
	end

	return word
end

local function format_syns(data_variety)
	local words_formatted = {}
	for i, text in ipairs(data_variety.syns) do
		table.insert(words_formatted, export.format_word(data_variety, text))
	end
	return words_formatted
end

function export.show(frame)
	local params = {
		[1] = { required = true, default = "und" },
		[2] = { default = mw.title.getCurrentTitle().text },
		['dpath syns'] = {}, -- for testing: use arbitrary module. like [[Module:sandbox]] or something
	}
	local args = require("Module:parameters").process(frame:getParent().args, params, nil, "語言/方言詞彙", "顯示")

	-- data modules
	local dpath = "Module:dialect synonyms"
	local dpath_mul = dpath .. "/" .. "mul"
	local dpath_lang = dpath .. "/" .. args[1]
	local dpath_syns = dpath_lang  .. "/" .. args[2]
	if args['dpath syns'] then dpath_syns = args['dpath syns'] end
	local dpath_map = "Template:dialect synonym map/" .. args[1] .. "/" .. args[2]
	local data_mul = require(dpath_mul)
	local data_lang = mw.title.new(dpath_lang).exists and require(dpath_lang) or nil
	local data_syns = mw.title.new(dpath_syns).exists and require(dpath_syns) or nil

	-- prompt creation of missing data modules
	if (not data_lang) then
		return prompt_create_data(dpath_lang, 'Module:dialect synonyms/und')
	end
	if (not data_syns) then
		return prompt_create_data(dpath_syns, 'Module:dialect synonyms/' .. args[1] .. '/')
	end

	-- throw error if synonyms table does not even exist
	if (not data_syns.syns) and (not data_syns.list) then
		error(('Could not find .syns in [[%s]].'):format(dpath_syns))
	end

	-- create $data_lang.title fallback
	if not data_lang.title then
		data_lang.title = "Dialectal synonyms of %s"
	end
	-- create $data_lang.columns fallback
	if not data_lang.columns then
		data_lang.columns = {"Variety", "Location", "Words"}
	end
	-- create $data_lang.notes fallback
	if not data_lang.notes then
		data_lang.notes = {}
	end

	-- TEMP: backwards compatibility with the original [[Module:zh-dial-syn]] format
	if (not data_syns.syns) and (data_syns.list) then
		data_syns.syns = data_syns.list
		data_syns.list = nil
	end
	if (not data_syns.gloss) and (data_syns.syns.meaning) then
		data_syns.gloss = data_syns.syns.meaning
		data_syns.syns.meaning = nil
	end
	if (not data_syns.note) and (data_syns.syns.note) then
		data_syns.note = data_syns.syns.note
		data_syns.syns.note = nil
	end

	-- initialize $dial_syn_table
	local dial_syn_table = elements.table()
	:done()

	-- initialize $lang, $main_word, $main_word_link
	-- for $lang="zh:regional", the data modules are named in English,
	-- so the $lang of $main_word is "en";
	-- and the language of the words is "zh", not "zh:regional"
	local lang, lang_qualifier = string.match(args[1], '^(.+):(.+)$')
	lang = lang or args[1]
	local main_word = args[2]
	main_word = mw.ustring.gsub(main_word, "%-[%d]$", "") -- "媽媽-2"→"媽媽"
	local main_word_link = m_links.full_link({
		lang = m_languages.getByCode(lang_qualifier and "en" or lang),
		term = main_word,
		gloss = data_syns.gloss,
	}, "term")

	-- create and add headers for $dial_syn_table
	dial_syn_table
		:node(elements.head_a({
			columns = data_lang.columns,
			title = (data_lang.title):format(main_word_link),
			colour = data_mul.colours["head_a"],
		}))
		:node(elements.row_view_map({
			view_map = dpath_map,
			edit_link = dpath_syns,
			columns = data_lang.columns,
			colour = data_mul.colours["head_a"], -- ?
		}))
		:node(elements.head_b({
			columns = data_lang.columns,
			colour = data_mul.colours["head_a"],
		}))
	:done()

	-- add words to tree
	-- trim tree
	-- ----
	-- enter data tree
	local function recurse(data_variety)
		if #data_variety == 0 then
			-- add words to data tree
			-- first word is an empty string = no words entered
			if (data_syns.syns[data_variety.name]) and (data_syns.syns[data_variety.name][1] ~= '') then
				data_variety.syns = data_syns.syns[data_variety.name]
			end

			-- word fallback with $data_variety.default
			if (data_variety.default) and (not data_variety.syns) then
				if data_variety.default == 'module name' then
					data_variety.syns = {args[2]}
				end
			end

			-- word is n/a
			if (data_variety.syns) and (data_variety.syns[1] == '-') then
				data_variety.code = 'en'
				data_variety.nolink = true
				data_variety.syns[1] = {word = "<i><small>[N/A]</small></i>"}
			end

			-- erase barren leaf from tree
			if (not data_variety.syns) then
				--data_variety = nil
				return
			end

			-- format words
			data_variety.syns = format_syns(data_variety)

			-- prepare header text
			if (not data_variety.text_display) then
				data_variety.text_display = data_variety.english or data_variety.name
				data_variety.text_display = mw.ustring.gsub(data_variety.text_display, '(%(.+%))', '<small>%1</small>')

				if data_variety.code_main == 'ar' and data_variety.wikidata then
					-- XXX: also probably shouldn't be in this module
					-- parenthesise arabic/alt name
					local alt_name = nil
					if not data_variety.suppress_arabic then
						alt_name = mw.wikibase.getLabelByLang(data_variety.wikidata, 'ar')
					elseif data_variety.suppress_arabic ~= 'Y' then
						alt_name = data_variety.suppress_arabic
					end
					alt_name = alt_name and (' (%s)'):format(alt_name) or ''
					data_variety.text_display = data_variety.text_display .. alt_name

					local en_site_link = data_variety.link or mw.wikibase.getSitelink(data_variety.wikidata, 'enwiki')
					--local ar_site_link = nil
					--if not en_site_link then
						--ar_site_link = mw.wikibase.getSitelink(data_variety.wikidata, 'arwiki')
					--end
					site_link = en_site_link
					--if ar_site_link then
						--site_link = 'ar:'..ar_site_link
					--end
					if site_link then
						data_variety.text_display = ('[[w:%s|%s]]'):format(site_link, data_variety.text_display)
					end
				elseif (data_variety.link) then
					data_variety.text_display = ('[[w:%s|%s]]'):format(data_variety.link, data_variety.text_display)
				end
			end
		else
			-- prepare header text
			if (data_variety.name) and (not data_variety.text_display) then
				data_variety.text_display = data_variety.english or data_variety.name
				data_variety.text_display = mw.ustring.gsub(data_variety.text_display, '(%(.+%))', '<small>%1</small>')
				if (data_variety.link) then
					data_variety.text_display = ('[[w:%s|%s]]'):format(data_variety.link, data_variety.text_display)
				end
			end

			-- add fallback iso code
			if not data_variety.code then
				data_variety.code = (data_variety.parent and data_variety.parent.code or lang)
			end

			-- search for tree leaves
			for i, _ in ipairs(data_variety) do
				data_variety[i].parent = data_variety
				data_variety[i].code_main = args[1]
				data_variety[i].code = (data_variety[i].code or data_variety.code)
				data_variety[i].colour = (data_variety[i].colour or data_variety.colour)
				-- recurse
				data_variety[i] = recurse(data_variety[i])
				-- count
				if data_variety[i] then
					if data_variety[i].leaf_count then
						data_variety.leaf_count = (data_variety.leaf_count or 0) + data_variety[i].leaf_count
					else
						data_variety.leaf_count = (data_variety.leaf_count or 0) + 1
					end
				end
			end
			-- erase now-barren sub-tree from tree
			if #m_table.numKeys(data_variety) == 0 then
				data_variety = nil
			end
		end
		return data_variety
	end
	data_lang.varieties = recurse(data_lang.varieties)

	-- add rows to $dial_syn_table
	-- ----
	-- enter data tree
	local function recurse(data_variety, tr)
		-- empty table with no words,
		-- do not try to look for keys, do not try to count keys
		if not data_variety then
			return
		end
		-- if there are no sub-groups
		if #m_table.numKeys(data_variety) == 0 then
			if not tr then
				tr = mw.html.create('tr')
				:done()
			end

			-- add the location + word cells
			tr
				:tag('th')
					:attr('colspan', data_variety.colspan)
					:css("background-color", data_variety.colour)
					:tag('span') -- for CSS `position: sticky`
						:wikitext(data_variety.text_display)
					:done()
				:done()
				:tag('td')
					:css("background-color", data_variety.colour)
					:wikitext(table.concat(data_variety.syns, ', '))
				:done()
			:done()

			dial_syn_table
				:node(tr)
			:done()
		else
			sibling_i = 1
			-- init the row and add headers.
			-- a group header (the thing that has rowspan) must belong to a tr of a leaf, =
			-- but only if that leaf is the first leaf among its siblings.
			-- imagine the formatting of native mediawiki tables
			-- (not tr): as when recursing for the first time, or when it has been 'nil'-ed
			-- (data_variety.parent): don't generate a th for the root. empty, useless and unwanted.
			if (not tr) and (data_variety.parent) then
				tr = mw.html.create('tr')
				:done()
			end
			if (tr) and (sibling_i == 1) then
				tr
					:tag('th')
						:attr('rowspan', data_variety.leaf_count)
						:attr('colspan', data_variety.colspan)
						:css("background-color", data_variety.colour)
						:tag('span') -- for CSS `position: sticky`
							:wikitext(data_variety.text_display)
						:done()
					:done()
				:done()
			end
			-- search for tree leaves
			-- use sparseIpairs() because the deletion of things above leaves gaps in the array
			-- and lua does not continue looping if i + 1 does not exist
			-- use sibling_i because sparseIpairs() provides the original i, not necessarily beginning at 1
			for i, _ in m_table.sparseIpairs(data_variety) do
				if sibling_i > 1 then
					tr = nil
				end
				data_variety[i] = recurse(data_variety[i], tr)
				sibling_i = sibling_i + 1
			end
		end
		return data_variety
	end
	recurse(data_lang.varieties)

	-- add notes to $dial_syn_table
	-- ----
	-- insert synonyms note
	if data_syns.note and data_syns.note ~= "" then
		table.insert(data_lang.notes, 1, data_syns.note)
	end
	-- add notes to $dial_syn_table
	for _, note in ipairs(data_lang.notes) do
		dial_syn_table
			:tag('tr')
				:tag('td')
					:attr("colspan", #data_lang.columns)
					:wikitext(note)
				:done()
			:done()
		:done()
	end

	-- return
	return tostring(dial_syn_table) .. require("Module:TemplateStyles")("Template:dialect synonyms/styles.css")
end

return export