webls

-module(webls@robots).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([to_string/1, robot/1, allowed_routes/2, disallowed_routes/2]).
-export_type([robots_config/0, robot/0]).

-type robots_config() :: {robots_config, binary(), list(robot())}.

-type robot() :: {robot, binary(), list(binary()), list(binary())}.

-spec robot_to_string(robot()) -> binary().
robot_to_string(Robot) ->
    <<<<<<<<<<"User-agent: "/utf8, (erlang:element(2, Robot))/binary>>/binary,
                    "\n"/utf8>>/binary,
                (begin
                    _pipe = erlang:element(3, Robot),
                    _pipe@1 = gleam@list:map(
                        _pipe,
                        fun(Route) -> <<"Allow: "/utf8, Route/binary>> end
                    ),
                    _pipe@2 = gleam@list:reduce(
                        _pipe@1,
                        fun(Acc, Line) ->
                            <<<<Acc/binary, "\n"/utf8>>/binary, Line/binary>>
                        end
                    ),
                    gleam@result:unwrap(_pipe@2, <<""/utf8>>)
                end)/binary>>/binary,
            "\n"/utf8>>/binary,
        (begin
            _pipe@3 = erlang:element(4, Robot),
            _pipe@4 = gleam@list:map(
                _pipe@3,
                fun(Route@1) -> <<"Disallow: "/utf8, Route@1/binary>> end
            ),
            _pipe@5 = gleam@list:reduce(
                _pipe@4,
                fun(Acc@1, Line@1) ->
                    <<<<Acc@1/binary, "\n"/utf8>>/binary, Line@1/binary>>
                end
            ),
            gleam@result:unwrap(_pipe@5, <<""/utf8>>)
        end)/binary>>.

-spec to_string(robots_config()) -> binary().
to_string(Config) ->
    <<<<<<"Sitemap: "/utf8, (erlang:element(2, Config))/binary>>/binary,
            "\n\n"/utf8>>/binary,
        (begin
            _pipe = erlang:element(3, Config),
            _pipe@2 = gleam@list:map(_pipe, fun(Robot) -> _pipe@1 = Robot,
                    robot_to_string(_pipe@1) end),
            _pipe@3 = gleam@list:reduce(
                _pipe@2,
                fun(Acc, Line) ->
                    <<<<Acc/binary, "\n\n"/utf8>>/binary, Line/binary>>
                end
            ),
            gleam@result:unwrap(_pipe@3, <<""/utf8>>)
        end)/binary>>.

-spec robot(binary()) -> robot().
robot(User_agent) ->
    {robot, User_agent, [], []}.

-spec allowed_routes(robot(), list(binary())) -> robot().
allowed_routes(Robot, Routes) ->
    erlang:setelement(3, Robot, Routes).

-spec disallowed_routes(robot(), list(binary())) -> robot().
disallowed_routes(Robot, Routes) ->
    erlang:setelement(4, Robot, Routes).