diff options
author | tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-12-03 16:43:01 +0000 |
---|---|---|
committer | tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-12-03 16:43:01 +0000 |
commit | ef38a43c50aa88f7e0e03f86aa5868dee91e449c (patch) | |
tree | d7e3b213bd314bd46e3c4891eee58132b97cb7e3 /complex.c | |
parent | 28c53aabcad4ec41916ad5e72203022769ab73f5 (diff) | |
download | ruby-ef38a43c50aa88f7e0e03f86aa5868dee91e449c.tar.gz |
* complex.c (nurat_{to_s,inspect}): provides better representation
for in-finite imag part.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@20474 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'complex.c')
-rw-r--r-- | complex.c | 15 |
1 files changed, 5 insertions, 10 deletions
@@ -922,6 +922,8 @@ nucomp_to_s(VALUE self) rb_str_cat2(s, !impos ? "-" : "+"); rb_str_concat(s, f_to_s(f_abs(dat->imag))); + if (!rb_isdigit(RSTRING_PTR(s)[RSTRING_LEN(s) - 1])) + rb_str_cat2(s, "*"); rb_str_cat2(s, "i"); return s; @@ -930,18 +932,11 @@ nucomp_to_s(VALUE self) static VALUE nucomp_inspect(VALUE self) { - VALUE s, impos; - - get_dat1(self); - - impos = f_tpositive_p(dat->imag); + VALUE s; s = rb_str_new2("("); - rb_str_concat(s, f_inspect(dat->real)); - rb_str_cat2(s, !impos ? "-" : "+"); - - rb_str_concat(s, f_inspect(f_abs(dat->imag))); - rb_str_cat2(s, "i)"); + rb_str_concat(s, nucomp_to_s(self)); + rb_str_cat2(s, ")"); return s; } |