local p = {}
local Date = require('Module:Date')._Date
function p.snowflakeToDate(frame)
local format = frame.args.format or "%e %B %Y"
local epoch = tonumber(frame.args.epoch) or 1288834974
local id_str = frame.args.id_str
if type(id_str) ~= "string" then error("آرگومان بد شماره ۱ انتظار رشته می‌رفت، اما " .. type(id_str) .. " دریافت شد)", 2) end
if type(format) ~= "string" then error("آرگومان بد شماره ۲ (انتظار رشته می‌رفت، اما " .. type(format) .. " دریافت شد)", 2) end
if type(epoch) ~= "number" then error("آرگومان بد شماره ۳ (انتظار عدد می‌رفت، اما " .. type(epoch) .. " دریافت شد)", 2) end
local hi, lo = 0, 0
local hiexp = 1
local two32 = 2^32
for c in mw.ustring.gmatch(id_str, ".") do
lo = lo * 10 + c
if lo >= two32 then
hi, lo = hi * 10^hiexp + math.floor(lo / two32), lo % two32
hiexp = 1
else hiexp = hiexp + 1 end
end
hi = hi * 10^(hiexp-1)
local timestamp = math.floor((hi * 1024 + math.floor(lo / 4194304)) / 1000) + epoch
return os.date(format, timestamp)
end
function p.getDate(frame)
-- just pass frame directly to snowflakeToDate, this wraps it but the args are the same plus
if mw.ustring.match(frame.args.id_str, "%D") then -- not a number, so return -2
return -2
end
frame.args.format = "%e %B %Y"
if frame.args.date then
frame.args.date = mw.ustring.gsub(frame.args.date, "(%d%d%d%d)%a", "%1")
end
frame.args.epoch = tonumber(frame.args.epoch) or 1288834974
local epochdate = Date(os.date("%e %B %Y", frame.args.epoch))
local twitterdate = Date(p.snowflakeToDate(frame))
if twitterdate == epochdate then -- created before epoch, so can't determine the date
return -1
end
local date = Date(frame.args.date) or 0 -- if we error here, then an input of no date causes an error, which is contrary to the entire way {{TwitterSnowflake/datecheck}} works
return date - twitterdate
end
local function abs_datediff(x)
if type(x) == 'number' then return math.abs(x) end
return math.abs(x.age_days)
end
function p.datecheck(frame)
local args = frame.args
if not (args.date and args.id_str) then
error('متغیرهای date و id_str باید تعریف شوند؛ حتی اگر خالی باشند.')
end
local errors = {
args.error1 or 'عدم تطابق دو یا چند روزهٔ تاریخ',
args.error2 or 'بدون تاریخ، و ارسال‌شده پیش از ۴ نوامبر ۲۰۱۰',
args.error3 or 'id_str نامعتبر'
}
if mw.title.getCurrentTitle():inNamespace(0) and args.error_cat then
for i = 1, 3 do errors[i] = errors[i] .. '[[' .. args.error_cat .. ']]' end
end
if not mw.ustring.match(args.date, '^%s*$') then -- #if:{{{date|}}}
local testResult = p.getDate{ args = { date = args.date, id_str = args.id_str }}
if testResult == -2 then return errors[3] end
if abs_datediff(testResult) > 1 then return errors[1] end
elseif not mw.ustring.match(args.id_str, '^%s*$') then
local testResult = p.getDate{ args = { id_str = args.id_str }}
if testResult == -1 then return errors[2] end
if testResult == -2 then return errors[3] end
end
end
return p
