anchor.diff:      end.
   
   
  -literal_infohash_to_integer(X) ->
  -    list_to_integer(X, 16).
  -
  -
   prepare_node(Node) ->
       io:format(user, "Prepare node ~p.~n", [Node]),
       rpc:call(Node, code, set_path, [code:get_path()]),
  
positive.code:     end.
  
  
  wait_progress(Node, TorrentID, Percent) ->
      {value, Props} = rpc:call(Node, etorrent_torrent, lookup, [TorrentID]),
      Left = proplists:get_value(left, Props),
  
negative.code:     ok = rpc:call(LeechNode,
  		  etorrent, start,
  		  [?config(dir_torrent, Config), {Ref, Pid}]),
      BinIH = ?config(dir_info_hash_bin, Config),
      TorrentID = wait_torrent_registration(LeechNode, BinIH),
      io:format(user, "TorrentID on the leech node is ~p.~n", [TorrentID]),
      rpc:call(LeechNode, etorrent_torrent_ctl, skip_file, [TorrentID, 2]),
      receive
  