Module:Citation/CS1/Date validation: Difference between revisions

 

 

 

]]

 

 

--[=[-------------------------< I S _ V A L I D _ A C C E S S D A T E >----------------------------------------

 

Wikipedia start date is 2001-01-15T00:00:00 UTC which is 979516800 seconds after 1970-01-01T00:00:00 UTC (the start of Unix time)

today is the current date at time 00:00:00 UTC plus 48 hours

if today is 2015-01-01T00:00:00 then

 

This function does not work if it is fed month names for languages other than English. Wikimedia #time: parser

contains a non-English month name because good1 is false after the call to lang.formatDate(). To get around that

call this function with YYYY-MM-DD format dates.

 

local function is_valid_accessdate (accessdate)

local good1, good2;

if good1 and good2 then -- lang.formatDate() returns a timestamp in the local script which which tonumber() may not understand

else

end

 

--[[--------------------------< G E T _ M O N T H _ N U M B E R >----------------------------------------------

 

 

]]

 

local function get_month_number (month)

end

 

 

 

 

 

]]

 

end

end

 

 

 

 

 

These additional divisions not currently supported:

37-39 = Quadrimester 1, Quadrimester 2, Quadrimester 3 (4 months each)

40-41 = Semestral 1, Semestral-2 (6 months each)

 

]]

 

end

 

 

 

]]

 

return cfg.date_names['local'].named[name] or -- look for local names dates first

cfg.date_names['en'].named[name] or -- failing that, look for English names

end

 

 

 

]]

 

end

end

end

 

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

 

 

]]

end

end

 

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

Returns true if day is less than or equal to the number of days in month and year is no farther into the future

than next year; else returns false.

]]

 

local days_in_month = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};

local month_length;

return false;

end

month_length = 28; -- then 28 days unless

if 1582 > tonumber(year) then -- Julian calendar

end

else -- Gregorian calendar

month_length = 29; -- if leap year then 29 days in February

end

end

else

end

 

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.

 

]]

 

local function is_valid_month_range_style (month1, month2)

end

end

 

Month pairs are expected to be left to right, earliest to latest in time.

 

 

]]

 

local range_start_number = get_month_number (range_start);

local range_end_number;

if 0 == range_start_number then -- is this a month range?

 

end

return false; -- range_start and/or range_end is not a season

-- here when range_start is a month

range_end_number = get_month_number (range_end); -- get end month number

return true; -- proper order and same style

end

return false; -- range_start month number is greater than or equal to range end number; or range end isn't a month

the output table receives:

rftssn: one of four season keywords: winter, spring, summer, fall (lowercase)

 

]]

local day = tonumber (input.day);

if (0 ~= day) and -- day must have a value for this to be a whole date

((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

if 1582 > tonumber(input.year) or 20 < tonumber(input.month) then -- Julian calendar or season so &rft.date gets year only

date = string.format ('%.4d/%.4d', tonumber(input.year), tonumber(input.year2)) -- assemble the date range

end

if 0 == input.month2 then -- single season date

else

tCOinS_date.rftssn = season[input.month]; -- seasons

tCOinS_date.rftdate = date .. date2; -- date2 has the '/' separator

return;

end

 

 

If the date fails the format tests, this function returns false and does not return values for anchor_year and

its year from the year parameter if present otherwise CITEREF does not get a date value.

 

Inputs:

 

Returns:

]]

 

local anchor_year;

local coins_date;

 

if 12 < tonumber(month) or 1 > tonumber(month) or 1582 > tonumber(year) or 0 == tonumber(day) then return false; end -- month or day number not valid or not Gregorian calendar

anchor_year = year;

month = get_month_number (month);

month = get_month_number (month);

 

month = get_month_number (month);

 

month = get_month_number (month);

 

if (not is_valid_month_season_range(month, month2)) or not is_valid_year(year) then return false; end -- date range order is left to right: earlier to later;

month2 = get_month_number (month2);

 

month2 = get_month_number (month2);

 

if not is_valid_year(year2) or not is_valid_month_range_style(month, month2) then return false; end -- year2 no more than one year in the future; months same style

month2 = get_month_number (month2);

 

if not is_valid_year(year2) or not is_valid_month_range_style(month, month2) then return false; end -- year2 no more than one year in the future; months same style

 

local century;

 

 

if 0 ~= get_month_number(month) and 0 ~= get_month_number(month2) and is_valid_month_range_style(month, month2) then -- both must be month year, same month style

month = get_month_number(month);

month2 = get_month_number(month2);

else

return false;

end

 

if 0 ~= get_month_number(month) then -- determined to be a valid range so just check this one to know if month or season

month = get_month_number(month);

month2 = get_month_number(month2);

else

end

if not is_valid_year(year) then return false; end

 

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

 

local century;

if 13 > tonumber(year2) then return false; end -- don't allow 2003-05 which might be May 2003

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

 

if false == is_valid_year(year) then

return false;

end

 

if 0 ~= year and 0 ~= month and 0 ~= day and -- all parts of a single date required

0 == year2 and 0 == month2 and 0 == day2 then -- none of these; accessdate must not be a range

return false; -- return false when accessdate out of bounds

end

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)

 

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 == month2 and 0 ~= day2 then -- YMD-d (day range)

 

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 ~= month2 and 0 ~= day2 then -- YMD-md (day month range)

 

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 ~= year2 and 0 ~= month2 and 0 ~= day2 then -- YMD-ymd (day month year range)

end

 

if nil ~= tCOinS_date then -- this table only passed into this function when testing |date= parameter values

end

 

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,

 

]]

 

local embargo_date; -- if embargo date is a good dmy, mdy, ymd date then holds original value else reset to 9999

local good_date = false;

for k, v in pairs(date_parameters_list) do -- for each date-holding parameter in the list

good_date = is_valid_year(year);

good_date = is_valid_year(year);

end

else

end

end

if true == good_date then -- if the date is a valid date

end

else -- any other date-holding parameter

end

end

end

end

end

 

--[[--------------------------< Y E A R _ D A T E _ C H E C K >------------------------------------------------

 

0 - year value does not match the year value in date

1 - (default) year value matches the year value in date or one of the year values when date contains two years

2 - year value matches the year value in date when date is in the form YYYY-MM-DD and year is disambiguated (|year=YYYYx)

 

]]

 

local year;

local date1;

local date2;

local result = 1; -- result of the test; assume that the test passes

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

 

end

 

local century;

date1, century, date2 = mw.ustring.match(date_string, "((%d%d)%d%d)[%-–]+(%d%d)");

result = 0;

end

result = 0; -- no recognizable year in date

end

end

 

 

 

 

 

 

 

 

]]

 

 

 

 

 

 

 

 

 

 

end

 

--[[-------------------------< R E F O R M A T _ D A T E S >--------------------------------------------------

 

 

 

 

 

 

]]

 

local all = false; -- set to false to skip access- and archive-dates

format = format:match('(%a+)%-all'); -- extract the format

end

end

 

local n;

for param_name, param_val in pairs(date_parameters_list) do -- for each date-holding parameter in the list

end

end

--[[-------------------------< D A T E _ N A M E _ X L A T E >------------------------------------------------

 

date parser function. This is simple name-for-name replacement and may not work for all languages.

 

]]

 

local xlate;

local mode; -- long or short month names

local date;

end

modified = true;

end

end

 

end

end

return modified;

 

 

 

local function set_selected_modules (cfg_table_ptr, utilities_page_ptr)

cfg = cfg_table_ptr; -- import tables from selected Module:Citation/CS1/Configuration

end

 

 

 

return { -- return exported functions