From c004ecfa1ecc447b764d1ab91cbf9a23c2ed79ca Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 5 Jun 2003 06:40:42 +0000
Subject: * math.c (math_erf,math_erfc): new function. [ruby-list:37753]

* eval.c (ruby_finalize): no longer need to turn off $DEBUG in the
  finalizer. (ruby-bugs-ja PR#473)


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3907 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 math.c | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'math.c')

diff --git a/math.c b/math.c
index 77c0173..8d7bd8c 100644
--- a/math.c
+++ b/math.c
@@ -271,6 +271,22 @@ math_hypot(obj, x, y)
     return rb_float_new(hypot(RFLOAT(x)->value, RFLOAT(y)->value));
 }
 
+static VALUE
+math_erf(obj, x)
+    VALUE obj, x;
+{
+    Need_Float(x);
+    return rb_float_new(erf(RFLOAT(x)->value));
+}
+
+static VALUE
+math_erfc(obj, x)
+    VALUE obj, x;
+{
+    Need_Float(x);
+    return rb_float_new(erfc(RFLOAT(x)->value));
+}
+
 void
 Init_Math()
 {
@@ -314,4 +330,7 @@ Init_Math()
     rb_define_module_function(rb_mMath, "ldexp", math_ldexp, 2);
 
     rb_define_module_function(rb_mMath, "hypot", math_hypot, 2);
+
+    rb_define_module_function(rb_mMath, "erf",  math_erf,  1);
+    rb_define_module_function(rb_mMath, "erfc", math_erfc, 1);
 }
-- 
cgit v1.1