local export = {}
local m_params = require("Module:parameters")
local m_grc_utils = require("Module:grc-utilities")
local tokenize = m_grc_utils.tokenize
local find_ambig = m_grc_utils.findAmbig
local diacritic = mw.loadData("Module:grc-utilities/data").diacritic
local full_headword = require("Module:headword").full_headword
local get_accent_term = require("Module:grc-accent").get_accent_term
local serial_comma_join = require("Module:table").serialCommaJoin
local lang = require("Module:languages").getByCode("grc")
local canonical_name = lang:getCanonicalName()
local sc = require("Module:scripts").getByCode("Polyt")
local NAMESPACE = mw.title.getCurrentTitle().nsText
local PAGENAME = mw.title.getCurrentTitle().text
local MAINSPACE = NAMESPACE == ""
local reconstructed_prefix = NAMESPACE == "Reconstruction" and "reconstructed " or ""
local ufind = mw.ustring.find
local umatch = mw.ustring.match
local pos_functions = {}
local legal_declension = {
["first"] = true,
["second"] = true,
["Attic"] = true,
["third"] = true,
["irregular"] = true,
}
local legal_declension_zh_map = {
["first"] = "一類",
["second"] = "二類",
["Attic"] = "阿提卡類",
["third"] = "三類",
["irregular"] = "不規則",
}
-- Also used to validate genders.
local gender_names = {
["m"] = "陽性",
["m-s"] = "陽性",
["m-d"] = "陽性",
["m-p"] = "陽性",
["f"] = "陰性",
["f-s"] = "陰性",
["f-d"] = "陰性",
["f-p"] = "陰性",
["n"] = "中性",
["n-s"] = "中性",
["n-d"] = "中性",
["n-p"] = "中性",
["?"] = "未知性別",
["?-s"] = "未知性別",
["?-d"] = "未知性別",
["?-p"] = "未知性別",
}
local function quote(text)
return "“" .. text .. "”"
end
local function format(array, concatenater)
if not array[1] then
return ""
else
return "; ''" .. table.concat(array, concatenater) .. "''"
end
end
-- Process arg the way [[Module:parameters]] would.
local function process_arg(val)
if val == "" then
val = nil
end
if val then
val = mw.text.trim(val)
end
return val
end
-- Returns true if text contains one character from the Greek and Coptic or
-- Greek Extended blocks.
local function contains_Greek(text)
-- Matches any character in Greek and Coptic block except the first line:
-- ͰͱͲͳʹ͵Ͷͷͺͻͼͽ;Ϳ
local basic_Greek = "[\206-\207][\128-\191]"
-- Exactly matches entire Greek Extended block.
local Greek_extended = "\225[\188-\191][\128-\191]"
return (string.find(text, basic_Greek) or string.find(text, Greek_extended)) and true or false
end
-- A cheaper version of makeEntryName. Doesn't remove underties, which should
-- not appear in headwords, or convert curly apostrophes, spacing smooth
-- breathings, and spacing coronides to straight apostrophes.
local function remove_macron_breve(text)
return mw.ustring.toNFD(text):gsub("\204[\132\134]", "")
end
local function remove_links(text)
if text:find("%[%[") then
return (text
:gsub("%[%[[^|]+|([^%]]+)%]%]", "%1")
:gsub("%[%[([^%]]+)%]%]", "%1"))
else
return text
end
end
local U = mw.ustring.char
local macron = U(0x304)
local breve = U(0x306)
local rough = U(0x314)
local smooth = U(0x313)
local diaeresis = U(0x308)
local acute = U(0x301)
local grave = U(0x300)
local circumflex = U(0x342)
local subscript = U(0x345)
local diacritic_patt = table.concat{
"[",
macron, breve,
rough, smooth, diaeresis,
acute, grave, circumflex,
subscript,
"]"
}
local accent_patt = "[" .. acute .. grave .. circumflex .. "]"
-- Controls whether or not the headword can be provided in the first numbered parameter.
local function needs_headword(text)
local lengthDiacritic = "[" .. macron .. breve .. circumflex .. subscript .. "]"
local aiu_diacritic = "^([ΑαΙιΥυ])(" .. diacritic_patt .. "*)$"
text = remove_links(text)
-- If page name has straight apostrophe, a headword with curly apostrophe should be provided.
if text:find("'") then
return true
end
-- breaks the word into units
for _, token in ipairs(tokenize(text)) do
local vowel, diacritics = umatch(token, aiu_diacritic)
if vowel and (diacritics == "" or
not ufind(diacritics, lengthDiacritic)) then
return true
end
end
return false
end
-- Process numbered parameters before using [[Module:parameters]], as
-- [[Module:parameters]] converts several named parameters into arrays, which
-- makes them more difficult to manipulate.
local function process_numbered_params(args, Greek_params, nonGreek_params)
if not nonGreek_params then
nonGreek_params = { false }
end
local max_Greek_param_index = #Greek_params
-- Clone args table so that its values can be modified.
args = require("Module:table").shallowcopy(args)
if args.head then
-- [[Special:WhatLinksHere/Template:tracking/grc-headword/head param]]
require("Module:debug").track("grc-headword/head param")
end
local last_Greek_param_index = 0
for i, arg in ipairs(args) do
if arg == "-" or contains_Greek(arg) then
last_Greek_param_index = i
else
break
end
end
local head_in_arg1 = false
if last_Greek_param_index == max_Greek_param_index then
if not MAINSPACE or needs_headword(PAGENAME) then
head_in_arg1 = true
else
error(("The pagename does not have ambiguous vowels, so there cannot be "
.. max_Greek_param_index
.. " numbered parameter%s. See template documentation for more details.")
:format(max_Greek_param_index == 1 and "" or "s"))
end
elseif last_Greek_param_index > max_Greek_param_index then
error("Too many numbered parameters containing Greek text or hyphens. There can be at most "
.. max_Greek_param_index .. ".")
-- For indeclinable nouns: {{grc-noun|Ἰσρᾱήλ|m}}
-- First parameter is headword if equal to pagename when macrons and breves are removed.
elseif args[1] and remove_macron_breve(args[1]):gsub("’", "'") == mw.ustring.toNFD(PAGENAME) then
if args.head then
error("Parameter 1 appears to be the headword, so the head parameter " .. quote(args.head) .. " is not needed.")
end
args.head, args[1] = args[1], nil
else
table.remove(Greek_params, 1) -- Remove "head" parameter.
end
local function process_params(start_i, end_i, param_names)
local i = 1 -- Index in the table of parameter names.
for numbered = start_i, end_i do
local named = param_names[i]
i = i + 1
if named then
-- Process parameters, as they have not been processed by [[Module:parameters]].
args[numbered], args[named] =
process_arg(args[numbered]), process_arg(args[named])
-- This should not happen, because the number of Greek parameters
-- has already been checked.
elseif args[numbered] then
error("No purpose for parameter " .. numbered .. ".")
end
if args[numbered] then
if named then
-- This fixes an error caused by the kludgy way in which the
-- numbered parameters of {{grc-preposition}} are handled.
if numbered ~= named then
if args[named] then
error("Parameter " .. numbered .. " is not needed when parameter " .. named .. " is present.")
end
args[named], args[numbered] = args[numbered], nil
end
else
error("Parameter " .. numbered .. ", " .. args[numbered] .. ", has no purpose.")
end
end
end
end
process_params(1, last_Greek_param_index, Greek_params)
process_params(last_Greek_param_index + 1, #Greek_params + #nonGreek_params, nonGreek_params)
if args.head == "-" then
error("The headword cannot be absent.")
end
return args
end
local function process_heads(data, poscat)
data.no_redundant_head_cat = #data.heads == 0
if #data.heads == 0 then
table.insert(data.heads, PAGENAME)
end
local suffix = data.heads[1]:find("^%*?%-") and true or false
for _, head in ipairs(data.heads) do
if suffix and head:sub(1, 1) ~= "-" then
error("The first headword has a hyphen, so headword #" .. i ..
", " .. quote(head) .. ", should as well.")
end
local accent = get_accent_term(head)
if accent then
table.insert(data.categories,
("%s%s詞"):format(canonical_name, accent))
elseif not mw.ustring.find(mw.ustring.toNFD(head), accent_patt) then
table.insert(data.categories,
("%s unaccented terms"):format(canonical_name))
else
table.insert(data.categories,
("%s terms with irregular accent"):format(canonical_name))
end
if MAINSPACE then
local _, vowel_set = find_ambig(head, false)
for vowel in pairs(vowel_set) do
require("Module:debug").track {
"grc-headword/ambig",
"grc-headword/ambig/" .. vowel
}
end
if not head:find(" ") and mw.ustring.toNFD(head):find(grave) then
error("Head #" .. i .. ", " .. quote(head) ..
", contained a grave accent, but no space. Grave accent can only be used in multi-word terms.")
end
end
end
if suffix then
data.pos_category = "後綴"
if not poscat:find "forms$" then
table.insert(data.categories, canonical_name .. poscat .. "後綴")
end
end
end
local function unlinked_form(label)
return { label = label, { nolink = true, term = "—" } }
end
local function add_gender_form(inflections, gender_arg, gender_name, allow_blank_forms)
if gender_arg[1] then
if allow_blank_forms and not gender_arg[2] and gender_arg[1] == "-" then
table.insert(inflections, unlinked_form(gender_name))
else
gender_arg.label = gender_name
table.insert(inflections, gender_arg)
end
end
end
local function adj_and_part_forms(total_forms, args, inflections, allow_blank_forms)
if total_forms == 2 then
add_gender_form(inflections, args.f, "陰性", allow_blank_forms)
end
add_gender_form(inflections, args.n, "中性", allow_blank_forms)
end
local function handle_degree_of_comparison(args, data, is_declined_form)
if args.deg ~= nil then
if args.deg == 'comp' then
data.pos_category = reconstructed_prefix .. "形容詞比較級"
elseif args.deg == 'super' then
data.pos_category = reconstructed_prefix .. "形容詞最高級"
else
error('Adjective degree ' .. quote(args.deg) .. ' not recognized.')
end
if is_declined_form then
data.pos_category = data.pos_category:gsub("adjectives", "adjective forms")
end
end
end
function export.show(frame)
local args = frame:getParent().args
local poscat = frame.args[1] or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
local subclass = frame.args[2]
local data = {
lang = lang, sc = sc,
pos_category = reconstructed_prefix .. poscat,
categories = {}, heads = {}, genders = {}, inflections = {}
}
local appendix = {}
if pos_functions[poscat] then
pos_functions[poscat](args, data, appendix, poscat, subclass)
end
return full_headword(data) .. format(appendix, ", ")
end
function export.test(frame_args, parent_args, pagename)
PAGENAME = pagename
local poscat = frame_args[1] or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
local subclass = frame_args[2]
local data = {
pos_category = reconstructed_prefix .. poscat,
categories = {}, heads = {}, genders = {}, inflections = {}
}
local appendix = {}
if pos_functions[poscat] then
pos_functions[poscat](parent_args, data, appendix, poscat, subclass)
end
return data
end
pos_functions["名詞"] = function(args, data, appendix, poscat)
args = process_numbered_params(args, { "head", "gen" }, { "g", "decl" })
local params = {
-- Numbered parameters 1, 2, 3, 4 handled above.
head = { list = true },
gen = { list = true },
g = { list = true, default = '?' },
dim = { list = true },
decl = { list = true },
sort = {}, -- for [[Unsupported titles/Ancient Greek dish]]; please do not use otherwise
}
args = m_params.process(args, params, nil, "grc-headword", "名詞")
data.heads = args.head
process_heads(data, "名詞")
for _, g in ipairs(args.g) do
local gender_name = gender_names[g]
if gender_name then
table.insert(data.genders, g)
table.insert(data.categories,
("%s%s%s"):format(canonical_name, gender_name, poscat))
else
error("Gender " .. quote(g) .. " is not an valid " .. canonical_name .. " gender.")
end
end
if not args.gen[1] then
table.insert(data.inflections, { label = "無屈折" })
table.insert(data.categories,
("%s無屈折%s")
:format(canonical_name, poscat))
for _, g in ipairs(args.g) do
table.insert(data.categories,
("%s%s無屈折%s")
:format(canonical_name, gender_names[g], poscat))
end
if args.decl[1] then
error("Declension class " .. quote(args.decl[1])
.. " has been given, but no genitive form has been given, so the word cannot belong to a declension class.")
end
else
if not args.gen[2] and args.gen[1] == "-" then
table.insert(data.inflections, unlinked_form("屬格"))
else
args.gen.label = "屬格"
table.insert(data.inflections, args.gen)
end
if args.decl[2] then
table.insert(data.inflections, { label = '多種變格' })
table.insert(data.categories,
("有多個變格形式的%s%s")
:format(canonical_name, poscat))
elseif not args.decl[1] then
table.insert(appendix, "變格類型未指定")
end
for _, decl_class in ipairs(args.decl) do
if legal_declension[decl_class] then
local not_irregular = decl_class ~= "irregular"
if legal_declension_zh_map[decl_class] then
decl_class = legal_declension_zh_map[decl_class]
end
if not_irregular then
table.insert(appendix,
("%s變格")
:format(decl_class))
table.insert(data.categories,
("%s%s變格%s")
:format(canonical_name, decl_class, poscat))
else
table.insert(appendix,
("%s變格"):format(decl_class))
table.insert(data.categories,
("%s不規則%s"):format(canonical_name, poscat))
end
if not_irregular then
for _, g in ipairs(args.g) do
table.insert(data.categories,
("%s變格的%s%s%s")
:format(decl_class, canonical_name, gender_names[g], poscat))
end
end
else
error("Declension " .. quote(decl_class) .. " is not a legal " ..
canonical_name .. " declension. Choose “first”, “second”, “third”, or “irregular”.")
end
end
end
-- Check first-declension endings and gender.
if args.decl[1] == "first" then
local alpha = "α[" .. macron .. breve .. "]?[" .. acute .. circumflex .. "]?"
local eta = "η[" .. acute .. circumflex .. "]?"
local gender = args.g[1]
local alpha_ending, eta_ending
if gender == "f" then
alpha_ending = alpha .. "$"
eta_ending = eta .. "$"
elseif gender == "m" then
alpha_ending = alpha .. "ς$"
eta_ending = eta .. "ς$"
else
gender = nil
require("Module:debug").track("grc-noun/1st/incorrect or no gender")
end
if gender then
for _, head in ipairs(data.heads) do
head = mw.ustring.toNFD(remove_links(head))
if not (mw.ustring.find(head, eta_ending) or mw.ustring.find(head, alpha_ending)) then
require("Module:debug").track("grc-noun/1st/" .. gender .. " with incorrect ending")
end
end
end
end
if args.dim[1] then
args.dim.label = "指小詞"
table.insert(data.inflections, args.dim)
end
end
pos_functions["專有名詞"] = pos_functions["名詞"]
pos_functions["動詞"] = function(args, data)
args = process_numbered_params(args, { "head" })
local params = {
head = { list = true }
}
local args = m_params.process(args, params, nil, "grc-headword", "動詞")
data.heads = args.head
process_heads(data, "動詞")
end
pos_functions["副詞"] = function(args, data)
args = process_numbered_params(args, { "head", "comp", "super" }, { "type" })
local params = {
head = { list = true },
comp = { list = true },
super = { list = true },
type = { list = true },
}
local args = m_params.process(args, params, nil, "grc-headword", "副詞")
data.heads = args.head
process_heads(data, "副詞")
-- Show comparative and superlative. If comparative or superlative is absent
-- while the other form is present, show "no comparative" or "no superlative".
if args.comp[1] then
args.comp.label = '比較級'
table.insert(data.inflections, args.comp)
elseif args.super[1] then
table.insert(data.inflections, { label = '無比較級' })
end
if args.super[1] then
args.super.label = '最高級'
table.insert(data.inflections, args.super)
elseif args.comp[1] then
table.insert(data.inflections, { label = '無罪高級' })
end
if args.type[1] then
local adverb_types = require "Module:table".listToSet {
"指示", "不定", "疑問", "關係",
}
for _, type in ipairs(args.type) do
if adverb_types[type] then
table.insert(data.categories, canonical_name .. "" .. type .. "副詞")
else
error(quote(type) .. " is not a valid subcategory of adverb.")
end
end
end
end
pos_functions["數詞"] = function(args, data)
args = process_numbered_params(args, { "head", "f", "n" })
local params = {
head = { list = true },
f = { list = true },
n = { list = true },
car = { list = true },
ord = { list = true },
adv = { list = true },
coll = { list = true },
}
local args = m_params.process(args, params, nil, "grc-headword", "數詞")
data.heads = args.head
process_heads(data, "數詞")
adj_and_part_forms(2, args, data.inflections, false)
local num_type_names = {
car = "cardinal", ord = "序數詞", adv = "副數詞", coll = "集合數詞",
}
for _, num_type in ipairs { "car", "ord", "adv", "coll" } do
if args[num_type][1] then
args[num_type].label = num_type_names[num_type]
table.insert(data.inflections, args[num_type])
end
end
end
pos_functions["分詞"] = function(args, data, appendix, _, subclass)
if subclass == "1&2" or subclass == "1&3" then
pos_functions["part-" .. subclass](args, data, appendix)
else
error('Participle subclass ' .. quote(subclass) .. ' not recognized.')
end
end
pos_functions["part-1&2"] = function(args, data, appendix)
args = process_numbered_params(args, { "head", "f", "n" })
local params = {
-- Parameters 1, 2, and 3 handled above.
head = { list = true },
f = { list = true, required = true },
n = { list = true, required = true },
}
local args = m_params.process(args, params, nil, "grc-headword", "part-1&2")
data.heads = args.head
process_heads(data, "分詞")
table.insert(data.genders, "m")
table.insert(appendix, "[[Appendix:" .. canonical_name ..
" 第一類變格|第一類]]/[[Appendix:" .. canonical_name ..
" 第二類變格|第二類]]")
adj_and_part_forms(2, args, data.inflections, false)
end
pos_functions["part-1&3"] = function(args, data, appendix)
args = process_numbered_params(args, { "head", "f", "n" })
local params = {
-- Parameters 1, 2, and 3 handled above.
head = { list = true },
f = { list = true, required = true },
n = { list = true, required = true },
}
local args = m_params.process(args, params, nil, "grc-headword", "part-1&3")
data.heads = args.head
process_heads(data, "分詞")
table.insert(data.genders, "m")
table.insert(appendix, "[[Appendix:" .. canonical_name ..
" 第一類變格|第一類]]/[[Appendix:" .. canonical_name ..
" 第三類變格|第三類變格]]")
adj_and_part_forms(2, args, data.inflections, false)
end
pos_functions["形容詞"] = function(args, data, appendix, _, subclass)
local subclasses = {
["1&2"] = true, ["1&3"] = true, ["2nd"] = true, ["3rd"] = true
}
if subclasses[subclass] then
pos_functions["adj-" .. subclass](args, data, appendix)
else
error('Adjective subclass ' .. quote(subclass) .. ' not recognized.')
end
end
pos_functions["adj-1&2"] = function(args, data, appendix)
args = process_numbered_params(args, { "head", "f", "n" })
local params = {
-- Parameters 1, 2, and 3 handled above.
head = { list = true },
f = { list = true, required = true },
n = { list = true, required = true },
deg = {},
}
local args = m_params.process(args, params, nil, "grc-headword", "adj-1&2")
data.heads = args.head
process_heads(data, "形容詞")
table.insert(data.genders, "m")
table.insert(appendix, "[[Appendix:" .. canonical_name ..
" 第一類變格|第一類]]/[[Appendix:" .. canonical_name ..
" 第二類變格|第二類]]")
handle_degree_of_comparison(args, data, false)
adj_and_part_forms(2, args, data.inflections, true)
end
pos_functions["adj-1&3"] = function(args, data, appendix)
args = process_numbered_params(args, { "head", "f", "n" })
local params = {
-- Parameters 1, 2, and 3 handled above.
head = { list = true },
f = { list = true, required = true },
n = { list = true, required = true },
}
local args = m_params.process(args, params, nil, "grc-headword", "adj-3rd")
data.heads = args.head
process_heads(data, "形容詞")
table.insert(data.genders, "m")
table.insert(appendix, "[[Appendix:" .. canonical_name ..
" 第一類變格|第一類]]/[[Appendix:" .. canonical_name ..
" 第三類變格|第三類]]")
adj_and_part_forms(2, args, data.inflections, true)
end
pos_functions["adj-2nd"] = function(args, data, appendix)
args = process_numbered_params(args, { "head", "n" })
local params = {
-- Parameters 1 and 2 handled above.
head = { list = true },
n = { list = true, required = true },
}
local args = m_params.process(args, params, nil, "grc-headword", "介詞")
data.heads = args.head
process_heads(data, "形容詞")
table.insert(data.genders, "m")
table.insert(data.genders, "f")
table.insert(appendix, "[[Appendix:" .. canonical_name .. " 第二類變格|第二類]]")
adj_and_part_forms(1, args, data.inflections, true)
end
pos_functions["adj-3rd"] = function(args, data, appendix)
args = process_numbered_params(args, { "head", "n" })
local params = {
-- Parameters 1 and 2 handled above.
head = { list = true },
n = { list = true, required = true },
deg = {},
}
local args = m_params.process(args, params, nil, "grc-headword", "助詞")
data.heads = args.head
process_heads(data, "形容詞")
table.insert(data.genders, "m")
table.insert(data.genders, "f")
table.insert(appendix, "[[Appendix:" .. canonical_name .. " 第三類變格|第三類]]")
handle_degree_of_comparison(args, data, false)
adj_and_part_forms(1, args, data.inflections, true)
end
local case_abbreviations = {
nom = '主格',
gen = '屬格',
dat = '與格',
acc = '賓格',
voc = '呼格',
}
pos_functions["介詞"] = function(args, data, appendix)
-- This allows up to 4 numbered parameters, which is the number of cases
-- that can appear after prepositions.
args = process_numbered_params(args, { "head" }, { 1, 2, 3 })
local params = {
[1] = { list = true },
head = { list = true, default = PAGENAME },
}
local args = require("Module:parameters").process(args, params)
data.heads = args.head
process_heads(data, "介詞")
if args[1][1] then
local cases = {}
for _, case in ipairs(args[1]) do
if case_abbreviations[case] then
table.insert(data.categories, canonical_name .. "" .. case_abbreviations[case] .. "介詞")
table.insert(cases, "[[Appendix:Glossary#" .. case_abbreviations[case] .. "|" .. case_abbreviations[case] .. "]]")
else
error('Case abbreviation ' .. quote(case) ..
' not recognized. Please choose from ' ..
serial_comma_join(
require("Module:fun").map(
quote,
{ "gen", "dat", "acc" }),
{ dontTag = true })
.. '.')
end
end
table.insert(data.inflections, { label = 'governs the ' .. serial_comma_join(cases) })
end
end
pos_functions["助詞"] = function(args, data)
args = process_numbered_params(args, { "head" })
local params = {
head = { list = true },
disc = { type = 'boolean' },
mod = { type = 'boolean' },
inter = { type = 'boolean' },
neg = { type = 'boolean' },
}
local args = require("Module:parameters").process(args, params)
data.heads = args.head
process_heads(data, "分詞")
for _, item in ipairs{ { "disc", "discourse" }, { "mod", "modal" }, { "inter", "interrogative" }, { "neg", "negative" } } do
if args[item[1]] then
local descriptor = item[2]
table.insert(data.categories, canonical_name .. "" .. descriptor .. "助詞")
table.insert(data.inflections, { label = descriptor .. ' particle' })
end
end
end
local valid_pos
setmetatable(pos_functions, {
__index = function (self, key)
if not key:find(" forms$") then
return nil
end
valid_pos = valid_pos or require "Module:table".listToSet{
"adjective", "determiner", "noun", "numeral", "participle",
"proper noun", "verb", "pronoun",
}
local pos = key:match("^(.+) forms$")
if not valid_pos[pos] then
error ("No function for the POS " .. quote(key) .. ".")
end
-- POS function for "noun forms", "verb forms", etc.
return function(args, data)
args = process_numbered_params(args, { "head" },
(pos == "noun" or pos == "proper noun") and { "g" })
local params = {
head = { list = true },
}
if pos == "noun" or pos == "proper noun" then
params.g = { list = true }
elseif pos == "adjective" then
params.deg = {}
end
local args = m_params.process(args, params, nil, "grc-headword", "forms")
data.heads = args.head
process_heads(data, key)
if args.g then
for _, g in ipairs(args.g) do
if gender_names[g] then
table.insert(data.genders, g)
else
error("Gender " .. quote(g) .. " is not an valid " .. canonical_name .. " gender.")
end
end
end
handle_degree_of_comparison(args, data, true)
mw.logObject(data)
end
end
})
return export
