The R Project SVN – R – Diff – /trunk/src/main/dotcode.c

 static void *RObjToCPtr(SEXP s, int naok, int dup, int narg, int Fort,
 			const char *name, R_toCConverter **converter,
 			int targetType, char* encname)
+{
+    unsigned char *rawptr;
     int *iptr;
     float *sptr;
     double *rptr;
     char **cptr, *fptr;
     Rcomplex *zptr;
 	if(targetType != SINGLESXP)
 	    s = coerceVector(s, targetType);
+    }
     switch(TYPEOF(s)) {
+    case RAWSXP:
+    n = LENGTH(s);
+    rawptr = RAW(s);
+    if (dup) {
+        rawptr = (unsigned char *) R_alloc(n, sizeof(unsigned char));
+        for (i = 0; i < n; i++)
+            rawptr[i] = RAW(s)[i];
+    }
+    return (void *) rawptr;
+    break;
     case LGLSXP:
     case INTSXP:
 	n = LENGTH(s);
 	iptr = INTEGER(s);
 	for (i = 0 ; i < n ; i++) {
 static SEXP CPtrToRObj(void *p, SEXP arg, int Fort,
 		       R_NativePrimitiveArgType type, char *encname)
+{
+    unsigned char *rawptr;
     int *iptr, n=length(arg);
     float *sptr;
     double *rptr;
     char **cptr, buf[256];
     Rcomplex *zptr;
     SEXP *lptr, CSingSymbol = install("Csingle");
     int i;
     SEXP s, t;
     switch(type) {
+    case RAWSXP:
+    s = allocVector(type, n);
+    rawptr = (unsigned char *)p;
+    for (i = 0; i < n; i++)
+        RAW(s)[i] = rawptr[i];
+    break;
     case LGLSXP:
     case INTSXP:
 	s = allocVector(type, n);
 	iptr = (int*)p;
 	for(i=0 ; i<n ; i++)

The R Project SVN R