Changeset ac754d in git

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

a527a41aee3e0ac9b4976e8cb9864ff4632dac44

Parents:

3f7c4d8db8eba72463b445aa32ac30faeddafd54

Message:

add: ssi for poly over Z

Location:

libpolys/coeffs

Files:

• longrat.cc (modified) (3 diffs)
• rintegers.cc (modified) (4 diffs)

libpolys/coeffs/longrat.cc

@@ -3176 +3176 @@
 }
 
-static void nlWriteFd(number n, const ssiInfo* d, const coeffs)
+void nlWriteFd(number n, const ssiInfo* d, const coeffs)
 {
   if(SR_HDL(n) & SR_INT)
@@ -3222 +3222 @@
 }
 
-static number nlReadFd(const ssiInfo *d, const coeffs)
+number nlReadFd(const ssiInfo *d, const coeffs)
 {
   int sub_type=-1;
@@ -3284 +3284 @@
   return NULL;
 }
+
 BOOLEAN nlCoeffIsEqual(const coeffs r, n_coeffType n, void *p)
 {

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;