ruby-mpfi 0.0.6 → 0.0.7

data/ext/mpfi_complex/mpfi/ruby_mpfi.h

@@ -1,42 +0,0 @@
-#ifndef _RUBY_MPFI_H_
-#define _RUBY_MPFI_H_
-
-#include <stdio.h>
-#include <ruby.h>
-#include <mpfr.h>
-#include <mpfi.h>
-#include <mpfi_io.h>
-#include "func_mpfi_extention.h"
-#include "ruby_mpfr.h"
-
-typedef __mpfi_struct MPFI;
-
-VALUE r_mpfi_class, r_mpfi_math;;
-
-#define r_mpfi_make_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfi_class, MPFI, 0, r_mpfi_free, c_var); }
-#define r_mpfi_make_struct_init(ruby_var, c_var) { r_mpfi_make_struct(ruby_var, c_var); mpfi_init(c_var); }
-#define r_mpfi_make_struct_init2(ruby_var, c_var, prec) { r_mpfi_make_struct(ruby_var, c_var); mpfi_init2(c_var, prec); }
-#define r_mpfi_get_struct(c_var, ruby_var) { Data_Get_Struct(ruby_var, MPFI, c_var); }
-
-#define r_mpfi_temp_alloc(c_var) { c_var=ALLOC_N(MPFI, 1); }
-#define r_mpfi_temp_alloc_init(c_var) { r_mpfi_temp_alloc(c_var); mpfi_init(c_var); }
-#define r_mpfi_temp_alloc_init2(c_var, prec) { r_mpfi_temp_alloc(c_var); mpfi_init2(c_var, prec); }
-#define r_mpfi_temp_free(c_var) { mpfi_clear(c_var); free(c_var); }
-
-#define r_mpfi_left_ptr(c_var) (&((c_var)->left))
-#define r_mpfi_right_ptr(c_var) (&((c_var)->right))
-
-void r_mpfi_free(void *ptr);
-VALUE r_mpfi_make_new_fi_obj(MPFI *ptr);
-VALUE r_mpfi_new_fi_obj(VALUE obj);
-void r_mpfi_set_robj(MPFI *ptr, VALUE obj);
-
-int r_mpfi_subdivision2(int num, MPFI *ret, mpfi_t x);
-
-void r_mpfi_set_function_state(int num);
-VALUE r_mpfi_get_function_state(VALUE self);
-
-void r_mpfi_load_string(MPFI *ptr_s, const char *dump);
-char *r_mpfi_dump_to_string(MPFI *ptr_s);
-
-#endif /* _RUBY_MPFI_H_ */

data/ext/mpfi_complex/mpfi/ruby_mpfr.h

@@ -1,44 +0,0 @@
-#ifndef _RUBY_MPFR_H_
-#define _RUBY_MPFR_H_
-
-#include <ruby.h>
-#include <mpfr.h>
-#include <stdio.h>
-
-typedef __mpfr_struct MPFR;
-
-VALUE r_mpfr_class, r_mpfr_math;
-
-#define r_mpfr_make_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfr_class, MPFR, 0, r_mpfr_free, c_var); }
-#define r_mpfr_make_struct_init(ruby_var, c_var) { r_mpfr_make_struct(ruby_var, c_var); mpfr_init(c_var); }
-#define r_mpfr_make_struct_init2(ruby_var, c_var, prec) { r_mpfr_make_struct(ruby_var, c_var); mpfr_init2(c_var, prec); }
-#define r_mpfr_get_struct(c_var, ruby_var) { Data_Get_Struct(ruby_var, MPFR, c_var); }
-
-#define r_mpfr_temp_alloc(var) { var=ALLOC_N(MPFR, 1); }
-#define r_mpfr_temp_alloc_init(var) { r_mpfr_temp_alloc(var); mpfr_init(var); }
-#define r_mpfr_temp_alloc_init2(var, prec) { r_mpfr_temp_alloc(var); mpfr_init2(var, prec); }
-#define r_mpfr_temp_free(var) { mpfr_clear(var); free(var); }
-
-#define r_mpfr_check_number(c_val) { if(mpfr_number_p(c_val) == 0) rb_raise(rb_eArgError, "Not an ordinary number."); }
-#define r_mpfr_check_positive_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) <= 0) rb_raise(rb_eArgError, "Not a positive number."); }
-#define r_mpfr_check_non_negative_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) < 0) rb_raise(rb_eArgError, "Not a non negative number."); }
-#define r_mpfr_check_negative_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) >= 0) rb_raise(rb_eArgError, "Not a negative number."); }
-#define r_mpfr_check_non_positive_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) > 0) rb_raise(rb_eArgError, "Not a non positive number."); }
-
-void r_mpfr_free(void *ptr);
-VALUE r_mpfr_make_new_fr_obj(MPFR *ptr);
-VALUE r_mpfr_make_new_fr_obj2(MPFR *ptr, int prec);
-VALUE r_mpfr_new_fr_obj(VALUE obj);
-void r_mpfr_set_robj(MPFR *ptr, VALUE obj, mp_rnd_t rnd);
-VALUE r_mpfr_robj_to_mpfr(VALUE obj, int argc, VALUE *argv);
-
-mp_rnd_t r_mpfr_rnd_from_value(VALUE rnd);
-mp_rnd_t r_mpfr_rnd_from_optional_argument(int min, int max, int argc, VALUE *argv);
-mp_rnd_t r_mpfr_prec_from_optional_argument(int min, int max, int argc, VALUE *argv);
-void r_mpfr_get_rnd_prec_from_optional_arguments(mp_rnd_t *rnd, mp_prec_t *prec, int min, int max, int argc, VALUE *argv);
-
-char *r_mpfr_dump_to_string(MPFR *ptr_s);
-void r_mpfr_load_string(MPFR *ptr_s, const char *dump);
-
-#endif /* _RUBY_MPFR_H_ */
-

data/ext/mpfi_matrix/mpfi/func_mpfr_matrix.h

@@ -1,72 +0,0 @@
-#include <stdio.h>
-#include <ruby.h>
-#include <mpfr.h>
-#include "ruby_mpfr.h"
-
-typedef struct __MPFRMatrix{
-  int row, column, size;
-  MPFR *data;
-} MPFRMatrix;
-
-/*
-  1 2 3
-  4 5 6
-
-  row = 2
-  column = 3
-  size = 6
-  MPFR *data 1 4 2 5 3 6
-
-  (i, j) element => data + i + row * j
-  0 <= i < 2, 0 <= j < 3
-*/
-
-#define r_mpfr_make_matrix_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfr_matrix, MPFRMatrix, 0, r_mpfr_matrix_free, c_var); }
-#define r_mpfr_get_matrix_struct(c_var, ruby_var) { Data_Get_Struct(ruby_var, MPFRMatrix, c_var); }
-
-#define r_mpfr_make_square_matrix_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfr_square_matrix, MPFRMatrix, 0, r_mpfr_matrix_free, c_var); }
-#define r_mpfr_make_col_vector_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfr_col_vector, MPFRMatrix, 0, r_mpfr_matrix_free, c_var); }
-#define r_mpfr_make_row_vector_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfr_row_vector, MPFRMatrix, 0, r_mpfr_matrix_free, c_var); }
-
-#define r_mpfr_matrix_temp_alloc_init(c_var, i, j) { c_var = ALLOC_N(MPFRMatrix, 1); mpfr_matrix_init(c_var, i, j); }
-#define r_mpfr_matrix_temp_free(c_var) { mpfr_matrix_clear(c_var); free(c_var); }
-
-#define mpfr_matrix_get_ptr(matrix, i) (matrix->data + i)
-#define mpfr_matrix_get_element(matrix, i, j) (matrix->data + i + matrix->row * j)
-
-void mpfr_matrix_clear(MPFRMatrix *mat);
-void mpfr_matrix_init(MPFRMatrix *mat, int row, int column);
-void mpfr_matrix_set_zeros(MPFRMatrix *mat);
-void mpfr_matrix_set_element(MPFRMatrix *mat, int row, int col, MPFR *a);
-void mpfr_matrix_set(MPFRMatrix *new, MPFRMatrix *x);
-void mpfr_matrix_swap(MPFRMatrix *x, MPFRMatrix *y);
-
-void mpfr_matrix_row(MPFRMatrix *new, MPFRMatrix *x, int row);
-void mpfr_matrix_column(MPFRMatrix *new, MPFRMatrix *x, int column);
-void mpfr_matrix_transpose(MPFRMatrix *new, MPFRMatrix *x);
-void mpfr_matrix_neg(MPFRMatrix *new, MPFRMatrix *x);
-
-int mpfr_matrix_equal_p(MPFRMatrix *x, MPFRMatrix *y);
-void mpfr_matrix_add(MPFRMatrix *new, MPFRMatrix *x, MPFRMatrix *y);
-void mpfr_matrix_sub(MPFRMatrix *new, MPFRMatrix *x, MPFRMatrix *y);
-void mpfr_matrix_mul(MPFRMatrix *new, MPFRMatrix *x, MPFRMatrix *y);
-void mpfr_matrix_mul_scalar(MPFRMatrix *new, MPFRMatrix *x, MPFR *scalar);
-void mpfr_matrix_div_scalar(MPFRMatrix *new, MPFRMatrix *x, MPFR *scalar);
-void mpfr_matrix_inner_product(MPFR *pr, MPFRMatrix *x, MPFRMatrix *y);
-void mpfr_matrix_vector_distance(MPFR *distance, MPFRMatrix *x, MPFRMatrix *y);
-void mpfr_matrix_vector_norm(MPFR *norm, MPFRMatrix *x);
-void mpfr_matrix_max_norm(MPFR *norm, MPFRMatrix *x);
-
-void mpfr_col_vector_init(MPFRMatrix *mat, int row);
-void mpfr_row_vector_init(MPFRMatrix *mat, int column);
-int mpfr_vector_normalize(MPFRMatrix *new, MPFRMatrix *x);
-int mpfr_vector_set_length(MPFRMatrix *new, MPFRMatrix *x, MPFR *l);
-void mpfr_vector_midpoint(MPFRMatrix *new, MPFRMatrix *x, MPFRMatrix *y);
-void mpfr_vector_dividing_point(MPFRMatrix *new, MPFRMatrix *x, MPFRMatrix *y, MPFR *div);
-
-int mpfr_square_matrix_lu_decomp (MPFRMatrix *ret, int *indx, MPFRMatrix *x);
-void mpfr_square_matrix_determinant(MPFR *det, MPFRMatrix *x);
-void mpfr_square_matrix_qr_decomp(MPFRMatrix *q, MPFRMatrix *r, MPFRMatrix *x);
-void mpfr_square_matrix_identity(MPFRMatrix *id);
-
-

data/ext/mpfi_matrix/mpfi/ruby_mpfi.h

@@ -1,42 +0,0 @@
-#ifndef _RUBY_MPFI_H_
-#define _RUBY_MPFI_H_
-
-#include <stdio.h>
-#include <ruby.h>
-#include <mpfr.h>
-#include <mpfi.h>
-#include <mpfi_io.h>
-#include "func_mpfi_extention.h"
-#include "ruby_mpfr.h"
-
-typedef __mpfi_struct MPFI;
-
-VALUE r_mpfi_class, r_mpfi_math;;
-
-#define r_mpfi_make_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfi_class, MPFI, 0, r_mpfi_free, c_var); }
-#define r_mpfi_make_struct_init(ruby_var, c_var) { r_mpfi_make_struct(ruby_var, c_var); mpfi_init(c_var); }
-#define r_mpfi_make_struct_init2(ruby_var, c_var, prec) { r_mpfi_make_struct(ruby_var, c_var); mpfi_init2(c_var, prec); }
-#define r_mpfi_get_struct(c_var, ruby_var) { Data_Get_Struct(ruby_var, MPFI, c_var); }
-
-#define r_mpfi_temp_alloc(c_var) { c_var=ALLOC_N(MPFI, 1); }
-#define r_mpfi_temp_alloc_init(c_var) { r_mpfi_temp_alloc(c_var); mpfi_init(c_var); }
-#define r_mpfi_temp_alloc_init2(c_var, prec) { r_mpfi_temp_alloc(c_var); mpfi_init2(c_var, prec); }
-#define r_mpfi_temp_free(c_var) { mpfi_clear(c_var); free(c_var); }
-
-#define r_mpfi_left_ptr(c_var) (&((c_var)->left))
-#define r_mpfi_right_ptr(c_var) (&((c_var)->right))
-
-void r_mpfi_free(void *ptr);
-VALUE r_mpfi_make_new_fi_obj(MPFI *ptr);
-VALUE r_mpfi_new_fi_obj(VALUE obj);
-void r_mpfi_set_robj(MPFI *ptr, VALUE obj);
-
-int r_mpfi_subdivision2(int num, MPFI *ret, mpfi_t x);
-
-void r_mpfi_set_function_state(int num);
-VALUE r_mpfi_get_function_state(VALUE self);
-
-void r_mpfi_load_string(MPFI *ptr_s, const char *dump);
-char *r_mpfi_dump_to_string(MPFI *ptr_s);
-
-#endif /* _RUBY_MPFI_H_ */

data/ext/mpfi_matrix/mpfi/ruby_mpfr.h

@@ -1,44 +0,0 @@
-#ifndef _RUBY_MPFR_H_
-#define _RUBY_MPFR_H_
-
-#include <ruby.h>
-#include <mpfr.h>
-#include <stdio.h>
-
-typedef __mpfr_struct MPFR;
-
-VALUE r_mpfr_class, r_mpfr_math;
-
-#define r_mpfr_make_struct(ruby_var, c_var) { ruby_var = Data_Make_Struct(r_mpfr_class, MPFR, 0, r_mpfr_free, c_var); }
-#define r_mpfr_make_struct_init(ruby_var, c_var) { r_mpfr_make_struct(ruby_var, c_var); mpfr_init(c_var); }
-#define r_mpfr_make_struct_init2(ruby_var, c_var, prec) { r_mpfr_make_struct(ruby_var, c_var); mpfr_init2(c_var, prec); }
-#define r_mpfr_get_struct(c_var, ruby_var) { Data_Get_Struct(ruby_var, MPFR, c_var); }
-
-#define r_mpfr_temp_alloc(var) { var=ALLOC_N(MPFR, 1); }
-#define r_mpfr_temp_alloc_init(var) { r_mpfr_temp_alloc(var); mpfr_init(var); }
-#define r_mpfr_temp_alloc_init2(var, prec) { r_mpfr_temp_alloc(var); mpfr_init2(var, prec); }
-#define r_mpfr_temp_free(var) { mpfr_clear(var); free(var); }
-
-#define r_mpfr_check_number(c_val) { if(mpfr_number_p(c_val) == 0) rb_raise(rb_eArgError, "Not an ordinary number."); }
-#define r_mpfr_check_positive_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) <= 0) rb_raise(rb_eArgError, "Not a positive number."); }
-#define r_mpfr_check_non_negative_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) < 0) rb_raise(rb_eArgError, "Not a non negative number."); }
-#define r_mpfr_check_negative_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) >= 0) rb_raise(rb_eArgError, "Not a negative number."); }
-#define r_mpfr_check_non_positive_number(c_val) { if(mpfr_number_p(c_val) == 0 && mpfr_sgn(c_val) > 0) rb_raise(rb_eArgError, "Not a non positive number."); }
-
-void r_mpfr_free(void *ptr);
-VALUE r_mpfr_make_new_fr_obj(MPFR *ptr);
-VALUE r_mpfr_make_new_fr_obj2(MPFR *ptr, int prec);
-VALUE r_mpfr_new_fr_obj(VALUE obj);
-void r_mpfr_set_robj(MPFR *ptr, VALUE obj, mp_rnd_t rnd);
-VALUE r_mpfr_robj_to_mpfr(VALUE obj, int argc, VALUE *argv);
-
-mp_rnd_t r_mpfr_rnd_from_value(VALUE rnd);
-mp_rnd_t r_mpfr_rnd_from_optional_argument(int min, int max, int argc, VALUE *argv);
-mp_rnd_t r_mpfr_prec_from_optional_argument(int min, int max, int argc, VALUE *argv);
-void r_mpfr_get_rnd_prec_from_optional_arguments(mp_rnd_t *rnd, mp_prec_t *prec, int min, int max, int argc, VALUE *argv);
-
-char *r_mpfr_dump_to_string(MPFR *ptr_s);
-void r_mpfr_load_string(MPFR *ptr_s, const char *dump);
-
-#endif /* _RUBY_MPFR_H_ */
-

data/ext/mpfi_matrix/mpfi/ruby_mpfr_matrix.h

@@ -1,13 +0,0 @@
-#ifndef RUBY_GMP_MATRIX
-#define RUBY_GMP_MATRIX
-
-#include "func_mpfr_matrix.h"
-
-VALUE r_mpfr_matrix, r_mpfr_square_matrix, r_mpfr_col_vector, r_mpfr_row_vector, r_mpfr_vector_module;
-
-void r_mpfr_matrix_free(void *ptr);
-
-void r_mpfr_matrix_suitable_matrix_init (VALUE *other, MPFRMatrix **ptr_other, int row, int column);
-VALUE r_mpfr_matrix_robj(MPFRMatrix *x);
-
-#endif

data/tasks/extconf.rake

@@ -1,36 +0,0 @@
-begin
-  require 'spec'
-rescue LoadError
-  require 'rubygems' unless ENV['NO_RUBYGEMS']
-  require 'spec'
-end
-begin
-  require 'spec/rake/spectask'
-rescue LoadError
-  puts <<-EOS
-To use rspec for testing you must install rspec gem:
-    gem install rspec
-EOS
-  exit(0)
-end
-
-desc "Run 'make realclean' for extended libraries"
-task "ext:realclean" do
-  Dir.glob("ext/**/Makefile").each do |path|
-    system("cd #{File.dirname(path)}; make realclean")
-  end
-end
-
-desc "Run 'make clean' for extended libraries"
-task "ext:clean" do
-  Dir.glob("ext/**/Makefile").each do |path|
-    system("cd #{File.dirname(path)}; make clean")
-  end
-end
-
-desc "Run 'make realclean' for extended libraries"
-task 'ext:make' do
-  Dir.glob("ext/**/extconf.rb").each do |path|
-    system("cd #{File.dirname(path)}; ruby extconf.rb && make")
-  end
-end