anchor.diff:  open_write_and_close3(doc) -> 
       "Open a log file with sequence-numbering using MFA";
   open_write_and_close3(Config) when is_list(Config) ->
  -    p(open_write_and_close3),
  +    ?P(open_write_and_close3),
       put(sname,open_write_and_close3),
       put(verbosity,trace),
       ?DBG("open_write_and_close2 -> start", []),
  
positive.code: 
  open_and_close(suite) -> [];
  open_and_close(Config) when is_list(Config) ->
      p(open_and_close),
      put(sname,open_and_close),
      put(verbosity,trace),
      Dir    = ?config(log_dir, Config),
  
negative.code:     log_writer(Log, BatchLogger, P).
  
  log_writer(Log, Fun, P) ->
      ?IPRINT("entry"),
      receive 
  	{stop, P} ->
  	    ?IPRINT("received stop request"),
  	    ok = snmp_log:close(Log),
  	    exit(normal);
  	{info, P} ->
  	    ?IPRINT("received info request"),
  	    {ok, Info} = snmp_log:info(Log),
  	    display_info(Info),
  	    log_writer(Log, Fun, P);
  	{sleep, Time, P} ->
  	    ?IPRINT("received sleep (~w) request", [Time]),
  	    P ! {sleeping, self()},
  	    ?SLEEP(Time),
  	    ?IPRINT("done sleeping"),
  	    log_writer(Log, Fun, P);
  	ELSE ->
  	    ?EPRINT("Received unknown message: "
                      "~n   ~p", [ELSE]),
  	    log_writer(Log, Fun, P)
      after 1000 ->
  	    ?IPRINT("log some messages"),
  	    To = lists:duplicate(100, 100),
  	    lists:foreach(Fun, To),
  	    log_writer(Log, Fun, P)
      end.
  
  
  %% --
  
  