Module:User:Gyfo/links

local export = {}

--[=[
	], pages with high memory usage,
	extraction modules and part-of-speech names are listed
	at ].

	Other modules used:
		]
		]
		] and its submodules
		]
		]
]=]

-- These are prefixed with u to avoid confusion with the default string methods
-- of the same name.
local concat = table.concat
local encode = mw.text.encode
local find = mw.ustring.find
local get_entities = require("Module:utilities").get_entities
local gsub = mw.ustring.gsub
local insert = table.insert
local lower = mw.ustring.lower
local remove = table.remove
local shallowcopy = require("Module:table").shallowcopy
local split = mw.text.split
local toNFC = mw.ustring.toNFC
local trim = mw.text.trim
local unstrip = mw.text.unstrip
local u = mw.ustring.char
local TEMP_UNDERSCORE = u(0xFFF0)

local function track(page, code)
	local tracking_page = "links/" .. page
	if code then
		require("Module:debug/track"){tracking_page, tracking_page .. "/" .. code}
	else
		require("Module:debug/track")(tracking_page)
	end
	return true
end

local function escape(text, str)
	local rep
	repeat
		text, rep = text:gsub("\\\\(\\*" .. str .. ")", "\5%1")
	until rep == 0
	return (text:gsub("\\" .. str, "\6"))
end

local function unescape(text, str)
	return (text
		:gsub("\5", "\\")
		:gsub("\6", str))
end

--==]
function export.split_on_slashes(text)
	text = escape(text, "//")
	text = split(text, "//") or {}
	for i, v in ipairs(text) do
		text = unescape(v, "//")
		if v == "" then
			text = false
		end
	end
	return text
end

-- Trim only if there are non-whitespace characters.
local function cond_trim(text)
	-- Include all conventional whitespace + zero-width space.
	if find(text, "") then
		text = trim(text, "%s​")
	end
	return text
end

--==]
function export.get_fragment(text)
	-- If there's an embedded link, just return the input.
	if text:find("%%]") then
		return text
	end
	text = escape(text, "#")
	-- Replace numeric character references with the corresponding character ( → '),
	-- as they contain #, which causes the numeric character reference to be
	-- misparsed (wa'a → waa → pagename wa&, fragment 29;a).
	text = get_entities(text)
	local target, fragment = text:match("^(..-)#(.+)$")
	target = target or text
	target = unescape(target, "#")
	fragment = fragment and unescape(fragment, "#")
	return target, fragment
end

local ignore_cap
local pos_tags
function export.get_link_page(target, lang, sc, plain)
	if not target then
		return nil
	end

	-- Remove bold, italics, soft hyphens, strip markers and HTML tags.
	target = target
		:gsub("('*)'''(.-'*)'''", "%1%2")
		:gsub("('*)''(.-'*)''", "%1%2")
		:gsub("­", "")
	target = unstrip(target)
		:gsub("<+>", "")

	-- Check if the target is an interwiki link.
	if target:match(":") and target ~= ":" then
		-- If this is an a link to another namespace or an interwiki link, ensure there's an initial colon and then return what we have (so that it works as a conventional link, and doesn't do anything weird like add the term to a category.)
		local prefix = target:gsub("^:*(.-):.*", lower)
		if (
			mw.loadData("Module:data/namespaces") or
			mw.loadData("Module:data/interwikis")
		) then
			return ":" .. target:gsub("^:+", ""), nil, {}
		end
		-- Convert any escaped colons
		target = target:gsub("\\:", ":")
	end

	-- Check if the term is reconstructed and remove any asterisk. Otherwise, handle the escapes.
	local reconstructed, escaped
	if not plain then
		target, reconstructed = target:gsub("^%*(.)", "%1")
	end
	target, escaped = target:gsub("^(\\-)\\%*", "%1*")

	if not require("Module:utilities").check_object("script", true, sc) or sc:getCode() == "None" then
		sc = lang:findBestScript(target)
	end

	-- Remove carets if they are used to capitalize parts of transliterations (unless they have been escaped).
	if (not sc:hasCapitalization()) and sc:isTransliterated() and target:match("%^") then
		target = escape(target, "^")
			:gsub("%^", "")
		target = unescape(target, "^")
	end

	-- Get the entry name for the language.
	target = lang:makeEntryName(target, sc)

	-- If the link contains unexpanded template parameters, then don't create a link.
	if target:find("{{{") then
		return nil
	end

	if target:sub(1, 1) == "/" then
		return ":" .. target

	elseif target:find("^Reconstruction:") then
		return target

	-- Link to appendix for reconstructed terms and terms in appendix-only languages. Plain links interpret * literally, however.
	elseif reconstructed == 1 then
		if lang:getFullCode() == "und" then
			return nil
		else
			target = "Reconstruction:" .. lang:getFullName() .. "/" .. target
		end
	-- Reconstructed languages and substrates require an initial *.
	elseif lang:hasType("reconstructed") or lang:getFamilyCode() == "qfa-sub" then
		local check = target:match("^:*(*):")
		check = check and lower(check)
		if (
			mw.loadData("Module:data/namespaces") or
			mw.loadData("Module:data/interwikis")
		) then
			return target
		else
			error("The specified language " .. lang:getCanonicalName()
				.. " is unattested, while the given word is not marked with '*' to indicate that it is reconstructed.")
		end

	elseif lang:hasType("appendix-constructed") then
		target = "Appendix:" .. lang:getFullName() .. "/" .. target
	end

	return target, escaped > 0
end

-- Сделать ссылку из частей данной ссылки
--{target = text, display = data.alt, fragment = data.fragment}, data.lang
local function make_link(link, lang, sc, id, allow_self_link, isolated, plain, cats, no_alt_ast)
	-- Преобразование процентной кодировки в открытый текст.
	link.target = mw.uri.decode(link.target, "PATH")
	link.fragment = link.fragment and mw.uri.decode(link.fragment, "PATH")

-- Находит фрагменты (если они еще не установлены).
-- Предотвращает связывание {{l|en|word#Etymology 2|word}} с ].
-- # можно экранировать как \#.
	if link.target and link.fragment == nil then
		link.target, link.fragment = export.get_fragment(link.target)
	end

	-- Создаёт дефолтную форму отображения.
	local auto_display = link.target

	-- Обработать цель
	local escaped
	link.target, escaped = export.get_link_page(link.target, lang, sc, plain)

	-- Если целью является отображение и реконструкция * была экранирована, удалите экранирующую обратную косую черту.
	if escaped then
		auto_display = auto_display:gsub("\\(*%*)", "%1", 1)
	end

	-- Обработка формы отображения.
	if link.display then
		local orig_display = link.display
		link.display = lang:makeDisplayText(link.display, sc, true)
		if cats then
			auto_display = lang:makeDisplayText(auto_display, sc)
			-- Если замещающий текст такой же, как тот, который был бы сгенерирован автоматически, то параметр alt является избыточным (например, {{l|en|foo|foo}}, {{l|en|w:foo|foo}}, но а не {{l|en|w:foo|w:foo}}).
			--  Если они разные, но альтернативный текст можно было ввести в качестве параметра термина, не затрагивая целевую страницу, тогда целевой параметр является избыточным (например, {{l|ru|фу|фу́}})
			--. Если `no_alt_ast` имеет значение true, используйте pcall для обнаружения ошибки, которая будет выдана, если это восстановленный язык и в альтернативном тексте нет *.
			if link.display == auto_display then
				insert(cats, lang:getFullName() .. " ссылки с избыточными параметрами alt")
			else
				local ok, check
				if no_alt_ast then
					ok, check = pcall(export.get_link_page, orig_display, lang, sc, plain)
				else
					ok = true
					check = export.get_link_page(orig_display, lang, sc, plain)
				end
				if ok and link.target == check then
					insert(cats, lang:getFullName() .. " ссылки с избыточными целевыми параметрами")
				end
			end
		end
	else
		link.display = lang:makeDisplayText(auto_display, sc)
	end

	if not link.target then
		return link.display
	end

	-- Если цель та же, что и текущая страница, а смысловой идентификатор отсутствует
	-- и ссылка на ту же страницу не включена, возвращает «собственную ссылку», 
	-- как это делает программное обеспечение.
	if (not (allow_self_link or id)) and link.target == mw.title.getCurrentTitle().prefixedText then
		return tostring(mw.html.create("strong")
			:addClass("selflink")
			:wikitext(link.display))
	end

	-- Добавить фрагмент. Не добавляйте ссылку на раздел «Неопределенный», так как таких разделов не существует
	-- и они недействительны. TabbedLanguages обрабатывает ссылки без раздела, ссылаясь на раздел «последнее посещение»,
	-- но добавление «Неопределенный» нарушит эту функцию. Для локализованных префиксов, допускающих синтаксические ошибки,
	-- используйте формат:  = true.
	local prefix = link.target:match("^:*(+):")
	if not (prefix and mw.loadData("Module:data/interwikis")) then
		if (link.fragment or link.target:find("#$")) and not plain then
			track("fragment", lang:getFullCode())
			if cats then
				insert(cats, lang:getFullName() .. " ссылки с фрагментами живых языков")
			end
		end

		if (not link.fragment) and lang:getFullCode() ~= "und" then
			if id then
				link.fragment = require("Module:senseid").anchor(lang, id)
			elseif not (link.target:find("^Appendix:") or link.target:find("^Reconstruction:") or plain) then
				link.fragment = lang:getFullName()
			end
		elseif plain and id then
			link.fragment = id
		end
	end

	if isolated then
		link.display = mw.loadData("Module:links/data").display_change or link.display
	end

	link.target = link.target:gsub("^(:?)(.*)", function(m1, m2)
		return m1 .. encode(m2, "#%%&+/:<=>@_{|}")
	end)
	link.fragment = link.fragment and encode(link.fragment, "#%%&+/:<=>@_{|}")

	return "]"
end


-- Split a link into its parts
local function parse_link(linktext)
	local link = {target = linktext}

	local target = link.target
	link.target, link.display = target:match("^(..-)|(.+)$")
	if not link.target then
		link.target = target
		link.display = target
	end

	-- There's no point in processing these, as they aren't real links.
	local target_lower = link.target:lower()
	for _, false_positive in ipairs({"category", "cat", "file", "image"}) do
		if target_lower:match("^" .. false_positive .. ":") then return nil end
	end

	link.display = get_entities(link.display)
	link.target, link.fragment = export.get_fragment(link.target)

	-- So that make_link does not look for a fragment again.
	if not link.fragment then
		link.fragment = false
	end

	return link
end

-- Find embedded links and ensure they link to the correct section.
local function process_embedded_links(text, data, allow_self_link, plain)
	-- Process the non-linked text.
	text = data.lang:makeDisplayText(text, data.sc, true)

	-- If the text begins with * and another character, then act as if each link begins with *. However, don't do this if the * is contained within a link at the start. E.g. `|*]` would set all_reconstructed to true, while `|]` would not.
	local all_reconstructed = false
	if not plain then
		if require("Module:utilities").get_plaintext(text:gsub("%%]", ".")):match("^*.") then
			all_reconstructed = true
		end
		-- Otherwise, handle any escapes.
		text = text:gsub("^(\\-)\\%*", "%1*")
	end

	if data.alt then
		track("alt-ignored")
		mw.log("(from Module:links)", "text with embedded wikilinks:", text,
			"ignored alt:", data.alt, "lang:", data.lang:getFullCode())
		if data.cats then
			insert(data.cats, data.lang:getFullName() .. " links with ignored alt parameters")
		end
	end
	
	if data.id then
		track("id-ignored")
		mw.log("(from Module:links)", "text with embedded wikilinks:", text,
			"ignored id:", data.id, "lang:", data.lang:getFullCode())
		if data.cats then
			insert(data.cats, data.lang:getFullName() .. " links with ignored id parameters")
		end
	end

	local function process_link(space1, linktext, space2)
		local capture = "]"

		local link = parse_link(linktext)

		--Return unprocessed false positives untouched (e.g. categories).
		if not link then return capture end

		if all_reconstructed and not link.target:find("^%*") then
			link.target = "*" .. link.target
		end

		linktext = make_link(link, data.lang, data.sc, data.id, allow_self_link, false, plain)
			:gsub("^%[%[", "\3")
			:gsub("%]%]$", "\4")

		return space1 .. linktext .. space2
	end

	-- Use chars 1 and 2 as temporary substitutions, so that we can use charsets. These are converted to chars 3 and 4 by process_link, which means we can convert any remaining chars 1 and 2 back to square brackets (i.e. those not part of a link).
	text = text
		:gsub("%[%[", "\1")
		:gsub("%]%]", "\2")
	-- If the script uses ^ to capitalize transliterations, make sure that any carets preceding links are on the inside, so that they get processed with the following text.
	if text:match("%^") and not data.sc:hasCapitalization() and data.sc:isTransliterated() then
		text = escape(text, "^")
			:gsub("%^\1", "\1%^")
		text = unescape(text, "^")
	end
	text = text:gsub("\1(%s*)(-)(%s*)\2", process_link)

	-- Remove the extra * at the beginning of a language link if it's immediately followed by a link whose display begins with * too.
	if all_reconstructed then
		text = text:gsub("^%*\3(+)|%*", "\3%1|*")
	end

	return (text
		:gsub("", "[[")
		:gsub("", "]]"))
end

local function handle_redundant_wikilink(text, data)
	local temp, alt = text:match("^%%]$"), data.alt
	if not temp then
		return text, alt
	end
	local temp_lower = temp:lower()
	for _, false_positive in ipairs({"category", "cat", "file", "image"}) do
		if temp_lower:match("^" .. false_positive .. ":") then
			return text, alt
		end
	end
	-- Note: it's possible for "]" to be uninvolved in links, so we need to check for both individually (e.g. "] bb]]" would not have a redundant wikilink).
	if temp and not (temp:find("%%]")) then
		text, alt = temp:match("^(+)|?(.-)$")
		track("redundant wikilink")
		if data and data.cats then
			insert(data.cats, data.lang:getFullName() .. " links with redundant wikilinks")
		end
		if alt == "" then
			alt = nil
		end
	end
	return text, alt
end

--]</code> from ] to add such wrappers itself at some point.
The first argument, <code class="n">data</code>, may contain the following items, a subset of the items used in the <code class="n">data</code> argument of <code class="n">full_link</code>. If any other items are included, they are ignored.
{ {
	term = entry_to_link_to,
	alt = link_text_or_displayed_text,
	lang = language_object,
	id = sense_id,
} }
; <code class="n">term</code>
: Text to turn into a link. This is generally the name of a page. The text can contain wikilinks already embedded in it. These are processed individually just like a single link would be. The <code class="n">alt</code> argument is ignored in this case.
; <code class="n">alt</code> (''optional'')
: The alternative display for the link, if different from the linked page. If this is {{code|lua|nil}}, the <code class="n">text</code> argument is used instead (much like regular wikilinks). If <code class="n">text</code> contains wikilinks in it, this argument is ignored and has no effect. (Links in which the alt is ignored are tracked with the tracking template {{whatlinkshere|tracking=links/alt-ignored}}.)
; <code class="n">lang</code>
: The ] for the term being linked. If this argument is defined, the function will determine the language's canonical name (see ]), and point the link or links in the <code class="n">term</code> to the language's section of an entry, or to a language-specific senseid if the <code class="n">id</code> argument is defined.
; <code class="n">id</code> (''optional'')
: Sense id string. If this argument is defined, the link will point to a language-specific sense id ({{ll|en|identifier|id=HTML}}) created by the template {{temp|senseid}}. A sense id consists of the language's canonical name, a hyphen (<code>-</code>), and the string that was supplied as the <code class="n">id</code> argument. This is useful when a term has more than one sense in a language. If the <code class="n">term</code> argument contains wikilinks, this argument is ignored. (Links in which the sense id is ignored are tracked with the tracking template {{whatlinkshere|tracking=links/id-ignored}}.)
The second argument is as follows:
; <code class="n">allow_self_link</code>
: If {{code|lua|true}}, the function will also generate links to the current page. The default ({{code|lua|false}}) will not generate a link but generate a bolded "self link" instead.
The following special options are processed for each link (both simple text and with embedded wikilinks):
* The target page name will be processed to generate the correct entry name. This is done by the ] function in ], using the <code class="n">entry_name</code> replacements in the language's data file (see ] for more information). This function is generally used to automatically strip dictionary-only diacritics that are not part of the normal written form of a language.
* If the text starts with <code class="n">*</code>, then the term is considered a reconstructed term, and a link to the Reconstruction: namespace will be created. If the text contains embedded wikilinks, then <code class="n">*</code> is automatically applied to each one individually, while preserving the displayed form of each link as it was given. This allows linking to phrases containing multiple reconstructed terms, while only showing the * once at the beginning.
* If the text starts with <code class="n">:</code>, then the link is treated as "raw" and the above steps are skipped. This can be used in rare cases where the page name begins with <code class="n">*</code> or if diacritics should not be stripped. For example:
** {{temp|l|en|*nix}} links to the nonexistent page ] (<code class="n">*</code> is interpreted as a reconstruction), but {{temp|l|en|:*nix}} links to ].
** {{temp|l|sl|Franche-Comté}} links to the nonexistent page ] (<code>é</code> is converted to <code>e</code> by <code class="n">makeEntryName</code>), but {{temp|l|sl|:Franche-Comté}} links to ].]==]
function export.language_link(data, allow_self_link)
	if type(data) ~= "table" then
		error("Первым аргументом функции Language_link должна быть таблица. См. Module:links/doc для подробной информации.")
	-- Если нечего обрабатывать, вернуть ноль.
	elseif not (data.term or data.alt) then
		return nil
	end

	local text = data.term

	data.sc = data.sc or data.lang:findBestScript(text)

	ignore_cap = ignore_cap or mw.loadData("Module:links/data").ignore_cap
	if (ignore_cap or ignore_cap) and text then
		text = text:gsub("%^", "")
	end

	-- Есть ли у нас лишняя вики-ссылка? Если да, удаляем её.
	if text then
		text, data.alt = handle_redundant_wikilink(text, data)
	end

	-- Есть ли у нас встроенные вики-ссылки?
	if text and text:find("%%]") then
		text = process_embedded_links(text, data, allow_self_link)
	-- Если нет, собираем ссылку с параметрами.
	else
		text = text and cond_trim(text)
		data.alt = data.alt and cond_trim(data.alt)
		text = make_link({target = text, display = data.alt, fragment = data.fragment}, data.lang, data.sc, data.id, allow_self_link, true, nil, data.cats, data.no_alt_ast)
	end

	return text--] --в p.descendant{args={"en", "word"}}
end

function export.plain_link(data, allow_self_link)
	if type(data) ~= "table" then
		error("The first argument to the function language_link must be a table. See Module:links/documentation for more information.")
	-- Nothing to process, return nil.
	elseif not (data.term or data.alt) then
		return nil
	-- Only have alt, just return it.
	elseif not data.term then
		return data.alt
	end

	local text = data.term
	if (not data.lang) or data.lang:getFullCode() ~= "und" then
		data.lang = require("Module:languages").getByCode("und")
	end
	data.sc = data.sc or require("Module:scripts").findBestScriptWithoutLang(text)

	-- Do we have a redundant wikilink? If so, remove it.
	if text then
		text, data.alt = handle_redundant_wikilink(text, data)
	end

	-- Do we have embedded wikilinks?
	if text:find("%%]") then
		text = process_embedded_links(text, data, allow_self_link, true)
	-- If not, make a link using the parameters.
	else
		text = cond_trim(text)
		data.alt = data.alt and cond_trim(data.alt)
		text = make_link({target = text, display = data.alt, fragment = data.fragment}, data.lang, data.sc, data.id, allow_self_link, true, true)
	end

	return text
end

--==]
function export.embedded_language_links(data, allow_self_link)
	if type(data) ~= "table" then
		error("The first argument to the function language_link must be a table. See Module:links/documentation for more information.")
	end

	local text = data.term
	data.sc = data.sc or data.lang:findBestScript(text)

	-- Do we have embedded wikilinks?
	if text:find("%%]") then
		text = process_embedded_links(text, data, allow_self_link)
	else
		-- If there are no embedded wikilinks, return the display text.
		text = cond_trim(text)
		-- FIXME: Double-escape any percent-signs, because we don't want to treat non-linked text as having percent-encoded characters.
		text = text:gsub("%%", "%%25")
		text = (data.lang:makeDisplayText(text, data.sc, true))
	end

	return text
end

function export.mark(text, item_type, face, lang)
	local tag = { "", "" }

	if item_type == "gloss" then
		tag = { '<span class="mention-gloss-double-quote">“</span><span class="mention-gloss">',
			'</span><span class="mention-gloss-double-quote">”</span>' }
	elseif item_type == "tr" then
		if face == "term" then
			tag = { '<span lang="' .. lang:getFullCode() .. '" class="tr mention-tr Latn">',
				'</span>' }
		else
			tag = { '<span lang="' .. lang:getFullCode() .. '" class="tr Latn">', '</span>' }
		end
	elseif item_type == "ts" then
		-- \226\129\160 = word joiner (zero-width non-breaking space) U+2060
		tag = { '<span class="ts mention-ts Latn">/\226\129\160', '\226\129\160/</span>' }
	elseif item_type == "pos" then
		tag = { '<span class="ann-pos">', '</span>' }
	elseif item_type == "annotations" then
		tag = { '<span class="mention-gloss-paren annotation-paren">(</span>',
			'<span class="mention-gloss-paren annotation-paren">)</span>' }
	end

	if type(text) == "string" then
		return tag .. text .. tag
	else
		return ""
	end
end

--[==[Formats the annotations that are displayed with a link created by {{code|lua|full_link}}. Annotations are the extra bits of information that are displayed following the linked term, and include things such as gender, transliteration, gloss and so on. 
* The first argument is a table possessing some or all of the following keys:
*:; <code class="n">genders</code>
*:: Table containing a list of gender specifications in the style of ].
*:; <code class="n">tr</code>
*:: Transliteration.
*:; <code class="n">gloss</code>
*:: Gloss that translates the term in the link, or gives some other descriptive information.
*:; <code class="n">pos</code>
*:: Part of speech of the linked term. If the given argument matches one of the templates in ], then call that to show a part-of-speech tag. Otherwise, just show the given text as it is.
*:; <code class="n">lit</code>
*:: Literal meaning of the term, if the usual meaning is figurative or idiomatic.
*:Any of the above values can be omitted from the <code class="n">info</code> argument. If a completely empty table is given (with no annotations at all), then an empty string is returned.
* The second argument is a string. Valid values are listed in ] "data.translit" table.]==]
function export.format_link_annotations(data, face)
	local output = {}

	-- Interwiki link
	if data.interwiki then
		insert(output, data.interwiki)
	end

	-- Genders
	if type(data.genders) ~= "table" then
		data.genders = { data.genders }
	end

	if data.genders and #data.genders > 0 then
		local m_gen = require("Module:gender and number")
		insert(output, "&nbsp;" .. m_gen.format_list(data.genders, data.lang))
	end

	local annotations = {}

	-- Transliteration and transcription
	if data.tr and data.tr or data.ts and data.ts then
		local kind
		if face == "term" then
			kind = face
		else
			kind = "default"
		end

		if data.tr and data.ts then
			insert(annotations,
				require("Module:User:Gyfo/script_utilities").tag_translit(data.tr, data.lang, kind)
				.. " " .. export.mark(data.ts, "ts"))
		elseif data.ts then
			insert(annotations, export.mark(data.ts, "ts"))
		else
			insert(annotations,
				require("Module:User:Gyfo/script_utilities").tag_translit(data.tr, data.lang, kind))
		end
	end

	-- Gloss/translation
	if data.gloss then
		insert(annotations, export.mark(data.gloss, "gloss"))
	end

	-- Part of speech
	if data.pos then
		-- debug category for pos= containing transcriptions
		if data.pos:find("/*/") then
			data.pos = data.pos .. "]"
		end

		pos_tags = pos_tags or mw.loadData("Module:links/data").pos_tags
		insert(annotations, export.mark(pos_tags or data.pos, "pos"))
	end

	-- Literal/sum-of-parts meaning
	if data.lit then
		insert(annotations, "literally " .. export.mark(data.lit, "gloss"))
	end

	if #annotations > 0 then
		insert(output, " " .. export.mark(concat(annotations, ", "), "annotations"))
	end

	return concat(output)
end

-- Add any left or right qualifiers or references to a formatted term. `data` is the object specifying the term, which
-- should optionally contain:
-- * left qualifiers in `q` (an array of strings or a single string); an empty array or blank string will be ignored;
-- * right qualifiers in `qq` (an array of strings or a single string); an empty array or blank string will be ignored;
-- * references in `refs`, an array either of strings (formatted reference text) or objects containing fields `text`
--   (formatted reference text) and optionally `name` and/or `group`.
-- `formatted` is the formatted version of the term itself.
function export.add_qualifiers_and_refs_to_term(data, formatted)
	local left_qualifiers, right_qualifiers
	local reftext

	left_qualifiers = data.q and #data.q > 0 and data.q
	if left_qualifiers then
		left_qualifiers = require("Module:qualifier").format_qualifier(left_qualifiers) .. " "
	end

	right_qualifiers = data.qq and #data.qq > 0 and data.qq
	if right_qualifiers then
		right_qualifiers = " " .. require("Module:qualifier").format_qualifier(right_qualifiers)
	end
	if data.refs and #data.refs > 0 then
		local refs = {}
		for _, ref in ipairs(data.refs) do
			if type(ref) ~= "table" then
				ref = {text = ref}
			end
			local refargs
			if ref.name or ref.group then
				refargs = {name = ref.name, group = ref.group}
			end
			insert(refs, mw.getCurrentFrame():extensionTag("ref", ref.text, refargs))
		end
		reftext = concat(refs)
	end

	if left_qualifiers then
		formatted = left_qualifiers .. formatted
	end
	if reftext then
		formatted = formatted .. reftext
	end
	if right_qualifiers then
		formatted = formatted .. right_qualifiers
	end

	return formatted
end


--]</code>), in the style of {{temp|l}} or {{temp|m}}.
The first argument, <code class="n">data</code>, must be a table. It contains the various elements that can be supplied as parameters to {{temp|l}} or {{temp|m}}:
{ {
	term = entry_to_link_to,
	alt = link_text_or_displayed_text,
	lang = language_object,
	sc = script_object,
	track_sc = boolean,
	fragment = link_fragment
	id = sense_id,
	genders = { "gender1", "gender2", ... },
	tr = transliteration,
	ts = transcription,
	gloss = gloss,
	pos = part_of_speech_tag,
	lit = literal_translation,
	no_alt_ast = boolean,
	accel = {accelerated_creation_tags},
	interwiki = interwiki,
	q = { "left_qualifier1", "left_qualifier2", ...} or "left_qualifier",
	qq = { "right_qualifier1", "right_qualifier2", ...} or "right_qualifier",
	refs = { "formatted_ref1", "formatted_ref2", ...} or { {text = "text", name = "name", group = "group"}, ... },
} }
Any one of the items in the <code class="n">data</code> table may be {{code|lua|nil}}, but an error will be shown if neither <code class="n">term</code> nor <code class="n">alt</code> nor <code class="n">tr</code> is present.
Thus, calling {{code|lua|2=full_link{ term = term, lang = lang, sc = sc } }}, where <code class="n">term</code> is an entry name, <code class="n">lang</code>  is a ] from ], and <code class="n">sc</code> is a ] from ], will give a plain link similar to the one produced by the template {{temp|l}}, and calling {{code|lua|2=full_link( { term = term, lang = lang, sc = sc }, "term" )}} will give a link similar to the one produced by the template {{temp|m}}.
The function will:
* Try to determine the script, based on the characters found in the term or alt argument, if the script was not given. If a script is given and <code class="n">track_sc</code> is {{code|lua|true}}, it will check whether the input script is the same as the one which would have been automatically generated and add the category ] if yes, or ] if no. This should be used when the input script object is directly determined by a template's <code class="n">sc=</code> parameter.
* Call <code class="n">]</code> on the term or alt forms, to remove diacritics in the page name, process any embedded wikilinks and create links to Reconstruction or Appendix pages when necessary.
* Call <code class="n">]</code> to add the appropriate language and script tags to the term, and to italicize terms written in the Latin script if necessary. Accelerated creation tags, as used by ], are included.
* Generate a transliteration, based on the alt or term arguments, if the script is not Latin and no transliteration was provided.
* Add the annotations (transliteration, gender, gloss etc.) after the link.
* If <code class="n">no_alt_ast</code> is specified, then the alt text does not need to contain an asterisk if the language is reconstructed. This should only be used by modules which really need to allow links to reconstructions that don't display asterisks (e.g. number boxes).
* If <code class="n">show_qualifiers</code> is specified, left and right qualifiers and references will be displayed. (This is for compatibility reasons, since a fair amount of code stores qualifiers and/or references in these fields and displays them itself, expecting {{code|lua|full_link()}} to ignore them.]==]
function export.full_link(data, face, allow_self_link, show_qualifiers)
	-- Предотвращает деструктивное изменение данных
	local data = shallowcopy(data)

	if type(data) ~= "table" then
		error("Первым аргументом функции full_link должна быть таблица. "
			.. "Смотрите Module:links/documentation чтобы получить больше информации.")
	end

	local terms = {true}

	-- Создайте несколько форм, если это подходит.
	for _, param in ipairs{"term", "alt"} do
		if type(data) == "string" and data:find("//") then
			data = export.split_on_slashes(data)
		elseif type(data) == "string" and not (type(data.term) == "string" and data.term:find("//")) then
			data = data.lang:generateForms(data)
		else
			data = {}
		end
	end

	for _, param in ipairs{"sc", "tr", "ts"} do
		data = {data}
	end

	for _, param in ipairs{"term", "alt", "sc", "tr", "ts"} do
		for i in pairs(data) do
			terms = true
		end
	end
	
	-- Создать ссылку
	local output = {}
	data.cats = {}
	local link = ""
	local annotations

	for i in ipairs(terms) do
		-- Есть ли текст для отображения?
		if (data.term or data.alt) then
			-- Пробуем обнаружить систему письма, если она не была предоставлена
			local best = data.lang:findBestScript(data.alt or data.term)
			if not data.sc then
				data.sc = best
			-- Отслеживаем использование параметра sc ("скрипт").
			elseif data.track_sc then
				if data.sc:getCode() == best:getCode() then
					insert(data.cats, data.lang:getFullName() .. " термины с избыточным кодом письма")
				else
					insert(data.cats, data.lang:getFullName() .. " термины с неизбыточным кодом живых систем письма")
				end
			end

			-- Если вы используете нежелательную последовательность символов, добавьте ее в категорию обслуживания
			if data.sc:hasNormalizationFixes() == true then
				if (data.term and data.sc:fixDiscouragedSequences(toNFC(data.term)) ~= toNFC(data.term)) or (data.alt and data.sc:fixDiscouragedSequences(toNFC(data.alt)) ~= toNFC(data.alt)) then
					insert(data.cats, "Pages using discouraged character sequences")
				end
			end

			local class = ""

			-- Кодируйте определенные символы, чтобы избежать различных проблем, связанных с разделителями на разных этапах. Нам нужно закодировать < и >
			-- потому что они в конечном итоге образуют часть имен классов CSS внутри <span ...> и мешают найти конец
			-- HTML-тега. Сначала я попытался преобразовать их в кодировку URL, т. е. %3C и %3E; затем они появляются в URL-адресе как
			-- %253C и %253E, которые при передаче в ] преобразуются обратно в %3C и %3E. Но сопоставьте их с &lt;
			-- и &gt; каким-то волшебным образом работает без каких-либо дальнейших действий; они появляются в URL как < и > и передаются
			-- ] как < и >. Я понятия не имею, кто в цепочке вызовов выполняет кодирование и декодирование. Если
			-- кто-то знает, пожалуйста, измените этот комментарий соответствующим образом!
			local encode_accel_char_map = {
				 = ".",
				 = "_",
				 = TEMP_UNDERSCORE,
				 = "&lt;",
				 = "&gt;",
			}
			local function encode_accel_param_chars(param)
				local retval = param:gsub("", encode_accel_char_map) -- отбросить второе возвращаемое значение
				return retval
			end

			local function encode_accel_param(prefix, param)
				if not param then
					return ""
				end
				if type(param) == "table" then
					local filled_params = {}
					-- В последовательности могут быть пробелы, особенно для параметров транслита.
					local maxindex = 0
					for k, v in pairs(param) do
						if type(k) == "number" and k > maxindex then
							maxindex = k
						end
					end
					for i=1,maxindex do
						filled_params = param or ""
					end
					-- ] снова разделяет их.
					param = concat(filled_params, "*~!")
				end
				-- Это снова декодируется с помощью ].
				return prefix .. encode_accel_param_chars(param)
			end

			if data.accel then
				local form = data.accel.form and encode_accel_param_chars(data.accel.form) .. "-form-of" or ""
				local gender = encode_accel_param("gender-", data.accel.gender)
				local pos = encode_accel_param("pos-", data.accel.pos)
				local translit = encode_accel_param("transliteration-",
					data.accel.translit or (data.tr ~= "-" and data.tr or nil))
				local target = encode_accel_param("target-", data.accel.target)
				local lemma = encode_accel_param("origin-", data.accel.lemma)
				local lemma_translit = encode_accel_param("origin_transliteration-", data.accel.lemma_translit)
				local no_store = data.accel.no_store and "form-of-nostore" or ""

				local accel =
					form .. " " ..
					gender .. " " ..
					pos .. " " ..
					translit .. " " ..
					target .. " " ..
					lemma .. " " ..
					lemma_translit .. " " ..
					no_store .. " "

				class = "form-of lang-" .. data.lang:getFullCode() .. " " .. accel
			end

			-- Делайте ссылку только в том случае, если указан термин, в противном случае просто покажите альтернативный текст без ссылки.
			local term_data = {
				term = data.term,--word в p.descendant{args={"en", "word"}}
				alt = data.alt,
				lang = data.lang
				--sc = data.sc,
				--fragment = data.fragment,
				--id = data.id,
				--genders = data.genders,
				--tr = data.tr,
				--ts = data.ts,
				--gloss = data.gloss,
				--pos = data.pos,
				--lit = data.lit,
				--accel = data.accel,
				--interwiki = data.interwiki,
				--cats = data.cats,
				--no_alt_ast = data.no_alt_ast
			}
			link = --require("Module:script utilities").tag_text(
				-- and ]]export.language_link(term_data--])
				--or data.alt, data.lang, data.sc, face, class)
		else
			--[[	Нет термина для отображения.
					Есть ли хотя бы транслитерация, с которой мы можем работать?	]]
			link = require("Module:User:Gyfo/script_utilities").request_script(data.lang, data.sc)
			-- Нет ссылки для отображения и нет транслитерации. Покажите запрос на термин (если только это не субстрат, так как термины берут редко).
			if (link == "" or (not data.tr) or data.tr == "-") and data.lang:getFamilyCode() ~= "qfa-sub" then
				-- Если имеется несколько терминов, разорвите цикл.
				if i > 1 then
					remove(output)
					break
				elseif mw.title.getCurrentTitle().nsText ~= "Template" then
					insert(data.cats, data.lang:getFullName() .. " term requests")
				end
				link = "<small></small>"
			end
		end
		insert(output, link)

		if i < #terms then insert(output, "<span class=\"Zsym mention\" style=\"font-size:100%;\">／</span>") end
	end

	-- TODO: В настоящее время обрабатывается только первая транслитерация, ожидается достижение консенсуса о том, как обрабатывать несколько транслитов для нескольких форм, поскольку это не всегда желательно (например, традиционный/упрощенный китайский язык).
	if data.tr == "" or data.tr == "-" then
		data.tr = nil

	else
		local phonetic_extraction = mw.loadData("Module:links/data").phonetic_extraction
		phonetic_extraction = phonetic_extraction or phonetic_extraction

		if phonetic_extraction then
			data.tr = data.tr or require(phonetic_extraction).getTranslit(export.remove_links(data.alt or data.term))

		elseif (data.term or data.alt) and data.sc:isTransliterated() then
		-- Отслеживайте всякий раз, когда есть ручной транслит. Категории ниже, такие как «термины с избыточной транслитерацией».
		-- недостаточны, поскольку они работают только в отношении автоматического транслита и вообще не работают в
		-- языки без автоматического транслита, такие как персидский и иврит.
			if data.tr then
				track("manual-tr", data.lang:getFullCode())
			end

		-- Попробуйте сгенерировать транслитерацию, если только транслитерация не указана и не задан data.no_check_redundant_translit. 
		-- (Проверка избыточной транслитерации может занимать значительные объемы памяти, поэтому мы не хотим делать это, если памяти недостаточно.
		-- `no_check_redundant_translit` в настоящее время устанавливается при вызове в конечном итоге из {{multitrans|...|no-check-redundant- транслит=1}}.)
			if not (data.tr and data.no_check_redundant_translit) then
				local text = data.alt or data.term
				if not data.lang:link_tr() then
					text = export.remove_links(text, true)
				end

				local automated_tr, tr_categories
				automated_tr, data.tr_fail, tr_categories = data.lang:transliterate(text, data.sc)

				if automated_tr or data.tr_fail then
					local manual_tr = data.tr

					if manual_tr then
						if (export.remove_links(manual_tr) == export.remove_links(automated_tr)) and (not data.tr_fail) then
							insert(data.cats, data.lang:getFullName() .. " terms with redundant transliterations")
						elseif not data.tr_fail then
							-- Предотвращает заполнение категорий отслеживания арабскими корневыми категориями.
							if mw.title.getCurrentTitle().nsText ~= "Category" then
								insert(data.cats, data.lang:getFullName() .. " термины с неизбыточной ручной транслитерацией")
							end
						end
					end

					if (not manual_tr) or data.lang:overrideManualTranslit() then
						data.tr = automated_tr
						for _, category in ipairs(tr_categories) do
							insert(data.cats, category)
						end
					end
				end
			end
		end
	end

	-- Ссылка на запись о транслитерации для языков, требующих этого
	if data.tr and data.lang:link_tr() and not (data.tr:match("%%]") or data.tr_fail) then
		data.tr = export.language_link{
			lang = data.lang,
			term = data.tr,
			sc = require("Module:scripts").getByCode("Latn")
		}
	elseif data.tr and not (data.lang:link_tr() or data.tr_fail) then
		-- Удалите псевдо-HTML-теги, добавленные с помощью команды remove_links.
		data.tr = data.tr:gsub("</?link>", "")
	end
	if data.tr and gsub(data.tr, "", ""):len() == 0 then data.tr = nil end

	insert(output, export.format_link_annotations(data, face))

	local categories = #data.cats > 0 and require("Module:utilities").format_categories(data.cats, data.lang, "-", nil, nil, data.sc) or ""

	output = concat(output)
	if show_qualifiers then
		output = export.add_qualifiers_and_refs_to_term(data, output)
	end
	return output-- .. categories
end

--[==[Replaces all wikilinks with their displayed text, and removes any categories. This function can be invoked either from a template or from another module.
-- Strips links: deletes category links, the targets of piped links, and any double square brackets involved in links (other than file links, which are untouched). If `tag` is set, then any links removed will be given pseudo-HTML tags, which allow the substitution functions in ] to properly subdivide the text in order to reduce the chance of substitution failures in modules which scrape pages like ].
-- FIXME: This is quite hacky. We probably want this to be integrated into ], but we can't do that until we know that nothing is pushing pipe linked transliterations through it for languages which don't have link_tr set.
* <code><nowiki>]</nowiki></code> &rarr; <code><nowiki>displayed text</nowiki></code>
* <code><nowiki>]</nowiki></code> &rarr; <code><nowiki>page and displayed text</nowiki></code>
* <code><nowiki>]</nowiki></code> &rarr; ''(nothing)'']==]
function export.remove_links(text, tag)
	if type(text) == "table" then
		text = text.args
	end

	if not text or text == "" then
		return ""
	end

	text = text
		:gsub("%[%[", "\1")
		:gsub("%]%]", "\2")

	-- Parse internal links for the display text.
	text = text:gsub("(\1)(-)(\2)",
		function(c1, c2, c3)
			-- Don't remove files.
			for _, false_positive in ipairs({"file", "image"}) do
				if c2:lower():match("^" .. false_positive .. ":") then return c1 .. c2 .. c3 end
			end
			-- Remove categories completely.
			for _, false_positive in ipairs({"category", "cat"}) do
				if c2:lower():match("^" .. false_positive .. ":") then return "" end
			end
			-- In piped links, remove all text before the pipe, unless it's the final character (i.e. the pipe trick), in which case just remove the pipe.
			c2 = c2:match("^*|(.+)") or c2:match("(+)|$") or c2
			if tag then
				return "<link>" .. c2 .. "</link>"
			else
				return c2
			end
		end)

	text = text
		:gsub("\1", "[[")
		:gsub("\2", "]]")

	return text
end

--[=[
This decodes old section encodings.
For example, Norwegian_Bokm.C3.A5l → Norwegian_Bokmål.
It isn't picky about whether the section encodings represent the UTF-8 encoding
of a real Unicode character, so it will mangle section names that contain
a period followed by two uppercase hex characters. At least such section names
are probably pretty rare.

Wiktionary adds an additional id="" attribute for sections
using a legacy encoding, if it is different from the modern minimally modified attribute.
It is like percent encoding (URI or URL encoding) except with "." instead of "%".
See ] and the code that does the encoding at
https://gerrit.wikimedia.org/r/plugins/gitiles/mediawiki/core/+/7bf779524ab1fd8e1d74f79ea4840564d48eea4d/includes/parser/Sanitizer.php#893
]=]

-- The character class %x should not be used, as it includes the characters a-f,
-- which do not occur in these anchor encodings.
local capital_hex = ""

local function decode_anchor(anchor)
	return (anchor:gsub("%.(" .. capital_hex .. capital_hex .. ")",
		function(hex_byte)
			return string.char(tonumber(hex_byte, 16))
		end))
end

function export.section_link(link)
	if type(link) ~= "string" then
		error("The first argument to section_link was a " .. type(link) .. ", but it should be a string.")
	end

	link = link:gsub("_", " ")

	local number_signs = select(2, link:gsub("#", ""))

	if number_signs > 1 then
		error("The section link should only contain one number sign (#).")
	end

	link = mw.uri.decode(link, "WIKI")
	local page, section = link:match("^(*)#(.+)$")
	if page == "" then
		page = nil
	end

	if section then
		section = decode_anchor(section)

		-- URI-encode (percent-encode) section to allow square brackets and
		-- other dodgy characters in section name.
		-- If not percent-encoded, they prevent the parser from creating a link.
		-- Decode percent-encoding in the displayed text
		if page then
			return "[[" .. page .. "#" .. mw.uri.encode(section, "WIKI")
				.. "|" .. page .. " §&nbsp;" .. section .. "]]"
		else
			return "[[#" .. mw.uri.encode(section, "WIKI")
				.. "|§&nbsp;" .. section .. "]]"
		end
	else
		error("The function “section_link” could not find a number sign marking a section name.")
	end
end

return export