查看“Module:Infobox number”的源代码

local p={}
local lib_arg={}
local base_data = {unary=1,binary=2,ternary=3,quaternary=4,quinary=5,senary=6,septenary=7,octal=8,nonary=9,denary=10,decimal==10,undecimal=11,duodecimal=12,tridecimal=13,tetradecimal=14,pentadecimal=15,hexadecimal=16,heptadecimal=17,octodecimal=18,enneadecimal=19,vigesimal=20,unvigesimal=21,duovigesimal=22,trivigesimal=23,tetravigesimal=24,pentavigesimal=25,hexavigesimal=26,heptavigesimal=27,septemvigesimal=27,octovigesimal=28,enneavigesimal=29,trigesimal=30,untrigesimal=31,duotrigesimal=32,tritrigesimal=33,tetratrigesimal=34,pentatrigesimal=35,hexatrigesimal=36,heptatrigesimal=37,octotrigesimal=38,quadragesimal=40,duoquadragesimal=42,pentaquadragesimal=45,octoquadragesimal=48,enneaquadragesimal=49,quinquagesimal=50,duoquinquagesimal=52,tetraquinquagesimal=54,hexaquinquagesimal=56,heptaquinquagesimal=57,octoquinquagesimal=58,sexagesimal=60}
local pre60={'一','二','三','四','五','六','七','八','九','十','十一','十二','十三','十四','十五','十六','十七','十八','十九','二十','二十一','二十二','二十三','二十四','二十五','二十六','二十七','二十八','二十九','三十','三十一','三十二','三十三','三十四','三十五','三十六','三十七','三十八','三十九','四十','四十一','四十二','四十三','四十四','四十五','四十六','四十七','四十八','四十九','五十','五十一','五十二','五十三','五十四','五十五','五十六','五十七','五十八','五十九','六十','六十一','六十二','六十三','六十四',[0]='零'}
local numberToChinese = require('Module:NumberToChinese')
local aliasesP = {
	coord                   = "P625",
	-----------------------
	image                   = "P18",
	author                  = "P50",
	publisher               = "P123",
	importedFrom            = "P143",
	statedIn                = "P248",
	pages                   = "P304",
	language                = "P407",
	hasPart                 = "P527",
	publicationDate         = "P577",
	startTime               = "P580",
	endTime                 = "P582",
	chapter                 = "P792",
	retrieved               = "P813",
	referenceURL            = "P854",
	sectionVerseOrParagraph = "P958",
	archiveURL              = "P1065",
	title                   = "P1476",
	formatterURL            = "P1630",
	quote                   = "P1683",
	shortName               = "P1813",
	definingFormula         = "P2534",
	archiveDate             = "P2960",
	inferredFrom            = "P3452",
	typeOfReference         = "P3865",
	column                  = "P3903"
}
local special_wikidata_code = {
	['Q68656494'] = {
		title='摩尔斯电码'
	},
	['Q68101340'] = {
		title='古埃及数字',
		rendering=function(text)
			return "<div style='display:inline-block;'>" .. mw.getCurrentFrame():extensionTag{ name = 'hiero', content = text }..'</div>'
		end
	},
	['Q69476427'] = {
		title='玛雅数字',
		rendering=function(text)
			return "[[File:"..text.."|30px]]"
		end
	}
}
local code_prop_blacklist = {"Q29961325", "Q68401769", "Q38918"}
local function includes(t,item)
	for _,value in ipairs(t) do
		if value==item then return true end
	end
	return false
end
function p.codedata(frame)
	-- For calling from #invoke. {{#invoke:Infobox number|nbase}}
	local args, working_frame
	if frame == mw.getCurrentFrame() then
		-- We're being called via #invoke. The args are passed through to the module
		-- from the template page, so use the args that were passed into the template.
		if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
		args = lib_arg.getArgs(frame, {
			parentFirst=true
		}) --frame
	else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
        if type(args) ~= type({}) then args = {frame} end
    end
    working_frame = mw.getCurrentFrame()
    local wikidata_id = args.WikidataID or ''
    if mw.text.trim(wikidata_id) == '' then
    	wikidata_id = mw.wikibase.getEntityIdForCurrentPage() or ''
    end
    if mw.text.trim(wikidata_id) == '' then return '' end --找無維基數據項目
    local i18n = require("Module:Wd/i18n").init(aliasesP)
    local body = ''
    local props = {"P3295","P7415"}
    local codes_entity = {}
    for _,prop in ipairs(props) do
    	local load_prop = mw.wikibase.getAllStatements(wikidata_id, prop)
    	for __,code_item in ipairs(load_prop) do table.insert(codes_entity, code_item)end
    end
    for _,code_item in ipairs(codes_entity) do
    	mw.logObject(code_item)
    	local code_type = (code_item.qualifiers or {})['P3294']
    	if code_type[1] then
    		local code_id = code_type[1].datavalue.value.id
    		local render_func = function(text)return text end
    		local wikidata_code_obj = special_wikidata_code[code_id] or {rendering = render_func}
    		local code_title = mw.wikibase.getSitelink(code_id) or wikidata_code_obj.title
    		if code_title and not includes(code_prop_blacklist,code_id) then
    			local rendering = wikidata_code_obj.rendering or render_func
    			local ret = rendering(code_item.mainsnak.datavalue.value)
				ret = ret .. '<span style="float:right">' .. "[[File:OOjs UI icon edit-ltr-progressive.svg|frameless|text-top|10px|alt=" .. 
					i18n['info']['edit-on-wikidata'] .. "|link=https://www.wikidata.org/wiki/" .. 
					wikidata_id .. "?uselang=zh#" .. code_item.id .. "|" .. i18n['info']['edit-on-wikidata'] .. "]]</span>"
    			body = body .. '<tr><th>[['.. code_title .. ']]</th><td>'..ret..'</td></tr>'
    		end
    	end
    end
    return body
end
function p.nbase(frame)
	-- For calling from #invoke. {{#invoke:Infobox number|nbase}}
	local args, working_frame
	if frame == mw.getCurrentFrame() then
		-- We're being called via #invoke. The args are passed through to the module
		-- from the template page, so use the args that were passed into the template.
		if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
		args = lib_arg.getArgs(frame, {
			parentFirst=true
		}) --frame
	else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
    end
    working_frame = mw.getCurrentFrame()
    local base_args = {}
    for k,v in pairs(args) do
    	local finder=mw.ustring.lower(k)
		if mw.ustring.find(finder,'[進进][位制]') or mw.ustring.find(finder,'base') then
			if finder~='进位制' and finder~='進位制' then
				local basedata=mw.ustring.gsub(finder,'[進进][位制]','')
				basedata=mw.ustring.gsub(basedata,'base','')
				local base_id = basedata
				xpcall(function()base_id=numberToChinese._numberToChinese(basedata)end,function(err)end)
				if base_id==numberToChinese.NotANumber() then base_id = basedata end
				base_args[base_id] = v
			end
		elseif base_data[finder] then
			local base_id = numberToChinese._numberToChinese(base_data[finder])
			base_args[base_id] = v
		end
    end
    local body = ''
    local test_data = {}
    for i=0,64 do
    	if base_args[pre60[i]] then
    		if mw.text.trim(base_args[pre60[i]]) ~= '' and mw.text.trim(base_args[pre60[i]]) ~= 'hide' then
	    		body = body .. '<tr><th>[['.. pre60[i] .. '进制]]</th><td>'..base_args[pre60[i]]..'</td></tr>'
    		end
    		test_data[pre60[i]]=true
    	end
    end
    for k,v in pairs(base_args) do
    	if not test_data[k] then
    		if mw.text.trim(v) ~= '' and mw.text.trim(v) ~= 'hide' then
    			body = body .. '<tr><th>[['.. k .. '进制]]</th><td>'..v..'</td></tr>'
    		end
    	end
    end
	return body
end
return p