53 lines
1.4 KiB
Elixir
53 lines
1.4 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 =
|
|
exp_body
|
|
|> Kernel.byte_size()
|
|
|> Kernel.+(4)
|
|
|> Openflow.Utils.padding(8)
|
|
|
|
length =
|
|
exp_body
|
|
|> byte_size()
|
|
|> Kernel.+(4)
|
|
|> Kernel.+(pad_length)
|
|
|
|
<<0xFFFF::16, 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
|
|
case Openflow.Utils.get_enum(exp_id, :action_vendor) do
|
|
vendor_id when is_integer(vendor_id) ->
|
|
%Experimenter{exp_id: exp_id, data: <<exp_type::16, data::bytes>>}
|
|
|
|
vendor when is_atom(vendor) ->
|
|
case Openflow.Utils.get_enum(exp_type, vendor) 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
|
|
end
|
|
end
|