Linguifex

Module:pollasena-roots: Difference between revisions

← Older edit
No edit summary
No edit summary
Tag: Manual revert
 
(42 intermediate revisions by the same user not shown)
Line 1: Line 1:
local m_put = require("Module:parse utilities")
local m_put = require("Module:parse utilities")
local m_table = require("Module:table")
local m_families = require("Module:families")
local m_lang = require("Module:languages")
local m_param = require("Module:parameters")
local m_param_utils = require("Module:parameter utilities")
local m_etym = require("Module:etymology")
local m_links = require("Module:links")


local gsub = mw.ustring.gsub
local gsub = mw.ustring.gsub
Line 19: Line 24:
end
end


local function link(term,alt)
local function link(lang, term, alt)
return "[[Contionary:*" .. term .. "|*" .. (alt or term) .. "]]"
local natlang = lang:getWikidataItem() or false
-- true if the language declaration has a wikidata item, a marginal amount of conlangs have it
if lang:hasType("reconstructed") and not term:match("^%*") then
term = "*" .. term
end
local data = {term = term, alt = alt or term, lang = lang, to_wikt = natlang}
return m_links.full_link(data, "term")
end
end


Line 27: Line 39:
local a = 0
local a = 0
if frame.args["older"] then
if frame.args["offset"] or (frame.args["old"] or frame.args["older"]) then
params[1] = {}
local offset = frame.args["old"] and 1 or frame.args["older"] and 2 or tonumber(frame.args["offset"])
params[2] = {list = true}
a = 2
for i=1,offset do
params[i] = {}
end
params[offset+1] = {list = true}
a = offset + 1
else
else
params[1] = {list = true}
params[1] = {list = true}
a = 1
a = 1
end
end
-- exceptions
params["and"], params["see"] = {}, {}
local args = require("Module:parameters").process(frame:getParent().args, params)
local args = require("Module:parameters").process(frame:getParent().args, params)
local fam, lang = require("Module:families").getProtoLanguage(frame.args[1]), require("Module:languages").getByCode(frame.args[2])
local fam, lang = m_families.getByCode(frame.args[1]), require("Module:languages").getByCode(frame.args[2])
local proto = fam:getProtoLanguage()


local links = {}; local categories = {}; local alts = {};
local links = {}; local categories = {}; local alts = {};
Line 61: Line 81:
if item:match("><") then
if item:match("><") then
if prefix == "a" then
if prefix == "a" then
table.insert(links, link(term, arg))
table.insert(links, link(proto, term, arg))
table.insert(alts, arg)
table.insert(alts, arg)
elseif prefix == "c" then
elseif prefix == "c" then
table.insert(categories, lang:getCanonicalName() .. " terms from " .. fam:getCanonicalName() .. " *" .. arg)
table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. arg)
table.insert(alts, term)
table.insert(alts, term)
end
end
elseif prefix == "a" then
elseif prefix == "a" then
table.insert(links, link(term, arg))
table.insert(links, link(proto, term, arg))
table.insert(categories, lang:getCanonicalName() .. " terms from " .. fam:getCanonicalName() .. " *" .. term)
table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. term)
table.insert(alts, arg)
table.insert(alts, arg)
elseif prefix == "c" then
elseif prefix == "c" then
table.insert(links, link(term))
table.insert(links, link(proto, term))
table.insert(categories, lang:getCanonicalName() .. " terms from " .. fam:getCanonicalName() .. " *" .. arg)
table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. arg)
table.insert(alts, term)
table.insert(alts, term)
end
end
end
end
else
else
table.insert(links, link(args[a][i]))
table.insert(links, link(proto, args[a][i]))
table.insert(categories, lang:getCanonicalName() .. " terms from " .. fam:getCanonicalName() .. " *" .. args[a][i])
table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. args[a][i])
table.insert(alts, args[a][i])
table.insert(alts, args[a][i])
end
end
if i~=1 and links[i-1] == "-" then links[i] = links[i]:gsub("%|%*","|") end
if i~=1 and links[i-1] == "-" then alts[i] = links[i]:gsub("^%*","") end
if i~=1 and links[i-1] ~= "&nbsp;" then links[i] = links[i]:gsub("%|%*%-","|-") end
--if i~=1 and links[i-1] ~= "&nbsp;" then links[i] = links[i]:gsub("(%|?)%*%-","%1-") end
if i~=1 and alts[i-1]:match("%-$") then links[i] = links[i]:gsub("%|%*","|") end
--if i~=1 and alts[i-1]:match("%-$") then links[i] = links[i]:gsub("%|%*","|") end
end
end
Line 91: Line 111:
end
end


local function parse_args(parent_args, dest_code, ancestor_codes)
local param_mods = m_param_utils.construct_param_mods({{group = {"link", "q", "l"}}})
local dest_lang = m_lang.getByCode(dest_code)
local etymologies = {}
-- iterate in stable order
for _, ancestor in ipairs(ancestor_codes) do
local code = ancestor.code
local lang_options = ancestor.options or {}
local ancestor_lang = m_lang.getByCode(code)
local ancestor_params = {
[1] = {
required = not lang_options.optional,
list = lang_options.roots,
default = lang_options.default,
},
}
if lang_options.roots then
ancestor_params[1].allow_holes = true
end
local parsed = m_param_utils.parse_term_with_inline_modifiers_and_separate_params({
params = ancestor_params,
param_mods = param_mods,
raw_args = parent_args,
termarg = 1,
lang = ancestor_lang,
})
local terms = parsed.terms
-- ensure at least one term exists
if not terms[1] then
terms[1] = { lang = ancestor_lang }
end
local etymology = m_etym.format_derived({
lang = dest_lang,
sources = { ancestor_lang },
terms = terms,
nocat = parent_args.nocat,
template_name = "derived",
})
table.insert(etymologies, etymology)
end
return etymologies
end
local function concat_etymologies(parent_args, etymologies)
local capital = parent_args.nocap and "f" or "F"
return capital .. "rom " .. table.concat(etymologies, ", from ") .. "."
end
function export.qsc(frame)
local parent_args = frame:getParent().args
local dest_lang = m_lang.getByCode("qsc")
local ancestor_codes = {
["sekh"] = {default = "asʰilavən"},
["wasc"] = {optional = true, roots = true, default = "asł-ila"}
}
local evolution = parse_args(parent_args, "qsc", ancestor_codes)
return concat_etymologies(parent_args, evolution)
end
function export.lyti(frame)
local parent_args = frame:getParent().args
local source_code = parent_args.source
local ancestor_codes = {
["lyti-mid"] = {optional = not parent_args.mid},
["lyti-old"] = {optional = not parent_args.old},
[source_code] = {},
}
local terms, args = parse_args(parent_args, "lyti", ancestor_codes)
end


return export
return export
Retrieved from "https://linguifex.com/wiki/Module:pollasena-roots"