Module:Citation/CS1/Date validation and Module:Citation/CS1/Date validation/sandbox: Difference between pages

From Lojban
(Difference between pages)
Page 1
Page 2

Gleki (talk | contribs)

19 user groups
38,304 edits
VisualWikitext
Gleki (talk | contribs)
Forum:Admin, Forum:CantDelete, Forum:CantEdit, Forum:CantPost, Forum:CantSearch, Forum:CantView, Forum:Mod, Forum:NoSigs, Translators, Users, Bureaucrats, forumadmin, Interface administrators, staff, Administrators, translate-proofr, twitter, uploader, widgeteditor
38,304 edits
m 1 revision imported
 
Gleki (talk | contribs)
Forum:Admin, Forum:CantDelete, Forum:CantEdit, Forum:CantPost, Forum:CantSearch, Forum:CantView, Forum:Mod, Forum:NoSigs, Translators, Users, Bureaucrats, forumadmin, Interface administrators, staff, Administrators, translate-proofr, twitter, uploader, widgeteditor
38,304 edits
m 1 revision
 
Line 1: Line 1:
--[[
History of changes since last sync: 2014-03-30
2014-04-06: Added code to allow "Winter YYYY–YY"; sequential years separated with unspaced endash;
2014-04-24: Added whole date range validation for dmy - dmy and mdy - mdy formats;
]]


local p = {}
local p = {}
Line 190: Line 197:
month2 = get_month_number (month2);
month2 = get_month_number (month2);


elseif date_string:match("^%a+ +[1-9]%d%d%d–%d%d%a?$") then -- special case Winter/Summer year-year (YYYY-YY); year separated with unspaced endash
elseif date_string:match("^Winter +[1-9]%d%d%d–%d%d%a?$") then -- special case Winter year-year (YYYY-YY); year separated with unspaced endash
if nil == date_string:match("^Winter") and nil == date_string:match("^Summer") then return false end; -- 'month' can only be Winter or Summer
local century;
local century;
year, century, anchor_year, year2=date_string:match("%a+ +((%d%d)%d%d)–((%d%d)%a?)");
year, century, anchor_year, year2=date_string:match("Winter +((%d%d)%d%d)–((%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
year2 = century..year2; -- add the century to year2 for comparisons
year2 = century..year2; -- add the century to year2 for comparisons
Line 199: Line 205:
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year


elseif date_string:match("^%a+ +[1-9]%d%d%d–[1-9]%d%d%d%a?$") then -- special case Winter/Summer year-year; year separated with unspaced endash
elseif date_string:match("^Winter +[1-9]%d%d%d–[1-9]%d%d%d%a?$") then -- special case Winter year-year; year separated with unspaced endash
if nil == date_string:match("^Winter") and nil == date_string:match("^Summer") then return false end; -- 'month' can only be Winter or Summer
year, anchor_year, year2=date_string:match("Winter +(%d%d%d%d)–((%d%d%d%d)%a?)");
year, anchor_year, year2=date_string:match("%a+ +(%d%d%d%d)–((%d%d%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
if 1 ~= tonumber(year2) - tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later
if 1 ~= tonumber(year2) - tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later
Retrieved from "https://mw.lojban.org/papri/Special:ComparePages"