/
type.ex
85 lines (73 loc) · 2.4 KB
/
type.ex
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
defmodule Jerboa.Format.Header.Type do
@moduledoc false
alias Jerboa.Format.UnknownMethodError
alias Jerboa.Params
alias Jerboa.Format.Meta
defmodule Class do
@moduledoc """
The STUN message classes
"""
@typedoc """
Either a request, indication, success or failure response
"""
@type t :: :request | :indication | :success | :failure
@doc false
def encode(:request), do: <<0::2>>
def encode(:indication), do: <<1::2>>
def encode(:success), do: <<2::2>>
def encode(:failure), do: <<3::2>>
@doc false
def decode(<<0::2>>), do: :request
def decode(<<1::2>>), do: :indication
def decode(<<2::2>>), do: :success
def decode(<<3::2>>), do: :failure
end
defmodule Method do
@moduledoc """
The STUN message methods
"""
@typedoc """
The atom representing a STUN method
"""
@type t :: :binding
| :allocate
| :refresh
| :send
| :data
| :create_permission
| :channel_bind
@doc false
def encode(:binding), do: <<0x001::12>>
def encode(:allocate), do: <<0x003::12>>
def encode(:refresh), do: <<0x004::12>>
def encode(:send), do: <<0x006::12>>
def encode(:data), do: <<0x007::12>>
def encode(:create_permission), do: <<0x008::12>>
def encode(:channel_bind), do: <<0x009::12>>
@doc false
def decode(<<0x001::12>>), do: {:ok, :binding}
def decode(<<0x003::12>>), do: {:ok, :allocate}
def decode(<<0x004::12>>), do: {:ok, :refresh}
def decode(<<0x006::12>>), do: {:ok, :send}
def decode(<<0x007::12>>), do: {:ok, :data}
def decode(<<0x008::12>>), do: {:ok, :create_permission}
def decode(<<0x009::12>>), do: {:ok, :channel_bind}
def decode(<<m::12>>), do: {:error, UnknownMethodError.exception(method: m)}
end
@spec encode(Meta.t) :: type :: <<_::14>>
def encode(%Meta{params: %Params{class: x, method: y}}) do
encode(Class.encode(x), Method.encode(y))
end
def decode(<<m11_7::5-bits, c1::1, m6_4::3-bits, c0::1, m3_0::4-bits>>) do
case Method.decode(<<m11_7::5-bits, m6_4::3-bits, m3_0::4-bits>>) do
{:ok, method} ->
class = Class.decode(<<c1::1, c0::1>>)
{:ok, class, method}
{:error, _} = e ->
e
end
end
defp encode(<<c1::1, c0::1 >>, <<m11_7::5, m6_4::3, m3_0::4>>) do
<<m11_7::5, c1::1, m6_4::3, c0::1, m3_0::4>>
end
end