The R Project SVN R

Rev

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

Rev 26266 Rev 26606
Line 246... Line 246...
246 
	break;
 246 
	break;
247 
    case STRSXP:
 247 
    case STRSXP:
248 
	if(Fort) {
 248 
	if(Fort) {
249 
	    /* only return one string: warned on the R -> Fortran step */
 249 
	    /* only return one string: warned on the R -> Fortran step */
250 
	    strncpy(buf, (char*)p, 255);
 250 
	    strncpy(buf, (char*)p, 255);
251 
	    buf[256] = '\0';
 251 
	    buf[255] = '\0';
252 
	    PROTECT(s = allocVector(type, 1));
 252 
	    PROTECT(s = allocVector(type, 1));
253 
	    SET_STRING_ELT(s, 0, mkChar(buf));
 253 
	    SET_STRING_ELT(s, 0, mkChar(buf));
254 
	    UNPROTECT(1);
 254 
	    UNPROTECT(1);
255 
	} else {
 255 
	} else {
256 
	    PROTECT(s = allocVector(type, n));
 256 
	    PROTECT(s = allocVector(type, n));