wire up posixct

Author: paleolimbot

Diff for: r/src/vctr_builder.cc

@@ -39,6 +39,7 @@
 #include "vctr_builder_int64.h"
 #include "vctr_builder_lgl.h"
 #include "vctr_builder_list_of.h"
+#include "vctr_builder_posixct.h"
 #include "vctr_builder_primitive.h"
 #include "vctr_builder_rcrd.h"
 #include "vctr_builder_unspecified.h"

Diff for: r/src/vctr_builder_difftime.h

@@ -80,7 +80,7 @@ class DifftimeBuilder : public DblBuilder {
     return NANOARROW_OK;
   }
 
-  virtual ArrowErrorCode PushNext(const ArrowArray* array, ArrowError* error) override {
+  ArrowErrorCode PushNext(const ArrowArray* array, ArrowError* error) override {
     R_xlen_t value_size0 = value_size_;
     NANOARROW_RETURN_NOT_OK(DblBuilder::PushNext(array, error));
 

Diff for: r/src/vctr_builder_posixct.h

@@ -0,0 +1,90 @@
+// Licensed to the Apache Software Foundation (ASF) under one
+// or more contributor license agreements.  See the NOTICE file
+// distributed with this work for additional information
+// regarding copyright ownership.  The ASF licenses this file
+// to you under the Apache License, Version 2.0 (the
+// "License"); you may not use this file except in compliance
+// with the License.  You may obtain a copy of the License at
+//
+//   http://www.apache.org/licenses/LICENSE-2.0
+//
+// Unless required by applicable law or agreed to in writing,
+// software distributed under the License is distributed on an
+// "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+// KIND, either express or implied.  See the License for the
+// specific language governing permissions and limitations
+// under the License.
+
+#ifndef R_NANOARROW_VCTR_BUILDER_POSIXCT_H_INCLUDED
+#define R_NANOARROW_VCTR_BUILDER_POSIXCT_H_INCLUDED
+
+#define R_NO_REMAP
+#include <R.h>
+#include <Rinternals.h>
+
+#include "vctr_builder_dbl.h"
+
+class PosixctBuilder : public DblBuilder {
+ public:
+  explicit PosixctBuilder(SEXP ptype_sexp)
+      : DblBuilder(ptype_sexp, VECTOR_TYPE_POSIXCT), scale_(0) {}
+
+  ArrowErrorCode Init(const ArrowSchema* schema, VctrBuilderOptions options,
+                      ArrowError* error) override {
+    NANOARROW_RETURN_NOT_OK(DblBuilder::Init(schema, options, error));
+
+    ArrowTimeUnit time_unit = NANOARROW_TIME_UNIT_SECOND;
+    switch (schema_view_.type) {
+      case NANOARROW_TYPE_NA:
+        break;
+      case NANOARROW_TYPE_DATE64:
+        time_unit = NANOARROW_TIME_UNIT_MILLI;
+        break;
+      case NANOARROW_TYPE_TIMESTAMP:
+        time_unit = schema_view_.time_unit;
+        break;
+      default:
+        StopCantConvert();
+    }
+
+    scale_ = 1;
+
+    switch (time_unit) {
+      case NANOARROW_TIME_UNIT_SECOND:
+        scale_ *= 1;
+        break;
+      case NANOARROW_TIME_UNIT_MILLI:
+        scale_ *= 1e-3;
+        break;
+      case NANOARROW_TIME_UNIT_MICRO:
+        scale_ *= 1e-6;
+        break;
+      case NANOARROW_TIME_UNIT_NANO:
+        scale_ *= 1e-9;
+        break;
+      default:
+        return EINVAL;
+    }
+
+    return NANOARROW_OK;
+  }
+
+  ArrowErrorCode PushNext(const ArrowArray* array, ArrowError* error) override {
+    R_xlen_t value_size0 = value_size_;
+    NANOARROW_RETURN_NOT_OK(DblBuilder::PushNext(array, error));
+
+    if (scale_ != 1) {
+      double* result = REAL(value_);
+      for (int64_t i = 0; i < array_view_.length; i++) {
+        result[value_size0 + i] = result[value_size0 + i] * scale_;
+      }
+    }
+
+    return NANOARROW_OK;
+  }
+
+ private:
+  double scale_;
+};
+
+#endif

Diff for: r/src/vctr_builder_primitive.h

@@ -24,12 +24,6 @@
 
 #include "vctr_builder_base.h"
 
-class PosixctBuilder : public VctrBuilder {
- public:
-  explicit PosixctBuilder(SEXP ptype_sexp)
-      : VctrBuilder(VECTOR_TYPE_POSIXCT, ptype_sexp) {}
-};
-
 class OtherBuilder : public VctrBuilder {
  public:
   explicit OtherBuilder(SEXP ptype_sexp) : VctrBuilder(VECTOR_TYPE_OTHER, ptype_sexp) {}