Refactored nicira extended actions

lib/openflow/actions/nx_learn.ex

@@ -15,6 +15,7 @@ defmodule Openflow.Action.NxLearn do
   @nxast 16
 
   alias __MODULE__
+  alias Openflow.Action.Experimenter
 
   def new(options) do
     %NxLearn{
@@ -30,28 +31,24 @@ defmodule Openflow.Action.NxLearn do
     }
   end
 
-  def to_binary(%NxLearn{
-        idle_timeout: idle,
-        hard_timeout: hard,
-        priority: prio,
-        cookie: cookie,
-        flags: flags,
-        table_id: table_id,
-        fin_idle_timeout: fin_idle,
-        fin_hard_timeout: fin_hard,
-        flow_specs: flow_specs
-      }) do
-    flags_int = Openflow.Enums.flags_to_int(flags, :nx_learn_flag)
-    flow_specs_bin = Openflow.Action.NxFlowSpec.to_binary(flow_specs)
+  def to_binary(%NxLearn{} = learn) do
+    learn_flags_int = Openflow.Enums.flags_to_int(learn.flags, :nx_learn_flag)
+    flow_specs_bin = Openflow.Action.NxFlowSpec.to_binary(learn.flow_specs)
 
-    exp_body =
-      <<@experimenter::32, @nxast::16, idle::16, hard::16, prio::16, cookie::64, flags_int::16,
-        table_id::8, 0::size(1)-unit(8), fin_idle::16, fin_hard::16, flow_specs_bin::bitstring>>
-
-    exp_body_size = byte_size(exp_body)
-    padding_length = Openflow.Utils.padding(4 + exp_body_size, 8)
-    length = 4 + exp_body_size + padding_length
-    <<0xFFFF::16, length::16, exp_body::bytes, 0::size(padding_length)-unit(8)>>
+    Experimenter.pack_exp_header(<<
+      @experimenter::32,
+      @nxast::16,
+      learn.idle_timeout::16,
+      learn.hard_timeout::16,
+      learn.priority::16,
+      learn.cookie::64,
+      learn_flags_int::16,
+      learn.table_id::8,
+      0::8,
+      learn.fin_idle_timeout::16,
+      learn.fin_hard_timeout::16,
+      flow_specs_bin::bitstring
+    >>)
   end
 
   def read(<<@experimenter::32, @nxast::16, body::bitstring>>) do