وحدة:Uses Wikidata
يمكن إنشاء صفحة توثيق الوحدة في وحدة:Uses Wikidata/شرح
local p = {}
local wd2 = require('Module:Wikidata2').formatStatementsFromLua
local gett = require('Module:Uses_Wikidata/datatype').gettype
function p.usesProperty(frame)
local parent = frame.getParent(frame)
local result = ''
local ii = 1
while true do
local p_num = parent.args[ii] or ''
if p_num ~= '' then
p_num = mw.text.trim( p_num )
if mw.ustring.gsub( p_num, '%d', '' ) == 'P' then
local label = mw.wikibase.label(p_num) or "بدون وصف"
result = result .. "<li><b><i>[[d:Property:" .. p_num .. "|" .. label .. " <small>(" .. string.upper(p_num) .. ")</small>]]</i></b> (انظر [[d:Special:WhatLinksHere/Property:" .. p_num .. "|الاستخدام]])</li>"
end
else break
end
ii = ii + 1
end
return result
end
Type = {
["wikibase-item"]= "عنصر ويكي بيانات",
["wikibase-property"]= "خاصية ويكي بيانات",
["commonsMedia"]= "وسائط كومنز",
["math"]= "تعبير رياضي",
["time"]= "وقت",
["external-id"]= "معرف خارجي",
["string"]= "نص",
["globe-coordinate"]= "إحداثيات",
["quantity"]= "كمية",
["geo-shape"]= "شكل جغرافي",
["url"]= "مسار",
["monolingualtext"]= "نص بلغة وحيدة",
}
function getpropertytype(id)
local ca = ""
local mo = gett(id)
if mo and mo ~= "" then
if Type[mo] then
ca = Type[mo]
end
else
local entity = mw.wikibase.getEntityObject(id)
if entity
and entity['datatype']
and Type[entity['datatype']]
then
ca = Type[entity['datatype']]
else ca =''
end
end
if ca and ca ~= '' then
return '<small> (' .. ca .. ')</small>'
end
return ''
end
function LabelOrDes(langcode , id , lab , args)
if lab == 'labels'
then cas = 'lab'
elseif lab == 'descriptions'
then cas = 'des'
end
----------------------
local arg = args[id .. cas] or ''
local lan = langcode or 'ar'
local entity = mw.wikibase.getEntityObject(id)
----------------------
if arg and arg ~= ''
then
return arg
else
if entity
and entity[''..lab ..'']
and entity[''..lab ..''][''..lan..'']
and entity[''..lab ..''][''..lan..''].value
then
local lang = entity[''..lab ..''][''..lan..'']
if lang['language'] == lan
then
return entity[''..lab ..''][''..lan..''].value
else
return nil
end
end
end
end
function makecat(P, name)
PO = ''
----------------------
if P and P ~='' then
local cat = mw.ustring.gsub(P, 'تصنيف:' , '')
local catname = mw.ustring.gsub(cat, 'صفحات تستخدم خاصية' , 'صفحات تستخدم')
if name and name ~= '' then catname = name end
PO = "[[:" .. P .. "|" .. catname .. "]] (<abbr title='عدد الاستخدامات'>في</abbr> " .. mw.site.stats.pagesInCategory(cat, 'all') .. " صفحة)"
end
----------------------
return PO
end
function getprop(id , prop , args , name)
local PO = ''
local Property = wd2({entityId = id , property = prop ,formatting ='sitelink', addTrackingCat ='',noicon='t',nolink ='t', firstvalue='s'}) or ''
--if Property and Property ~='' then Property = '[[:' .. Property ...']] ({{PAGESINCAT:' .. mw.ustring.gsub(Property, 'تصنيف:' , '') .. '}} صفحة)' end
----------------------
if args[id .. 'cat'] and args[id .. 'cat'] ~= ''
then
Property = args[id .. 'cat']
end
----------------------
newtrak = args['track'] or ""
if not Property or Property == "" then
if prop == "P2875" and newtrak ~= "" then
Property = "تصنيف:صفحات تستخدم خاصية " .. id
end
end
if Property and Property ~='' then
PO = makecat(Property , name)
end
----------------------
return PO
end
function p._usestable(args)
aaa = {}
aa = {}
local nott = "<abbr title='قيم ليست على ويكي بيانات'>ليست.</abbr>"
local same = "<abbr title='قيم كما في ويكي بيانات'>مطابقة.</abbr>"
local def ="<abbr title='قيم مختلفة عن ويكي بيانات'>مختلفة.</abbr>"
local r = '! data-sort-type="number" style="width: 20%;"| الخاصية'
r = r .. '!! style="width: 45%; " | وصفها'
r = r .. '!! style="width: 30%; " | تصنيف تتبع الاستخدام'
local r1 = r .. '\n|-\n'
r = r .. '!! style="width: 30%; " | ' .. nott
r = r .. '!! style="width: 30%; " | ' .. same
r = r .. '!! style="width: 30%; " | ' .. def
r = r .. '\n|-\n'
local temp = args['قالب'] or 'القالب'
local ii = 1
while true do
local p_num = args[ii] or ''
mw.log("Module:Uses Wikidata: " .. p_num)
if p_num ~= '' then
p_num = mw.text.trim( p_num )
if mw.ustring.gsub( p_num, '%d', '' ) == 'P' then
table.insert(aa, p_num)
--else
--if mw.ustring.gsub( p_num, 'قالب=', '' ) ~= p_num then
--temp = mw.ustring.gsub( p_num, 'قالب=', '' )
--end
end
else break
end
ii = ii + 1
end
if temp ~= 'القالب'
then temp = '[[قالب:' .. temp .. ']]'
end
local head_s = '{| class="wikitable sortable" style="text-align:right; width: '
local head2 = '%; font-size: 95%;"\n|+خواص [[ويكي بيانات]] المستخدمة في ' .. temp .. '\n'
local width = args['width'] or "75"
local head = head_s .. width .. head2
local result = ''
local result1 = ''
local FFF = ''
--table.sort(aa, function(a, b) return a < b end)
table.sort(aa)
for k, p_num in pairs(aa) do
local rr = " (انظر [[d:Special:WhatLinksHere/Property:" .. p_num .. "|الاستخدام]])"
local label = LabelOrDes('ar', p_num ,'labels' , args) or LabelOrDes('en', p_num ,'labels' , args) or "بدون تسمية"
local description = LabelOrDes( 'ar', p_num ,'descriptions' , args) or "" --"بدون وصف"
local P2875 = getprop(p_num , 'P2875' , args , '')
local P3713 = getprop(p_num , 'P3713' , args , 'ليست')
local P3734 = getprop(p_num , 'P3734' , args , 'مطابقة')
local P3709 = getprop(p_num , 'P3709' , args , 'مختلفة')
if P3713 ~='' or P3734 ~='' or P3709 ~='' then
FFF = 'sa'
end
--local pro = '<span style="font-family: monospace, monospace;">' .. string.upper(p_num) .. '</span>'
--local span= ' data-sort-value="' .. mw.ustring.gsub(p_num, 'P' , '').. '"| ' .. pro .. ''
--local name = "|" .. span .. "|| <b>[[d:Property:" .. p_num .. "|" .. label .. "]]</b> || "
local propertytype = getpropertytype(p_num)
local pro = ' (' .. string.upper(p_num) .. ')'
local span= '| data-sort-value="' .. mw.ustring.gsub(p_num, 'P' , '').. '"| '
--local name = span .. " <small>[[d:Property:" .. p_num .. "|" .. label .. pro .. "]]</small>" .. propertytype.. " ||"
local name = span .. " <b>[[d:Property:" .. p_num .. "|" .. label .. pro .. "]]</b>" .. propertytype.. " ||"
result = result .. name .. description
result1 = result1 .. name .. description .. "|| " .. P2875 .. "\n|-\n"
result = result .. "|| " .. P2875
result = result .. "|| " .. P3713
result = result .. "|| " .. P3734
result = result .. "|| " .. P3709
result = result .. "\n|-\n"
end
div1 = '<div style="height:650px; width:'..width..'%; overflow:auto; padding:3px; border:solid 1px;">\n'
down = '|}[[تصنيف:قوالب_تستخدم_بيانات_من_ويكي_بيانات]]'
if ii > 20 then
head = div1 .. head_s .. "100" .. head2
down = down .. "</div>"
end
final = head .. r .. result .. down
final1 = head .. r1 .. result1 .. down
--######################
if FFF ~= '' then
return final
else
return final1
end
--######################
end
function p.usestable(frame)
local parent = frame.getParent(frame)
return p._usestable(parent.args)
end
return p