anchor.diff:  %% @doc register a process with InstanceId and Name
   %% @spec register_process(term(), term(), pid()) -> ok
   register_process(InstanceId, Name, Pid) ->
  -    
       erlang:put(instance_id, InstanceId),
       erlang:put(instance_name, Name),
       cs_send:send_local(get_pid() , {register_process, InstanceId, Name, Pid}),
  
positive.code:     Set;
  find_processes_in_group([{{InstanceId, TheName}, _} | Rest], Set, Group) ->
      if
  	InstanceId == Group ->
  	    find_processes_in_group(Rest, gb_sets:add_element(TheName, Set), Group);
  	true ->
  	    find_processes_in_group(Rest, Set, Group)
      end.
  
  toString(X) when is_atom(X) ->
      atom_to_list(X);
  toString(X) ->
      X.
      
  
  
  
  
  
  %%--------------------------------------------------------------------
  %%% Internal functions
  
negative.code: start_link() ->
      io:format("Start PD~n"),
      gen_component:start_link(?MODULE, [], [{register_native, process_dictionary}]).
  
  %@doc Starts the server for unit testing
  start_link_for_unittest() ->
      case whereis(process_dictionary) of
          undefined ->
              gen_component:start_link(?MODULE, [], [{register_native, process_dictionary}]);
          _ ->
              cs_send:send_local(get_pid() , {drop_state}),
              already_running
      end.
  
  %%--------------------------------------------------------------------
  %% Function: start() -> {ok,Pid} | ignore | {error,Error}
  %% Description: Starts the server; for use with the test framework
  %%--------------------------------------------------------------------
  %@doc Starts the server; for use with the test framework
  start() ->
      gen_component:start_link(?MODULE, [], [{register_native, process_dictionary}]).
  
  
  