carray 1.5.9 → 2.0.0

data/ext/carray_conversion.c

@@ -23,7 +23,7 @@ rb_ca_to_a_loop (VALUE self, int32_t level, ca_size_t *idx, VALUE ary)
   CArray *ca;
   ca_size_t i;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( level == ca->ndim - 1 ) {
     for (i=0; i<ca->dim[level]; i++) {
@@ -55,7 +55,7 @@ rb_ca_to_a (VALUE self)
   volatile VALUE ary;
   CArray *ca;
   ca_size_t idx[CA_RANK_MAX];
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   ary = rb_ary_new2(ca->dim[0]);
   ca_attach(ca);
   rb_ca_to_a_loop(self, 0, idx, ary);
@@ -80,7 +80,7 @@ rb_ca_convert (int argc, VALUE *argv, VALUE self)
 
   obj = rb_apply(self, rb_intern("template"), rb_ary_new4(argc, argv));
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   ca_attach(ca);
   if ( ca_has_mask(ca) ) {
     for (i=0; i<ca->elements; i++) {
@@ -114,7 +114,7 @@ rb_ca_dump_binary (int argc, VALUE *argv, VALUE self)
   volatile VALUE io;
   CArray *ca;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( ca_is_object_type(ca) ) {
     rb_raise(rb_eCADataTypeError, "don't dump object array");
@@ -137,7 +137,6 @@ rb_ca_dump_binary (int argc, VALUE *argv, VALUE self)
     }
     ca_copy_data(ca, StringValuePtr(io));
     StringValuePtr(io)[ca_length(ca)] = '\0';
-    OBJ_TAINT(io);
     break;
 #if RUBY_VERSION_CODE >= 190
   case T_FILE: {
@@ -170,7 +169,6 @@ rb_ca_dump_binary (int argc, VALUE *argv, VALUE self)
     if ( rb_respond_to(io, rb_intern("write") ) ) {
       volatile VALUE buf = rb_str_new(NULL, ca_length(ca));
       ca_copy_data(ca, StringValuePtr(buf));
-      OBJ_INFECT(buf, self);
       rb_funcall(io, rb_intern("write"), 1, buf);
     }
     else {
@@ -204,7 +202,7 @@ rb_ca_load_binary (VALUE self, VALUE io)
 {
   CArray *ca;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( ca_is_object_type(ca) ) {
     rb_raise(rb_eCADataTypeError, "don't load object array");
@@ -221,7 +219,6 @@ rb_ca_load_binary (VALUE self, VALUE io)
     memcpy(ca->ptr, StringValuePtr(io), ca_length(ca));
     ca_sync(ca);
     ca_detach(ca);
-    OBJ_INFECT(self, io);
     return self;
     break;
   default:
@@ -304,7 +301,7 @@ rb_ca_format (int argc, VALUE *argv, VALUE self)
   ca_size_t i, j;
   ID id_format = rb_intern("format");
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   obj = rb_ca_template_with_type(self, INT2NUM(CA_OBJECT), INT2NUM(0));
 
@@ -464,7 +461,7 @@ rb_test_ca_to_cptr (VALUE self)
   double ****a;
   int i, j, k, l;
   
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   
   ca_attach(ca);
 

data/ext/carray_copy.c

@@ -51,7 +51,7 @@ rb_ca_copy (VALUE self)
 {
   volatile VALUE obj;
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   obj = ca_wrap_struct(ca_copy(ca));
   rb_ca_data_type_inherit(obj, self);
   return obj;
@@ -116,7 +116,7 @@ rb_ca_template_method (int argc, VALUE *argv, VALUE self)
   rb_scan_args(argc, argv, "01", (VALUE *) &rtype);
   rb_scan_options(ropt, "bytes", &rbytes);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( NIL_P(rtype) ) {                  /* data_type not given */
     co  = ca_template_safe(ca);
@@ -170,7 +170,7 @@ rb_ca_template_n (int n, ...)
     if ( ! rb_obj_is_carray(varg) ) {
       rb_raise(rb_eRuntimeError, "[BUG] not-carray object given to rb_ca_template_n");
     }
-    Data_Get_Struct(varg, CArray, ca);
+    TypedData_Get_Struct(varg, CArray, &carray_data_type, ca);
     if ( i == 0 ) {
       obj = varg;
       elements = ca->elements;
@@ -291,7 +291,7 @@ rb_ca_paste (VALUE self, VALUE roffset, VALUE rsrc)
 
   rb_ca_modify(self);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   Check_Type(roffset, T_ARRAY);
 
@@ -401,7 +401,7 @@ rb_ca_clip (VALUE self, VALUE roffset, VALUE rsrc)
   ca_size_t offset[CA_RANK_MAX];
   int i;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   Check_Type(roffset, T_ARRAY);
 

data/ext/carray_core.c

@@ -22,6 +22,9 @@ const int ca_endian = CA_LITTLE_ENDIAN;
 /* definition of variables for ca_func mechanism */
 
 VALUE ca_class[CA_OBJ_TYPE_MAX];
+const rb_data_type_t *ca_typeddata[CA_OBJ_TYPE_MAX];
+VALUE ca_mask_class[CA_OBJ_TYPE_MAX];
+const rb_data_type_t *ca_mask_typeddata[CA_OBJ_TYPE_MAX];
 ca_operation_function_t ca_func[CA_OBJ_TYPE_MAX];
 int ca_obj_num = 0;
 
@@ -254,38 +257,65 @@ ca_init_obj_type ()
   /* CArray */
   ca_func[CA_OBJ_ARRAY]       = ca_array_func;
   ca_class[CA_OBJ_ARRAY]      = rb_cCArray;
+  ca_typeddata[CA_OBJ_ARRAY]  = &carray_data_type;
+  ca_mask_class[CA_OBJ_ARRAY]     = rb_cCArrayMask;
+  ca_mask_typeddata[CA_OBJ_ARRAY] = &carray_mask_data_type;
 
   /* CAWrap */
   ca_func[CA_OBJ_ARRAY_WRAP]  = ca_wrap_func;
   ca_class[CA_OBJ_ARRAY_WRAP] = rb_cCAWrap;
+  ca_typeddata[CA_OBJ_ARRAY_WRAP] = &cawrap_data_type;
+  ca_mask_class[CA_OBJ_ARRAY_WRAP] = rb_cCArrayMask;
+  ca_mask_typeddata[CA_OBJ_ARRAY_WRAP] = &carray_mask_data_type;
 
   /* CAScalar */
   ca_func[CA_OBJ_SCALAR]      = ca_scalar_func;
   ca_class[CA_OBJ_SCALAR]     = rb_cCScalar;
+  ca_typeddata[CA_OBJ_SCALAR] = &cscalar_data_type;
+  ca_mask_class[CA_OBJ_SCALAR] = rb_cCArrayMask;
+  ca_mask_typeddata[CA_OBJ_SCALAR] = &carray_mask_data_type;
 
   /* CARefer */
   ca_func[CA_OBJ_REFER]       = ca_refer_func;
   ca_class[CA_OBJ_REFER]      = rb_cCARefer;
+  ca_typeddata[CA_OBJ_REFER]  = &carefer_data_type;
+  ca_mask_class[CA_OBJ_REFER] = rb_cCAReferMask;
+  ca_mask_typeddata[CA_OBJ_REFER] = &carefer_mask_data_type;
 
   /* CABlock */
   ca_func[CA_OBJ_BLOCK]       = ca_block_func;
   ca_class[CA_OBJ_BLOCK]      = rb_cCABlock;
+  ca_typeddata[CA_OBJ_BLOCK]  = &cablock_data_type;
+  ca_mask_class[CA_OBJ_BLOCK] = rb_cCABlockMask;
+  ca_mask_typeddata[CA_OBJ_BLOCK] = &cablock_mask_data_type;
 
   /* CASelect */
   ca_func[CA_OBJ_SELECT]      = ca_select_func;
   ca_class[CA_OBJ_SELECT]     = rb_cCASelect;
+  ca_typeddata[CA_OBJ_SELECT] = &caselect_data_type;
+  ca_mask_class[CA_OBJ_SELECT] = rb_cCASelectMask;
+  ca_mask_typeddata[CA_OBJ_SELECT] = &caselect_mask_data_type;
 
   /* CAObject */
   ca_func[CA_OBJ_OBJECT]      = ca_object_func;
   ca_class[CA_OBJ_OBJECT]     = rb_cCAObject;
+  ca_typeddata[CA_OBJ_OBJECT] = &caobject_data_type;
+  ca_mask_class[CA_OBJ_OBJECT] = rb_cCArrayMask;
+  ca_mask_typeddata[CA_OBJ_OBJECT] = &carray_mask_data_type;
 
   /* CARepeat */
   ca_func[CA_OBJ_REPEAT]      = ca_repeat_func;
   ca_class[CA_OBJ_REPEAT]     = rb_cCARepeat;
+  ca_typeddata[CA_OBJ_REPEAT] = &carepeat_data_type;
+  ca_mask_class[CA_OBJ_REPEAT] = rb_cCARepeatMask;
+  ca_mask_typeddata[CA_OBJ_REPEAT] = &carepeat_mask_data_type;
 
   /* CAUnboundRepeat */
   ca_func[CA_OBJ_UNBOUND_REPEAT]  = ca_ubrep_func;
   ca_class[CA_OBJ_UNBOUND_REPEAT] = rb_cCAUnboundRepeat;
+  ca_typeddata[CA_OBJ_UNBOUND_REPEAT] = &caunboundrepeat_data_type;
+  ca_mask_class[CA_OBJ_UNBOUND_REPEAT] = rb_cCAUnboundRepeatMask;
+  ca_mask_typeddata[CA_OBJ_UNBOUND_REPEAT] = &caunboundrepeat_mask_data_type;
 
   ca_obj_num = 9;
 }
@@ -295,7 +325,11 @@ ca_init_obj_type ()
 */
 
 int
-ca_install_obj_type (VALUE klass, ca_operation_function_t func)
+ca_install_obj_type (VALUE klass, 
+                     const rb_data_type_t *typeddata, 
+		     VALUE mask_klass, 
+                     const rb_data_type_t *mask_typeddata, 
+		     ca_operation_function_t func)
 {
   int obj_type  = ca_obj_num++;
 
@@ -309,6 +343,9 @@ ca_install_obj_type (VALUE klass, ca_operation_function_t func)
 
   ca_class[obj_type] = klass;
   ca_func[obj_type]  = func;
+  ca_typeddata[obj_type]  = typeddata;
+  ca_mask_class[obj_type] = mask_klass;
+  ca_mask_typeddata[obj_type]  = mask_typeddata;
 
   return obj_type;
 }
@@ -344,7 +381,7 @@ ca_free (void *ap)
 {
   if ( ap ) {
     CArray *ca = (CArray *) ap;
-    ca_func[ca->obj_type].free_object(ap); /* delegate */
+    ca_func[ca->obj_type].free_object(ca); /* delegate */
   }
 }
 
@@ -367,7 +404,7 @@ VALUE
 ca_wrap_struct (void *ap)
 {
   CArray *ca = (CArray *) ap;
-  return Data_Wrap_Struct(ca_class[ca->obj_type], ca_mark, ca_free, ca);
+  return TypedData_Wrap_Struct(ca_class[ca->obj_type], ca_typeddata[ca->obj_type], ca);
 }
 
 /* ------------------------------------------------------------------- */
@@ -443,7 +480,7 @@ ca_test_cyclic_check(void *ap, void *ptr)
     VALUE rval = *(VALUE*) ptr;
     if ( rb_obj_is_carray(rval) ) {
       CArray *cv;
-      Data_Get_Struct(rval, CArray, cv);
+      TypedData_Get_Struct(rval, CArray, &carray_data_type, cv);
       if ( ca_test_flag(cv, CA_FLAG_CYCLE_CHECK) ) {
         rb_raise(rb_eRuntimeError, "cyclic reference is not allowed in CArray");
       }
@@ -936,7 +973,7 @@ rb_ca_attach_i (VALUE self)
 {
   CArray *ca;
   if ( rb_obj_is_carray(self) ) {
-    Data_Get_Struct(self, CArray, ca);
+    TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
     ca_attach(ca);
     if ( ca_is_virtual(ca) ) {
       CAVIRTUAL(ca)->nosync += 1;
@@ -952,7 +989,7 @@ rb_ca_sync_i (VALUE self)
 {
   CArray *ca;
   if ( rb_obj_is_carray(self) ) {
-    Data_Get_Struct(self, CArray, ca);
+    TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
     if ( ca_is_virtual(ca) ) {
       CAVIRTUAL(ca)->nosync -= 1;
       ca_sync(ca);
@@ -969,7 +1006,7 @@ rb_ca_detach_i (VALUE self)
 {
   CArray *ca;
   if ( rb_obj_is_carray(self) ) {
-    Data_Get_Struct(self, CArray, ca);
+    TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
     if ( ca_is_virtual(ca) ) {   /* virtual array */
       CAVIRTUAL(ca)->nosync -= 1;
       ca_detach(ca);

data/ext/carray_element.c

@@ -33,7 +33,7 @@ rb_ca_elem_swap (VALUE self, VALUE ridx1, VALUE ridx2)
 
   rb_ca_modify(self);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   ca_update_mask(ca);
   has_mask = ( ca->mask ) ? 1 : 0;
@@ -143,7 +143,7 @@ rb_ca_elem_copy (VALUE self, VALUE ridx1, VALUE ridx2)
 
   rb_ca_modify(self);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   ca_update_mask(ca);
   has_mask = ( ca->mask ) ? 1 : 0;
@@ -217,7 +217,7 @@ rb_ca_elem_store (VALUE self, VALUE ridx, VALUE obj)
 
   rb_ca_modify(self);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( TYPE(ridx) == T_ARRAY ) {
     for (i=0; i<ca->ndim; i++) {
@@ -251,7 +251,7 @@ rb_ca_elem_fetch (VALUE self, VALUE ridx)
   int8_t  i;
   ca_size_t k;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( TYPE(ridx) == T_ARRAY ) {
     for (i=0; i<ca->ndim; i++) {
@@ -291,7 +291,7 @@ rb_ca_elem_incr (VALUE self, VALUE ridx1)
 
   rb_ca_modify(self);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( ! ca_is_integer_type(ca) ) {
     rb_raise(rb_eCADataTypeError,
@@ -376,7 +376,7 @@ rb_ca_elem_decr (VALUE self, VALUE ridx1)
 
   rb_ca_modify(self);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( ! ca_is_integer_type(ca) ) {
     rb_raise(rb_eCADataTypeError,
@@ -454,7 +454,7 @@ rb_ca_elem_test_masked (VALUE self, VALUE ridx1)
   ca_size_t k;
   boolean8_t m = 0;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   ca_update_mask(ca);
 
@@ -501,8 +501,8 @@ rb_ca_incr_addr (volatile VALUE self, volatile VALUE raddr)
   self = rb_ca_wrap_writable(self, INT2NUM(CA_INT64));
   raddr = rb_ca_wrap_readonly(raddr, INT2NUM(CA_INT64));
   
-  Data_Get_Struct(self, CArray, ca);
-  Data_Get_Struct(raddr, CArray, ci);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
+  TypedData_Get_Struct(raddr, CArray, &carray_data_type, ci);
 
   ca_attach_n(2, ca, ci);
 

data/ext/carray_generate.c

@@ -70,7 +70,7 @@ rb_ca_where (VALUE self)
 
   bool0 = ( ! rb_ca_is_boolean_type(self) ) ? rb_ca_to_boolean(self) : self;
 
-  Data_Get_Struct(bool0, CArray, ca);
+  TypedData_Get_Struct(bool0, CArray, &carray_data_type, ca);
 
   ca_attach(ca);
 
@@ -93,7 +93,7 @@ rb_ca_where (VALUE self)
 
   /* create output array */
   obj = rb_carray_new(CA_SIZE, 1, &count, 0, NULL);
-  Data_Get_Struct(obj, CArray, co);
+  TypedData_Get_Struct(obj, CArray, &carray_data_type, co);
 
   /* store address which elements is true to output array */
   p = (boolean8_t *) ca->ptr;
@@ -179,7 +179,7 @@ rb_ca_seq_bang_object (int argc, VALUE *argv, VALUE self)
   VALUE *p;
   ca_size_t i;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   rb_scan_args((argc>2) ? 2 : argc, argv, "02", (VALUE *) &roffset, (VALUE *) &rstep);
 
@@ -269,7 +269,7 @@ rb_ca_seq_bang_method (int argc, VALUE *argv, VALUE self)
   CArray *ca;
 
   rb_ca_modify(self);
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   /* delegate to rb_ca_seq_bang_object if data_type is object */
   if ( ca_is_object_type(ca) ) {
@@ -500,7 +500,7 @@ rb_ca_swap_bytes_bang (VALUE self)
       }
     }
     else {
-      Data_Get_Struct(self, CArray, ca);
+      TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
       ca_attach(ca);
       ca_swap_bytes(ca->ptr, ca->bytes, ca->elements);
       ca_sync(ca);
@@ -509,7 +509,7 @@ rb_ca_swap_bytes_bang (VALUE self)
     return self;
   }
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   switch ( ca->data_type ) {
   case CA_INT16:
@@ -702,7 +702,7 @@ rb_ca_trim_bang (int argc, VALUE *argv, VALUE self)
 
   rb_ca_modify(self);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   rb_scan_args(argc, argv, "21", (VALUE *) &rmin, (VALUE *) &rmax, (VALUE *) &rfval);
 

data/ext/carray_iterator.c

@@ -10,6 +10,17 @@
 
 #include "carray.h"
 
+const rb_data_type_t caiterator_data_type = {
+    .wrap_struct_name = "CAIterator",
+    .function = {
+        .dmark = ca_mark,
+        .dfree = ca_free,
+        .dsize = NULL,
+        .dcompact = NULL
+    },
+    .flags = RUBY_TYPED_FREE_IMMEDIATELY
+};
+
 VALUE rb_cCAIterator;
 
 int8_t
@@ -18,7 +29,7 @@ ca_iter_ndim (VALUE self)
   int8_t ndim;
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
-    Data_Get_Struct(self, CAIterator, it);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
     ndim = it->ndim;
   }
   else {
@@ -34,7 +45,7 @@ ca_iter_dim (VALUE self, ca_size_t *dim)
   int i;
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
-    Data_Get_Struct(self, CAIterator, it);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
     for (i=0; i<it->ndim; i++) {
       dim[i] = it->dim[i];
     }
@@ -56,7 +67,7 @@ ca_iter_elements (VALUE self)
   int i, elements;
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
-    Data_Get_Struct(self, CAIterator, it);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
     elements = 1;
     for (i=0; i<it->ndim; i++) {
       elements *= it->dim[i];
@@ -87,8 +98,8 @@ ca_iter_kernel_at_addr (VALUE self, ca_size_t addr, VALUE rref)
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
     CArray *ref, *ker;
-    Data_Get_Struct(self, CAIterator, it);
-    Data_Get_Struct(rref, CArray, ref);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
+    TypedData_Get_Struct(rref, CArray, &carray_data_type, ref);
     ker = it->kernel_at_addr(it, addr, ref);
     rker = ca_wrap_struct(ker);
     rb_ca_data_type_inherit(rker, rref);
@@ -108,8 +119,8 @@ ca_iter_kernel_at_index (VALUE self, ca_size_t *idx, VALUE rref)
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
     CArray *ref, *ker;
-    Data_Get_Struct(self, CAIterator, it);
-    Data_Get_Struct(rref, CArray, ref);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
+    TypedData_Get_Struct(rref, CArray, &carray_data_type, ref);
     ker = it->kernel_at_index(it, idx, ref);
     rker = ca_wrap_struct(ker);
     rb_ca_data_type_inherit(rker, rref);
@@ -135,8 +146,8 @@ ca_iter_kernel_move_to_addr (VALUE self, ca_size_t addr, VALUE rref)
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
     CArray *ker;
-    Data_Get_Struct(self, CAIterator, it);
-    Data_Get_Struct(rref, CArray, ker);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
+    TypedData_Get_Struct(rref, CArray, &carray_data_type, ker);
     it->kernel_move_to_addr(it, addr, ker);
   }
   else {
@@ -149,12 +160,11 @@ ca_iter_kernel_move_to_addr (VALUE self, ca_size_t addr, VALUE rref)
 VALUE
 ca_iter_kernel_move_to_index (VALUE self, ca_size_t *idx, VALUE rref)
 {
-  VALUE rker;
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
     CArray *ker;
-    Data_Get_Struct(self, CAIterator, it);
-    Data_Get_Struct(rref, CArray, ker);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
+    TypedData_Get_Struct(rref, CArray, &carray_data_type, ker);
     it->kernel_move_to_index(it, idx, ker);
   }
   else {
@@ -165,8 +175,8 @@ ca_iter_kernel_move_to_index (VALUE self, ca_size_t *idx, VALUE rref)
     for (i=0; i<ndim; i++) {
       rb_ary_store(vidx, i, SIZE2NUM(idx[i]));
     }
-    rker = rb_funcall(self, rb_intern("kernel_move_to_index"), 2,
-                      vidx, rref);
+    rb_funcall(self, rb_intern("kernel_move_to_index"), 2,
+               vidx, rref);
   }
   return rref;
 }
@@ -185,7 +195,7 @@ ca_iter_prepare_output (VALUE self, VALUE rtype, VALUE rbytes)
 
   if ( TYPE(self) == T_DATA ) {
     CAIterator *it;
-    Data_Get_Struct(self, CAIterator, it);
+    TypedData_Get_Struct(self, CAIterator, &caiterator_data_type, it);
     co = carray_new_safe(data_type, it->ndim, it->dim, bytes, NULL);
   }
   else {
@@ -393,7 +403,7 @@ rb_ca_iter_calculate (int argc, VALUE *argv, VALUE self)
   elements = ca_iter_elements(self);
 
   rref     = ca_iter_reference(self);
-  Data_Get_Struct(rref, CArray, cr);
+  TypedData_Get_Struct(rref, CArray, &carray_data_type, cr);
   
   if ( NIL_P(argv[0]) ) {
     rtype = INT2NUM(cr->data_type);
@@ -408,7 +418,7 @@ rb_ca_iter_calculate (int argc, VALUE *argv, VALUE self)
   argv++;
 
   routput = ca_iter_prepare_output(self, rtype, rbytes);
-  Data_Get_Struct(routput, CArray, co);
+  TypedData_Get_Struct(routput, CArray, &carray_data_type, co);
 
   ca_attach(cr);
 
@@ -416,7 +426,7 @@ rb_ca_iter_calculate (int argc, VALUE *argv, VALUE self)
 
     rker = ca_iter_kernel_at_addr(self, 0, rref);
 
-    Data_Get_Struct(rker, CArray, ck);
+    TypedData_Get_Struct(rker, CArray, &carray_data_type, ck);
     ca_attach(ck);
 
     if ( rb_block_given_p() ) {
@@ -491,7 +501,7 @@ rb_ca_iter_filter (int argc, VALUE *argv, VALUE self)
   elements = ca_iter_elements(self);
   rref = ca_iter_reference(self);
 
-  Data_Get_Struct(rref, CArray, cr);
+  TypedData_Get_Struct(rref, CArray, &carray_data_type, cr);
 
   /* FIXME: check data_type validity */
 
@@ -511,11 +521,11 @@ rb_ca_iter_filter (int argc, VALUE *argv, VALUE self)
   if ( rb_const_get(CLASS_OF(self), rb_intern("UNIFORM_KERNEL")) ) {
 
     rker = ca_iter_kernel_at_addr(self, 0, rref);
-    Data_Get_Struct(rker, CArray, ck);
+    TypedData_Get_Struct(rker, CArray, &carray_data_type, ck);
     ca_allocate(ck);
 
     rout = ca_iter_kernel_at_addr(self, 0, routput);
-    Data_Get_Struct(rker, CArray, cq);
+    TypedData_Get_Struct(rker, CArray, &carray_data_type, cq);
     ca_allocate(cq);
 
     for (i=0; i<elements; i++) {
@@ -563,7 +573,7 @@ rb_ca_iter_evaluate (int argc, VALUE *argv, VALUE self)
   elements = ca_iter_elements(self);
   rref  = ca_iter_reference(self);
 
-  Data_Get_Struct(rref, CArray, cr);
+  TypedData_Get_Struct(rref, CArray, &carray_data_type, cr);
 
   ca_attach(cr);
 
@@ -571,7 +581,7 @@ rb_ca_iter_evaluate (int argc, VALUE *argv, VALUE self)
 
     rker = ca_iter_kernel_at_addr(self, 0, rref);
 
-    Data_Get_Struct(rker, CArray, ck);
+    TypedData_Get_Struct(rker, CArray, &carray_data_type, ck);
 
     ca_attach(ck);
 

data/ext/carray_loop.c

@@ -131,7 +131,7 @@ rb_ca_each_index_internal (VALUE self, int8_t level, VALUE ridx)
   volatile VALUE ret = Qnil;
   CArray *ca;
   ca_size_t i;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( level == ca->ndim - 1 ) {
     for (i=0; i<ca->dim[level]; i++) {
       rb_ary_store(ridx, level, SIZE2NUM(i));
@@ -187,7 +187,7 @@ rb_ca_map_bang (VALUE self)
   RETURN_ENUMERATOR(self, 0, 0);
 #endif
   rb_ca_modify(self);
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   ca_attach(ca);
   for (i=0; i<elements; i++) {
     obj = rb_yield(rb_ca_fetch_addr(self, i));
@@ -205,7 +205,7 @@ rb_ca_each_with_index_internal (VALUE self,
   volatile VALUE ret = Qnil;
   CArray *ca;
   ca_size_t i;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( level == ca->ndim - 1 ) {
     for (i=0; i<ca->dim[level]; i++) {
       idx[level] = i;
@@ -252,7 +252,7 @@ rb_ca_map_with_index_bang_internal (VALUE self,
 {
   CArray *ca;
   ca_size_t i;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( level == ca->ndim - 1 ) {
     volatile VALUE obj;
     for (i=0; i<ca->dim[level]; i++) {
@@ -289,7 +289,7 @@ rb_ca_map_with_index_bang (VALUE self)
   RETURN_ENUMERATOR(self, 0, 0);
 #endif
   rb_ca_modify(self);
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   ca_attach(ca);
   ridx = rb_ary_new2(ndim);
   rb_ca_map_with_index_bang_internal(self, 0, idx, ridx);
@@ -305,7 +305,7 @@ rb_ca_map_index_bang_internal (VALUE self,
 {
   CArray *ca;
   ca_size_t i;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( level == ca->ndim - 1 ) {
     volatile VALUE obj;
     for (i=0; i<ca->dim[level]; i++) {
@@ -341,7 +341,7 @@ rb_ca_map_index_bang (VALUE self)
   RETURN_ENUMERATOR(self, 0, 0);
 #endif
   rb_ca_modify(self);
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   ca_attach(ca);
   ridx = rb_ary_new2(ndim);
   rb_ca_map_index_bang_internal(self, 0, idx, ridx);
@@ -367,7 +367,7 @@ rb_ca_map_with_addr_bang (VALUE self)
   RETURN_ENUMERATOR(self, 0, 0);
 #endif
   rb_ca_modify(self);
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   ca_attach(ca);
   for (i=0; i<elements; i++) {
     obj = rb_yield_values(2, rb_ca_fetch_addr(self, i), SIZE2NUM(i));
@@ -396,7 +396,7 @@ rb_ca_map_addr_bang (VALUE self)
   RETURN_ENUMERATOR(self, 0, 0);
 #endif
   rb_ca_modify(self);
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   ca_attach(ca);
   for (i=0; i<elements; i++) {
     obj = rb_yield(SIZE2NUM(i));