dateformat

-module(dateformat@internal@time).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-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]).

-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
    ).

-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.

-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.

-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
    ).

-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
    ).

-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
    ).