[seed] [mpfr] Added mpfr.swap

[Tim Horton <hortont src gnome org>]

commit 55369c5f50d41093d05d04f657491c8df1ac0cdc
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Sun Jul 5 11:17:36 2009 -0400

    [mpfr] Added mpfr.swap

 modules/mpfr/seed-mpfr.c |   27 +++++++++++++++++++++++++++
 1 files changed, 27 insertions(+), 0 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr.c b/modules/mpfr/seed-mpfr.c
index a382fed..a29f4ae 100644
--- a/modules/mpfr/seed-mpfr.c
+++ b/modules/mpfr/seed-mpfr.c
@@ -261,6 +261,32 @@ SeedValue seed_mpfr_set_nan (SeedContext ctx,
     return seed_make_null(ctx);
 }
 
+SeedValue seed_mpfr_swap (SeedContext ctx,
+                          SeedObject function,
+                          SeedObject this_object,
+                          gsize argument_count,
+                          const SeedValue args[],
+                          SeedException * exception)
+{
+    mpfr_ptr rop, op;
+
+    CHECK_ARG_COUNT("mpfr.swap", 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.swap", "mpfr_t");
+    }
+
+    mpfr_swap(rop, op);
+
+    return seed_make_null(ctx);
+}
 
 /* init and set functions, using default precision, or optionally specifying it */
 SeedObject
@@ -402,6 +428,7 @@ seed_static_function mpfr_funcs[] =
     {"set", seed_mpfr_set, 0},
     {"set_inf", seed_mpfr_set_inf, 0},
     {"set_nan", seed_mpfr_set_nan, 0},
+    {"swap", seed_mpfr_swap, 0},
     {"out_str", seed_mpfr_out_str, 0},
     {"pi", seed_mpfr_const_pi, 0},
     {"euler", seed_mpfr_const_pi, 0},