Module:zh-glyph: difference between revisions
Jump to navigation
Jump to search
Content deleted Content added
Justinrleung (talk | contribs) No edit summary |
No edit summary |
||
Line 35: | Line 35: | ||
function export.main(frame) |
function export.main(frame) |
||
local pagename = mw.title.getCurrentTitle().subpageText |
local pagename = mw.title.getCurrentTitle().subpageText |
||
local showEras, showScripts, showImgs, hideText = {}, {}, {} |
local showEras, showScripts, showImgs, hideText = {}, {}, {}, {} |
||
local success, data_module = pcall(mw.loadData, "Module:zh/data/glyph-data/" .. pagename) |
local success, data_module = pcall(mw.loadData, "Module:zh/data/glyph-data/" .. pagename) |
||
Revision as of 21:06, 12 February 2018
- The following documentation is located at Module:zh-glyph/documentation. [edit]
- Useful links: subpage list • links • transclusions • testcases • sandbox
Backend for {{Han etym}}
.
local export = {}
local sub = mw.ustring.sub
local eras = {
{ "[[w:Shang dynasty|Shang]]", { "bronze-shang", "oracle" } },
{ "[[w:Western Zhou|Western Zhou]]", { "bronze" } },
{ "[[w:Spring and Autumn period|Spring and Autumn]]", { "bronze-spring" } },
{ "[[w:Warring States period|Warring States]]", { "bronze-warring", "silk", "slip" } },
{ "''[[w:Shuowen Jiezi|Shuowen Jiezi]]'' ([[w:Han dynasty|Han]])", { "seal" } },
{ "''Liushutong'' ([[w:Ming dynasty|Ming]])", { "bigseal" } }
}
local scripts = {
["bronze-shang"] = "[[w:Chinese bronze inscriptions|Bronze inscriptions]]",
["oracle"] = "[[w:Oracle bone script|Oracle bone script]]",
["bronze"] = "[[w:Chinese bronze inscriptions|Bronze inscriptions]]",
["bronze-spring"] = "[[w:Chinese bronze inscriptions|Bronze inscriptions]]",
["bronze-warring"] = "[[w:Chinese bronze inscriptions|Bronze inscriptions]]",
["silk"] = "[[w:Bamboo and wooden slips|Chu bamboo and silk script]]",
["slip"] = "[[w:Bamboo and wooden slips|Qin bamboo and wooden slip script]]",
["seal"] = "[[w:Small seal script|Small seal script]]",
["bigseal"] = "Transcribed ancient scripts",
}
local script_abbrev = {
["B"] = "bronze",
["b"] = "bronze",
["j"] = "oracle",
["S"] = "silk",
["Q"] = "slip",
["s"] = "seal",
["L"] = "bigseal",
}
function export.main(frame)
local pagename = mw.title.getCurrentTitle().subpageText
local showEras, showScripts, showImgs, hideText = {}, {}, {}, {}
local success, data_module = pcall(mw.loadData, "Module:zh/data/glyph-data/" .. pagename)
local char_data = {
["bronze"] = {},
["oracle"] = {},
["silk"] = {},
["slip"] = {},
["seal"] = {},
["bigseal"] = {},
}
count = 0
table.sort(scripts, function(first, second) return first[1] < second[1] end)
for _, era in ipairs(eras) do
local count_era = 0
for _, script in ipairs(era[2]) do
local img_link = pagename .. "-" .. script .. ".svg"
if mw.title.new("Media:" .. img_link).exists then
count = count + 1
count_era = count_era + 1
table.insert(showScripts, "\n!" .. scripts[script])
table.insert(showImgs, "\n| style=\"padding: 8px;\"|[[File:" .. img_link .. "|60px]]")
end
end
if count_era > 0 then
table.insert(showEras, "\n! colspan=\"" .. count_era .. "\"|" .. era[1])
end
end
if success then
local img_count = 0
for _, img in ipairs(data_module[1]) do
img_count = img_count + 1
end
success = success and mw.title.new("Media:ACC-" .. data_module[1][img_count] .. ".svg").exists
end
if success then
local capacity = 8
for _, img in ipairs(data_module[1]) do
table.insert(char_data[script_abbrev[sub(img, 1, 1)]], '<td><div class="gallerybox"' ..
'>\n<div style="text-align:center; padding:8px" class="thumb">[[File:ACC-' .. img ..
'.svg|60px]]\n<div class="gallerytext">\n<p><small>' .. img .. '</small></p>\n</div>\n</div>\n</td>')
end
for _, script in ipairs(scripts) do
if char_data[script[2]][1] then
local script_concat = { "\n----\n<table class=\"gallery\">\n<caption><b>", script[3], "</b></caption>\n" }
script_data = char_data[script[2]]
for i = 0, math.ceil(#script_data / capacity) - 1 do
table.insert(script_concat, "<tr>")
for j = 1, capacity do
table.insert(script_concat, script_data[i*capacity+j] or nil)
end
table.insert(script_concat, "</tr>")
end
table.insert(script_concat, "\n</table>")
table.insert(hideText, table.concat(script_concat))
end
end
table.insert(hideText, '\n|- class="vsHide"\n| width="100%" align="left" colspan="' .. (count == 0 and 1 or count) ..
'|\n----<div class="toccolours mw-collapsible mw-collapsed"><b>References</b>:' ..
'<div class="mw-collapsible-content">\nMostly from Richard Sears\' ' ..
"[http://hanziyuan.net/#" ..
pagename .. " Chinese Etymology site] ([[c:Commons:Ancient Chinese characters/Richard Sears Agreement" ..
"|authorisation]]),<br>which in turn draws data from various collections of ancient forms of Chinese characters" ..
", including:\n* ''Shuowen Jiezi'' (small seal), \n* ''Jinwen Bian'' (bronze inscriptions)" ..
", \n* ''Liushutong'' (Liushutong characters) and \n* ''Yinxu Jiaguwen Bian'' (oracle bone script).</div></div>")
end
if success or count > 0 then
glyph_forms = [=[{| class="inflection-table]=] .. (success and " vsSwitcher vsToggleCategory-forms" or "") ..
[=[" cellpadding=7 style="border-spacing: 1px; border: 1px solid darkgray; text-align:center"
! class="vsToggleElement" colspan="]=] .. (count == 0 and 1 or count) ..
[=[" |Historical forms of the character <span lang="zh-Hant" class="Hani">]=] .. pagename .. [=[</span>]=] ..
(count > 0
and "\n----\n|-" .. table.concat(showEras) .. "\n|-" .. table.concat(showScripts) .. "\n|-" .. table.concat(showImgs)
or "") ..
(success
and "\n|- class=\"vsHide\"\n| align=\"center\" colspan=\"" .. (count == 0 and 1 or count) ..
"|" .. table.concat(hideText, "")
or "") ..
"\n|}"
else
glyph_forms = ""
end
local phonText = {}
local list = mw.loadData("Module:zh-glyph/phonetic/list")
phonComp = list[pagename] or nil
if phonComp then
table.insert(phonText, '\n{| class="wikitable mw-collapsible mw-collapsed" cellpadding="6" style="text-align:center"')
table.insert(phonText, '\n|-\n! style="background-color:#F3F7F2; padding: 5px 10px 5px 10px;" colspan=2|Characters in the same [[Wiktionary:About Chinese/phonetic series|phonetic series]] (<span style="font-size:120%"><span class="Hani">[[' .. phonComp .. ']]</span></span>) <small>([[Wiktionary:About Chinese/references|Zhengzhang, 2003]])</small> ')
local phonData = mw.loadData("Module:zh-glyph/phonetic")
local m_och = require("Module:och-pron").retrieve_pron
table.insert(phonText, '\n|-\n! align="center"|\n!Old Chinese')
for item in mw.text.gsplit(phonData[phonComp], "") do
table.insert(phonText, '\n|-\n| align="center" style="font-size:120%"|<span class="Hani">[[' .. item .. '#Chinese|' .. item .. ']]</span>')
local IPA = m_och(item, nil, true)
if IPA then
table.insert(phonText, '\n|<small><span class="IPA">' .. IPA .. '</span></small>')
end
end
table.insert(phonText, '\n|}')
end
return glyph_forms .. table.concat(phonText)
end
return export