8483ac7258
This PR fixes the `Repr` instance of the `Timestamp` type and changes the `PlainTime` type so that it always represents a clock time that may be a leap second. - Fix timestamp `Repr`. - The `PlainTime` type now always represents a clock time that may be a leap second. - Changed `readlink -f` to `IO.FS.realPath` --------- Co-authored-by: Mac Malone <tydeu@hatpress.net> Co-authored-by: Markus Himmel <markus@himmel-villmar.de>
100 lines
2.4 KiB
Text
100 lines
2.4 KiB
Text
import Std.Time
|
|
open Std.Time
|
|
|
|
def ISO8601UTC : GenericFormat .any := datespec("uuuu-MM-dd'T'HH:mm:ss.SSSSSSSSSXXX")
|
|
def RFC1123 : GenericFormat .any := datespec("eee, dd MMM uuuu HH:mm:ss ZZZ")
|
|
def ShortDate : GenericFormat .any := datespec("MM/dd/uuuu")
|
|
def LongDate : GenericFormat .any := datespec("MMMM D, uuuu")
|
|
def ShortDateTime : GenericFormat .any := datespec("MM/dd/uuuu HH:mm:ss")
|
|
def LongDateTime : GenericFormat .any := datespec("MMMM dd, uuuu hh:mm aa")
|
|
def Time24Hour : GenericFormat .any := datespec("HH:mm:ss")
|
|
def Time12Hour : GenericFormat .any := datespec("hh:mm:ss aa")
|
|
def FullDayTimeZone : GenericFormat .any := datespec("EEEE, MMMM dd, uuuu HH:mm:ss ZZZ")
|
|
def CustomDayTime : GenericFormat .any := datespec("EEE dd MMM uuuu HH:mm")
|
|
|
|
def Full12HourWrong : GenericFormat .any := datespec("MM/dd/uuuu hh:mm:ss aa XXX")
|
|
|
|
-- Dates
|
|
|
|
def brTZ : TimeZone := timezone("America/Sao_Paulo -03:00")
|
|
def jpTZ : TimeZone := timezone("Asia/Tokyo +09:00")
|
|
|
|
def date₁ := zoned("2014-06-16T10:03:03-03:00")
|
|
|
|
def time₁ := time("14:11:01")
|
|
def time₂ := time("03:11:01")
|
|
|
|
/--
|
|
info: "2014-06-16T10:03:03.000000100-03:00"
|
|
-/
|
|
#guard_msgs in
|
|
#eval
|
|
let t : ZonedDateTime := ISO8601UTC.parse! "2014-06-16T10:03:03.000000100-03:00"
|
|
ISO8601UTC.format t.toDateTime
|
|
|
|
/--
|
|
info: zoned("2014-06-30T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withDaysClip 31
|
|
|
|
/--
|
|
info: zoned("2014-07-01T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withDaysRollOver 31
|
|
|
|
/--
|
|
info: zoned("2014-05-16T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withMonthClip 5
|
|
|
|
/--
|
|
info: zoned("2014-05-16T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withMonthRollOver 5
|
|
|
|
/--
|
|
info: zoned("2016-06-16T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withYearClip 2016
|
|
|
|
/--
|
|
info: zoned("2016-06-16T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withYearRollOver 2016
|
|
|
|
/--
|
|
info: zoned("2014-06-16T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withDaysClip 16
|
|
|
|
/--
|
|
info: zoned("2014-06-16T10:45:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withMinutes 45
|
|
|
|
|
|
/--
|
|
info: zoned("2014-06-16T10:03:03.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withHours 10
|
|
|
|
/--
|
|
info: zoned("2014-06-16T10:03:59.000000000-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withSeconds 59
|
|
|
|
/--
|
|
info: zoned("2014-06-16T10:03:03.000000002-03:00")
|
|
-/
|
|
#guard_msgs in
|
|
#eval date₁.withNanoseconds 2
|