gsl-nmatrix 1.15.3.0 → 1.15.3.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: c2b3d46a7692857d20ce51c8490d7a98f1836134
-  data.tar.gz: 5817a037c5e2b155c65603f2060742468626fcef
+  metadata.gz: b43626870a83e8a7e0a04eab2af96b707a851b8f
+  data.tar.gz: ff6e9590f00392fd65f76842b5a9543967d83749
 SHA512:
-  metadata.gz: fb39880ec0a8f4cc8718d3e20d5f2e09e89d2d238105938a03ffa2f8fa265d5e2ddc31526d990b80c73a58517b87e8c5a2fb1e1ebf448b7aed4bc45d6319a47e
-  data.tar.gz: 135fbcadce357a085c7b1b5343e7e13a0123d0942579b52cfc0df3d5023d7d0d0d135267c71c40cb53d6b3ade70a2aa0bc3fd6d116ea6e89efdeb6d28f9e0f91
+  metadata.gz: cec8f3f95384e69c663b7cedd7af90069c8a5d398f372f0c298fe83de4ffd5ad98d65cf7be8564d6cc5d206aa05b8b5cd99bcae9b37f6424ab40be3aa14428d7
+  data.tar.gz: 800da140e98f0a93786e16855123441e029af93ca2b823c95ffea316e24cc66a65d936c6f6733610b02d20ac0a70b24f3dfb1462259d5a3ab92a521851a5c3e1

data/Gemfile

@@ -1,4 +1,5 @@
 source "http://rubygems.org"
 
-gem "nmatrix"
+gemspec
+
 gem "rake"

data/VERSION

@@ -1 +1 @@
-1.15.3.0
+1.15.3.1

data/ext/linalg.c

@@ -14,6 +14,7 @@
 #include "rb_gsl_array.h"
 #include "rb_gsl_common.h"
 #include "rb_gsl_linalg.h"
+#include "porting.h"
 
 static VALUE cgsl_matrix_LU;
 static VALUE cgsl_matrix_QR;
@@ -71,7 +72,7 @@ static VALUE rb_gsl_linalg_LU_decomposition(int argc, VALUE *argv, VALUE obj, in
   Data_Get_Struct(omatrix, gsl_matrix, mtmp);
   if (flag == LINALG_DECOMP_BANG) {
     m = mtmp;
-    RBASIC(omatrix)->klass = cgsl_matrix_LU;
+    rb_obj_reveal(omatrix, cgsl_matrix_LU);
     objm = omatrix;
   } else {
     m = make_matrix_clone(mtmp);
@@ -692,7 +693,7 @@ static VALUE rb_gsl_linalg_QR_LQ_decomposition(int argc, VALUE *argv, VALUE obj,
     fdecomp = &gsl_linalg_QR_decomp;
     m = mtmp;
     mdecomp = omatrix;
-    RBASIC(mdecomp)->klass = cgsl_matrix_QR;
+    rb_obj_reveal(mdecomp, cgsl_matrix_QR);
     break;
 #ifdef GSL_1_6_LATER
   case LINALG_LQ_DECOMP:
@@ -704,7 +705,7 @@ static VALUE rb_gsl_linalg_QR_LQ_decomposition(int argc, VALUE *argv, VALUE obj,
     fdecomp = &gsl_linalg_LQ_decomp;
     m = mtmp;
     mdecomp = omatrix;
-    RBASIC(mdecomp)->klass = cgsl_matrix_LQ;
+    rb_obj_reveal(mdecomp, cgsl_matrix_LQ);
     break;
 #endif
   default:
@@ -731,7 +732,7 @@ static VALUE rb_gsl_linalg_QR_LQ_decomposition(int argc, VALUE *argv, VALUE obj,
       vtau = Data_Wrap_Struct(cgsl_vector_tau, 0, gsl_vector_free, tau);
       return rb_ary_new3(2, mdecomp, vtau);
     } else {
-      RBASIC(argv[itmp])->klass = cgsl_vector_tau;
+      rb_obj_reveal(argv[itmp], cgsl_vector_tau);
       return mdecomp;
     }
     break;
@@ -740,7 +741,7 @@ static VALUE rb_gsl_linalg_QR_LQ_decomposition(int argc, VALUE *argv, VALUE obj,
    if (argc == itmp) {
       return Data_Wrap_Struct(cgsl_vector_tau, 0, gsl_vector_free, tau);
     } else {
-      RBASIC(argv[itmp])->klass = cgsl_vector_tau;
+      rb_obj_reveal(argv[itmp], cgsl_vector_tau);
       return INT2FIX(status);
     }
     break;
@@ -1628,14 +1629,14 @@ static VALUE rb_gsl_linalg_QRLQPT_decomp_bang(int argc, VALUE *argv, VALUE obj,
   norm = gsl_vector_alloc(size0);
   switch (flag) {
   case LINALG_QRPT:
-    RBASIC(vA)->klass = cgsl_matrix_QRPT;
+    rb_obj_reveal(vA, cgsl_matrix_QRPT);
     vtau = Data_Wrap_Struct(cgsl_vector_tau, 0, gsl_vector_free, tau);
     vp = Data_Wrap_Struct(cgsl_permutation, 0, gsl_permutation_free, p);
     gsl_linalg_QRPT_decomp(A, tau, p, &signum, norm);
     break;
 #ifdef GSL_1_6_LATER
   case LINALG_PTLQ:
-    RBASIC(vA)->klass = cgsl_matrix_PTLQ;
+    rb_obj_reveal(vA, cgsl_matrix_PTLQ);
     vtau = Data_Wrap_Struct(cgsl_vector_tau, 0, gsl_vector_free, tau);
     vp = Data_Wrap_Struct(cgsl_permutation, 0, gsl_permutation_free, p);
     gsl_linalg_PTLQ_decomp(A, tau, p, &signum, norm);

data/ext/linalg_complex.c

@@ -14,6 +14,7 @@
 #include "rb_gsl_array.h"
 #include "rb_gsl_common.h"
 #include "rb_gsl_linalg.h"
+#include "porting.h"
 
 EXTERN VALUE mgsl_linalg;
 EXTERN VALUE cgsl_complex;
@@ -51,8 +52,8 @@ VALUE rb_gsl_linalg_complex_LU_decomp(int argc, VALUE *argv, VALUE obj)
   case 0:
     p = gsl_permutation_alloc(size);
     gsl_linalg_complex_LU_decomp(m, p, &signum);
-    if (itmp == 1) RBASIC(argv[0])->klass = cgsl_matrix_complex_LU;
-    else RBASIC(obj)->klass = cgsl_matrix_complex_LU;
+    if (itmp == 1) rb_obj_reveal(argv[0], cgsl_matrix_complex_LU);
+    else rb_obj_reveal(obj, cgsl_matrix_complex_LU);
     obj2 = Data_Wrap_Struct(cgsl_permutation, 0, gsl_permutation_free, p);
     return rb_ary_new3(2, obj2, INT2FIX(signum));
     break;
@@ -60,8 +61,8 @@ VALUE rb_gsl_linalg_complex_LU_decomp(int argc, VALUE *argv, VALUE obj)
     CHECK_PERMUTATION(argv[itmp]);
     Data_Get_Struct(argv[itmp], gsl_permutation, p);
     gsl_linalg_complex_LU_decomp(m, p, &signum);
-    if (itmp == 1) RBASIC(argv[0])->klass = cgsl_matrix_complex_LU;
-    else RBASIC(obj)->klass = cgsl_matrix_complex_LU;
+    if (itmp == 1) rb_obj_reveal(argv[0], cgsl_matrix_complex_LU);
+    else rb_obj_reveal(obj, cgsl_matrix_complex_LU);
     return INT2FIX(signum);
     break;
   default:

data/ext/ool.c

@@ -2,6 +2,7 @@
 #include "rb_gsl.h"
 #include "rb_gsl_array.h"
 #include <ool/ool_conmin.h>
+#include "porting.h"
 
 static VALUE cool_conmin_function;
 static VALUE cool_conmin_constraint;
@@ -770,7 +771,7 @@ static VALUE rb_ool_conmin_pgrad_parameters_default(VALUE klass)
 	VALUE ary;
 	ool_conmin_parameters_default(ool_conmin_minimizer_pgrad, (void*) &P);
 	ary = create_parameters_ary_pgrad(&P);
-	RBASIC(ary)->klass = cool_conmin_pgrad_parameters;
+	rb_obj_reveal(ary, cool_conmin_pgrad_parameters);
 	return ary;
 }
 
@@ -780,7 +781,7 @@ static VALUE rb_ool_conmin_spg_parameters_default(VALUE klass)
 	VALUE ary;
 	ool_conmin_parameters_default(ool_conmin_minimizer_spg, (void*) &P);
 	ary = create_parameters_ary_spg(&P);	
-	RBASIC(ary)->klass = cool_conmin_spg_parameters;	
+	rb_obj_reveal(ary, cool_conmin_spg_parameters);	
 	return ary;	
 }
 
@@ -790,7 +791,7 @@ static VALUE rb_ool_conmin_gencan_parameters_default(VALUE klass)
 	VALUE ary;
 	ool_conmin_parameters_default(ool_conmin_minimizer_gencan, (void*) &P);
 	ary = create_parameters_ary_gencan(&P);		
-	RBASIC(ary)->klass = cool_conmin_gencan_parameters;	
+	rb_obj_reveal(ary, cool_conmin_gencan_parameters);	
 	return ary;
 }
 

data/ext/vector_complex.c

@@ -11,6 +11,7 @@
 #include "rb_gsl_config.h"
 #include "rb_gsl_array.h"
 #include "rb_gsl_complex.h"
+#include "porting.h"
 
 EXTERN VALUE cgsl_complex;
 static VALUE rb_gsl_vector_complex_inner_product(int argc, VALUE *argv, VALUE obj);
@@ -939,9 +940,9 @@ static VALUE rb_gsl_vector_complex_trans(VALUE obj)
 static VALUE rb_gsl_vector_complex_trans2(VALUE obj)
 {
   if (CLASS_OF(obj) == cgsl_vector_complex) 
-    RBASIC(obj)->klass = cgsl_vector_complex_col;
+    rb_obj_reveal(obj, cgsl_vector_complex_col);
   else if (CLASS_OF(obj) == cgsl_vector_complex_col) 
-    RBASIC(obj)->klass = cgsl_vector_complex;
+    rb_obj_reveal(obj, cgsl_vector_complex);
   else {
     rb_raise(rb_eRuntimeError, "method trans! for %s is forbidden",
 	     rb_class2name(CLASS_OF(obj)));

data/ext/vector_source.c

@@ -36,6 +36,8 @@
 #define VEC_VIEW_P VECTOR_INT_VIEW_P
 #endif
 
+#include "porting.h"
+
 void FUNCTION(get_range,beg_en_n)(VALUE range, BASE *beg, BASE *en, size_t *n, int *step);
 
 void get_range_beg_en_n_for_size(VALUE range,
@@ -673,15 +675,15 @@ static VALUE FUNCTION(rb_gsl_vector,trans)(VALUE obj)
 static VALUE FUNCTION(rb_gsl_vector,trans_bang)(VALUE obj)
 {
 #ifdef BASE_DOUBLE
-  if (CLASS_OF(obj) == cgsl_vector) RBASIC(obj)->klass = cgsl_vector_col;
-  else if (CLASS_OF(obj) == cgsl_vector_col) RBASIC(obj)->klass = cgsl_vector;
+  if (CLASS_OF(obj) == cgsl_vector) rb_obj_reveal(obj, cgsl_vector_col);
+  else if (CLASS_OF(obj) == cgsl_vector_col) rb_obj_reveal(obj, cgsl_vector);
   else {
     rb_raise(rb_eRuntimeError, "method trans! for %s is not permitted.",
 	     rb_class2name(CLASS_OF(obj)));
   }	
 #elif defined(BASE_INT)
-  if (CLASS_OF(obj) == cgsl_vector_int) RBASIC(obj)->klass = cgsl_vector_int_col;
-  else if (CLASS_OF(obj) == cgsl_vector_int_col) RBASIC(obj)->klass = cgsl_vector_int;
+  if (CLASS_OF(obj) == cgsl_vector_int) rb_obj_reveal(obj, cgsl_vector_int_col);
+  else if (CLASS_OF(obj) == cgsl_vector_int_col) rb_obj_reveal(obj, cgsl_vector_int);
   else {
     rb_raise(rb_eRuntimeError, "method trans! for %s is not permitted.",
 	     rb_class2name(CLASS_OF(obj)));

data/gsl.gemspec

@@ -12,14 +12,12 @@ Gem::Specification.new do |gem|
 
   gem.files         = `git ls-files`.split("\n")
   gem.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
-  #gem.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
   gem.extensions = %w[ ext/extconf.rb ]
   gem.require_paths = ["lib", "lib/gsl", "lib/ool", "ext"]
 
   gem.required_ruby_version = '>= 1.8.1'
 
-  gem.add_dependency 'nmatrix', "> 0.0.9"
-  # gem.add_dependency 'narray', '>= 0.5.9'
+  gem.add_dependency 'nmatrix', '>=0.1.0.rc5'
 
   gem.has_rdoc = true
   gem.rdoc_options = [

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: gsl-nmatrix
 version: !ruby/object:Gem::Version
-  version: 1.15.3.0
+  version: 1.15.3.1
 platform: ruby
 authors:
 - Yoshiki Tsunesada
@@ -11,22 +11,22 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-09-26 00:00:00.000000000 Z
+date: 2014-08-01 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: nmatrix
   requirement: !ruby/object:Gem::Requirement
     requirements:
-    - - '>'
+    - - ">="
       - !ruby/object:Gem::Version
-        version: 0.0.9
+        version: 0.1.0.rc5
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
-    - - '>'
+    - - ">="
       - !ruby/object:Gem::Version
-        version: 0.0.9
+        version: 0.1.0.rc5
 description: Ruby/GSL is a Ruby interface to the GNU Scientific Library, for numerical
   computing with Ruby
 email: y-tsunesada@mm.em-net.ne.jp
@@ -35,7 +35,7 @@ extensions:
 - ext/extconf.rb
 extra_rdoc_files: []
 files:
-- .gitignore
+- ".gitignore"
 - AUTHORS
 - COPYING
 - ChangeLog
@@ -644,15 +644,15 @@ licenses: []
 metadata: {}
 post_install_message: 
 rdoc_options:
-- --title
+- "--title"
 - Ruby/GSL
-- --main
+- "--main"
 - rdoc/index.rdoc
-- --exclude
+- "--exclude"
 - ext/
-- --exclude
+- "--exclude"
 - include/
-- --exclude
+- "--exclude"
 - lib/
 require_paths:
 - lib
@@ -661,17 +661,17 @@ require_paths:
 - ext
 required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
-  - - '>='
+  - - ">="
     - !ruby/object:Gem::Version
       version: 1.8.1
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
-  - - '>='
+  - - ">="
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 2.0.2
+rubygems_version: 2.2.0
 signing_key: 
 specification_version: 4
 summary: Ruby interface to GNU Scientific Library (NMatrix fork)