src/gleeps@stdlib@uri.erl

Select File:
src/gleeps@stdlib@uri.erl

-module(gleeps@stdlib@uri).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/gleeps/stdlib/uri.gleam").
-export([parse/1, parse_query/1, percent_encode/1, query_to_string/1, percent_decode/1, path_segments/1, to_string/1, origin/1, merge/2]).
-export_type([uri/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(
    " Utilities for working with URIs\n"
    "\n"
    " This module provides functions for working with URIs (for example, parsing\n"
    " URIs or encoding query strings). The functions in this module are implemented\n"
    " according to [RFC 3986](https://tools.ietf.org/html/rfc3986).\n"
    "\n"
    " Query encoding (Form encoding) is defined in the\n"
    " [W3C specification](https://www.w3.org/TR/html52/sec-forms.html#urlencoded-form-data).\n"
).

-type uri() :: {uri,
        gleeps@stdlib@option:option(binary()),
        gleeps@stdlib@option:option(binary()),
        gleeps@stdlib@option:option(binary()),
        gleeps@stdlib@option:option(integer()),
        binary(),
        gleeps@stdlib@option:option(binary()),
        gleeps@stdlib@option:option(binary())}.

-file("src/gleeps/stdlib/uri.gleam", 506).
-spec parse_fragment(binary(), uri()) -> {ok, uri()} | {error, nil}.
parse_fragment(Rest, Pieces) ->
    {ok,
        {uri,
            erlang:element(2, Pieces),
            erlang:element(3, Pieces),
            erlang:element(4, Pieces),
            erlang:element(5, Pieces),
            erlang:element(6, Pieces),
            erlang:element(7, Pieces),
            {some, Rest}}}.

-file("src/gleeps/stdlib/uri.gleam", 478).
-spec parse_query_with_question_mark_loop(binary(), binary(), uri(), integer()) -> {ok,
        uri()} |
    {error, nil}.
parse_query_with_question_mark_loop(Original, Uri_string, Pieces, Size) ->
    case Uri_string of
        <<"#"/utf8, Rest/binary>> when Size =:= 0 ->
            parse_fragment(Rest, Pieces);

        <<"#"/utf8, Rest@1/binary>> ->
            Query = binary:part(Original, 0, Size),
            Pieces@1 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                {some, Query},
                erlang:element(8, Pieces)},
            parse_fragment(Rest@1, Pieces@1);

        <<""/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    erlang:element(4, Pieces),
                    erlang:element(5, Pieces),
                    erlang:element(6, Pieces),
                    {some, Original},
                    erlang:element(8, Pieces)}};

        _ ->
            {_, Rest@2} = gleam_stdlib:string_pop_codeunit(Uri_string),
            parse_query_with_question_mark_loop(
                Original,
                Rest@2,
                Pieces,
                Size + 1
            )
    end.

-file("src/gleeps/stdlib/uri.gleam", 471).
-spec parse_query_with_question_mark(binary(), uri()) -> {ok, uri()} |
    {error, nil}.
parse_query_with_question_mark(Uri_string, Pieces) ->
    parse_query_with_question_mark_loop(Uri_string, Uri_string, Pieces, 0).

-file("src/gleeps/stdlib/uri.gleam", 437).
-spec parse_path_loop(binary(), binary(), uri(), integer()) -> {ok, uri()} |
    {error, nil}.
parse_path_loop(Original, Uri_string, Pieces, Size) ->
    case Uri_string of
        <<"?"/utf8, Rest/binary>> ->
            Path = binary:part(Original, 0, Size),
            Pieces@1 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                Path,
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_query_with_question_mark(Rest, Pieces@1);

        <<"#"/utf8, Rest@1/binary>> ->
            Path@1 = binary:part(Original, 0, Size),
            Pieces@2 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                Path@1,
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_fragment(Rest@1, Pieces@2);

        <<""/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    erlang:element(4, Pieces),
                    erlang:element(5, Pieces),
                    Original,
                    erlang:element(7, Pieces),
                    erlang:element(8, Pieces)}};

        _ ->
            {_, Rest@2} = gleam_stdlib:string_pop_codeunit(Uri_string),
            parse_path_loop(Original, Rest@2, Pieces, Size + 1)
    end.

-file("src/gleeps/stdlib/uri.gleam", 433).
-spec parse_path(binary(), uri()) -> {ok, uri()} | {error, nil}.
parse_path(Uri_string, Pieces) ->
    parse_path_loop(Uri_string, Uri_string, Pieces, 0).

-file("src/gleeps/stdlib/uri.gleam", 388).
-spec parse_port_loop(binary(), uri(), integer()) -> {ok, uri()} | {error, nil}.
parse_port_loop(Uri_string, Pieces, Port) ->
    case Uri_string of
        <<"0"/utf8, Rest/binary>> ->
            parse_port_loop(Rest, Pieces, Port * 10);

        <<"1"/utf8, Rest@1/binary>> ->
            parse_port_loop(Rest@1, Pieces, (Port * 10) + 1);

        <<"2"/utf8, Rest@2/binary>> ->
            parse_port_loop(Rest@2, Pieces, (Port * 10) + 2);

        <<"3"/utf8, Rest@3/binary>> ->
            parse_port_loop(Rest@3, Pieces, (Port * 10) + 3);

        <<"4"/utf8, Rest@4/binary>> ->
            parse_port_loop(Rest@4, Pieces, (Port * 10) + 4);

        <<"5"/utf8, Rest@5/binary>> ->
            parse_port_loop(Rest@5, Pieces, (Port * 10) + 5);

        <<"6"/utf8, Rest@6/binary>> ->
            parse_port_loop(Rest@6, Pieces, (Port * 10) + 6);

        <<"7"/utf8, Rest@7/binary>> ->
            parse_port_loop(Rest@7, Pieces, (Port * 10) + 7);

        <<"8"/utf8, Rest@8/binary>> ->
            parse_port_loop(Rest@8, Pieces, (Port * 10) + 8);

        <<"9"/utf8, Rest@9/binary>> ->
            parse_port_loop(Rest@9, Pieces, (Port * 10) + 9);

        <<"?"/utf8, Rest@10/binary>> ->
            Pieces@1 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                {some, Port},
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_query_with_question_mark(Rest@10, Pieces@1);

        <<"#"/utf8, Rest@11/binary>> ->
            Pieces@2 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                {some, Port},
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_fragment(Rest@11, Pieces@2);

        <<"/"/utf8, _/binary>> ->
            Pieces@3 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                {some, Port},
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_path(Uri_string, Pieces@3);

        <<""/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    erlang:element(4, Pieces),
                    {some, Port},
                    erlang:element(6, Pieces),
                    erlang:element(7, Pieces),
                    erlang:element(8, Pieces)}};

        _ ->
            {error, nil}
    end.

-file("src/gleeps/stdlib/uri.gleam", 353).
-spec parse_port(binary(), uri()) -> {ok, uri()} | {error, nil}.
parse_port(Uri_string, Pieces) ->
    case Uri_string of
        <<":0"/utf8, Rest/binary>> ->
            parse_port_loop(Rest, Pieces, 0);

        <<":1"/utf8, Rest@1/binary>> ->
            parse_port_loop(Rest@1, Pieces, 1);

        <<":2"/utf8, Rest@2/binary>> ->
            parse_port_loop(Rest@2, Pieces, 2);

        <<":3"/utf8, Rest@3/binary>> ->
            parse_port_loop(Rest@3, Pieces, 3);

        <<":4"/utf8, Rest@4/binary>> ->
            parse_port_loop(Rest@4, Pieces, 4);

        <<":5"/utf8, Rest@5/binary>> ->
            parse_port_loop(Rest@5, Pieces, 5);

        <<":6"/utf8, Rest@6/binary>> ->
            parse_port_loop(Rest@6, Pieces, 6);

        <<":7"/utf8, Rest@7/binary>> ->
            parse_port_loop(Rest@7, Pieces, 7);

        <<":8"/utf8, Rest@8/binary>> ->
            parse_port_loop(Rest@8, Pieces, 8);

        <<":9"/utf8, Rest@9/binary>> ->
            parse_port_loop(Rest@9, Pieces, 9);

        <<":"/utf8>> ->
            {ok, Pieces};

        <<""/utf8>> ->
            {ok, Pieces};

        <<"?"/utf8, Rest@10/binary>> ->
            parse_query_with_question_mark(Rest@10, Pieces);

        <<":?"/utf8, Rest@10/binary>> ->
            parse_query_with_question_mark(Rest@10, Pieces);

        <<"#"/utf8, Rest@11/binary>> ->
            parse_fragment(Rest@11, Pieces);

        <<":#"/utf8, Rest@11/binary>> ->
            parse_fragment(Rest@11, Pieces);

        <<"/"/utf8, _/binary>> ->
            parse_path(Uri_string, Pieces);

        <<":"/utf8, Rest@12/binary>> ->
            case Rest@12 of
                <<"/"/utf8, _/binary>> ->
                    parse_path(Rest@12, Pieces);

                _ ->
                    {error, nil}
            end;

        _ ->
            {error, nil}
    end.

-file("src/gleeps/stdlib/uri.gleam", 309).
-spec parse_host_outside_of_brackets_loop(binary(), binary(), uri(), integer()) -> {ok,
        uri()} |
    {error, nil}.
parse_host_outside_of_brackets_loop(Original, Uri_string, Pieces, Size) ->
    case Uri_string of
        <<""/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    {some, Original},
                    erlang:element(5, Pieces),
                    erlang:element(6, Pieces),
                    erlang:element(7, Pieces),
                    erlang:element(8, Pieces)}};

        <<":"/utf8, _/binary>> ->
            Host = binary:part(Original, 0, Size),
            Pieces@1 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_port(Uri_string, Pieces@1);

        <<"/"/utf8, _/binary>> ->
            Host@1 = binary:part(Original, 0, Size),
            Pieces@2 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host@1},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_path(Uri_string, Pieces@2);

        <<"?"/utf8, Rest/binary>> ->
            Host@2 = binary:part(Original, 0, Size),
            Pieces@3 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host@2},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_query_with_question_mark(Rest, Pieces@3);

        <<"#"/utf8, Rest@1/binary>> ->
            Host@3 = binary:part(Original, 0, Size),
            Pieces@4 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host@3},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_fragment(Rest@1, Pieces@4);

        _ ->
            {_, Rest@2} = gleam_stdlib:string_pop_codeunit(Uri_string),
            parse_host_outside_of_brackets_loop(
                Original,
                Rest@2,
                Pieces,
                Size + 1
            )
    end.

-file("src/gleeps/stdlib/uri.gleam", 302).
-spec parse_host_outside_of_brackets(binary(), uri()) -> {ok, uri()} |
    {error, nil}.
parse_host_outside_of_brackets(Uri_string, Pieces) ->
    parse_host_outside_of_brackets_loop(Uri_string, Uri_string, Pieces, 0).

-file("src/gleeps/stdlib/uri.gleam", 289).
-spec is_valid_host_within_brackets_char(integer()) -> boolean().
is_valid_host_within_brackets_char(Char) ->
    (((((48 >= Char) andalso (Char =< 57)) orelse ((65 >= Char) andalso (Char =< 90)))
    orelse ((97 >= Char) andalso (Char =< 122)))
    orelse (Char =:= 58))
    orelse (Char =:= 46).

-file("src/gleeps/stdlib/uri.gleam", 229).
-spec parse_host_within_brackets_loop(binary(), binary(), uri(), integer()) -> {ok,
        uri()} |
    {error, nil}.
parse_host_within_brackets_loop(Original, Uri_string, Pieces, Size) ->
    case Uri_string of
        <<""/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    {some, Uri_string},
                    erlang:element(5, Pieces),
                    erlang:element(6, Pieces),
                    erlang:element(7, Pieces),
                    erlang:element(8, Pieces)}};

        <<"]"/utf8, Rest/binary>> when Size =:= 0 ->
            parse_port(Rest, Pieces);

        <<"]"/utf8, Rest@1/binary>> ->
            Host = binary:part(Original, 0, Size + 1),
            Pieces@1 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_port(Rest@1, Pieces@1);

        <<"/"/utf8, _/binary>> when Size =:= 0 ->
            parse_path(Uri_string, Pieces);

        <<"/"/utf8, _/binary>> ->
            Host@1 = binary:part(Original, 0, Size),
            Pieces@2 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host@1},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_path(Uri_string, Pieces@2);

        <<"?"/utf8, Rest@2/binary>> when Size =:= 0 ->
            parse_query_with_question_mark(Rest@2, Pieces);

        <<"?"/utf8, Rest@3/binary>> ->
            Host@2 = binary:part(Original, 0, Size),
            Pieces@3 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host@2},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_query_with_question_mark(Rest@3, Pieces@3);

        <<"#"/utf8, Rest@4/binary>> when Size =:= 0 ->
            parse_fragment(Rest@4, Pieces);

        <<"#"/utf8, Rest@5/binary>> ->
            Host@3 = binary:part(Original, 0, Size),
            Pieces@4 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, Host@3},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_fragment(Rest@5, Pieces@4);

        _ ->
            {Char, Rest@6} = gleam_stdlib:string_pop_codeunit(Uri_string),
            case is_valid_host_within_brackets_char(Char) of
                true ->
                    parse_host_within_brackets_loop(
                        Original,
                        Rest@6,
                        Pieces,
                        Size + 1
                    );

                false ->
                    parse_host_outside_of_brackets_loop(
                        Original,
                        Original,
                        Pieces,
                        0
                    )
            end
    end.

-file("src/gleeps/stdlib/uri.gleam", 222).
-spec parse_host_within_brackets(binary(), uri()) -> {ok, uri()} | {error, nil}.
parse_host_within_brackets(Uri_string, Pieces) ->
    parse_host_within_brackets_loop(Uri_string, Uri_string, Pieces, 0).

-file("src/gleeps/stdlib/uri.gleam", 199).
-spec parse_host(binary(), uri()) -> {ok, uri()} | {error, nil}.
parse_host(Uri_string, Pieces) ->
    case Uri_string of
        <<"["/utf8, _/binary>> ->
            parse_host_within_brackets(Uri_string, Pieces);

        <<":"/utf8, _/binary>> ->
            Pieces@1 = {uri,
                erlang:element(2, Pieces),
                erlang:element(3, Pieces),
                {some, <<""/utf8>>},
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_port(Uri_string, Pieces@1);

        <<""/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    {some, <<""/utf8>>},
                    erlang:element(5, Pieces),
                    erlang:element(6, Pieces),
                    erlang:element(7, Pieces),
                    erlang:element(8, Pieces)}};

        _ ->
            parse_host_outside_of_brackets(Uri_string, Pieces)
    end.

-file("src/gleeps/stdlib/uri.gleam", 167).
-spec parse_userinfo_loop(binary(), binary(), uri(), integer()) -> {ok, uri()} |
    {error, nil}.
parse_userinfo_loop(Original, Uri_string, Pieces, Size) ->
    case Uri_string of
        <<"@"/utf8, Rest/binary>> when Size =:= 0 ->
            parse_host(Rest, Pieces);

        <<"@"/utf8, Rest@1/binary>> ->
            Userinfo = binary:part(Original, 0, Size),
            Pieces@1 = {uri,
                erlang:element(2, Pieces),
                {some, Userinfo},
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_host(Rest@1, Pieces@1);

        <<""/utf8>> ->
            parse_host(Original, Pieces);

        <<"/"/utf8, _/binary>> ->
            parse_host(Original, Pieces);

        <<"?"/utf8, _/binary>> ->
            parse_host(Original, Pieces);

        <<"#"/utf8, _/binary>> ->
            parse_host(Original, Pieces);

        _ ->
            {_, Rest@2} = gleam_stdlib:string_pop_codeunit(Uri_string),
            parse_userinfo_loop(Original, Rest@2, Pieces, Size + 1)
    end.

-file("src/gleeps/stdlib/uri.gleam", 163).
-spec parse_authority_pieces(binary(), uri()) -> {ok, uri()} | {error, nil}.
parse_authority_pieces(String, Pieces) ->
    parse_userinfo_loop(String, String, Pieces, 0).

-file("src/gleeps/stdlib/uri.gleam", 150).
-spec parse_authority_with_slashes(binary(), uri()) -> {ok, uri()} |
    {error, nil}.
parse_authority_with_slashes(Uri_string, Pieces) ->
    case Uri_string of
        <<"//"/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    {some, <<""/utf8>>},
                    erlang:element(5, Pieces),
                    erlang:element(6, Pieces),
                    erlang:element(7, Pieces),
                    erlang:element(8, Pieces)}};

        <<"//"/utf8, Rest/binary>> ->
            parse_authority_pieces(Rest, Pieces);

        _ ->
            parse_path(Uri_string, Pieces)
    end.

-file("src/gleeps/stdlib/uri.gleam", 91).
-spec parse_scheme_loop(binary(), binary(), uri(), integer()) -> {ok, uri()} |
    {error, nil}.
parse_scheme_loop(Original, Uri_string, Pieces, Size) ->
    case Uri_string of
        <<"/"/utf8, _/binary>> when Size =:= 0 ->
            parse_authority_with_slashes(Uri_string, Pieces);

        <<"/"/utf8, _/binary>> ->
            Scheme = binary:part(Original, 0, Size),
            Pieces@1 = {uri,
                {some, string:lowercase(Scheme)},
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_authority_with_slashes(Uri_string, Pieces@1);

        <<"?"/utf8, Rest/binary>> when Size =:= 0 ->
            parse_query_with_question_mark(Rest, Pieces);

        <<"?"/utf8, Rest@1/binary>> ->
            Scheme@1 = binary:part(Original, 0, Size),
            Pieces@2 = {uri,
                {some, string:lowercase(Scheme@1)},
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_query_with_question_mark(Rest@1, Pieces@2);

        <<"#"/utf8, Rest@2/binary>> when Size =:= 0 ->
            parse_fragment(Rest@2, Pieces);

        <<"#"/utf8, Rest@3/binary>> ->
            Scheme@2 = binary:part(Original, 0, Size),
            Pieces@3 = {uri,
                {some, string:lowercase(Scheme@2)},
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_fragment(Rest@3, Pieces@3);

        <<":"/utf8, _/binary>> when Size =:= 0 ->
            {error, nil};

        <<":"/utf8, Rest@4/binary>> ->
            Scheme@3 = binary:part(Original, 0, Size),
            Pieces@4 = {uri,
                {some, string:lowercase(Scheme@3)},
                erlang:element(3, Pieces),
                erlang:element(4, Pieces),
                erlang:element(5, Pieces),
                erlang:element(6, Pieces),
                erlang:element(7, Pieces),
                erlang:element(8, Pieces)},
            parse_authority_with_slashes(Rest@4, Pieces@4);

        <<""/utf8>> ->
            {ok,
                {uri,
                    erlang:element(2, Pieces),
                    erlang:element(3, Pieces),
                    erlang:element(4, Pieces),
                    erlang:element(5, Pieces),
                    Original,
                    erlang:element(7, Pieces),
                    erlang:element(8, Pieces)}};

        _ ->
            {_, Rest@5} = gleam_stdlib:string_pop_codeunit(Uri_string),
            parse_scheme_loop(Original, Rest@5, Pieces, Size + 1)
    end.

-file("src/gleeps/stdlib/uri.gleam", 81).
?DOC(
    " Parses a compliant URI string into the `Uri` type.\n"
    " If the string is not a valid URI string then an error is returned.\n"
    "\n"
    " The opposite operation is `uri.to_string`.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " assert parse(\"https://example.com:1234/a/b?query=true#fragment\")\n"
    "   == Ok(\n"
    "     Uri(\n"
    "       scheme: Some(\"https\"),\n"
    "       userinfo: None,\n"
    "       host: Some(\"example.com\"),\n"
    "       port: Some(1234),\n"
    "       path: \"/a/b\",\n"
    "       query: Some(\"query=true\"),\n"
    "       fragment: Some(\"fragment\")\n"
    "     )\n"
    "   )\n"
    " ```\n"
).
-spec parse(binary()) -> {ok, uri()} | {error, nil}.
parse(Uri_string) ->
    gleam_stdlib:uri_parse(Uri_string).

-file("src/gleeps/stdlib/uri.gleam", 536).
?DOC(
    " Parses an URL-encoded query string into a list of key value pairs.\n"
    " Returns an error for invalid encoding.\n"
    "\n"
    " The opposite operation is `uri.query_to_string`.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " assert parse_query(\"a=1&b=2\") == Ok([#(\"a\", \"1\"), #(\"b\", \"2\")])\n"
    " ```\n"
).
-spec parse_query(binary()) -> {ok, list({binary(), binary()})} | {error, nil}.
parse_query(Query) ->
    gleam_stdlib:parse_query(Query).

-file("src/gleeps/stdlib/uri.gleam", 576).
?DOC(
    " Encodes a string into a percent encoded representation.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " assert percent_encode(\"100% great\") == \"100%25%20great\"\n"
    " ```\n"
).
-spec percent_encode(binary()) -> binary().
percent_encode(Value) ->
    gleam_stdlib:percent_encode(Value).

-file("src/gleeps/stdlib/uri.gleam", 561).
-spec percent_encode_query(binary()) -> binary().
percent_encode_query(Part) ->
    _pipe = gleam_stdlib:percent_encode(Part),
    gleeps@stdlib@string:replace(_pipe, <<"+"/utf8>>, <<"%2B"/utf8>>).

-file("src/gleeps/stdlib/uri.gleam", 556).
-spec query_pair({binary(), binary()}) -> gleeps@stdlib@string_tree:string_tree().
query_pair(Pair) ->
    _pipe = [percent_encode_query(erlang:element(1, Pair)),
        <<"="/utf8>>,
        percent_encode_query(erlang:element(2, Pair))],
    gleam_stdlib:identity(_pipe).

-file("src/gleeps/stdlib/uri.gleam", 548).
?DOC(
    " Encodes a list of key value pairs as a URI query string.\n"
    "\n"
    " The opposite operation is `uri.parse_query`.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " assert query_to_string([#(\"a\", \"1\"), #(\"b\", \"2\")]) == \"a=1&b=2\"\n"
    " ```\n"
).
-spec query_to_string(list({binary(), binary()})) -> binary().
query_to_string(Query) ->
    _pipe = Query,
    _pipe@1 = gleeps@stdlib@list:map(_pipe, fun query_pair/1),
    _pipe@2 = gleeps@stdlib@list:intersperse(
        _pipe@1,
        gleam_stdlib:identity(<<"&"/utf8>>)
    ),
    _pipe@3 = gleam_stdlib:identity(_pipe@2),
    unicode:characters_to_binary(_pipe@3).

-file("src/gleeps/stdlib/uri.gleam", 588).
?DOC(
    " Decodes a percent encoded string.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " assert percent_decode(\"100%25%20great+fun\") == Ok(\"100% great+fun\")\n"
    " ```\n"
).
-spec percent_decode(binary()) -> {ok, binary()} | {error, nil}.
percent_decode(Value) ->
    gleam_stdlib:percent_decode(Value).

-file("src/gleeps/stdlib/uri.gleam", 609).
-spec remove_dot_segments_loop(list(binary()), list(binary())) -> list(binary()).
remove_dot_segments_loop(Input, Accumulator) ->
    case Input of
        [] ->
            lists:reverse(Accumulator);

        [Segment | Rest] ->
            Accumulator@5 = case {Segment, Accumulator} of
                {<<""/utf8>>, Accumulator@1} ->
                    Accumulator@1;

                {<<"."/utf8>>, Accumulator@2} ->
                    Accumulator@2;

                {<<".."/utf8>>, []} ->
                    [];

                {<<".."/utf8>>, [_ | Accumulator@3]} ->
                    Accumulator@3;

                {Segment@1, Accumulator@4} ->
                    [Segment@1 | Accumulator@4]
            end,
            remove_dot_segments_loop(Rest, Accumulator@5)
    end.

-file("src/gleeps/stdlib/uri.gleam", 605).
-spec remove_dot_segments(list(binary())) -> list(binary()).
remove_dot_segments(Input) ->
    remove_dot_segments_loop(Input, []).

-file("src/gleeps/stdlib/uri.gleam", 601).
?DOC(
    " Splits the path section of a URI into its constituent segments.\n"
    "\n"
    " Removes empty segments and resolves dot-segments as specified in\n"
    " [section 5.2](https://www.ietf.org/rfc/rfc3986.html#section-5.2) of the RFC.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " assert path_segments(\"/users/1\") == [\"users\" ,\"1\"]\n"
    " ```\n"
).
-spec path_segments(binary()) -> list(binary()).
path_segments(Path) ->
    remove_dot_segments(gleeps@stdlib@string:split(Path, <<"/"/utf8>>)).

-file("src/gleeps/stdlib/uri.gleam", 639).
?DOC(
    " Encodes a `Uri` value as a URI string.\n"
    "\n"
    " The opposite operation is `uri.parse`.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " let uri = Uri(..empty, scheme: Some(\"https\"), host: Some(\"example.com\"))\n"
    " assert to_string(uri) == \"https://example.com\"\n"
    " ```\n"
).
-spec to_string(uri()) -> binary().
to_string(Uri) ->
    Parts = case erlang:element(8, Uri) of
        {some, Fragment} ->
            [<<"#"/utf8>>, Fragment];

        none ->
            []
    end,
    Parts@1 = case erlang:element(7, Uri) of
        {some, Query} ->
            [<<"?"/utf8>>, Query | Parts];

        none ->
            Parts
    end,
    Parts@2 = [erlang:element(6, Uri) | Parts@1],
    Parts@3 = case {erlang:element(4, Uri),
        gleam_stdlib:string_starts_with(erlang:element(6, Uri), <<"/"/utf8>>)} of
        {{some, Host}, false} when Host =/= <<""/utf8>> ->
            [<<"/"/utf8>> | Parts@2];

        {_, _} ->
            Parts@2
    end,
    Parts@4 = case {erlang:element(4, Uri), erlang:element(5, Uri)} of
        {{some, _}, {some, Port}} ->
            [<<":"/utf8>>, erlang:integer_to_binary(Port) | Parts@3];

        {_, _} ->
            Parts@3
    end,
    Parts@5 = case {erlang:element(2, Uri),
        erlang:element(3, Uri),
        erlang:element(4, Uri)} of
        {{some, S}, {some, U}, {some, H}} ->
            [S, <<"://"/utf8>>, U, <<"@"/utf8>>, H | Parts@4];

        {{some, S@1}, none, {some, H@1}} ->
            [S@1, <<"://"/utf8>>, H@1 | Parts@4];

        {{some, S@2}, {some, _}, none} ->
            [S@2, <<":"/utf8>> | Parts@4];

        {{some, S@2}, none, none} ->
            [S@2, <<":"/utf8>> | Parts@4];

        {none, none, {some, H@2}} ->
            [<<"//"/utf8>>, H@2 | Parts@4];

        {_, _, _} ->
            Parts@4
    end,
    erlang:list_to_binary(Parts@5).

-file("src/gleeps/stdlib/uri.gleam", 682).
?DOC(
    " Fetches the origin of a URI.\n"
    "\n"
    " Returns the origin of a uri as defined in\n"
    " [RFC 6454](https://tools.ietf.org/html/rfc6454)\n"
    "\n"
    " The supported URI schemes are `http` and `https`.\n"
    " URLs without a scheme will return `Error`.\n"
    "\n"
    " ## Examples\n"
    "\n"
    " ```gleam\n"
    " let assert Ok(uri) = parse(\"https://example.com/path?foo#bar\")\n"
    " assert origin(uri) == Ok(\"https://example.com\")\n"
    " ```\n"
).
-spec origin(uri()) -> {ok, binary()} | {error, nil}.
origin(Uri) ->
    {uri, Scheme, _, Host, Port, _, _, _} = Uri,
    case {Host, Scheme} of
        {{some, H}, {some, <<"https"/utf8>>}} when Port =:= {some, 443} ->
            {ok, erlang:list_to_binary([<<"https://"/utf8>>, H])};

        {{some, H@1}, {some, <<"http"/utf8>>}} when Port =:= {some, 80} ->
            {ok, erlang:list_to_binary([<<"http://"/utf8>>, H@1])};

        {{some, H@2}, {some, S}} when (S =:= <<"http"/utf8>>) orelse (S =:= <<"https"/utf8>>) ->
            case Port of
                {some, P} ->
                    {ok,
                        erlang:list_to_binary(
                            [S,
                                <<"://"/utf8>>,
                                H@2,
                                <<":"/utf8>>,
                                erlang:integer_to_binary(P)]
                        )};

                none ->
                    {ok, erlang:list_to_binary([S, <<"://"/utf8>>, H@2])}
            end;

        {_, _} ->
            {error, nil}
    end.

-file("src/gleeps/stdlib/uri.gleam", 767).
-spec join_segments(list(binary())) -> binary().
join_segments(Segments) ->
    gleeps@stdlib@string:join([<<""/utf8>> | Segments], <<"/"/utf8>>).

-file("src/gleeps/stdlib/uri.gleam", 763).
-spec drop_last(list(DDU)) -> list(DDU).
drop_last(Elements) ->
    gleeps@stdlib@list:take(Elements, erlang:length(Elements) - 1).

-file("src/gleeps/stdlib/uri.gleam", 705).
?DOC(
    " Resolves a URI with respect to the given base URI.\n"
    "\n"
    " The base URI must be an absolute URI or this function will return an error.\n"
    " The algorithm for merging URIs is described in\n"
    " [RFC 3986](https://tools.ietf.org/html/rfc3986#section-5.2).\n"
).
-spec merge(uri(), uri()) -> {ok, uri()} | {error, nil}.
merge(Base, Relative) ->
    case Base of
        {uri, {some, _}, _, {some, _}, _, _, _, _} ->
            case Relative of
                {uri, _, _, {some, _}, _, _, _, _} ->
                    Path = begin
                        _pipe = erlang:element(6, Relative),
                        _pipe@1 = gleeps@stdlib@string:split(
                            _pipe,
                            <<"/"/utf8>>
                        ),
                        _pipe@2 = remove_dot_segments(_pipe@1),
                        join_segments(_pipe@2)
                    end,
                    Resolved = {uri,
                        gleeps@stdlib@option:'or'(
                            erlang:element(2, Relative),
                            erlang:element(2, Base)
                        ),
                        none,
                        erlang:element(4, Relative),
                        gleeps@stdlib@option:'or'(
                            erlang:element(5, Relative),
                            erlang:element(5, Base)
                        ),
                        Path,
                        erlang:element(7, Relative),
                        erlang:element(8, Relative)},
                    {ok, Resolved};

                _ ->
                    {New_path, New_query} = case erlang:element(6, Relative) of
                        <<""/utf8>> ->
                            {erlang:element(6, Base),
                                gleeps@stdlib@option:'or'(
                                    erlang:element(7, Relative),
                                    erlang:element(7, Base)
                                )};

                        _ ->
                            Path_segments = case gleam_stdlib:string_starts_with(
                                erlang:element(6, Relative),
                                <<"/"/utf8>>
                            ) of
                                true ->
                                    gleeps@stdlib@string:split(
                                        erlang:element(6, Relative),
                                        <<"/"/utf8>>
                                    );

                                false ->
                                    _pipe@3 = erlang:element(6, Base),
                                    _pipe@4 = gleeps@stdlib@string:split(
                                        _pipe@3,
                                        <<"/"/utf8>>
                                    ),
                                    _pipe@5 = drop_last(_pipe@4),
                                    lists:append(
                                        _pipe@5,
                                        gleeps@stdlib@string:split(
                                            erlang:element(6, Relative),
                                            <<"/"/utf8>>
                                        )
                                    )
                            end,
                            Path@1 = begin
                                _pipe@6 = Path_segments,
                                _pipe@7 = remove_dot_segments(_pipe@6),
                                join_segments(_pipe@7)
                            end,
                            {Path@1, erlang:element(7, Relative)}
                    end,
                    Resolved@1 = {uri,
                        erlang:element(2, Base),
                        none,
                        erlang:element(4, Base),
                        erlang:element(5, Base),
                        New_path,
                        New_query,
                        erlang:element(8, Relative)},
                    {ok, Resolved@1}
            end;

        _ ->
            {error, nil}
    end.