local export = {}
local cangjie = {
['A']='日',['B']='月',['C']='金',['D']='木',['E']='水',['F']='火',['G']='土',
['H']='竹',['I']='戈',['J']='十',['K']='大',['L']='中',['M']='一',['N']='弓',
['O']='人',['P']='心',['Q']='手',['R']='口',
['S']='尸',['T']='廿',['U']='山',['V']='女',['W']='田',['X']='X',['Y']='卜',['Z']='Z'
}
local radicals = {
"一","丨","丶","丿","乙","亅",
"二","亠","人","儿","入","八","冂","冖","冫","几","凵","刀","力","勹","匕","匚","匸","十","卜","卩","厂","厶","又",
"口","囗","土","士","夂","夊","夕","大","女","子","宀","寸","小","尢","尸","屮","山","巛","工","己","巾","干","幺","广","廴","廾","弋","弓","彐","彡","彳",
"心","戈","戶","手","支","攴","文","斗","斤","方","无","日","曰","月","木","欠","止","歹","殳","毋","比","毛","氏","气","水","火","爪","父","爻","爿","片","牙","牛","犬",
"玄","玉","瓜","瓦","甘","生","用","田","疋","疒","癶","白","皮","皿","目","矛","矢","石","示","禸","禾","穴","立",
"竹","米","糸","缶","网","羊","羽","老","而","耒","耳","聿","肉","臣","自","至","臼","舌","舛","舟","艮","色","艸","虍","虫","血","行","衣","襾",
"見","角","言","谷","豆","豕","豸","貝","赤","走","足","身","車","辛","辰","辵","邑","酉","釆","里",
"金","長","門","阜","隶","隹","雨","靑","非",
"面","革","韋","韭","音","頁","風","飛","食","首","香",
"馬","骨","高","髟","鬥","鬯","鬲","鬼",
"魚","鳥","鹵","鹿","麥","麻",
"黃","黍","黑","黹",
"黽","鼎","鼓","鼠",
"鼻","齊",
"齒",
"龍","龜",
"龠"
}
local simplified_radical = {
['丬']='爿',['讠']='言',['门']='門',['饣']='食',['飞']='飛',['马']='馬',['见']='見',['贝']='貝',['纟']='糸',['车']='車',['长']='長',['韦']='韋',['风']='風',['钅']='金',['鸟']='鳥',['竜']='龍',['龙']='龍',['页']='頁',['斉']='齊',['齐']='齊',['麦']='麥',['亀']='龜',['龟']='龜',['鱼']='魚',['黾']='黽',['鼡']='鼠',['歯']='齒',['齿']='齒',['卤']='鹵'
}
function mul_link(term)
return require('Module:links').full_link({lang = require('Module:languages').getByCode('mul'), term = term})
end
function radical(name,number,variant)
number = number or '1'
local len = mw.ustring.len(number)
local padleft = (len == 2 and '0' .. number or (len == 1 and '00' .. number or number))
PAGENAME = PAGENAME or mw.title.getCurrentTitle().text
local text = '<div class="noprint" style="border:solid #aaa 1px;margin:0;font-size:74%;background:#f9f3f6;width:120px;padding:3px;spacing:0;text-align:center;float:right"><div style="float:left">[[Image:Commons-logo.svg|24px|none|link=Commons:Category:Radical ' .. padleft .. ']]</div>[[Commons:Category:Radical ' .. padleft .. "-0|參看關於<br>'''部首 " .. number .. " <big>" .. ((name and name ~= '') and PAGENAME or '※') .. "</big>''']]的圖片</div>"
if name == PAGENAME then
text = text .. '[[分類:漢字部首| ]]'
else
if variant and variant ~= '' then
text = text .. '[[分類:漢字部首| ]]'
else
text = text .. '[[分類:派生漢字| ]]'
end
end
return text
end
function export.simp(frame)
local args = frame:getParent().args
local trad = args[1] or ''; if trad == '' then trad = require("Module:zh/data/st").st[mw.title.getCurrentTitle().text] or mw.title.getCurrentTitle().text end
local nocap = args['nocap'] or ''
local alt = args['a'] or ''
local from = {args['f'] or '',args['f2'] or ''}
local to = {args['t'] or '',args['t2'] or ''}
if from[1] == '' and to[1] ~= '' then from[1] = trad end
local text = {}
local result = ('「' .. mul_link(trad) .. '」')
if alt ~= '' then
result = result .. '和「' .. mul_link(alt) .. '」'
end
result = result .. '的簡化'
for i=1,2 do
if from[i] ~= '' then
if to[i] == '' then
table.insert(text,mul_link(from[i]) .. " → 一個無法單獨顯示的字[[分類:Kenny's testing category 3]]")
elseif to[i] == 'e' or to[i] == ' ' or to[i] == ' ' then
table.insert(text,'去除「' .. mul_link(from[i]) .. '」')
else
table.insert(text,mul_link(from[i]) .. ' → ' .. mul_link(to[i]))
end
end
end
if #text > 0 then
result = result .. '（' .. table.concat(text,' 和 ') .. '）'
result = result:gsub('」 ','」')
end
return result
end
function export.character(frame)
local args = frame:getParent().args
if radicals[tonumber(args['rn'])] ~= (simplified_radical[args['rad']] or args['rad']) then error('Radical number (rn) and radical (rad) do not match') end
local text = ''
local as = tostring(tonumber(args['as'] or '-1'))
PAGENAME = PAGENAME or mw.title.getCurrentTitle().text
if as == '0' then
text = radical(args['rad'],args['rn'],(args['var'] or ''))
end
text = text .. '<strong lang="zh" class="Hani headword">-{' .. (args['head'] or PAGENAME) .. "}-</strong>（[[Appendix:部首索引/" .. (args['rad'] or '') .. '|-{' .. (args['rad'] or ' ') .. '}-]]部+' .. as .. "畫"
if args['asj'] and args['asj'] ~= '' then
text = text .. "中文， " .. (args['rad'] or '') .. '+' .. tonumber(args['asj']) .. "日文"
end
text = text .. "，"
if args['snj'] and args['snj'] ~= '' then
text = text .. "中文"
end
text = text .. "共[[Appendix:总笔画索引/" .. (args['sn'] or '') .. "|" .. (args['sn'] or '') .. "]]畫"
if args['snj'] and args['snj'] ~= '' then
text = text .. "， 日文共" .. args['snj'] .. "畫"
end
if args['canj'] and args['canj'] ~= '' then
local canj = args['canj']
local canj_split = mw.text.split(canj,',')
for i=1,#canj_split do
if mw.ustring.match(canj_split[i],'^[A-Z]+$') then --confirmed UTF-8, use string library instead of ustring
canj_split[i] = canj_split[i]:gsub('[%(%)]','')
canj_split[i] = canj_split[i]:gsub('[A-Z]',cangjie) .. '（[[Appendix:倉頡索引/' .. canj_split[i]:sub(1,1) .. '|' .. canj_split[i] .. ']]）'
else
text = text .. "[[分類:未簡化漢字]]"
end
end
text = text .. "，[[Appendix:倉頡索引|倉頡碼]]：-{" .. table.concat(canj_split,'或') .. "}-"
if #canj_split > 1 then
text = text .. "[[分類:有多個倉頡碼的漢字]]"
end
end
if args['four'] and args['four'] ~= '' then
local four = args['four']
local four_split = mw.text.split(four,',')
for i=1,#four_split do
if not four_split[i]:match('[<>]') then
four_split[i] = four_split[i]:gsub('(%d)(%d%d%d)%.?(%d?)','[[Appendix:四角號碼索引/%1|%1%2<sub>%3</sub>]]')
else
text = text .. "[[分類:Han char unsimplified usage]]"
end
end
text = text .. "，[[Appendix:四角號碼索引|四角號碼]]：" .. table.concat(four_split,'或')
if #four_split > 1 then
text = text .. "[[分類:有多個四角號碼的漢字]]"
end
end
if args['ids'] and args['ids'] ~= '' then
local ids = args['ids']
local ids_split = mw.text.split(ids,',')
for i=1,#ids_split do
if not mw.ustring.match(ids_split[i],'[%[%]]') then
local linked_ids = ""
for j=1,mw.ustring.len(ids_split[i]) do
before = mw.ustring.sub(ids_split[i],1,j-1)
c = mw.ustring.sub(ids_split[i],j,j)
if mw.ustring.match(c,'[⿻⿴⿵⿶⿷⿸⿹⿺⿰⿱⿲⿳]') then
linked_ids = linked_ids .. c
elseif mw.ustring.find(before, c, null, true) then
linked_ids = linked_ids .. c
elseif mw.ustring.match(c, '[⺀-⻳ -〿コスユ㇀-㇣一-鿼㐀-䶿𠀀-𮯠𰀀-𱍊𱍐-𲎯]') then
linked_ids = linked_ids .. '[[' .. c .. ']]'
else
linked_ids = linked_ids .. c
end
end
ids_split[i] = linked_ids
end
end
text = text .. "，[[w:漢字部件|部件組合]]：-{" .. table.concat(ids_split,'或'):gsub('%(','（'):gsub('%)','）'):gsub('G','}-<span class="explain" title="中國大陸">陸</span>-{'):gsub('H','<span class="explain" title="香港">港</span>'):gsub('T','}-<span class="explain" title="臺灣">臺</span>-{'):gsub('J','<span class="explain" title="日本">日</span>'):gsub('K','}-<span class="explain" title="朝鮮">朝</span>-{'):gsub('V','<span class="explain" title="越南">越</span>'):gsub('U','}-<span class="explain" title="統一">統</span>-{'):gsub(';','；') .. "}-"
if #ids_split > 1 then
text = text .. "[[分類:有多種組合描述字符的漢字]]"
end
end
text = text .. '）'
if args['rad'] and args['rad'] ~= '' then
if mw.title.getCurrentTitle().nsText == '' then
text = text .. "[[分類:漢字|" .. args['rad'] .. args['as'] .. PAGENAME .. "]]"
end
else
if mw.title.getCurrentTitle().nsText == '' then
text = text .. "[[分類:需要關注的漢字|q]]"
end
end
if not args['as'] or args['as'] == '' then
text = text .. "[[分類:需要關注的漢字|a]]"
end
if not args['rn'] or args['rn'] == '' then
text = text .. "[[分類:需要關注的漢字|n]]"
end
if not args['sn'] or args['sn'] == '' then
text = text .. "[[分類:需要關注的漢字|s]]"
elseif mw.ustring.sub(args['sn'],1,1) == '0' then
text = text .. "[[分類:模板Han char有錯誤參數]]"
end
if not args['ids'] or args['ids'] == '' then
text = text .. "[[分類:沒有表意文字描述字符的漢字|" .. (args['rad'] or '') .. "]]"
end
if not args['four'] or args['four'] == '' then
text = text .. "[[分類:沒有四角號碼的漢字|" .. (args['rad'] or '') .. "]]"
end
return text
end
return export
