Moduł:Wielokrotne interwiki
Dokumentacja dla tego modułu może zostać utworzona pod nazwą Moduł:Wielokrotne interwiki/opis
p = {}
sitelang = 'pl'
-- mw.getContentLanguage().code
category = '[[Kategoria:Strony z interwiki utworzonymi za pomocą arbitralnego dostępu do Wikidata]]'
-- sv: '[[Kategori:Sidor med interwiki med hjälp av arbitrary access på Wikidata]]'
-- en: '[[Category:Pages with interwiki links created using arbitrary Wikidata access]]'
-- es: '[[Categoría:Páginas con enlaces interwiki usando acceso arbitrario a Wikidata]]'
thiswiki = sitelang .. 'wikisource'
-- I nedanstående tabell anges vilket ord som kommer att stå in parantes efter namnet på språket
-- Om inget anges, kommer ingen parantes att skrivas ut
-- För SVENSKA titlar, så kommer länken att skrivas ut enligt nedan, annars enligt sidtiteln.
sarskiljning = {
}
koder = {'ace', 'kbd', 'af', 'ak', 'als', 'am', 'ang', 'ab', 'ar', 'an', 'arc', 'roa-rup', 'frp', 'as', 'ast', 'gn', 'av', 'ay', 'az', 'bm', 'bn', 'bjn', 'zh-min-nan', 'nan', 'map-bms', 'ba', 'be', 'be-x-old', 'bh', 'bcl', 'bi', 'bg', 'bar', 'bo', 'bs', 'br', 'bxr', 'ca', 'cv', 'ceb', 'cs', 'ch', 'cbk-zam', 'ny', 'sn', 'tum', 'cho', 'co', 'cy', 'da', 'dk', 'pdc', 'de', 'dv', 'nv', 'dsb', 'dz', 'mh', 'et', 'el', 'eml', 'en', 'myv', 'es', 'eo', 'ext', 'eu', 'ee', 'fa', 'hif', 'fo', 'fr', 'fy', 'ff', 'fur', 'ga', 'gv', 'gag', 'gd', 'gl', 'gan', 'ki', 'glk', 'gu', 'got', 'hak', 'xal', 'ko', 'ha', 'haw', 'hy', 'hi', 'ho', 'hsb', 'hr', 'io', 'ig', 'ilo', 'bpy', 'id', 'ia', 'ie', 'iu', 'ik', 'os', 'xh', 'zu', 'is', 'it', 'he', 'jv', 'kl', 'kn', 'kr', 'pam', 'krc', 'ka', 'ks', 'csb', 'kk', 'kw', 'rw', 'rn', 'sw', 'kv', 'kg', 'ht', 'ku', 'kj', 'ky', 'mrj', 'lad', 'lbe', 'lo', 'ltg', 'la', 'lv', 'lb', 'lez', 'lt', 'lij', 'li', 'ln', 'jbo', 'lg', 'lmo', 'hu', 'mk', 'mg', 'ml', 'mt', 'mi', 'mr', 'xmf', 'arz', 'mzn', 'ms', 'min', 'cdo', 'mwl', 'mdf', 'mo', 'mn', 'mus', 'my', 'nah', 'na', 'fj', 'nl', 'nds-nl', 'cr', 'ne', 'new', 'ja', 'nap', 'ce', 'frr', 'pih', 'no', 'nb', 'nn', 'nrm', 'nov', 'ii', 'oc', 'mhr', 'or', 'om', 'ng', 'hz', 'uz', 'pa', 'pi', 'pfl', 'pag', 'pnb', 'pap', 'ps', 'koi', 'km', 'pcd', 'pms', 'tpi', 'nds', 'pl', 'pnt', 'pt', 'aa', 'kaa', 'crh', 'ty', 'ksh', 'ro', 'rmy', 'rm', 'qu', 'rue', 'ru', 'sah', 'se', 'sm', 'sa', 'sg', 'sc', 'sco', 'stq', 'st', 'nso', 'tn', 'sq', 'scn', 'si', 'simple', 'sd', 'ss', 'sk', 'sl', 'cu', 'szl', 'so', 'ckb', 'srn', 'sr', 'sh', 'su', 'fi', 'sv', 'tl', 'ta', 'kab', 'roa-tara', 'tt', 'te', 'tet', 'th', 'ti', 'tg', 'to', 'chr', 'chy', 've', 'tr', 'tk', 'tw', 'tyv', 'udm', 'bug', 'uk', 'ur', 'ug', 'za', 'vec', 'vep', 'vi', 'vo', 'fiu-vro', 'wa', 'zh-classical', 'vls', 'war', 'wo', 'wuu', 'ts', 'yi', 'yo', 'zh-yue', 'diq', 'zea', 'bat-smg', 'zh', 'zh-tw', 'zh-cn'}
varde = function(frame)
local i = 1
for j, k in pairs(koder) do
if k == frame then
return i
end
i = i + 1
end
return 0 --"Nej, inget den här gången"
end
sprakkad = {
['zh_min_nan'] = 'zh-min-nan'
}
extract_sitelinks = function(s0, sitelinks)
for _, sitelink in pairs(sitelinks) do
local le = mw.ustring.len(sitelink.site)
local sk = ''
local tub = ''
if sitelink.site ~= thiswiki and mw.ustring.len(sitelink.site) >= mw.ustring.len(thiswiki) then
local lang = sprakkad[mw.ustring.sub( sitelink.site, 1, le - 10 )] or mw.ustring.sub( sitelink.site, 1, le - 10 )
if mw.ustring.sub( sitelink.site, le - 9 ) == 'wikisource' then
local sk = ''
if sarskiljning[qid2] then
sk = ' (' .. sarskiljning[qid2] .. ')'
end
tub = '[[:' .. lang .. ':' .. sitelink.title .. '|' .. mw.language.fetchLanguageName( lang ) .. sk .. ']]'
tub = mw.text.tag('span', {style="display:none;", class="interwiki-extra", lang=lang, title = sitelink.title .. ' - ' .. mw.language.fetchLanguageName( lang, sitelang )}, tub)
table.insert(s0, {lang, sk, tub} )
end
elseif sitelink.site == thiswiki and mw.title.getCurrentTitle().text ~= sitelink.title then
local lang = sprakkad[mw.ustring.sub( sitelink.site, 1, le - 10 )] or mw.ustring.sub( sitelink.site, 1, le - 10 )
if sarskiljning[qid2] then
tub = '[[' .. sitelink.title .. '|' .. sarskiljning[qid2] .. ']]'
else
tub = '[[' .. sitelink.title .. ']]'
end
tub = mw.text.tag('span', {style="display:none;", class="interwiki-extra", lang=lang, title = sitelink.title .. ' - ' .. mw.language.fetchLanguageName( lang, sitelang )}, tub)
table.insert(s0, {lang, sk, tub} )
end
end
return s0
end
ner = function(s, top, level)
local top_upplagor = top.claims["P747"]
if not top_upplagor then
return s
end
if level <= 0 then
return s
end
for _, kusin in pairs(top_upplagor) do
local qid2
if kusin.mainsnak.datavalue ~= nil then
qid2 = kusin.mainsnak.datavalue.value['id']
end
local botten = mw.wikibase.getEntity( qid2 )
if botten.claims and botten.claims["P747"] then
if botten.sitelinks ~= nil then
s[2] = extract_sitelinks(s[2], botten.sitelinks)
end
s = ner(s, botten, level-1)
elseif botten.sitelinks ~= nil then
s[1] = extract_sitelinks(s[1], botten.sitelinks)
end
end
return s
end
upp = function(s, this, level)
local edition_of = this.claims["P629"]
local maxleveldown = 5
if level <= 0 then
return s
end
if not edition_of then
if this.sitelinks ~= nil then
s[2] = extract_sitelinks(s[2], this.sitelinks)
end
return s
end
for _, moder in pairs(edition_of) do
local qid, top
if not moder.mainsnak.datavalue then
return s
end
qid = moder.mainsnak.datavalue.value['id']
top = mw.wikibase.getEntity( qid )
if top.claims["P629"] then
s = upp(s, top, level-1)
else
if top.sitelinks ~= nil then
s[2] = extract_sitelinks(s[2], top.sitelinks)
end
end
s = ner(s, top, maxleveldown)
end
return s
end
p.interwiki = function(frame)
local s= {{},{}}
local this = mw.wikibase.getEntity()
local maxlevelup = 5
if not this then
return nil
end
if not this.claims then
return nil
end
if not this.claims["P747"] and not this.claims["P629"] then
return nil
end
s = upp(s, this, maxlevelup)
for _, iwitem_extra in pairs(s[2]) do
local found = 0
for _, iwitem in pairs(s[1]) do
if iwitem[1] == iwitem_extra[1] then
found = 1
break
end
end
if found == 0 then
table.insert(s[1], iwitem_extra)
end
end
s = s[1]
local s2 = {}
if s ~= nil and s ~= {} then
table.sort(s, function(a, b)
local e1 = varde(a[1])
local e2 = varde(b[1])
if e1 < e2 then
return true
else
return false
end
end
)
for _, kusar in pairs(s) do
table.insert(s2, kusar[3])
end
end
local iw = table.concat(s2, '')
if iw ~= '' and iw ~= nil then
iw = iw .. category
end
return iw
end
return p