Module:Wikidata/sandbox : Tameẓla gar ileqman

 

local p = {}

["errors"] = {

["property-not-found"] = "Property not found.",

["qualifier-not-found"] = "Qualifier not found.",

},

["datetime"] =

[2] = "$10 million years", -- precision: ten million years

[3] = "$1 million years", -- precision: million years

[6] = "$1 millennium", -- precision: millennium

[7] = "$1 century", -- precision: century

[8] = "$1s", -- precision: decade

-- the following use the format of #time parser function

[10] = "F Y", -- precision: month

[11] = "F j, Y", -- precision: day

["beforenow"] = "$1 BCE", -- how to format negative numbers for precisions 0 to 5

["afternow"] = "$1 CE", -- how to format positive numbers for precisions 0 to 5

["bc"] = '$1 "BCE"', -- how print negative years

},

["monolingualtext"] = '<span lang="%language">%text</span>',

["cite"] = { -- Cite web parameters

}

}

 

local cases = {} -- functions for local grammatical cases defined at [[Module:Wikidata/i18n]]

 

local wiki =

{

langcode = mw.language.getContentLanguage().code,

}

 

-- Credit to http://stackoverflow.com/a/1283608/2644759

loadI18n()

 

end

end

 

local function findLang(langcode)

end

end

table.insert(languages, 1, langcode)

return languages

end

 

-- Is gender femenine? true or false

local function feminineGender(id)

if genderId == "Q6581072" or genderId == "Q1052281" or genderId == "Q43445" then -- female, transgender female, female organism

return true

-- Fetch female form of label

local function feminineForm(id, lang)

end

end

-- Fetch unit symbol

local function unitSymbol(id, lang)

local langclaims = {}

if claims then

end

return ''

end

 

local parameters = {}

for i = 2, #parts do

else

table.insert(parameters, parts[i])

end

braces = mw.ustring.gsub(braces, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1") -- escape magic characters

text = mw.ustring.gsub(text, "{{" .. braces .. "}}", braces_expanded)

end

return text

end

 

local function printDatavalueString(data, parameters)

if parameters.formatting == 'weblink' then

elseif mw.ustring.find((parameters.formatting or ''), '$1', 1, true) then -- formatting = a pattern

elseif parameters.case then

else

return data

end

end

 

local function printDatavalueCoordinate(data, parameter)

return data.latitude

elseif parameter == 'longitude' then

return 'earth'

else

end

end

end

 

local function printDatavalueQuantity(data, parameters)

local amount = data.amount

amount = mw.ustring.gsub(amount, "%+", "")

local sortkey = string.format("%09d", amount)

local suffix = ""

if parameters.formatting == "unitcode" then

end

end

end

end

return amount .. suffix, sortkey

end

-- Dates and times are stored in ISO 8601 format

local timestamp = data.time

local calendar_add = ""

if string.sub(timestamp, 1, 1) == '-' then

elseif string.sub(timestamp, 2, 3) == '00' then

end

local function d(f, t)

local ts = t or timestamp

local form = type(f) == "function" and f(ts) or f -- function in i18n.datetime[precision]

end

local precision = data.precision or 11

local ret = ""

local factor = 10 ^ ((5 - precision) + 4)

local y2 = math.ceil(math.abs(intyear) / factor)

local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))

ret = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)

else

ret = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)

end

local card = math.floor((intyear - 1) / 1000) + 1

if mw.ustring.find(i18n.datetime[6], "$1") then

else

ret = d(i18n.datetime[6], string.format("%04d", tostring(card)))

end

local card = math.floor((math.abs(intyear) - 1) / 100) + 1

if mw.ustring.find(i18n.datetime[7], "$1") then

else

ret = d(i18n.datetime[7], string.format("%04d", tostring(card)))

end

local card = math.floor(math.abs(intyear) / 10) * 10

timestamp = timestamp .. " + 1 day" -- formatDate yyyy-mm-00 returns the previous month

end

end

 

local function printDatavalueEntity(data, parameters)

local entityId = data['id']

if parameters.formatting == 'raw' then

return entityId, entityId

end

local parameter = parameters.formatting

local labelcase = label or sitelink

labelcase = feminineForm(entityId, lang) or labelcase

end

end

local ret1, ret2

ret2 = labelcase or entityId

elseif parameter == 'sitelink' then

ret2 = sitelink or entityId

elseif mw.ustring.find((parameter or ''), '$1', 1, true) then -- formatting = a pattern

else

if parameter == "ucfirst" or parameter == "ucinternallink" then

-- only first of a list, reset formatting for next ones

if parameter == "ucinterlanllink" then

ret2 = labelcase

else

ret2 = labelcase or entityId

end

end

end

 

end

return result

end

 

local function printError(key)

end

 

end

 

if not mw.ustring.match(property, "^P%d+$") then

if not property then return end

end

end

 

if snak.datatype == 'math' then

return printDatatypeMath(snak.datavalue.value)

elseif snak.datavalue.type == "string" then

return printDatavalueString(snak.datavalue.value, parameters)

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 getSnakValue(snak, parameters)

end

end

 

local function getReferences(claim)

local refaliases = {

}

local result = ""

for snakidx = 1, #snakval do

if snakidx > 1 then refparts = refparts .. ", " end

end

refs[snakkey] = refparts

-- get title of general template for citing web references

local template = mw.wikibase.getSitelink(refaliases.citeWeb) or ""

-- (1) if both "reference URL" and "title" are present, then use the general template for citing web references

if property_id ~= nil then

if not claims or not claims[1] then

return nil

-- Return the site link (for the current site) for a given data item.

function p.getSiteLink(frame)

end

 

-- Set whitelist or blacklist values

local function setWhiteOrBlackList(type_list, num_qual, args)

local listed = false

local list = {}

listed = true

list[tostring(i)] = {}

for _, v in ipairs(values) do

list[tostring(i)][v] = true

end

end

end

return list, listed

end

 

end

end

 

--If a value is already set, use it

return args.value

end

-- arguments

end

local property = string.upper(args["property"] or "")

i = i + 1

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_up = (args.sorting or "") ~= "-1"

local separator = args.separator

local showerrors = args["showerrors"]

local default = args["default"]

local editicon = not (args.editicon == "false" or args.editicon == "no")

["separator"] = separator, ["conjunction"] = conjunction, ["qseparator"] = separator, ["qconjunction"] = conjunction}

blacklist, blacklisted = setWhiteOrBlackList("blacklist", #qualifierId, args)

end

end

if not claims or not claims[1] then

if showerrors then return printError("property-not-found") else return default end

end

-- set feminine case if gender is requested

end

end

end

local comparator = function(a, b)

local rankmap = { deprecated = 2, normal = 1, preferred = 0 }

return ranka < rankb

end

local values = {}

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 firstrank ~= '' and firstrank ~= claim.rank then

break

end

if parameters.formatting == "table" then

if value then

values[#values + 1] = {}

sortkeys[#sortkeys + 1] = {}

if whitelist["0"] or blacklist["0"] then

if whitelist["0"] and whitelist["0"][valueraw or ""] then

rowlist[#values] = true

for i, qual in ipairs(qualifierId) do

local j = tostring(i)

else

end

values[#values]["col" .. j] = valueq

sortkeys[#sortkeys]["col" .. j] = sortkeyq or valueq

if whitelist[j] or blacklist[j] then

if whitelist[j] and whitelist[j][valueq or ""] then

rowlist[#values] = true

end

else

values[#values + 1] = {}

sortkeys[#sortkeys + 1] = {}

end

if not value and showerrors then value = error end

if value then

values[#values]["col0"] = value

sortkeys[#sortkeys]["col0"] = sortkey or value

end

if sorting_col then

local comparator = function(a, b)

if sorting_up then

end

end

table.sort(sortindices, comparator)

for idx in pairs(values) do

local valuerow = values[sortindices[idx]]

value = valuerow["col0"]

if parameters.formatting == "table" then

else

value = mw.ustring.gsub(rowformat .. "$", "$0", value) -- fake end character added for easy gsub

for i, _ in ipairs(qualifierId) do

local valueq = valuerow["col" .. i]

valueq = mw.ustring.gsub(args["rowsubformat" .. i] .. "$", "$" .. i .. "(%D)", valueq .. "%1")

valueq = string.sub(valueq, 1, -2)

end

end

value = string.sub(value, 1, -2) -- remove fake end character

end

value = expandBraces(value, parameters.formatting)

end

result[#result + 1] = value

end

-- fetch the first claim of satisfying the given property

if not claims or not claims[1] then

if showerrors then return printError("property-not-found") else return default end

-- 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)

end

 

function p.processMarkup(frame)

end

 

function p.ViewSomething(frame)

end

 

function p.Dump(frame)

end

 

function p.getEntityFromTree(frame)

end

 

 

local function uc_first(word)

if mysnak.datavalue then

entityId = "Q" .. tostring(mysnak.datavalue.value['numeric-id'])

end

end

 

end

end

 

last_only,

grammatical_case,

include_self)

if (upto_linkId == nil) then upto_linkId = "" end

local lastlabel = uc_first(upto or '')

local label, link

for _, propertySup in pairs(propertySups) do

if _id and _link then id = _id link = _link break end

end

if label then

end

if label then

end

break

end

if contains(upto_link_ids, id) then

break

end

if include_self then table.insert(result, 1, {label_self, mw.title.getCurrentTitle().text}) end

end

 

rowformat,

separator,

local ret = {}

local last = #result

local iter = 1

for i = first, last, iter do

local rowtext = mw.ustring.gsub(rowformat, "$[01]", {["$0"] = result[i][1], ["$1"] = result[i][2]})

if cascade then

ret[i] = prefix .. "• " .. ret[i]

prefix = prefix .. "&nbsp;"

end

end

return mw.text.listToText(ret, separator, separator)

end

 

function p.getParentValues(frame)

id = mw.wikibase.getEntityIdForCurrentPage()

end

local languages = findLang(args.lang)

local propertyLink = args["valuetext"]; if propertyLink == "" then propertyLink = nil end --internallink

local upto = args["upto"]; if upto == "" then upto = nil end

local labelShow = args["labelshow"]; if labelShow == "" then labelShow = nil end

local editicon = not (args.editicon == "false" or args.editicon == "no")

local include_self = (args.include_self == "true" or args.include_self == "yes")

local case = args["case"]; if case == "" then case = nil end

upto = mw.wikibase.getLabel(args.uptolabelid)

end

if #showLabelList > 0 then

labelShow = table.concat(showLabelList,"/")

local result = getParentObjects(id,

local cascade = (args.cascade == "true" or args.cascade == "yes")

return parentObjectsToString(result,

end

 

function p.linkWithParentLabel(frame)

args.formatting = "internallink"

args.separator = "/·/"

return

end

-- get id value of property/qualifier

args.formatting = "raw"

local items_table = mw.text.split(items_list, "/·/", true)

args.property = args.parent

args.qualifier = nil

if parent_claims and parent_claims[1].mainsnak.datatype == 'monolingualtext' then

args.formatting = nil

for i, v in ipairs(items_table) do

args.item = v

link_table[i] = mw.ustring.gsub(link_table[i] or '', "%[%[(.*)%|.+%]%]", "[[%1|" .. link_label .. "]]")

end

end

 

local id = args.item

id = mw.wikibase.getEntityIdForCurrentPage()

end

local old_min = age(dates[1].max, dates[2].min)

local old_max = age(dates[1].min, dates[2].max)

end

end

 

local args = frame.args or frame -- via invoke or require

local id = mw.text.trim(args[1] or "")

local editicon = not (args.editicon == "false" or args.editicon == "no")

else

local languages = findLang(args.lang)

end

if label == nil then

label, lang = getLabelByLangs(id, languages)

if label then

label = mw.language.new(lang):ucfirst(mw.text.nowiki(label)) -- sanitize

end

end

end

local linked = args.linked

local article = mw.wikibase.getSitelink(id) or ("d:" .. id)

return "[[" .. article .. "|" .. (label or id) .. "]]" .. pencil