73 lines
1.8 KiB
Elixir
73 lines
1.8 KiB
Elixir
defmodule Openflow.Action.Experimenter do
|
|
defstruct(exp_id: 0, data: "")
|
|
|
|
alias __MODULE__
|
|
|
|
@type t :: %Experimenter{exp_id: 0..0xFFFFFFFF, data: binary()}
|
|
|
|
@experimter_size 8
|
|
|
|
def ofpat, do: 0xFFFF
|
|
|
|
def new(exp_id, data \\ "") do
|
|
%Experimenter{exp_id: exp_id, data: data}
|
|
end
|
|
|
|
def to_binary(%Experimenter{exp_id: exp_id, data: data}) do
|
|
length = @experimter_size + byte_size(data)
|
|
<<0xFFFF::16, length::16, exp_id::32, data::bytes>>
|
|
end
|
|
|
|
@spec pack_exp_header(binary()) :: binary()
|
|
def pack_exp_header(exp_body) do
|
|
pad_length = pad_length_of(exp_body)
|
|
|
|
<<
|
|
0xFFFF::16,
|
|
length_of(exp_body, pad_length)::16,
|
|
exp_body::bytes,
|
|
0::size(pad_length)-unit(8)
|
|
>>
|
|
end
|
|
|
|
def read(<<
|
|
0xFFFF::16,
|
|
_length::16,
|
|
exp_id::32,
|
|
exp_type::16,
|
|
data::bytes
|
|
>>) do
|
|
exp_id
|
|
|> Openflow.Utils.get_enum(:action_vendor)
|
|
|> read(exp_id, exp_type, data)
|
|
end
|
|
|
|
## private functions
|
|
|
|
defp read(vendor_id, exp_id, exp_type, <<data::bytes>>) when is_atom(vendor_id) do
|
|
case Openflow.Utils.get_enum(exp_type, vendor_id) do
|
|
codec when is_atom(codec) ->
|
|
codec.read(<<exp_id::32, exp_type::16, data::bytes>>)
|
|
|
|
exp_type when is_integer(exp_type) ->
|
|
%Experimenter{exp_id: exp_id, data: <<exp_type::16, data::bytes>>}
|
|
end
|
|
end
|
|
|
|
defp read(vendor_id, exp_id, exp_type, <<data::bytes>>) when is_integer(vendor_id),
|
|
do: %Experimenter{exp_id: exp_id, data: <<exp_type::16, data::bytes>>}
|
|
|
|
defp pad_length_of(<<exp_body::bytes>>) do
|
|
exp_body
|
|
|> Kernel.byte_size()
|
|
|> Kernel.+(4)
|
|
|> Openflow.Utils.padding(8)
|
|
end
|
|
|
|
defp length_of(<<exp_body::bytes>>, pad_length) do
|
|
exp_body
|
|
|> byte_size()
|
|
|> Kernel.+(4)
|
|
|> Kernel.+(pad_length)
|
|
end
|
|
end
|