Packages
mist
4.0.7
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.gleam
import gleam/bytes_tree.{type BytesTree}
import gleam/http.{type Header}
import gleam/http/response.{type Response}
import gleam/int
import gleam/list
/// Turns an HTTP response into a TCP message
pub fn to_bytes_tree(resp: Response(BytesTree), version: String) -> BytesTree {
resp.status
|> response_builder(resp.headers, version)
|> bytes_tree.append_tree(resp.body)
}
pub fn response_builder(
status: Int,
headers: List(Header),
version: String,
) -> BytesTree {
let status_string =
status
|> int.to_string
|> bytes_tree.from_string
|> bytes_tree.append(<<" ":utf8>>)
|> bytes_tree.append(status_to_bit_array(status))
bytes_tree.new()
|> bytes_tree.append(<<"HTTP/":utf8, version:utf8, " ":utf8>>)
|> bytes_tree.append_tree(status_string)
|> bytes_tree.append(<<"\r\n":utf8>>)
|> bytes_tree.append_tree(encode_headers(headers))
|> bytes_tree.append(<<"\r\n":utf8>>)
}
pub fn status_to_bit_array(status: Int) -> BitArray {
// Obviously nowhere near exhaustive...
case status {
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>>
}
}
pub fn encode_headers(headers: List(Header)) -> BytesTree {
list.fold(headers, bytes_tree.new(), fn(builder, tup) {
let #(header, value) = tup
builder
|> bytes_tree.append_string(header)
|> bytes_tree.append(<<": ":utf8>>)
|> bytes_tree.append_string(value)
|> bytes_tree.append(<<"\r\n":utf8>>)
})
}