summaryrefslogtreecommitdiff
path: root/math.c
diff options
context:
space:
mode:
authormatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2002-04-18 08:46:18 +0000
committermatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2002-04-18 08:46:18 +0000
commite63a9901412d465cd90143d658fda8fa938d7f8c (patch)
tree12cf55d22b7b78304e8a692c44217e9531a31c02 /math.c
parent8a7b08bb787c2d8d531e0b84974fb2a4bec30d87 (diff)
* re.c (rb_reg_expr_str): should treat backslash specially in
escaping. * io.c: complete off_t handling; missing argument for fptr_finalize(); polished rb_scan_args call. * dir.c: wrap multi-statment macro by do { } while (0) * eval.c, numeric,c, sprintf.c, util.c: ditto. * bignum.c (rb_big_eq): check `y == x' if y is neither Fixnum, Bignum, nor Float. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2382 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'math.c')
-rw-r--r--math.c21
1 files changed, 17 insertions, 4 deletions
diff --git a/math.c b/math.c
index d4a24d2..153c5b7 100644
--- a/math.c
+++ b/math.c
@@ -6,7 +6,7 @@
$Date$
created at: Tue Jan 25 14:12:56 JST 1994
- Copyright (C) 1993-2001 Yukihiro Matsumoto
+ Copyright (C) 1993-2002 Yukihiro Matsumoto
**********************************************************************/
@@ -16,16 +16,17 @@
VALUE rb_mMath;
#define Need_Float(x) (x) = rb_Float(x)
-#define Need_Float2(x,y) {\
+#define Need_Float2(x,y) do {\
Need_Float(x);\
Need_Float(y);\
-}
+} while (0)
static VALUE
math_atan2(obj, y, x)
VALUE obj, x, y;
{
Need_Float2(y, x);
+
return rb_float_new(atan2(RFLOAT(y)->value, RFLOAT(x)->value));
}
@@ -85,6 +86,7 @@ math_atan(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(atan(RFLOAT(x)->value));
}
@@ -102,6 +104,7 @@ math_cosh(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(cosh(RFLOAT(x)->value));
}
@@ -119,6 +122,7 @@ math_sinh(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(sinh(RFLOAT(x)->value));
}
@@ -136,6 +140,7 @@ math_tanh(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(tanh(RFLOAT(x)->value));
}
@@ -144,6 +149,7 @@ math_acosh(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(acosh(RFLOAT(x)->value));
}
@@ -152,6 +158,7 @@ math_asinh(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(asinh(RFLOAT(x)->value));
}
@@ -160,6 +167,7 @@ math_atanh(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(atanh(RFLOAT(x)->value));
}
@@ -168,6 +176,7 @@ math_exp(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(exp(RFLOAT(x)->value));
}
@@ -181,6 +190,7 @@ math_log(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(log(RFLOAT(x)->value));
}
@@ -189,6 +199,7 @@ math_log10(obj, x)
VALUE obj, x;
{
Need_Float(x);
+
return rb_float_new(log10(RFLOAT(x)->value));
}
@@ -210,8 +221,8 @@ math_frexp(obj, x)
int exp;
Need_Float(x);
+
d = frexp(RFLOAT(x)->value, &exp);
-
return rb_assoc_new(rb_float_new(d), INT2NUM(exp));
}
@@ -222,6 +233,7 @@ math_ldexp(obj, x, n)
double d;
Need_Float(x);
+
return rb_float_new(d = ldexp(RFLOAT(x)->value, NUM2INT(n)));
}
@@ -230,6 +242,7 @@ math_hypot(obj, x, y)
VALUE obj, x, y;
{
Need_Float2(x, y);
+
return rb_float_new(hypot(RFLOAT(x)->value, RFLOAT(y)->value));
}