go_over

-module(go_over@packages).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([read_manifest/1]).
-export_type([package/0]).

-type package() :: {package, binary(), gleamsver:sem_ver(), binary(), boolean()}.

-spec read_manifest(binary()) -> list(package()).
read_manifest(Path) ->
    _assert_subject = begin
        _pipe = simplifile:read(Path),
        go_over@util@util:hard_fail(
            _pipe,
            <<"could not parse "/utf8, Path/binary>>
        )
    end,
    {some, Res} = case _assert_subject of
        {some, _} -> _assert_subject;
        _assert_fail ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail,
                        module => <<"go_over/packages"/utf8>>,
                        function => <<"read_manifest"/utf8>>,
                        line => 17})
    end,
    _assert_subject@1 = begin
        _pipe@1 = tom:parse(Res),
        go_over@util@util:hard_fail(
            _pipe@1,
            <<"could not parse "/utf8, Path/binary>>
        )
    end,
    {some, Manifest} = case _assert_subject@1 of
        {some, _} -> _assert_subject@1;
        _assert_fail@1 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail@1,
                        module => <<"go_over/packages"/utf8>>,
                        function => <<"read_manifest"/utf8>>,
                        line => 19})
    end,
    _assert_subject@2 = begin
        _pipe@2 = tom:get_array(Manifest, [<<"packages"/utf8>>]),
        go_over@util@util:hard_fail(
            _pipe@2,
            <<<<"could not parse "/utf8, Path/binary>>/binary,
                " value: packages"/utf8>>
        )
    end,
    {some, Packages} = case _assert_subject@2 of
        {some, _} -> _assert_subject@2;
        _assert_fail@2 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail@2,
                        module => <<"go_over/packages"/utf8>>,
                        function => <<"read_manifest"/utf8>>,
                        line => 21})
    end,
    _assert_subject@3 = begin
        _pipe@3 = tom:get_table(Manifest, [<<"requirements"/utf8>>]),
        go_over@util@util:hard_fail(
            _pipe@3,
            <<<<"could not parse "/utf8, Path/binary>>/binary,
                " value: requirements"/utf8>>
        )
    end,
    {some, Requirements} = case _assert_subject@3 of
        {some, _} -> _assert_subject@3;
        _assert_fail@3 ->
            erlang:error(#{gleam_error => let_assert,
                        message => <<"Assertion pattern match failed"/utf8>>,
                        value => _assert_fail@3,
                        module => <<"go_over/packages"/utf8>>,
                        function => <<"read_manifest"/utf8>>,
                        line => 24})
    end,
    Required_packages = gleam@dict:keys(Requirements),
    _pipe@7 = gleam@list:map(Packages, fun(P) -> case P of
                {inline_table, T} ->
                    _assert_subject@4 = begin
                        _pipe@4 = tom:get_string(T, [<<"name"/utf8>>]),
                        go_over@util@util:hard_fail(
                            _pipe@4,
                            <<"could not parse parckage: "/utf8,
                                (gleam@string:inspect(T))/binary>>
                        )
                    end,
                    {some, Name} = case _assert_subject@4 of
                        {some, _} -> _assert_subject@4;
                        _assert_fail@4 ->
                            erlang:error(#{gleam_error => let_assert,
                                        message => <<"Assertion pattern match failed"/utf8>>,
                                        value => _assert_fail@4,
                                        module => <<"go_over/packages"/utf8>>,
                                        function => <<"read_manifest"/utf8>>,
                                        line => 32})
                    end,
                    _assert_subject@5 = begin
                        _pipe@5 = tom:get_string(T, [<<"version"/utf8>>]),
                        go_over@util@util:hard_fail(
                            _pipe@5,
                            <<"could not parse parckage: "/utf8,
                                (gleam@string:inspect(T))/binary>>
                        )
                    end,
                    {some, Ver} = case _assert_subject@5 of
                        {some, _} -> _assert_subject@5;
                        _assert_fail@5 ->
                            erlang:error(#{gleam_error => let_assert,
                                        message => <<"Assertion pattern match failed"/utf8>>,
                                        value => _assert_fail@5,
                                        module => <<"go_over/packages"/utf8>>,
                                        function => <<"read_manifest"/utf8>>,
                                        line => 35})
                    end,
                    _assert_subject@6 = begin
                        _pipe@6 = gleamsver:parse(Ver),
                        go_over@util@util:hard_fail(
                            _pipe@6,
                            <<"could not parse parckage version: "/utf8,
                                Ver/binary>>
                        )
                    end,
                    {some, Semver} = case _assert_subject@6 of
                        {some, _} -> _assert_subject@6;
                        _assert_fail@6 ->
                            erlang:error(#{gleam_error => let_assert,
                                        message => <<"Assertion pattern match failed"/utf8>>,
                                        value => _assert_fail@6,
                                        module => <<"go_over/packages"/utf8>>,
                                        function => <<"read_manifest"/utf8>>,
                                        line => 38})
                    end,
                    {some,
                        {package,
                            Name,
                            Semver,
                            Ver,
                            gleam@list:contains(Required_packages, Name)}};

                _ ->
                    go_over@util@print:warning(
                        <<"could not parse packages: incorrect type"/utf8>>
                    ),
                    shellout_ffi:os_exit(1),
                    none
            end end),
    gleam@option:values(_pipe@7).