gmp 0.6.13 → 0.6.17

data/README.markdown

@@ -97,7 +97,7 @@ by me: gmp gem 0.5.47 on:
         GMP 5.0.1 (3.0.0)</td>
   </tr>
   <tr>
-    <td rowspan="4">Mac OS X 10.6.8 on x86_64 (64-bit)</td>
+    <td rowspan="3">Mac OS X 10.6.8 on x86_64 (64-bit)</td>
     <td>(MRI) Ruby 1.8.7</td>
     <td>GMP 4.3.2 (2.4.2)<br />
         GMP 5.0.5 (3.1.1)</td>
@@ -284,6 +284,8 @@ Methods
       remove(n)                remove all occurences of factor n
       popcount                 the number of bits equal to 1
       hamdist                  the hamming distance between two integers
+      out_raw                  output to IO object
+      inp_raw                  input from IO object
       sizeinbase(b)            digits in base b
       size_in_bin              digits in binary
       size                     number of limbs

data/ext/gmpz.c

@@ -1,6 +1,7 @@
 #include <gmpz.h>
 #include <gmpq.h>
 #include <gmpf.h>
+#include <ruby/io.h>
 
 /*
  * Document-class: GMP::Z
@@ -2675,6 +2676,61 @@ VALUE r_gmpz_getbit(VALUE self, VALUE bitnr)
 }
 
 
+/**********************************************************************
+ *    I/O of Integers                                                 *
+ **********************************************************************/
+
+/*
+ * call-seq:
+ *   a.out_raw(stream) #=> Fixnum
+ *
+ * Output _a_ on IO object _stream_, in raw binary format. The integer is
+ * written in a portable format, with 4 bytes of size information, and that
+ * many bytes of limbs. Both the size and the limbs are written in decreasing
+ * significance order (i.e., in big-endian).
+ *
+ * The output can be read with `GMP::Z.inp_raw`.
+ *
+ * Return the number of bytes written, or if an error occurred, return 0.
+ */
+VALUE r_gmpz_out_raw(VALUE self, VALUE stream)
+{
+  MP_INT *self_val;
+  FILE *fd;
+  mpz_get_struct(self, self_val);
+  if (TYPE (stream) != T_FILE) {
+    rb_raise (rb_eTypeError, "stream must be an IO.");
+  }
+  fd = rb_io_stdio_file (RFILE (stream)->fptr);
+  return INT2FIX (mpz_out_raw (fd, self_val));
+}
+
+/*
+ * call-seq:
+ *   GMP::Z.inp_raw(a, stream) #=> Fixnum
+ *
+ * Input from IO object _stream_ in the format written by `GMP::Z#out_raw`, and
+ * put the result in _a_. Return the number of bytes read, or if an error
+ * occurred, return 0.
+ */
+VALUE r_gmpzsg_inp_raw(VALUE klass, VALUE a_val, VALUE stream_val)
+{
+  MP_INT *a;
+  FILE *stream;
+  (void)klass;
+
+  if (! GMPZ_P(a_val))
+    typeerror_as(Z, "a");
+
+  if (TYPE (stream_val) != T_FILE)
+    rb_raise (rb_eTypeError, "stream must be an IO.");
+
+  mpz_get_struct(a_val, a);
+  stream = rb_io_stdio_file (RFILE (stream_val)->fptr);
+  return INT2FIX (mpz_inp_raw (a, stream));
+}
+
+
 /**********************************************************************
  *    Miscellaneous Integer Functions                                 *
  **********************************************************************/
@@ -2903,6 +2959,11 @@ void init_gmpz()
   // Functional Mappings
   rb_define_singleton_method(cGMP_Z, "com", r_gmpzsg_com, 2);
 
+  // I/O of Integers
+  rb_define_method(cGMP_Z, "out_raw", r_gmpz_out_raw, 1);
+  // Functional Mapping
+  rb_define_singleton_method(cGMP_Z, "inp_raw", r_gmpzsg_inp_raw, 2);
+
   // Miscellaneous Integer Functions
   rb_define_method(cGMP_Z, "even?", r_gmpz_is_even, 0);
   rb_define_method(cGMP_Z, "odd?", r_gmpz_is_odd, 0);

data/test/tc_z_io.rb

@@ -0,0 +1,50 @@
+require File.expand_path(File.join(File.dirname(__FILE__), 'test_helper'))
+require 'fileutils'
+
+class TC_Z_IO < Test::Unit::TestCase
+  def setup
+    @two_pow_100   = GMP::Z.pow(GMP::Z(2), 100)
+    @three_pow_100 = GMP::Z.pow(GMP::Z(3), 100)
+    @rs = GMP::RandState.new
+    @rs.seed(13579)
+  end
+
+  def test_io_raw_with_two_pow_100
+    handle = File.new('test_io_raw', 'w')
+    @two_pow_100.out_raw(handle)
+    handle.close
+
+    handle = File.open('test_io_raw')
+    result = GMP::Z()
+    GMP::Z.inp_raw(result, handle)
+    FileUtils.rm('test_io_raw')
+    assert_equal(@two_pow_100, result, "GMP::Z should out_raw and inp_raw correctly")
+  end
+
+  def test_io_raw_with_three_pow_100
+    handle = File.new('test_io_raw', 'w')
+    @three_pow_100.out_raw(handle)
+    handle.close
+
+    handle = File.open('test_io_raw')
+    result = GMP::Z()
+    GMP::Z.inp_raw(result, handle)
+    FileUtils.rm('test_io_raw')
+    assert_equal(@three_pow_100, result, "GMP::Z should out_raw and inp_raw correctly")
+  end
+
+  def test_io_raw_randoms
+    100.times do |i|
+      handle = File.new('test_io_raw', 'w')
+      z = @rs.urandomb(1024)
+      z.out_raw(handle)
+      handle.close
+
+      handle = File.open('test_io_raw')
+      result = GMP::Z()
+      GMP::Z.inp_raw(result, handle)
+      assert_equal(z, result, "GMP::Z should out_raw and inp_raw correctly")
+    end
+    FileUtils.rm('test_io_raw')
+  end
+end

data/test/unit_tests.rb

@@ -14,6 +14,7 @@ require './tc_z_submul'
 require './tc_z_logic'
 require './tc_z_exponentiation'
 require './tc_z_hamdist'
+require './tc_z_io'
 require './tc_z_to_dis'
 require './tc_z_shifts_last_bits'
 require './tc_z_jac_leg_rem'

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: gmp
 version: !ruby/object:Gem::Version
-  version: 0.6.13
+  version: 0.6.17
   prerelease: 
 platform: ruby
 authors:
@@ -10,7 +10,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-12-12 00:00:00.000000000 Z
+date: 2012-12-13 00:00:00.000000000 Z
 dependencies: []
 description: gmp - providing Ruby bindings to the GMP library.
 email:
@@ -71,6 +71,7 @@ files:
 - test/tc_z_functional_mappings.rb
 - test/tc_z_gcd_lcm_invert.rb
 - test/tc_z_hamdist.rb
+- test/tc_z_io.rb
 - test/tc_z_jac_leg_rem.rb
 - test/tc_z_logic.rb
 - test/tc_z_shifts_last_bits.rb