[seed] [mpfr] mpfr set/get exp

[Tim Horton <hortont src gnome org>]

commit 726d1085ef332f1458b3bc7c727c24b0fc92da8b
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Sat Jul 4 02:40:43 2009 -0400

    [mpfr] mpfr set/get exp

 modules/mpfr/mpfr.c |   26 ++++++++++++++++++++++++++
 1 files changed, 26 insertions(+), 0 deletions(-)
---
diff --git a/modules/mpfr/mpfr.c b/modules/mpfr/mpfr.c
index 79e62ba..1f60e97 100644
--- a/modules/mpfr/mpfr.c
+++ b/modules/mpfr/mpfr.c
@@ -43,6 +43,9 @@ SeedClass mpfr_class;
 #define seed_value_to_mpfr_rnd_t(a, b, c) seed_value_to_char(a, b, c)
 #define seed_value_from_mpfr_rnd_t(a, b, c) seed_value_from_char(a, b, c)
 
+#define seed_value_from_mp_exp_t(a, b, c) seed_value_from_ulong(a, b, c)
+#define seed_value_to_mp_exp_t(a, b, c) seed_value_to_ulong(a, b, c)
+
 /* For now at least ignoring the ability to use gmp types since there is no gmp module */
 
 SeedEngine * eng;
@@ -275,6 +278,28 @@ seed_mpfr_add (SeedContext ctx,
 }
 
 static SeedValue
+seed_mpfr_get_exp (SeedContext ctx,
+                   SeedObject this_object,
+                   SeedString property_name,
+                   SeedException *except)
+{
+    mpfr_ptr ptr = seed_object_get_private(this_object);
+    return seed_value_from_mp_exp_t(ctx, mpfr_get_exp(ptr), except);
+}
+
+static gboolean
+seed_mpfr_set_exp (SeedContext ctx,
+                   SeedObject this_object,
+                   SeedString property_name,
+                   SeedValue value,
+                   SeedException *except)
+{
+    mpfr_ptr ptr = seed_object_get_private(this_object);
+    mpfr_set_exp(ptr, seed_value_to_mp_exp_t(ctx, value, except));
+    return TRUE;
+}
+
+static SeedValue
 seed_mpfr_get_prec (SeedContext ctx,
                     SeedObject this_object,
                     SeedString property_name,
@@ -478,6 +503,7 @@ seed_static_function mpfr_funcs[] =
 seed_static_value mpfr_values[] =
 {
     {"prec", seed_mpfr_get_prec, seed_mpfr_set_prec, SEED_PROPERTY_ATTRIBUTE_DONT_DELETE},
+    {"exp", seed_mpfr_get_exp, seed_mpfr_set_exp, SEED_PROPERTY_ATTRIBUTE_DONT_DELETE},
     {NULL, 0, NULL, 0}
 };