local export = {}
-- For testing
local force_cat = false
local function term_error(terminfo)
if terminfo.lang:hasType("family") then
if terminfo.term and terminfo.term ~= "-" then
require("Module:debug/track")("etymology/family/has-term")
end
terminfo.term = "-"
end
return terminfo
end
local function create_link(terminfo, template_name)
local link = ""
if terminfo.term == "-" then
--[=[
[[Special:WhatLinksHere/Wiktionary:Tracking/cognate/no-term]]
[[Special:WhatLinksHere/Wiktionary:Tracking/derived/no-term]]
[[Special:WhatLinksHere/Wiktionary:Tracking/borrowed/no-term]]
[[Special:WhatLinksHere/Wiktionary:Tracking/calque/no-term]]
]=]
require("Module:debug/track")(template_name .. "/no-term")
else
link = require("Module:also/link").full_link(terminfo, "term")
if (link ~= "") then link = " " .. link end
end
return link
end
function export.process_and_create_link(terminfo, template_name)
terminfo = term_error(terminfo)
return create_link(terminfo, template_name or "파생")
end
function export.get_display_and_cat_name(data)
local source = data.source
local raw = data.raw
local display
local cat_name
if source:getCode() == "und" then
display = "undetermined"
cat_name = "other languages"
elseif source:getCode() == "mul" then
display = "[[w:Translingualism|translingual]]"
cat_name = "Translingual"
elseif source:getCode() == "mul-tax" then
display = "[[w:taxonomic name|taxonomic name]]"
cat_name = "taxonomic names"
else
display = raw and source:getCanonicalName2() or source:getCanonicalName() or source:makeWikipediaLink()
cat_name = source:getDisplayForm2() or source:getDisplayForm()
end
return {
display = display,
cat_name = cat_name
}
end
function export.insert_source_cat_get_display(data)
local categories = data.categories
local lang = data.lang
local source = data.source
local raw = data.raw
local nocat = data.nocat
local res = export.get_display_and_cat_name({
source = source,
raw = raw
})
local display = res.display
local cat_name = res.cat_name
if lang and not nocat then
-- Add the category, but only if there is a current language
if not categories then
categories = {}
end
local langname = lang:getFullName() or lang:getCanonicalName() or lang:getCanonicalName2()
-- If `lang` is an etym-only language, we need to check both it and its parent full language against `source`.
-- Otherwise if e.g. `lang` is Medieval Latin and `source` is Latin, we'll end up wrongly constructing a
-- category 'Latin terms derived from Latin'.
if lang:getCode() == source:getCode() or lang:getFullCode() == source:getCode() then
table.insert(categories, langname .. " " .. langname .. "로 다시 차용된 낱말")
else
table.insert(categories, cat_name .. (data.borrowing_type or "에서 유래한 " .. langname .. " 낱말"))
end
end
return display, categories
end
function export.format_source(data)
local lang = data.lang
local source = data.source
local sort_key = data.sort_key
local categories = data.categories
local nocat = data.nocat
-- [[Special:WhatLinksHere/Wiktionary:Tracking/etymology/sortkey]]
if sort_key then
require("Module:debug/track")("etymology/sortkey")
end
local display
display = export.insert_source_cat_get_display(data)
_, categories = export.insert_source_cat_get_display(data)
if lang and not data.nocat then
-- Format categories, but only if there is a current language; {{cog}} currently gets no categories
categories = require("Module:utilities").format_categories(categories, lang, sort_key, nil,
data.force_cat or force_cat)
else
categories = ""
end
return "<span class=\"etyl\">" .. display .. categories .. "</span>"
end
-- Internal implementation of {{cognate|...}} template
function export.format_cognate(data)
local terminfo = data.terminfo
local sort_key = data.sort_key
return export.format_derived({
terminfo = terminfo,
sort_key = sort_key,
template_name = "cognate",
})
end
-- {{der|...}} & {{차용|...}} 틀의 내부적 구현을 담당합니다.
function export.format_derived(data)
local lang, terminfo, sort_key, nocat, template_name =
data.lang, data.terminfo, data.sort_key, data.nocat, data.template_name
return export.format_source {
lang = lang,
source = terminfo.lang,
sort_key = sort_key,
nocat = nocat,
borrowing_type = data.borrowing_type,
force_cat = data.force_cat,
} .. export.process_and_create_link(terminfo, template_name)
end
do
-- Generate the non-ancestor error message.
local function showLanguage(lang)
local retval = ("%s (%s)"):format(lang:makeCategoryLink(), lang:getCode())
if lang:hasType("etymology-only") then
retval = retval .. (" (an etymology-only language whose regular parent is %s)"):format(
showLanguage(lang:getParent()))
end
return retval
end
-- Check that `lang` has `otherlang` (which may be an etymology-only language) as an ancestor. Throw an error if not.
function export.check_ancestor(lang, otherlang)
-- FIXME: I don't know if this function works correctly with etym-only languages in `lang`. I have fixed up
-- the module link code appropriately (June 2024) but the remaining logic is untouched.
if lang:hasAncestor(otherlang) or mw.title.getCurrentTitle().nsText == "Template" then
return
end
local ancestors, postscript = lang:getAncestors()
local etymModuleLink = lang:hasType("etymology-only") and "[[Module:etymology languages/data]] or " or ""
local moduleLink = "[[Module:"
.. require("Module:languages").getDataModuleName(lang:getFullCode())
.. "]]"
if not ancestors[1] then
postscript = showLanguage(lang) .. " has no ancestors."
else
local ancestorList = table.concat(
require("Module:fun").map(
showLanguage,
ancestors),
" and ")
postscript = ("The ancestor%s of %s %s %s."):format(
ancestors[2] and "s" or "", lang:getCanonicalName(),
ancestors[2] and "are" or "is", ancestorList)
end
error(("%s is not set as an ancestor of %s in %s%s. %s")
:format(showLanguage(otherlang), showLanguage(lang), etymModuleLink, moduleLink, postscript))
end
end
-- Internal implementation of {{inherited|...}} template
function export.format_inherited(data)
local lang, terminfo, sort_key, nocat = data.lang, data.terminfo, data.sort_key, data.nocat
local source = terminfo.lang
local categories = {}
if not nocat then
table.insert(categories, (source:getCanonicalName() or source:getCanonicalName2()) .. "에서 상속된 " .. (lang:getCanonicalName() or lang:getCanonicalName2()) .. " 낱말")
end
-- terminfo의 참조 에러 발생으로 주석처리함. 안 되는 이유는 나도 모름. 동계어, 파생어는 처리되나 이유를 모르겠음
-- local link = export.process_and_create_link(terminfo, "inherited")
-- export.check_ancestor(lang, source)
-- 트래킹 처리 없이 terminfo를 링크 처리함.
local link = require("Module:also/link").full_link(terminfo, "term")
if (link ~= "") then link = " " .. link end
return export.format_source {
lang = lang,
source = source,
sort_key = sort_key,
categories = categories,
nocat = nocat,
force_cat = data.force_cat,
} .. link
end
function export.insert_borrowed_cat(categories, lang, source)
local category
-- Do the same check as in insert_source_cat_get_display() (inverted).
if not (lang:getCode() == source:getCode() or lang:getFullCode() == source:getCode()) then
-- If both are the same, we want e.g. [[:Category:English terms borrowed back into English]] not
-- [[:Category:English terms borrowed from English]]; the former is inserted automatically by format_etyl().
category = (source:getCanonicalName2() or source:getCanonicalName()) .. "에서 차용된 "
end
if category then
table.insert(categories, category .. " " .. lang:getFullName() .. " 낱말" )
end
end
-- Internal implementation of {{차용|...}} template.
function export.format_borrowed(data)
local lang, terminfo, sort_key, nocat = data.lang, data.terminfo, data.sort_key, data.nocat
local source = terminfo.lang
local categories = {}
if not nocat then
export.insert_borrowed_cat(categories, lang, source)
end
return export.format_source {
lang = lang,
source = source,
sort_key = sort_key,
categories = categories,
nocat = nocat,
force_cat = data.force_cat,
} .. export.process_and_create_link(terminfo, "borrowed")
end
return export
