--[[

Copyright 2017 YANG Huan (sy.yanghuan@gmail.com).

Licensed under the Apache License, Version 2.0 (the "License");

you may not use this file except in compliance with the License.

You may obtain a copy of the License at

http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software

distributed under the License is distributed on an "AS IS" BASIS,

WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

See the License for the specific language governing permissions and

limitations under the License.

--]]

local System = System

local throw = System.throw

local div = System.div

local trunc = System.trunc

local TimeSpan = System.TimeSpan

local compare = TimeSpan.Compare

local ArgumentOutOfRangeException = System.ArgumentOutOfRangeException

local ArgumentException = System.ArgumentException

local ArgumentNullException = System.ArgumentNullException

local FormatException = System.FormatException

local assert = assert

local getmetatable = getmetatable

local select = select

local sformat = string.format

local sfind = string.find

local os = os

local ostime = os.time

local osdifftime = os.difftime

local osdate = os.date

local tonumber = tonumber

local math = math

local floor = math.floor

local log10 = math.log10

local modf = math.modf

--http://referencesource.microsoft.com/#mscorlib/system/datetime.cs

local DateTime

local minValue

local daysToMonth365 = { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 }

local daysToMonth366 = { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 }

local function isLeapYear(year)

if year < 1 or year > 9999 then

throw(ArgumentOutOfRangeException("year", "ArgumentOutOfRange_Year"))

end

return year % 4 == 0 and (year % 100 ~= 0 or year % 400 == 0)

end

local function dateToTicks(year, month, day)

if year >= 1 and year <= 9999 and month >= 1 and month <= 12 then

local days = isLeapYear(year) and daysToMonth366 or daysToMonth365

if day >= 1 and day <= days[month + 1] - days[month] then

local y = year - 1

local n = y * 365 + div(y, 4) - div(y, 100) + div(y, 400) + days[month] + day - 1

return n * 864000000000

end

end

end

local function timeToTicks(hour, minute, second)

if hour >= 0 and hour < 24 and minute >= 0 and minute < 60 and second >=0 and second < 60 then

return (((hour * 60 + minute) * 60) + second) * 10000000

end

throw(ArgumentOutOfRangeException("ArgumentOutOfRange_BadHourMinuteSecond"))

end

local function checkTicks(ticks)

if ticks < 0 or ticks > 3155378975999999999 then

throw(ArgumentOutOfRangeException("ticks", "ArgumentOutOfRange_DateTimeBadTicks"))

end

end

local function checkKind(kind)

if kind and (kind < 0 or kind > 2) then

throw(ArgumentOutOfRangeException("kind"))

end

end

local function addTicks(this, value)

return DateTime(this.ticks + value, this.kind)

end

local function addTimeSpan(this, ts)

return addTicks(this, ts.ticks)

end

local function add(this, value, scale)

local millis = trunc(value * scale + (value >= 0 and 0.5 or -0.5))

return addTicks(this, millis * 10000)

end

local function subtract(this, v)

if getmetatable(v) == DateTime then

return TimeSpan(this.ticks - v.ticks)

end

return DateTime(this.ticks - v.ticks, this.kind)

end

local function getDataPart(ticks, part)

local n = div(ticks, 864000000000)

local y400 = div(n, 146097)

n = n - y400 * 146097

local y100 = div(n, 36524)

if y100 == 4 then y100 = 3 end

n = n - y100 * 36524

local y4 = div(n, 1461)

n = n - y4 * 1461;

local y1 = div(n, 365)

if y1 == 4 then y1 = 3 end

if part == 0 then

return y400 * 400 + y100 * 100 + y4 * 4 + y1 + 1

end

n = n - y1 * 365

if part == 1 then return n + 1 end

local leapYear = y1 == 3 and (y4 ~= 24 or y100 == 3)

local days = leapYear and daysToMonth366 or daysToMonth365

local m = div(n, 32) + 1

while n >= days[m + 1] do m = m + 1 end

if part == 2 then return m end

return n - days[m] + 1

end

local function getDatePart(ticks)

local year, month, day

local n = div(ticks, 864000000000)

local y400 = div(n, 146097)

n = n - y400 * 146097

local y100 = div(n, 36524)

if y100 == 4 then y100 = 3 end

n = n - y100 * 36524

local y4 = div(n, 1461)

n = n - y4 * 1461

local y1 = div(n, 365)

if y1 == 4 then y1 = 3 end

year = y400 * 400 + y100 * 100 + y4 * 4 + y1 + 1

n = n - y1 * 365

local leapYear = y1 == 3 and (y4 ~= 24 or y100 == 3)

local days = leapYear and daysToMonth366 or daysToMonth365

local m = div(n, 32) + 1

while n >= days[m + 1] do m = m + 1 end

month = m

day = n - days[m] + 1

return year, month, day

end

local function daysInMonth(year, month)

if month < 1 or month > 12 then

throw(ArgumentOutOfRangeException("month"))

end

local days = isLeapYear(year) and daysToMonth366 or daysToMonth365

return days[month + 1] - days[month]

end

local function addMonths(this, months)

if months < -120000 or months > 12000 then

throw(ArgumentOutOfRangeException("months"))

end

local ticks = this.ticks

local y, m, d = getDatePart(ticks)

local i = m - 1 + months

if i >= 0 then

m = i % 12 + 1

y = y + div(i, 12)

else

m = 12 + (i + 1) % -12

y = y + div(i - 11, 12)

end

if y < 1 or y > 9999 then

throw(ArgumentOutOfRangeException("months"))

end

local days = daysInMonth(y, m)

if d > days then d = days end

return DateTime(dateToTicks(y, m, d) + ticks % 864000000000, this.kind)

end

local function getTimeZone()

local date = osdate("*t")

local dst = date.isdst

local now = ostime(date)

return osdifftime(now, ostime(osdate("!*t", now))) * 10000000, dst and 3600 * 10000000 or 0

end

local timeZoneTicks, dstTicks = getTimeZone()

local baseUtcOffset = TimeSpan(timeZoneTicks)

local time = System.config.time or ostime

System.time = time

System.currentTimeMillis = function () return trunc(time() * 1000) end

local function now()

local seconds = time()

local ticks = seconds * 10000000 + timeZoneTicks + dstTicks + 621355968000000000

return DateTime(ticks, 2)

end

local function parse(s)

if s == nil then

return nil, 1

end

local i, j, year, month, day, hour, minute, second, milliseconds

i, j, year, month, day = sfind(s, "^%s*(%d+)%s*/%s*(%d+)%s*/%s*(%d+)%s*")

if i == nil then

return nil, 2

else

year, month, day = tonumber(year), tonumber(month), tonumber(day)

end

if j < #s then

i, j, hour, minute = sfind(s, "^(%d+)%s*:%s*(%d+)", j + 1)

if i == nil then

return nil, 2

else

hour, minute = tonumber(hour), tonumber(minute)

end

local next = j + 1

i, j, second = sfind(s, "^:%s*(%d+)", next)

if i == nil then

if sfind(s, "^%s*$", next) == nil then

return nil, 2

else

second = 0

milliseconds = 0

end

else

second = tonumber(second)

next = j + 1

i, j, milliseconds = sfind(s, "^%.(%d+)%s*$", next)

if i == nil then

if sfind(s, "^%s*$", next) == nil then

return nil, 2

else

milliseconds = 0

end

else

milliseconds = tonumber(milliseconds)

local n = floor(log10(milliseconds) + 1)

if n > 3 then

if n <= 7 then

milliseconds = milliseconds / (10 ^ (n - 3))

else

local ticks = milliseconds / (10 ^ (n - 7))

local _, decimal = modf(ticks)

if decimal > 0.5 then

ticks = ticks + 1

end

milliseconds = floor(ticks) / 10000

end

end

end

end

end

if hour == nil then

return DateTime(year, month, day)

end

return DateTime(year, month, day, hour, minute, second, milliseconds)

end

local abbreviatedDayNames = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }

local dayNames = { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" }

local abbreviatedMonthNames = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }

local monthNames = { "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" }

local realFormats = {

["d"] = "MM/dd/yyyy",

["D"] = "dddd, dd MMMM yyyy",

["f"] = "dddd, dd MMMM yyyy HH:mm",

["F"] = "dddd, dd MMMM yyyy HH:mm:ss",

["g"] = "MM/dd/yyyy HH:mm",

["G"] = "MM/dd/yyyy HH:mm:ss",

["m"] = "MMMM dd",

["M"] = "MMMM dd",

["o"] = "yyyy-MM-ddTHH:mm:ss.fffffffK",

["O"] = "yyyy-MM-ddTHH:mm:ss.fffffffK",

["r"] = "ddd, dd MMM yyyy HH:mm:ss GMT",

["R"] = "ddd, dd MMM yyyy HH:mm:ss GMT",

["s"] = "yyyy-MM-ddTHH:mm:ss",

["t"] = "HH:mm",

["T"] = "HH:mm:ss",

["u"] = "yyyy-MM-dd HH:mm:ssZ",

["U"] = "dddd, dd MMMM yyyy HH:mm:ss",

["y"] = "yyyy MMMM",

["Y"] = "yyyy MMMM"

}

local function parseRepeatPattern(format, n, pos, ch)

local index = pos + 1

while index <= n and format:byte(index) == ch do

index = index + 1

end

return index - pos

end

local function throwFormatInvalidException()

throw(FormatException("Input string was not in a correct format."))

end

local function formatCustomized(this, format, n)

local t, i, tokenLen, hour12 = {}, 1

while i <= n do

local ch = format:byte(i)

if ch == 104 then

tokenLen = parseRepeatPattern(format, n, i, ch)

hour12 = this:getHour() % 12

if hour12 == 0 then hour12 = 12 end

t[#t + 1] = sformat("%02d", hour12)

elseif ch == 72 then

tokenLen = parseRepeatPattern(format, n, i, ch)

t[#t + 1] = sformat("%02d", this:getHour())

elseif ch == 109 then

tokenLen = parseRepeatPattern(format, n, i, ch)

t[#t + 1] = sformat("%02d", this:getMinute())

elseif ch == 115 then

tokenLen = parseRepeatPattern(format, n, i, ch)

t[#t + 1] = sformat("%02d", this:getSecond())

elseif ch == 102 or ch == 70 then

tokenLen = parseRepeatPattern(format, n, i, ch)

if tokenLen <= 7 then

local fraction = this.ticks % 10000000

fraction = div(fraction, 10 ^ (7 - tokenLen))

if ch == 102 then

t[#t + 1] = sformat("%0" .. tokenLen .. 'd', fraction)

else

local effectiveDigits = tokenLen

while effectiveDigits > 0 do

if fraction % 10 == 0 then

fraction = div(fraction, 10)

effectiveDigits = effectiveDigits - 1

else

break

end

end

if effectiveDigits > 0 then

t[#t + 1] = sformat("%0" .. effectiveDigits .. 'd', fraction)

end

end

else

throwFormatInvalidException()

end

elseif ch == 116 then

tokenLen = parseRepeatPattern(format, n, i, ch)

local hour = this:getHour()

if tokenLen == 1 then

t[#t + 1] = hour < 12 and "A" or "P"

else

t[#t + 1] = hour < 12 and "AM" or "PM"

end

elseif ch == 100 then

tokenLen = parseRepeatPattern(format, n, i, ch)

if tokenLen <= 2 then

local day = this:getDay()

t[#t + 1] = sformat("%0" .. tokenLen .. 'd', day)

else

local i = this:getDayOfWeek() + 1

t[#t + 1] = (tokenLen == 3 and abbreviatedDayNames or dayNames)[i]

end

elseif ch == 77 then

tokenLen = parseRepeatPattern(format, n, i, ch)

local month = this:getMonth()

if tokenLen <= 2 then

t[#t + 1] = sformat("%0" .. tokenLen .. 'd', month)

else

t[#t + 1] = (tokenLen == 3 and abbreviatedMonthNames or monthNames)[month]

end

elseif ch == 121 then

tokenLen = parseRepeatPattern(format, n, i, ch)

local year = this:getYear()

if tokenLen <= 2 then

year = year % 100

t[#t + 1] = tokenLen == 1 and year or sformat("%02d", year)

else

t[#t + 1] = sformat("%0" .. tokenLen .. 'd', year)

end

elseif ch == 122 then

tokenLen = parseRepeatPattern(format, n, i, ch)

local offset = this.kind == 1 and TimeSpan.Zero or baseUtcOffset

local sign

if offset.ticks >= 0 then

sign = "+"

else

sign = "-"

offset = offset:Negate()

end

local hour = offset:getHours()

if tokenLen <= 1 then

t[#t + 1] = sformat("%s%d", sign, hour)

elseif tokenLen < 3 then

t[#t + 1] = sformat("%s%02d", sign, hour)

else

t[#t + 1] = sformat("%s%02d:%02d", sign, hour, offset:getMinutes())

end

elseif ch == 75 then

tokenLen = 1

if this.kind == 2 then

local offset = baseUtcOffset

local sign

if offset.ticks >= 0 then

sign = "+"

else

sign = "-"

offset = offset:Negate()

end

t[#t + 1] = sformat("%s%02d:%02d", sign, offset:getHours(), offset:getMinutes())

elseif this.kind == 1 then

t[#t + 1] = "Z"

end

elseif ch == 39 or ch == 34 then

local a, b, c = sfind(format, "^(.*)" .. string.char(ch), i + 1)

if not a then throwFormatInvalidException() end

t[#t + 1] = c

tokenLen = b - a + 2

elseif ch == 37 then

local nextChar = format:byte(i + 1)

if nextChar and nextChar ~= 37 then

t[#t + 1] = formatCustomized(this, string.char(nextChar), 1)

tokenLen = 2

else

throwFormatInvalidException()

end

elseif ch == 92 then

local nextChar = format:byte(i + 1)

if nextChar then

t[#t + 1] = string.char(nextChar)

tokenLen = 2

else

throwFormatInvalidException()

end

else

t[#t + 1] = string.char(ch)

tokenLen = 1

end

i = i + tokenLen

end

return table.concat(t)

end

local function toStringWithFormat(this, format)

local n = #format

if n == 1 then

format = realFormats[format]

if not format then throwFormatInvalidException() end

return formatCustomized(this, format, #format)

end

return formatCustomized(this, format, n)

end

DateTime = System.defStc("System.DateTime", {

ticks = 0,

kind = 0,

Compare = compare,

CompareTo = compare,

CompareToObj = function (this, t)

if t == nil then return 1 end

if getmetatable(t) ~= DateTime then

throw(ArgumentException("Arg_MustBeDateTime"))

end

return compare(this, t)

end,

Equals = function (t1, t2)

return t1.ticks == t2.ticks

end,

EqualsObj = function (this, t)

if getmetatable(t) == DateTime then

return this.ticks == t.ticks

end

return false

end,

GetHashCode = function (this)

return this.ticks

end,

IsLeapYear = isLeapYear,

__ctor__ = function (this, ...)

local len = select("#", ...)

if len == 0 then

elseif len == 1 then

local ticks = ...

checkTicks(ticks)

this.ticks = ticks

elseif len == 2 then

local ticks, kind = ...

checkTicks(ticks)

checkKind(kind)

this.ticks = ticks

this.kind = kind

elseif len == 3 then

this.ticks = dateToTicks(...)

elseif len == 6 then

local year, month, day, hour, minute, second = ...

this.ticks = dateToTicks(year, month, day) + timeToTicks(hour, minute, second)

elseif len == 7 then

local year, month, day, hour, minute, second, millisecond = ...

this.ticks = dateToTicks(year, month, day) + timeToTicks(hour, minute, second) + millisecond * 10000

elseif len == 8 then

local year, month, day, hour, minute, second, millisecond, kind = ...

checkKind(kind)

this.ticks = dateToTicks(year, month, day) + timeToTicks(hour, minute, second) + millisecond * 10000

this.kind = kind

else

assert(false)

end

end,

AddTicks = addTicks,

Add = addTimeSpan,

AddDays = function (this, days)

return add(this, days, 86400000)

end,

AddHours = function (this, hours)

return add(this, hours, 3600000)

end,

AddMinutes = function (this, minutes)

return add(this, minutes, 60000);

end,

AddSeconds = function (this, seconds)

return add(this, seconds, 1000)

end,

AddMilliseconds = function (this, milliseconds)

return add(this, milliseconds, 1)

end,

DaysInMonth = daysInMonth,

AddMonths = addMonths,

AddYears = function (this, years)

if years < - 10000 or years > 10000 then

throw(ArgumentOutOfRangeException("years"))

end

return addMonths(this, years * 12)

end,

SpecifyKind = function (this, kind)

return DateTime(this.ticks, kind)

end,

Subtract = subtract,

getDay = function (this)

return getDataPart(this.ticks, 3)

end,

getDate = function (this)

local ticks = this.ticks

return DateTime(ticks - ticks % 864000000000, this.kind)

end,

getDayOfWeek = function (this)

return (div(this.ticks, 864000000000) + 1) % 7

end,

getDayOfYear = function (this)

return getDataPart(this.ticks, 1)

end,

getKind = function (this)

return this.kind

end,

getHour = TimeSpan.getHours,

getMinute = TimeSpan.getMinutes,

getSecond = TimeSpan.getSeconds,

getMillisecond = TimeSpan.getMilliseconds,

getMonth = function (this)

return getDataPart(this.ticks, 2)

end,

getYear = function (this)

return getDataPart(this.ticks, 0)

end,

getTimeOfDay = function (this)

return TimeSpan(this.ticks % 864000000000)

end,

getTicks = function (this)

return this.ticks

end,

BaseUtcOffset = baseUtcOffset,

getUtcNow = function ()

local seconds = time()

local ticks = seconds * 10000000 + 621355968000000000

return DateTime(ticks, 1)

end,

getNow = now,

getToday = function ()

return now():getDate()

end,

ToLocalTime = function (this)

if this.kind == 2 then

return this

end

local ticks = this.ticks + timeZoneTicks + dstTicks

return DateTime(ticks, 2)

end,

ToUniversalTime = function (this)

if this.kind == 1 then

return this

end

local ticks = this.ticks - timeZoneTicks - dstTicks

return DateTime(ticks, 1)

end,

IsDaylightSavingTime = function(this)

return this.kind == 2 and dstTicks > 0

end,

ToString = function (this, format)

if format then

return toStringWithFormat(this, format)

end

local year, month, day = getDatePart(this.ticks)

return sformat("%d/%d/%d %02d:%02d:%02d", year, month, day, this:getHour(), this:getMinute(), this:getSecond())

end,

Parse = function (s)

local v, err = parse(s)

if v then

return v

end

if err == 1 then

throw(ArgumentNullException())

else

throw(FormatException())

end

end,

TryParse = function(s)

local v = parse(s)

if v then

return true, v

end

return false, minValue

end,

__add = addTimeSpan,

__sub = subtract,

__eq = TimeSpan.__eq,

__lt = TimeSpan.__lt,

__le = TimeSpan.__le,

base = function(_, T)

return { System.IComparable, System.IComparable_1(T), System.IConvertible, System.IEquatable_1(T), System.IFormattable }

end,

default = function ()

return minValue

end,

MinValue = false,

MaxValue = false

})

minValue = DateTime(0)

DateTime.MinValue = minValue

DateTime.MaxValue = DateTime(3155378975999999999)

System.defEnum("System.DayOfWeek", {

Sunday = 0,

Monday = 1,

Tuesday = 2,

Wednesday = 3,

Thursday = 4,

Friday = 5,

Saturday = 6

})