The R Project SVN R

Rev

Rev 90284 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 90284 Rev 90288
Line 4214... Line 4214...
4214 
		argsevald = 1;
 4214 
		argsevald = 1;
4215 
	    }
 4215 
	    }
4216 
	}
 4216 
	}
4217 
	const char *pt;
 4217 
	const char *pt;
4218 
	if (TYPEOF(CAR(call)) == SYMSXP)
 4218 
	if (TYPEOF(CAR(call)) == SYMSXP)
4219 
	    pt = Rf_strrchr(CHAR(PRINTNAME(CAR(call))), '.');
 4219 
	    pt = Rf_strrchr_const(CHAR(PRINTNAME(CAR(call))), '.');
4220 
	else
 4220 
	else
4221 
	    pt = NULL;
 4221 
	    pt = NULL;
4222 
 
 4222 
 
4223 
	if (pt == NULL || strcmp(pt,".default")) {
 4223 
	if (pt == NULL || strcmp(pt,".default")) {
4224 
	    RCNTXT cntxt;
 4224 
	    RCNTXT cntxt;
Line 9154... Line 9154...
9154 
char *R_CompiledFileName(char *fname, char *buf, size_t bsize)
 9154 
char *R_CompiledFileName(char *fname, char *buf, size_t bsize)
9155 
{
 9155 
{
9156 
    const char *basename, *ext;
 9156 
    const char *basename, *ext;
9157 
 
 9157 
 
9158 
    /* find the base name and the extension */
 9158 
    /* find the base name and the extension */
9159 
    basename = Rf_strrchr(fname, FILESEP[0]);
 9159 
    basename = Rf_strrchr_const(fname, FILESEP[0]);
9160 
    if (basename == NULL) basename = fname;
 9160 
    if (basename == NULL) basename = fname;
9161 
    ext = Rf_strrchr(basename, '.');
 9161 
    ext = Rf_strrchr_const(basename, '.');
9162 
 
 9162 
 
9163 
    if (ext != NULL && strcmp(ext, R_COMPILED_EXTENSION) == 0) {
 9163 
    if (ext != NULL && strcmp(ext, R_COMPILED_EXTENSION) == 0) {
9164 
	/* the supplied file name has the compiled file extension, so
 9164 
	/* the supplied file name has the compiled file extension, so
9165 
	   just copy it to the buffer and return the buffer pointer */
 9165 
	   just copy it to the buffer and return the buffer pointer */
9166 
	if (snprintf(buf, bsize, "%s", fname) < 0)
 9166 
	if (snprintf(buf, bsize, "%s", fname) < 0)