Module:Citation/CS1/sandbox - Revision history

Trappist the monk at 00:38, 14 May 2025

2025-05-14T00:38:15Z

Trappist the monk at 22:07, 10 May 2025

2025-05-10T22:07:38Z

← Previous revision		Revision as of 22:07, 10 May 2025
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: 2025-04-12		History of changes since last sync: 2025-04-12

			2025-05-10: maint cat to track {{cite journal}} templates misusing \|page= for \|article-number=; see Help_talk:Citation_Style_1#\|page=_same_value_as_last_n-digits_of_\|doi=

	]]		]]

Trappist the monk at 18:48, 27 April 2025

2025-04-27T18:48:06Z

← Previous revision		Revision as of 18:48, 27 April 2025
Line 2,754:		Line 2,754:

	local function is_page_art_num (page, doi)		local function is_page_art_num (page, doi)
			if not (utilities.is_set (page) and utilities.is_set (doi)) then -- both required
⚫	if page:match ('~~[,;_−–—‒%-]~~') then -- ~~skip~~ when \|page(s)= ~~might~~ be ~~a page range or~~ a ~~separated list of pages~~
			return; -- abandon; nothing to do
	return;
	end		end

	if page:match ('~~http~~') then -- ~~skip~~ when \|page(s)= ~~appears~~ to ~~hold~~ a ~~url~~		if page:match ('[,;_−–—‒%-]') then -- when \|page(s)= might be a page range or a separated list of pages
	return;		return; -- abandon
			end

			page = page:lower(); -- because doi names are case insensitive
			doi = doi:lower(); -- force these to lowercase for testing

		⚫	if page:match ('http') then -- when \|page(s)= appears to hold a url
			return; -- abandon
	end		end

	if tonumber (page) then -- is \|page(s)= digits only		if tonumber (page) then -- is \|page(s)= digits only
	if 10000 > tonumber (page) then -- ~~skip~~ when \|page(s)= less than 10000		if 10000 > tonumber (page) then -- when \|page(s)= less than 10000
	return;		return; -- abandon
	end		end

Line 2,784:		Line 2,791:
	end		end

	local epage = page:match ('^e([%w%d]+)$'); -- if first character of \|page= is 'e', remove it		local epage = page:match ('^e([%w]+)$'); -- if first character of \|page= is 'e', remove it
	if epage and doi:match (epage .. '$') then -- page number match the last characters in \|doi=?		if epage and doi:match (epage .. '$') then -- page number match the last characters in \|doi=?
	return true;		return true;
	end		end

	local cdpage = page:match ('^CD%d+$'); -- if first characters of \|page= are 'CD' and last characters are digits (typically 6 digits)		local cdpage = page:match ('^cd%d+$'); -- if first characters of \|page= are 'CD' and last characters are digits (typically 6 digits)
	if cdpage and doi:match (cdpage .. '%.pub%d$') then -- page number matches doi 'CDxxxxxx.pubx' where 'x' is a digit		if cdpage and doi:match (cdpage .. '%.pub%d$') then -- page number matches doi 'CDxxxxxx.pubx' where 'x' is a digit
	return true;		return true;

Trappist the monk at 17:02, 27 April 2025

2025-04-27T17:02:30Z

@@ Line 2,726: / Line 2,726: @@
 			utilities.set_message ('maint_publisher_location');					-- set a maint message
 			return;																-- and done
 		end
 	end
@@ Line 3,465: / Line 3,532: @@
 				Title = '';														-- set title to empty string
 				utilities.set_message ('maint_untitled');						-- add maint cat
 	end

Trappist the monk: Removed protection from "Module:Citation/CS1/sandbox": it's a sandbox;

2025-04-13T18:06:21Z

Removed protection from "Module:Citation/CS1/sandbox": it's a sandbox;

← Previous revision	Revision as of 18:06, 13 April 2025
(No difference)

MusikBot II: Protected "Module:Citation/CS1/sandbox": High-risk template or module: 43839 transclusions (more info) ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

2025-04-13T18:00:41Z

Protected "Module:Citation/CS1/sandbox": High-risk template or module: 43839 transclusions (more info) ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

← Previous revision	Revision as of 18:00, 13 April 2025
(No difference)

Trappist the monk: reset changes list;

2025-04-12T19:59:31Z

reset changes list;

← Previous revision		Revision as of 19:59, 12 April 2025
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: ~~2024~~-12-28		History of changes since last sync: 2025-04-12

	2025-01-05: add module entry points; see Help_talk:Citation_Style_1/Archive_97#Module_support_edit_req
	2025-01-15: tighten protocol-relative url-in-title test; see Help_talk:Citation_Style_1#Double_slash_%28but_not_URL%29_in_title_causes_cite_web_to_think_title_contains_URL
	2025-02-27: emit error message when isbn present for pre-1965 pub date; see Help_talk:Citation_Style_1#isbn_and_pre-isbn_publication_dates
	2025-03-15: maint cat for \|publisher= with location + publisher; see Help_talk:Citation_Style_1#combined_location_and_publisher_in_%7Cpublisher%3D
	2025-03-26: poperties cat for \|vauthors= and \|veditors= that use accept-as-written markup; see Help_talk:Citation_Style_1#Initials_in_Vancouver_style_authors?

	]]		]]

Trappist the monk at 23:27, 5 April 2025

2025-04-05T23:27:22Z

Show changes

Trappist the monk at 23:31, 27 March 2025

2025-03-27T23:31:34Z

← Previous revision		Revision as of 23:31, 27 March 2025
Line 6:		Line 6:
	2025-02-27: emit error message when isbn present for pre-1965 pub date; see Help_talk:Citation_Style_1#isbn_and_pre-isbn_publication_dates		2025-02-27: emit error message when isbn present for pre-1965 pub date; see Help_talk:Citation_Style_1#isbn_and_pre-isbn_publication_dates
	2025-03-15: maint cat for \|publisher= with location + publisher; see Help_talk:Citation_Style_1#combined_location_and_publisher_in_%7Cpublisher%3D		2025-03-15: maint cat for \|publisher= with location + publisher; see Help_talk:Citation_Style_1#combined_location_and_publisher_in_%7Cpublisher%3D
			2025-03-26: poperties cat for \|vauthors= and \|veditors= that use accept-as-written markup; see Help_talk:Citation_Style_1#Initials_in_Vancouver_style_authors?

	]]		]]

Trappist the monk at 17:59, 26 March 2025

2025-03-26T17:59:24Z

← Previous revision		Revision as of 17:59, 26 March 2025
Line 2,042:		Line 2,042:
	local function get_v_name_table (vparam, output_table, output_link_table)		local function get_v_name_table (vparam, output_table, output_link_table)
	if utilities.has_accept_as_written (vparam) then		if utilities.has_accept_as_written (vparam) then
	utilities.add_prop_cat ('~~vanc_accept~~'); -- add ~~porpoerties~~ category		utilities.add_prop_cat ('vanc-accept'); -- add properties category
	end		end
	local name_table = mw.text.split(vparam, "%s,%s"); -- names are separated by commas		local name_table = mw.text.split(vparam, "%s,%s"); -- names are separated by commas

← Previous revision		Revision as of 00:38, 14 May 2025
Line 4,460:		Line 4,460:
	_, value, _ = utilities.is_wikilink (value); -- extract label portion from wikilink		_, value, _ = utilities.is_wikilink (value); -- extract label portion from wikilink
	end		end

	return value;		return value;
	end		end
Line 4,561:		Line 4,562:

	frame – from template call (citation()); may be nil when called from another module		frame – from template call (citation()); may be nil when called from another module
	~~args~~ – table of all cs1\|2 parameters in the template (the ~~template~~ frame)		args_t – table of all cs1\|2 parameters in the template (the parent frame)
	~~config~~ – table of template-supplied parameter (the #invoke frame)		config_t – table of template-supplied parameter (the #invoke frame)

	]]		]]

	local function _citation (frame, ~~args~~, ~~config~~) -- save a copy in case we need to display an error message in preview mode		local function _citation (frame, args_t, config_t) -- save a copy in case we need to display an error message in preview mode
	if not frame then		if not frame then
	frame = mw.getCurrentFrame(); -- if called from another module, get a frame for frame-provided functions		frame = mw.getCurrentFrame(); -- if called from another module, get a frame for frame-provided functions
	end		end
	-- i18n: set the name that your wiki uses to identify sandbox subpages from sandbox template invoke (or can be set here)		-- i18n: set the name that your wiki uses to identify sandbox subpages from sandbox template invoke (or can be set here)
	local sandbox = ((~~config~~.SandboxPath and '' ~= ~~config~~.SandboxPath) and ~~config~~.SandboxPath) or '/sandbox'; -- sandbox path from {{#invoke:Citation/CS1/sandbox\|citation\|SandboxPath=/...}}		local sandbox = ((config_t.SandboxPath and '' ~= config_t.SandboxPath) and config_t.SandboxPath) or '/sandbox'; -- sandbox path from {{#invoke:Citation/CS1/sandbox\|citation\|SandboxPath=/...}}
	is_sandbox = nil ~= string.find (frame:getTitle(), sandbox, 1, true); -- is this invoke the sandbox module?		is_sandbox = nil ~= string.find (frame:getTitle(), sandbox, 1, true); -- is this invoke the sandbox module?
	sandbox = is_sandbox and sandbox or ''; -- use i18n sandbox to load sandbox modules when this module is the sandox; live modules else		sandbox = is_sandbox and sandbox or ''; -- use i18n sandbox to load sandbox modules when this module is the sandox; live modules else
Line 4,588:		Line 4,589:

	z = utilities.z; -- table of error and category tables in Module:Citation/CS1/Utilities		z = utilities.z; -- table of error and category tables in Module:Citation/CS1/Utilities
			local cite_args_t = {}; -- because args_t is the parent (template) frame args (which cannot be modified); params and their values will be placed here

	is_preview_mode = not utilities.is_set (frame:preprocess ('{{REVISIONID}}'));		is_preview_mode = not utilities.is_set (frame:preprocess ('{{REVISIONID}}'));
Line 4,596:		Line 4,598:
	local capture; -- the single supported capture when matching unknown parameters using patterns		local capture; -- the single supported capture when matching unknown parameters using patterns
	local empty_unknowns = {}; -- sequence table to hold empty unknown params for error message listing		local empty_unknowns = {}; -- sequence table to hold empty unknown params for error message listing
	for k, v in pairs( ~~args~~ ) do -- get parameters from the parent (template) frame		for k, v in pairs (args_t) do -- get parameters from the parent (template) frame
	v = mw.ustring.gsub (v, '^%s(.-)%s$', '%1'); -- trim leading/trailing whitespace; when v is only whitespace, becomes empty string		v = mw.ustring.gsub (v, '^%s(.-)%s$', '%1'); -- trim leading/trailing whitespace; when v is only whitespace, becomes empty string
	if v ~= '' then		if v ~= '' then
Line 4,602:		Line 4,604:
	k = mw.ustring.gsub (k, '%d', cfg.date_names.local_digits); -- for enumerated parameters, translate 'local' digits to Western 0-9		k = mw.ustring.gsub (k, '%d', cfg.date_names.local_digits); -- for enumerated parameters, translate 'local' digits to Western 0-9
	end		end
	if not validate( k, ~~config~~.CitationClass ) then		if not validate( k, config_t.CitationClass ) then
	if type (k) ~= 'string' then -- exclude empty numbered parameters		if type (k) ~= 'string' then -- exclude empty numbered parameters
	if v:match("%S+") ~= nil then		if v:match("%S+") ~= nil then
	error_text = utilities.set_message ('err_text_ignored', {v});		error_text = utilities.set_message ('err_text_ignored', {v});
	end		end
	elseif validate (k:lower(), ~~config~~.CitationClass) then		elseif validate (k:lower(), config_t.CitationClass) then
	error_text = utilities.set_message ('err_parameter_ignored_suggest', {k, k:lower()}); -- suggest the lowercase version of the parameter		error_text = utilities.set_message ('err_parameter_ignored_suggest', {k, k:lower()}); -- suggest the lowercase version of the parameter
	else		else
Line 4,617:		Line 4,619:
	if capture then -- if the pattern matches		if capture then -- if the pattern matches
	param = utilities.substitute (param, capture); -- add the capture to the suggested parameter (typically the enumerator)		param = utilities.substitute (param, capture); -- add the capture to the suggested parameter (typically the enumerator)
	if validate (param, ~~config~~.CitationClass) then -- validate the suggestion to make sure that the suggestion is supported by this template (necessary for limited parameter lists)		if validate (param, config_t.CitationClass) then -- validate the suggestion to make sure that the suggestion is supported by this template (necessary for limited parameter lists)
	error_text = utilities.set_message ('err_parameter_ignored_suggest', {k, param}); -- set the suggestion error message		error_text = utilities.set_message ('err_parameter_ignored_suggest', {k, param}); -- set the suggestion error message
	else		else
Line 4,626:		Line 4,628:
	end		end
	if not utilities.is_set (error_text) then -- couldn't match with a pattern, is there an explicit suggestion?		if not utilities.is_set (error_text) then -- couldn't match with a pattern, is there an explicit suggestion?
	if (suggestions.suggestions[ k:lower() ] ~= nil) and validate (suggestions.suggestions[ k:lower() ], ~~config~~.CitationClass) then		if (suggestions.suggestions[ k:lower() ] ~= nil) and validate (suggestions.suggestions[ k:lower() ], config_t.CitationClass) then
	utilities.set_message ('err_parameter_ignored_suggest', {k, suggestions.suggestions[ k:lower() ]});		utilities.set_message ('err_parameter_ignored_suggest', {k, suggestions.suggestions[ k:lower() ]});
	else		else
Line 4,636:		Line 4,638:
	end		end

	~~args~~[k] = v; -- save this parameter and its value		cite_args_t[k] = v; -- save this parameter and its value

	elseif not utilities.is_set (v) then -- for empty parameters		elseif not utilities.is_set (v) then -- for empty parameters
	if not validate (k, ~~config~~.CitationClass, true) then -- is this empty parameter a valid parameter		if not validate (k, config_t.CitationClass, true) then -- is this empty parameter a valid parameter
	k = ('' == k) and '(empty string)' or k; -- when k is empty string (or was space(s) trimmed to empty string), replace with descriptive text		k = ('' == k) and '(empty string)' or k; -- when k is empty string (or was space(s) trimmed to empty string), replace with descriptive text
	table.insert (empty_unknowns, utilities.wrap_style ('parameter', k)); -- format for error message and add to the list		table.insert (empty_unknowns, utilities.wrap_style ('parameter', k)); -- format for error message and add to the list
	end		end
			end
	-- crude debug support that allows us to render a citation from module {{#invoke:}} TODO: keep?
	-- elseif args[k] ~= nil or (k == 'postscript') then -- when args[k] has a value from {{#invoke}} frame (we don't normally do that)
	-- args[k] = v; -- overwrite args[k] with empty string from pframe.args[k] (template frame); v is empty string here
	end -- not sure about the postscript bit; that gets handled in parameter validation; historical artifact?
	end		end

Line 4,659:		Line 4,658:
	local url_param_t = {}; -- table of url-holding paramters and their values		local url_param_t = {}; -- table of url-holding paramters and their values

	for k, v in pairs( ~~args~~ ) do		for k, v in pairs (cite_args_t) do

	if 'string' == type (k) then -- don't evaluate positional parameters		if 'string' == type (k) then -- don't evaluate positional parameters
	has_invisible_chars (k, v); -- look for invisible characters		has_invisible_chars (k, v); -- look for invisible characters
Line 4,665:		Line 4,665:
	has_extraneous_punc (k, v); -- look for extraneous terminal punctuation in parameter values		has_extraneous_punc (k, v); -- look for extraneous terminal punctuation in parameter values
	missing_pipe_check (k, v); -- do we think that there is a parameter that is missing a pipe?		missing_pipe_check (k, v); -- do we think that there is a parameter that is missing a pipe?
	~~args~~[k] = inter_wiki_check (k, v); -- when language interwiki-linked parameter missing leading colon replace with wiki-link label		cite_args_t[k] = inter_wiki_check (k, v); -- when language interwiki-linked parameter missing leading colon replace with wiki-link label

	if 'string' == type (k) then -- when parameter k is not positional		if 'string' == type (k) then -- when parameter k is not positional
Line 4,678:		Line 4,678:
	has_extraneous_url (non_url_param_t); -- look for url in parameter values where a url does not belong		has_extraneous_url (non_url_param_t); -- look for url in parameter values where a url does not belong
	if has_twl_url (url_param_t) then -- look for url-holding parameters that hold a The Wikipedia Library url		if has_twl_url (url_param_t) then -- look for url-holding parameters that hold a The Wikipedia Library url
	~~args~~['url-access'] = 'subscription';		cite_args_t['url-access'] = 'subscription';
	end		end
	return table.concat ({		return table.concat ({
	frame:extensionTag ('templatestyles', '', {src='Module:Citation/CS1' .. sandbox .. '/styles.css'}),		frame:extensionTag ('templatestyles', '', {src='Module:Citation/CS1' .. sandbox .. '/styles.css'}),
	citation0( ~~config~~, ~~args~~)		citation0 (config_t, cite_args_t)
	});		});
	end		end