Feature #10378 ยป update_Complex#real_.patch
complex.c | ||
---|---|---|
1080 | 1080 |
/* |
1081 | 1081 |
* call-seq: |
1082 |
* cmp.real? -> false |
|
1082 |
* cmp.real? -> true or false
|
|
1083 | 1083 |
* |
1084 |
* Returns false. |
|
1084 |
* Returns true if imaginary part is 0. |
|
1085 |
* |
|
1086 |
* Complex(7).real? #=> true |
|
1087 |
* Complex(9, -4).real? #=> false |
|
1085 | 1088 |
*/ |
1086 | 1089 |
static VALUE |
1087 |
nucomp_false(VALUE self)
|
|
1090 |
nucomp_real_p(VALUE self)
|
|
1088 | 1091 |
{ |
1089 |
return Qfalse; |
|
1092 |
get_dat1(self); |
|
1093 |
return f_zero_p(dat->imag); |
|
1090 | 1094 |
} |
1091 | 1095 |
#if 0 |
... | ... | |
2150 | 2154 |
rb_define_method(rb_cComplex, "~", nucomp_conj, 0); /* gcc */ |
2151 | 2155 |
#endif |
2152 |
rb_define_method(rb_cComplex, "real?", nucomp_false, 0);
|
|
2156 |
rb_define_method(rb_cComplex, "real?", nucomp_real_p, 0);
|
|
2153 | 2157 |
#if 0 |
2154 | 2158 |
rb_define_method(rb_cComplex, "complex?", nucomp_true, 0); |
2155 | 2159 |
rb_define_method(rb_cComplex, "exact?", nucomp_exact_p, 0); |
2156 |
- |