carray 1.5.1 → 1.5.2

data/ext/ca_obj_bitarray.c

@@ -3,10 +3,8 @@
   ca_obj_bitarray.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -34,7 +32,7 @@ static int8_t CA_OBJ_BITARRAY;
 
 static VALUE rb_cCABitarray;
 
-/* rdoc:
+/* yard:
   class CABitArray < CAVirtual # :nodoc:
   end
 */
@@ -464,7 +462,7 @@ rb_ca_bitarray_new (VALUE cary)
   return obj;
 }
 
-/* rdoc:
+/* yard:
   class CArray
     def bits
     end

data/ext/ca_obj_bitfield.c

@@ -3,10 +3,8 @@
   ca_obj_bitfield.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -35,7 +33,7 @@ static int8_t CA_OBJ_BITFIELD;
 
 static VALUE rb_cCABitfield;
 
-/* rdoc:
+/* yard:
   class CABitField < CAVirtual # :nodoc:
   end
 */
@@ -559,7 +557,7 @@ rb_ca_bitfield_new (VALUE cary, ca_size_t offset, ca_size_t bitlen)
   return obj;
 }
 
-/* rdoc:
+/* yard:
   class CArray
     def bitfield (range, type)
     end

data/ext/ca_obj_block.c

@@ -3,10 +3,8 @@
   ca_obj_block.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -14,7 +12,7 @@
 
 VALUE rb_cCABlock;
 
-/* rdoc:
+/* yard:
   class CABlock < CAVirtual # :nodoc:
   end
 */
@@ -735,7 +733,7 @@ rb_cb_initialize_copy (VALUE self, VALUE other)
     return ary;                                     \
 }
 
-/* rdoc:
+/* yard:
   class CABlock
     def size0
     end
@@ -763,7 +761,7 @@ rb_cb_offset (VALUE self)
   return SIZE2NUM(cb->offset);
 }
 
-/* rdoc:
+/* yard:
   class CABlock
     def idx2addr0 (idx)
     end
@@ -795,7 +793,7 @@ rb_cb_idx2addr0 (int argc, VALUE *argv, VALUE self)
   return SIZE2NUM(addr + cb->offset);
 }
 
-/* rdoc:
+/* yard:
   class CABlock
     def addr2addr0 (addr)
     end
@@ -824,7 +822,7 @@ rb_cb_addr2addr0 (VALUE self, VALUE raddr)
 }
 
 
-/* rdoc:
+/* yard:
   class CABlock
     def move (*index)
     end

data/ext/ca_obj_fake.c

@@ -3,10 +3,8 @@
   ca_obj_fake.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -31,7 +29,7 @@ static int8_t CA_OBJ_FAKE;
 
 static VALUE rb_cCAFake;
 
-/* rdoc: 
+/* yard: 
   class CAFake < CAVirtual # :nodoc:
   end
 */
@@ -328,7 +326,7 @@ rb_ca_fake_new (VALUE cary, int8_t data_type, ca_size_t bytes)
   return obj;
 }
 
-/* rdoc:
+/* yard:
   class CArray
     def fake (data_type, options={:bytes=>0})
     end

data/ext/ca_obj_farray.c

@@ -3,10 +3,8 @@
   ca_obj_farray.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -33,7 +31,7 @@ static int8_t CA_OBJ_FARRAY;
 
 static VALUE rb_cCAFarray;
 
-/* rdoc:
+/* yard:
   class CAFArray < CAVirtual # :nodoc:
   end
 */
@@ -429,7 +427,7 @@ rb_ca_farray_new (VALUE cary)
   return obj;
 }
 
-/* rdoc:
+/* yard:
   class CArray
     # create the virtual transposed array which dimension order is reversed.
     def t

data/ext/ca_obj_field.c

@@ -3,10 +3,8 @@
   ca_obj_field.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -33,7 +31,7 @@ static int8_t CA_OBJ_FIELD;
 
 static VALUE rb_cCAField;
 
-/* rdoc:
+/* yard:
   class CAField < CAVirtual # :nodoc:
   end
 */
@@ -155,7 +153,7 @@ ca_field_func_ptr_at_index (void *ap, ca_size_t *idx)
     }
 
     if ( ca->parent->ptr == NULL ) {
-      return ca_ptr_at_addr(ca->parent, n) + ca->offset;
+      return (void *)((char *) ca_ptr_at_addr(ca->parent, n) + ca->offset);
     }
     else {
       return ca->parent->ptr + ca->parent->bytes * n + ca->offset;
@@ -324,7 +322,7 @@ ca_field_attach (CAField *ca)
   case CA_UINT8:
     {
       char *p = ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *p = *q;
         p += 1; q += pbytes;
@@ -335,7 +333,7 @@ ca_field_attach (CAField *ca)
   case CA_UINT16:
     {
       int16_t *p = (int16_t*) ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *p = *(int16_t*) q;
         p += 1; q += pbytes;
@@ -347,7 +345,7 @@ ca_field_attach (CAField *ca)
   case CA_FLOAT32:
     {
       int32_t *p = (int32_t*) ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *p = *(int32_t*) q;
         p += 1; q += pbytes;
@@ -359,7 +357,7 @@ ca_field_attach (CAField *ca)
   case CA_FLOAT64:
     {
       float64_t *p = (float64_t*) ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *p = *(float64_t*) q;
         p += 1; q += pbytes;
@@ -369,7 +367,7 @@ ca_field_attach (CAField *ca)
   default:
     {
       char *p = ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         memcpy(p, q, ca->bytes);
         p += bytes; q += pbytes;
@@ -391,7 +389,7 @@ ca_field_sync (CAField *ca)
   case CA_UINT8:
     {
       char *p = ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *q = *p;
         p += 1; q += pbytes;
@@ -402,7 +400,7 @@ ca_field_sync (CAField *ca)
   case CA_UINT16:
     {
       int16_t *p = (int16_t*) ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *(int16_t*) q = *p;
         p += 1; q += pbytes;
@@ -414,7 +412,7 @@ ca_field_sync (CAField *ca)
   case CA_FLOAT32:
     {
       int32_t *p = (int32_t*) ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *(int32_t*) q = *p;
         p += 1; q += pbytes;
@@ -426,7 +424,7 @@ ca_field_sync (CAField *ca)
   case CA_FLOAT64:
     {
       float64_t *p = (float64_t*) ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         *(float64_t*) q = *p;
         p += 1; q += pbytes;
@@ -436,7 +434,7 @@ ca_field_sync (CAField *ca)
   default:
     {
       char *p = ca_ptr_at_addr(ca, 0);
-      char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+      char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
       while ( n-- ) {
         memcpy(q, p, ca->bytes);
         p += bytes; q += pbytes;
@@ -450,7 +448,7 @@ ca_field_fill (CAField *ca, char *ptr)
 {
   ca_size_t pbytes = ca->parent->bytes;
   ca_size_t n = ca->elements;
-  char *q = ca_ptr_at_addr(ca->parent, 0) + ca->offset;
+  char *q = (char *) ca_ptr_at_addr(ca->parent, 0) + ca->offset;
 
   switch ( ca->data_type ) {
   case CA_BOOLEAN:
@@ -545,7 +543,7 @@ rb_ca_field_initialize_copy (VALUE self, VALUE other)
 
 /* ----------------------------------------------------------------------- */
 
-/* rdoc:
+/* yard:
   class CArray
     # call-seq:
     #    CArray#field(offset, data_type[, :bytes=>bytes]) 

data/ext/ca_obj_grid.c

@@ -3,10 +3,8 @@
   ca_obj_grid.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -32,7 +30,7 @@ typedef struct {
 
 static VALUE rb_cCAGrid;
 
-/* rdoc:
+/* yard:
   class CAGrid < CAVirtual # :nodoc:
   end
 */
@@ -46,8 +44,9 @@ ca_grid_setup (CAGrid *ca, CArray *parent, ca_size_t *dim,
   int8_t ndim, data_type;
   ca_size_t *dim0;
   ca_size_t elements, bytes;
+  ca_size_t j, k;
   double  length;
-  int i, j, k;
+  int8_t i;
 
   data_type = parent->data_type;
   ndim      = parent->ndim;
@@ -602,7 +601,7 @@ rb_ca_grid_new (VALUE cary, ca_size_t *dim, CArray **grid)
   return obj;
 }
 
-/* rdoc:
+/* yard:
   class CArray
     def grid
     end

data/ext/ca_obj_mapping.c

@@ -3,10 +3,8 @@
   ca_obj_mapping.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -39,7 +37,7 @@ static int8_t CA_OBJ_MAPPING;
 
 static VALUE rb_cCAMapping;
 
-/* rdoc:
+/* yard:
   class CAMapping < CAVirtual # :nodoc: 
   end
 */

data/ext/ca_obj_object.c

@@ -3,10 +3,8 @@
   ca_obj_object.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -41,7 +39,7 @@
 VALUE rb_cCAObject;
 
 
-/* rdoc:
+/* yard:
   class CAObject < CAVirtual # :nodoc:
   end
 */
@@ -52,7 +50,7 @@ VALUE rb_cCAObject;
 static int8_t CA_OBJ_OBJECT_MASK;
 static VALUE rb_cCAObjectMask;
 
-/* rdoc:
+/* yard:
   class CAObjectMask < CAVirtual # :nodoc:
   end
 */

data/ext/ca_obj_reduce.c

@@ -3,10 +3,8 @@
   ca_obj_reduce.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -16,7 +14,7 @@ static int8_t CA_OBJ_REDUCE;
 
 static VALUE rb_cCAReduce;
 
-/* rdoc:
+/* yard:
   class CAReduce < CAVirtual # :nodoc:
   end
 */

data/ext/ca_obj_refer.c

@@ -3,10 +3,8 @@
   ca_obj_refer.c
 
   This file is part of Ruby/CArray extension library.
-  You can redistribute it and/or modify it under the terms of
-  the Ruby Licence.
 
-  Copyright (C) 2005 Hiroki Motoyoshi
+  Copyright (C) 2005-2020 Hiroki Motoyoshi
 
 ---------------------------------------------------------------------------- */
 
@@ -14,7 +12,7 @@
 
 VALUE rb_cCARefer;
 
-/* rdoc:
+/* yard:
   class CARefer < CAVirtual # :nodoc:
   end
 */
@@ -206,7 +204,7 @@ ca_refer_func_fetch_addr (void *ap, ca_size_t addr, void *ptr)
     for (i=0; i<ca->ratio; i++) {
       ca_fetch_addr(ca->parent,
                        addr * ca->ratio + i + ca->offset,
-                       ptr + i * ca->parent->bytes);
+                       (char *) ptr + i * ca->parent->bytes);
     }
     break;
   }
@@ -267,7 +265,7 @@ ca_refer_func_store_addr (void *ap, ca_size_t addr, void *ptr)
     for (i=0; i<ca->ratio; i++) {
       ca_store_addr(ca->parent,
                        addr * ca->ratio + i + ca->offset,
-                       ptr + i * ca->parent->bytes);
+                       (char *) ptr + i * ca->parent->bytes);
     }
     break;
   }
@@ -491,7 +489,7 @@ rb_ca_refer_initialize_copy (VALUE self, VALUE other)
   return self;
 }
 
-/* rdoc:
+/* yard:
   class CArray
     # call-seq: 
     #    CArray.refer()