rep() for raw type

git-svn-id: https://svn.r-project.org/R/branches/rawtype@29836 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Jun 14, 2004 · d532d69 · d532d69
1 parent c7cc35d
commit d532d69
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/main/seq.c b/src/main/seq.c
@@ -189,6 +189,11 @@ static SEXP rep2(SEXP s, SEXP ncopy)
 		u = CDR(u);
 	    }
 	break;
+    case RAWSXP:
+	for (i = 0; i < nc; i++)
+	    for (j = 0; j < (INTEGER(t)[i]); j++)
+		RAW(a)[n++] = RAW(s)[i];
+	break;
     default:
 	UNIMPLEMENTED("rep2");
     }
@@ -270,6 +275,10 @@ static SEXP rep(SEXP s, SEXP ncopy)
 	for (i = 0; i < na; i++)
 	    SET_VECTOR_ELT(a, i, duplicate(VECTOR_ELT(s, i% ns)));
 	break;
+    case RAWSXP:
+	for (i = 0; i < na; i++)
+	    RAW(a)[i] = RAW(s)[i % ns];
+	break;
     default:
 	UNIMPLEMENTED("rep");
     }