Modul:category tree/poscatboiler/data/families
- Berikut merupakan pendokumenan yang dijana oleh Templat:poscatboiler data submodule documentation. [sunting]
- Pautan berguna: laman akar • sublaman • pautan • transklusi • kes ujian • kotak pasir
Submodul data ini mentakrifkan sebahagian daripada struktur kategori Wikikamus.
Untuk pengenalan kepada sistem poscatboiler
dan penerangan tentang cara menambah atau mengubah suai kategori, lihat Modul:category tree/poscatboiler/data/doc.
local raw_categories = {}
local raw_handlers = {}
-----------------------------------------------------------------------------
-- --
-- RAW CATEGORIES --
-- --
-----------------------------------------------------------------------------
raw_categories["Semua keluarga bahasa"] = {
topright = "{{commonscat|Bahasa mengikut keluarga}}\n{{wikipedia|Keluarga bahasa|Keluarga bahasa|mul=Senarai keluarga bahasa|mullabel=Senarai keluarga bahasa}}",
description = "Kategori ini menyenaraikan semua [[keluarga bahasa]].",
parents = {"Asas"},
}
raw_categories["Bahasa mengikut keluarga"] = {
topright = "{{commonscat|Bahasa mengikut keluarga}}\n{{wikipedia|Keluarga bahasa|Keluarga bahasa|mul=Senarai keluarga bahasa|mullabel=Senarai keluarga bahasa}}",
description = "Kategori ini mengandungi semua bahasa yang dikategorikan secara hierarki mengikut [[keluarga bahasa]] yang dimilikinya.",
additional = "Hanya keluarga bahasa peringkat tertinggi sahaja ditunjukkan di sini. Untuk senarai penuh semua keluarga bahasa, lihat [[:Kategori:Semua keluarga bahasa]] atau [[Wikikamus:Senarai keluarga]].",
parents = {
{name = "Semua bahasa", sort = " "},
{name = "Semua keluarga bahasa", sort = " "},
},
}
-----------------------------------------------------------------------------
-- --
-- RAW HANDLERS --
-- --
-----------------------------------------------------------------------------
local function family_is_not_a_family(fam)
local famcode = fam:getCode()
if famcode == "paa" then
return false -- Papuan languages are not a family but have a category
elseif famcode == "qfa-iso" or famcode == "qfa-not" then
return true
else
local parfam = fam:getFamily()
if parfam and parfam:getCode() == "qfa-not" then
-- Constructed languages, sign languages, etc.; no category for them
return true
end
end
return false
end
local function infobox(fam)
local ret = {}
table.insert(ret, "<table class=\"wikitable\">\n")
table.insert(ret, "<tr>\n<th colspan=\"2\" class=\"plainlinks\">[//ms.wiktionary.org/w/index.php?title=Modul:families/data&action=edit Sunting data keluarga bahasa]</th>\n</tr>\n")
table.insert(ret, "<tr>\n<th>Nama berkanun</th><td>" .. fam:getCanonicalName() .. "</td>\n</tr>\n")
local otherNames = fam:getOtherNames(true)
if otherNames then
local names = {}
for _, name in ipairs(otherNames) do
table.insert(names, "<li>" .. name .. "</li>")
end
if #names > 0 then
table.insert(ret, "<tr>\n<th>Nama lain</th><td><ul>" .. table.concat(names, "\n") .. "</ul></td>\n</tr>\n")
end
end
local aliases = fam:getAliases()
if aliases then
local names = {}
for _, name in ipairs(aliases) do
table.insert(names, "<li>" .. name .. "</li>")
end
if #names > 0 then
table.insert(ret, "<tr>\n<th>Alias</th><td><ul>" .. table.concat(names, "\n") .. "</ul></td>\n</tr>\n")
end
end
local varieties = fam:getVarieties()
if varieties then
local names = {}
for _, name in ipairs(varieties) do
if type(name) == "string" then
table.insert(names, "<li>" .. name .. "</li>")
else
assert(type(name) == "table")
local first_var
local subvars = {}
for i, var in ipairs(name) do
if i == 1 then
first_var = var
else
table.insert(subvars, "<li>" .. var .. "</li>")
end
end
if #subvars > 0 then
table.insert(names, "<li><dl><dt>" .. first_var .. "</dt>\n<dd><ul>" .. table.concat(subvars, "\n") .. "</ul></dd></dl></li>")
elseif first_var then
table.insert(names, "<li>" .. first_var .. "</li>")
end
end
end
if #names > 0 then
table.insert(ret, "<tr>\n<th>Kelainan</th><td><ul>" .. table.concat(names, "\n") .. "</ul></td>\n</tr>\n")
end
end
table.insert(ret, "<tr>\n<th>[[Wikikamus:Keluarga bahasa|Kod keluarga bahasa]]</th><td><code>" .. fam:getCode() .. "</code></td>\n</tr>\n")
table.insert(ret, "<tr>\n<th>[[w:Bahasa purba|Leluhur sepunya]]</th><td>")
local protoLanguage = fam:getProtoLanguage()
if protoLanguage then
table.insert(ret, "[[:Kategori:" .. protoLanguage:getCategoryName() .. "|" .. protoLanguage:getCanonicalName() .. "]]")
else
table.insert(ret, "none")
end
table.insert(ret, "</td>\n")
table.insert(ret, "\n</tr>\n")
local parent = fam:getFamily()
if not parent then
table.insert(ret, "<tr>\n<th>[[Wikikamus:Keluarga bahasa|Keluarga induk]]</th>\n<td>")
table.insert(ret, "tidak dikelaskan")
elseif parent:getCode() == "qfa-not" then
table.insert(ret, "<tr>\n<th>[[Wikikamus:Keluarga bahasa|Keluarga induk]]</th>\n<td>")
table.insert(ret, "bukan sebuah keluarga bahasa")
else
local chain = {}
while parent do
if family_is_not_a_family(parent) then
break
end
table.insert(chain, "[[:Kategori:" .. parent:getCategoryName() .. "|" .. parent:getCanonicalName() .. "]]")
parent = parent:getFamily()
end
if #chain == 0 then
table.insert(ret, "<tr>\n<th>[[Wikikamus:Keluarga bahasa|Keluarga induk]]</th>\n<td>")
table.insert(ret, "tiada induk")
else
table.insert(ret, "<tr>\n<th>[[Wikikamus:Keluarga bahasa|Keluarga induk]]</th>\n<td>")
for i = #chain, 1, -1 do
table.insert(ret, "<ul><li>" .. chain[i])
end
table.insert(ret, string.rep("</li></ul>", #chain))
end
end
table.insert(ret, "</td>\n</tr>\n")
if fam:getWikidataItem() and mw.wikibase then
local link = '[' .. mw.wikibase.getEntityUrl(fam:getWikidataItem()) .. ' ' .. fam:getWikidataItem() .. ']'
table.insert(ret, "<tr><th>Wikidata</th><td>" .. link .. "</td></tr>")
end
table.insert(ret, "</table>")
return table.concat(ret)
end
table.insert(raw_handlers, function(data)
local family_name = data.category:match("^Bahasa-bahasa (.+)$") or
data.category:match("bahasa-bahasa (.+)$") or
data.category:match("^[Ll]ek-lek (.+)$")
if not family_name then
return nil
end
local family = require("Module:families").getByCanonicalName(family_name) or
require("Module:families").getByCanonicalName(mw.ustring.lower(family_name))
if not family then
return nil
end
local parent_fam = family:getFamily()
local first_parent
if not parent_fam or family_is_not_a_family(parent_fam) then
first_parent = "Bahasa mengikut keluarga"
else
first_parent = parent_fam:getCategoryName()
end
local topright, description, additional = "", "", ""
if not data.called_from_inside then
local wikipedia_art = family:getWikipediaArticle()
topright = "{{commonscat|" .. family:getCategoryName() .. "}}\n{{wikipedia|" .. wikipedia_art .. "}}"
description = "Kategori ini merupakan kategori utama '''" .. family:getDisplayForm() .. "'''."
additional = "Maklumat berkenaan " .. family:getCanonicalName() .. ":\n\n" .. infobox(family)
end
local parents = {
first_parent,
"Semua keluarga bahasa",
}
if parent_fam and parent_fam:getCode() == "sgn" then
table.insert(parents, "Semua bahasa isyarat")
end
return {
topright = topright,
description = description,
additional = additional,
parents = parents,
breadcrumb = family:getCanonicalName(),
can_be_empty = true,
}
end)
return {RAW_CATEGORIES = raw_categories, RAW_HANDLERS = raw_handlers}