Changeset 7a8011 in git for libpolys/coeffs/rmodulon.cc

Timestamp:

Apr 21, 2011, 2:12:11 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

9b9ae7fadb61129e98f779cff3f5ea3435f370a7

Parents:

8167afd5e92aaed2ba8a54e3c1566fd86d339aa8

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-04-21 14:12:11+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:31:25+01:00

Message:

more CoeffWrite: rings, long R, long C

File:

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

libpolys/coeffs/rmodulon.cc

@@ -25 +25 @@
 
 extern omBin gmp_nrz_bin;
+
+void    nrnCoeffWrite  (const coeffs r)
+{
+  long l = (long)mpz_sizeinbase(r->modBase, 10) + 2;
+  char* s = (char*) omAlloc(l);
+  if (nCoeff_is_Ring_ModN(r)) Print("//  Z/%s\n", s);
+  else if (nCoeff_is_Ring_PtoM(r)) Print("//  Z/%s^%lu\n", s, r->modExponent);
+  omFreeSize((ADDRESS)s, l);
+}
 
 /* for initializing function pointers */
@@ -65 +74 @@
   r->cfExtGcd      = nrnExtGcd;
   r->cfName        = ndName;
+  r->cfCoeffWrite  = nrnCoeffWrite;
 #ifdef LDEBUG
   r->cfDBTest      = nrnDBTest;