ruby-mpfi 0.0.2 → 0.0.3

data/ext/mpfi/make_c_source.rb

@@ -1,115 +0,0 @@
-
-def make_sepcial_functions(one_arguments, no_argument)
-  one_arguments.each do |name|
-    puts <<SRC
-static VALUE r_mpfi_math_#{name} (int argc, VALUE *argv, VALUE self){
-  R_MPFI *ptr_a0, *ptr_ret;
-  r_mpfi_get_convert_struct(argv[0], ptr_a0);
-  VALUE val_ret;
-  r_mpfi_make_struct_init2(val_ret, ptr_ret, r_mpfr_prec_from_optional_argument(1, 2, argc, argv));
-  r_mpfi_set_function_state(mpfi_#{name}(ptr_ret, ptr_a0));
-  return val_ret;
-}
-
-SRC
-  end
-
-  no_argument.each do |name|
-    puts <<SRC
-static VALUE r_mpfi_math_#{name} (int argc, VALUE *argv, VALUE self){
-  R_MPFI *ptr_ret;
-  VALUE val_ret;
-  r_mpfi_make_struct_init2(val_ret, ptr_ret, r_mpfr_prec_from_optional_argument(0, 1, argc, argv));
-  r_mpfi_set_function_state(mpfi_#{name}(ptr_ret));
-  return val_ret;
-}
-
-SRC
-  end
-
-  (one_arguments + no_argument).each do |name|
-    puts %!rb_define_module_function(r_mpfi_math, "#{name}", r_mpfi_math_#{name}, -1);!
-  end
-  
-end
-
-def make_comparison(positive_returned_value, non_zero_returned_value)
-  positive_returned_value.each do |name|
-    puts <<SRC
-static VALUE r_mpfi_#{name} (VALUE self){
-  R_MPFI *ptr_self;
-  r_mpfi_get_struct(ptr_self, self);
-  if (mpfi_#{name}(ptr_self) > 0) {
-    return Qtrue;
-  }else{
-    return Qnil;
-  }
-}
-
-SRC
-  end
-
-  non_zero_returned_value.each do |name|
-    puts <<SRC
-static VALUE r_mpfi_#{name} (VALUE self){
-  R_MPFI *ptr_self;
-  r_mpfi_get_struct(ptr_self, self);
-  if (mpfi_#{name}(ptr_self) != 0) {
-    return Qtrue;
-  }else{
-    return Qnil;
-  }
-}
-
-SRC
-  end
-
-  (positive_returned_value + non_zero_returned_value).each do |name|
-    puts %!rb_define_module_function(r_mpfi_class, "#{name}", r_mpfi_#{name}, 0);!
-  end
-end
-
-# Parse options.
-require 'optparse'
-
-help_message =<<HELP
-Make C source for extended library mpfr.
-HELP
-
-category = nil
-
-begin
-  OptionParser.new(help_message) do |opt|
-    # on(short [, klass [, pat [, desc]]]) {|v| ...}
-    # on(long [, klass [, pat [, desc]]) {|v| ...}
-    # on(short, long [, klass [, pat [, desc]]]) {|v| ...}
-    opt.on('--special') { |v| category = :special }
-    opt.on('--comparison') { |v| category = :comparison }
-    opt.parse!(ARGV)
-  end
-rescue OptionParser::InvalidOption
-  $stderr.print <<MES
-error: Invalid Option
-#{help_message}
-MES
-  exit(2)
-rescue OptionParser::InvalidArgument
-  $stderr.print <<MES
-error: Invalid Argument
-#{help_message}
-MES
-  exit(2)
-end
-
-case category
-when :special
-  one_arguments = ['log', 'exp', 'exp2', 'cos', 'sin', 'tan', 'acos', 'asin', 'atan', 'cosh', 'sinh', 'tanh',
-                   'acosh', 'asinh', 'atanh', 'log1p', 'expm1', 'log2', 'log10']
-  no_argument = ['const_log2', 'const_pi', 'const_euler']
-  make_sepcial_functions(one_arguments, no_argument)
-when :comparison
-  positive_returned_value = ['is_pos', 'is_strictly_pos', 'is_nonneg', 'is_neg', 'is_strictly_neg', 'is_nonpos', 'is_zero']
-  non_zero_returned_value = ['nan_p', 'inf_p', 'bounded_p']
-  make_comparison(positive_returned_value, non_zero_returned_value)
-end
-

data/ext/mpfi/yasnippet_mpfi.el

@@ -1,44 +0,0 @@
-  (yas/define-snippets
-  'c-mode
-  '(("fu" "static VALUE r_mpfi_$1 (VALUE self$2){\n  $0\n}" "static VALUE r_mpfi_... (VALUE self ... )")
-  ("fu.1" "static VALUE r_mpfi_$1 (int argc, VALUE *argv, VALUE self){\n  $0\n}"
-  "static VALUE r_mpfi_... (int argc, VALUE *argv, VALUE self){")
-  ("me" "rb_define_method(r_mpfi_class, \"$1\", r_mpfi_$1$0, ${2:0});" "rb_define_method")
-  ("se" "  R_MPFI *ptr_self;\n  r_mpfi_get_struct(ptr_self, self);" "R_MPFI *ptr_self")
-  ("se.2" "  R_MPFI *ptr_self, *ptr_other;\n  r_mpfi_get_struct(ptr_self, self);\n  r_mpfi_get_struct(ptr_other, other);" "R_MPFI *ptr_self, *ptr_other")
-  ("se.3" "  R_MPFI *ptr_self, *ptr_ret;\n  r_mpfi_get_struct(ptr_self, self);\n  VALUE val_ret;\n  r_mpfi_make_struct_init2(val_ret, ptr_ret, r_mpfr_prec_from_optional_argument(${1:max}, ${2:min}, argc, argv));\n$0  return val_ret;"
-   "R_MPFI *ptr_self, *ptr_ret; VALUE val_ret;")
-  ("ar" "  R_MPFI *ptr_a0, *ptr_ret;\n  r_mpfi_get_convert_struct(ptr_a0, argv[0]);\n  VALUE val_ret;\n  r_mpfi_make_struct_init2(val_ret, ptr_ret, r_mpfr_prec_from_optional_argument(${1:max}, ${2:min}, argc, argv));\n$0  return val_ret;" "R_MPFI *ptr_a, *ptr_ret; VALUE val_ret;")
-  ("co" "r_mpfi_get_convert_struct(ptr_a$1, argv[$1]);$0" "convert_struct argv[i]")
-  ("re" "  VALUE val_ret;\n  R_MPFI *ptr_ret;\n  r_mpfi_make_struct_init2(val_ret, ptr_ret, $0);" "VALUE val_ret")
-  ("op" "r_mpfr_prec_from_optional_argument(${1:min}, ${2:max}, argc, argv)$0" "precision from optional arguments")
-  ))
-
-   ("fu.2" "static VALUE r_mpfi_$1 (VALUE self, VALUE *args){\n  $0\n  return ;\n}"
-    "static VALUE r_mpfi_... (VALUE self, VALUE *args){")
-
-
-(yas/define-snippets
- 'c-mode
- '(("func" "static VALUE r_mpfi_$1 (VALUE self){
-  R_MPFI *ptr_self;
-  r_mpfi_get_struct(ptr_self, self);
-  VALUE val_ret;
-  R_MPFR *ptr_ret;
-  r_mpfr_make_struct_init2(val_ret, ptr_ret, r_mpfr_prec_from_optional_argument(0, 1, argc, argv));
-  r_mpfi_set_function_state(mpfi_$1(ptr_ret, ptr_self));
-  return val_ret;
-}" "function with MPFR returned value and no argument")))
-
-(yas/define-snippets
- 'c-mode
- '(("func.2" "static VALUE r_mpfi_$1 (int argc, VALUE *argv, VALUE self){
-  R_MPFI *ptr_self;
-  r_mpfi_get_struct(ptr_self, self);
-  VALUE val_ret;
-  R_MPFR *ptr_ret;
-  r_mpfr_make_struct_init2(val_ret, ptr_ret, r_mpfr_prec_from_optional_argument($2, $3, argc, argv));
-  r_mpfi_set_function_state(mpfi_$1(ptr_ret, ptr_self));
-  return val_ret;
-}" "function with MPFR returned value and some arguments")))
-

data/ext/mpfi_matrix/mpfi/func_ruby_mpfi_complex.h

@@ -1,35 +0,0 @@
-#include <stdio.h>
-#include <ruby.h>
-#include <mpfr.h>
-#include <mpfi.h>
-#include <mpfi_io.h>
-#include "ruby_mpfi.h"
-
-VALUE r_mpfi_complex;
-
-typedef struct __MPFIComplex{
-  MPFI *re;
-  MPFI *im;
-} MPFIComplex;
-
-/* Although x->re and x->im can have different precision from each other for MPFIComplex x, */
-/* we implement mpfi_complex_get_prec assuming that they have same presition. */
-#define mpfi_complex_get_prec(x) mpfi_get_prec(x->re)
-
-void mpfi_complex_init(MPFIComplex *x);
-void mpfi_complex_clear(MPFIComplex *x);
-void mpfi_complex_set_zeros(MPFIComplex *x);
-void mpfi_complex_set_real_part(MPFIComplex *x, MPFI *a);
-void mpfi_complex_set_imaginary_part(MPFIComplex *x, MPFI *a);
-void mpfi_complex_set(MPFIComplex *new, MPFIComplex *x);
-void mpfi_complex_conjugate(MPFIComplex *new, MPFIComplex *x);
-void mpfi_complex_add(MPFIComplex *new, MPFIComplex *x, MPFIComplex *y);
-void mpfi_complex_sub(MPFIComplex *new, MPFIComplex *x, MPFIComplex *y);
-void mpfi_complex_mul(MPFIComplex *new, MPFIComplex *x, MPFIComplex *y);
-void mpfi_complex_div(MPFIComplex *new, MPFIComplex *x, MPFIComplex *y);
-
-/* void mpfi_complex_mul_real(MPFIComplex *new, MPFIComplex *x, MPFI *y); */
-/* void mpfi_complex_mul_pure_imaginary(MPFIComplex *new, MPFIComplex *x, MPFI *y); */
-/* void mpfi_complex_div_real(MPFIComplex *new, MPFIComplex *x, MPFI *y); */
-/* void mpfi_complex_div_pure_imaginary(MPFIComplex *new, MPFIComplex *x, MPFI *y); */
-/* void mpfi_complex_abs(MPFI *new, MPFIComplex *x); */

data/ext/mpfi_matrix/mpfi/ruby_mpfi_complex.h

@@ -1,15 +0,0 @@
-#ifndef __RUBY_MPFI_COMPLEX__
-#define __RUBY_MPFI_COMPLEX__
-
-#include "func_ruby_mpfi_complex.h"
-
-#define r_mpfi_make_complex_struct(ruby_var, mpfi_complex_var) { ruby_var = Data_Make_Struct(r_mpfi_complex, MPFIComplex, 0, r_mpfi_complex_free, mpfi_complex_var); }
-#define r_mpfi_make_complex_struct_init(ruby_var, mpfi_complex_var) { ruby_var = Data_Make_Struct(r_mpfi_complex, MPFIComplex, 0, r_mpfi_complex_free, mpfi_complex_var); mpfi_complex_init(mpfi_complex_var);}
-#define r_mpfi_get_complex_struct(mpfi_complex_var, ruby_var) { Data_Get_Struct(ruby_var, MPFIComplex, mpfi_complex_var); }
-
-#define r_mpfi_complex_temp_alloc_init(mpfi_complex_var) { mpfi_complex_var = ALLOC_N(MPFIComplex, 1); mpfi_complex_init(mpfi_complex_var); }
-#define r_mpfi_complex_temp_free(mpfi_complex_var) { mpfi_complex_clear(mpfi_complex_var); free(mpfi_complex_var); }
-
-void r_mpfi_complex_free(void *ptr);
-
-#endif