[seed] [mpfr] Added mpfr.setsign mpfr.signbit, mpfr.copysign

[Tim Horton <hortont src gnome org>]

commit 6023680fe5d5cfaf92327024ba21b977f9c10c30
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Sun Jul 5 21:06:41 2009 -0400

    [mpfr] Added mpfr.setsign mpfr.signbit, mpfr.copysign

 modules/mpfr/seed-mpfr-arithmetic.c |   82 ++++++++++++++++++++++++++++++++++-
 modules/mpfr/seed-mpfr.c            |    3 +
 modules/mpfr/seed-mpfr.h            |    3 +
 3 files changed, 87 insertions(+), 1 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr-arithmetic.c b/modules/mpfr/seed-mpfr-arithmetic.c
index 2c9f279..5d5755d 100644
--- a/modules/mpfr/seed-mpfr-arithmetic.c
+++ b/modules/mpfr/seed-mpfr-arithmetic.c
@@ -541,7 +541,6 @@ SeedValue seed_mpfr_frac (SeedContext ctx,
     return seed_value_from_int(ctx, ret, exception);
 }
 
-
 SeedValue seed_mpfr_integer_p (SeedContext ctx,
                                SeedObject function,
                                SeedObject this_object,
@@ -771,3 +770,84 @@ SeedValue seed_mpfr_prec_round (SeedContext ctx,
     return seed_value_from_int(ctx, ret, exception);
 }
 
+SeedValue seed_mpfr_signbit (SeedContext ctx,
+                             SeedObject function,
+                             SeedObject this_object,
+                             gsize argument_count,
+                             const SeedValue args[],
+                             SeedException * exception)
+{
+    mpfr_ptr rop;
+    gboolean ret;
+
+    CHECK_ARG_COUNT("mpfr.signbit", 0);
+    rop = seed_object_get_private(this_object);
+    ret = mpfr_signbit(rop);
+
+    return seed_value_from_boolean(ctx, ret, exception);
+}
+
+SeedValue seed_mpfr_setsign (SeedContext ctx,
+                             SeedObject function,
+                             SeedObject this_object,
+                             gsize argument_count,
+                             const SeedValue args[],
+                             SeedException * exception)
+{
+    mpfr_ptr rop, op;
+    gint ret;
+    gint s;
+    mpfr_rnd_t rnd;
+
+    CHECK_ARG_COUNT("mpfr.signbit", 3);
+
+    rop = seed_object_get_private(this_object);
+    s = seed_value_to_int(ctx, args[1], exception);
+    rnd = seed_value_to_mpfr_rnd_t(ctx, args[2], exception);
+
+    if ( seed_value_is_object_of_class(ctx, args[0], mpfr_class) )
+    {
+        op = seed_object_get_private(args[0]);
+    }
+    else
+    {
+        TYPE_EXCEPTION("mpfr.setsign", "mpfr_t");
+    }
+
+    ret = mpfr_setsign(rop, op, s, rnd);
+
+    return seed_value_from_int(ctx, ret, exception);
+}
+
+SeedValue seed_mpfr_copysign (SeedContext ctx,
+                              SeedObject function,
+                              SeedObject this_object,
+                              gsize argument_count,
+                              const SeedValue args[],
+                              SeedException * exception)
+{
+    mpfr_rnd_t rnd;
+    mpfr_ptr rop, op1, op2;
+    gint ret;
+
+    CHECK_ARG_COUNT("mpfr.copysign", 3);
+
+    rop = seed_object_get_private(this_object);
+    rnd = seed_value_to_mpfr_rnd_t(ctx, args[2], exception);
+
+    if ( seed_value_is_object_of_class(ctx, args[0], mpfr_class) &&
+         seed_value_is_object_of_class(ctx, args[1], mpfr_class))
+    {
+        op1 = seed_object_get_private(args[0]);
+        op2 = seed_object_get_private(args[1]);
+    }
+    else
+    {
+        TYPE_EXCEPTION("mpfr.copysign", "mpfr_t");
+    }
+
+    ret = mpfr_copysign(rop, op1, op2, rnd);
+
+    return seed_value_from_int(ctx, ret, exception);
+}
+
diff --git a/modules/mpfr/seed-mpfr.c b/modules/mpfr/seed-mpfr.c
index b614e40..571ab8c 100644
--- a/modules/mpfr/seed-mpfr.c
+++ b/modules/mpfr/seed-mpfr.c
@@ -684,6 +684,9 @@ seed_static_function mpfr_funcs[] =
     {"trunc", seed_mpfr_trunc, 0},
     {"prec_round", seed_mpfr_prec_round, 0},
     {"can_round", seed_mpfr_can_round, 0},
+    {"signbit", seed_mpfr_signbit, 0},
+    {"setsign", seed_mpfr_setsign, 0},
+    {"copysign", seed_mpfr_copysign, 0},
     {"nexttoward", seed_mpfr_nexttoward, 0},
     {"nextabove", seed_mpfr_nextabove, 0},
     {"nextbelow", seed_mpfr_nextbelow, 0},
diff --git a/modules/mpfr/seed-mpfr.h b/modules/mpfr/seed-mpfr.h
index f112028..81f2d0b 100644
--- a/modules/mpfr/seed-mpfr.h
+++ b/modules/mpfr/seed-mpfr.h
@@ -70,6 +70,9 @@ DEF_SEED_MPFR_FUNC(seed_mpfr_nextabove);
 DEF_SEED_MPFR_FUNC(seed_mpfr_nextbelow);
 
 DEF_SEED_MPFR_FUNC(seed_mpfr_prec_round);
+DEF_SEED_MPFR_FUNC(seed_mpfr_signbit);
+DEF_SEED_MPFR_FUNC(seed_mpfr_setsign);
+DEF_SEED_MPFR_FUNC(seed_mpfr_copysign);
 
 DEF_SEED_MPFR_FUNC(seed_mpfr_min);
 DEF_SEED_MPFR_FUNC(seed_mpfr_max);