anchor.diff:  					  FileInfo, ParserFun),
       {Res,State#state{prim_state = PS2}}.
   
  -efile_release_archives(#state{prim_state = PS} = State) ->
  -    {Res, PS2} = prim_release_archives(PS),
  -    {Res,State#state{prim_state = PS2}}.
  -
   efile_list_dir(#state{prim_state = PS} = State, Dir) ->
       {Res, PS2} = prim_list_dir(PS, Dir),
       {Res, State#state{prim_state = PS2}}.
  
positive.code: efile_timeout_handler(#state{n_timeouts = N} = State, _Parent) ->
      if
  	N =< 0 ->
  	    {_Res, State2} = efile_release_archives(State),
  	    State2#state{n_timeouts = ?N_TIMEOUTS};
  	true ->
  	    State#state{n_timeouts = N - 1}
      end.
  
negative.code:         end,
      cache_new(#prim_state{debug = Deb}).
  
  prim_purge_cache() ->
      do_prim_purge_cache(get()).
  
  do_prim_purge_cache([{Key,Val}|T]) ->
      case Val of
  	{Cache,_FI} ->
  	    catch clear_cache(Key, Cache);
  	_ ->
  	    ok
      end,
      do_prim_purge_cache(T);
  do_prim_purge_cache([]) ->
      ok.
  
  prim_set_primary_archive(PS, undefined, undefined, undefined, _ParserFun) ->
      debug(PS, {set_primary_archive, clean}),
  