[seed] [mpfr] Added mpfr.dim

[Tim Horton <hortont src gnome org>]

commit 334cb9666eadda35d01e3cd0c6488b1e393687ca
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Sun Jul 5 17:15:55 2009 -0400

    [mpfr] Added mpfr.dim

 modules/mpfr/seed-mpfr-arithmetic.c |   32 ++++++++++++++++++++++++++++++++
 modules/mpfr/seed-mpfr.c            |    1 +
 modules/mpfr/seed-mpfr.h            |    1 +
 3 files changed, 34 insertions(+), 0 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr-arithmetic.c b/modules/mpfr/seed-mpfr-arithmetic.c
index 76cd8f8..b49915d 100644
--- a/modules/mpfr/seed-mpfr-arithmetic.c
+++ b/modules/mpfr/seed-mpfr-arithmetic.c
@@ -215,3 +215,35 @@ SeedValue seed_mpfr_abs (SeedContext ctx,
     return seed_value_from_int(ctx, ret, exception);
 }
 
+SeedValue seed_mpfr_dim (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.dim", 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.dim", "mpfr_t");
+    }
+
+    ret = mpfr_dim(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 dec0af5..9f87d97 100644
--- a/modules/mpfr/seed-mpfr.c
+++ b/modules/mpfr/seed-mpfr.c
@@ -607,6 +607,7 @@ seed_static_function mpfr_funcs[] =
     {"cbrt", seed_mpfr_cbrt, 0},
     {"neg", seed_mpfr_neg, 0},
     {"abs", seed_mpfr_abs, 0},
+    {"dim", seed_mpfr_dim, 0},
     {"sin", seed_mpfr_sin, 0},
     {"cos", seed_mpfr_cos, 0},
     {"tan", seed_mpfr_tan, 0},
diff --git a/modules/mpfr/seed-mpfr.h b/modules/mpfr/seed-mpfr.h
index cac2d07..ea0316c 100644
--- a/modules/mpfr/seed-mpfr.h
+++ b/modules/mpfr/seed-mpfr.h
@@ -56,6 +56,7 @@ inline seed_mpfr_t seed_mpfr_arg_type(SeedContext, SeedValue, SeedException);
 
 DEF_SEED_MPFR_FUNC(seed_mpfr_neg);
 DEF_SEED_MPFR_FUNC(seed_mpfr_abs);
+DEF_SEED_MPFR_FUNC(seed_mpfr_dim);
 
 DEF_SEED_MPFR_FUNC(seed_mpfr_add);
 DEF_SEED_MPFR_FUNC(seed_mpfr_sin);