모듈:Citation/CS1/Date validation - 편집 역사

2016년 4월 30일 (토) 05:55에 imported>Namoroka님의 편집

2016-04-30T05:55:54Z

2015년 12월 28일 (월) 10:56에 imported>Namoroka님의 편집

2015-12-28T10:56:29Z

← 이전 판		2015년 12월 28일 (월) 19:56 판
185번째 줄:		185번째 줄:
	end		end
	end		end


	--[[--------------------------< I S _ V A L I D _ M O N T H _ S E A S O N _ R A N G E >------------------------		--[[--------------------------< I S _ V A L I D _ M O N T H _ S E A S O N _ R A N G E >------------------------

2015년 12월 28일 (월) 10:55에 imported>Namoroka님의 편집

2015-12-28T10:55:40Z

← 이전 판		2015년 12월 28일 (월) 19:55 판
535번째 줄:		535번째 줄:
	return true, anchor_year; -- format is good and date string represents a real date		return true, anchor_year; -- format is good and date string represents a real date
	end		end


	--[[--------------------------< D A T E S >--------------------------------------------------------------------		--[[--------------------------< D A T E S >--------------------------------------------------------------------

2015년 12월 28일 (월) 10:54에 imported>Namoroka님의 편집

2015-12-28T10:54:22Z

← 이전 판		2015년 12월 28일 (월) 19:54 판
161번째 줄:		161번째 줄:
	end		end
	return true;		return true;
			end

			--[[--------------------------< I S _ V A L I D _ M O N T H _ R A N G E _ S T Y L E >--------------------------

			Months in a range are expected to have the same style: Jan–Mar or October–December but not February–Mar or Jul–August.
			There is a special test for May because it can be either short or long form.

			Returns true when style for both months is the same

			]]

			local function is_valid_month_range_style (month1, month2)
			local len1 = month1:len();
			local len2 = month2:len();
			if len1 == len2 then
			return true; -- both months are short form so return true
			elseif 'May' == month1 or 'May'== month2 then
			return true; -- both months are long form so return true
			elseif 3 == len1 or 3 == len2 then
			return false; -- months are mixed form so return false
			else
			return true; -- both months are long form so return true
			end
	end		end

289번째 줄:		312번째 줄:
	--[[--------------------------< C H E C K _ D A T E >----------------------------------------------------------		--[[--------------------------< C H E C K _ D A T E >----------------------------------------------------------

	Check date format to see that it is one of the formats approved by WP:DATESNO or WP:DATERANGE. Exception: only allowed range separator is endash.		Check date format to see that it is one of the formats approved by WP:DATESNO or WP:DATERANGE. Exception: only
	Additionally, check the date to see that it is a real date: no 31 in 30-day months; no 29 February when not a leap year. Months, both long-form and three		allowed range separator is endash. Additionally, check the date to see that it is a real date: no 31 in 30-day
	character abbreviations, and seasons must be spelled correctly. Future years beyond next year are not allowed.		months; no 29 February when not a leap year. Months, both long-form and three character abbreviations, and seasons
			must be spelled correctly. Future years beyond next year are not allowed.

	If the date fails the format tests, this function returns false and does not return values for anchor_year and COinS_date. When this happens, the date parameter is		If the date fails the format tests, this function returns false and does not return values for anchor_year and
	used in the COinS metadata and the CITEREF identifier gets its year from the year parameter if present otherwise CITEREF does not get a date value.		COinS_date. When this happens, the date parameter is used in the COinS metadata and the CITEREF identifier gets
			its year from the year parameter if present otherwise CITEREF does not get a date value.

	Inputs:		Inputs:
303번째 줄:		328번째 줄:
	true, anchor_year, COinS_date		true, anchor_year, COinS_date
	anchor_year can be used in CITEREF anchors		anchor_year can be used in CITEREF anchors
	~~COinS_date is date_string without anchor_year disambiguator if any -- this is being obsoleted. In future:~~
	COinS_date is ISO 8601 format date; see make_COInS_date()		COinS_date is ISO 8601 format date; see make_COInS_date()

	]]		]]

	local function check_date (date_string, tCOinS_date)		local function check_date (date_string, tCOinS_date)
	local year; -- assume that year2, months, and days are not used;		local year; -- assume that year2, months, and days are not used;
408번째 줄:		434번째 줄:
	end		end

	elseif date_string:match ("^%a+–%a+ +[1-9]%d%d%d%a?$") then -- month/season range year; months separated by endash		elseif date_string:match ("^%a+–%a+ +[1-9]%d%d%d%a?$") then -- month/season range year; months separated by endash
	month, month2, anchor_year, year=date_string:match ("(%a+)–(%a+)%s*((%d%d%d%d)%a?)");		month, month2, anchor_year, year=date_string:match ("(%a+)–(%a+)%s*((%d%d%d%d)%a?)");
	if (not is_valid_month_season_range(month, month2)) or (not is_valid_year(year)) then return false; end		if (not is_valid_month_season_range(month, month2)) or (not is_valid_year(year)) then return false; end
481번째 줄:		507번째 줄:

	else		else
	return false; -- date format not one of the MOS:DATE approved formats		return false; -- date format not one of the MOS:DATE approved formats
	end		end

	local result=true; -- check whole dates for validity; assume true because not all dates will go through this test		local result=true; -- check whole dates for validity; assume true because not all dates will go through this test
	if 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 == month2 and 0 == day2 then -- YMD (simple whole date)		if 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 == month2 and 0 == day2 then -- YMD (simple whole date)
	result=is_valid_date(year,month,day);		result=is_valid_date(year,month,day);
502번째 줄:		528번째 줄:

	if false == result then return false; end		if false == result then return false; end
	~~-- if here, then date_string is valid; get coins_date from date_string (leave CITEREF disambiguator) ...~~
	~~-- coins_date=date_string:match("^(.+%d)%a?$"); -- last character of valid disambiguatable date is always a digit~~
	~~-- coins_date= mw.ustring.gsub(coins_date, "–", "-" ); -- ... and replace any ndash with a hyphen~~

	if nil ~= tCOinS_date then -- this table only passed into this function when testing \|date= parameter values		if nil ~= tCOinS_date then -- this table only passed into this function when testing \|date= parameter values
510번째 줄:		533번째 줄:
	end		end

	return true, anchor_year; ~~-- format is good and date string represents a real date~~		return true, anchor_year; -- format is good and date string represents a real date
	~~-- return true, anchor_year, coins_date;~~ -- format is good and date string represents a real date
	end		end

2015년 12월 28일 (월) 10:51에 imported>Namoroka님의 편집

2015-12-28T10:51:21Z

차이 보기

imported>Namoroka: 최신판

2015-12-15T12:40:06Z

최신판

차이 보기

2015년 12월 15일 (화) 12:37에 imported>Namoroka님의 편집

2015-12-15T12:37:34Z

차이 보기

2015년 12월 14일 (월) 10:21에 imported>Namoroka님의 편집

2015-12-14T10:21:34Z

차이 보기

imported>콩가루: 사용자가 "모듈:Citation/CS1/Date validation" 문서를 보호했습니다: 훼손시 영향이 큰 틀 문서 ([편집=자동 인증된 사용자만 허용] (무기한) [옮기기=자동 인증된 사용자만 허용] (무기한))

2015-01-31T10:53:13Z

사용자가 "모듈:Citation/CS1/Date validation" 문서를 보호했습니다: 훼손시 영향이 큰 틀 문서 ([편집=자동 인증된 사용자만 허용] (무기한) [옮기기=자동 인증된 사용자만 허용] (무기한))

← 이전 판	2015년 1월 31일 (토) 19:53 판
(차이 없음)

2014년 12월 31일 (수) 09:15에 imported>Namoroka님의 편집

2014-12-31T09:15:37Z

← 이전 판		2014년 12월 31일 (수) 18:15 판
44번째 줄:		44번째 줄:

	--[[--------------------------< I S _ V A L I D _ Y E A R >----------------------------------------------------		--[[--------------------------< I S _ V A L I D _ Y E A R >----------------------------------------------------

	Function gets current year from the server and compares it to year from a citation parameter. Years more than one year in the future are not acceptable.		Function gets current year from the server and compares it to year from a citation parameter. Years more than one year in the future are not acceptable.

	]]		]]

	function is_valid_year(year)		function is_valid_year(year)
	if not is_set(year_limit) then		if not is_set(year_limit) then
304번째 줄:		305번째 줄:
	if false == result then return false; end		if false == result then return false; end
	-- if here, then date_string is valid; get coins_date from date_string (leave CITEREF disambiguator) ...		-- if here, then date_string is valid; get coins_date from date_string (leave CITEREF disambiguator) ...
	coins_date= mw.ustring.match(date_string, "^(.+%d)%a?$"); -- last character of valid disambiguatable date is always a digit -- LOCAL		coins_date= mw.ustring.match(date_string, "^(.+%d)%a?$"); -- last character of valid disambiguatable date is always a digit -- LOCAL
	coins_date= mw.ustring.gsub(coins_date, "–", "-" ); -- ... and replace any ndash with a hyphen		coins_date= mw.ustring.gsub(coins_date, "–", "-" ); -- ... and replace any ndash with a hyphen

311번째 줄:		312번째 줄:

	--[[--------------------------< D A T E S >--------------------------------------------------------------------		--[[--------------------------< D A T E S >--------------------------------------------------------------------

	Cycle the date-holding parameters in passed table date_parameters_list through check_date() to check compliance with MOS:DATE. For all valid dates, check_date() returns		Cycle the date-holding parameters in passed table date_parameters_list through check_date() to check compliance with MOS:DATE. For all valid dates, check_date() returns
	true. The \|date= parameter test is unique, it is the only date holding parameter from which values for anchor_year (used in CITEREF identifiers) and COinS_date (used in		true. The \|date= parameter test is unique, it is the only date holding parameter from which values for anchor_year (used in CITEREF identifiers) and COinS_date (used in
	the COinS metadata) are derived. The \|date= parameter is the only date-holding parameter that is allowed to contain the no-date keywords "n.d." or "nd" (without quotes).		the COinS metadata) are derived. The \|date= parameter is the only date-holding parameter that is allowed to contain the no-date keywords "n.d." or "nd" (without quotes).

	Unlike most error messages created in this module, only one error message is created by this function. Because all of the date holding parameters are processed serially,		Unlike most error messages created in this module, only one error message is created by this function. Because all of the date holding parameters are processed serially,
	a single error message is created as the dates are tested.		a single error message is created as the dates are tested.

	]]		]]

326번째 줄:		327번째 줄:
	local error_message ="";		local error_message ="";
	local good_date=false;		local good_date=false;

	for k, v in pairs(date_parameters_list) do -- for each date-holding parameter in the list		for k, v in pairs(date_parameters_list) do -- for each date-holding parameter in the list
	if is_set(v) then -- if the parameter has a value		if is_set(v) then -- if the parameter has a value
356번째 줄:		357번째 줄:
	end		end
	end		end

	return anchor_year, COinS_date, error_message; -- and done		return anchor_year, COinS_date, error_message; -- and done
	end		end

	return p;		return p;