-module(oaspec@internal@util@naming).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/oaspec/internal/util/naming.gleam").
-export([capitalize/1, to_pascal_case/1, schema_to_type_name/1, to_snake_case/1, operation_to_function_name/1, deduplicate_names/1]).
-export_type([regexes/0]).

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

-type regexes() :: {regexes,
        gleam@regexp:regexp(),
        gleam@regexp:regexp(),
        gleam@regexp:regexp()}.

-file("src/oaspec/internal/util/naming.gleam", 17).
?DOC(false).
-spec compile_regexes() -> regexes().
compile_regexes() ->
    Word_separator@1 = case gleam@regexp:from_string(<<"[_\\-\\s./]+"/utf8>>) of
        {ok, Word_separator} -> Word_separator;
        _assert_fail ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
                        file => <<?FILEPATH/utf8>>,
                        module => <<"oaspec/internal/util/naming"/utf8>>,
                        function => <<"compile_regexes"/utf8>>,
                        line => 19,
                        value => _assert_fail,
                        start => 454,
                        'end' => 520,
                        pattern_start => 465,
                        pattern_end => 483})
    end,
    Camel_case@1 = case gleam@regexp:from_string(
        <<"([A-Z]+(?=[A-Z][a-z])|[A-Z]?[a-z]+[0-9]*|[A-Z]+[0-9]*|[0-9]+)"/utf8>>
    ) of
        {ok, Camel_case} -> Camel_case;
        _assert_fail@1 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
                        file => <<?FILEPATH/utf8>>,
                        module => <<"oaspec/internal/util/naming"/utf8>>,
                        function => <<"compile_regexes"/utf8>>,
                        line => 41,
                        value => _assert_fail@1,
                        start => 1764,
                        'end' => 1892,
                        pattern_start => 1775,
                        pattern_end => 1789})
    end,
    Underscore_before_caps@1 = case gleam@regexp:from_string(
        <<"([a-z0-9])([A-Z])"/utf8>>
    ) of
        {ok, Underscore_before_caps} -> Underscore_before_caps;
        _assert_fail@2 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
                        file => <<?FILEPATH/utf8>>,
                        module => <<"oaspec/internal/util/naming"/utf8>>,
                        function => <<"compile_regexes"/utf8>>,
                        line => 46,
                        value => _assert_fail@2,
                        start => 1955,
                        'end' => 2038,
                        pattern_start => 1966,
                        pattern_end => 1992})
    end,
    {regexes, Word_separator@1, Camel_case@1, Underscore_before_caps@1}.

-file("src/oaspec/internal/util/naming.gleam", 120).
?DOC(false).
-spec rewrite_leading_signs(binary()) -> binary().
rewrite_leading_signs(Input) ->
    case gleam_stdlib:string_pop_grapheme(Input) of
        {ok, {<<"+"/utf8>>, Rest}} ->
            <<"plus_"/utf8, Rest/binary>>;

        {ok, {<<"-"/utf8>>, Rest@1}} ->
            <<"minus_"/utf8, Rest@1/binary>>;

        _ ->
            Input
    end.

-file("src/oaspec/internal/util/naming.gleam", 147).
?DOC(false).
-spec is_digit(binary()) -> boolean().
is_digit(Grapheme) ->
    case Grapheme of
        <<"0"/utf8>> ->
            true;

        <<"1"/utf8>> ->
            true;

        <<"2"/utf8>> ->
            true;

        <<"3"/utf8>> ->
            true;

        <<"4"/utf8>> ->
            true;

        <<"5"/utf8>> ->
            true;

        <<"6"/utf8>> ->
            true;

        <<"7"/utf8>> ->
            true;

        <<"8"/utf8>> ->
            true;

        <<"9"/utf8>> ->
            true;

        _ ->
            false
    end.

-file("src/oaspec/internal/util/naming.gleam", 74).
?DOC(false).
-spec ensure_letter_start_pascal(binary()) -> binary().
ensure_letter_start_pascal(Input) ->
    case gleam_stdlib:string_pop_grapheme(Input) of
        {ok, {First, _}} ->
            case is_digit(First) of
                true ->
                    <<"N"/utf8, Input/binary>>;

                false ->
                    Input
            end;

        {error, _} ->
            Input
    end.

-file("src/oaspec/internal/util/naming.gleam", 133).
?DOC(false).
-spec ensure_letter_start(binary()) -> binary().
ensure_letter_start(Input) ->
    case gleam_stdlib:string_pop_grapheme(Input) of
        {ok, {First, _}} ->
            case is_digit(First) of
                true ->
                    <<"n_"/utf8, Input/binary>>;

                false ->
                    Input
            end;

        {error, _} ->
            Input
    end.

-file("src/oaspec/internal/util/naming.gleam", 155).
?DOC(false).
-spec escape_keyword(binary()) -> binary().
escape_keyword(Name) ->
    case Name of
        <<"as"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"assert"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"auto"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"case"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"const"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"external"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"fn"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"if"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"import"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"let"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"opaque"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"panic"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"pub"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"test"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"todo"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"type"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        <<"use"/utf8>> ->
            <<Name/binary, "_"/utf8>>;

        _ ->
            Name
    end.

-file("src/oaspec/internal/util/naming.gleam", 191).
?DOC(false).
-spec capitalize(binary()) -> binary().
capitalize(Input) ->
    case gleam_stdlib:string_pop_grapheme(Input) of
        {ok, {First, Rest}} ->
            <<(string:uppercase(First))/binary, Rest/binary>>;

        {error, _} ->
            Input
    end.

-file("src/oaspec/internal/util/naming.gleam", 208).
?DOC(false).
-spec split_camel_case(binary(), regexes()) -> list(binary()).
split_camel_case(Input, Re) ->
    Matches = gleam@regexp:scan(erlang:element(3, Re), Input),
    case Matches of
        [] ->
            [Input];

        _ ->
            gleam@list:map(
                Matches,
                fun(M) ->
                    {match, Content, _} = M,
                    Content
                end
            )
    end.

-file("src/oaspec/internal/util/naming.gleam", 200).
?DOC(false).
-spec split_words(binary(), regexes()) -> list(binary()).
split_words(Input, Re) ->
    Parts = gleam@regexp:split(erlang:element(2, Re), Input),
    _pipe = Parts,
    _pipe@1 = gleam@list:flat_map(
        _pipe,
        fun(_capture) -> split_camel_case(_capture, Re) end
    ),
    gleam@list:filter(_pipe@1, fun(S) -> S /= <<""/utf8>> end).

-file("src/oaspec/internal/util/naming.gleam", 59).
?DOC(false).
-spec to_pascal_case(binary()) -> binary().
to_pascal_case(Input) ->
    Re = compile_regexes(),
    _pipe = Input,
    _pipe@1 = rewrite_leading_signs(_pipe),
    _pipe@2 = split_words(_pipe@1, Re),
    _pipe@3 = gleam@list:map(_pipe@2, fun capitalize/1),
    _pipe@4 = gleam@string:join(_pipe@3, <<""/utf8>>),
    ensure_letter_start_pascal(_pipe@4).

-file("src/oaspec/internal/util/naming.gleam", 185).
?DOC(false).
-spec schema_to_type_name(binary()) -> binary().
schema_to_type_name(Schema_name) ->
    _pipe = Schema_name,
    to_pascal_case(_pipe).

-file("src/oaspec/internal/util/naming.gleam", 221).
?DOC(false).
-spec insert_underscores_before_caps(binary(), regexes()) -> binary().
insert_underscores_before_caps(Input, Re) ->
    gleam_regexp_ffi:replace(erlang:element(4, Re), Input, <<"\\1_\\2"/utf8>>).

-file("src/oaspec/internal/util/naming.gleam", 102).
?DOC(false).
-spec to_snake_case(binary()) -> binary().
to_snake_case(Input) ->
    Re = compile_regexes(),
    Result = begin
        _pipe = Input,
        _pipe@1 = rewrite_leading_signs(_pipe),
        _pipe@2 = insert_underscores_before_caps(_pipe@1, Re),
        _pipe@3 = split_words(_pipe@2, Re),
        _pipe@4 = gleam@list:map(_pipe@3, fun string:lowercase/1),
        _pipe@5 = gleam@string:join(_pipe@4, <<"_"/utf8>>),
        ensure_letter_start(_pipe@5)
    end,
    escape_keyword(Result).

-file("src/oaspec/internal/util/naming.gleam", 179).
?DOC(false).
-spec operation_to_function_name(binary()) -> binary().
operation_to_function_name(Operation_id) ->
    _pipe = Operation_id,
    to_snake_case(_pipe).

-file("src/oaspec/internal/util/naming.gleam", 227).
?DOC(false).
-spec deduplicate_names(list(binary())) -> list(binary()).
deduplicate_names(Names) ->
    {Result_rev, _} = gleam@list:fold(
        Names,
        {[], maps:new()},
        fun(Acc, Name) ->
            {Result, Counts} = Acc,
            case gleam_stdlib:map_get(Counts, Name) of
                {error, _} ->
                    Counts@1 = gleam@dict:insert(Counts, Name, 1),
                    {[Name | Result], Counts@1};

                {ok, Count} ->
                    New_count = Count + 1,
                    Unique_name = <<<<Name/binary, "_"/utf8>>/binary,
                        (erlang:integer_to_binary(New_count))/binary>>,
                    Counts@2 = gleam@dict:insert(Counts, Name, New_count),
                    {[Unique_name | Result], Counts@2}
            end
        end
    ),
    lists:reverse(Result_rev).