模組:PRC admin/sandbox

模块文档[查看] [编辑] [历史] [清除缓存]

---

• 华士社区、​陆桥社区、​华西新市村、​华西一村、​华西二村、​华西三村、​华西四村、​华西五村、​华西六村、​华西七村、​华西八村、​华西九村、​华西十村、​华西十一村、​华西十二村、​华西十三村、​华士村、​向阳村、​陆南村、​陆桥村、​陆新村、​红苗村、​陆丰村、​勤丰村、​华中村、​华益村、​龙河村、​曙新村和​龙砂村
• {{#invoke:PRC admin|children}}

上述文档嵌入自Module:PRC admin/doc。 (编辑 | 历史)
编者可以在本模块的沙盒 (编辑 | 差异)和测试样例 (创建)页面进行实验。
请在/doc子页面中添加分类。 本模块的子页面。

local z = {}

local function makeArticleLink( label, sitelink )
	if label ~= nil then
		if sitelink ~= nil then
			return '[[:' .. sitelink .. '|' .. label .. ']]'
		else
			return label
		end
	else
		if sitelink ~= nil then
			return '[[:' .. sitelink .. ']]'
		else
			return '' -- What's the best thing we can do here?
		end
	end
end

local function makeEntityLink( entity )
	local label = entity:getLabel()
	for _, statement in pairs( entity:getBestStatements( 'P1448' ) ) do
		if statement.mainsnak.datavalue.value.language == 'zh-cn' then
			label = statement.mainsnak.datavalue.value.text
			break
		end
	end
	local sitelink = entity:getSitelink()
	return makeArticleLink( label, sitelink )
end

local premadeItemLinks = {
	Q986065 = '[[街道办事处|街道]]',
	Q735428 = '[[行政建制镇|镇]]',
	Q1500350 = '[[乡级行政区|乡]]',
	Q2365159 = '[[苏木 (行政区划)#中华人民共和国|苏木]]',
	Q50231 = '其他'
}

local function makeItemLink( item )
	if premadeItemLinks[item] ~= nil then
		return premadeItemLinks[item]
	end
	local label = mw.wikibase.label( item )
	local sitelink = mw.wikibase.sitelink( item )
	return makeArticleLink( label, sitelink )
end

local function makeFullNames( items )
	if type( items ) ~= 'table' then
		items = { items }
	end
	local fullNames = {}
	for _, item in pairs( items ) do
		local entity = mw.wikibase.getEntity( item )
		local entityLink = makeEntityLink( entity )
		local upperStatements = entity:getBestStatements( 'P131' )
		local upperItems = {}, upperFullNames
		for _, upperStatement in pairs( upperStatements ) do
			table.insert( upperItems, 'Q' .. upperStatement.mainsnak.datavalue.value['numeric-id'] )
		end
		if #upperItems == 0 then
			-- Root item
			table.insert( fullNames, entityLink )
		else
			_, upperFullNames = makeFullNames( upperItems )
			for _, upperFullName in pairs( upperFullNames ) do
				table.insert( fullNames, upperFullName .. entityLink )
			end
		end
	end
	return mw.text.listToText( fullNames ), fullNames
end
local makeFullName = makeFullNames
z._makeFullNames = makeFullNames -- For debugging

-- items must be a table of entities
local function findUpperEntities( entities, levels )
	if levels <= 0 then
		return entities
	end
	local recursiveEntities = {}
	for _, entity in pairs( entities ) do
		local upperStatements = entity:getBestStatements( 'P131' )
		for _, upperStatement in pairs( upperStatements ) do
			table.insert( recursiveEntities, mw.wikibase.getEntity( 'Q' .. upperStatement.mainsnak.datavalue.value['numeric-id'] ) )
		end
	end
	return findUpperEntities( recursiveEntities, levels - 1 )
end

-- Specify a division with item=Qxxx or defaults to current article
-- Other arguments: comment=, below=, see-also-upper=, see-also-upper-prefix=, see-also-upper-suffix=
function z.navbox( frame, args )
	if args == nil then
		args = frame.args
	end
	local item = ''
	if args.item ~= nil and args.item ~= '' then
		item = args.item
	end
	local entity = mw.wikibase.getEntity( item )
	if entity == nil then
		return ''
	end
	local navboxArgs = {
		name = 'd::' .. entity.id,
		title = makeEntityLink( entity ) .. '行政区划',
		state = args.state or frame:getParent().args.state or 'collapsed',
		listclass = 'hlist',
		tracking = 'no',
	}
	
	-- Navbox above
	local upperItems = {}
	for _, upperStatement in pairs( entity:getBestStatements( 'P131' ) ) do
		table.insert( upperItems, 'Q' .. upperStatement.mainsnak.datavalue.value['numeric-id'] )
	end
	local fullName = makeFullName( upperItems )
	if fullName ~= '' then
		navboxArgs.above = '行政隶属：' .. fullName
	end
	
	-- Navbox lists
	local lists = {} -- { ['Qxxx-type1-str'] = { 'Qxxx-div1-obj', 'Qxxx-div2-obj' } }
	local lowerStatements = entity:getBestStatements( 'P150' )
	for i, lowerStatement in pairs( lowerStatements ) do
		lowerStatement._entity = mw.wikibase.getEntity( 'Q' .. lowerStatement.mainsnak.datavalue.value['numeric-id'] )
		lowerStatement._code = 'X'
		for _, codeStatement in pairs( lowerStatement._entity:getBestStatements( 'P442' ) ) do
			if codeStatement.mainsnak.datavalue.value < lowerStatement._code then
				lowerStatement._code = codeStatement.mainsnak.datavalue.value
			end
		end
	end
	table.sort( lowerStatements, function( a, b )
		return a._code < b._code;
	end )
	local typeItems = {}
	for _, lowerStatement in pairs( lowerStatements ) do
		local lowerEntity = lowerStatement._entity
		for _, typeStatement in pairs( lowerEntity:getBestStatements( 'P31' ) ) do
			local typeItem = 'Q' .. typeStatement.mainsnak.datavalue.value['numeric-id']
			if lists[typeItem] ~= nil then
				table.insert( lists[typeItem], lowerEntity )
			else
				lists[typeItem] = { lowerEntity }
				table.insert( typeItems, typeItem )
			end
		end
	end
	local count = 1
	for i = 1, #typeItems do
		local typeItem = typeItems[i]
		local lowerEntities = lists[typeItem]
		navboxArgs['group' .. count] = makeItemLink( typeItem )
		local navboxListArgs = {}
		for _, lowerEntity in pairs( lowerEntities ) do
			table.insert( navboxListArgs, '*' .. makeEntityLink( lowerEntity ) )
		end
		navboxArgs['list' .. count] = table.concat( navboxListArgs, '\n' )
		count = count + 1
	end
	
	-- Comment
	if args.comment ~= nil then
		navboxArgs['list' .. count] = args.comment
	end
	
	-- Below and See also
	local below = ''
	if args.below ~= nil then
		below = args.below
	end
	local seeAlsoUpper = tonumber( args['see-also-upper'] )
	if seeAlsoUpper ~= nil then
		local seeAlsoUpperLinks = {}
		for _, upperEntity in pairs( findUpperEntities( { entity }, seeAlsoUpper ) ) do
			for _, statement in pairs( upperEntity:getBestStatements( 'P1448' ) ) do
				if statement.mainsnak.datavalue.value.language == 'zh-cn' then
					table.insert( seeAlsoUpperLinks, '[[:' .. ( args['see-also-upper-prefix'] or '' )
						.. statement.mainsnak.datavalue.value.text .. ( args['see-also-upper-suffix'] or '' ) .. ']]' )
					break
				end
			end
		end
		if #seeAlsoUpperLinks > 0 then
			if below ~= '' then
				below = below .. '<br>'
			end
			below = below .. '参见：' .. mw.text.listToText( seeAlsoUpperLinks )
		end
	end
	if below ~= '' then
		navboxArgs.belowstyle = 'text-align: left; font-size: 80%;';
		navboxArgs.below = below;
	end
	
	local border = args.border or frame:getParent().args.border or ''
	if border == 'child' then
		navboxArgs.border = border
		navboxArgs.name = nil
		navboxArgs.title = nil
		navboxArgs.state = nil
		navboxArgs.above = nil
		navboxArgs.below = nil
	end
	
	return require('Module:Navbox')._navbox(navboxArgs)
end

-- Specify a division with item=Qxxx or defaults to current article
function z.children( frame, args )
	if args == nil then
		args = frame.args
	end
	local item = ''
	if args.item ~= nil and args.item ~= '' then
		item = args.item
	end
	local entity = mw.wikibase.getEntity( item )
	if entity == nil then
		return ''
	end
	
	-- Children lists
	local list = {}
	local lowerStatements = entity:getBestStatements( 'P150' )
	for i, lowerStatement in pairs( lowerStatements ) do
		lowerStatement._entity = mw.wikibase.getEntity( 'Q' .. lowerStatement.mainsnak.datavalue.value['numeric-id'] )
		lowerStatement._code = 'X'
		for _, codeStatement in pairs( lowerStatement._entity:getBestStatements( 'P442' ) ) do
			if codeStatement.mainsnak.datavalue.value < lowerStatement._code then
				lowerStatement._code = codeStatement.mainsnak.datavalue.value
			end
		end
	end
	table.sort( lowerStatements, function( a, b )
		return a._code < b._code;
	end )
	for _, lowerStatement in pairs( lowerStatements ) do
		local lowerEntity = lowerStatement._entity
		table.insert( list, makeEntityLink( lowerEntity ) )
	end
	
	return mw.text.listToText( list )
end

function z.showTownList( frame, args )
	if args == nil then
		args = frame.args
	end
	local item = ''
	if args.item ~= nil and args.item ~= '' then
		item = args.item
	end
    local entity = mw.wikibase.getEntity( item )
	if entity == nil then
		return ''
	end

	local lowerStatements = entity:getBestStatements( 'P150' )
	if #lowerStatements == 0 then
		return ''
	end

	for _, lowerStatement in pairs( lowerStatements ) do
		lowerStatement._entity = mw.wikibase.getEntity( 'Q' .. lowerStatement.mainsnak.datavalue.value['numeric-id'] )
		lowerStatement._code = '/'
		local entity_for_code = lowerStatement._entity
		if entity_for_code then
			for _, codeStatement in pairs( entity_for_code:getBestStatements( 'P442' ) ) do
				if codeStatement.mainsnak.datavalue.value < lowerStatement._code then
					lowerStatement._code = codeStatement.mainsnak.datavalue.value
				end
			end
		end
	end

	table.sort( lowerStatements, function( a, b )
		return a._code < b._code;
	end )

	local listItems = {}
	for _, lowerStatement in pairs( lowerStatements ) do
		if lowerStatement._entity then
			local link = makeEntityLink( lowerStatement._entity )
			table.insert( listItems, '* ' .. link )
		end
	end

	return table.concat( listItems, '\n' )
end

-- build for Template:中国乡级行政区, but should be ok for others if updated
function z.generateLowerDivisionStats(frame, args)
    if args == nil then
		args = frame.args
	end
	local item = ''
	if args.item ~= nil and args.item ~= '' then
		item = args.item
	end
	-- params passed in
    local parts_in = args['LowerDivisions'] or args['行政区划']
    local p1_in = args['居委会']
    local p2_in = args['村委会']
    local p3_in = args['嘎查']

	local entity = mw.wikibase.getEntity(item)

    if not entity then
        return ''
    end

    local lower_statements = entity:getBestStatements('P150')
    local lower_items = {}
    for _, stmt in ipairs(lower_statements) do
        if stmt.mainsnak.datavalue and stmt.mainsnak.datavalue.value and stmt.mainsnak.datavalue.value.id then
            table.insert(lower_items, stmt.mainsnak.datavalue.value.id)
        end
    end

    local p1_count = 0 -- 社區
    local p2_count = 0 -- 村
    local p3_count = 0 -- 嘎查

    if #lower_items > 0 then
        local lower_entities = mw.wikibase.getEntities(lower_items)

        if #lower_entities > 0 then
            local community_qid = 'Q985488'
            local village_qid = {'Q13100073', 'Q532'}
            local gachaa_qid = 'Q18652188'

            for _, lower_entity in ipairs(lower_entities) do
                if lower_entity then
                    for _, type_stmt in ipairs(lower_entity:getBestStatements('P31')) do
                        local instance_of_id = type_stmt.mainsnak.datavalue.value.id
                        if instance_of_id == community_qid then
                            p1_count = p1_count + 1
                        elseif instance_of_id == village_qid[1] or instance_of_id == village_qid[2] then
                            p2_count = p2_count + 1
                        elseif instance_of_id == gachaa_qid then
                            p3_count = p3_count + 1
                        end
                    end
                end
            end
        end
    end

    local output = {}

    if parts_in then
        table.insert(output, '|parts=' .. parts_in)
    else
        table.insert(output, '|parts=' .. #lower_items)
    end

    if p1_in then
        table.insert(output, '|p1=' .. p1_in .. '[[社区 (行政区划)|社区]]')
    else
        table.insert(output, '|p1=' .. p1_count .. '[[社区 (行政区划)|社区]]')
    end

    if p2_in then
        table.insert(output, '|p2=' .. p2_in .. '[[行政村]]')
    else
        table.insert(output, '|p2=' .. p2_count .. '[[行政村]]')
    end

    local admin_code = entity:getBestStatements('P442')
    if admin_code[1] and string.sub(admin_code[1].mainsnak.datavalue.value, 1, 2) == '15' then
        if p3_in then
            table.insert(output, '|p3=' .. p3_in .. '[[嘎查]]')
        else
            table.insert(output, '|p3=' .. p3_count .. '[[嘎查]]')
        end
    end

    return table.concat(output, '\n')
end

return z