glrss_parser

-module(glrss_parser@util).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([year_2digit_to_full/1, try_unwrap/3]).

-file("/home/benjamin/building/gleam/glrss_parser/src/glrss_parser/util.gleam", 6).
-spec year_2digit_to_full(integer()) -> integer().
year_2digit_to_full(Year_2digit) ->
    Current_year = glrss_parser_ffi:current_year(),
    Current_century_year = (Current_year div 100) * 100,
    Current_2digit = (Current_year rem 100) + 1,
    case Year_2digit > Current_2digit of
        true ->
            (Year_2digit + Current_century_year) - 100;

        false ->
            Year_2digit + Current_century_year
    end.

-file("/home/benjamin/building/gleam/glrss_parser/src/glrss_parser/util.gleam", 29).
-spec try_unwrap(
    {ok, KZR} | {error, KZS},
    KZV,
    fun((KZR) -> {ok, KZV} | {error, KZS})
) -> KZV.
try_unwrap(Result, Unwrap, Fun) ->
    case Result of
        {ok, A} ->
            case Fun(A) of
                {ok, B} ->
                    B;

                {error, _} ->
                    Unwrap
            end;

        {error, _} ->
            Unwrap
    end.