birl

-module(birl_ffi).

-export([
    now/0,
    local_offset/0,
    monotonic_now/0,
    to_parts/1,
    from_parts/2,
    weekday/1
]).

-define(DaysInMonths, [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]).

now() -> os:system_time(microsecond).

local_offset() ->
    Timestamp = erlang:timestamp(),
    {{_, _, LD}, {LH, LM, _}} = calendar:now_to_local_time(Timestamp),
    {{_, _, UD}, {UH, UM, _}} = calendar:now_to_universal_time(Timestamp),
    if
        LD - UD == 0 -> (LH - UH) * 60 + LM - UM;
        true -> (LD - UD) * ((23 - UH) * 60 + (60 - UM) + LH * 60 + LM)
    end.

monotonic_now() ->
    StartTime = erlang:system_info(start_time),
    CurrentTime = erlang:monotonic_time(),
    (CurrentTime - StartTime) div 1_000.

to_parts(Timestamp) ->
    {Date, {Hour, Minute, Second}} = calendar:system_time_to_universal_time(
        Timestamp, microsecond
    ),
    MilliSecond = (Timestamp rem 1_000_000) div 1_000,
    {Date, {Hour, Minute, Second, MilliSecond}}.

from_parts(Parts, Offset) ->
    {{Year, Month, Day}, {Hour, Minute, Second, MilliSecond}} = Parts,
    DaysInYears = calculate_days_from_year(Year - 1, 0),
    DaysInMonths = calculate_days_from_month(Year, Month - 1, 0),
    Days = DaysInYears + DaysInMonths + Day - 1,
    Seconds = (Days * 3600 * 24) + (Hour * 3600) + (Minute * 60) + Second,
    Seconds * 1_000_000 + MilliSecond * 1_000 - Offset.

weekday(Timestamp) ->
    {Date, _} = to_parts(Timestamp),
    calendar:day_of_the_week(Date) - 1.

calculate_days_from_year(1969, Days) ->
    Days;
calculate_days_from_year(Year, Days) when Year > 1969 ->
    case calendar:is_leap_year(Year) of
        true ->
            calculate_days_from_year(Year - 1, Days + 366);
        false ->
            calculate_days_from_year(Year - 1, Days + 365)
    end;
calculate_days_from_year(Year, Days) when Year < 1969 ->
    case calendar:is_leap_year(Year) of
        true ->
            calculate_days_from_year(Year + 1, Days - 366);
        false ->
            calculate_days_from_year(Year + 1, Days - 365)
    end.

calculate_days_from_month(_, 0, Days) ->
    Days;
calculate_days_from_month(Year, Month, Days) ->
    case calendar:is_leap_year(Year) and (Month == 2) of
        true ->
            calculate_days_from_month(Year, 1, Days + 29);
        false ->
            calculate_days_from_month(Year, Month - 1, Days + lists:nth(Month, ?DaysInMonths))
    end.

% to_iso(Timestamp) ->
%     {{Year, Month, Day}, {Hour, Minute, Second}} = to_parts(Timestamp),
%     MilliSecond = (Timestamp rem 1_000_000) div 1_000,
%     iolist_to_binary(
%         io_lib:format(
%             "~4.10.0B-~2.10.0B-~2.10.0BT~2.10.0B:~2.10.0B:~2.10.0B.~3.10.0BZ",
%             [Year, Month, Day, Hour, Minute, Second, MilliSecond]
%         )
%     ).

% from_iso(ISODate) ->
%     [Date, Time] = string:split(ISODate, "T"),
%     [YearStr, MonthStr, DayStr] = string:split(Date, "-", all),
%     [HoursStr, MinutesStr, Rest] = string:split(Time, ":", all),
%     [SecondsStr, MilliSecondsStr] = string:split(Rest, "."),
%     Year = binary_to_integer(YearStr),
%     Month = binary_to_integer(MonthStr),
%     Day = binary_to_integer(DayStr),
%     Hours = binary_to_integer(HoursStr),
%     Minutes = binary_to_integer(MinutesStr),
%     Seconds = binary_to_integer(SecondsStr),
%     MilliSeconds = binary_to_integer(string:slice(MilliSecondsStr, 0, 3)),
%     DaysInYears = calculate_days_from_year(Year - 1, 0),
%     DaysInMonths = calculate_days_from_month(Year, Month - 1, 0),
%     Days = DaysInYears + DaysInMonths + Day - 1,
%     TotalMilliSeconds =
%         ((((Days * 3600 * 24) + (Hours * 3600) + (Minutes * 60) + Seconds) * 1000) + MilliSeconds),
%     TotalMilliSeconds * 1000.