romainfrancois commented on a change in pull request #11225:
URL: https://github.com/apache/arrow/pull/11225#discussion_r718401491
##########
File path: r/src/altrep.cpp
##########
@@ -70,135 +69,125 @@ R_xlen_t Standard_Get_region<int>(SEXP data2, R_xlen_t i,
R_xlen_t n, int* buf)
return INTEGER_GET_REGION(data2, i, n, buf);
}
-// altrep R vector shadowing an Array.
+void DeleteArray(std::shared_ptr<Array>* ptr) { delete ptr; }
+using Pointer = cpp11::external_pointer<std::shared_ptr<Array>, DeleteArray>;
+
+// base class for all altrep vectors
+//
+// The altrep vector stores the Array as an external pointer in data1
+// Implementation classes AltrepVectorPrimitive<> and AltrepVectorString
+// also use data2
+struct AltrepVectorBase {
+ // store the Array as an external pointer in data1, mark as immutable
+ static SEXP Make(R_altrep_class_t class_t, const std::shared_ptr<Array>&
array) {
+ SEXP alt_ =
+ R_new_altrep(class_t, Pointer(new std::shared_ptr<Array>(array)),
R_NilValue);
+ MARK_NOT_MUTABLE(alt_);
+
+ return alt_;
+ }
+
+ // the Array that is being wrapped by the altrep object
+ static const std::shared_ptr<Array>& array(SEXP alt_) {
Review comment:
Fixed, and renamed the `array()` to `GetArray()`.
--
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.
To unsubscribe, e-mail: github-unsubscr...@arrow.apache.org
For queries about this service, please contact Infrastructure at:
us...@infra.apache.org
