srawlins-gmp 0.1.4.2 → 0.1.5

data/README.rdoc

@@ -46,16 +46,19 @@ paragraph at http://gmplib.org/#WHAT :
   contributions, meaning users can safely use GMP. To achieve this, we will ask
   contributors to sign paperwork where they allow us to distribute their work."
 
-Only GMP 4 or newer is supported. It has been officially tested with:
-  |-------------------------------------|
-  |   Platform    |  Ruby   |    GMP    |
-  |---------------|---------|-----------|
-  | Cygwin on x86 |  1.8.6  | GMP 4.3.1 |
-  |-------------------------------------|
+Only GMP 4 or newer is supported. The following environments have been tested by me:
+  gmp gem 0.1.4.2 on:
+  +-----------------+---------+-----------+
+  |    Platform     |  Ruby   |    GMP    |
+  +-----------------+---------+-----------+
+  | Cygwin on x86   |  1.8.7  | GMP 4.3.1 |
+  | Mac OS X 10.5.7 |  1.8.6  | GMP 4.3.1 |
+  +-----------------+---------+-----------+
 
-I have not tested one wit on Ruby 1.9.x, but my educated guess is, no, it
-does not behave. If only because of rubyio.h replacing ruby/io.h. This is on my
-todo list. I intend to use RMagick as a guide.
+<b>Note:</b> I have tried with Ruby 1.9.1. No go.
+
+<b>Note:</b> To get this running on Mac OS X, I compiled GMP 4.3.1 with:
+  ./configure ABI=32 --disable-dependency-tracking
 
 =Authors
 
@@ -121,11 +124,11 @@ You can also call them as:
                              may have different precisions, which would make
                              them unswapable
   GMP::Z
-    add!                     in-place addition
-    sub!                     in-place subtraction
+   .add!                     in-place addition
+   .sub!                     in-place subtraction
     tdiv,fdiv,cdiv           truncate, floor and ceil division
     tmod,fmod,cmod           truncate, floor and ceil modulus
-    [],[]=                   testing and setting bits (as booleans)
+   .[],[]=                   testing and setting bits (as booleans)
     scan0,scan1              starting at bitnr (1st arg), scan for a 0 or 1
                              (respectively), then return the index of the
                              first instance.
@@ -219,19 +222,19 @@ still relevant.
 * ruby 1.9.x
 * mpz_fits_* and 31 vs. 32 integer variables
 * all appropriate module and class methods if there are any to add
-* fix all sign issues
+* fix all sign issues (don't know what these are)
 * floats with precision control
 * random numbers
-* to_s vs. inspect ?
+* to_s vs. inspect
 * to_s_hex(), or more-ruby-ish, to_s(:hex)
 * check if mpz_addmul_ui would optimize some statements
 * some system that allow using denref and numref as normal ruby objects
-* should we allocate global temporary variables like Perl GMP do ?
+* should we allocate global temporary variables like Perl GMP does?
 * takeover code that replaces all Bignums with GMP::Z
 * better bignum parser
 * zero-copy method for strings generation
-* what should be ancestors of GMP::* classes ?
-* division and modulo
+* what should be ancestors of GMP::* classes?
+* division and modulo (que?)
 * put rb_raise into nice macros
 * benchmarks against Python GMP and Perl GMP
 * dup methods
@@ -242,7 +245,7 @@ still relevant.
 * check asm output, especially local memory efficiency
 * it might be better to use `register' for some local variables
 * powm with negative exponents
-* check if different sorting of operatations gives better cache usage,
+* check if different sorting of operatations gives better cache usage
 * GMP::* op RubyFloat and RubyFloat op GMP::*
 * sort checks
 * check all new GMP4 operations

data/ext/gmp.c

@@ -4,85 +4,15 @@
  * This file contains everything you would expect from a C extension.
  */
 
-#define _GNU_SOURCE
-#include <stdio.h>
-
-#include <ruby.h>
-#include <gmp.h>
-
-#ifdef MPFR
-
-#ifdef HAVE_MPFR_H
-#include <mpfr.h>
-#endif /* HAVE_MPFR_H */
-
-#ifdef HAVE_MPF2MPFR_H
-#include <mpf2mpfr.h>
-#endif /* HAVE_MPF2MPFR_H */
-
-#endif /* MPFR */
-
-#include <stdlib.h>
-
-/*
-  MP_INT*, MP_RAT* and MP_FLOAT* are used because they don't have side-effects
-  of single-element arrays mp*_t
-
-  MP_FLOAT is defined here, as it's commented out in gmp.h
-*/
-#if defined(MPFR) && defined(HAVE_MPFR_H)
-typedef __mpfr_struct MP_FLOAT;
-#else
-typedef __mpf_struct MP_FLOAT;
-#endif /* HAVE_MPF2MPFR_H */
-
-#define mpz_get_struct(ruby_var,c_var) { Data_Get_Struct(ruby_var, MP_INT, c_var); }
-#define mpq_get_struct(ruby_var,c_var) { Data_Get_Struct(ruby_var, MP_RAT, c_var); }
-#define mpf_get_struct(ruby_var,c_var) { Data_Get_Struct(ruby_var, MP_FLOAT, c_var); }
-#define mpf_get_struct_prec(ruby_var,c_var,prec) { mpf_get_struct(ruby_var,c_var); prec = mpf_get_prec(c_var); }
-#define mpz_make_struct(ruby_var,c_var) { ruby_var = Data_Make_Struct(cGMP_Z, MP_INT, 0, r_gmpz_free, c_var); }
-#define mpq_make_struct(ruby_var,c_var) { ruby_var = Data_Make_Struct(cGMP_Q, MP_RAT, 0, r_gmpq_free, c_var); }
-#define mpf_make_struct(ruby_var,c_var) { ruby_var = Data_Make_Struct(cGMP_F, MP_FLOAT, 0, r_gmpf_free, c_var); }
-#define mpz_make_struct_init(ruby_var,c_var) { mpz_make_struct(ruby_var,c_var); mpz_init (c_var); }
-#define mpq_make_struct_init(ruby_var,c_var) { mpq_make_struct(ruby_var,c_var); mpq_init (c_var); }
-#define mpf_make_struct_init(ruby_var,c_var,prec) { mpf_make_struct(ruby_var,c_var); mpf_init2 (c_var,prec); }
-#define BIGNUM_P(value) (TYPE(value) == T_BIGNUM)
-#define FLOAT_P(value)  (TYPE(value) == T_FLOAT)
-#define STRING_P(value) (TYPE(value) == T_STRING)
-#define GMPZ_P(value)   (rb_obj_is_instance_of(value, cGMP_Z) == Qtrue)
-#define GMPQ_P(value)   (rb_obj_is_instance_of(value, cGMP_Q) == Qtrue)
-#define GMPF_P(value)   (rb_obj_is_instance_of(value, cGMP_F) == Qtrue)
-#define mpz_set_bignum(var_mpz,var_bignum) \
-  mpz_set_str (var_mpz, STR2CSTR (rb_funcall (var_bignum, rb_intern ("to_s"), 0)), 0);
-#define mpz_temp_alloc(var) { var=malloc(sizeof(MP_INT)); }
-#define mpz_temp_init(var) { mpz_temp_alloc(var); mpz_init(var); }
-#define mpz_temp_from_bignum(var,var_bignum)  \
-  { mpz_temp_alloc(var); mpz_init_set_str (var, STR2CSTR (rb_funcall (var_bignum, rb_intern ("to_s"), 0)), 0); }
-#define mpz_temp_free(var) { mpz_clear(var); free(var); }
-#define mpf_temp_alloc(var) { var=malloc(sizeof(MP_FLOAT)); }
-#define mpf_temp_init(var,prec) { mpf_temp_alloc(var); mpf_init2(var,prec); }
-#define mpf_temp_free(var) { mpf_clear(var); free(var); }
-#define FLT2DBL(var) (RFLOAT(var)->value)
-#define prec_max(prec,var) {if(mpf_get_prec(var) > prec) prec = mpf_get_prec(var); }
-
-#define EXPECTED_ZQFXBD "Expected GMP::Z, GMP::Q, GMP::F, FixNum, BigNum or Float"
-#define EXPECTED_ZQFXB "Expected GMP::Z, GMP::Q, GMP::F, FixNum or BigNum"
-#define EXPECTED_ZXB "Expected GMP::Z, FixNum or BigNum"
-#define EXPECTED_ZX "Expected GMP::Z or FixNum"
-#define EXPECTED_X "Expected FixNum"
-#define typeerror(expected) rb_raise(rb_eTypeError, EXPECTED_##expected)
-#define typeerror_as(expected, argname) rb_raise(rb_eTypeError, EXPECTED_##expected " as " argname)
-
-//should change exception type
-#define not_yet rb_raise(rb_eTypeError,"Not implemented yet")
+#include <ruby_gmp.h>
 
 VALUE mGMP, cGMP_Z, cGMP_Q, cGMP_F;
 
-static void r_gmpz_free(void *ptr) { mpz_clear (ptr); free (ptr); }
-static void r_gmpq_free(void *ptr) { mpq_clear (ptr); free (ptr); }
-static void r_gmpf_free(void *ptr) { mpf_clear (ptr); free (ptr); }
+void r_gmpz_free(void *ptr) { mpz_clear (ptr); free (ptr); }
+void r_gmpq_free(void *ptr) { mpq_clear (ptr); free (ptr); }
+void r_gmpf_free(void *ptr) { mpf_clear (ptr); free (ptr); }
 
-static VALUE r_gmpzsg_new(int argc, VALUE *argv, VALUE klass)
+VALUE r_gmpzsg_new(int argc, VALUE *argv, VALUE klass)
 {
   MP_INT *res_val;
   VALUE res;
@@ -133,24 +63,6 @@ static VALUE r_gmpfsg_new(int argc, VALUE *argv, VALUE klass)
   return res;
 }
 
-static void mpz_set_value(MP_INT *target, VALUE source)
-{
-  MP_INT *source_val;
-
-  if (GMPZ_P(source)) {
-    mpz_get_struct(source, source_val);
-    mpz_set (target, source_val);
-  } else if (FIXNUM_P(source)) {
-    mpz_set_si (target, NUM2INT(source));
-  } else if (STRING_P(source)) {
-    mpz_set_str (target, STR2CSTR(source), 0);
-  } else if (BIGNUM_P(source)) {
-    mpz_set_bignum(target, source);
-  } else {
-    rb_raise (rb_eTypeError, "Don't know how to convert %s into GMP_Z", rb_class2name(rb_class_of(source)));
-  }
-}
-
 static VALUE r_gmpz_initialize(int argc, VALUE *argv, VALUE self)
 {
   MP_INT *self_val;
@@ -206,16 +118,16 @@ static VALUE r_gmpq_initialize(int argc, VALUE *argv, VALUE self)
 }
 
 /* don't pass GMP::F here, it should be handled separately */
-static void mpf_set_value(MP_FLOAT *self_val, VALUE arg)
+void mpf_set_value(MP_FLOAT *self_val, VALUE arg)
 {
   MP_RAT *arg_val_q;
   MP_INT *arg_val_z;
 
   if (GMPQ_P(arg)) {
-    mpq_get_struct (arg, arg_val_q);
+    mpq_get_struct(arg, arg_val_q);
     mpf_set_q(self_val, arg_val_q);
   } else if (GMPZ_P(arg)) {
-    mpz_get_struct (arg, arg_val_z);
+    mpz_get_struct(arg, arg_val_z);
     mpf_set_z(self_val, arg_val_z);
   } else if (FLOAT_P(arg)) {
     mpf_set_d(self_val, FLT2DBL(arg));
@@ -223,7 +135,7 @@ static void mpf_set_value(MP_FLOAT *self_val, VALUE arg)
     mpf_set_si(self_val, FIX2INT(arg));
   } else if (STRING_P(arg)) {
     if (mpf_set_str(self_val, STR2CSTR(arg), 10) == -1) {
-      rb_raise (rb_eRuntimeError, "Badly formatted string");
+      rb_raise(rb_eRuntimeError, "Badly formatted string");
     }
   } else if (BIGNUM_P(arg)) {
 #if 1 /* GMP3 code */
@@ -232,7 +144,7 @@ static void mpf_set_value(MP_FLOAT *self_val, VALUE arg)
     mpz_temp_free(arg_val_z);
 #endif
   } else {
-    rb_raise (rb_eTypeError, "Don't know how to convert %s into GMP::F", rb_class2name(rb_class_of(arg)));
+    rb_raise(rb_eTypeError, "Don't know how to convert %s into GMP::F", rb_class2name(rb_class_of(arg)));
   }
 }
 
@@ -334,19 +246,13 @@ static VALUE r_gmpf_coerce(VALUE self, VALUE arg)
   return rb_assoc_new(r_gmpfsg_new(1, &arg, cGMP_F), self);
 }
 
-static VALUE r_gmpmod_z(int argc, VALUE *argv, VALUE module)
-{
-  (void)module;
-  return r_gmpzsg_new(argc, argv, cGMP_Z);
-}
-
-static VALUE r_gmpmod_q(int argc, VALUE *argv, VALUE module)
+VALUE r_gmpmod_q(int argc, VALUE *argv, VALUE module)
 {
   (void)module;
   return r_gmpqsg_new(argc, argv, cGMP_Q);
 }
 
-static VALUE r_gmpmod_f(int argc, VALUE *argv, VALUE module)
+VALUE r_gmpmod_f(int argc, VALUE *argv, VALUE module)
 {
   (void)module;
   return r_gmpfsg_new(argc, argv, cGMP_F);
@@ -374,7 +280,7 @@ static VALUE r_gmpfsg_set_default_prec(VALUE klass, VALUE arg)
 
 #include "gmpf.h"
 #include "gmpq.h"
-#include "gmpz.h"
+/* #include "gmpz.h" */
 #include "takeover.h"
 
 #define REGISTER_TAKEOVER(fname, ruby_fname, old_fname) \
@@ -383,144 +289,39 @@ static VALUE r_gmpfsg_set_default_prec(VALUE klass, VALUE arg)
   rb_define_alias(rb_cBignum, old_fname, ruby_fname); \
   rb_define_method(rb_cBignum, ruby_fname, takeover_bignum_##fname, -1);
 
-void Init_gmp () {
+void Init_gmp() {
   mGMP = rb_define_module("GMP");
   rb_define_module_function(mGMP, "Z", r_gmpmod_z, -1);
   rb_define_module_function(mGMP, "Q", r_gmpmod_q, -1);
   rb_define_module_function(mGMP, "F", r_gmpmod_f, -1);
 
   cGMP_Z = rb_define_class_under(mGMP, "Z", rb_cInteger);
+  init_gmpz();
   rb_define_singleton_method(cGMP_Z, "new", r_gmpzsg_new, -1);
-  rb_define_singleton_method(cGMP_Z, "fib", r_gmpzsg_fib, 1);
-  rb_define_singleton_method(cGMP_Z, "fac", r_gmpzsg_fac, 1);
   rb_define_singleton_method(cGMP_Z, "pow", r_gmpzsg_pow, 2);
   rb_define_method(cGMP_Z, "initialize", r_gmpz_initialize, -1);
   rb_define_method(cGMP_Z, "to_s", r_gmpz_to_s, 0);
   rb_define_method(cGMP_Z, "coerce", r_gmpz_coerce, 1);
-  rb_define_method(cGMP_Z, "+", r_gmpz_add, 1);
-  rb_define_method(cGMP_Z, "add!", r_gmpz_add_self, 1);
-  rb_define_method(cGMP_Z, "-", r_gmpz_sub, 1);
-  rb_define_method(cGMP_Z, "sub!", r_gmpz_sub_self, 1);
-  rb_define_method(cGMP_Z, "*", r_gmpz_mul, 1);
-  rb_define_method(cGMP_Z, "/", r_gmpz_div, 1);
-  rb_define_method(cGMP_Z, "tdiv", r_gmpz_tdiv, 1);
-  rb_define_method(cGMP_Z, "tmod", r_gmpz_tmod, 1);
-  rb_define_method(cGMP_Z, "fdiv", r_gmpz_fdiv, 1);
-  rb_define_method(cGMP_Z, "fmod", r_gmpz_fmod, 1);
-  rb_define_method(cGMP_Z, "cdiv", r_gmpz_cdiv, 1);
-  rb_define_method(cGMP_Z, "cmod", r_gmpz_cmod, 1);
-  rb_define_method(cGMP_Z, "-@", r_gmpz_neg, 0);
-  rb_define_method(cGMP_Z, "neg", r_gmpz_neg, 0);
-  rb_define_method(cGMP_Z, "neg!", r_gmpz_neg_self, 0);
-  rb_define_method(cGMP_Z, "abs", r_gmpz_abs, 0);
-  rb_define_method(cGMP_Z, "abs!", r_gmpz_abs_self, 0);
-  rb_define_method(cGMP_Z, "com", r_gmpz_com, 0);
-  rb_define_method(cGMP_Z, "com!", r_gmpz_com_self, 0);
-  rb_define_method(cGMP_Z, "&", r_gmpz_and, 1);
-  rb_define_method(cGMP_Z, "|", r_gmpz_or, 1);
-  rb_define_method(cGMP_Z, "^", r_gmpz_xor, 1);
-  rb_define_method(cGMP_Z, "[]=", r_gmpz_setbit, 2);
-  rb_define_method(cGMP_Z, "[]", r_gmpz_getbit, 1);
-  rb_define_method(cGMP_Z, "scan0", r_gmpz_scan0, 1);
-  rb_define_method(cGMP_Z, "scan1", r_gmpz_scan1, 1);
-  rb_define_method(cGMP_Z, "**", r_gmpz_pow, 1);
-  rb_define_method(cGMP_Z, "powmod", r_gmpz_powm, 2);
-  rb_define_method(cGMP_Z, "even?", r_gmpz_is_even, 0);
-  rb_define_method(cGMP_Z, "odd?", r_gmpz_is_odd, 0);
-  rb_define_method(cGMP_Z, "sgn", r_gmpz_sgn, 0);
-  rb_define_method(cGMP_Z, "<=>", r_gmpz_cmp, 1);
-  rb_define_method(cGMP_Z, ">",   r_gmpz_cmp_gt, 1);
-  rb_define_method(cGMP_Z, ">=",  r_gmpz_cmp_ge, 1);
-  rb_define_method(cGMP_Z, "<",   r_gmpz_cmp_lt, 1);
-  rb_define_method(cGMP_Z, "<=",  r_gmpz_cmp_le, 1);
-  rb_define_method(cGMP_Z, "==",  r_gmpz_eq, 1);
-  rb_define_method(cGMP_Z, ">>",  r_gmpz_fshr, 1);
-  rb_define_method(cGMP_Z, "<<",  r_gmpz_shl, 1);
-  rb_define_method(cGMP_Z, "tshr",  r_gmpz_tshr, 1);
-  rb_define_method(cGMP_Z, "lastbits_sgn",  r_gmpz_tshrm, 1);
-  rb_define_method(cGMP_Z, "lastbits_pos",  r_gmpz_fshrm, 1);
-  rb_define_method(cGMP_Z, "square?",  r_gmpz_is_square, 0);
-  rb_define_method(cGMP_Z, "power?",  r_gmpz_is_power, 0);
-  rb_define_method(cGMP_Z, "swap",  r_gmpz_swap, 1);
-  rb_define_method(cGMP_Z, "sqrt",  r_gmpz_sqrt, 0);
-  rb_define_method(cGMP_Z, "sqrt!",  r_gmpz_sqrt_self, 0);
-  rb_define_method(cGMP_Z, "sqrtrem",  r_gmpz_sqrtrem, 0);
-  rb_define_method(cGMP_Z, "jacobi",  r_gmpz_jacobi, 0);
-  rb_define_method(cGMP_Z, "legendre",  r_gmpz_legendre, 0);
-  rb_define_method(cGMP_Z, "probab_prime?",  r_gmpz_is_probab_prime, -1);
-  rb_define_method(cGMP_Z, "nextprime",  r_gmpz_nextprime, 0);
-  rb_define_method(cGMP_Z, "nextprime!",  r_gmpz_nextprime_self, 0);
-  rb_define_method(cGMP_Z, "popcount",  r_gmpz_popcount, 0);
-  rb_define_method(cGMP_Z, "to_d",  r_gmpz_to_d, 0);
-  rb_define_method(cGMP_Z, "root",  r_gmpz_root, 1);
-  rb_define_method(cGMP_Z, "remove",  r_gmpz_remove, 1);
-  rb_define_method(cGMP_Z, "to_i",  r_gmpz_to_i, 0);
-  rb_define_method(cGMP_Z, "cmpabs",  r_gmpz_cmpabs, 1);
 /*
   rb_define_method(cGMP_Z, "gcd",  r_gmpz_gcd, 1);
   rb_define_method(cGMP_Z, "lcm",  r_gmpz_lcm, 1);
 */
   cGMP_Q = rb_define_class_under (mGMP, "Q", rb_cNumeric);
+  init_gmpq();
   rb_define_singleton_method(cGMP_Q, "new", r_gmpqsg_new, -1);
   rb_define_method(cGMP_Q, "initialize", r_gmpq_initialize, -1);
   rb_define_method(cGMP_Q, "to_s", r_gmpq_to_s, 0);
   rb_define_method(cGMP_Q, "coerce", r_gmpq_coerce, 1);
   rb_define_method(cGMP_Q, "num", r_gmpq_num, 0);
   rb_define_method(cGMP_Q, "den", r_gmpq_den, 0);
-  rb_define_method(cGMP_Q, "+", r_gmpq_add, 1);
-  rb_define_method(cGMP_Q, "-", r_gmpq_sub, 1);
-  rb_define_method(cGMP_Q, "*", r_gmpq_mul, 1);
-  rb_define_method(cGMP_Q, "/", r_gmpq_div, 1);
-  rb_define_method(cGMP_Q, "inv", r_gmpq_inv, 0);
-  rb_define_method(cGMP_Q, "inv!", r_gmpq_inv_self, 0);
-  rb_define_method(cGMP_Q, "-@", r_gmpq_neg, 0);
-  rb_define_method(cGMP_Q, "neg!", r_gmpq_neg_self, 0);
-  rb_define_method(cGMP_Q, "abs", r_gmpq_abs, 0);
-  rb_define_method(cGMP_Q, "abs!", r_gmpq_abs_self, 0);
-  rb_define_method(cGMP_Q, "sgn", r_gmpq_sgn, 0);
-  rb_define_method(cGMP_Q, "<=>", r_gmpq_cmp, 1);
-  rb_define_method(cGMP_Q, ">",   r_gmpq_cmp_gt, 1);
-  rb_define_method(cGMP_Q, ">=",  r_gmpq_cmp_ge, 1);
-  rb_define_method(cGMP_Q, "<",   r_gmpq_cmp_lt, 1);
-  rb_define_method(cGMP_Q, "<=",  r_gmpq_cmp_le, 1);
-  rb_define_method(cGMP_Q, "==",  r_gmpq_eq, 1);
-  rb_define_method(cGMP_Q, "swap",  r_gmpq_swap, 1);
-  rb_define_method(cGMP_Q, "floor",  r_gmpq_floor, 0);
-  rb_define_method(cGMP_Q, "ceil",  r_gmpq_ceil, 0);
-  rb_define_method(cGMP_Q, "trunc",  r_gmpq_trunc, 0);
-  rb_define_method(cGMP_Q, "to_d",  r_gmpq_to_d, 0);
-  rb_define_method(cGMP_Q, "cmpabs",  r_gmpq_cmpabs, 1);
 
   cGMP_F = rb_define_class_under (mGMP, "F", rb_cNumeric);
+  init_gmpf();
   rb_define_singleton_method(cGMP_F, "new", r_gmpfsg_new, -1);
   rb_define_singleton_method(cGMP_F, "default_prec", r_gmpfsg_get_default_prec, 0);
   rb_define_singleton_method(cGMP_F, "default_prec=", r_gmpfsg_set_default_prec, 1);
   rb_define_method(cGMP_F, "initialize", r_gmpf_initialize, -1);
-  rb_define_method(cGMP_F, "to_s", r_gmpf_to_s, 0);
   rb_define_method(cGMP_F, "coerce", r_gmpf_coerce, 1); // new method - testing
-  rb_define_method(cGMP_F, "+", r_gmpf_add, 1);
-  rb_define_method(cGMP_F, "-", r_gmpf_sub, 1);
-  rb_define_method(cGMP_F, "*", r_gmpf_mul, 1);
-  rb_define_method(cGMP_F, "/", r_gmpf_div, 1);
-  rb_define_method(cGMP_F, "-@", r_gmpf_neg, 0);
-  rb_define_method(cGMP_F, "neg!", r_gmpf_neg_self, 0);
-  rb_define_method(cGMP_F, "abs", r_gmpf_abs, 0);
-  rb_define_method(cGMP_F, "abs!", r_gmpf_abs_self, 0);
-  rb_define_method(cGMP_F, "sgn", r_gmpf_sgn, 0);
-  rb_define_method(cGMP_F, "<=>", r_gmpf_cmp, 1);
-  rb_define_method(cGMP_F, ">",   r_gmpf_cmp_gt, 1);
-  rb_define_method(cGMP_F, ">=",  r_gmpf_cmp_ge, 1);
-  rb_define_method(cGMP_F, "<",   r_gmpf_cmp_lt, 1);
-  rb_define_method(cGMP_F, "<=",  r_gmpf_cmp_le, 1);
-  rb_define_method(cGMP_F, "==",  r_gmpf_eq, 1);
-  rb_define_method(cGMP_F, "floor",  r_gmpf_floor, 0);
-  rb_define_method(cGMP_F, "floor!",  r_gmpf_floor_self, 0);
-  rb_define_method(cGMP_F, "ceil",  r_gmpf_ceil, 0);
-  rb_define_method(cGMP_F, "ceil!",  r_gmpf_ceil_self, 0);
-  rb_define_method(cGMP_F, "trunc",  r_gmpf_trunc, 0);
-  rb_define_method(cGMP_F, "trunc!",  r_gmpf_trunc_self, 0);
-  rb_define_method(cGMP_F, "to_d",  r_gmpf_to_d, 0);
-  rb_define_method(cGMP_F, "prec", r_gmpf_get_prec, 0);
 
 /*  rb_define_method(cGMP_F, "cmpabs",  r_gmpf_cmpabs, 1);*/