From d5d39dd3fed5f6d3024581eabf023cd9bbee6b24 Mon Sep 17 00:00:00 2001 From: tadf Date: Fri, 5 Dec 2008 12:47:07 +0000 Subject: * rational.c (nurat_{to_s,inspect}): performance improvement. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@20547 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 4 ++++ rational.c | 32 +++++++++++++++++++++++--------- 2 files changed, 27 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index d957b91ca0..9d4998b476 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +Fri Dec 5 21:45:45 2008 Tadayoshi Funaba + + * rational.c (nurat_{to_s,inspect}): performance improvement. + Fri Dec 5 21:42:44 2008 Tadayoshi Funaba * complex.c: inpsect should not depend on to_s. diff --git a/rational.c b/rational.c index d7966a1e7a..3c29aab973 100644 --- a/rational.c +++ b/rational.c @@ -27,8 +27,8 @@ VALUE rb_cRational; static ID id_abs, id_cmp, id_convert, id_equal_p, id_expt, id_floor, - id_format, id_hash, id_idiv, id_inspect, id_integer_p, id_negate, - id_to_f, id_to_i, id_to_s, id_truncate; + id_hash, id_idiv, id_inspect, id_integer_p, id_negate, id_to_f, + id_to_i, id_to_s, id_truncate; #define f_boolcast(x) ((x) ? Qtrue : Qfalse) @@ -1111,19 +1111,34 @@ nurat_hash(VALUE self) } static VALUE -nurat_to_s(VALUE self) +nurat_format(VALUE self, VALUE (*func)(VALUE)) { + VALUE s; get_dat1(self); - return rb_funcall(rb_mKernel, id_format, 3, - rb_str_new2("%d/%d"), dat->num, dat->den); + + s = (*func)(dat->num); + rb_str_cat2(s, "/"); + rb_str_concat(s, (*func)(dat->den)); + + return s; +} + +static VALUE +nurat_to_s(VALUE self) +{ + return nurat_format(self, f_to_s); } static VALUE nurat_inspect(VALUE self) { - get_dat1(self); - return rb_funcall(rb_mKernel, id_format, 3, - rb_str_new2("(%d/%d)"), dat->num, dat->den); + VALUE s; + + s = rb_str_new2("("); + rb_str_concat(s, nurat_format(self, f_inspect)); + rb_str_cat2(s, ")"); + + return s; } static VALUE @@ -1484,7 +1499,6 @@ Init_Rational(void) id_equal_p = rb_intern("=="); id_expt = rb_intern("**"); id_floor = rb_intern("floor"); - id_format = rb_intern("format"); id_hash = rb_intern("hash"); id_idiv = rb_intern("div"); id_inspect = rb_intern("inspect"); -- cgit v1.2.3