Module:Footnotes/anchor id list/data - Revision history

imported>Trappist the monk: -cite LSA support; template deleted;

2024-07-17T17:28:51Z

-cite LSA support; template deleted;

imported>WOSlinker: use require('strict') instead of require('Module:No globals')

2022-10-22T09:20:53Z

use require('strict') instead of require('Module:No globals')

← Older revision		Revision as of 09:20, 22 October 2022
Line 2:		Line 2:
	-- for this application make lists from the redirect lists and force all template names first character uppercase		-- for this application make lists from the redirect lists and force all template names first character uppercase

	require('~~Module:No globals~~');		require('strict');

	--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------		--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------

imported>Trappist the monk at 17:06, 23 May 2020

2020-05-23T17:06:22Z

← Older revision		Revision as of 17:06, 23 May 2020
Line 1:		Line 1:
	-- copied from Module:Ref info/data - maybe overkill here?		-- copied from Module:Ref info/data - maybe overkill here?
	-- for this application ~~just~~ make lists from the redirect lists and force all template names ~~lower case?~~		-- for this application make lists from the redirect lists and force all template names first character uppercase
	~~-- yes lowercase because Footnotes/anchor id list template_name_get() returns lowercase~~
	--
	~~-- TODO: but is that really the right thing to do?~~

			require('Module:No globals');

	--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------		--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------
Line 212:		Line 210:
	These tables are created from the *_template_patterns tables. To make these tables, entries in the source tables		These tables are created from the *_template_patterns tables. To make these tables, entries in the source tables
	are evaluated to replace lua patterns with the appropriate characters to create names for the output tables.		are evaluated to replace lua patterns with the appropriate characters to create names for the output tables.

			First charqacter is always uppercase

	For example:		For example:
Line 218:		Line 218:
	Cite arXiv		Cite arXiv
	Cite arxiv		Cite arxiv
	~~cite arXiv~~
	~~cite arxiv~~

	]]		]]
Line 231:		Line 229:

	local function add_stripped (list, name)		local function add_stripped (list, name)
	~~-- name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase; TODO: is this the right thing to do?~~
	if not list[name] then		if not list[name] then
	list[name] = true;		list[name] = true;
Line 239:		Line 236:

	local function pattern_convert (pattern, list)		local function pattern_convert (pattern, list)
			local lead, tail, c, l, name;
	local first_char_patterns = {		local first_char_patterns = {
	'^%[(%a)%a%]', -- leading character (usually uppercase)		'^%[(%a)%a%]', -- leading character (usually uppercase)
Line 244:		Line 242:
	}		}

	~~for _, fcp in ipairs~~ (~~first_char_patterns) do~~		c = tostring (pattern:match ('%u')); -- tostring() required because I don't know why; lua chokes complaining that c is not a string
	~~local name =~~ pattern:~~gsub~~ (~~fcp,~~ '%1'); -- ~~replace bracketed first character [Xx] with selected character from the match~~		name = pattern:gsub ('^%[%a%a%]', c); -- replace bracketed first character [Xx] with selected character from the match

	~~if name:match ('~~(.-)%[(%a)(%a)%](.*)'~~) then -- mixed case optional letters~~
	~~local l~~;
	~~lead, c, l, tail~~ = ~~name~~:~~match~~ ('~~(.-)~~%[(%a)(%a)%]~~(.*)~~');
	~~add_stripped (list~~, ~~lead ..~~ c ~~.. tail~~); -- ~~uppercase~~
	~~add_stripped (list, lead .. l .. tail); -- lowercase~~

	elseif name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$') then -- [ %-]?		if name:match ('(.-)%[(%a)(%a)%](.*)') then -- mixed case optional letters
	lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$');		lead, c, l, tail = name:match ('(.-)%[(%a)(%a)%](.*)');
	add_stripped (list, lead .. tail); -- neither char		add_stripped (list, lead .. c .. tail); -- uppercase
	add_stripped (list, lead .. ' ' .. tail); -- space		add_stripped (list, lead .. l .. tail); -- lowercase
	add_stripped (list, lead .. '-' .. tail); -- hyphen
			elseif name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$') then -- [ %-]?
	elseif name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$') then -- [%-]?		lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$');
	lead, c, tail = name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$');		add_stripped (list, lead .. tail); -- neither char
	add_stripped (list, lead .. tail); -- no hyphen		add_stripped (list, lead .. ' ' .. tail); -- space
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%[]+)(%[ %%%-%])(.+)$') then -- [ %-]		elseif name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$') then -- [%-]?
	lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%])(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$');
	add_stripped (list, lead .. ' ' .. tail); -- space		add_stripped (list, lead .. tail); -- no hyphen
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%?]+)(%%%-%?)(.+)$') then -- %-?		elseif name:match ('^([^%[]+)(%[ %%%-%])(.+)$') then -- [ %-]
	lead, c, tail = name:match ('^([^%?]+)(%%%-%?)(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%])(.+)$');
	add_stripped (list, lead .. tail); -- no hyphen		add_stripped (list, lead .. ' ' .. tail); -- space
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^(.-)(%%%-)(.+)$') then -- %-		elseif name:match ('^([^%?]+)(%%%-%?)(.+)$') then -- %-?
	lead, c, tail = name:match ('^(.-)(%%%-)(.+)$');		lead, c, tail = name:match ('^([^%?]+)(%%%-%?)(.+)$');
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. tail); -- no hyphen
			add_stripped (list, lead .. '-' .. tail); -- hyphen

			elseif name:match ('^(.-)(%%%-)(.+)$') then -- %-
			lead, c, tail = name:match ('^(.-)(%%%-)(.+)$');
			add_stripped (list, lead .. '-' .. tail); -- hyphen

			elseif name:match ('^(.-)(.)%?(.*)$') then -- .?
			lead, c, tail = name:match ('^(.-)(.)%?(.*)$');
			add_stripped (list, lead .. tail); -- no character
			add_stripped (list, lead .. c .. tail); -- character

	~~elseif name:match ('^(.-)(.)%?(.*)$') then -- .?~~		else
	~~lead, c, tail = name:match ('^(.-)(.)%?(.*)$');~~		add_stripped (list, name); -- no patterns so save as is
	~~add_stripped (list, lead .. tail); -- no character~~
	~~add_stripped (list, lead .. c .. tail); -- character~~

	~~else~~
	add_stripped (list, name); -- no patterns so save as is
	~~end~~
	end		end
	end		end
Line 300:		Line 296:
	}) do		}) do
	for _, pattern in ipairs (t[1]) do -- for each patern in *_template_patterns		for _, pattern in ipairs (t[1]) do -- for each patern in *_template_patterns
	pattern_convert (pattern, t[2]) -- ~~conver~~ and store in known_templates_*		pattern_convert (pattern, t[2]) -- convert and store in known_templates_*
	end		end
	end		end

imported>Trappist the monk at 23:01, 22 May 2020

2020-05-22T23:01:23Z

← Older revision		Revision as of 23:01, 22 May 2020
Line 231:		Line 231:

	local function add_stripped (list, name)		local function add_stripped (list, name)
	name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase; TODO: is this the right thing to do?		-- name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase; TODO: is this the right thing to do?
	if not list[name] then		if not list[name] then
	list[name] = true;		list[name] = true;

imported>MusikBot II: Protected "Module:Footnotes/anchor id list/data": High-risk template or module (more info) ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

2020-05-22T18:00:04Z

Protected "Module:Footnotes/anchor id list/data": High-risk template or module (more info) ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

← Older revision	Revision as of 18:00, 22 May 2020
(No difference)

imported>Trappist the monk at 17:40, 21 May 2020

2020-05-21T17:40:50Z

← Older revision		Revision as of 17:40, 21 May 2020
Line 2:		Line 2:
	-- for this application just make lists from the redirect lists and force all template names lower case?		-- for this application just make lists from the redirect lists and force all template names lower case?
	-- yes lowercase because Footnotes/anchor id list template_name_get() returns lowercase		-- yes lowercase because Footnotes/anchor id list template_name_get() returns lowercase
			--
			-- TODO: but is that really the right thing to do?


	--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------		--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------
Line 205:		Line 208:


	--[[--------------------------< ~~C S 1 2~~ _ S T ~~R I P~~ P E ~~D _ L I~~ S T >------------------------------------------		--[[--------------------------< K N O W N _ T E M P L A T E S >------------------------------------------------

	~~This table is~~ created from ~~cs1_template_patterns and cs2_template_patterns~~. To make ~~this table~~, entries in		These tables are created from the *_template_patterns tables. To make these tables, entries in the source tables
	the source tables are evaluated to replace lua patterns with the appropriate characters ~~and~~ create names for		are evaluated to replace lua patterns with the appropriate characters to create names for the output tables.
	~~this list. This list is used to identify cs1\|2 templates when counting and listing cs1-like templates~~.

	For example:		For example:
Line 221:		Line 223:
	]]		]]

	local known_templates_cs12 = {};		local known_templates_cs12 = {}; -- the exported tables
	local known_templates_vcite = {};		local known_templates_vcite = {};
	local known_templates_harvc = {};		local known_templates_harvc = {};
Line 229:		Line 231:

	local function add_stripped (list, name)		local function add_stripped (list, name)
	name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase		name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase; TODO: is this the right thing to do?
	if not list[name] then		if not list[name] then
	list[name] = true;		list[name] = true;
Line 287:		Line 289:
	end		end

			for _, t in ipairs ({
	for _, ~~list~~ in ipairs ({cs1_template_patterns, cs2_template_patterns, ~~cs1_like_template_patterns~~}~~) do~~		{cs1_template_patterns, known_templates_cs12},
	~~for _~~, ~~pattern in ipairs (list) do~~		{cs2_template_patterns, known_templates_cs12},
	~~pattern_convert (pattern~~, ~~known_templates_cs12)~~		{cs1_like_template_patterns, known_templates_cs12},
	~~end~~		{vcite_template_patterns, known_templates_vcite},
	~~end~~		{harvc_template_patterns, known_templates_harvc},
			{wikicite_template_patterns, known_templates_wikicite},
	~~for _, pattern in ipairs (~~vcite_template_patterns~~) do~~		{anchor_template_patterns, known_templates_anchor},
	~~pattern_convert (pattern~~, known_templates_vcite)		{sfn_whitelist_patterns, known_templates_sfn_whitelist},
	~~end~~		}) do
			for _, pattern in ipairs (t[1]) do -- for each patern in *_template_patterns
	~~for _~~, ~~pattern in ipairs (harvc_template_patterns) do~~		pattern_convert (pattern, t[2]) -- conver and store in known_templates_*
	~~pattern_convert (pattern~~, known_templates_harvc)		end
	~~end~~

	~~for _~~, ~~pattern in ipairs (wikicite_template_patterns) do~~
	~~pattern_convert (pattern~~, known_templates_wikicite)
	~~end~~

	~~for _~~, ~~pattern in ipairs (anchor_template_patterns) do~~
	~~pattern_convert (pattern~~, known_templates_anchor)
	~~end~~

	for _, pattern in ipairs (~~sfn_whitelist_patterns~~) do
	pattern_convert (pattern, ~~known_templates_sfn_whitelist~~)
	end		end

imported>Trappist the monk at 16:44, 21 May 2020

2020-05-21T16:44:39Z

Show changes

imported>Trappist the monk at 14:47, 21 May 2020

2020-05-21T14:47:10Z

← Older revision		Revision as of 14:47, 21 May 2020
Line 318:		Line 318:
	for _, pattern in ipairs (sfn_whitelist_patterns) do		for _, pattern in ipairs (sfn_whitelist_patterns) do
	local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)		local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)
	pattern_convert (~~sfn_whitelist_patterns~~, name);		pattern_convert (known_templates_sfn_whitelist, name);
	name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)		name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
	pattern_convert (~~sfn_whitelist_patterns~~, name);		pattern_convert (known_templates_sfn_whitelist, name);
	end		end

imported>Trappist the monk at 12:41, 21 May 2020

2020-05-21T12:41:03Z

← Older revision		Revision as of 12:41, 21 May 2020
Line 186:		Line 186:

	local anchor_template_patterns = {		local anchor_template_patterns = {
	'[Aa]nchors?',		'[Aa]nchors?', -- anchor is canonical form
	'[Aa]nchor for redirect',		'[Aa]nchor for redirect',
	'[Aa]nchro',		'[Aa]nchro',
	'[Aa]ncor',		'[Aa]ncor',
			}


			--[[--------------------------< S F N _ W H I T E L I S T _ P A T T E R N S >----------------------------------

			These are patterns for the anchor template and its redirects.

			]]

			local sfn_whitelist_patterns = {
			'[Ss]fn whitelist', -- canonical
			'[Hh]arv whitelist',
	}		}

Line 214:		Line 226:
	local known_templates_wikicite = {};		local known_templates_wikicite = {};
	local known_templates_anchor = {};		local known_templates_anchor = {};
			local known_templates_sfn_whitelist = {};

	local function add_stripped (list, name)		local function add_stripped (list, name)
Line 301:		Line 314:
	name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)		name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
	pattern_convert (known_templates_anchor, name);		pattern_convert (known_templates_anchor, name);
			end

			for _, pattern in ipairs (sfn_whitelist_patterns) do
			local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)
			pattern_convert (sfn_whitelist_patterns, name);
			name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
			pattern_convert (sfn_whitelist_patterns, name);
	end		end

Line 314:		Line 334:
	known_templates_vcite = known_templates_vcite,		known_templates_vcite = known_templates_vcite,
	known_templates_wikicite = known_templates_wikicite,		known_templates_wikicite = known_templates_wikicite,
			known_templates_sfn_whitelist = known_templates_sfn_whitelist,
	}		}

imported>Trappist the monk at 21:49, 20 May 2020

2020-05-20T21:49:16Z

← Older revision		Revision as of 17:28, 17 July 2024
Line 79:		Line 79:
	'[Cc]ite [Pp]ress release', -- press release is the canonical form		'[Cc]ite [Pp]ress release', -- press release is the canonical form
	'[Cc]ite media release', '[Cc]ite news release', '[Cc]ite pr',		'[Cc]ite media release', '[Cc]ite news release', '[Cc]ite pr',
	'[Cc]ite press', '[Cc]ite press release\.', '[Cc]ite press[%-]?release',		'[Cc]ite press', '[Cc]ite press release%.', '[Cc]ite press[%-]?release',

	'[Cc]ite report', -- canonical		'[Cc]ite report', -- canonical
Line 99:		Line 99:
	'[Cc]ite [Ww]eb', -- web is the canonical form		'[Cc]ite [Ww]eb', -- web is the canonical form
	'[Cc] web', '[Cc]it web', '[Cc]ite blog', '[Cc]ite URL', '[Cc]ite url',		'[Cc] web', '[Cc]it web', '[Cc]ite blog', '[Cc]ite URL', '[Cc]ite url',
	'[Cc]ite w', '[Cc]ite wb', '[Cc]ite we', '[Cc]ite web\.',		'[Cc]ite w', '[Cc]ite wb', '[Cc]ite we', '[Cc]ite web%.',
	'[Cc]ite webpage', '[Cc]ite website', '[Cc]ite website article',		'[Cc]ite webpage', '[Cc]ite website', '[Cc]ite website article',
	'[Cc]ite%-?web', '[Cc]itweb', '[Cc]w', '[Rr]ef web', '[Ww]eb citation',		'[Cc]ite%-?web', '[Cc]itweb', '[Cc]w', '[Rr]ef web', '[Ww]eb citation',
Line 165:		Line 165:

	local cs1_like_template_patterns = {		local cs1_like_template_patterns = {
	~~'[Cc]ite LSA', -- canonical~~
	}		}

← Older revision		Revision as of 21:49, 20 May 2020
Line 176:		Line 176:
	local wikicite_template_patterns = {		local wikicite_template_patterns = {
	'[Ww]ikicite', -- canonical		'[Ww]ikicite', -- canonical
			}


			--[[--------------------------< A N C H O R _ T E M P L A T E _ P A T T E R N S >------------------------------

			These are patterns for the anchor template and its redirects.

			]]

			local anchor_template_patterns = {
			'[Aa]nchors?',
			'[Aa]nchor for redirect',
			'[Aa]nchro',
			'[Aa]ncor',
	}		}

Line 199:		Line 213:
	local known_templates_harvc = {};		local known_templates_harvc = {};
	local known_templates_wikicite = {};		local known_templates_wikicite = {};
			local known_templates_anchor = {};

	local function add_stripped (list, name)		local function add_stripped (list, name)
Line 212:		Line 227:
	local l;		local l;
	lead, c, l, tail = name:match ('(.-)%[(%a)(%a)%](.*)');		lead, c, l, tail = name:match ('(.-)%[(%a)(%a)%](.*)');
	add_stripped (list, lead .. c .. tail); -- uppercase		add_stripped (list, lead .. c .. tail); -- uppercase
	add_stripped (list, lead .. l .. tail); -- lowercase		add_stripped (list, lead .. l .. tail); -- lowercase

	elseif name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$') then -- [ %-]?		elseif name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$') then -- [ %-]?
	lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$');
	add_stripped (list, lead .. tail); -- neither char		add_stripped (list, lead .. tail); -- neither char
	add_stripped (list, lead .. ' ' .. tail); -- space		add_stripped (list, lead .. ' ' .. tail); -- space
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$') then -- [%-]?		elseif name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$') then -- [%-]?
	lead, c, tail = name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$');
	add_stripped (list, lead .. tail); -- no hyphen		add_stripped (list, lead .. tail); -- no hyphen
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%[]+)(%[ %%%-%])(.+)$') then -- [ %-]		elseif name:match ('^([^%[]+)(%[ %%%-%])(.+)$') then -- [ %-]
	lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%])(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%])(.+)$');
	add_stripped (list, lead .. ' ' .. tail); -- space		add_stripped (list, lead .. ' ' .. tail); -- space
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%?]+)(%%%-%?)(.+)$') then -- %-?		elseif name:match ('^([^%?]+)(%%%-%?)(.+)$') then -- %-?
	lead, c, tail = name:match ('^([^%?]+)(%%%-%?)(.+)$');		lead, c, tail = name:match ('^([^%?]+)(%%%-%?)(.+)$');
	add_stripped (list, lead .. tail); -- no hyphen		add_stripped (list, lead .. tail); -- no hyphen
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^(.-)(%%%-)(.+)$') then -- %-		elseif name:match ('^(.-)(%%%-)(.+)$') then -- %-
	lead, c, tail = name:match ('^(.-)(%%%-)(.+)$');		lead, c, tail = name:match ('^(.-)(%%%-)(.+)$');
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^(.-)(.)%?(.*)$') then -- .?		elseif name:match ('^(.-)(.)%?(.*)$') then -- .?
	lead, c, tail = name:match ('^(.-)(.)%?(.*)$');		lead, c, tail = name:match ('^(.-)(.)%?(.*)$');
	add_stripped (list, lead .. tail); -- no character		add_stripped (list, lead .. tail); -- no character
	add_stripped (list, lead .. c .. tail); -- character		add_stripped (list, lead .. c .. tail); -- character

	else		else
	add_stripped (list, name); -- no patterns so save as is		add_stripped (list, name); -- no patterns so save as is
	end		end
	end		end
Line 279:		Line 294:
	name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)		name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
	pattern_convert (known_templates_wikicite, name);		pattern_convert (known_templates_wikicite, name);
			end

			for _, pattern in ipairs (anchor_template_patterns) do
			local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)
			pattern_convert (known_templates_anchor, name);
			name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
			pattern_convert (known_templates_anchor, name);
	end		end

Line 287:		Line 309:
	return		return
	{		{
			known_templates_anchor = known_templates_anchor,
	known_templates_cs12 = known_templates_cs12,		known_templates_cs12 = known_templates_cs12,
	known_templates_harvc = known_templates_harvc,		known_templates_harvc = known_templates_harvc,