The R Project SVN R

Rev

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

Rev 76544 Rev 76548
Line 1647... Line 1647...
1647 
	case STRSXP:
 1647 
	case STRSXP:
1648 
	    n = XLENGTH(s);
 1648 
	    n = XLENGTH(s);
1649 
	    if (Fort) {
 1649 
	    if (Fort) {
1650 
		const char *ss = translateChar(STRING_ELT(s, 0));
 1650 
		const char *ss = translateChar(STRING_ELT(s, 0));
1651 
		if (n > 1)
 1651 
		if (n > 1)
1652 
		    warning(_("only first string in char vector used in .Fortran"));
 1652 
		    warning("only the first string in a char vector used in .Fortran");
1653 
		else
 1653 
		else
1654 
		    warning(_("Using a char vector in .Fortran is not portable"));
 1654 
		    warning("passing a char vector to .Fortran is not portable");
1655 
		char *fptr = (char*) R_alloc(max(255, strlen(ss)) + 1, sizeof(char));
 1655 
		char *fptr = (char*) R_alloc(max(255, strlen(ss)) + 1, sizeof(char));
1656 
		strcpy(fptr, ss);
 1656 
		strcpy(fptr, ss);
1657 
		cargs[na] =  (void*) fptr;
 1657 
		cargs[na] =  (void*) fptr;
1658 
	    } else if (copy) {
 1658 
	    } else if (copy) {
1659 
		char **cptr = (char**) R_alloc(n, sizeof(char*)),
 1659 
		char **cptr = (char**) R_alloc(n, sizeof(char*)),