dateformat

-module(dateformat@internal@time).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/dateformat/internal/time.gleam").
-export([to_hour_of_day/1, to_hour_of_period/1, to_day_period/1, to_minute_of_hour/1, to_second_of_minute/1, to_milli_of_second/1]).

-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.

?MODULEDOC(false).

-file("src/dateformat/internal/time.gleam", 3).
?DOC(false).
-spec to_hour_of_day(birl:time()) -> integer().
to_hour_of_day(Time) ->
    erlang:element(
        2,
        begin
            _pipe = Time,
            birl:get_time_of_day(_pipe)
        end
    ).

-file("src/dateformat/internal/time.gleam", 7).
?DOC(false).
-spec to_hour_of_period(birl:time()) -> integer().
to_hour_of_period(Time) ->
    case to_hour_of_day(Time) of
        0 ->
            12;

        12 ->
            12;

        M when M < 12 ->
            M;

        M@1 ->
            M@1 - 12
    end.

-file("src/dateformat/internal/time.gleam", 15).
?DOC(false).
-spec to_day_period(birl:time()) -> binary().
to_day_period(Time) ->
    case to_hour_of_day(Time) of
        M when M < 12 ->
            <<"AM"/utf8>>;

        _ ->
            <<"PM"/utf8>>
    end.

-file("src/dateformat/internal/time.gleam", 22).
?DOC(false).
-spec to_minute_of_hour(birl:time()) -> integer().
to_minute_of_hour(Time) ->
    erlang:element(
        3,
        begin
            _pipe = Time,
            birl:get_time_of_day(_pipe)
        end
    ).

-file("src/dateformat/internal/time.gleam", 26).
?DOC(false).
-spec to_second_of_minute(birl:time()) -> integer().
to_second_of_minute(Time) ->
    erlang:element(
        4,
        begin
            _pipe = Time,
            birl:get_time_of_day(_pipe)
        end
    ).

-file("src/dateformat/internal/time.gleam", 30).
?DOC(false).
-spec to_milli_of_second(birl:time()) -> integer().
to_milli_of_second(Time) ->
    erlang:element(
        5,
        begin
            _pipe = Time,
            birl:get_time_of_day(_pipe)
        end
    ).