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

 

 

 

]]

 

 

 

adding 24 hours gives 2015-01-03T00:00:00 – one second more than tomorrow

 

 

]=]

 

local function is_valid_accessdate (accessdate)

local good1, good2;

local access_ts, tomorrow_ts; -- to hold unix time stamps representing the dates

else

return false; -- one or both failed to convert to unix time stamp

end

if 979516800 <= access_ts and access_ts < tomorrow_ts then -- Wikipedia start date <= accessdate < tomorrow's date

return true;

return false; -- accessdate out of range

end

end

 

end

return false, '9999'; -- if here not good date so return false and set embargo date to long time in future

end

 

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

 

 

]]

 

end

 

 

 

]]

 

end

 

 

 

]]

 

end

end

end

 

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

 

 

]]

if not is_set(year_limit) then

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.

month_length = 28; -- then 28 days unless

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

end

else -- Gregorian calendar

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

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

end

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

if range_start_number < range_end_number then -- range_start is a month; does range_start precede range_end?

The input table has:

year, year2 – always present; if before 1582, ignore months and days if present

day, day2 – 0 if not provided, 1-31 for days

the output table receives:

rftdate: an IS8601 formatted date

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

 

]]

local date; -- one date or first date in a range

local date2 = ''; -- end of range date

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

return;

end

 

 

]]

 

local month=0;

local day=0;

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);

year2=year;

 

month = get_month_number (month);

 

month = get_month_number (month);

year2=year;

 

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);

year2=year;

 

month2 = get_month_number (month2);

year2=year;

 

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

month2 = get_month_number (month2);

 

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

year2=year;

if not is_valid_year(year) then return false; end

 

anchor_year=year..'–'..anchor_year; -- assemble anchor year from both years

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;

anchor_year=year..'–'..anchor_year; -- assemble anchor year from both years

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

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;

else

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

end

 

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

if 'date'==k then

good_date = is_valid_year(year);

elseif 'year'==k then

end

elseif 'date'==k then -- if the parameter is |date=

else

end

end

elseif 'embargo'==k then -- if the parameter is |embargo=

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

end

else -- any other date-holding parameter

end

if false==good_date then -- assemble one error message so we don't add the tracking category multiple times

error_message=error_message .. ", "; -- ... add a comma space separator

end

end

end

end

end

 

end

 

local century;

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

 

 

 

 

 

 

 

 

]]

 

 

 

 

 

 

 

 

 

 

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

end

end

 

 

]]

 

end

 

 

 

return { -- return exported functions

reformat_dates = reformat_dates,

date_hyphen_to_dash = date_hyphen_to_dash,

set_selected_modules = set_selected_modules

}