Changeset ac754d in git for libpolys/coeffs/rintegers.cc

Timestamp:

Jul 9, 2018, 2:30:44 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

a527a41aee3e0ac9b4976e8cb9864ff4632dac44

Parents:

3f7c4d8db8eba72463b445aa32ac30faeddafd54

Message:

add: ssi for poly over Z

File:

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

libpolys/coeffs/rintegers.cc

@@ -572 +572 @@
   nrzDelete(&b1, R);
   return ab;
+}
+
+void nrzWriteFd(number n, const ssiInfo* d, const coeffs)
+{
+  mpz_out_str (d->f_write,SSI_BASE, (mpz_ptr)n);
+  fputc(' ',d->f_write);
+}
+
+number nrzReadFd(const ssiInfo *d, const coeffs)
+{
+  mpz_ptr erg = (mpz_ptr) omAllocBin(gmp_nrz_bin);
+  mpz_init(erg);
+  s_readmpz_base(d->f_read,erg,SSI_BASE);
+  return (number)erg;
 }
 
@@ -625 +639 @@
   r->cfChineseRemainder=nlChineseRemainderSym;
   r->cfFarey=nrzFarey;
+  r->cfWriteFd=nrzWriteFd;
+  r->cfReadFd=nrzReadFd;
   // debug stuff
 
@@ -1806 +1822 @@
     return(rr);
 }
+
+number nlReadFd(const ssiInfo *d, const coeffs);
+void nlWriteFd(number n, const ssiInfo* d, const coeffs);
 
 BOOLEAN nrzInitChar(coeffs r,  void *)
@@ -1859 +1878 @@
   r->cfMPZ = nrzMPZ;
   r->cfFarey = nrzFarey;
+  r->cfWriteFd=nlWriteFd;
+  r->cfReadFd=nlReadFd;
 
   r->cfQuot1 = nrzQuot1;