-
Notifications
You must be signed in to change notification settings - Fork 6
/
transport.gleam
129 lines (111 loc) · 3.08 KB
/
transport.gleam
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
import gleam/bit_builder.{BitBuilder}
import gleam/dynamic.{Dynamic}
import gleam/erlang/atom.{Atom}
import gleam/erlang/process.{Pid}
import gleam/map.{Map}
import glisten/socket/options
import glisten/socket.{ListenSocket, Socket, SocketReason}
import glisten/ssl
import glisten/tcp
type ControllingProcess =
fn(Socket, Pid) -> Result(Nil, Atom)
type Listen =
fn(Int, List(options.TcpOption)) -> Result(ListenSocket, SocketReason)
type AcceptTimeout =
fn(ListenSocket, Int) -> Result(Socket, SocketReason)
type Accept =
fn(ListenSocket) -> Result(Socket, SocketReason)
type ReceiveTimeout =
fn(Socket, Int, Int) -> Result(BitString, SocketReason)
type Receive =
fn(Socket, Int) -> Result(BitString, SocketReason)
type Send =
fn(Socket, BitBuilder) -> Result(Nil, SocketReason)
type SocketInfo =
fn(Socket) -> Map(Atom, Dynamic)
type Close =
fn(Socket) -> Result(Nil, SocketReason)
type Shutdown =
fn(Socket) -> Result(Nil, SocketReason)
type SetOpts =
fn(Socket, List(options.TcpOption)) -> Result(Nil, Nil)
type Handshake =
fn(Socket) -> Result(Socket, Nil)
type NegotiatedProtocol =
fn(Socket) -> Result(String, String)
type PeerName =
fn(Socket) -> Result(#(#(Int, Int, Int, Int), Int), Nil)
pub type Transport {
Ssl(
accept: Accept,
accept_timeout: AcceptTimeout,
close: Close,
controlling_process: ControllingProcess,
handshake: Handshake,
listen: Listen,
negotiated_protocol: NegotiatedProtocol,
peername: PeerName,
receive: Receive,
receive_timeout: ReceiveTimeout,
send: Send,
set_opts: SetOpts,
shutdown: Shutdown,
socket_info: SocketInfo,
)
Tcp(
accept: Accept,
accept_timeout: AcceptTimeout,
close: Close,
controlling_process: ControllingProcess,
handshake: Handshake,
listen: Listen,
negotiated_protocol: NegotiatedProtocol,
peername: PeerName,
receive: Receive,
receive_timeout: ReceiveTimeout,
send: Send,
set_opts: SetOpts,
shutdown: Shutdown,
socket_info: SocketInfo,
)
}
pub fn tcp() -> Transport {
Tcp(
accept: tcp.accept,
accept_timeout: tcp.accept_timeout,
close: tcp.close,
controlling_process: tcp.controlling_process,
handshake: tcp.handshake,
listen: tcp.listen,
negotiated_protocol: fn(_socket) {
Error("Can't negotiate protocol on tcp")
},
peername: tcp.peername,
receive: tcp.receive,
receive_timeout: tcp.receive_timeout,
send: tcp.send,
set_opts: tcp.set_opts,
shutdown: tcp.shutdown,
socket_info: socket_info,
)
}
pub fn ssl() -> Transport {
Ssl(
accept: ssl.accept,
accept_timeout: ssl.accept_timeout,
close: ssl.close,
controlling_process: ssl.controlling_process,
handshake: ssl.handshake,
listen: ssl.listen,
negotiated_protocol: ssl.negotiated_protocol,
peername: ssl.peername,
receive: ssl.receive,
receive_timeout: ssl.receive_timeout,
send: ssl.send,
set_opts: ssl.set_opts,
shutdown: ssl.shutdown,
socket_info: socket_info,
)
}
@external(erlang, "socket", "info")
pub fn socket_info(socket: Socket) -> Map(a, b)