The R Project SVN R

Rev

Rev 4394 | Rev 4631 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4394 Rev 4626
Line 48... Line 48...
48 
{
 48 
{
49 
    char *tmp;
 49 
    char *tmp;
50 
 
 50 
 
51 
    tmp = getenv("TMP");
 51 
    tmp = getenv("TMP");
52 
    if (!tmp) tmp = getenv("TEMP");
 52 
    if (!tmp) tmp = getenv("TEMP");
53 
    if (!tmp) getenv("R_HOME");
 53 
    if (!tmp) getenv("R_USER");
54 
    sprintf(DefaultFileName,"%s/XXXXXX",tmp);
 54 
    sprintf(DefaultFileName,"%s/XXXXXX",tmp);
55 
    mktemp(DefaultFileName);
 55 
    mktemp(DefaultFileName);
56 
}
 56 
}
57 
 
 57 
 
58 
 
 58