local export = {}
local m_lang = require("Module:languages")
-- This module implements {{ko-etym-*}} (currently only {{ko-etym-native}}).
local refs = {
{{"1", "hh"}, "1446年的《[[wikisource:ko:훈민정음#訓民正音解例|{{lang|ko|訓民正音解例 / 훈민정음해례}}]]》。", "okm"},
{{"2", "he"}, "1446年的《[[wikisource:ko:훈민정음언해|{{lang|ko|訓民正音諺解本 / 훈민정음언해본}}]]》。", "okm"},
{{"3", "ss", "석보"}, "1447年的《{{lang|ko|釋譜詳節 / 석보상절}}》。", "okm"},
{{"4", "yb", "용가"}, "1447年的《[[wikisource:ko:용비어천가|{{lang|ko|龍飛御天歌 / 용비어천가}}]]》。", "okm"},
{{"5", "wc"}, "1449年的《[[wikisource:ko:월인천강지곡|{{lang|ko|月印千江之曲 / 월인천강지곡}}]]》。", "okm"},
{{"6", "sy"}, "1456年的《{{lang|ko|禪宗永嘉集諺解 / 선종영가집언해}}》。", "okm"},
{{"7", "ws", "wi", "월석"}, "1459年的《{{lang|ko|月印釋譜 / 월인석보}}》。", "okm"},
{{"8", "ne"}, "1461年的《{{lang|ko|楞嚴經諺解 / 능엄경언해}}》。", "okm"},
{{"9", "mb"}, "1463年的《{{lang|ko|妙法蓮華經諺解 / 묘법연화경언해}}》。", "okm"},
{{"10", "wg"}, "1465年的《{{lang|ko|圓覺經諺解 / 원각경언해}}》。", "okm"},
{{"11", "be"}, "1466年的《{{lang|ko|法語諺解 / 법어언해}}》。", "okm"},
{{"12", "nh"}, "1475年的《{{lang|ko|御製內訓 / 어제내훈}}》 ", "okm"},
{{"13", "gg"}, "1466年的《{{lang|ko|救急方諺解 / 구급방언해}}》。", "okm"},
{{"14", "bdb"}, "1481年的《{{lang|ko|分類杜工部詩諺解 / 분류두공부시언해}}》。", "okm"},
{{"15", "nm"}, "1482年的《{{lang|ko|南明集諺解 / 남명집언해}}》。", "okm"},
{{"16", "br"}, "16世紀中葉的《{{lang|ko|百聯抄解 / 백련초해}}》。", "okm"},
{{"17", "bs"}, "1517年的《{{lang|ko|飜譯小學 / 번역소학}}》。", "okm"},
{{"18", "bn"}, "1517年的《{{lang|ko|飜譯老乞大 / 번역노걸대}}》。", "okm"},
{{"19", "ir"}, "1518年的《{{lang|ko|二倫行實圖 / 이륜행실도}}》(玉山書院本)", "okm"},
{{"20", "hm"}, "1527年的《{{lang|ko|訓蒙字會 / 훈몽자회}}》。", "okm"},
{{"21", "gh"}, "1554年的《{{lang|ko|救荒撮要 / 구황촬요}}》。", "okm"},
{{"22", "sj"}, "1576年的《{{lang|ko|新增類合 / 신증유합}}》。", "okm"},
{{"23", "se"}, "1586年的《{{lang|ko|小學諺解 / 소학언해}}》。", "okm"},
{{"24", "gci"}, "1600年左右的《{{lang|ko|癸丑日記 / 계축일기}}》。", "ko-ear"},
{{"25", "etj"}, "1608年的《{{lang|ko|諺解胎産集要 / 언해태산집요}}》。", "ko-ear"},
{{"26", "edj"}, "1608年的《{{lang|ko|諺解痘瘡集要 / 언해두창집요}}》。", "ko-ear"},
{{"27", "sge", "sgs"}, "1610年的《{{lang|ko|禪家龜鑑諺解 / 선가귀감언해}}》(松广寺本)", "ko-ear"},
{{"28", "mg"}, "1635年的《{{lang|ko|磨鏡軒集 / 마경헌집}}》。", "ko-ear"},
{{"29", "erh"}, "1652年的《{{lang|ko|語錄解 / 어록해}}》。", "ko-ear"},
{{"30", "sgg"}, "1660年的《{{lang|ko|新刊救荒撮要 / 신간구황촬요}}》。", "ko-ear"},
{{"31", "pts"}, "1677年的《{{lang|ko|朴通事諺解 / 박통사언해}}》。", "ko-ear"},
{{"32", "yhy", "유해역"}, "1690年的《{{lang|ko|譯語類解 / 역어유해}}》。", "ko-ear"},
{{"33", "js"}, "1518年的《{{lang|ko|正俗諺解 / 정속언해}},({{lang|ko|李源周敎授本 / 이원주 교수본}})", "okm"},
{{"34", "ys"}, "1635年的《{{lang|ko|新傳煮取焰硝方諺解 / 신전자취염초방언해}}》。", "ko-ear"},
{{"35", "sg"}, "1511年的《{{lang|ko|三綱行實圖 / 삼강행실도}}》。", "okm"},
{{"36", "boi"}, "1542年的《{{lang|ko|分門瘟疫易解方 / 분문온역이해방}}》。", "okm"},
{{"37", "yyb"}, "1775年的《{{lang|ko|譯語類解補 / 역어유해보}}》。", "ko-ear"},
{{"38", "ggg"}, "1482年的《{{lang|ko|金剛經三家解 / 금강경삼가해}}》。", "okm"},
{{"39", "du"}, "1613年的《{{lang|ko|東醫寶鑑 / 동의보감}}》。", "ko-ear"},
{{"40", "bo"}, "1653年的《{{lang|ko|辟瘟新方 / 벽온신방}}》。", "ko-ear"},
{{"41", "yhmb", "myb"}, "1790年的《{{lang|ko|蒙語類解補編 / 몽어유해보편}}》。", "ko-ear"},
{{"42", "dssh"}, "1617年的《{{lang|ko|東國新續三綱行實圖 / 동국신속삼강행실도}}》。", "ko-ear"},
{{"43", "ge"}, "1658年的《{{lang|ko|警民編諺解 / 경민편언해}}》。", "ko-ear"},
{{"44", "ggb"}, "1489年的《{{lang|ko|救急簡易方諺解 / 구급간이방언해}}》。", "okm"},
{{"45", "ag"}, "1493年的《{{lang|ko|樂學軌範 / 악학궤범}}》。", "okm"},
{{"46", "bj"}, "1778年的《{{lang|ko|方言集釋 / 방언집석}}》。", "ko-ear"},
{{"47", "msg"}, "1883年的《{{lang|ko|明聖經諺解 / 명성경언해}}》。", "ko-ear"},
{{"48", "gy"}, "1103年的《{{lang|ko|鷄林類事 / 계림유사}}》。", "oko-lat"},
{{"49", "ghw"}, "1895年的《{{lang|ko|國韓會話 / 국한회화}}》。", "ko-ear"},
{{"50", "mc"}, "1623~1649年的《{{lang|ko|馬經抄集諺解 / 마경초집언해}}》。", "ko-ear"},
{{"51", "nob"}, "1517年的《{{lang|ko|老朴輯覽 / 노박집람}}》。", "okm"},
{{"52", "cm"}, "1790年的《{{lang|ko|捷解蒙語 / 첩해몽어}}》。", "ko-ear"},
{{"53", "bb"}, "1517年以前的《{{lang|ko|飜譯朴通事 / 번역박통사}}》。", "okm"},
{{"54", "sus"}, "1751年的《{{lang|ko|三韻聲彙 / 삼운성휘}}》。", "ko-ear"},
{{"55", "dy"}, "1748年的《{{lang|ko|同文類解 / 동문유해}}》。", "ko-ear"},
{{"56", "ng"}, "1636年的《{{lang|ko|盧溪歌 / 노계가}}》。", "ko-ear"},
{{"57", "jg"}, "1684年的《{{lang|ko|朝野記聞 / 조야기문}}》。", "ko-ear"},
{{"58", "ye"}, "1736年的《{{lang|ko|女四書諺解 / 여사서언해}}》。", "ko-ear"},
{{"59", "jh"}, "18世紀的《{{lang|ko|朝野會通 / 조야회통}}》。", "ko-ear"},
{{"60", "ij"}, "18世紀的《{{lang|ko|林花鄭延 / 임화정연}}》。", "ko-ear"},
{{"61", "jgw"}, "1403~1424年的《{{lang|ko|朝鮮館驛語 / 조선관역어}}》。", "okm"},
{{"62", "sc"}, "1583年的《{{lang|ko|石峰千字文 / 석봉천자문}}》。", "okm"},
{{"63", "ns"}, "1601年的《{{lang|ko|南槎錄 / 남사록}}》。", "ko-ear"},
{{"64", "tj"}, "1653年的《{{lang|ko|眈羅志 / 탐라지}}》。", "ko-ear"},
{{"65", "me"}, "1590年的《{{lang|ko|孟子諺解 / 맹자언해}}》。", "okm"},
{{"66", "gre"}, "1632年的《{{lang|ko|家禮諺解 / 가례언해}}》。", "ko-ear"},
{{"67", "tsg"}, "1852年的《{{lang|ko|太上感應篇圖說諺解 / 태상감응편도설언해}}》。", "ko-ear"},
{{"68", "chi"}, "1569年的《{{lang|ko|七大萬法 / 칠대만법}}》。", "okm"},
{{"69", "gcj"}, "1575年的《{{lang|ko|光州千字文 / 광주천자문}}》。", "okm"},
{{"70", "hyg"}, "1236年的《{{lang|ko|鄕藥救急方 / 향약구급방}}》。", "oko-lat"},
{{"71", "ny"}, "17世紀的《{{lang|ko|諺解臘藥症治方 / 언해납약증치방}}》。", "ko-ear"},
{{"72", "csg"}, "1756年的《{{lang|ko|闡義昭鑑 / 천의소감}}》。", "ko-ear"},
}
local ref_table = {}
for _, ref in ipairs(refs) do
local keys, text, langcode = unpack(ref)
for _, key in ipairs(keys) do
ref_table[key] = {text, langcode}
end
end
-- Implementation of {{ko-etym-native}}.
-- The shorthand parameter for first attestations will be deprecated soon in favor of creating actual entries or citation pages for Middle Korean.
-- See discussion at [[Wiktionary:Beer parlour/2019/September#First attestations in the etymology section]].
function export.ko_etym_native(frame)
local params = {
[1] = {},
["also"] = {type = "boolean"},
[2] = {alias_of = "form"},
["form"] = {},
[3] = {alias_of = "yale"},
["yale"] = {},
[4] = {alias_of = "year"},
["year"] = {},
["hangul"] = {type = "boolean"},
["dot"] = {default = "."},
["nodot"] = {type = "boolean"},
["nocat"] = {type = "boolean"},
}
local parargs = frame:getParent().args
if parargs["dot"] == "" then
require("Module:debug").track("ko-etym/ko-etym-native/empty-dot")
end
local args = require("Module:parameters").process(parargs, params)
local parts = {}
local categories = {}
if not args[1] then
table.insert(parts, "朝鮮語自源詞")
else
local text, langcode
if ref_table[args[1]] then
text, langcode = unpack(ref_table[args[1]])
text = text:gsub("{{lang|([a-z]+)|(.-)}}", function(langtextcode, langtext)
local lang = m_lang.getByCode(langtextcode, true)
return require("Module:script utilities").tag_text(langtext, lang)
end)
else
if not args.year then
error("1='" .. args[1] .. "' 非已知的參考著作,所以須提供 year= 參數")
end
text = args[1] .. "》," .. args.year
if args.year:find("^[0-9]+$") then
if tonumber(args.year) < 1300 then
langcode = "oko-lat"
elseif tonumber(args.year) < 1598 then
langcode = "okm"
else
langcode = "ko-ear"
end
else
langcode = "okm"
end
end
local first
if args.also then
first = "也"
else
first = "最早"
end
if args.hangul then
table.insert(parts, "[[諺文]]形式,")
table.insert(parts, mw.getContentLanguage():lcfirst(first))
else
table.insert(parts, first)
end
if args.form then
table.insert(parts, "以")
table.insert(parts, require("Module:etymology").format_inherited(m_lang.getByCode("ko"),
{lang = m_lang.getByCode(langcode, true, "allow etym"),
term = args.form,
tr = "-",
}))
if args.yale then
table.insert(parts, "([[w:耶魯拼音|耶魯拼音]]:''")
table.insert(parts, args.yale)
table.insert(parts, "'')")
end
end
table.insert(parts, "見於")
if langcode == "oko-lat" then
-- table.insert(categories, "最早出現於上古朝鮮語的朝鮮語詞")
elseif langcode == "okm" then
-- table.insert(categories, "最早出現於中古朝鮮語的朝鮮語詞")
end
table.insert(parts, text)
end
if not args.nodot then
table.insert(parts, args.period)
end
if not args.nocat then
table.insert(categories, "朝鮮語本土詞")
end
return table.concat(parts) .. require("Module:utilities").format_categories(categories, m_lang.getByCode("ko"))
end
return export