Old Chinese pronunciation module. See {{zh-pron}}. Data stored at Module:zh/data/och-pron-BS, Module:zh/data/och-pron-ZS and their subpages.
local export = {}
local m_string_utils = require("Module:string utilities")
local codepoint = m_string_utils.codepoint
local gsub = m_string_utils.gsub
local len = m_string_utils.len
local safe_require = require("Module:utilities").safe_require
local u = m_string_utils.char
local colour_1 = "var(--wikt-palette-lightblue, #d9ebff)"
local colour_2 = "var(--wikt-palette-cyan, #eaffff)"
local colour_3 = "var(--wikt-palette-paleblue, #f8f9fa)"
local function zh_fmt(text)
return text ~= "" and '<span class="Hani" lang="zh">' .. text .. '</span>' or ""
end
local function insert_pron(reading_temp, text, system, i, return_note, index)
reading_temp = gsub(reading_temp, "() ", "%1")
local part = mw.text.split(reading_temp, " ")
local IPA = gsub(part, "^%*", "")
table.remove(part, 1)
return ((i == 1 and (len(text) == 1 or (index or 1) == 1)) and "/*" or "") .. IPA ..
(len(text) == i and "/" or "") ..
((#part > 0 and return_note) and (" " .. table.concat(part, " ")) or "")
end
local function pron_table(titlechar, reading, system, reading_index, count, i)
return system == "BS"
and {
nil,
'<b>' .. zh_fmt(titlechar) .. '</b>',
reading_index .. "/" .. count,
reading,
'‹ <i>' .. gsub(reading, '()', '<sup>%1</sup>') .. '</i> ›',
'<span class="IPAchar">' .. gsub(insert_pron(reading, titlechar, "BS", 1, true), "ˤ", "ˁ") .. '</span>',
reading
}
or {
nil,
'<b>'..zh_fmt(titlechar)..'</b>',
reading_index .. "/" .. count,
reading,
zh_fmt(".."]]"),
zh_fmt(".."]]"),
reading,
zh_fmt(".."]]"),
'<span class="IPAchar">/*' .. reading .. '/</span>',
gsub(gsub(gsub(reading, "(+)", zh_fmt("%1")), "(，)", "%1<br>"), "()", "]")
}
end
local function get_data(system, ch)
return safe_require(("Module:zh/data/och-pron-%s/%s"):format(system, ch)) or nil
end
function export.ipa(index_text, preview)
local titlechar = mw.title.getCurrentTitle().text
local reading_index = mw.text.split(index_text, ";")
local output_text = {}
local systems = { "BS", "ZS" }
local indiv_pronunciation = { = {}, = {} }
local rand = ""
local fields = {
= {
"]–] system 1.1 " ..
"()",
"<small>Character</small>",
"<small>Reading #</small>",
"<small>Modern<br>Beijing<br/>(Pinyin)</small>",
"<small>Middle<br>Chinese</small>",
"<small>Old<br>Chinese</small>",
"<small>English</small>"
},
= {
"] system (2003)",
"<small>Character</small>",
"<small>Reading #</small>",
"<small>No.</small>",
"<small>Phonetic<br>component</small>",
"<small>Rime<br>group</small>",
"<small>Rime<br>subdivision</small>",
"<small>Corresponding<br>MC rime</small>",
"<small>Old<br>Chinese</small>",
"<small>Notes</small>"
}
}
for system_seq, system in ipairs(systems) do
for i, cp in ipairs { codepoint(titlechar, 1, -1) } do
local ch = u(cp)
local data_module = get_data(system, ch)
if data_module then
local count = 0
for index, value in ipairs(data_module) do
count = count + 1
end
local reading_number = reading_index and (mw.text.split(reading_index, ',') or reading_index) or "y"
if reading_number == "y" then
for reading_index, reading in ipairs(data_module) do
table.insert(indiv_pronunciation, pron_table(ch, reading, system, reading_index, count, i))
end
elseif reading_number == "n" then
break
else
for indiv_number in mw.text.gsplit(reading_number, '%+') do
table.insert(indiv_pronunciation, pron_table(ch, data_module, system, indiv_number, count, i))
end
end
end
end
if indiv_pronunciation then
local hash, results = {}, {}
local value_eff
for _, value in ipairs(indiv_pronunciation) do
local valeur = value
table.remove(valeur, 1)
value_eff = table.concat(valeur)
if not hash then
hash = true
table.insert(value, 1, nil)
results = value
end
end
rand = rand ~= "" and rand or gsub("oc-" .. value_eff, "", codepoint)
local fmt = {
header = '\n{| class="wikitable mw-collapsible mw-collapsed" id="mw-customcollapsible-oc' .. rand ..
'" style="width:100%; margin:0; text-align:center; border-collapse: collapse; border-style: hidden; display: table;"',
lv1 = '\n|-\n! style="background-color:' .. colour_1 .. '" colspan=' .. #results+1 .. '|',
lv2 = '\n|-\n! style="background-color:' .. colour_2 .. '; width:8em"|',
lv3 = '\n| style="background-color:' .. colour_3 .. '"|',
closing = '\n|}',
BS_note = '\n|-\n|colspan=' .. #results+1 ..
[=[ style="text-align:left; font-size:90%"|<div class="toccolours mw-collapsible mw-collapsed">
'''''Notes''' for Old Chinese notations in the Baxter–Sagart system:''
<div class="mw-collapsible-content">
* Parentheses "()" indicate uncertain presence;<br>
* Square brackets "" indicate uncertain identity, e.g. * as coda may in fact be *-t or *-p;<br>
* Angle brackets "<>" indicate infix;<br>
* Hyphen "-" indicates morpheme boundary;<br>
* Period "." indicates syllable boundary.</div>
</div>]=]
}
table.insert(output_text, fmt.header)
for field_index, field in ipairs(fields) do
if field:find("small") then
local field_set = {}
for _, result in ipairs(results) do
table.insert(field_set, result)
end
if table.concat(field_set) ~= "" then
table.insert(output_text, fmt.lv2 .. field .. fmt.lv3 .. table.concat(field_set, fmt.lv3))
end
else
table.insert(output_text, fmt.lv1 .. field)
end
end
table.insert(output_text, (system == "BS" and fmt.BS_note or "") .. fmt.closing)
end
end
local fold = '\n* <div title="expand" class="mw-customtoggle-oc' .. rand .. '"> ' ..
']<span style="float:right; border:1px solid #ccc; border-radius:1px;' ..
' padding:0 0; font-size:90%">▼</span>' .. preview .. '</div>'
return output_text and fold .. gsub(table.concat(output_text), "%%]", "") or ""
end
function export.retrieve_pron(text, reconstruction, no_intro, index)
if type(text) == "table" then text = text.args end
text = require("Module:links").remove_links(text)
local retrieve_result = {}
local intro = no_intro and "" or "<span style=\"border-bottom: 1px dotted #000; cursor:help\" title=\"Old Chinese\">OC</span> "
if not reconstruction then
local index_set
if index and index ~= "y" then
index_set = mw.text.split(index, ",")
end
for char_index, cp in ipairs { codepoint(text, 1, -1) } do
local char_pronunciation = {}
local ch = u(cp)
local data_module = get_data("ZS", ch)
if data_module then
local reading_no = index_set and index_set or "y"
if reading_no ~= "y" then
for number in mw.text.gsplit(reading_no, "+") do
table.insert(char_pronunciation, data_module)
end
else
for _, reading in ipairs(data_module) do
table.insert(char_pronunciation, reading)
end
end
else
return nil
end
table.insert(retrieve_result, table.concat(char_pronunciation, len(text) == 1 and ", *" or "/"))
end
end
return intro .. (reconstruction or "*" .. table.concat(retrieve_result, " "))
end
function export.generate_show(text, index)
local index_set = mw.text.split(index, ";")
local extract_results = { = {}, = {} }
local result = {}
local position = { = 3, = 6 }
local fmt = {
beginning = {
= "\n*: <small>('']–]'')</small>: " ..
'<span style="font-size:95%">',
= "\n*: <small>('']'')</small>: " ..
'<span style="font-size:95%">',
},
ending = {
= "</span>", = "</span>"
}
}
for system_seq, system in ipairs({ "BS", "ZS" }) do
for i, cp in ipairs { codepoint(text, 1, -1) } do
local char_pronunciation = {}
local ch = u(cp)
local data_module = get_data(system, ch)
if data_module then
local existing_pron = {}
local reading_number = index_set and (mw.text.split(index_set, ',') or index_set) or "y"
if reading_number == "y" then
index = 0
for _, reading in ipairs(data_module) do
index = index + 1
local reading_temp = reading]
if not existing_pron then
table.insert(char_pronunciation, insert_pron(reading_temp, text, system, i, false, index))
existing_pron = true
end
end
elseif reading_number == "n" then
break
else
index = 0
for indiv_number in mw.text.gsplit(reading_number, '%+') do
index = index + 1
local reading_temp = data_module]
if not existing_pron then
table.insert(char_pronunciation, insert_pron(reading_temp, text, system, i, false, index))
existing_pron = true
end
end
end
table.insert(extract_results, table.concat(char_pronunciation, len(text) == 1 and ", " or "｜"))
else
extract_results = {}
break
end
end
if extract_results then
table.insert(result, fmt.beginning ..
'<span class="IPAchar">' ..
table.concat(extract_results, " ") ..
'</span>' ..
fmt.ending)
end
end
text = result and gsub(table.concat(result), "｜%*", "｜") or nil
text = text and gsub(text, "/｜", "｜") or nil
text = text and gsub(text, "｜", '<span style="padding-left:2px; padding-right:2px">|</span>')
return text
end
function export.link(frame, arg)
local args = arg or frame:getParent().args
local text, meaning, lit = args, args or args or nil, args or nil
return require("Module:zh/link").link(frame, nil, { "*" .. text, tr = export.retrieve_pron(text, args or false, args or false, args or false), gloss = meaning, lit = lit }, mw.title.getCurrentTitle().subpageText)
end
return export