Dokumentaci tohoto modulu lze vytvořit na stránce Nápověda:Modul:Interwiki

p = {}
 
sitelang = 'cs'
-- mw.getContentLanguage().code
 
category = '[[Kategorie:Monitoring:Stránky s interwiki přes 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