Wikipedia

Modulu:Wikidata: berrikuspenen arteko aldeak

Nabigazio historia interaktiboa
← Aurreko ezberdintasunaHurrengo ezberdintasuna →
Ezabatutako edukia Gehitutako edukia
No edit summary
No edit summary
1. lerroa:
-- Master version: [[:ca:Module:Wikidata]]20181126 from master @cawiki
-- compatible version 20180115
 
local p = {}
16 ⟶ 15 lerroa:
["unknown-datetime-format"] = "Unknown datetime format.",
["local-article-not-found"] = "Article is not yet available in this wiki.",
['not-from-content-page'] = "Do not invoke from content page. Use a template or use a module subpage like /sandbox for testing ."
},
["datetime"] =
27 ⟶ 26 lerroa:
[4] = "$100,000 years", -- precision: hundred thousand years
[5] = "$10,000 years", -- precision: ten thousand years
[6] = "$1 millennium", -- precision: millennium
[7] = "$1 century", -- precision: century
[8] = "$1s", -- precision: decade
46 ⟶ 45 lerroa:
},
["monolingualtext"] = '<span lang="%language">%text</span>',
["warnDump"] = "[[Category:Called function 'Dump' from module Wikidata]]",
["cite"] = { -- Cite web parameters
63 ⟶ 61 lerroa:
}
}
 
local function track(key)
local frame = mw.getCurrentFrame()
pcall(frame.expandTemplate, frame, { title = 'track/' .. key })
end
 
local cases = {} -- functions for local grammatical cases defined at [[Module:Wikidata/i18n]]
 
local wiki =
{
langcode = mw.language.getContentLanguage().code,
module_title = "Module:Wikidata"
}
 
----------------------------------------------------------------------------
92 ⟶ 91 lerroa:
 
local function loadI18n()
local exist, res = pcall(require, wiki.module_title .. "Module:Wikidata/i18n")
if exist and next(res) ~= nil then
tableMerge(i18n, res.i18n)
101 ⟶ 100 lerroa:
loadI18n()
 
local function case(word, localcase, lang)
if word == nil or word == '' or cases[localcase] == nil then
return word
end
return cases[localcase](word, lang)
end
 
local function expandBracesfindLang(textlangcode)
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
if text == nil then return text end
local myframe = mw.getCurrentFrame()
langcode = myframe.args.lang
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
langcode = myframe:getParent().args.lang
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
if not mw.title.getCurrentTitle().isContentPage then
langcode = myframe:preprocess( '{{int:lang}}' )
end
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
langcode = wiki.langcode
end
end
end
end
local languages = mw.language.getFallbacksFor(langcode)
table.insert(languages, 1, langcode)
return languages
end
 
-- mw.wikibase.getLabelWithLang or getLabelByLang with a table of languages
local function getLabelByLangs(id, languages)
local label
local lang = languages[1]
if lang == wiki.langcode then
-- using getLabelWithLang when possible instead of getLabelByLang
label, lang = mw.wikibase.getLabelWithLang(id)
else
for _, l in ipairs(languages) do
label = mw.wikibase.getLabelByLang(id, l)
lang = l
if label then
break
end
end
end
return label, lang
end
 
-- Is gender femenine? true or false
local function feminineGender(id)
local entity = mw.wikibase.getEntity(id)
local genderClaims = entity.claims["P21"] -- sex or gender
if genderClaims then
local genderId = getValueOfClaim(genderClaims[1], nil, {["formatting"]="raw", ["lang"]={wiki.langcode}})
if genderId == "Q6581072" or genderId == "Q1052281" or genderId == "Q43445" then -- female, transgender female, female organism
return true
end
end
return false
end
 
-- Fetch female form of label
local function feminineForm(id, lang)
local feminine_claims = findClaims(mw.wikibase.getEntity(id), 'P2521') -- female form of label
if feminine_claims then
for _, feminine_claim in ipairs(feminine_claims) do
local feminine_value = getValueOfClaim(feminine_claim, nil, {["list"]="lang", ["lang"]={lang}})
if feminine_value then
return feminine_value
end
end
end
end
 
-- Fetch unit symbol
local function unitSymbol(id, lang)
local claims = findClaims(mw.wikibase.getEntity(id), 'P5061')
local langclaims = {}
if claims then
for _, snak in ipairs(claims) do
if snak.mainsnak and snak.mainsnak.datavalue and snak.mainsnak.datavalue.value and
not langclaims[snak.mainsnak.datavalue.value.language] -- just the first one by language
then
langclaims[snak.mainsnak.datavalue.value.language] = snak.mainsnak.datavalue.value.text
end
end
for _, l in ipairs(lang) do
if langclaims[l] then
return langclaims[l]
end
end
end
return langclaims["mul"] -- last try
end
 
-- Add a small pencil as icon for edit on Wikidata
local function addEditIcon(id, lang, uselang, icon)
if icon and lang ~= uselang then
return " [[File:Arbcom ru editing.svg|12px|" .. mw.message.new('Translate-taction-translate'):inLanguage(uselang):plain() .. "|link=d:" .. id .. "]]"
end
return ''
end
 
local function expandBraces(text, formatting)
if text == nil or formatting == nil then return text end
-- only expand braces if provided in argument, not included in value as in Q1164668
if mw.ustring.find(formatting, '{{', 1, true) == nil then return text end
if type(text) ~= "string" then
text = tostring(text)
129 ⟶ 225 lerroa:
local braces_expanded
if mw.ustring.find(title_part, ":") then
and mw.text.split(title_part, ":")[1] ~= mw.site.namespaces[10].name -- not a prefix Template:
then
braces_expanded = mw.getCurrentFrame():callParserFunction{name=title_part, args=parameters}
else
135 ⟶ 233 lerroa:
end
braces = mw.ustring.gsub(braces, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1") -- escape magic characters
braces_expanded = mw.ustring.gsub(braces_expanded, "(%%[0-9])", "%%%1") -- no captures in replacement string, i.e. url %-coded
text = mw.ustring.gsub(text, "{{" .. braces .. "}}", braces_expanded)
end
142 ⟶ 241 lerroa:
 
local function printDatavalueString(data, parameters)
if parameterparameters.formatting == 'weblink' then
return '[' .. data .. ' ' .. mw.text.split(data, '//' )[2] .. ']'
elseif mw.ustring.find((parameters.formatting or ''), '$1', 1, true) then -- formatting = a pattern
local escaped_data = mw.ustring.gsub(data, "%%", "%%%") -- escape % character, normally used in url, avoiding invalid capture in gsub
return expandBraces(mw.ustring.gsub(parameters.formatting, '$1', escaped_data), parameters.formatting)
elseif parameters.case then
return case(data, parameters.case, parameters.lang[1])
else
return data
166 ⟶ 265 lerroa:
else
local globenum = mw.text.split(data.globe, 'entity/')[2] -- http://www.wikidata.org/wiki/Q2
if pcall(require, "Module:Mapa cos celeste/dades") then
local globetable = {Q3134 = 'callisto', Q596 = 'ceres', Q15040 = 'dione', Q3303 = 'enceladus',
local globetable = mw.loadData('Module:Mapa cos celeste/dades')
Q3143 = 'europa', Q17975 = 'phoebe', Q3169 = 'ganymede', Q3123 = 'io', Q17958 = 'iapetus',
for _, globe in pairs(globetable.maps) do
Q405 = 'moon', Q111 = 'mars', Q308 = 'mercury', Q15034 = 'mimas', Q15050 = 'rhea',
if globe.wikidata == globenum then
Q15047 = 'tethys', Q2565 = 'titan', Q3359 = 'triton', Q313 = 'venus', Q3030 = 'vesta'}
return globe.coord_globe
if globetable[globenum] then
end
return globetable[globenum]
else end
return globenum
end
return globenum
end
end
end
 
local function printDatavalueQuantity(data, parameterparameters)
-- exemples: 277±1 Centímetre, 1,94 metre
local amount = data.amount
amount = mw.ustring.gsub(amount, "%+", "")
local sortkey = string.format("%09d", amount)
local langamount = mw.language.new(wikiparameters.langcodelang[1]):formatNum(tonumber(amount))
amount = lang:formatNum(tonumber(amount))
-- This is used to get the unit name for a numeric value
local suffix = ""
if parameterparameters.formatting == "unit" or parameterparameters.formatting == "unitcode" then
-- get the url for the unit entry on Wikidata:
local unitID = data.unit
194 ⟶ 292 lerroa:
unitID = mw.ustring.sub(unitID, mw.ustring.find(unitID, "Q"), -1)
if mw.ustring.sub(unitID, 1, 1) == "Q" then
local unit_label, lang = mw.wikibase.labelgetLabelByLangs(unitID, parameters.lang)
local unit_symbol
suffix = " " .. require("Module:Wikidata/Units").getUnit(amount, unit_label, unitID, parameter == "unitcode")
if parameters.formatting == "unitcode" then
unit_symbol = unitSymbol(unitID, parameters.lang)
end
if lang == wiki.langcode and pcall(require, wiki.module_title .. "/Units") then
suffix = " " .. require(wiki.module_title .. "/Units").getUnit(amount, unit_label, unitID, parameters.formatting == "unitcode", unit_symbol)
elseif parameters.formatting == "unitcode" and unit_symbol then
suffix = " " .. unit_symbol
else
suffix = " " .. (unit_label or unitID) .. addEditIcon(unitID, lang, parameters.lang[1], parameters.editicon)
end
end
end
201 ⟶ 309 lerroa:
end
 
local function printDatavalueTime(data, parameterparameters)
-- Dates and times are stored in ISO 8601 format
local timestamp = data.time
local sortkey = timestamp
local addon = ""
-- calendar model
local calendar_model = {["Q12138"] = "gregorian", ["Q1985727"] = "gregorian", ["Q11184"] = "julian", ["Q1985786"] = "julian"}
local calendar_id = mw.text.split(data.calendarmodel, 'entity/')[2]
local calendar_add = ""
if (timestamp < "+1582-10-15T00:00:00Z" and calendar_model[calendar_id] == "gregorian")
or (timestamp > "+1582-10-04T00:00:00Z" and calendar_model[calendar_id] == "julian")
then
calendar_add = " <sup>(" .. mw.message.new('Wikibase-time-calendar-' .. calendar_model[calendar_id]):inLanguage(parameters.lang[1]):plain() .. ")</sup>"
end
-- check for negative date, ex. "-0027-01-16T00:00:00Z"
215 ⟶ 333 lerroa:
end
local function d(f, t)
returnlocal mw.language.new(wiki.langcode):formatDate(f,ts = t or timestamp) .. addon
local form = type(f) == "function" and f(ts) or f -- function in i18n.datetime[precision]
return mw.language.new(parameters.lang[1]):formatDate(form, ts) .. addon .. calendar_add
end
local precision = data.precision or 11
236 ⟶ 356 lerroa:
local card = math.floor((intyear - 1) / 1000) + 1
if mw.ustring.find(i18n.datetime[6], "$1") then
ret = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(card)) .. addon .. calendar_add
else
ret = d(i18n.datetime[6], string.format("%04d", tostring(card)))
243 ⟶ 363 lerroa:
local card = math.floor((math.abs(intyear) - 1) / 100) + 1
if mw.ustring.find(i18n.datetime[7], "$1") then
ret = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(card)) .. addon .. calendar_add
else
ret = d(i18n.datetime[7], string.format("%04d", tostring(card)))
249 ⟶ 369 lerroa:
elseif precision == 8 then
local card = math.floor(math.abs(intyear) / 10) * 10
ret = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(card)) .. addon .. calendar_add
-- precision is year
elseif parameterparameters.formatting == 'Y' or precision == 9 then
ret = tostring(intyear) .. addon .. calendar_add
-- precision is month
elseif precision == 10 then
timestamp = timestamp .. " + 1 day" -- formatDate yyyy-mm-00 returns the previous month
ret, _ = string.gsub(d(i18n.datetime[10]), " 0+", " ") -- supress leading zeros in year
elseif parameterparameters.formatting then
ret, _ = string.gsub(d(parameterparameters.formatting), "([ %[])0+", "%1") -- supress leading zeros in year optionally linked
else
-- ret, _ = string.gsub(d(i18n.datetime[11]), " 0+", " ")
-- TODO: move localized function to /i18n
ret = require("Module:Date").genitive_year(intyear) .. d(' F"k" j')
end
return ret, sortkey
268 ⟶ 386 lerroa:
 
local function printDatavalueEntity(data, parameters)
local entityId = "Q" .. tostring(data['numeric-id'])
local entityIdPreffix = data['entity-type'] == 'property' and "Property:" .. entityId or entityId
local label, lang = mw.wikibase.getLabelWithLang(entityId)
if parameters.formatting == 'raw' then
local sitelink = mw.wikibase.sitelink(entityId)
return entityId, entityId
end
local label, lang = getLabelByLangs(entityId, parameters.lang)
local sitelink = mw.wikibase.getSitelink(entityId)
local parameter = parameters.formatting
local labelcase = label or sitelink
if parameters.gender == 'feminineform' and lang ~= nil then -- case gender and item is female
labelcase = feminineForm(entityId, lang) or labelcase
end
if parameters.case then
labelcase = case(labelcase, parameters.case, lang)
end
local ret1, ret2
if parameter == 'rawlabel' then
ret1 = (labelcase or entityId)
ret2 = entityId
elseif parameter == 'label' then
ret1 = labelcase or entityId
ret2 = labelcase or entityId
elseif parameter == 'sitelink' then
ret1 = (sitelink or 'wikidata:' .. entityIdentityIdPreffix)
ret2 = sitelink or entityId
elseif mw.ustring.find((parameter or ''), '$1', 1, true) then -- formatting = a pattern
ret1 = mw.ustring.gsub(parameter, '$1', labelcase or entityId)
ret1 = expandBraces(ret1, parameter)
ret2 = labelcase or entityId
else
if parameter == "ucfirst" or parameter == "ucinternallink" then
labelcase = labelcase and mw.language.getContentLanguagenew(lang):ucfirst(labelcase)
-- only first of a list, reset formatting for next ones
if parameter == "ucinterlanllink" then
298 ⟶ 420 lerroa:
else
parameters.formatting = nil -- default format
track("wikidata/ucfirst")
end
end
305 ⟶ 426 lerroa:
ret1 = '[[' .. sitelink .. '|' .. labelcase .. ']]'
ret2 = labelcase
elseif label and (parameter == 'internallink' or parameter == 'ucinternallink') then
ret1 = '[[' .. label .. '|' .. labelcase .. ']]'
ret2 = labelcase
else
ret1 = '[[wikidata:' .. entityIdentityIdPreffix .. '|' .. (labelcase or entityId) .. ']]'
ret2 = labelcase or entityId
end
end
return ret1 .. addEditIcon(entityIdPreffix, lang, parameters.lang[1], parameters.editicon), ret2
return ret1, ret2
end
 
local function printDatavalueMonolingualText(data, parameterparameters)
-- data fields: language [string], text [string]
local result = nil
if parameterparameters.list == "languagelang" orand parameterdata["language"] =~= "text"parameters.lang[1] then
return
result = data[parameter]
elseif parameters.formatting == "language" or parameters.formatting == "text" then
elseif parameter then
return data[parameters.formatting]
if data["language"] == wiki.langcode then
end
result = data["text"]
local result = data["text"]
end
if data["language"] ~= wiki.langcode then
else
result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"])
end
if mw.ustring.find((parameters.formatting or ''), '$', 1, true) then
-- output format defined with $text, $language
result = mw.ustring.gsub(parameters.formatting, '$text', result)
result = mw.ustring.gsub(result, '$language', data["language"])
end
return result
356 ⟶ 482 lerroa:
end
 
local function findClaims(entity, property)
if not property or not entity or not entity.claims then return end
369 ⟶ 495 lerroa:
 
local function getSnakValue(snak, parameters)
local parameter = parameters.formatting
if snak.snaktype == 'value' then
-- call the respective snak parser
377 ⟶ 502 lerroa:
return printDatavalueString(snak.datavalue.value, parameters)
elseif snak.datavalue.type == "globecoordinate" then
return printDatavalueCoordinate(snak.datavalue.value, parameterparameters.formatting)
elseif snak.datavalue.type == "quantity" then
return printDatavalueQuantity(snak.datavalue.value, parameterparameters)
elseif snak.datavalue.type == "time" then
return printDatavalueTime(snak.datavalue.value, parameterparameters)
elseif snak.datavalue.type == 'wikibase-entityid' then
return printDatavalueEntity(snak.datavalue.value, parameters)
elseif snak.datavalue.type == 'monolingualtext' then
return printDatavalueMonolingualText(snak.datavalue.value, parameterparameters)
end
elseif snak.snaktype == 'novalue' then
return mw.message.new('Wikibase-snakview-snaktypeselector-novalue'):inLanguage(parameters.lang[1]):plain()
elseif snak.snaktype == 'somevalue' then
return mw.message.new('Wikibase-snakview-snaktypeselector-somevalue'):inLanguage(parameters.lang[1]):plain()
end
return mw.wikibase.renderSnak(snak)
400 ⟶ 529 lerroa:
local qualifier = claim.qualifiers[qualifierId]
if qualifier then
--if iteratequalifier[1].datatype over== "monolingualtext" qualifiers to get local languagethen
-- iterate over monolingualtext qualifiers to get local language
for idx in pairs(qualifier) do
for idx in pairs(qualifier) do
if qualifier[idx].datavalue and qualifier[idx].datavalue.value and qualifier[idx].datavalue.value.language then
if qualifier[idx].datavalue.value and qualifier[idx].datavalue.value.language == wikiparameters.langcodelang[1] then
return qualifier[idx]
end
end
elseif parameters.list then
end
if parameters.list then
return qualifier
else
422 ⟶ 550 lerroa:
end
 
local function getValueOfClaim(claim, qualifierId, parameters)
local error
local snak
438 ⟶ 566 lerroa:
return getSnakValue(snak, parameters)
end
end
 
local function getValueOfParentClaim(claim, qualifierId, parameters)
local qids = mw.text.split(qualifierId, '/', true)
local valueraw, _, _ = getValueOfClaim(claim, nil, {["formatting"]="raw", ["lang"]=parameters.lang})
local parent_claims = mw.wikibase.getBestStatements(valueraw, qids[2])
local value, sortkey
if parent_claims[1] ~= nil then
value, sortkey, _ = getValueOfClaim(parent_claims[1], nil, parameters)
-- raw parent value needed fot while/black lists, lang for avoiding an error on types other than entity
valueraw, _, _ = getValueOfClaim(parent_claims[1], nil, {["formatting"]="raw", ["lang"]=parameters.lang})
end
return value, sortkey, valueraw
end
 
local function getReferences(claim)
local refaliases = {
citeWeb = "Q6925554Q5637226",
author = "P50",
publisher = "P123",
471 ⟶ 612 lerroa:
for snakidx = 1, #snakval do
if snakidx > 1 then refparts = refparts .. ", " end
refparts = refparts or '' .. getSnakValue(snakval[snakidx], {lang="wiki.langcode"})
end
refs[snakkey] = refparts
479 ⟶ 620 lerroa:
-- get title of general template for citing web references
local template = mw.wikibase.sitelinkgetSitelink(refaliases.citeWeb) or ""
template = mw.text.split(template, ":")[2] -- split off namespace from front
503 ⟶ 644 lerroa:
if k and v then
if refparts then refparts = refparts .. ", " else refparts = "" end
refparts = refparts .. tostring(mw.wikibase.labelgetLabel(k)) .. ": "
refparts = refparts .. v
end
516 ⟶ 657 lerroa:
function p.getSiteLink(frame)
if frame.args[1] == nil then
entity = mw.wikibase.getEntityObjectgetEntity()
if not entity then
return nil
525 ⟶ 666 lerroa:
end
return mw.wikibase.sitelinkgetSitelink(id)
end
 
-- Set whitelist or blacklist values
-- On debug console use: =p._debug({item="Q...", property="P...", ...})
local function p._debugsetWhiteOrBlackList(type_list, num_qual, args)
local i = 0
return p._main(args)
local listed = false
local list = {}
while i <= num_qual do
if args[type_list .. i] and args[type_list .. i] ~= '' then
listed = true
list[tostring(i)] = {}
local values = mw.text.split(args[type_list .. i], "/", true)
for _, v in ipairs(values) do
list[tostring(i)][v] = true
end
end
i = i + 1
end
return list, listed
end
 
function p.claim(frame)
--if mw.title.new(frame:getParent():getTitle()).isContentPage andthen
if not mw.title.new(frame:getTitle()).isSubpage then
-- -- invoked from a content page and not invoking a module subpage
-- return printError("not-from-content-page")
-- end
end
return p._main(frame.args)
return p._main(frame.args, frame:getParent().args)
end
 
-- Entry point from other modules or debugging, with a list of arguments.
function p._main(args)
-- From other modules use: require("Module:Wikidata")._main({item="Q...", property="P...", ...})
-- On debug console use: =p._main({item="Q...", lang="xx", property="P...", ...})
function p._main(args, pargs)
--If a value is already set, use it
if args.value and args.value ~= '' then
548 ⟶ 708 lerroa:
-- arguments
local id = args.item or (pargs and pargs.item); if id == "" then id = nil end
local property = string.upper(args["property"] or "")
local languages = findLang(args.lang)
local id = args["item"]; if id == "" then id = nil end
local idgender = args["itemgender"]
if idgender and not string.match(idgender, "^Q%d+$") then -- id malformed, maybe "unknown value"
idgender = nil
end
local property = string.upper(args["property"] or "")
local qualifierId = {}
qualifierId[1] = args["qualifier"] and string.upper(args["qualifier"]) or nil
563 ⟶ 724 lerroa:
local parameter = args["formatting"] or ''; if parameter == "" then parameter = nil end
local case = args.case
local list = args["list"] or true; if (list == "false" or list == "no") then list = false end
local sorting_col = args.tablesort
local sorting_col_alt = args.tablesortalt or ''
if args.tablesortalt then require('Mòdul:utilitats').rastreig("wikidata/tablesortalt") end
local sorting_up = (args.sorting or "") ~= "-1"
local separator = args.separator
572 ⟶ 735 lerroa:
local showerrors = args["showerrors"]
local default = args["default"]
local editicon = not (args.editicon == "false" or args.editicon == "no")
local parameters = {["formatting"] = parameter, ["list"] = list, ["case"] = case, ["lang"] = languages, ["editicon"] = editicon,
if args["rank"] and args["rank"] ~= '' then list = false end -- compatibilitat de transició
if args["rank"] then track("wikidata/rank") end
local parameters = {["formatting"] = parameter, ["list"] = list, ["case"] = case,
["separator"] = separator, ["conjunction"] = conjunction, ["qseparator"] = separator, ["qconjunction"] = conjunction}
local preformat = ""
-- defaults for table
local postformat = ""
local preformat, postformat = "", ""
local whitelisted, blacklisted = false, false
local whitelist, blacklist = {}, {}
if parameters.formatting == "table" then
parameters.separator = parameters.separator or "<br />"
604 ⟶ 769 lerroa:
rowformat = mw.ustring.gsub(rowformat, "^[*#] ?", "")
end
-- set whitelist and blacklist values
whitelist, whitelisted = setWhiteOrBlackList("whitelist", #qualifierId, args)
blacklist, blacklisted = setWhiteOrBlackList("blacklist", #qualifierId, args)
end
if default then showerrors = nil end
-- get wikidata entity
local entity = mw.wikibase.getEntityObjectgetEntity(id)
if not entity then
if showerrors then return printError("entity-not-found") else return default end
618 ⟶ 787 lerroa:
end
-- findset feminine case if gender is requested
local genderCase
if parameters.case == "gender" or idgender or parameters.formatting == "table" then
if feminineGender(idgender or id) then
local genderEntity = idgender and mw.wikibase.getEntityObject(idgender) or entity
genderCase = "feminineform"
local genderClaims = genderEntity.claims["P21"]
if parameters.case == "gender" or idgender then
if genderClaims then
parameters.gender = genderCase
local genderId = getValueOfClaim(genderClaims[1], nil, {["formatting"]="raw"})
if genderId == "Q6581072" or genderId == "Q1052281" or genderId == "Q43445" then -- female, transgender female, female organism
genderCase = (parameters.case == "infoboxlabel") and "labelfeminine" or "feminine"
if parameters.case == "gender" or idgender then
parameters.case = genderCase
end
end
end
654 ⟶ 818 lerroa:
parameters.separator = parameters.separator == "LF" and "\010" or parameters.separator
parameters.conjunction = parameters.conjunction == "LF" and "\010" or parameters.conjunction
-- i18n separators
parameters.separator = parameters.separator or mw.message.new('Comma-separator'):inLanguage(parameters.lang[1]):plain()
parameters.conjunction = parameters.conjunction or (mw.message.new('And'):inLanguage(parameters.lang[1]):plain() .. mw.message.new('Word-separator'):inLanguage(parameters.lang[1]):plain())
-- iterate over all elements and return their value (if existing)
local value, valueq
660 ⟶ 827 lerroa:
local sortkeys = {}
local firstrank = parameters.list == "firstrank" and claims[sortindices[1]].rank or ''
local rowlist = {} -- rows to list with whitelist or blacklist
for idx in pairs(claims) do
local claim = claims[sortindices[idx]]
if not whitelisted then rowlist[idx] = true end
if firstrank ~= '' and firstrank ~= claim.rank then
break
end
values[#values + 1] = {}
sortkeys[#sortkeys + 1] = {}
if parameters.formatting == "table" then
local params = mw.clone(parameters)
params.formatting = args["colformat0"]; if params.formatting == "" then params.formatting = nil end
if args["case0"] then
params.casegender = args["case0"] == "gender" and genderCase or args["case0"]
end
value, sortkey, error = getValueOfClaim(claim, nil, params)
if value then
for i, qual in ipairs(qualifierId) do
values[#values + 1] = {}
params.formatting = args["colformat" .. i]
if argssortkeys["case"#sortkeys ..+ i1] then= {}
if whitelist["0"] or blacklist["0"] then
params.case = args["case" .. i] == "gender" and genderCase or args["case" .. i]
local valueraw, _, _ = getValueOfClaim(claim, nil, {["formatting"]="raw"})
else
if whitelist["0"] and whitelist["0"][valueraw or ""] then
params.case = parameters.case
rowlist[#values] = true
elseif blacklist["0"] and blacklist["0"][valueraw or ""] then
rowlist[#values] = false
end
end
for i, qual in ipairs(qualifierId) do
local j = tostring(i)
params.formatting = args["colformat" .. j]; if params.formatting == "" then params.formatting = nil end
if args["case" .. j] then
params.gender = args["case" .. j] == "gender" and genderCase
else
params.case = parameters.case
params.gender = parameters.gender
end
if qual == property then qual = nil end -- hack for getting the property with another formatting, i.e. colformat1=raw
local valueq, sortkeyq, valueraw
if qual and string.find(qual, "/") then
valueq, sortkeyq, valueraw = getValueOfParentClaim(claim, qual, params)
else
valueq, sortkeyq, _ = getValueOfClaim(claim, qual, params)
end
values[#values]["col" .. j] = valueq
sortkeys[#sortkeys]["col" .. j] = sortkeyq or valueq
if whitelist[j] or blacklist[j] then
valueq = valueraw or getValueOfClaim(claim, qual, {["formatting"]="raw"})
if whitelist[j] and whitelist[j][valueq or ""] then
rowlist[#values] = true
elseif blacklist[j] and blacklist[j][valueq or ""] then
rowlist[#values] = false
end
end
end
valueq, sortkeyq, _ = getValueOfClaim(claim, qual, params)
values[#values]["col" .. i] = valueq
sortkeys[#sortkeys]["col" .. i] = sortkeyq or valueq
end
else
value, sortkey, error = getValueOfClaim(claim, qualifierId[1], parameters)
values[#values + 1] = {}
sortkeys[#sortkeys + 1] = {}
end
if not value and showerrors then value = error end
if value andthen
if references then value = value .. getReferences(claim) end
values[#values]["col0"] = value
values sortkeys[#valuessortkeys]["col0"] = sortkey or value
end
sortkeys[#sortkeys]["col0"] = sortkey or value
end
-- sort and format results
700 ⟶ 898 lerroa:
end
if sorting_col then
local sorting_table = mw.text.split(sorting_col, '/', true)
local comparator = function(a, b)
local valuea, = sortkeys[a]["col" .. sorting_col] or ''valueb
local valuebi = sortkeys[b]["col" .. sorting_col] or ''1
while valuea == valueb and i <= #sorting_table do
valuea = sortkeys[a]["col" .. sorting_table[i]] or sortkeys[a]["col" .. sorting_col_alt] or ''
valueb = sortkeys[b]["col" .. sorting_table[i]] or sortkeys[b]["col" .. sorting_col_alt] or ''
i = i + 1
end
if sorting_up then
return valueavalueb <> valuebvaluea
end
return valueavalueb >< valuebvaluea
end
table.sort(sortindices, comparator)
715 ⟶ 920 lerroa:
value = valuerow["col0"]
if parameters.formatting == "table" then
if not rowlist[sortindices[idx]] then
value = mw.ustring.gsub(rowformat .. "$", "$0", value) -- fake end character added for easy gsub
value = nil
for i, _ in ipairs(qualifierId) do
else
valueq = valuerow["col" .. i]
value = mw.ustring.gsub(rowformat .. "$", "$0", value) -- fake end character added for easy gsub
if args["rowsubformat" .. i] and valueq then
--for addi, fake_ endin characteripairs(qualifierId) $do
local valueq = valuerow["col" .. i]
-- gsub $i not followed by a number so $1 doesn't match $10, $11...
if args["rowsubformat" .. i] and valueq then
-- remove fake end character
-- add fake end character $
valueq = mw.ustring.gsub(args["rowsubformat" .. i] .. "$", "$" .. i .. "(%D)", valueq .. "%1")
-- gsub $i not followed by a number so $1 doesn't match $10, $11...
valueq = string.sub(valueq, 1, -2)
-- remove fake end character
valueq = mw.ustring.gsub(args["rowsubformat" .. i] .. "$", "$" .. i .. "(%D)", valueq .. "%1")
valueq = string.sub(valueq, 1, -2)
end
value = mw.ustring.gsub(value, "$" .. i .. "(%D)", (valueq or '') .. "%1")
end
value = mwstring.ustring.gsubsub(value, "$"1, .. i .. "(%D-2)", (valueq-- orremove '')fake ..end "%1")character
value = expandBraces(value, rowformat)
end
else
value = string.sub(value, 1, -2) -- remove fake end character
value = expandBraces(value, parameters.formatting)
end
value = expandBraces(value)
result[#result + 1] = value
if not parameters.list then
break
end
end
result = preformat .. mw.text.listToText(result, parameters.separator, parameters.conjunction) .. postformat
743 ⟶ 957 lerroa:
if showerrors then return error else return default end
end
end
 
-- Return the statements with a format
function p.formatStatements(frame)
track("wikidata/formatStatements")
return p.claim(frame) -- compatibilitat de transició
end
 
-- Set whitelist or blacklist values
local function setWhiteOrBlackList(type_list, num_qual, args)
local i = 0
local listed = false
local list = {}
while i <= num_qual do
if args[type_list .. i] and args[type_list .. i] ~= '' then
listed = true
list[tostring(i)] = {}
local values = mw.text.split(args[type_list .. i], "/", true)
for _, v in ipairs(values) do
list[tostring(i)][v] = true
end
end
i = i + 1
end
return list, listed
end
 
function p.claim(frame)
if mw.title.new(frame:getParent():getTitle()).isContentPage then
if not mw.title.new(frame:getTitle()).isSubpage then
-- invoked from a content page and not invoking a module subpage
return printError("not-from-content-page")
end
end
return p._main(frame.args, frame:getParent().args)
end
 
785 ⟶ 964 lerroa:
-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string
p.getTAValue = function(frame)
local ent = mw.wikibase.getEntityObjectgetEntity()
local props = ent:formatPropertyValues('P1323')
local out = {}
804 ⟶ 983 lerroa:
end
 
-- debugging functions, see module ../debug.
-- look into entity object
function p.ViewSomething(frame)
return require(wiki.module_title .. "/debug").ViewSomething(frame)
local f = (frame.args[1] or frame.args.item) and frame or frame:getParent()
local id = f.args.item
if id and (#id == 0) then
id = nil
end
local data = mw.wikibase.getEntityObject(id)
if not data then
return nil
end
 
local i = 1
while true do
local index = f.args[i]
if not index then
if type(data) == "table" then
return frame:extensionTag('syntaxhighlight', mw.text.jsonEncode(data, mw.text.JSON_PRETTY), {lang = 'json'})
else
return tostring(data)
end
end
data = data[index] or data[tonumber(index)]
if not data then
return
end
i = i + 1
end
end
 
-- Dump data tree structure
-- From pl:Module:Wikidane, by User:Paweł Ziemian
-- Funció pensada com a eina d'ajuda en previsualització.
function p.Dump(frame)
return require(wiki.module_title .. "/debug").Dump(frame)
local data = mw.wikibase.getEntityObject()
if not data then
return i18n.warnDump
end
local f = frame.args[1] and frame or frame:getParent()
 
local i = 1
while true do
local index = f.args[i]
if not index then
return frame:extensionTag('syntaxhighlight', mw.dumpObject(data), {lang = 'json'}) .. i18n.warnDump
end
data = data[index] or data[tonumber(index)]
if not data then
return i18n.warnDump
end
i = i + 1
end
end
 
-- Look into entity object
-- From pl:Module:Wikidane, function V, by User:Paweł Ziemian
function p.getEntityFromTree(frame)
return require(wiki.module_title .. "/debug").getEntityFromTree(frame)
local data = mw.wikibase.getEntityObject()
if not data then
return nil
end
local f = frame.args[1] and frame or frame:getParent()
local i = 1
while true do
local index = f.args[i]
if not index then
return tostring(data)
end
data = data[index] or data[tonumber(index)]
if not data then
return
end
i = i + 1
end
end
 
895 ⟶ 1.002 lerroa:
end
 
local function getPropertyValue(id, property, parameter, langs, editicon)
local entitysnaks = mw.wikibase.getEntityObjectgetBestStatements(id, property)
local mysnak
if not (entity and entity.claims) then return end
if snaks and snaks[1] and snaks[1].mainsnak then
mysnak = snaks[1].mainsnak
local claims = entity.claims[property]
else
if not claims then return end
return
-- get initial sort indices
local sortindices = {}
for idx in pairs(claims) do
sortindices[#sortindices + 1] = idx
end
-- sort by claim rank
local comparator = function(a, b)
local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
local ranka = rankmap[claims[a].rank or "normal"] .. string.format("%08d", a)
local rankb = rankmap[claims[b].rank or "normal"] .. string.format("%08d", b)
return ranka < rankb
end
table.sort(sortindices, comparator)
local snak = claims[sortindices[1]].mainsnak
local entityId
local result = '-' -- default for 'no value'
if snakmysnak.datavalue then
entityId = "Q" .. tostring(snakmysnak.datavalue.value['numeric-id'])
result, _ = getSnakValue(snakmysnak, {formatting=parameter, lang=langs, editicon=editicon})
end
929 ⟶ 1.023 lerroa:
function p.getParentValues(frame)
local args = frame.args
local id = args[".item"]; ifor id == "" then id = nil endframe:getParent().args.item
if id == "" or id == nil then
id = mw.wikibase.getEntityIdForCurrentPage()
end
local languages = findLang(args.lang)
local propertySup = args["property"]; if (propertySup == nil or propertySup == "") then propertySup = "P131" end --administrative entity
local propertyLabel = args["label"]; if (propertyLabel == nil or propertyLabel == "") then propertyLabel = "P31" end --instance
938 ⟶ 1.036 lerroa:
local separator = args["separator"]; if (separator == nil or separator == "") then separator = "<br />" end
local sorting = args["sorting"]; if sorting == "" then sorting = nil end
local editicon = not (args.editicon == "false" or args.editicon == "no")
local lastlabel = uc_first(upto or '')
954 ⟶ 1.053 lerroa:
for iter = 1, maxloop do
local label, link
id, link = getPropertyValue(id, propertySup, "internallink"args.formatting, languages, editicon)
if id then
_, label = getPropertyValue(id, propertyLabel, "label", languages)
if label and link then
if propertyLink then
_, linktext = getPropertyValue(id, propertyLink, "label", languages)
if linktext then
link = mw.ustring.gsub(link, "%[%[(.*)%|.+%]%]", "[[%1|" .. linktext .. "]]")
end
end
label = case(label, "infoboxlabel", languages[1])
if labelShow == nil or labelFilter[label] then
result[#result + 1] = {label, link}
988 ⟶ 1.087 lerroa:
for i = first, last, iter do
local rowtext = mw.ustring.gsub(rowformat, "$[01]", {["$0"] = result[i][1], ["$1"] = result[i][2]})
ret[#ret +1] = expandBraces(rowtext, rowformat)
end
return mw.text.listToText(ret, separator, separator)
998 ⟶ 1.097 lerroa:
args[k] = v
end
-- get internal link of property/qualifier
args.list = "true"
args.formatting = "internallink"
args.separator = "/·/"
local pargs = frame:getParent().args
local link = p._main(args) -- get internal link of property/qualifier
local link_list = p._main(args, pargs)
if items_list == nil then
if link_list == nil or link_list == "" then
return
end
local link_table = mw.text.split(link_list, "/·/", true)
-- get id value of property/qualifier
args.formatting = "raw"
local items_list = p._main(args, pargs) -- get item of property/qualifier
local items_table = mw.text.split(items_list, "/·/", true)
-- get label of parent property
args.property = args.parent
args.qualifier = nil
local parent_claims = findClaims(mw.wikibase.getEntity(items_table[1]), args.parent)
args.formatting = "label"
if parent_claims and parent_claims[1].mainsnak.datatype == 'monolingualtext' then
args.list = "false"
args.formatting = nil
args.list = 'lang'
else
args.formatting = "label"
args.list = "false"
end
for i, v in ipairs(items_table) do
args.item = v
local link_label = p._main(args, pargs) -- get label of parent property
if link_label and link_label ~= '' then
link_table[i] = mw.ustring.gsub(link_table[1i] or '', "%[%[(.*)%|.+%]%]", "[[%1|" .. link_label .. "]]")
end
end
1.026 ⟶ 1.138 lerroa:
function p.years_old(frame)
local args = frame.args
local id = args.item;
if id == '' thenor id == nil endthen
id = mw.wikibase.getEntityIdForCurrentPage()
end
local lang = mw.language.new('en')
local function fetchsnakgetBestValue(id, snakprop)
local retsnak = mw.wikibase.getEntityObjectgetBestStatements(id, prop)[1]
if snak and snak.mainsnak and snak.mainsnak.datavalue and snak.mainsnak.datavalue.value then
for i, v in ipairs(snak) do
return snak.mainsnak.datavalue.value
if ret == nil then break end
ret = ret[v]
end
return ret
end
local birth = fetchsnakgetBestValue(id, {'claims', 'P569', 1, 'mainsnak', 'datavalue', 'value'})
if type(birth) ~= 'table' or birth.time == nil or birth.precision == nil or birth.precision < 8 then
return
end
local death = fetchsnakgetBestValue(args.item, {'claims'id, 'P570', 1, 'mainsnak', 'datavalue', 'value'})
if type(death) ~= 'table' or death.time == nil or death.precision == nil then
death = {['time'] = lang:formatDate('c'), ['precision'] = 11} -- current date
1.094 ⟶ 1.207 lerroa:
local old = old_min == old_max and old_min or old_min .. "/" .. old_max
if args.formatting then
old = expandBraces(mw.ustring.gsub(args.formatting, '$1', old), args.formatting)
end
return old
end
 
-- Gets a label in a given language (content language by default) or its fallbacks, optionnally linked.
function p.getLabel(frame)
local args = frame.args or frame -- via invoke or require
local id = mw.text.trim(args[1] or "")
if id == "" then return end
local editicon = not (args.editicon == "false" or args.editicon == "no")
local pencil = ''
local label, lang
if args.label then
label = args.label
else
local languages = findLang(args.lang)
if languages[1] == wiki.langcode then
-- exceptions or labels fixed
local exist, labels = pcall(require, wiki.module_title .. "/labels")
if exist and next(labels.infoboxLabelsFromId) ~= nil then
label = labels.infoboxLabelsFromId[id]
end
end
if label == nil then
label, lang = getLabelByLangs(id, languages)
if label then
if args.itemgender and feminineGender(args.itemgender) then
label = feminineForm(id, lang) or label
end
label = mw.language.new(lang):ucfirst(mw.text.nowiki(label)) -- sanitize
end
pencil = addEditIcon(id, lang, languages[1], editicon)
end
end
local linked = args.linked
if linked and linked ~= "" and linked ~= "no" then
local article = mw.wikibase.getSitelink(id) or ("d:" .. id)
return "[[" .. article .. "|" .. (label or id) .. "]]" .. pencil
else
return (label or id) .. pencil
end
end
 
-- Return default language used
function p.lang(frame)
return findLang(frame.args[1])[1]
end
 
"https://eu.wikipedia.org/wiki/Modulu:Wikidata"(e)tik eskuratuta