Packages
mist
6.0.3
6.0.3
6.0.2
6.0.1
6.0.0
5.0.4
5.0.3
5.0.2
5.0.1
5.0.0
5.0.0-rc1
4.0.7
4.0.6
4.0.5
4.0.4
4.0.3
4.0.2
4.0.1
4.0.0
3.0.0
2.0.0
1.2.0
1.1.0
1.0.0
1.0.0-rc3
1.0.0-rc2
1.0.0-rc1
0.17.0
0.15.0
0.14.3
0.14.2
0.14.1
0.14.0
0.13.2
0.13.1
0.13.0
0.12.0
0.11.0
0.10.0
0.9.4
0.9.3
0.9.2
0.9.1
0.9.0
0.8.3
0.8.2
0.8.1
0.8.0
0.7.1
0.7.0
0.6.1
0.6.0
0.5.2
0.5.1
0.5.0
0.4.5
0.4.4
0.4.3
0.4.2
0.4.1
0.4.0
0.3.3
0.3.2
0.3.1
0.3.0
0.2.1
0.2.0
0.1.3
a misty Gleam web server
Current section
Files
Jump to
Current section
Files
src/mist@internal@encoder.erl
-module(mist@internal@encoder).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/mist/internal/encoder.gleam").
-export([status_to_bit_array/1, encode_headers/1, response_builder/3, to_bytes_tree/2]).
-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/mist/internal/encoder.gleam", 34).
?DOC(false).
-spec status_to_bit_array(integer()) -> bitstring().
status_to_bit_array(Status) ->
case Status of
100 ->
<<"Continue"/utf8>>;
101 ->
<<"Switching Protocols"/utf8>>;
103 ->
<<"Early Hints"/utf8>>;
200 ->
<<"OK"/utf8>>;
201 ->
<<"Created"/utf8>>;
202 ->
<<"Accepted"/utf8>>;
203 ->
<<"Non-Authoritative Information"/utf8>>;
204 ->
<<"No Content"/utf8>>;
205 ->
<<"Reset Content"/utf8>>;
206 ->
<<"Partial Content"/utf8>>;
300 ->
<<"Multiple Choices"/utf8>>;
301 ->
<<"Moved Permanently"/utf8>>;
302 ->
<<"Found"/utf8>>;
303 ->
<<"See Other"/utf8>>;
304 ->
<<"Not Modified"/utf8>>;
307 ->
<<"Temporary Redirect"/utf8>>;
308 ->
<<"Permanent Redirect"/utf8>>;
400 ->
<<"Bad Request"/utf8>>;
401 ->
<<"Unauthorized"/utf8>>;
402 ->
<<"Payment Required"/utf8>>;
403 ->
<<"Forbidden"/utf8>>;
404 ->
<<"Not Found"/utf8>>;
405 ->
<<"Method Not Allowed"/utf8>>;
406 ->
<<"Not Acceptable"/utf8>>;
407 ->
<<"Proxy Authentication Required"/utf8>>;
408 ->
<<"Request Timeout"/utf8>>;
409 ->
<<"Conflict"/utf8>>;
410 ->
<<"Gone"/utf8>>;
411 ->
<<"Length Required"/utf8>>;
412 ->
<<"Precondition Failed"/utf8>>;
413 ->
<<"Payload Too Large"/utf8>>;
414 ->
<<"URI Too Long"/utf8>>;
415 ->
<<"Unsupported Media Type"/utf8>>;
416 ->
<<"Range Not Satisfiable"/utf8>>;
417 ->
<<"Expectation Failed"/utf8>>;
418 ->
<<"I'm a teapot"/utf8>>;
422 ->
<<"Unprocessable Entity"/utf8>>;
425 ->
<<"Too Early"/utf8>>;
426 ->
<<"Upgrade Required"/utf8>>;
428 ->
<<"Precondition Required"/utf8>>;
429 ->
<<"Too Many Requests"/utf8>>;
431 ->
<<"Request Header Fields Too Large"/utf8>>;
451 ->
<<"Unavailable For Legal Reasons"/utf8>>;
500 ->
<<"Internal Server Error"/utf8>>;
501 ->
<<"Not Implemented"/utf8>>;
502 ->
<<"Bad Gateway"/utf8>>;
503 ->
<<"Service Unavailable"/utf8>>;
504 ->
<<"Gateway Timeout"/utf8>>;
505 ->
<<"HTTP Version Not Supported"/utf8>>;
506 ->
<<"Variant Also Negotiates"/utf8>>;
507 ->
<<"Insufficient Storage"/utf8>>;
508 ->
<<"Loop Detected"/utf8>>;
510 ->
<<"Not Extended"/utf8>>;
511 ->
<<"Network Authentication Required"/utf8>>;
_ ->
<<"Unknown HTTP Status"/utf8>>
end.
-file("src/mist/internal/encoder.gleam", 95).
?DOC(false).
-spec encode_headers(list({binary(), binary()})) -> gleam@bytes_tree:bytes_tree().
encode_headers(Headers) ->
gleam@list:fold(
Headers,
gleam@bytes_tree:new(),
fun(Builder, Tup) ->
{Header, Value} = Tup,
_pipe = Builder,
_pipe@1 = gleam@bytes_tree:append_string(_pipe, Header),
_pipe@2 = gleam@bytes_tree:append(_pipe@1, <<": "/utf8>>),
_pipe@3 = gleam@bytes_tree:append_string(_pipe@2, Value),
gleam@bytes_tree:append(_pipe@3, <<"\r\n"/utf8>>)
end
).
-file("src/mist/internal/encoder.gleam", 14).
?DOC(false).
-spec response_builder(integer(), list({binary(), binary()}), binary()) -> gleam@bytes_tree:bytes_tree().
response_builder(Status, Headers, Version) ->
Status_string = begin
_pipe = Status,
_pipe@1 = erlang:integer_to_binary(_pipe),
_pipe@2 = gleam_stdlib:wrap_list(_pipe@1),
_pipe@3 = gleam@bytes_tree:append(_pipe@2, <<" "/utf8>>),
gleam@bytes_tree:append(_pipe@3, status_to_bit_array(Status))
end,
_pipe@4 = gleam@bytes_tree:new(),
_pipe@5 = gleam@bytes_tree:append(
_pipe@4,
<<"HTTP/"/utf8, Version/binary, " "/utf8>>
),
_pipe@6 = gleam_stdlib:iodata_append(_pipe@5, Status_string),
_pipe@7 = gleam@bytes_tree:append(_pipe@6, <<"\r\n"/utf8>>),
_pipe@8 = gleam_stdlib:iodata_append(_pipe@7, encode_headers(Headers)),
gleam@bytes_tree:append(_pipe@8, <<"\r\n"/utf8>>).
-file("src/mist/internal/encoder.gleam", 8).
?DOC(false).
-spec to_bytes_tree(
gleam@http@response:response(gleam@bytes_tree:bytes_tree()),
binary()
) -> gleam@bytes_tree:bytes_tree().
to_bytes_tree(Resp, Version) ->
_pipe = erlang:element(2, Resp),
_pipe@1 = response_builder(_pipe, erlang:element(3, Resp), Version),
gleam_stdlib:iodata_append(_pipe@1, erlang:element(4, Resp)).