الفرق بين المراجعتين لصفحة: «وحدة:Citation/CS1/Date validation»

]]

local cfg; -- table of tables imported from selected Module:Citation/CS1/Configuration

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;

good2, tomorrow_ts = pcall (lang_object.formatDate, lang_object, 'U', 'today + 2 days' ); -- today midnight + 2 days is one second more than all day tomorrow

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

tomorrow_ts = tonumber (tomorrow_ts) or lang_object:parseFormattedNumber (tomorrow_ts);

else

end

return false; -- accessdate out of range

end

end

returns true and date value if that value has proper dmy, mdy, ymd format.

]]

21-24 = Spring, Summer, Autumn, Winter, independent of “Hemisphere”

These additional divisions not currently supported:

]]

return cfg.date_names['local'].season[season] or -- look for local names first

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

]]

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

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

]]

if not is_set(year_limit) then

year_limit = tonumber(os.date("%Y"))+1; -- global variable so we only have to fetch it once

--[[--------------------------< 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 = tonumber(month); -- required for YYYY-MM-DD dates

month_length = 28; -- then 28 days unless

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

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

end

else -- Gregorian calendar

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

end

end

else

end

if len1 == len2 then

return true; -- both months are short form so return true

return true; -- both months are long form so return true

elseif 3 == len1 or 3 == len2 then

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

['dMy'] = {'^([1-9]%d?) +(%D-) +((%d%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

-- 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'},

-- month/season range year; months separated by endash

['M-My'] = {'^(%D-)[%-–](%D-) +((%d%d%d%d)%a?)$', 'm', 'm2', 'a', 'y'},

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

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

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

['y4-y2'] = {'^((%d%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

}

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 date_string:match (patterns['ymd'][1]) then -- year-initial numerical year month day format

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;

elseif mw.ustring.match(date_string, patterns['Mdy'][1]) then -- month-initial: month day, year

month = get_month_number (month);

if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif mw.ustring.match(date_string, patterns['Md-dy'][1]) then -- month-initial day range: month day–day, year; days are separated by endash

if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;

month = get_month_number (month);

if 0 == month then return false; end -- return false if month text isn't one of the twelve months

month2=month; -- for metadata

elseif mw.ustring.match(date_string, patterns['dMy'][1]) then -- day-initial: day month year

month = get_month_number (month);

if 0 == month then return false; end -- return false if month text isn't one of the twelve months

--[[ NOT supported at en.wiki

elseif mw.ustring.match(date_string, patterns['yMd'][1]) then -- year-initial: year month day; day: 1 or 2 two digits, leading zero allowed

month = get_month_number (month);

if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif mw.ustring.match(date_string, patterns['d-dMy'][1]) then -- day-range-initial: day–day month year; days are separated by endash

if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;

month = get_month_number (month);

if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif mw.ustring.match(date_string, patterns['dM-dMy'][1]) then -- day initial month-day-range: day month - day month year; uses spaced endash

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;

month = get_month_number (month); -- for metadata

month2 = get_month_number (month2);

month = get_month_number (month); -- for metadata

month2 = get_month_number (month2);

elseif mw.ustring.match(date_string, patterns['dMy-dMy'][1]) then -- day initial month-day-year-range: day month year - day month year; uses spaced endash

if tonumber(year2) <= tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later

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

month = get_month_number (month); -- for metadata

month2 = get_month_number (month2);

if tonumber(year2) <= tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later

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

month = get_month_number (month); -- for metadata

elseif mw.ustring.match(date_string, patterns['Sy4-y2'][1]) then -- special case Winter/Summer year-year (YYYY-YY); year separated with unspaced endash

local century;

if 'Winter' ~= month and 'Summer' ~= month then return false end; -- 'month' can only be Winter or Summer

year2 = century..year2; -- add the century to year2 for comparisons

if 1 ~= tonumber(year2) - tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later

if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif mw.ustring.match(date_string, patterns['Sy-y'][1]) then -- special case Winter/Summer year-year; year separated with unspaced endash

if 'Winter' ~= month and 'Summer' ~= month then return false end; -- 'month' can only be Winter or Summer

if 1 ~= tonumber(year2) - tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later

if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif mw.ustring.match(date_string, patterns['My-My'][1]) then -- month/season year - month/season year; separated by spaced endash

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

month = get_month_number(month);

month2 = get_month_number(month2);

else

return false;

elseif mw.ustring.match(date_string, patterns['M-My'][1]) then -- month/season range year; months separated by endash  

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

elseif mw.ustring.match(date_string, patterns['y-y'][1]) then -- Year range: YYY-YYY or YYY-YYYY or YYYY–YYYY; separated by unspaced endash; 100-9999

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

elseif mw.ustring.match(date_string, patterns['y4-y2'][1]) then -- Year range: YYYY–YY; separated by unspaced endash

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

if is_set(v.val) then -- if the parameter has a value

if v.val:match("^c%. [1-9]%d%d%d?%a?$") then -- special case for c. year or with or without CITEREF disambiguator - only |date= and |year=

local year = v.val:match("c%. ([1-9]%d%d%d?)%a?"); -- get the year portion so it can be tested

anchor_year, COinS_date = v.val:match("((c%. [1-9]%d%d%d?)%a?)"); -- anchor year and COinS_date only from |date= parameter

good_date = is_valid_year(year);

good_date = is_valid_year(year);

end

else

end

good_date, anchor_year, COinS_date = true, v.val:match("((%d+)%a?)");

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

result = 0;

end

result = 0; -- no recognizable year in date

end

end

reformatted.  Does the grunt work for reformat_dates().

format string used by string.format()

identifier letters ('d', 'm', 'y', 'd2', 'm2', 'y2') that serve as indexes into a table t{} that holds captures

patterns['ymd'][1] is the match pattern with captures for mw.ustring.match()

patterns['ymd'][2] is an indicator letter identifying the content of the first capture

when a pattern matches a date, the captures are loaded into table t{} in capture order using the idemtifier

['mdy'] = {'%s %s, %s', 'm', 'd', 'y'}, -- |df=mdy

['dmy'] = {'%s %s %s', 'd', 'm', 'y'}, -- |df=dmy

},

['Mdy'] = { -- date format is Mdy; reformat to:

['dmy'] = {'%s %s %s', 'd', 'm', 'y'}, -- |df=dmy

['ymd'] = {'%s-%s-%s', 'y', 'm', 'd'}, -- |df=ymd

},

['dMy'] = { -- date format is dMy; reformat to:

['mdy'] = {'%s %s, %s', 'm', 'd', 'y'}, -- |df=mdy

['ymd'] = {'%s-%s-%s', 'y', 'm', 'd'}, -- |df=ymd

},

['Md-dy'] = { -- date format is Md-dy; reformat to:

['any'] = {'%s %s', 'm', 'y'}, -- dmy/mdy agnostic

},

}

end

return; -- not a reformattable date

end

[patterns[pattern_idx][8] or 'x'] = c7;

};

if tonumber(t.m) then -- if raw month is a number (converting from ymd)

t.d = t.d:gsub ('0(%d)', '%1'); -- strip leading '0' from day if present

elseif 'ymd' == format_param then -- when converting to ymd

return;

end

local n;

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

param_val.val, n = param_val.val:gsub ('%-', '–'); -- replace any hyphen with ndash

if 0 ~= n then

result = true;

end

end

end

return result; -- so we know if any hyphens were replaced

end

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

This will also translate ymd dates.

]]

local xlate;

local mode; -- long or short month names

if xlt_dig then -- shall we also translate digits?

date_parameters_list[param_name].val = date; -- save the translated date

modified = true;

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

date_hyphen_to_dash = date_hyphen_to_dash,

date_name_xlate = date_name_xlate,

set_selected_modules = set_selected_modules

}