مودول:Ill-WD2

يمكن إنشاء صفحة توثيق الوحدة في مودول:Ill-WD2/شرح
---@diagnostic disable: undefined-global

local p = {}
local getArgs = require('Module:Arguments with aliases').getArgs
p.options = {}
p.aliases = {
	nored = { "nored" },
	wdlink = { "wdlink" },
	debug = { "debug" },
	en_label = { "enlabel" },
	use_en_target = { "en" },
	id = { "المعرف", "id", 2 },
	label = { "label", 1 },
	target = { "target", "لغ" },
	nocat = { "nocat" },
	noy = { "noy" },
	year = { "y" },
	text = { "text", "نص" },
	from_lua = { "fromlua", "from_lua" }
}
-- local RTL = "&rlm;"
local RTL = mw.language.getContentLanguage():getDirMarkEntity()

local Categories = {
	remove = "&nbsp;[[تصنيف:صفحات بها وصلات للإزالة|%s]]",
	review = "&nbsp;[[تصنيف:وصلات إنترويكي بحاجة لمراجعة|%s]]",
	nositelinks = "&nbsp;[[تصنيف:صفحات بها قالب:Ill-WD2 دون وصلات لغات|%s]]",
    noarabiclabel = "[[تصنيف:صفحات ويكي بيانات بحاجة لتسمية عربية|%s]]",
	add = "[[تصنيف:صفحات بها وصلات إنترويكي 2|%s]]"
}

-- Utility Functions
local function isValid(value)
	return value and value ~= "" and value or nil
end

local function debug(msg)
	if isValid(p.options.debug) then
		mw.log("Module:Ill-WD2: " .. msg)
	end
end

local function countSiteLinks(id)
	local numb = 0
	local entity = mw.wikibase.getEntityObject(id)
	if entity and entity.sitelinks then
		for _ in pairs(entity.sitelinks) do
			numb = numb + 1
		end
	end

	debug("countSiteLinks(" .. id .. "): count = " .. numb)
	return numb
end

local function getSiteLink(site, qid)
	local link = mw.wikibase.sitelink(qid, site or "arwiki") or ""
	debug(("getSiteLink(site=%s): link = %s"):format(site or "arwiki", link))
	return link
end

local function labelIn(langcode)
	local label, lang = mw.wikibase.getLabelWithLang(p.options.id)
	if lang == langcode then
		return label
	end
	debug(("labelIn(%s): label = %s, lang = %s"):format(langcode, label or "", lang or ""))
	return ""
end

local function makeCategory(key)
	return (isValid(p.options.nocat) and key ~= "add") and "" or Categories[key]:format(p.options.id) or ""
end

local function extractYear(str)
	local patterns = {
		"%d%d%d%d[%–-]%d%d%d%d%s*$",
		"%d%d[%–-]%d%d%d%d%s*$",
		"%d%d%d%d[%–-]%d%d%s*$",
		"%d%d%d%d%s*$",
		"^%d%d%d%d[%–-]%d%d%d%d%s",
		"^%d%d[%–-]%d%d%d%d%s",
		"^%d%d%d%d[%–-]%d%d%s",
		"^%d%d%d%d%s"
	}

	for _, pattern in ipairs(patterns) do
		local match = mw.ustring.match(str, pattern, 1)
		if match then
			debug("extractYear: matched pattern " .. pattern)
			return match
		end
	end

	debug("extractYear: no match found")
	return str
end

local function remove_text(str, todel)
	todel = mw.text.trim(todel)
	str = mw.text.trim(str)

	-- إزالة النص من البداية
	if string.sub(str, 1, #todel) == todel then
		return string.sub(str, #todel + 1)
	end

	-- إزالة النص من النهاية
	if string.sub(str, - #todel) == todel then
		return string.sub(str, 1, #str - #todel)
	end

	-- نستخدم دالة gsub لتحل محل النص المراد حذفه بفراغ فارغ ""
	-- mw.log("remove_text: str = (" .. str .. "), todel = (" .. todel .. ")")
	return str:gsub(todel, "")
end

local function removeYear(str)
	if not isValid(p.options.noy) then
		return str
	end
	local result = str
	local year = extractYear(str)
	if year and year ~= str then
		result = remove_text(result, year)
	end

	debug(("removeYear: %s -> %s"):format(str, result))
	return result
end

local function prepareText(str)
	if isValid(p.options.text) then
		return p.options.text
	elseif isValid(p.options.year) then
		return extractYear(str)
	elseif isValid(p.options.noy) then
		return removeYear(str)
	end
	return str
end

local function makeSuffix(targetSite, targetLink, sitelinksCount)
	if sitelinksCount == 0 and not isValid(p.options.from_lua) and not isValid(p.options.wdlink) then
		return makeCategory("nositelinks")
	end

	local other_lang = 'عنصر (' .. p.options.id .. ') في لغات أخرى'

	local suffix = ('&nbsp;[[d:%s|<sup class=reference title="%s">[%s]</sup>]]'):format(
		p.options.id .. "#sitelinks-wikipedia",
		other_lang,
		"لغات أخرى"
	)

	if isValid(targetLink) and isValid(targetSite) then
		local language = mw.getCurrentFrame():callParserFunction("#language", targetSite, "ar")
		suffix = ('[[:%s:%s|<sup class=reference title="%s (%s)">[%s]</sup>]]'):format(
			targetSite, targetLink, targetLink, p.options.id, language
		)
	end

	suffix = mw.text.tag("span", {
			class = "noprint",
			style = "font-size: smaller; font-style: normal; font-weight: normal;"
		},
		suffix
	)
	local catText = isValid(p.options.from_lua) and makeCategory("add") or ""

	return "&nbsp;" .. suffix .. catText
end

local function makeLink(title, suffix, sitelinksCount)
	local linkText = prepareText(title)
	local link
	local titleObj = mw.title.new(title)
	local cate = isValid(p.options.from_lua) and makeCategory("review") or ""

	if sitelinksCount == 0 and not isValid(p.options.wdlink) then
		link = linkText .. suffix
	elseif titleObj and titleObj.exists then
		link = linkText .. suffix .. cate
		mw.log('review "' .. title .. '", id: ' .. p.options.id)
	else
		title = mw.ustring.gsub(title, "^تصنيف:", "")
		linkText = mw.ustring.gsub(linkText, "^تصنيف:", "")
		if isValid(p.options.nored) then
			link = title .. suffix
		else 
			link = ('[[%s|%s]]%s'):format(title, linkText, suffix)
		end
	end

	debug("link: " .. link)
	return link
end

-- وظيفة مساعدة للحصول على النص الإنجليزي
local function get_en_label(target)
	if isValid(p.options.en_label) then
		return p.options.en_label
	elseif target == "en" then
		return labelIn("en")
	end

	return ""
end

function p._link()
	local id = p.options.id

	if not isValid(id) then
		return "No ID"
	end

	-- الحصول على رابط الموقع المحلي
	local localSiteLink = mw.wikibase.sitelink(id)
	if localSiteLink then
		-- mw.log("remove: " .. id)
		return ('[[%s|%s]]%s%s'):format(
			localSiteLink, prepareText(localSiteLink), makeCategory("remove"), RTL
		)
	end

	-- تحديد الهدف الافتراضي (en) إذا تم طلب ذلك
	local target = p.options.use_en_target and "en" or p.options.target
	-- إعداد النصوص البديلة (en_label)
	local en_label = get_en_label(target)

	-- الحصول على عدد المواقع
	local sitelinksCount = countSiteLinks(id)

	local targetLink = isValid(target) and getSiteLink(target .. "wiki", id) or ""
	local suffix = makeSuffix(target, targetLink, sitelinksCount)

	-- إعداد التسمية العربية (ar_label)
	local ar_link = isValid(p.options.label) or isValid(labelIn("ar"))

	-- إذا كان هناك تسمية عربية
	if isValid(ar_link) then
		debug("ar_link : " .. ar_link)
		return makeLink(ar_link, suffix, sitelinksCount) .. RTL
	else
	    suffix = suffix .. makeCategory("noarabiclabel")
	end

	-- إذا كان هناك رابط هدف
	if isValid(targetLink) then
		debug("target " .. target .. ": " .. targetLink)
		return prepareText(targetLink) .. suffix .. RTL
	end

	-- إذا كان هناك نص إنجليزي (en_label)
	if isValid(en_label) then
		debug("en_label: " .. en_label)
		return prepareText(en_label) .. makeSuffix("", "", sitelinksCount) .. makeCategory("noarabiclabel") .. RTL
	end

	-- إذا لم يتم العثور على أي شيء
	debug("nothing found: en_label = " .. en_label)
	return "" -- makeCategory("noarabiclabel")
end

function p.link_from_lua(args)
	p.options = getArgs(args, { aliases = p.aliases })
	return p._link()
end

function p.link(frame)
	p.options = getArgs(frame, { aliases = p.aliases })
	return p._link()
end


return p