Changeset 045efb in git for libpolys/coeffs/longrat.cc

Timestamp:

Aug 10, 2011, 7:43:14 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5ff1d31f3d80f972b5abf4d4435d01cb9b033ffb

Parents:

b1ca9992c1a4e67c4f6161015c9bb3efd24c96f4

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-08-10 19:43:14+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 13:19:14+01:00

Message:

ADD: conversion between numbers and mpz_t (GMP integers)

File:

• libpolys/coeffs/longrat.cc (modified) (4 diffs)

libpolys/coeffs/longrat.cc

@@ -542 +542 @@
 }
 
+void nlMPZ(mpz_t m, number &n, const coeffs r)
+{
+  assume( getCoeffType(r) == ID );
+   
+  nlTest(n, r);
+  nlNormalize(n, r);
+  if (SR_HDL(n) & SR_INT) mpz_init_set_si(m, SR_TO_INT(n));     /* n fits in an int */
+  else             mpz_init_set(m, (mpz_ptr)n->z);
+}
+
+
 /*2
 * convert number to int
@@ -2091 +2102 @@
 }
 
-
 LINLINE number nlInit (int i, const coeffs r)
 {
@@ -2102 +2112 @@
 }
 
+
+number nlInitMPZ(mpz_t m, const coeffs r)
+{
+  number z = ALLOC_RNUMBER();
+  mpz_init_set(z->z, m);
+  mpz_init_set_ui(z->n, 1);
+  z->s = 3;
+  return z;   
+}
 
 /*2
@@ -2596 +2615 @@
   r->cfExactDiv= nlExactDiv;
   r->cfInit = nlInit;
+  r->cfInitMPZ = nlInitMPZ;
   r->cfSize  = nlSize;
   r->cfInt  = nlInt;
+  r->cfMPZ = nlMPZ;
+  
   r->cfChineseRemainder=nlChineseRemainder;
   r->cfFarey=nlFarey;