Module:Citation/CS1/Date validation - Revision history

Sushoff: 1 revision imported

2025-10-29T13:59:56Z

1 revision imported

← Older revision	Revision as of 13:59, 29 October 2025
(No difference)

en>Trappist the monk: synch from sandbox;

2025-08-30T21:44:44Z

synch from sandbox;

Sushoff: Created page with "----------------------------< F O R W A R D D E C L A R A T I O N S >-------------------------------------- local add_prop_cat, is_set, in_array, set_message, substitute, wrap_style; -- imported functions from selected Module:Citation/CS1/Utilities local cfg; -- table of tables imported from selected Module:Citation/CS1/Configuration --[[--------------------------< F I L E - S C O P E D E C L A R A T I O N S >--------------------------------..."

2025-02-01T12:38:01Z

Created page with "--[[--------------------------< F O R W A R D D E C L A R A T I O N S >-------------------------------------- ]] local add_prop_cat, is_set, in_array, set_message, substitute, wrap_style; -- imported functions from selected Module:Citation/CS1/Utilities local cfg; -- table of tables imported from selected Module:Citation/CS1/Configuration --[[--------------------------< F I L E - S C O P E D E C L A R A T I O N S >--------------------------------..."

← Older revision	Revision as of 12:38, 1 February 2025
(No difference)

imported>Trappist the monk: sync from sandbox;

2024-08-17T18:39:07Z

sync from sandbox;

Show changes

imported>Trappist the monk: julian date fix;

2024-03-31T15:52:31Z

julian date fix;

← Older revision		Revision as of 15:52, 31 March 2024
Line 327:		Line 327:
	input.year2 = tonumber (input.year2) or lang_object:parseFormattedNumber (input.year2); -- COinS dates are pseudo-ISO 8601 so convert to Arabic numerals		input.year2 = tonumber (input.year2) or lang_object:parseFormattedNumber (input.year2); -- COinS dates are pseudo-ISO 8601 so convert to Arabic numerals

	if ((1582 == input.year) and (10 > input.month)) or (1582 > input.year) then -- if a Julian calendar date		if ((1582 == input.year) and (10 > tonumber(input.month))) or (1582 > input.year) then -- if a Julian calendar date
	tCOinS_date.rftdate = tostring (input.year); -- &rft.date gets year only		tCOinS_date.rftdate = tostring (input.year); -- &rft.date gets year only
	return; -- done		return; -- done

imported>Trappist the monk: sync from sandbox;

2024-03-23T15:32:42Z

sync from sandbox;

← Older revision		Revision as of 15:32, 23 March 2024
Line 327:		Line 327:
	input.year2 = tonumber (input.year2) or lang_object:parseFormattedNumber (input.year2); -- COinS dates are pseudo-ISO 8601 so convert to Arabic numerals		input.year2 = tonumber (input.year2) or lang_object:parseFormattedNumber (input.year2); -- COinS dates are pseudo-ISO 8601 so convert to Arabic numerals

	~~-- start temporary Julian / Gregorian calendar uncertainty detection~~		if ((1582 == input.year) and (10 > input.month)) or (1582 > input.year) then -- if a Julian calendar date
	~~local year = input.year; -- this temporary code to determine the extent of sources dated to the Julian/Gregorian~~
	~~local month = tonumber(input.month); -- interstice 1 October 1582 – 1 January 1926~~
	~~local day = tonumber (input.day);~~
	if ~~(0 ~= day) and -- day must have a value for this to be a whole date~~
	(((1582 == year) and (10 ~~<= month) and (12~~ >~~= month)) or -- any whole 1582 date from 1 October to 31 December or~~
	~~((1926 == year) and (1 == month) and (1 ==~~ input.~~day~~)) or ~~-- 1 January 1926 or~~
	((1582 ~~< year) and (1925~~ >~~= year))) then -- any date 1 January 1583 – 31 December 1925~~
	~~tCOinS_date~~.~~inter_cal_cat = true; -- set category flag true~~
	~~end~~
	~~-- end temporary Julian / Gregorian calendar uncertainty detection~~
	~~if ((1582 == year) and (10 > month)) or (1582 >~~ year) then -- if a Julian calendar date
	tCOinS_date.rftdate = tostring (input.year); -- &rft.date gets year only		tCOinS_date.rftdate = tostring (input.year); -- &rft.date gets year only
	return; -- done		return; -- done

imported>Trappist the monk: sync from sandbox;

2023-11-25T16:42:10Z

sync from sandbox;

← Older revision		Revision as of 16:42, 25 November 2023
Line 1,163:		Line 1,163:
	--[[--------------------------< A R C H I V E _ D A T E _ C H E C K >------------------------------------------		--[[--------------------------< A R C H I V E _ D A T E _ C H E C K >------------------------------------------

	Compare value in \|archive-date= with the timestamp in Wayback machine urls. Emits an error message when \|archive-date=		Compare value in \|archive-date= with the timestamp in Wayback machine urls. Emits an error message with suggested
	does not match the timestamp.		date from the \|archive-url= timestamp in an appropriate format when the value in \|archive-date= does not match
			the timestamp.

			this function never called when any date in a cs1\|2 template has errors

			error message suggests new \|archive-date= value in an appropriate format specified by <df>. <df> is either
			\|df= or cfg.global_df in that order. If <df> is nil, suggested date has format from \|archive-date=. There is
			a caveat: when \|df=dmy or \|df=mdy, the reformatter leaves \|access-date= and \|archive-date= formats as they are.
			The error message suggested date is passed to the formatter as YYYY-MM-DD so when \|df=dmy or \|df=mdy, the format
			is not changed.

	]]		]]

	local function archive_date_check (archive_date, archive_url_timestamp)		local function archive_date_check (archive_date, archive_url_timestamp, df)
	local ~~good~~, ~~archive_date_ts = pcall~~ (~~lang_object.formatDate~~, ~~lang_object~~, '~~Ymd~~', ~~archive_date~~); -- \|archive-date= ~~value to YYYYMMDD~~ format		local archive_date_format = 'dmy-y'; -- holds the date format of date in \|archive-date; default to ymd; 'dmy' used here to spoof reformat_dates()
	-- local ~~archive_date_ts~~ = ~~lang_object:formatDate (~~'~~Ymd~~', ~~archive_date~~); -- \|archive-date= ~~value~~ to ~~YYYYMMDD~~ format
			for _, v_t in ipairs ({{'dMy', 'dmy-all'}, {'Mdy', 'mdy-all'}}) do -- is \|archive-date= format dmy or mdy?
			if archive_date:match (patterns[v_t[1]][1]) then -- does the pattern match?
			archive_date_format = cfg.keywords_xlate[v_t[2]]; -- get appropriate \|df= supported keyword from the i18n translator table
			break;
			end
			end

			local dates_t = {};
			dates_t['archive-date'] = {val=archive_date, name=''}; -- setup to call reformat_dates(); never called when errors so <name> unset as not needed
			reformat_dates (dates_t, 'dmy-y'); -- reformat \|archive-date= to ymd; 'dmy' used here to spoof reformat_dates()
			local archive_url_date = archive_url_timestamp:gsub ('(%d%d%d%d)(%d%d)(%d%d)%d*', '%1-%2-%3'); -- make ymd format date from timestamp

	if ~~good~~ then		if dates_t['archive-date'].val == archive_url_date then -- are the two dates the same
	~~if not archive_url_timestamp:find~~ (~~archive_date_ts~~, ~~1, true~~) ~~then~~ -- ~~plain text find~~; ~~begin search at position 1~~		return; -- yes, done
	set_message ('err_archive_date_url_ts_mismatch'); -- emit an error message		else
	~~end~~		dates_t['archive-date'] = {val=archive_url_date, name=''}; -- setup to call reformat_dates() with the timestamp date
			reformat_dates (dates_t, df or archive_date_format); -- reformat timestamp to format specified by <df> or format used in \|archive-date=
			archive_url_date = dates_t['archive-date'].val;
			set_message ('err_archive_date_url_ts_mismatch', archive_url_date); -- emit an error message
	end		end
	end		end

imported>Trappist the monk: sync from sandbox;

2023-08-12T19:19:06Z

sync from sandbox;

Show changes

imported>Trappist the monk: sync from sandbox;

2023-01-14T14:43:40Z

sync from sandbox;

@@ Line 627: / Line 627: @@
 		if 13 > tonumber(year2) then return false; end							-- don't allow 2003-05 which might be May 2003
-		year2 = century .. year2;													-- add the century to year2 for comparisons
+		year2 = century .. year2;												-- add the century to year2 for comparisons
 		if tonumber(year) >= tonumber(year2) then return false; end				-- left to right, earlier to later, not the same
 		if not is_valid_year(year2) then return false; end						-- no year farther in the future than next year
@@ Line 639: / Line 639: @@
 	else
 		return false;															-- date format not one of the MOS:DATE approved formats
 	end
@@ Line 1,102: / Line 1,108: @@
 				xlate = is_xlateable (month);									-- get translate <month>; returns translation or nil
 				if xlate then
 					date = mw.ustring.gsub (date, month, xlate);				-- replace the English with the translation
 					date_parameters_list[param_name].val = date;				-- save the translated date

imported>Trappist the monk: sync from sandbox;

2022-07-01T17:45:21Z

sync from sandbox;

Show changes

← Older revision		Revision as of 21:44, 30 August 2025
Line 398:		Line 398:
	local patterns_t = {		local patterns_t = {
	-- year-initial numerical year-month-day		-- year-initial numerical year-month-day
	['ymd'] = {'^(%d%d%d%d)%-(%d%d)%-(%d%d)$', 'y', 'm', 'd'},		['ymd'] = {'^([1-9]%d%d%d)%-(%d%d)%-(%d%d)$', 'y', 'm', 'd'},
	-- month-initial: month day, year		-- month-initial: month day, year
	['Mdy'] = {'^(%D-) +([1-9]%d?), +((%d%d%d%d?)%a?)$', 'm', 'd', 'a', 'y'},		['Mdy'] = {'^(%D-) +([1-9]%d?), +(([1-9]%d%d%d?)%a?)$', 'm', 'd', 'a', 'y'},
	-- month-initial day range: month day–day, year; days are separated by endash		-- month-initial day range: month day–day, year; days are separated by endash
	['Md-dy'] = {'^(%D-) +([1-9]%d?)[%-–]([1-9]%d?), +((%d%d%d%d)%a?)$', 'm', 'd', 'd2', 'a', 'y'},		['Md-dy'] = {'^(%D-) +([1-9]%d?)[%-–]([1-9]%d?), +(([1-9]%d%d%d?)%a?)$', 'm', 'd', 'd2', 'a', 'y'},
	-- day-initial: day month year		-- day-initial: day month year
	['dMy'] = {'^([1-9]%d?) +(%D-) +((%d%d%d%d?)%a?)$', 'd', 'm', 'a', 'y'},		['dMy'] = {'^([1-9]%d?) +(%D-) +(([1-9]%d%d%d?)%a?)$', 'd', 'm', 'a', 'y'},
	-- year-initial: year month day; day: 1 or 2 two digits, leading zero allowed; not supported at en.wiki		-- year-initial: year month day; day: 1 or 2 two digits, leading zero allowed; not supported at en.wiki
	-- ['yMd'] = {'^((%d%d%d%d?)%a?) +(%D-) +(%d%d?)$', 'a', 'y', 'm', 'd'},		-- ['yMd'] = {'^(([1-9]%d%d%d?)%a?) +(%D-) +(%d%d?)$', 'a', 'y', 'm', 'd'},
	-- day-range-initial: day–day month year; days are separated by endash		-- day-range-initial: day–day month year; days are separated by endash
	['d-dMy'] = {'^([1-9]%d?)[%-–]([1-9]%d?) +(%D-) +((%d%d%d%d)%a?)$', 'd', 'd2', 'm', 'a', 'y'},		['d-dMy'] = {'^([1-9]%d?)[%-–]([1-9]%d?) +(%D-) +(([1-9]%d%d%d?)%a?)$', 'd', 'd2', 'm', 'a', 'y'},
	-- day initial month-day-range: day month - day month year; uses spaced endash		-- day initial month-day-range: day month - day month year; uses spaced endash
	['dM-dMy'] = {'^([1-9]%d?) +(%D-) +[%-–] +([1-9]%d?) +(%D-) +((%d%d%d%d)%a?)$', 'd', 'm', 'd2', 'm2', 'a', 'y'},		['dM-dMy'] = {'^([1-9]%d?) +(%D-) +[%-–] +([1-9]%d?) +(%D-) +(([1-9]%d%d%d?)%a?)$', 'd', 'm', 'd2', 'm2', 'a', 'y'},
	-- month initial month-day-range: month day – month day, year; uses spaced endash		-- month initial month-day-range: month day – month day, year; uses spaced endash
	['Md-Mdy'] = {'^(%D-) +([1-9]%d?) +[%-–] +(%D-) +([1-9]%d?), +((%d%d%d%d)%a?)$','m', 'd', 'm2', 'd2', 'a', 'y'},		['Md-Mdy'] = {'^(%D-) +([1-9]%d?) +[%-–] +(%D-) +([1-9]%d?), +(([1-9]%d%d%d?)%a?)$','m', 'd', 'm2', 'd2', 'a', 'y'},
	-- day initial month-day-year-range: day month year - day month year; uses spaced endash		-- day initial month-day-year-range: day month year - day month year; uses spaced endash
	['dMy-dMy'] = {'^([1-9]%d?) +(%D-) +(%d%d%d%d) +[%-–] +([1-9]%d?) +(%D-) +((%d%d%d%d)%a?)$', 'd', 'm', 'y', 'd2', 'm2', 'a', 'y2'},		['dMy-dMy'] = {'^([1-9]%d?) +(%D-) +([1-9]%d%d%d?) +[%-–] +([1-9]%d?) +(%D-) +(([1-9]%d%d%d?)%a?)$', 'd', 'm', 'y', 'd2', 'm2', 'a', 'y2'},
	-- month initial month-day-year-range: month day, year – month day, year; uses spaced endash		-- month initial month-day-year-range: month day, year – month day, year; uses spaced endash
	['Mdy-Mdy'] = {'^(%D-) +([1-9]%d?), +(%d%d%d%d) +[%-–] +(%D-) +([1-9]%d?), +((%d%d%d%d)%a?)$', 'm', 'd', 'y', 'm2', 'd2', 'a', 'y2'},		['Mdy-Mdy'] = {'^(%D-) +([1-9]%d?), +([1-9]%d%d%d?) +[%-–] +(%D-) +([1-9]%d?), +(([1-9]%d%d%d?)%a?)$', 'm', 'd', 'y', 'm2', 'd2', 'a', 'y2'},

	-- these date formats cannot be converted, per se, but month name can be rendered short or long		-- these date formats cannot be converted, per se, but month name can be rendered short or long
	-- month/season year - month/season year; separated by spaced endash		-- month/season year - month/season year; separated by spaced endash
	['My-My'] = {'^(%D-) +(%d%d%d%d) +[%-–] +(%D-) +((%d%d%d%d)%a?)$', 'm', 'y', 'm2', 'a', 'y2'},		['My-My'] = {'^(%D-) +([1-9]%d%d%d?) +[%-–] +(%D-) +(([1-9]%d%d%d?)%a?)$', 'm', 'y', 'm2', 'a', 'y2'},
	-- month/season range year; months separated by endash		-- month/season range year; months separated by endash
	['M-My'] = {'^(%D-)[%-–](%D-) +((%d%d%d%d)%a?)$', 'm', 'm2', 'a', 'y'},		['M-My'] = {'^(%D-)[%-–](%D-) +(([1-9]%d%d%d?)%a?)$', 'm', 'm2', 'a', 'y'},
	-- month/season year or proper-name year; quarter year when First Quarter YYYY etc.		-- month/season year or proper-name year; quarter year when First Quarter YYYY etc.
	['My'] = {'^([^%d–]-) +((%d%d%d%d)%a?)$', 'm', 'a', 'y'}, -- this way because endash is a member of %D; %D- will match January–March 2019 when it shouldn't		['My'] = {'^([^%d–]-) +(([1-9]%d%d%d?)%a?)$', 'm', 'a', 'y'}, -- this way because endash is a member of %D; %D- will match January–March 2019 when it shouldn't

	-- these date formats cannot be converted		-- these date formats cannot be converted
	['Sy4-y2'] = {'^(%D-) +((%d%d)%d%d)[%-–]((%d%d)%a?)$'}, -- special case Winter/Summer year-year (YYYY-YY); year separated with unspaced endash		['Sy4-y2'] = {'^(%D-) +(([1-9]%d)%d%d)[%-–]((%d%d)%a?)$'}, -- special case Winter/Summer year-year (YYYY-YY); year separated with unspaced endash
	['Sy-y'] = {'^(%D-) +(%d%d%d%d)[%-–]((%d%d%d%d)%a?)$'}, -- special case Winter/Summer year-year; year separated with unspaced endash		['Sy-y'] = {'^(%D-) +([1-9]%d%d%d?)[%-–](([1-9]%d%d%d?)%a?)$'}, -- special case Winter/Summer year-year; year separated with unspaced endash
	['y-y'] = {'^(%d%d%d%d?)[%-–]((%d%d%d%d?)%a?)$'}, -- year range: YYY-YYY or YYY-YYYY or YYYY–YYYY; separated by unspaced endash; 100-9999		['y-y'] = {'^([1-9]%d%d%d?)[%-–](([1-9]%d%d%d?)%a?)$'}, -- year range: YYY-YYY or YYY-YYYY or YYYY–YYYY; separated by unspaced endash; 100-9999
	['y4-y2'] = {'^((%d%d)%d%d)[%-–]((%d%d)%a?)$'}, -- year range: YYYY–YY; separated by unspaced endash		['y4-y2'] = {'^(([1-9]%d)%d%d)[%-–]((%d%d)%a?)$'}, -- year range: YYYY–YY; separated by unspaced endash
	['y'] = {'^((%d%d%d%d?)%a?)$'}, -- year; here accept either YYY or YYYY		['y'] = {'^(([1-9]%d%d%d?)%a?)$'}, -- year; here accept either YYY or YYYY
	}		}

Line 793:		Line 793:
	year = year_string:match ('(%d%d%d%d?)');		year = year_string:match ('(%d%d%d%d?)');

	if date_string:match ('%d%d%d%d%-%d%d%-%d%d~~') and year_string:match ('%d%d%d%d%a~~') then --special case where both date and year are required YYYY-MM-DD and YYYYx		if date_string:match ('%d%d%d%d%-%d%d%-%d%d') then --special case where both date and year are required YYYY-MM-DD and YYYYx
	date1 = date_string:match ('(%d%d%d%d)');		date1 = date_string:match ('(%d%d%d%d)');
	year = year_string:match ('(%d%d%d%d)');		year = year_string:match ('(%d%d%d%d)');
	if year ~= date1 then		if year ~= date1 then
	result = 0; -- years don't match		result = 0; -- years don't match
	~~else~~		elseif year_string:match ('%d%d%d%d%a') then
	result = 2; -- years match; but because disambiguated, don't add to maint cat		result = 2; -- years match; but because disambiguated, don't add to maint cat
	end		end