jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add R 2.7 calls

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10392 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Joseph Wang 2008-04-26 07:12:26 +00:00
commit 25f30ff1b1
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Lib/r/rfragments.swg
View file

@ -164,12 +164,14 @@ SWIG_FromCharPtrAndSize(const char* carray, size_t size)
{
SEXP t, c;
if (!carray) return R_NilValue;
RVERSION27(return Rf_mkCharLen(carray, size));
RVERSIONPRE27(
Rf_protect(t = Rf_allocVector(STRSXP, 1));
c = allocString(size);
strncpy((char *)CHAR(c), carray, size);
SET_STRING_ELT(t, 0, c);
Rf_unprotect(1);
return t;
return t;)
}
}