The R Project SVN R

Rev

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

Rev 43958 Rev 45070
Line 84... Line 84...
84 
    Rstart Rp = &rp;
 84 
    Rstart Rp = &rp;
85 
    char Rversion[25], *RHome;
 85 
    char Rversion[25], *RHome;
86 
 
 86 
 
87 
    snprintf(Rversion, 25, "%s.%s", R_MAJOR, R_MINOR);
 87 
    snprintf(Rversion, 25, "%s.%s", R_MAJOR, R_MINOR);
88 
    if(strncmp(getDLLVersion(), Rversion, 25) != 0) {
 88 
    if(strncmp(getDLLVersion(), Rversion, 25) != 0) {
89 
        fprintf(stderr, "Error: R.DLL version does not match\n");
 89 
	fprintf(stderr, "Error: R.DLL version does not match\n");
90 
	exit(1);
 90 
	exit(1);
91 
    }
 91 
    }
92 
 
 92 
 
93 
    R_setStartTime();
 93 
    R_setStartTime();
94 
    R_DefParams(Rp);
 94 
    R_DefParams(Rp);
95 
    if((RHome = get_R_HOME()) == NULL) {
 95 
    if((RHome = get_R_HOME()) == NULL) {
96 
	fprintf(stderr,
96 
	fprintf(stderr,
97 
		"R_HOME must be set in the environment or Registry\n");
 97 
		"R_HOME must be set in the environment or Registry\n");
98 
	exit(2);
 98 
	exit(2);
99 
    }
 99 
    }
100 
    Rp->rhome = RHome;
 100 
    Rp->rhome = RHome;
101 
    Rp->home = getRUser();
 101 
    Rp->home = getRUser();
Line 118... Line 118...
118 
 
 118 
 
119 
    signal(SIGBREAK, my_onintr);
 119 
    signal(SIGBREAK, my_onintr);
120 
    GA_initapp(0, 0);
 120 
    GA_initapp(0, 0);
121 
    R_LoadRconsole = FALSE;
 121 
    R_LoadRconsole = FALSE;
122 
    readconsolecfg();
 122 
    readconsolecfg();
123
123 
 
124 
    return 0;
 124 
    return 0;
125 
}
 125 
}
126 
 
 126 
 
127 
int Rf_initEmbeddedR(int argc, char **argv)
 127 
int Rf_initEmbeddedR(int argc, char **argv)
128 
{
 128 
{