模块:SectionEmbed

来自维阿百科
1.38>牛腩面2022年7月7日 (四) 20:39的版本 (导入1个版本)
(差异) ←上一版本 | 最后版本 (差异) | 下一版本→ (差异)
跳转至: 导航搜索

此模块的文档可以在模块:SectionEmbed/doc创建

local module = {}

local getArgs = require('Module:Arguments').getArgs

function errorMsg(text)
	error(text..'[[分类:含有错误嵌入片段的页面]]')
end

function module._main(args, frame)
	local titleName = args['page'] or ''
	if titleName == '' then errorMsg('请传入要载入内容所在的页面!') end
	local section = args['id'] or ''
	section = string.gsub(section, '([%%%(%)%.%+%-%*%?%[%]%^%$])', '%%%1')
	local params = args
	params['page'] = nil
	params['id'] = nil
	
	local title = mw.title.new(titleName)
	local redirect = ''
	local content = title:getContent()
	if content == nil then errorMsg('页面名无效,请确认传入的页面名是否正确!') end
	if string.find(content, '^#REDIRECT%s+%[%[.+%]%]%s*$') or string.find(content, '^#重定向%s+%[%[.+%]%]%s*$') then
		redirect = string.gsub(content, '.+%[%[(.+)%]%]%s*$', '%1')
		title = mw.title.new(redirect)
		content = title:getContent()		
		if content == nil then errorMsg('传入的页面【'..titleName..'】为一个重定向页,并且它指向的页面【'..redirect..'】无效!') end
	end
	
	local redirectMsg = ''
	if redirect ~= '' then redirectMsg = '(重定向至'..redirect..')' end

	local ptn = '^(.-)<!%-%-%s*embed:?%s*'..(((section ~= '') and section) or '.-')..
				'%s*%-%->%s*(.-)%s*<!%-%-%s*embed%-end:?%s*'..(((section ~= '') and section) or '.-')..
				'%s*%-%->.-$'
	local sample = content
	content = mw.ustring.gsub(content, ptn, function(s1, s2) 
		s1 = string.gsub(s1, '([^\n]*)\n', function(s3)
			if string.find(s3, '^(==?=?=?[^\n]-==?=?=?)$') then 
				return s3..'\n'
			else
				return ''
			end
		end)
		
		local frame_child = frame:newChild({ title = (((redirect ~= '') and redirect) or titleName), args = params })		
		return string.gsub(frame_child:preprocess(s1..'\n@@@sectionEmbed-target@@@sectionEmbed-target@@@\n'..s2),
				'^.-\n@@@sectionEmbed%-target@@@sectionEmbed%-target@@@\n(.-)$', '%1')
	end)
	if sample == content then
		if section ~= '' then
			errorMsg('嵌入失败,请确认在页面【'..titleName..'】'..redirectMsg..'是否存在id为“'..section..'”的embed嵌入标记,并检查书写是否正确!')	
		else
			errorMsg('嵌入失败,请确认在页面【'..titleName..'】'..redirectMsg..'是否存在embed嵌入标记,并检查书写是否正确!')	
		end
	end
	return content
end

function module.main(frame)
	local args = getArgs(frame)
	return module._main(args, frame)
end

return module