Source file timedesc.ml

include Date_time_utils
include Date_time
module Time_zone = Time_zone

exception ISO8601_parse_exn of string

let frac_s_milli = 3

let frac_s_micro = 6

let frac_s_nano = 9

let of_iso8601_exn' of_iso8601 s =
  match of_iso8601 s with
  | Ok x -> x
  | Error msg -> raise (ISO8601_parse_exn msg)

module Date = struct
  include Date

  let pp_rfc3339 = RFC3339.pp_date

  let to_rfc3339 = RFC3339.of_date

  let of_iso8601 = ISO8601.to_date

  let of_iso8601_exn s = of_iso8601_exn' of_iso8601 s

  let to_sexp = To_sexp.sexp_of_date

  let to_sexp_string x = CCSexp.to_string (To_sexp.sexp_of_date x)

  let of_sexp = Of_sexp_utils.wrap_of_sexp Of_sexp.date_of_sexp

  let of_sexp_string =
    Of_sexp_utils.wrap_of_sexp_into_of_sexp_string Of_sexp.date_of_sexp

  let pp_sexp = Printers.wrap_to_sexp_into_pp_sexp To_sexp.sexp_of_date

  module Ymd_date = Ymd_date'
  module ISO_week_date = ISO_week_date'
  module ISO_ord_date = ISO_ord_date'
end

module Time = struct
  include Time

  let pp_rfc3339 = RFC3339.pp_time

  let pp_rfc3339_milli = pp_rfc3339 ~frac_s:frac_s_milli ()

  let pp_rfc3339_micro = pp_rfc3339 ~frac_s:frac_s_micro ()

  let pp_rfc3339_nano = pp_rfc3339 ~frac_s:frac_s_nano ()

  let to_rfc3339 = RFC3339.of_time

  let to_rfc3339_milli = to_rfc3339 ~frac_s:frac_s_milli

  let to_rfc3339_micro = to_rfc3339 ~frac_s:frac_s_micro

  let to_rfc3339_nano = to_rfc3339 ~frac_s:frac_s_nano

  let of_iso8601 = ISO8601.to_time

  let of_iso8601_exn s = of_iso8601_exn' of_iso8601 s

  let to_sexp = To_sexp.sexp_of_time

  let to_sexp_string x = CCSexp.to_string (To_sexp.sexp_of_time x)

  let of_sexp = Of_sexp_utils.wrap_of_sexp Of_sexp.time_of_sexp

  let of_sexp_string =
    Of_sexp_utils.wrap_of_sexp_into_of_sexp_string Of_sexp.time_of_sexp

  let pp_sexp = Printers.wrap_to_sexp_into_pp_sexp To_sexp.sexp_of_time
end

exception Invalid_format_string = Printers.Invalid_format_string

module Span = struct
  include Span

  module For_human = struct
    include For_human'

    let to_string = Printers.string_of_span_for_human

    let pp = Printers.pp_span_for_human
  end

  let to_string = Printers.string_of_span

  let pp = Printers.pp_span

  let to_sexp = To_sexp.sexp_of_span

  let to_sexp_string x = CCSexp.to_string (To_sexp.sexp_of_span x)

  let of_sexp = Of_sexp_utils.wrap_of_sexp Of_sexp.span_of_sexp

  let of_sexp_string =
    Of_sexp_utils.wrap_of_sexp_into_of_sexp_string Of_sexp.span_of_sexp

  let pp_sexp = Printers.wrap_to_sexp_into_pp_sexp To_sexp.sexp_of_span
end

module Timestamp = struct
  include Span

  let min_val = timestamp_min

  let max_val = timestamp_max

  let now = timestamp_now

  let pp = Printers.pp_timestamp

  let to_string = Printers.string_of_timestamp

  let pp_rfc3339 = RFC3339.pp_timestamp

  let pp_rfc3339_milli = pp_rfc3339 ~frac_s:frac_s_milli ()

  let pp_rfc3339_micro = pp_rfc3339 ~frac_s:frac_s_micro ()

  let pp_rfc3339_nano = pp_rfc3339 ~frac_s:frac_s_nano ()

  let to_rfc3339 = RFC3339.of_timestamp

  let to_rfc3339_milli = to_rfc3339 ~frac_s:frac_s_milli

  let to_rfc3339_micro = to_rfc3339 ~frac_s:frac_s_micro

  let to_rfc3339_nano = to_rfc3339 ~frac_s:frac_s_nano

  let of_iso8601 = ISO8601.to_timestamp

  let of_iso8601_exn = of_iso8601_exn' ISO8601.to_timestamp

  let of_sexp = Of_sexp_utils.wrap_of_sexp Of_sexp.span_of_sexp

  let to_sexp = To_sexp.sexp_of_span
end

let to_string = Printers.string_of_date_time

exception
  Date_time_cannot_deduce_offset_from_utc = Printers
                                            .Date_time_cannot_deduce_offset_from_utc

let pp = Printers.pp_date_time

let pp_rfc3339 = RFC3339.pp_date_time

let pp_rfc3339_milli = pp_rfc3339 ~frac_s:frac_s_milli ()

let pp_rfc3339_micro = pp_rfc3339 ~frac_s:frac_s_micro ()

let pp_rfc3339_nano = pp_rfc3339 ~frac_s:frac_s_nano ()

let to_rfc3339 = RFC3339.of_date_time

let to_rfc3339_milli = to_rfc3339 ~frac_s:frac_s_milli

let to_rfc3339_micro = to_rfc3339 ~frac_s:frac_s_micro

let to_rfc3339_nano = to_rfc3339 ~frac_s:frac_s_nano

let of_iso8601 = ISO8601.to_date_time

let of_iso8601_exn = of_iso8601_exn' of_iso8601

let to_sexp = To_sexp.sexp_of_date_time

let to_sexp_string x = CCSexp.to_string (To_sexp.sexp_of_date_time x)

let of_sexp = Of_sexp_utils.wrap_of_sexp Of_sexp.date_time_of_sexp

let of_sexp_string =
  Of_sexp_utils.wrap_of_sexp_into_of_sexp_string Of_sexp.date_time_of_sexp

let pp_sexp = Printers.wrap_to_sexp_into_pp_sexp To_sexp.sexp_of_date_time

let min_of_local_result = min_of_local_result

let max_of_local_result = max_of_local_result

include Ymd_date_time

module Interval = struct
  type t = timestamp * timestamp

  let lt (x1, y1) (x2, y2) =
    (* lexicographic order *)
    Span.(x1 < x2 || (x1 = x2 && y1 < y2))

  let le x y = lt x y || x = y

  let gt x y = lt y x

  let ge x y = le y x

  let equal (x1, y1) (x2, y2) = Span.(x1 = x2 && y1 = y2)

  let compare x y = if lt x y then -1 else if x = y then 0 else 1

  let pp = Printers.pp_interval

  let to_string = Printers.string_of_interval

  let pp_seq = Printers.pp_intervals
end

module Zoneless = struct
  include Zoneless'

  let of_iso8601 = ISO8601.to_zoneless

  let of_iso8601_exn = of_iso8601_exn' ISO8601.to_zoneless

  let maybe_zoneless_of_iso8601 = ISO8601.to_maybe_zoneless

  let maybe_zoneless_of_iso8601_exn = of_iso8601_exn' ISO8601.to_maybe_zoneless

  let to_sexp = To_sexp.sexp_of_zoneless

  let of_sexp = Of_sexp_utils.wrap_of_sexp Of_sexp.zoneless_of_sexp
end

module Time_zone_info = struct
  include Time_zone_info

  let of_sexp = Of_sexp_utils.wrap_of_sexp Of_sexp.tz_info_of_sexp

  let to_sexp = To_sexp.sexp_of_tz_info
end

module Utils = struct
  let ptime_span_of_span = Ptime_utils.ptime_span_of_span

  let ptime_of_timestamp = Ptime_utils.ptime_of_timestamp

  let span_of_ptime_span = Ptime_utils.span_of_ptime_span

  let timestamp_of_ptime = Ptime_utils.timestamp_of_ptime

  let day_count_of_year = day_count_of_year

  let day_count_of_month = day_count_of_month

  let week_count_of_iso_week_year = week_count_of_iso_week_year

  type month =
    [ `Jan
    | `Feb
    | `Mar
    | `Apr
    | `May
    | `Jun
    | `Jul
    | `Aug
    | `Sep
    | `Oct
    | `Nov
    | `Dec
    ]

  let human_int_of_month (x : month) =
    match x with
    | `Jan -> 1
    | `Feb -> 2
    | `Mar -> 3
    | `Apr -> 4
    | `May -> 5
    | `Jun -> 6
    | `Jul -> 7
    | `Aug -> 8
    | `Sep -> 9
    | `Oct -> 10
    | `Nov -> 11
    | `Dec -> 12

  let index_of_month (x : month) = pred (human_int_of_month x)

  let month_of_human_int (x : int) : month option =
    match x with
    | 1 -> Some `Jan
    | 2 -> Some `Feb
    | 3 -> Some `Mar
    | 4 -> Some `Apr
    | 5 -> Some `May
    | 6 -> Some `Jun
    | 7 -> Some `Jul
    | 8 -> Some `Aug
    | 9 -> Some `Sep
    | 10 -> Some `Oct
    | 11 -> Some `Nov
    | 12 -> Some `Dec
    | _ -> None

  let month_of_index (x : int) : month option = month_of_human_int (succ x)

  let weekday_of_tm_int = weekday_of_tm_int

  let tm_int_of_weekday = tm_int_of_weekday

  let weekday_of_iso_int = weekday_of_iso_int

  let iso_int_of_weekday = iso_int_of_weekday

  let get_local_tz_for_arg = Time_zone_utils.get_local_tz_for_arg

  let abbr_string_of_weekday = abbr_string_of_weekday

  let is_leap_year = is_leap_year

  let jd_of_ymd = jd_of_ymd

  let jd_of_date (x : Date.t) = x.jd

  let jd_of_unix_epoch = jd_of_unix_epoch

  let jd_span_of_unix_epoch = jd_span_of_unix_epoch
end