The R Project SVN R

Rev

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

Rev 51536 Rev 55061
Line 44... Line 44...
44 
    *p = '\0'
 44 
    *p = '\0'
45 
 
 45 
 
46 
/* get R_HOME from the module path: used in RSetReg */
 46 
/* get R_HOME from the module path: used in RSetReg */
47 
char *getRHOMElong(int m)
 47 
char *getRHOMElong(int m)
48 
{
 48 
{
49 
    DWORD nc;
 - 
 
50 
    char *p;
 49 
    char *p;
51 
 
 50 
 
52 
    nc = GetModuleFileName(NULL, rhomebuf, MAX_PATH);
 51 
    GetModuleFileName(NULL, rhomebuf, MAX_PATH);
53 
    for(int i=0; i < m; i++) {GOBACKONESLASH;}
 52 
    for(int i=0; i < m; i++) {GOBACKONESLASH;}
54 
    return (rhomebuf);
 53 
    return (rhomebuf);
55 
}
 54 
}
56 
 
 55 
 
57 
/* get no-spaces version of R_HOME from the module path:
56 
/* get no-spaces version of R_HOME from the module path: