-module(squirrel@internal@project).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([name/0, src/0]).

-spec try_nil(
    {ok, WEF} | {error, any()},
    fun((WEF) -> {ok, WEJ} | {error, nil})
) -> {ok, WEJ} | {error, nil}.
try_nil(Result, Do) ->
    gleam@result:'try'(gleam@result:replace_error(Result, nil), Do).

-spec find_root(binary()) -> binary().
find_root(Path) ->
    Toml = filepath:join(Path, <<"gleam.toml"/utf8>>),
    case simplifile_erl:is_file(Toml) of
        {ok, false} ->
            find_root(filepath:join(<<".."/utf8>>, Path));

        {error, _} ->
            find_root(filepath:join(<<".."/utf8>>, Path));

        {ok, true} ->
            Path
    end.

-spec root() -> binary().
root() ->
    find_root(<<"."/utf8>>).

-spec name() -> {ok, binary()} | {error, nil}.
name() ->
    Configuration_path = filepath:join(root(), <<"gleam.toml"/utf8>>),
    try_nil(
        simplifile:read(Configuration_path),
        fun(Configuration) ->
            try_nil(
                tom:parse(Configuration),
                fun(Toml) ->
                    try_nil(
                        tom:get_string(Toml, [<<"name"/utf8>>]),
                        fun(Name) -> {ok, Name} end
                    )
                end
            )
        end
    ).

-spec src() -> binary().
src() ->
    filepath:join(root(), <<"src"/utf8>>).