go_over

-module(go_over@hex@hex).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/go_over/hex/hex.gleam").
-export([decode_licenses/1, fetch_licenses/2, rejected_license_sources/2, get_hex_info/3]).
-export_type([hex_warning_source/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 hex_warning_source() :: {rejected_license, binary()}.

-file("src/go_over/hex/hex.gleam", 15).
?DOC(false).
-spec pull_package_licenses(
    go_over@hex@puller:puller(),
    go_over@packages:package()
) -> nil.
pull_package_licenses(Puller, Pkg) ->
    go_over@util@print:progress(
        <<<<"Fetching licenses: "/utf8, (erlang:element(2, Pkg))/binary>>/binary,
            " from hex.pm"/utf8>>
    ),
    Pkg_path = go_over@hex@core:package_licenses_path(Pkg),
    Pkg_path_fail = go_over@hex@core:pkg_pull_error(Pkg, Pkg_path),
    _ = simplifile_erl:delete(Pkg_path),
    _pipe = simplifile:create_directory_all(Pkg_path),
    gxyz@cli:hard_fail_with_msg(_pipe, Pkg_path_fail),
    Resp = go_over@hex@core:do_pull_hex(
        Puller,
        Pkg,
        go_over@hex@core:package_url(Pkg)
    ),
    _pipe@1 = Pkg,
    _pipe@2 = go_over@hex@core:package_licenses_filename(_pipe@1),
    _pipe@3 = simplifile:write(_pipe@2, Resp),
    gxyz@cli:hard_fail_with_msg(_pipe@3, Pkg_path_fail).

-file("src/go_over/hex/hex.gleam", 32).
?DOC(false).
-spec decode_licenses(binary()) -> {ok, list(binary())} |
    {error, gleam@json:decode_error()}.
decode_licenses(Data) ->
    Decoder = begin
        gleam@dynamic@decode:subfield(
            [<<"meta"/utf8>>, <<"licenses"/utf8>>],
            gleam@dynamic@decode:list(
                {decoder, fun gleam@dynamic@decode:decode_string/1}
            ),
            fun(Licenses) -> gleam@dynamic@decode:success(Licenses) end
        )
    end,
    gleam@json:parse(Data, Decoder).

-file("src/go_over/hex/hex.gleam", 44).
?DOC(false).
-spec fetch_licenses(go_over@hex@puller:puller(), go_over@packages:package()) -> list(binary()).
fetch_licenses(Puller, Pkg) ->
    _pipe = Pkg,
    _pipe@1 = go_over@hex@core:package_licenses_path(_pipe),
    go_over@util@cache:pull_if_not_cached(
        _pipe@1,
        3600,
        gxyz@function:freeze2(fun pull_package_licenses/2, Puller, Pkg),
        <<(erlang:element(2, Pkg))/binary, ": package licenses"/utf8>>
    ),
    Cached_file_name = go_over@hex@core:package_licenses_filename(Pkg),
    Resp = begin
        _pipe@2 = Cached_file_name,
        _pipe@3 = simplifile:read(_pipe@2),
        gxyz@cli:hard_fail_with_msg(
            _pipe@3,
            <<"failed to read "/utf8, Cached_file_name/binary>>
        )
    end,
    gxyz@cli:hard_fail_with_msg(
        decode_licenses(Resp),
        <<"failed to parse "/utf8, Cached_file_name/binary>>
    ).

-file("src/go_over/hex/hex.gleam", 70).
?DOC(false).
-spec rejected_license_sources(list(binary()), list(binary())) -> list(hex_warning_source()).
rejected_license_sources(Licenses, Allowed_licenses) ->
    _pipe = gxyz@list:reject_contains(Licenses, Allowed_licenses),
    gleam@list:map(_pipe, fun(Field@0) -> {rejected_license, Field@0} end).

-file("src/go_over/hex/hex.gleam", 78).
?DOC(false).
-spec get_hex_info(
    go_over@hex@puller:puller(),
    go_over@packages:package(),
    list(binary())
) -> list(hex_warning_source()).
get_hex_info(Puller, Pkg, Allowed_licenses) ->
    _pipe = fetch_licenses(Puller, Pkg),
    rejected_license_sources(_pipe, Allowed_licenses).