From 992923053cfb51dc04c6a7ee07ca6fff1b61d1a5 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 18 Jun 1998 07:47:15 +0000
Subject: 1.1b9_26

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@244 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 numeric.c | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

(limited to 'numeric.c')

diff --git a/numeric.c b/numeric.c
index eab105d8e2..58dbfe3742 100644
--- a/numeric.c
+++ b/numeric.c
@@ -573,6 +573,51 @@ flo_to_i(num)
     return INT2FIX(val);
 }
 
+static VALUE
+flo_floor(num)
+    VALUE num;
+{
+    double f = floor(RFLOAT(num)->value);
+    long val;
+
+    if (!FIXABLE(f)) {
+	return dbl2big(f);
+    }
+    val = f;
+    return INT2FIX(val);
+}
+
+static VALUE
+flo_ceil(num)
+    VALUE num;
+{
+    double f = ceil(RFLOAT(num)->value);
+    long val;
+
+    if (!FIXABLE(f)) {
+	return dbl2big(f);
+    }
+    val = f;
+    return INT2FIX(val);
+}
+
+static VALUE
+flo_round(num)
+    VALUE num;
+{
+    double f = RFLOAT(num)->value;
+    long val;
+
+    if (f > 0.0) f = floor(f+0.5);
+    if (f < 0.0) f = ceil(f-0.5);
+
+    if (!FIXABLE(f)) {
+	return dbl2big(f);
+    }
+    val = f;
+    return INT2FIX(val);
+}
+
 static VALUE
 flo_to_f(num)
     VALUE num;
@@ -1410,4 +1455,8 @@ Init_Numeric()
     rb_define_method(cFloat, "to_f", flo_to_f, 0);
     rb_define_method(cFloat, "abs", flo_abs, 0);
     rb_define_method(cFloat, "zero?", flo_zero_p, 0);
+
+    rb_define_method(cFloat, "floor", flo_floor, 0);
+    rb_define_method(cFloat, "ceil", flo_ceil, 0);
+    rb_define_method(cFloat, "round", flo_round, 0);
 }
-- 
cgit v1.2.3