parrot

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

-export([root/0, src/0, project_name/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).

-file("src/parrot/internal/project.gleam", 28).
?DOC(false).
-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.

-file("src/parrot/internal/project.gleam", 9).
?DOC(false).
-spec root() -> binary().
root() ->
    find_root(<<"."/utf8>>).

-file("src/parrot/internal/project.gleam", 13).
?DOC(false).
-spec src() -> binary().
src() ->
    filepath:join(root(), <<"src"/utf8>>).

-file("src/parrot/internal/project.gleam", 17).
?DOC(false).
-spec project_name() -> binary().
project_name() ->
    Root = find_root(<<"."/utf8>>),
    Toml_path = filepath:join(Root, <<"gleam.toml"/utf8>>),
    _assert_subject = simplifile:read(Toml_path),
    {ok, Toml} = case _assert_subject of
        {ok, _} -> _assert_subject;
        _assert_fail ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
                        value => _assert_fail,
                        module => <<"parrot/internal/project"/utf8>>,
                        function => <<"project_name"/utf8>>,
                        line => 20})
    end,
    _assert_subject@1 = tom:parse(Toml),
    {ok, Parsed} = case _assert_subject@1 of
        {ok, _} -> _assert_subject@1;
        _assert_fail@1 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
                        value => _assert_fail@1,
                        module => <<"parrot/internal/project"/utf8>>,
                        function => <<"project_name"/utf8>>,
                        line => 22})
    end,
    _assert_subject@2 = tom:get_string(Parsed, [<<"name"/utf8>>]),
    {ok, Name} = case _assert_subject@2 of
        {ok, _} -> _assert_subject@2;
        _assert_fail@2 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
                        value => _assert_fail@2,
                        module => <<"parrot/internal/project"/utf8>>,
                        function => <<"project_name"/utf8>>,
                        line => 23})
    end,
    Name.