anchor.diff:           hosts = []        :: [host()], % hosts list (to boot from)
            data              :: 'noport' | port(), % data port etc
            timeout           :: timeout(),	 % idle timeout
  -	 %% Number of timeouts before archives are released
  -	 n_timeouts        :: non_neg_integer(),
            prim_state        :: prim_state()}).    % state for efile code loader
   
  --define(IDLE_TIMEOUT, 60000).  %% tear inet connection after 1 minutes
  --define(N_TIMEOUTS, 6).        %% release efile archive after 6 minutes
  +-define(EFILE_IDLE_TIMEOUT, (6*60*1000)).	%purge archives
  +-define(INET_IDLE_TIMEOUT, (60*1000)). 		%tear down connection timeout
   
   %% Defines for inet as prim_loader
   -define(INET_FAMILY, inet).
  
positive.code:     State = #state {loader = inet,
                      hosts = AL,
                      data = Tcp,
                      timeout = ?IDLE_TIMEOUT,
  		    n_timeouts = ?N_TIMEOUTS,
                      prim_state = PS},
      loop(State, Parent, []).
  
  
negative.code:     PS = prim_init(),
      State = #state {loader = efile,
                      data = Port,
                      timeout = ?EFILE_IDLE_TIMEOUT,
                      prim_state = PS},
      loop(State, Parent, []).
  
  