anchor.diff:      receive quit ->
   	    ?FPROF_SERVER andalso stop_profile(fprof, "test_server_res.fprof"),
   	    ?EPROF_SERVER andalso stop_profile(eprof, "test_server_res.eprof"),
  -	    ?PERCEPT_SERVER andalso stop_profile(percept, "/tmp/ssl_server.percept"),
   	    ok
       after 0 ->
   	    case ssl:transport_accept(LSocket, 2000) of
  
positive.code:     fprof:trace([start, {procs, Procs}]),
      io:format("(F)Profiling ...",[]).
  
  stop_profile(percept, File) ->
      percept:stop_profile(),
      percept:analyze(File),
      {started, _Host, Port} = percept:start_webserver(),
      wx:new(),
      wx_misc:launchDefaultBrowser("http://" ++ net_adm:localhost() ++ ":" ++ integer_to_list(Port)),
      ok;
  stop_profile(eprof, File) ->
      profiling_stopped = eprof:stop_profiling(),
      eprof:log(File),
  
negative.code: -define(FPROF_SERVER, false).
  -define(EPROF_CLIENT, false).
  -define(EPROF_SERVER, false).
  
  %% Current numbers gives roughly a testcase per minute on todays hardware..
  
  