Changeset f9fc81 in git for libpolys/coeffs/rmodulon.cc

Timestamp:

Dec 6, 2013, 4:57:24 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

f1a309fae2b1e4366fb7ead1dac3f33dbfc042a5

Parents:

bdda288ddec3d88538ca426b802f82d49d384caa9e8a6c3b0f4b1814c8ea54b2bf5679f4c3e9591d

Message:

Merge pull request #444 from surface-smoothers/fix.normal.callbug.in.genus

Fix.normal.callbug.in.genus

File:

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

libpolys/coeffs/rmodulon.cc

@@ -47 +47 @@
 }
 
+static char* nrnCoeffString(const coeffs r)
+{
+  long l = (long)mpz_sizeinbase(r->modBase, 10) +2;
+  char* b = (char*) omAlloc(l);
+  b= mpz_get_str (b, 10, r->modBase);
+  char* s = (char*) omAlloc(7+2+10+l);
+  if (nCoeff_is_Ring_ModN(r)) sprintf(s,"integer,%s",b);
+  else /*if (nCoeff_is_Ring_PtoM(r))*/ sprintf(s,"integer,%s^%lu",b,r->modExponent);
+  omFreeSize(b,l);
+  return s;
+}
 
 /* for initializing function pointers */
@@ -60 +71 @@
      is a GMP number */
   r->ch = mpz_get_ui(r->modNumber);
+
+  r->cfCoeffString = nrnCoeffString;
 
   r->cfInit        = nrnInit;