anchor.diff:      Pid ! {get,self()},
       receive
   	{result,R} -> R
  -    end.
  -
  -print() ->
  -    print(user).
  -
  -print(D) ->
  -    try supervisor:which_children(ssh_sup)
  -    of
  -	_ ->
  -	    io__nl(D),
  -	    print_general(D),
  -	    io__nl(D),
  -	    underline(D, "Client part", $=),
  -	    print_clients(D),
  -	    io__nl(D),
  -	    underline(D, "Server part", $=),
  -	    print_servers(D),
  -	    io__nl(D),
  -	    %% case os:type() of
  -	    %% 	{unix,_} ->
  -	    %% 	    io__nl(),
  -	    %% 	    underline("Linux part", $=),
  -	    %% 	    underline("Listening"),
  -	    %% 	    catch io__format(os:cmd("netstat -tpln")),
  -	    %% 	    io__nl(),
  -	    %% 	    underline("Other"),
  -	    %% 	    catch io__format(os:cmd("netstat -tpn"));
  -	    %% 	_ -> ok
  -	    %% end,
  -	    underline(D, "Supervisors", $=),
  -	    walk_sups(D, ssh_sup),
  -	    io__nl(D)
  -    catch
  -	_:_ ->
  -	    io__format(D,"Ssh not found~n",[])
       end.
   
   %%%================================================================
  
positive.code: 
  fmt_host_port({{A,B,C,D},Port}) -> io_lib:format('~p.~p.~p.~p:~p',[A,B,C,D,Port]);
  fmt_host_port({Host,Port}) -> io_lib:format('~s:~p',[Host,Port]).
  
  
  
  nyi(D) ->
      io__format(D,'Not yet implemented~n',[]),
      nyi.
  
  %%%################################################################
  
  
negative.code: 								   is_pid(Pid) ->
      PrintChannels =  fun(X) -> print_channels(D,X) end,
      lists:foreach(PrintChannels, supervisor:which_children(Pid));
  print_system_sup(D, {{ssh_acceptor_sup,_LocalHost,_LocalPort,_Profile}, Pid, supervisor, [ssh_acceptor_sup]}) when is_pid(Pid) ->
      io__format(D, ?INDENT?INDENT"[Acceptor Pid ~p]~n",[Pid]).
  
  
  