anchor.diff:  %%%===================================================================
   %%% Internal functions
   %%%===================================================================
  -send_to_port(Port, Msg) ->
  -    Port ! {self(), {command, term_to_binary(Msg)}}.
  
positive.code:     %io:format("Got frame: ~p bytes~n", [byte_size(RawMsg)]),
      [ gen_server:reply(To, RawMsg) || To <- Pending ],
      {noreply, State#state{pending=[]}};
  handle_info(Info, State) ->
      io:format("Got unexpected message: ~p~n", [Info]),
      {noreply, State}.
  
negative.code:     NewPending = [From | Pending],
      {noreply,  State#state{pending=NewPending}};
  handle_call(stop, _From, #state{port=Port}=State) ->
      Port ! {self(), close},
      {reply, ok, State}.
  %    {stop, normal, ok, State}.
  
  %%--------------------------------------------------------------------
  %% @private
  