“Module:WikidataIB/sandbox2”的意思、由来-开放百科全书

-- set the following to the name of a tracking category e.g. "" or "" to disable:

-- some languages, e.g. Bosnian use a period as a suffix after each number in a date

-- Private functions

-- makeOrdinal needs to be internationalised along with the above:-- takes cardinal numer as a numeric and returns the ordinal as a string-- we need three exceptions in English for 1st, 2nd, 3rd, 21st, .. 31st, etc.
-- Dependencies: none

local function makeOrdinal(cardinal)

local ordsuffix = i18n.ordinal.default

if cardinal % 10 == 1 then

ordsuffix = i18n.ordinal[1]

elseif cardinal % 10 == 2 then

ordsuffix = i18n.ordinal[2]

elseif cardinal % 10 == 3 then

ordsuffix = i18n.ordinal[3]

end

-- In English, 1, 21, 31, etc. use 'st', but 11, 111, etc. use 'th'

-- similarly for 12 and 13, etc.

if (cardinal % 100 == 11) or (cardinal % 100 == 12) or (cardinal % 100 == 13) then

ordsuffix = i18n.ordinal.default

end

return tostring(cardinal) .. ordsuffix

end

-- findLang takes a "langcode" parameter if supplied-- otherwise it tries to create it from the user's set language ({{int:lang}})-- failing that it uses the wiki's content language.-- It returns a language object
-- Dependencies: none

local function findLang(langcode)

local langobj

if not langcode or langcode == "" then

langcode = mw.getCurrentFrame():preprocess( '{{int:lang}}' )

end

if mw.language.isKnownLanguageTag(langcode) then

langobj = mw.language.new( langcode )

else

langobj = mw.language.getContentLanguage()

end

return langobj

end

-- roundto takes a positive number (x)-- and returns it rounded to (sf) significant figures
-- Dependencies: none

local function roundto(x, sf)

if x == 0 then return 0 end

x = math.abs(x)

if sf < 1 then sf = 1 end

local e = math.floor(math.log10(x)) - sf + 1

local m = math.floor(x / 10^e + 0.5)

x = m * 10^e

-- if it's integral, cast to an integer:

if x == math.floor(x) then x = math.floor(x) end

return x

end

-- decimalToDMS takes a decimal degrees (x) with precision (p)-- and returns degrees/minutes/seconds according to the precision
-- Dependencies: none

local function decimalToDMS(x, p)

-- if p is not supplied, use a precision around 0.1 seconds

if not tonumber(p) then p = 1e-4 end

local d = math.floor(x)

local ms = (x - d) * 60

if p > 0.5 then -- precision is > 1/2 a degree

if ms > 30 then d = d + 1 end

ms = 0

end

local m = math.floor(ms)

local s = (ms - m) * 60

if p > 0.008 then -- precision is > 1/2 a minute

if s > 30 then m = m +1 end

s = 0

elseif p > 0.00014 then -- precision is > 1/2 a second

s = math.floor(s + 0.5)

elseif p > 0.000014 then -- precision is > 1/20 second

s = math.floor(10 * s + 0.5) / 10

elseif p > 0.0000014 then -- precision is > 1/200 second

s = math.floor(100 * s + 0.5) / 100

else -- cap it at 3 dec places for now

s = math.floor(1000 * s + 0.5) / 1000

end

return d, m, s

end

-- decimalPrecision takes a decimal (x) with precision (p)-- and returns x rounded approximately to the given precision-- precision should be between 1 and 1e-6, preferably a power of 10.
-- Dependencies: none

local function decimalPrecision(x, p)

-- if p is not supplied, pick an arbitrary precision

if not tonumber(p) then p = 1e-4 end

if p > 1 then p = 1 end

if p < 1e-6 then p = 1e-6 end

local e = math.floor(math.log10(p))

local m = math.floor(x / 10^e + 0.5)

x = m * 10^e

-- if it's integral, cast to an integer:

if x == math.floor(x) then x = math.floor(x) end

-- if it's less than 1e-4, it will be in exponent form, so return a string with 6dp

-- 9e-5 becomes 0.000090

if math.abs(x) < 1e-4 then x = string.format("%f", x) end

return x

end

-- formatDate takes a datetime of the usual format from mw.wikibase.entity:formatPropertyValues-- like "1 August 30 BCE" as datetime and formats it-- according to the df (date format) and bc parameters for Cantonese: "Y年n月j號" or "Y年"-- df = ["ymd" "y"] default will be "ymd"-- bc = ["BC" / "BCE"] default will be "BCE"
-- Dependencies: none

local format_Date = function(datetime, dateformat, bc)

datetime = datetime or "1 August 30 BCE" -- in case of nil value

-- chop off multiple vales and/or any hours, mins, etc.

-- keep anything before punctuation - we just want a single date:

local dateval = string.match( datetime, "[%w ]+")

dateformat = string.lower(dateformat or "ymd") -- default to ymd

bc = i18n["BC"] -- only one prefix

local postchrist = true -- start by assuming no BCE

local dateparts = {}

for word in string.gmatch(dateval, "%w+") do

if word == "BCE" or word == "BC" then

postchrist = false

else

-- we'll keep the parts that are not 'BCE' in a table

dateparts[#dateparts + 1] = word

end

if postchrist then bc = "" end -- set AD dates to no prefix

local months = { ["January"] = 1; ["February"] = 2; ["March"] = 3; ["April"] = 4; ["May"] = 5;

["June"] = 6; ["July"] = 7; ["August"] = 8; ["September"] = 9; ["October"] = 10;

["November"] = 11; ["December"] = 12}

-- if we have day month year, check dateformat for "y"

local fdate

if #dateparts == 3 then

fdate = dateparts[3] .. "年"

if dateformat ~= "y" then

fdate = fdate .. months[dateparts[2]] .. "月" .. dateparts[1] .. "號"

end

elseif #dateparts == 2 then

fdate = dateparts[2] .. "年"

if dateformat ~= "y" then

fdate = fdate .. months[dateparts[1]] .. "月"

end

else

fdate = dateparts[1] .. "年"

end

return bc .. fdate

end

-- parseParam takes a (string) parameter, e.g. from the list of frame arguments,-- and makes "false", "no", and "0" into the (boolean) false-- it makes the empty string and nil into the (boolean) value passed as default-- allowing the parameter to be true or false by default.
-- Dependencies: none

local parseParam = function(param, default)

if param and param ~= "" then

param = param:lower()

if (param == "false") or (param == "no") or (param == "0") then

return false

else

return true

end

else

return default

end

-- The label in a Wikidata item is subject to vulnerabilities-- that an attacker might try to exploit.-- It needs to be 'sanitised' by removing any wikitext before use.-- If it doesn't exist, return the id for the item-- a second (boolean) value is also returned, value is true when the label exists
-- Dependencies: none

local labelOrId = function (id)

local label = mw.wikibase.label(id)

if label then

return mw.text.nowiki(label), true

else

return id, false

end

-- linkedItem takes an entity-id and returns a string, linked if possible.-- This is the handler for "wikibase-item". Preferences:-- 1. Display linked disambiguated sitelink if it exists-- 2. Display linked label if it is a redirect-- 3. TBA: Display an inter-language link for the label if it exists other than in default language-- 4. Display unlinked label if it exists-- 5. Display entity-id for now to indicate a label could be provided
-- Dependencies: labelOrId()

local linkedItem = function(id, lprefix, lpostfix)

local disp

local sitelink = mw.wikibase.sitelink(id)

local label, islabel = labelOrId(id)

if mw.site.siteName ~= "Wikimedia Commons" then

if sitelink then

-- strip any namespace or dab from the sitelink and use that as label

local pos = sitelink:find(":") or 0

label = sitelink:sub(pos+1):gsub("%s%(.+%)$", ""):gsub(",.+$", "")

disp = "" .. label .. ""

elseif islabel then

-- no sitelink, label exists, so check if a redirect with that title exists

local artitle = mw.title.new(label, 0)

if artitle and artitle.redirectTarget then

-- there's a redirect with the same title as the label, so let's link to that

disp = "" .. label .. ""

else

-- no sitelink, label exists, not a redirect, so output the plain label

disp = label

end -- test if article title exists as redirect on current Wiki

else

-- no sitelink and no label, so return whatever was returned from labelOrId for now

-- add tracking category

disp = label .. i18n.missinginfocat

end

else

local ccat = mw.wikibase.getBestStatements(id, "P373")[1]

if ccat then

ccat = ccat.mainsnak.datavalue.value

disp = "" .. label .. ""

elseif sitelink then

-- this asumes that if a sitelink exists, then a label also exists

disp = "" .. label .. ""

else

-- no sitelink and no Commons cat, so return label from labelOrId for now

disp = label

end

return disp

end

-- sourced takes a table representing a statement that may or may not have references-- it counts how many references are sourced to something not containing the word "wikipedia"-- it returns a boolean = true if there are any sourced references.
-- Dependencies: none

local sourced = function(claim)

if claim.references then

for kr, vr in pairs(claim.references) do

local ref = mw.wikibase.renderSnaks(vr.snaks)

if not ref:find("Wikipedia") then

return true

end

-- setRanks takes a flag (parameter passed) that requests the values to return-- "b[est]" returns preferred if available, otherwise normal-- "p[referred]" returns preferred-- "n[ormal]" returns normal-- "d[eprecated]" returns deprecated-- multiple values are allowed, e.g. "preferred normal" (which is the default)-- "best" will override the other flags, and set p and n
-- Dependencies: none

local function setRanks(rank)

rank = (rank or ""):lower()

-- if nothing passed, return preferred and normal

-- if rank == "" then rank = "p n" end

local ranks = {}

for w in string.gmatch(rank, "%a+") do

w = w:sub(1,1)

if w == "b" or w == "p" or w == "n" or w == "d" then

ranks[w] = true

end

-- check if "best" is requested or no ranks requested; and if so, set preferred and normal

if ranks.b or not next(ranks) then

ranks.p = true

ranks.n = true

end

return ranks

end

-- parseInput processes the Q-id , the blacklist and the whitelist-- if an input parameter is supplied, it returns that and ends the call.-- it returns (1) either the qid or nil indicating whether or not the call should continue-- and (2) a table containing all of the statements for the propertyID and relevant Qid-- if "best" ranks are requested, it returns those instead of all non-deprecated ranks
-- Dependencies: none

local parseInput = function(frame, input_parm, property_id)

-- There may be a local parameter supplied, if it's blank, set it to nil

input_parm = mw.text.trim(input_parm or "")

if input_parm == "" then input_parm = nil end

local args = frame.args

-- can take a named parameter |qid which is the Wikidata ID for the article.

-- if it's not supplied, use the id for the current page

local qid = args.qid or ""

if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end

-- if there's no Wikidata item for the current page return nil

if not qid then return false, input_parm end

-- The blacklist is passed in named parameter |suppressfields

local blacklist = args.suppressfields or args.spf

-- The whitelist is passed in named parameter |fetchwikidata

local whitelist = args.fetchwikidata or args.fwd

if not whitelist or whitelist == "" then whitelist = "NONE" end

-- The name of the field that this function is called from is passed in named parameter |name

local fieldname = args.name or ""

if blacklist then

-- The name is compulsory when blacklist is used, so return nil if it is not supplied

if not fieldname or fieldname == "" then return false, nil end

-- If this field is on the blacklist, then return nil

if blacklist:find(fieldname) then return false, nil end

end

-- If we got this far then we're not on the blacklist

-- The blacklist overrides any locally supplied parameter as well

-- If a non-blank input parameter was supplied return it

if input_parm then return false, input_parm end

-- Otherwise see if this field is on the whitelist:

-- needs a bit more logic because find will return its second value = 0 if fieldname is ""

-- but nil if fieldname not found on whitelist

local _, found = whitelist:find(fieldname)

found = ((found or 0) > 0)

if whitelist ~= 'ALL' and (whitelist:upper() == "NONE" or not found) then

return false, nil

end

-- See what's on Wikidata (the call always returns a table, but it may be empty):

local props = {}

if args.reqranks.b then

props = mw.wikibase.getBestStatements(qid, property_id)

else

props = mw.wikibase.getAllStatements(qid, property_id)

end

if props[1] then

return qid, props

end

-- no property on Wikidata

return false, nil

end

-- assembleoutput takes the sequence table containing the property values-- and formats it according to switches given-- it needs the entityID and propertyID to link from the pen icon
-- Dependencies: parseParam();

local function assembleoutput(out, args, entityID, propertyID)

-- sorted is a boolean passed to enable sorting of the values returned

-- if nothing or an empty string is passed set it false

-- if "false" or "no" or "0" is passed set it false

local sorted = parseParam(args.sorted, false)

-- noicon is a boolean passed to suppress the trailing "edit at Wikidata" icon

-- for use when the value is processed further by the infobox

-- if nothing or an empty string is passed set it false

-- if "false" or "no" or "0" is passed set it false

local noic = parseParam(args.noicon, false)

-- list is the name of a template that a list of multiple values is passed through

-- examples include "hlist" and "ubl"

-- setting it to "prose" produces something like "1, 2, 3, and 4"

local list = args.list or ""

-- sep is a string that is used to separate multiple returned values

-- if nothing or an empty string is passed set it to the default

-- any double-quotes " are stripped out, so that spaces may be passed

-- e.g. |sep=" - "

local sepdefault = i18n["list separator"]

local separator = args.sep or ""

separator = string.gsub(separator, '"', )

if separator == "" then

separator = sepdefault

end

-- collapse is a number that determines the maximum number of returned values

-- before the output is collapsed.

-- Zero or not a number result in no collapsing (default becomes 0).

local collapse = tonumber(args.collapse) or 0

-- if there's anything to return, then return a list

-- comma-separated by default, but may be specified by the sep parameter

-- optionally specify a hlist or ubl or a prose list, etc.

local strout

if #out > 0 then

if sorted then table.sort(out) end

-- if a pen icon is wanted add it the end of the last value

if not noic then

local icon = " [[" .. i18n["filespace"]

icon = icon .. ":Blue pencil.svg |frameless |text-top |10px |alt="

icon = icon .. i18n["editonwikidata"]

icon = icon .. "|link=https://www.wikidata.org/wiki/" .. entityID

icon = icon .. "?uselang=" .. args.langobj.code

icon = icon .. "#" .. propertyID .. "|" .. i18n["editonwikidata"] .. "]]"

out[#out] = out[#out] .. icon

end

if list == "" then

strout = table.concat(out, separator)

elseif list:lower() == "prose" then

strout = mw.text.listToText( out )

else

strout = mw.getCurrentFrame():expandTemplate{title = list, args = out}

end

if collapse >0 and #out > collapse then

strout = collapsediv .. strout .. "

-- onlysourced is a boolean passed to return only values sourced to other than Wikipedia

-- linkprefix is a string that may be nil, empty (""), or a string of characters

-- linkpostfix is a string that may be nil, empty (""), or a string of characters

-- wdlinks is a boolean passed to enable links to Wikidata when no article exists

-- this determines how many items may be returned when multiple values are available

-- setting it = 1 is useful where the returned string is used within another call, e.g. image

-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",

elseif datatype == "commonsMedia" or datatype == "external-id" or datatype == "string" or datatype == "url" then

-- quantities have mainsnak.datavalue.value.amount and mainsnak.datavalue.value.unit

local lat, long, prec = datavalue.latitude, datavalue.longitude, datavalue.precision

out[#out+1] = decimalPrecision(long, prec) .. ", " .. decimalPrecision(lat, prec)

out[#out] = out[#out] .. longdeg .. "°" .. longmin .. "′" .. longsec .. "″" .. ew

-- collect all the values in 'out' and languages in 'mlt' and process them later

qlist[#qlist + 1] = assembleoutput(propertyvalueandquals(v.qualifiers[v1], qargs), qargs)

-- we want something like property is "pronunciation audio (P443)" in propertyID

if v1.mainsnak.snaktype == "value" and v1.mainsnak.datavalue.type == "string" then

-- This is top-level location, so get short name except when this is the first item

-- qual is a string containing the property ID of the qualifier(s) to be returned

-- if qual == "DATES" then qualifiers P580 (start time) and P582 (end time) returned

-- there may be a format parameter to switch from deg/min/sec to decimal degrees

-- The value of the property we want to match whose qualifier value is to be returned

-- then we can return the value(s) of a qualifier such as P580, start time (in qualifierID)

if v1.mainsnak.snaktype == "value" and v1.mainsnak.datavalue.type == "wikibase-entityid" then

-- The Q-id of the value for the qualifier we want to match is in named parameter |qvalue=

-- The language code for the qualifier we want to match is in named parameter |lang=