anchor.diff:  	ok ->
   	    receive
                   {info_and_die, Info} ->
  -                    {PortStatus, SockStat, SockStatus} = Info(),
  +                    {PortStatus, SockOpts, SockStat, SockStatus} = Info(),
                       ?P("[sink-loop] info and die: "
                          "~n   Port Status:   ~p"
  +                       "~n   Send Timeout:  ~p"
                          "~n   Socket Stats:  ~p"
                          "~n   Socket Status: ~p",
  -                       [PortStatus, SockStat, SockStatus]),
  +                       [PortStatus, SockOpts, SockStat, SockStatus]),
                       exit(normal)
               after 1 -> ok
               end,
  
positive.code:     {A, C}.
  
  timeout_sink_loop(Action) ->
      put(action, nothing),
      put(sent, 0),
      put(elapsed, 0),
      timeout_sink_loop(Action, 0).
  
  timeout_sink_loop(Action, N) ->
      put(action, send),
      Start = erlang:monotonic_time(),
      Ret = Action(),
      Stop = erlang:monotonic_time(),
      Elapsed = get(elapsed),
      put(elapsed, Elapsed + (Stop - Start)),
      put(action, sent),
  
negative.code: 		end,
      Info = fun() ->
                     {(catch erlang:port_info(A)),
                      try inet:getopts(A, [send_timeout]) of
                          {ok, [V2]} ->
                              V2;
                          {error, R2} ->
                              ?F("ERROR: ~p", [R2]);
                          X2 ->
                              ?F("UNKNOWN: ~p", [X2])
                      catch
                          C2:E2:S2 ->
                              ?F("CATCHED: ~p, ~p, ~p", [C2, E2, S2])
                      end,
                      try inet:getstat(A) of
                          {ok, S3} ->
                              S3;
                          {error, R3} ->
                              ?F("ERROR: ~p", [R3]);
                          X3 ->
                              ?F("UNKNOWN: ~p", [X3])
                      catch
                          C3:E3:S3 ->
                              ?F("CATCHED: ~p, ~p, ~p", [C3, E3, S3])
                      end,
                      try prim_inet:getstatus(A) of
                          {ok, S4} ->
                              S4;
                          {error, R4} ->
                              ?F("ERROR: ~p", [R4]);
                          X4 ->
                              ?F("UNKNOWN: ~p", [X4])
                      catch
                          C4:E4:S4 ->
                              ?F("CATCHED: ~p, ~p, ~p", [C4, E4, S4])
                      end}
             end,
      ?P("[para] spawn process 1 with sender fun"),
      Snd1 = spawn_link(SenderFun),
  