[seed] [mpfr] Added mfpr.cmpabs

[Tim Horton <hortont src gnome org>]

commit 57bcef156892fd17be9aacc30d7cfea749610215
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Sun Jul 5 11:58:56 2009 -0400

    [mpfr] Added mfpr.cmpabs

 modules/mpfr/seed-mpfr-cmp.c |   28 ++++++++++++++++++++++++++++
 modules/mpfr/seed-mpfr.c     |    1 +
 modules/mpfr/seed-mpfr.h     |    1 +
 3 files changed, 30 insertions(+), 0 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr-cmp.c b/modules/mpfr/seed-mpfr-cmp.c
index 6cd59b4..23ae99e 100644
--- a/modules/mpfr/seed-mpfr-cmp.c
+++ b/modules/mpfr/seed-mpfr-cmp.c
@@ -30,3 +30,31 @@ SeedValue seed_mpfr_cmp (SeedContext ctx,
     return seed_value_from_boolean(ctx, ret, exception);
 }
 
+SeedValue seed_mpfr_cmpabs (SeedContext ctx,
+                            SeedObject function,
+                            SeedObject this_object,
+                            gsize argument_count,
+                            const SeedValue args[],
+                            SeedException * exception)
+{
+    mpfr_ptr rop, op;
+    gint ret;
+
+    CHECK_ARG_COUNT("mpfr.cmpabs", 1);
+
+    rop = seed_object_get_private(this_object);
+
+    if ( seed_value_is_object_of_class(ctx, args[0], mpfr_class) )
+    {
+        op = seed_object_get_private(args[0]);
+    }
+    else
+    {
+        TYPE_EXCEPTION("mpfr.cmpabs", "mpfr_t");
+    }
+
+    ret = mpfr_cmpabs(rop, op);
+
+    return seed_value_from_int(ctx, ret, exception);
+}
+
diff --git a/modules/mpfr/seed-mpfr.c b/modules/mpfr/seed-mpfr.c
index 18e8407..c53154d 100644
--- a/modules/mpfr/seed-mpfr.c
+++ b/modules/mpfr/seed-mpfr.c
@@ -631,6 +631,7 @@ seed_static_function mpfr_funcs[] =
     {"set_nan", seed_mpfr_set_nan, 0},
     {"swap", seed_mpfr_swap, 0},
     {"cmp", seed_mpfr_cmp, 0},
+    {"cmpabs", seed_mpfr_cmpabs, 0},
     {"get_d", seed_mpfr_get_d, 0},
     {"fits_ulong_p", seed_mpfr_fits_ulong_p, 0},
     {"fits_slong_p", seed_mpfr_fits_slong_p, 0},
diff --git a/modules/mpfr/seed-mpfr.h b/modules/mpfr/seed-mpfr.h
index 9bcbbf5..b7a8bd4 100644
--- a/modules/mpfr/seed-mpfr.h
+++ b/modules/mpfr/seed-mpfr.h
@@ -88,6 +88,7 @@ DEF_SEED_MPFR_FUNC(seed_mpfr_rec_sqrt);
 DEF_SEED_MPFR_FUNC(seed_mpfr_cbrt);
 
 DEF_SEED_MPFR_FUNC(seed_mpfr_cmp);
+DEF_SEED_MPFR_FUNC(seed_mpfr_cmpabs);
 
 #endif      /* _SEED_MFPR_H_ */