anchor.diff:  %% Description: Parse a file into a Torrent structure.
   %%--------------------------------------------------------------------
   parse(File) ->
  -    case file:open(File, [read]) of
  -	{ok, IODev} ->
  -	    Data = read_data(IODev),
  -	    ok = file:close(IODev),
  -	    case decode(Data) of
  -		{ok, Torrent} ->
  -		    {ok, Torrent};
  -		{error, Reason} ->
  -		    {not_a_torrent, Reason}
  -	    end;
  -	{error, Reason} ->
  -	    {could_not_read_file, Reason}
  -    end.
  +    {ok, IODev} = file:open(File, [read]),
  +    Data = read_data(IODev),
  +    ok = file:close(IODev),
  +    decode(Data).
   
   %%====================================================================
   %% Internal functions
  
positive.code: encode_dict_items([]) ->
      [];
  encode_dict_items([{I1, I2} | Rest]) ->
      {ok, I} = encode(I1),
      {ok, J} = encode(I2),
      [I, J | encode_dict_items(Rest)].
  
  decode_b([]) ->
  
negative.code: %%--------------------------------------------------------------------
  encode(BString) ->
      case BString of
  	{string, String} -> encode_string(String);
  	{integer, Integer} -> encode_integer(Integer);
  	{list, Items} -> encode_list([encode(I) || I <- Items]);
  	{dict, Items} -> encode_dict(encode_dict_items(Items))
      end.
  
  %%--------------------------------------------------------------------
  