Wiktionary

Modul:translations: Perbezaan antara semakan

Layar sejarah secara interaktif
← Suntingan sebelumnyaSuntingan berikutnya →
Kandungan dihapus Kandungan ditambah
Hakimi97 (bincang | sumb.)
988 suntingan
kTiada ringkasan suntingan
Hakimi97 (bincang | sumb.)
988 suntingan
Mengemas kini fungsi modul seperti di Wikikamus bahasa Inggeris
Teg: Dibalikkan
Baris 1:
local require = require
local require_when_needed = require("Module:utilities/require when needed")
local load_data = mw.loadData
 
local concat = table.concat
local param_process = require("Module:parameters").process
local m_params_datadecode_uri = load_datarequire("Module:parameters/datastring utilities").decode_uri
local format_categories = require_when_needed("Module:utilities", "format_categories")
local html_create = mw.html.create
local insert = table.insert
local new_title = mw.title.new
local load_data = mw.loadData
local process_params = require_when_needed("Module:parameters", "process")
 
local export = {}
-- Implements {{t}} and {{t+}}.
 
do
function export.show(frame)
local function interwiki(terminfo, lang, langcode, term, m_links, m_data)
local args = param_process(
-- Percent-decode the term.
frame:getParent().args,
term = decode_uri(term, "PATH")
m_params_data.translations.show,
nil,
-- Don't show an interwiki link if it's an invalid title.
"translations",
if not new_title(term) then
"show"
terminfo.interwiki = false
)
return
 
end
local terminfo = {
lang = require("Module:languages").getByCode(args[1], 1),
local wmlangs
sc = args.sc and require("Module:scripts").getByCode(args.sc, "sc"),
local interwiki_langcode = m_data.interwiki_langs[langcode]
term = args[2] or mw.title.getCurrentTitle().namespace == 10 and "term",
if interwiki_langcode then
alt = args.alt,
wmlangs = {require("Module:wikimedia languages").getByCode(interwiki_langcode)}
id = args.id,
else
genders = args[3],
wmlangs = lang:getWikimediaLanguages()
tr = args.tr,
end
ts = args.ts,
lit = args.lit,
-- Don't show the interwiki link if the language is not recognised by Wikimedia.
interwiki = frame.args.interwiki,
if #wmlangs == 0 then
}
terminfo.interwiki = false
return
return export.show_terminfo(terminfo)
end
 
local sc = terminfo.sc
local function interwiki(terminfo, lang, langcode, term, m_links, m_data)
-- Don't show interwiki link if the term contains links (for SOP translations)
local target_page = m_links.get_link_page(term, lang, sc)
if term:find("[[", nil, true) then
local split = m_links.split_on_slashes(target_page)
terminfo.interwiki = false
if not split[1] then
return
terminfo.interwiki = false
return
end
target_page = split[1]
local wmlangcode = wmlangs[1]:getCode()
local interwiki_link = m_links.language_link{
lang = lang,
sc = sc,
term = wmlangcode .. ":" .. target_page,
alt = "(" .. wmlangcode .. ")",
tr = "-"
}
terminfo.interwiki = tostring(html_create("span")
:addClass("tpos")
:wikitext(" " .. interwiki_link)
)
end
function export.show_terminfo(terminfo, check)
local wmlangs
local m_data = load_data("Module:translations/data")
local interwiki_langcode = m_data.interwiki_langs[langcode]
local lang = terminfo.lang
if interwiki_langcode then
local langcode, langname = lang:getCode(), lang:getCanonicalName()
wmlangs = {require("Module:wikimedia languages").getByCode(interwiki_langcode)}
-- Translations must be for mainspace languages.
else
if not lang:hasType("regular") then
wmlangs = lang:getWikimediaLanguages()
error("Translations must be for attested and approved main-namespace languages.")
end
else
local err_msg = m_data.disallowed[langcode]
-- Don't show the interwiki link if the language is not recognised by Wikimedia.
if #wmlangs == 0err_msg then
error("Translations not allowed in " .. langname .. " (" .. langcode .. "). " .. langname .. " translations should " .. err_msg)
terminfo.interwiki = false
return end
end
local wmlangcode = wmlangs[1]:getCode()
if m_data.ignore_caps[wmlangcode] then
term = term
:gsub("%f[%^\\]%^", "")
:gsub("\\^", "^")
end
local sc = terminfo.sc
local target_page = m_links.getLinkPage(term, lang, sc)
local interwiki_link = m_links.language_link{
lang = lang,
sc = sc,
term = wmlangcode .. ":" .. target_page,
alt = "(" .. wmlangcode .. ")",
tr = "-"
}
terminfo.interwiki = tostring(mw.html.create("span")
:addClass("tpos")
:wikitext(" " .. interwiki_link))
end
 
function export.show_terminfo(terminfo)
local lang = terminfo.lang
-- Translations must be for mainspace languages
if not lang:hasType("regular") then
error("Translations must be for attested and approved main-namespace languages.")
end
local langcode = lang:getCode()
local term = terminfo.term
local m_links = require("Module:links")
local m_data
-- Check if there is a term. Don't show the interwiki link if there is nothing to link to.
if term then
m_data = load_data("Module:translations/data")
-- Track translations for particular languages
if m_data.tracked[langcode] then
require("Module:debug/track")("translations/" .. langcode)
end
iflocal term = terminfo.interwiki thenterm
local m_links = require("Module:links")
-- Check if there is a term. Don't show the interwiki link if there is nothing to link to.
if not term then
-- Track entries that don't provide a term.
-- FIXME: This should be a category.
local track = require("Module:debug/track")
track("translations/no term")
track("translations/no term/" .. langcode)
elseif terminfo.interwiki then
interwiki(terminfo, lang, langcode, term, m_links, m_data)
end
else
langcode = lang:getFullCode()
-- Track entries that don't provide a term.
local track = require("Module:debug/track")
track("translations/no term")
track("translations/no term/" .. langcode)
end
if lang then
m_data = m_data or load_data("Module:translations/data")
if m_data.need_super[langcode] then
local tr = terminfo.tr
terminfo.tr = tr and tr:gsub("(%d[%d%*%-?]*%f[^%d?)%*]", "<sup>%10</sup>") or nil
end
local link = m_links.full_link(terminfo, "translation")
local categories = {}
if m_data.categorize[langcode] then
insert(categories, lang:getFullName() .. " translations")
end
if check then
link = tostring(html_create("span")
:addClass("ttbc")
:tag("sup")
:addClass("ttbc")
:wikitext("(please [[WT:Translations#Translations to be checked|verify]])")
:done()
:wikitext(" " .. link)
:allDone()
)
insert(categories, "Requests for review of " .. langname .. " translations")
end
categories = #categories > 0 and format_categories(
categories,
require("Module:languages").getByCode("en"),
nil,
(load_data("Module:headword/data").encoded_pagename
:gsub("/translations$", ""))
) or ""
return link .. categories
end
end
 
-- Implements {{t}}, {{t+}}, {{t-check}} and {{t+check}}.
do
local function get_args(frame)
local plain = {}
return process_params(frame:getParent().args, {
[1] = {required = true, type = "language", etym_lang = true, default = "und"},
[2] = plain,
[3] = {list = true},
["alt"] = plain,
["id"] = plain,
["sc"] = {type = "script"},
["tr"] = plain,
["ts"] = plain,
["lit"] = plain,
})
end
function export.show(frame)
return m_links.full_link(terminfo, "translation", true)
local args = get_args(frame)
local check = frame.args["check"]
return export.show_terminfo({
lang = args[1],
sc = args["sc"],
track_sc = true,
term = args[2],
alt = args["alt"],
id = args["id"],
genders = args[3],
tr = args["tr"],
ts = args["ts"],
lit = args["lit"],
interwiki = frame.args["interwiki"],
}, check and check ~= "")
end
end
 
-- Implements {{trans-top}} and part of {{trans-top-also}}.
local function top(args, title, navhead, html_create)
local insert = table.insert
local column_width = (args["column-width"] == "wide" or args["column-width"] == "narrow") and "-" .. args["column-width"] or ""
Baris 138 ⟶ 182:
:tag("tr")
:tag("td")
:addClass("translations-cell ")
:addClass("multicolumn-list" .. column_width)
:css("background-color", "#ffffe0")
:css("vertical-align", "top")
:css("text-align", "left")
:attr("colspan", "3")
:allDone()
local id = args.id or title
Baris 151 ⟶ 196:
local categories = {}
if not title and mw.title.getCurrentTitle().namespace == 0 then
insert(categories, "Translation table header lacks gloss")
end
local pagename, subpage = load_data("Module:headword/data").encoded_pagename
:gsub("/translations$", function(m"")
insert(categories, "Translation subpages")
return ""
end)
if #categoriessubpage >== 01 then
insert(categories, "Translation subpages")
categories = require("Module:utilities").format_categories(
categories,
require("Module:languages").getByCode("ms"),
nil,
pagename
)
else
categories = ""
end
categories = #categories > 0 and format_categories(
categories,
require("Module:languages").getByCode("en"),
nil,
pagename
) or ""
return (div:gsub("</td></tr></table></div></div>$", "")) .. categories
Baris 176 ⟶ 218:
 
-- Entry point for {{trans-top}}.
do
function export.top(frame)
local argsfunction = param_processget_args(frame)
local plain = {}
frame:getParent().args,
return process_params(frame:getParent().args, {
m_params_data.translations.top,
[1] = plain,
nil,
["id"] = plain,
"translations",
["column-width"] = plain,
"top"
})
end
function export.top(frame)
local title = args[1]
local args = get_args(frame)
title = title and require("Module:links").remove_links(title)
local title = args[1]
title = title and require("Module:links").remove_links(title)
return top(args, title, html_create("div")
:addClass("NavHead")
:css("text-align", "left")
:css("cursor", "pointer")
:wikitext(title or "Translations")
:allDone()
)
end
end
 
-- Entry point for {{checktrans-top}}.
function export.check_top(frame)
local args = process_params(frame:getParent().args, {
[1] = {}
})
local text = "\n:''The translations below need to be checked and inserted above into the appropriate translation tables. See instructions at " ..
local html_create = mw.html.create
frame:expandTemplate{
local navhead = html_create("div")
title = "section link",
args = {"Wiktionary:Entry layout#Translations"}
} ..
".''\n"
local header = html_create("div")
:addClass("checktrans")
:wikitext(text)
:allDone()
local title = "Translations to be checked"
if args[1] then
title = title .. "&zwnj;: \"" .. args[1] .. "\""
end
return tostring(header) .. "\n" .. top(args, title, html_create("div")
:addClass("NavHead")
:css("text-align", "left")
:css("cursor", "pointer")
:wikitext(title or "Translations")
:allDone()
)
return top(args, title, navhead, html_create)
end
 
Baris 201 ⟶ 277:
function export.bottom(frame)
-- Check nothing is being passed as a parameter.
process_params(frame:getParent().args, {})
param_process(
frame:getParent().args,
m_params_data.translations.bottom,
nil,
"translations",
"bottom"
)
return "</table></div></div>"
end
 
-- Implements {{trans-see}} and part of {{trans-top-also}}.
local function see(args, see_text, html_create)
local table = table
local insert = table.insert
local navhead = html_create("div")
:addClass("NavHead")
Baris 225 ⟶ 292:
:tag("i")
:wikitext(see_text)
:allDone()
local raw_terms = args[2]
local data = {}
data. id = args["id"] and "Translations-" .. args["id"]
}
local terms = {}
if #args[2]raw_terms == 0 then
table.insert(args[2]raw_terms, args[1])
end
local plain_link = require("Module:links").plain_link
for i, term= in1, ipairs(args[2])#raw_terms do
data.term = args[2]raw_terms[i]
insert(terms, plain_link(data, false))
end
return navhead:wikitext(table.concat(terms, ",&lrm; "))
end
 
-- Entry point for {{trans-see}}.
function export.see(frame)
local args = param_processprocess_params(frame:getParent().args, {
[1] = {required = true},
frame:getParent().args,
[2] = {list = true},
m_params_data.translations.see,
["id"] = {}
nil,
})
"translations",
local navhead = see(args, "see ")
"see"
)
local html_create = mw.html.create
local navhead = see(args, "see ", html_create)
return tostring(html_create("div")
:addClass("pseudo NavFrame")
:nodeaddClass(navhead)"NavFrame")
:node(navhead)
:allDone()
)
end
 
-- Entry point for {{trans-top-also}}.
do
function export.top_also(frame)
local argsfunction = param_processget_args(frame)
local plain = {}
frame:getParent().args,
return process_params(frame:getParent().args, {
m_params_data.translations.top_also,
[1] = {required = true},
nil,
[2] = {list = true},
"translations",
["id"] = plain,
"top_also"
["column-width"] = plain
)
})
end
function export.top_also(frame)
local title = args[1]
local args = get_args(frame)
title = title and require("Module:links").remove_links(title)
local title = args[1]
title = title and require("Module:links").remove_links(title)
return top(args, title, see(args, "see also "))
end
end
 
-- Implements {{t-needed}}.
function export.needed(frame)
local args = process_params(frame:getParent().args, {
[1] = {required = true, type = "language", etym_lang = true, default = "und"},
[2] = {set = {"usex", "quote"}},
["nocat"] = {type = "boolean"},
["sort"] = {}
})
local lang, category = args[1], ""
local span = html_create("span")
:addClass("trreq")
:attr("data-lang", lang:getCode())
:tag("i")
:wikitext("please add this translation if you can")
:allDone()
if not args["nocat"] then
local langname = lang:getCanonicalName()
local type = args[2]
if type == "quote" then
category = format_categories(
{"Requests for translations of " .. langname .. " quotations"},
lang,
args["sort"]
)
elseif type == "usex" then
category = format_categories(
{"Requests for translations of " .. langname .. " usage examples"},
lang,
args["sort"]
)
else
local sort = args["sort"]
category = format_categories(
{"Requests for translations into " .. langname},
require("Module:languages").getByCode("en"),
sort or nil,
not sort and (load_data("Module:headword/data").encoded_pagename
:gsub("/translations$", "")) or nil
)
end
end
return tostring(span) .. category
end
 
-- Implements {{no equivalent translation}}.
function export.no_equivalent(frame)
local args = process_params(frame:getParent().args, {
[1] = {required = true, type = "language", etym_lang = true, default = "und"},
["noend"] = {type = "boolean"},
})
local text = "no equivalent term in " .. args[1]:getCanonicalName()
local html_create = mw.html.create
if not args["noend"] then
local navhead = see(args, "see also ", html_create)
text = text .. ", but see"
return top(args, title, navhead, html_create)
end
return tostring(html_create("i")
:wikitext(text)
)
end
 
-- Implements {{no attested translation}}.
function export.no_attested(frame)
local args = process_params(frame:getParent().args, {
[1] = {required = true, type = "language", etym_lang = true, default = "und"},
["noend"] = {type = "boolean"},
})
local langname = args[1]:getCanonicalName()
local text = "no [[WT:ATTEST|attested]] term in " .. langname
local category = ""
if not args["noend"] then
text = text .. ", but see"
category = format_categories(
{langname .. " unattested translations"},
require("Module:languages").getByCode("en"),
sort or nil,
(load_data("Module:headword/data").encoded_pagename
:gsub("/translations$", ""))
)
end
return tostring(html_create("i")
:wikitext(text)
) .. category
end
 
-- Implements {{not used}}.
function export.not_used(frame)
local args = process_params(frame:getParent().args, {
[1] = {required = true, type = "language", etym_lang = true, default = "und"},
[2] = {},
})
return tostring(html_create("i")
:wikitext((args[2] or "not used") .. " in " .. args[1]:getCanonicalName())
)
end
 
return export
Diambil daripada "https://ms.wiktionary.org/wiki/Modul:translations"