Changing to_f method for real_double

Author: rajithv

ext/symengine/CMakeLists.txt

@@ -2,6 +2,7 @@ set(RUBY_WRAPPER_SRC
     ruby_basic.c
     ruby_symbol.c
     ruby_integer.c
+    ruby_real_double.c
     ruby_complex.c
     ruby_constant.c
     ruby_function.c

ext/symengine/ruby_real_double.c

@@ -0,0 +1,16 @@
+#include "ruby_real_double.h"
+
+
+VALUE crealdouble_to_float(VALUE self)
+{
+    VALUE result;
+
+    basic cbasic_operand1;
+    basic_new_stack(cbasic_operand1);
+    sympify(self, cbasic_operand1);
+
+    result = rb_float_new(real_double_get_d(cbasic_operand1));
+    basic_free_stack(cbasic_operand1);
+
+    return result;
+}

ext/symengine/ruby_real_double.h

@@ -0,0 +1,12 @@
+#ifndef RUBY_REAL_DOUBLE_H_
+#define RUBY_REAL_DOUBLE_H_
+
+#include <ruby.h>
+#include <symengine/cwrapper.h>
+
+#include "symengine.h"
+#include "symengine_utils.h"
+
+VALUE crealdouble_to_float(VALUE self);
+
+#endif //RUBY_REAL_DOUBLE_H_

ext/symengine/symengine.c

@@ -2,6 +2,7 @@
 #include "ruby_basic.h"
 #include "ruby_symbol.h"
 #include "ruby_integer.h"
+#include "ruby_real_double.h"
 #include "ruby_constant.h"
 #include "ruby_complex.h"
 #include "ruby_function.h"
@@ -65,6 +66,7 @@ void Init_symengine() {
     //RealDouble Class
     c_real_double = rb_define_class_under(m_symengine, "RealDouble", c_basic);
     rb_define_alloc_func(c_real_double, cbasic_alloc);
+    rb_define_method(c_real_double, "to_f", crealdouble_to_float, 0);
 
     //Rational class
     c_rational = rb_define_class_under(m_symengine, "Rational", c_basic);

ext/symengine/symengine_utils.c

@@ -6,8 +6,7 @@ void sympify(VALUE operand2, basic_struct *cbasic_operand2) {
     basic_struct *temp;
     VALUE new_operand2, num, den;
     VALUE real, imag;
-    VALUE Rb_Temp_String;
-    char *s;
+    double f;
 
     switch(TYPE(operand2)) {
         case T_FIXNUM:
@@ -16,10 +15,7 @@ void sympify(VALUE operand2, basic_struct *cbasic_operand2) {
             break;
 
         case T_FLOAT:         
-            Rb_Temp_String = rb_funcall(operand2, rb_intern("to_s"), 0, NULL);           
-
-            s = StringValueCStr(Rb_Temp_String);
-            double f = atof(s);
+            f = rb_float_value(operand2);
             real_double_set_d(cbasic_operand2, f);
             break;
 

lib/symengine.rb

@@ -36,5 +36,4 @@ def symbols ary_or_string, *params
 require 'symengine/basic'
 require 'symengine/integer'
 require 'symengine/complex'
-require 'symengine/real_double'
 require 'symengine/complex_double'