وحدة:Labelled list hatnote

-------------------------------------------------------------------------------- --                               Labelled list                                -- --                                                                            -- -- This module does the core work of creating a hatnote composed of a list    -- -- prefixed by a colon-terminated label, i.e. "LABEL: [andList of pages]",    -- -- for {{see also}} and similar templates.                                    -- --------------------------------------------------------------------------------  local mHatnote = require('Module:Hatnote') local mHatlist = require('Module:Hatnote list') local mArguments --initialize lazily local p = {}  -- Defaults global to this module local defaults = { 	label = 'انظر أيضًا', --Final fallback for label argument 	labelForm = '%s: %s', 	prefixes = {'التسمية', 'التسمية  ', 'ت'}, 	template = 'وحدة:Labelled list hatnote' }  -- Helper function that pre-combines display parameters into page arguments. -- Also compresses sparse arrays, as a desirable side-effect. function p.preprocessDisplays (args, prefixes) 	-- Prefixes specify which parameters, in order, to check for display options 	-- They each have numbers auto-appended, e.g. 'label1', 'label 1', & 'l1' 	prefixes = prefixes or defaults.prefixes 	local pages = {} 	for k, v in pairs(args) do 		if type(k) == 'number' then 			local display 			for i = 1, #prefixes do 				display = args[prefixes[i] .. k] 				if display then break end 			end 			local page = display and 				string.format('%s|%s', string.gsub(v, '|.*$', ''), display) or v 			pages[#pages + 1] = page 		end 	end 	return pages end  -- Produces a labelled pages-list hatnote. -- The main frame (template definition) takes 1 or 2 arguments, for a singular -- and (optionally) plural label respectively: -- * {{#invoke:Labelled list hatnote|labelledList|Singular label|Plural label}} -- The resulting template takes pagename & label parameters normally. function p.labelledList (frame) 	mArguments = require('Module:Arguments') 	local labels = {frame.args[1] or defaults.label} 	labels[2] = frame.args[2] or labels[1] 	labels[3] = frame.args[3] --no defaulting 	labels[4] = frame.args[4] --no defaulting 	local template = frame:getParent():getTitle() 	local args = mArguments.getArgs(frame, {parentOnly = true}) 	local pages = p.preprocessDisplays(args) 	local options = { 		extraclasses = frame.args.extraclasses, 		category = args.category, 		selfref = frame.args.selfref or args.selfref, 		template = template 	} 	return p._labelledList(pages, labels, options) end  function p._labelledList (pages, labels, options) 	labels = labels or {} 	if #pages == 0 then 		return mHatnote.makeWikitextError( 			'لم تُحدد أسماء صفحات', 			(options.template or defaults.template) .. '#أخطاء', 			options.category 		) 	end 	label = (#pages == 1 and labels[1] or labels[2]) or defaults.label 	for k, v in pairs(pages) do  		if mHatnote.findNamespaceId(v) ~= 0 then 			label = 				( 					#pages == 1 and 					(labels[3] or labels[1] or defaults.label) or 					(labels[4] or labels[2] or defaults.label) 				) or defaults.label 		end 	end 	local text = string.format( 		options.labelForm or defaults.labelForm, 		label, 		mHatlist.andList(pages, true) 	) 	local hnOptions = { 		extraclasses = options.extraclasses, 		selfref = options.selfref 	} 	return mHatnote._hatnote(text, hnOptions) end  return p