anchor.diff:  -spec(lookup_process/1 :: (pid()) -> {any(), any()} | failed).
   lookup_process(Pid) ->
       case ets:match(?MODULE, {'$1',Pid}) of
  -	[[{Group, Name}]] ->
  -	    {Group, Name};
  -	[] ->
  -	    failed
  +        [[{Group, Name}]] ->
  +            {Group, Name};
  +        [] ->
  +            failed
       end.
   
   %% @doc tries to find a cs_node process
  
positive.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}]).
  
  
  
negative.code:     AllGroups = find_all_groups(ets:tab2list(?MODULE), gb_sets:new()),
      GroupsAsJson = {array, lists:foldl(fun(El, Rest) -> [{struct, [{id, El}, {text, El}, {leaf, false}]} | Rest] end, [], gb_sets:to_list(AllGroups))},
      GroupsAsJson.
  
  %% @doc find processes in a group (for web interface)
  %% @spec get_processes_in_group(term()) -> term()
  get_processes_in_group(Group) ->
      AllProcesses = find_processes_in_group(ets:tab2list(?MODULE), gb_sets:new(), Group),
      ProcessesAsJson = {array, lists:foldl(fun(El, Rest) -> [{struct, [{id, toString(El)}, {text, toString(El)}, {leaf, true}]} | Rest] end, [], gb_sets:to_list(AllProcesses))},
      ProcessesAsJson.
  
  get_all_pids() ->
      [X || [X]<- ets:match(?MODULE, {'_','$1'})].
  
  %%====================================================================
  %% API
  %%====================================================================
  