用户:Bangbang.S/sandbox/module/Wikisource further reading/sandbox

local p = {};

out=""

function p.getWikisourceInfo() local id=mw.wikibase.getEntityIdForCurrentPage() local out='[在维基数据编辑]'

local wikisourcePage=mw.wikibase.getEntity( id )["sitelinks"]["zhwikisource"] --If there is a interwiki link for Wikisource, show it. local title if( wikisourcePage ~= nil ) then title=wikisourcePage["title"] if( string.match(title, "Author:") ) then out=out.."\n: 在维基文库阅读该作者作品" else out=out.."\n: 在维基文库阅读本作品原文" end end

local claims=mw.wikibase.getEntity( id )["claims"] --If there are versions (P747) with a Wikisource link, show them. if( claims ~= nil and claims["P747"] ~= nil ) then P747=claims["P747"] for i, data in ipairs(P747) do if( data["qualifiers"]~= nil and data["qualifiers"]["P805"]~= nil) then local wikisourceBook=data["qualifiers"]["P805"] local wikisourceId=wikisourceBook[1]["datavalue"]["value"]["id"] local ws=mw.wikibase.getEntity( wikisourceId )["sitelinks"] if( ws~=nil and ws["zhwikisource"]~=nil ) then local zhws=ws["zhwikisource"] local wikisourcePageTitle=zhws["title"] local wikisourcePageName=mw.wikibase.getLabel( wikisourceId ) or wikisourcePageTitle if( type(data["qualifiers"]["P958"]) == "table") then wikisourceSection="#"..data["qualifiers"]["P958"][1]["datavalue"]["value"] else wikisourceSection="" end out=out.."\n: 《"..wikisourcePageTitle.."》" end else

local wikisourceId =data["mainsnak"]["datavalue"]["value"]["id"] local ws=mw.wikibase.getEntity( wikisourceId )["sitelinks"] if( ws~=nil and ws["zhwikisource"]~=nil ) then local wikisourcePageTitle=ws["zhwikisource"]["title"] local wikisourcePageName=mw.wikibase.getLabel( wikisourceId ) or wikisourcePageTitle out=out.."\n: 《"..wikisourcePageTitle.."》"

local zhWikiLink=mw.wikibase.getEntity( wikisourceId )["sitelinks"]["zhwiki"] if( zhWikiLink~=nil ) then out=out.."（[["..zhWikiLink["title"].."|介绍]]）" end

end end end end

--If there are described by source (P1343) with a Wikisource link, show them. if( claims ~= nil and claims["P1343"] ~= nil ) then P1343=claims["P1343"] for i, data in ipairs(P1343) do if( data["qualifiers"]~= nil and data["qualifiers"]["P805"]~= nil) then local wikisourceBook=data["qualifiers"]["P805"] local wikisourceId=wikisourceBook[1]["datavalue"]["value"]["id"] local ws=mw.wikibase.getEntity( wikisourceId )["sitelinks"] if( ws~=nil and ws["zhwikisource"]~=nil ) then local zhws=ws["zhwikisource"] local wikisourcePageTitle=zhws["title"] local wikisourcePageName=mw.wikibase.getLabel( wikisourceId ) or wikisourcePageTitle if( type(data["qualifiers"]["P958"]) == "table") then wikisourceSection="#"..data["qualifiers"]["P958"][1]["datavalue"]["value"] else wikisourceSection="" end out=out.."\n: 《"..wikisourcePageName.."》" out=out.."，出自" local bookId=data["mainsnak"]["datavalue"]["value"]["id"] local bookName=mw.wikibase.getLabel( bookId ) local bookAuthor=mw.wikibase.getBestStatements(bookId, "P50") if( bookAuthor[1]~=nil ) then if bookAuthor[1]['mainsnak']['snaktype'] == 'value' then local bookAuthorId=bookAuthor[1]['mainsnak']['datavalue']['value']["id"] local bookAuthorName=mw.wikibase.getLabel( bookAuthorId ) local bookAuthorLink=mw.wikibase.getEntity( bookAuthorId )["sitelinks"]["zhwiki"] if( bookAuthorLink~=nil ) then out=out.."[["..bookAuthorLink["title"].."|"..bookAuthorName.."]]" else out=out..bookAuthorName end end end local zhWikiLink=mw.wikibase.getEntity( bookId )["sitelinks"]["zhwiki"] if( zhWikiLink~=nil ) then out=out.."《[["..zhWikiLink["title"].."|"..bookName.."]]》" else out=out.."《"..bookName.."》" end end else

local wikisourceId =data["mainsnak"]["datavalue"]["value"]["id"] local ws=mw.wikibase.getEntity( wikisourceId )["sitelinks"] if( ws~=nil and ws["zhwikisource"]~=nil ) then local wikisourcePageTitle=ws["zhwikisource"]["title"] local wikisourcePageName=mw.wikibase.getLabel( wikisourceId ) or wikisourcePageTitle out=out.."\n: 《"..wikisourcePageName.."》" end

end end end

if( claims ~= nil and claims["P4517"] ~= nil ) then P4517 = claims["P4517"] local siteLabel = mw.wikibase.getLabel("Q5100670") local ctp = nil for i, data in ipairs(P4517) do if (data["mainsnak"] ~= nil and data["mainsnak"]["datavalue"] ~= nil and data["mainsnak"]["datavalue"]["value"] ~= nil) then ctp = data["mainsnak"]["datavalue"]["value"] end end

local formatUrl local pClaims = mw.wikibase.getEntity("P4517")["claims"] if (pClaims ~= nil and pClaims["P1630"] ~= nil) then local P1630 = pClaims["P1630"] for i, data in ipairs(P1630) do if (data["mainsnak"] ~= nil and data["mainsnak"]["datavalue"] ~= nil and data["mainsnak"]["datavalue"]["value"] ~= nil) then formatUrl = data["mainsnak"]["datavalue"]["value"] end end end --local formatUrl = "https://ctext.org/searchbooks.pl?if=gb&searchu=" if (formatUrl ~= nil) then local destUrl = formatUrl..ctp destUrl = string.format(formatUrl, ctp) destUrl = string.gsub(formatUrl,"$1", ctp) out = out..": \n在"..siteLabel.."中["..destUrl.." 阅读"..title.."]" end

--out = out..P4517 end

return out end

return p;