Changeset 3f7f11 in git

Timestamp:

Dec 3, 2016, 4:17:38 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

61e85543ff6e6160d3d8c6b8fba50eb327f41679

Parents:

87c92569b5cb08198bbc37755a5a4fc03754d205

Message:

add: nrnCoeffName for rmodulon.cc

File:

• libpolys/coeffs/rmodulon.cc (modified) (2 diffs)

libpolys/coeffs/rmodulon.cc

@@ -86 +86 @@
   omFreeSize((ADDRESS)s, l);
 }
+
+static char* nrnCoeffName_buff=NULL;
+static char* nrnCoeffName(const coeffs r)
+{
+  if(nrnCoeffName_buff==NULL) omFree(nrnCoeffName_buff);
+  size_t l = (size_t)mpz_sizeinbase(r->modBase, 10) + 2;
+  nrnCoeffName_buff=(char*)omAlloc(l+6);
+  char* s = (char*) omAlloc(l);
+  s= mpz_get_str (s, 10, r->modBase);
+  if (nCoeff_is_Ring_ModN(r))
+    snprintf(nrnCoeffName_buff,l+6,"ZZ/%s",s);
+  else if (nCoeff_is_Ring_PtoM(r))
+    snprintf(nrnCoeffName_buff,l+6,"ZZ/%s^lu",s,r->modExponent);
+  omFreeSize((ADDRESS)s, l);
+  return nrnCoeffName_buff;
+}
+
 
 static BOOLEAN nrnCoeffsEqual(const coeffs r, n_coeffType n, void * parameter)
@@ -214 +231 @@
   r->cfXExtGcd     = nrnXExtGcd;
   r->cfQuotRem     = nrnQuotRem;
+  r->cfCoeffName   = nrnCoeffName;
   r->cfCoeffWrite  = nrnCoeffWrite;
   r->nCoeffIsEqual = nrnCoeffsEqual;