imap/src/osdep/nt/env_nt.c
/* Initialize environment
 * Accepts: user name
 *          home directory, or NIL to use default
 * Returns: T, always
 */
Initialize environment
Accepts: user name
home directory, or NIL to use default
Returns: T, always
Initialize environment Accepts : user name home directory or NIL to use default Returns : T always
long env_init (char *user,char *home)
{
  if (block_env_init) return LONGT;
  if (myUserName) fatal ("env_init called twice!");
  myUserName = cpystr (user);	
  if (!myHomeDir)		
    myHomeDir = (home && *home) ? cpystr (home) : win_homedir (user);
  return T;
}
long env_init ( char * user , char * home ) { if ( block_env_init ) return LONGT ; if ( myUserName ) fatal ( " " ) ; myUserName = cpystr ( user ) ; if ( ! myHomeDir ) myHomeDir = ( home && * home ) ? cpystr ( home ) : win_homedir ( user ) ; return T ; }
Initialize environment
 Accepts: user name
          home directory, or NIL to use default
 Returns: T, always
Initialize environment Accepts : user name home directory or NIL to use default Returns : T always
/* don't init if blocked */ /* remember user name */ /* only if home directory not set up yet */