anchor.diff:  -export([parse_protocol_file/1, 
   	 parse_protocol/1,
   	 encode_call/3,
  +	 decode_call/2,
  +	 encode_response/2,
  +	 encode_handshake_response/1,
   	 decode_frame_sequences/1,
   	 decode_handshake_response/1,
  +	 decode_handshake_request/1,
   	 decode_call_response/2]).
   
   %%
   %% Parse Avro Protocol JSON (.avpr)
   %%
  -
  +-define(echo(M), io:format("~p~n", [M])).
   %%
   %% Parses Avro Protocol Definition from JSON file (*.avpr).
   %%
  
positive.code:      [ eavro:encode(Type, Arg) || {Type, Arg} <- lists:zip(Types, Args) ]
      ].
  
  get_message(#avro_proto{ messages = Messages}, 
  	    MessageName) ->
      case lists:keyfind(if is_atom(MessageName) -> atom_to_binary(MessageName, latin1);
  
negative.code: decode_handshake_response(Buff) ->
      eavro:decode(schema_HandshakeResponse(), Buff).
  
  decode_handshake_request(Buff) ->
      eavro:decode(schema_HandshakeRequest(), Buff).
  
  
  
  %%
  