112
113
114
115
116
117
118
119
120
121
122
123
124
|
# File 'ext/number/number.c', line 112
VALUE rb_Complex_to_number (VALUE complex)
{
Complex* re;
Complex* im;
re = DATA_PTR(rb_convert_type(rb_funcall(complex, rb_intern("real"), 0), T_DATA, "Number", "to_number"));
im = DATA_PTR(rb_convert_type(rb_funcall(complex, rb_intern("imag"), 0), T_DATA, "Number", "to_number"));
VALUE result = rb_obj_alloc(rb_cNumber);
DATA_PTR(result) = complex_new(interval_dup(re->re), interval_dup(im->re));
return result;
}
|